--(>:)-- sh doit                                                                
csc -s -j m0 -o m0.so m0.scm                                                    
csc -s -o m0.import.so m0.import.scm                                            
csc -I. -s -j m1 -o m1.so m1.scm                                                
                                                                                
Error: during expansion of (make-f1 ...) - unbound variable: f0                 
                                                                                
        Call history:                                                           
                                                                                
        <syntax>          (##core#quote f1)                                     
        <syntax>          (##core#quote x)                                      
        <syntax>          (##sys#list (##core#quote list) a (##core#quote x) (f0
 b (cadr form)))                                                                
        <syntax>          (##core#quote list)                                   
        <syntax>          (##core#quote x)                                      
        <syntax>          (f0 b (cadr form))                                    
        <syntax>          (cadr form)                                           
        <eval>    (ir-macro-transformer (lambda (form rename compare?) (let-valu
es (((a b) (values -1 -2))) (quasiquot......                                    
        <syntax>          (##core#undefined)                                    
        <syntax>          (make-f1 10)                                          
        <eval>    (##sys#call-with-values (##core#lambda () (values -1 -2)) (##c
ore#lambda (a3738 b3940) (##core#let (...                                       
        <eval>    (values -1 -2)                                                
        <eval>    (##sys#list (##core#quote define) (##sys#list (##core#quote f1
) (##core#quote x)) (##sys#list (##cor......                                    
        <eval>    (##sys#list (##core#quote f1) (##core#quote x))               
        <eval>    (##sys#list (##core#quote list) a (##core#quote x) (f0 b (cadr
 form)))                                                                        
        <eval>    (f0 b (cadr form))    <--