diff --git a/runtime.c b/runtime.c index 8b6fe92b..190489e9 100644 --- a/runtime.c +++ b/runtime.c @@ -1875,7 +1875,7 @@ object apply(object cont, object func, object args){ make_cons(c, func, args); printf("JAE DEBUG, sending to eval: "); Cyc_display(&c, stderr); - ((closure)__glo_eval)->fn(3, __glo_eval, cont, &c, nil); + ((closure)__glo_eval)->fn(2, __glo_eval, cont, &c, nil); // TODO: would be better to compare directly against symbols here, // but need a way of looking them up ahead of time. diff --git a/test2.scm b/test2.scm index 04cf1b28..4277d77c 100644 --- a/test2.scm +++ b/test2.scm @@ -26,6 +26,7 @@ (cons (rename 'and) (cddr expr)) #f)))))) -(test 1 2 3) +(write + (test 1 2 3)) ;(test 'done) 'done