Add procedure? to base.

* base.mes (procedure?): Move from scm.mes.
2016-10-12 22:58:35 +02:00 · 2016-10-12 22:58:35 +02:00 · dd271be218
parent 1bb3d1de11
commit dd271be218
2 changed files with 6 additions and 6 deletions
--- 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)))
--- a/scm.mes
+++ b/scm.mes
@ -46,12 +46,6 @@
       ,@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)