From dd271be21807d44853715599c989a211361cf3e3 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Wed, 12 Oct 2016 22:58:35 +0200
Subject: [PATCH] Add procedure? to base.

* base.mes (procedure?): Move from scm.mes.
---
 base.mes | 6 ++++++
 scm.mes  | 6 ------
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/base.mes b/base.mes
index 7dbedea0..345ee4cc 100644
--- 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 fa691882..de6990b6 100755
--- 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)