From 1ce4979658716eaae52a179c8943256cd0725f00 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 20 May 2024 19:31:38 -0700
Subject: [PATCH] Testing fix for issue #537

---
 scheme/eval.sld | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scheme/eval.sld b/scheme/eval.sld
index ba33ae11..042a520f 100644
--- 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