mes: compatibility: Make base.mes pure guile.

* mes/module/mes/type-0.mes (procedure?): New function.  Rewrite
without `cond' from
* mes/module/mes/base.mes (procedure?): here; Remove.

mes/module/mes/base.mes

@@ -119,12 +119,6 @@
 
 (define else #t)
 
-(define (procedure? p)
-  (cond ((builtin? p) #t)
-        ((and (pair? p) (eq? (car p) 'lambda)))
-        ((closure? p) #t)
-        (#t #f)))
-
 (define (map f h . t)
   (if (or (null? h)
           (and (pair? t) (null? (car t)))

mes/module/mes/type-0.mes

@@ -76,6 +76,12 @@
 (define (port? x)
   (eq? (core:type x) <cell:port>))
 
+(define (procedure? p)
+  (and (or (builtin? p)
+           (and (pair? p) (eq? (car p) 'lambda))
+           (closure? p))
+       #t))
+
 (define (special? x)
   (eq? (core:type x) <cell:special>))