Closure is not a pair.
[mes.git] / tests / closure.test
index 494daca8291cc336f9752269b196c7ecfbf2df41..809871920b68d9a9412d4ef981d7576a7fb66f73 100755 (executable)
@@ -95,4 +95,10 @@ exit $?
     "noexpand")
    (pass-if "closure 9" (sc-expand))))
 
+(pass-if "closure is procedure"
+             (procedure? (lambda () #t)))
+
+(pass-if-not "closure is not a pair"
+             (pair? (lambda () #t)))
+
 (result 'report)