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

Unwrap primitives before passing them to the runtime

Browse source
This commit is contained in:
Justin Ethier 2015-03-02 18:03:49 -05:00
parent 651f6b0c7a
commit 4e6096d64b
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
eval.scm
View file

@ -430,7 +430,16 @@
args args
(procedure-environment proc)))) (procedure-environment proc))))
((procedure? proc) ((procedure? proc)
(apply proc args)) (apply
proc
(map
(lambda (a)
(cond
;; "unwrap" objects before passing to runtime
((primitive-procedure? a)
(primitive-implementation a))
(else a)))
args)))
(else (else
(error (error
"Unknown procedure type -- EXECUTE-APPLICATION" "Unknown procedure type -- EXECUTE-APPLICATION"