Testing fix for issue #537

This commit is contained in:
Justin Ethier 2024-05-20 19:31:38 -07:00
parent 6b556d3a7a
commit 1ce4979658

View file

@ -99,7 +99,9 @@
(cond (cond
((application? exp) ((application? exp)
(cond (cond
((compound-procedure? (car exp)) ((or (primitive-procedure? (car exp))
(compound-procedure? (car exp))
(procedure? (car exp)))
(cons (cons
(car exp) (car exp)
(map (map