From 4e6096d64bf3b1492c382ff73618b47adc3b1145 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 2 Mar 2015 18:03:49 -0500
Subject: [PATCH] Unwrap primitives before passing them to the runtime

---
 eval.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/eval.scm b/eval.scm
index 2115eacc..ba990ff1 100644
--- 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"