96709 vgeddes vgeddes@pudding:~$ cat test.scm (define-syntax foo (lambda (e r c) (let-values (((x y) (values 1 2))) (+ x y)) `(+ 4 5))) (print (foo)) vgeddes@pudding:~$ csc test.scm -o foo Error: during expansion of (foo ...) - unbound variable: y Call history: <syntax> (##core#begin (print (foo))) <syntax> (print (foo)) <syntax> (foo) <eval> (let-values (((x y) (values 1 2))) (+ x y)) <eval> (((x y) (values 1 2))) <eval> ((x y) (values 1 2)) <eval> (values 1 2) <eval> (x y) <-- Error: shell command terminated with non-zero exit status 17920: /usr/local/bin/chicken test.scm -output-file foo.c 3478155237 #chicken Scheme TRUE