Add procedure? to base.
authorJan Nieuwenhuizen <janneke@gnu.org>
Wed, 12 Oct 2016 20:58:35 +0000 (22:58 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Wed, 12 Oct 2016 20:58:35 +0000 (22:58 +0200)
* base.mes (procedure?): Move from scm.mes.

base.mes
scm.mes

index 7dbedea0b190309d2a94e35ba49d08332388955c..345ee4cc6424227db54bb8073bb9274a2410a56b 100644 (file)
--- a/base.mes
+++ b/base.mes
@@ -67,3 +67,9 @@
 
 (define-macro (let bindings . rest)
   (cons* 'simple-let bindings rest))
+
+(define (procedure? p)
+  (cond ((builtin? p) #t)
+        ((and (pair? p) (eq? (car p) 'lambda)))
+        ((and (pair? p) (eq? (car p) '*closure*)))
+        (#t #f)))
diff --git a/scm.mes b/scm.mes
index fa691882a78c4de4b8eaea09c94fa6bbe5a1c6a2..de6990b66f0d3d7a06d3545ba90aa90c1b65343e 100755 (executable)
--- a/scm.mes
+++ b/scm.mes
        ,@body
        (loop ,@(cddar init)))))
 
-(define (procedure? p)
-  (cond ((builtin? p) #t)
-        ((and (pair? p) (eq? (car p) 'lambda)))
-        ((and (pair? p) (eq? (car p) '*closure*)))
-        (#t #f)))
-
 (define integer? number?)
 
 (define (make-list n . x)