Error: (gensym) argument is not a string or symbol: ((n) (let ((params (node-parameters n)) (subs (node-subexpressions n))) (case (node-class n) ((##core#call) (let* ((fn (first subs)) (arg0 (second subs)) (fnp (node-parameters fn)) (arg0p (node-parameters arg0))) (when (eq? (quote ##core#variable) (node-class fn)) (cond ((eq? fnvar (first fnp)) (set! ksites (alist-cons #f n ksites)) (cond ((eq? kvar (first arg0p)) (unless (= argc (length (cdr subs))) (quit "known procedure called recursively with wrong number of arguments: `~A'" fnvar)) (node-class-set! n (quote ##core#recurse)) (node-parameters-set! n (list #t id)) (node-subexpressions-set! n (cddr subs))) ((assq (first arg0p) klambdas) => (lambda (a) (let* ((klam (cdr a)) (kbody (first (node-subexpressions klam)))) (unless (= argc (length (cdr subs))) (quit "known procedure called recursively with wrong number of arguments: `~A'" fnvar)) (node-class-set! n (quote let)) (node-parameters-set! n (take (third (node-parameters klam)) 1)) (node-subexpressions-set! n (list (make-node (quote ##core#recurse) (list #f id) (cddr subs)) kbody)) (rec kbody)))) (else (bomb "missing kvar" arg0p)))) ((eq? kvar (first fnp)) (node-class-set! n (quote ##core#return)) (node-parameters-set! n (quote ())) (node-subexpressions-set! n (cdr subs))) (else (bomb "bad call (leaf)")))))) ((let) (let ((var (first params)) (val (first subs))) (cond ((memq var ks) (set! klambdas (alist-cons var val klambdas)) (copy-node! (second subs) n) (rec n)) (else (for-each rec subs))))) (else (for-each rec subs)))))

	Call history:

	<eval>	  [##sys#alias-global-hook] (get var (quote c:namespace))
	<syntax>	  (quote ##core#direct_lambda)
	<syntax>	  (##core#quote ##core#direct_lambda)
	<syntax>	  (let rec ((n (first (node-subexpressions n)))) (let ((params (node-parameters n)) (subs (node-subexp......
	<syntax>	  (##core#app (##core#letrec* ((rec (##core#loop-lambda (n) (let ((params (node-parameters n)) (subs (......
	<eval>	  [##sys#alias-global-hook] (get var (quote c:namespace))
	<syntax>	  (##core#letrec* ((rec (##core#loop-lambda (n) (let ((params (node-parameters n)) (subs (node-subexpr......
	<eval>	  [##sys#alias-global-hook] (get var (quote c:namespace))
	<syntax>	  ((rec (##core#loop-lambda (n) (let ((params (node-parameters n)) (subs (node-subexpressions n))) (ca......
	<syntax>	  (##core#let ((g2305 (rec (##core#loop-lambda (n) (let ((params (node-parameters n)) (subs (node-sube......
	<syntax>	  (rec (##core#loop-lambda (n) (let ((params (node-parameters n)) (subs (node-subexpressions n))) (cas......
	<syntax>	  (##core#letrec* ((##core#loop-lambda (##core#lambda ((n) (let ((params (node-parameters n)) (subs (n......
	<eval>	  [##sys#alias-global-hook] (get var (quote c:namespace))
	<syntax>	  ((##core#loop-lambda (##core#lambda ((n) (let ((params (node-parameters n)) (subs (node-subexpressio......
	<syntax>	  (##core#let ((g2307 (##core#loop-lambda (##core#lambda ((n) (let ((params (node-parameters n)) (subs......
	<syntax>	  (##core#loop-lambda (##core#lambda ((n) (let ((params (node-parameters n)) (subs (node-subexpression......	<--
make[1]: *** [optimizer.c] Error 70
make[1]: Leaving directory `/home/jonathan/projects/chicken-core'
make: *** [all] Error 2