Testing fix for issue #537

justinethier · May 21, 2024 · 1ce4979 · 1ce4979
1 parent 6b556d3
commit 1ce4979
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/scheme/eval.sld b/scheme/eval.sld
@@ -99,7 +99,9 @@
   (cond 
     ((application? exp)
      (cond
-       ((compound-procedure? (car exp))
+       ((or (primitive-procedure? (car exp)) 
+            (compound-procedure? (car exp))
+            (procedure? (car exp)))
         (cons 
           (car exp)
           (map