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)