Closure is not a pair.
[mes.git] / module / mes / base.mes
index 7ac4b4d99ef139025a2fa8f9e2cdab6a2e0ac5f9..e35100007125d896484ee6b015b5963c82597751 100644 (file)
@@ -59,5 +59,5 @@
 (define (procedure? p)
   (cond ((builtin? p) #t)
         ((and (pair? p) (eq? (car p) 'lambda)))
-        ((and (pair? p) (eq? (car p) '*closure*)))
+        ((closure? p) #t)
         (#t #f)))