test: Resurrect running boot tests on Guile.
[mes.git] / scaffold / boot / 60-let-syntax-expanded.scm
index 52049287f44b55bd084ee6a19e2677fca3b0a185..cfb229fb72011c2d664b32fe568910541114bcee 100644 (file)
   (or (null? x)
       (and (pair? x) (list? (cdr x)))))
 
   (or (null? x)
       (and (pair? x) (list? (cdr x)))))
 
+(cond-expand
+ (guile)
+ (mes
+  (define (boolean? x)
+    (or (eq? x #f) (eq? x #t)))
+  (define (char? x)
+    (and (eq? (core:type x) <cell:char>)
+         (> (char->integer x) -1)))))
+
 ;; -*-scheme-*-
 
 ;;; GNU Mes --- Maxwell Equations of Software
 ;; -*-scheme-*-
 
 ;;; GNU Mes --- Maxwell Equations of Software