Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-13 15:57:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Tweak lambda eval

Browse source
This commit is contained in:
Justin Ethier 2015-08-07 02:02:07 -04:00
parent ab05152163
commit 9443f92fe2
2 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
runtime.c
View file

@ -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.

3
test2.scm
View file

@ -26,6 +26,7 @@
(cons (rename 'and) (cddr expr))
#f))))))
(test 1 2 3)
(write
(test 1 2 3))
;(test 'done)
'done