Welcome to the CHICKEN Scheme pasting service
no title added by jyc on Wed Oct 9 01:11:18 2013
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