Unwrap primitives before passing them to the runtime

2025-07-15 08:47:35 +02:00 · 2015-03-02 18:03:49 -05:00 · 2015-03-02 18:03:49 -05:00 · 4e6096d64b
commit 4e6096d64b
parent 651f6b0c7a
1 changed files with 10 additions and 1 deletions
--- a/eval.scm
+++ b/eval.scm
@ -430,7 +430,16 @@
                              args
                              (procedure-environment 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
         (error
          "Unknown procedure type -- EXECUTE-APPLICATION"