Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 20:45:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #21 - Allow eval to handle optional args

Browse source
This commit is contained in:
Justin Ethier 2016-08-18 02:43:05 -04:00
parent ae3f906d24
commit 46f84b5265
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scheme/eval.sld
View file

@ -482,13 +482,12 @@
(apply-primitive-procedure proc args)) (apply-primitive-procedure proc args))
((compound-procedure? proc) ((compound-procedure? proc)
((procedure-body proc) ((procedure-body proc)
(let ((
(env:extend-environment (env:extend-environment
(formals->list (formals->list
(procedure-parameters proc)) (procedure-parameters proc))
;(pack-lambda-arguments (pack-lambda-arguments
;(procedure-parameters proc) (procedure-parameters proc)
args ;) args)
(procedure-environment proc)))) (procedure-environment proc))))
((procedure? proc) ((procedure? proc)
(apply (apply