core: Tune debug printing.
[mes.git] / scaffold / boot / 51-module.scm
index 2205dc5ac2a39963fc395e12d1e7c55e03079b41..f5e856e99c0b0f2306c473603b3119ba43c62453 100644 (file)
         (if (null? (cdr rest)) (car rest)
             (append2 (car rest) (apply append (cdr rest))))))
 
+  (define-macro (and . x)
+    (if (null? x) #t
+        (if (null? (cdr x)) (car x)
+            (list (quote if) (car x) (cons (quote and) (cdr x))
+                  #f))))
+
   (define (string->list s)
     (core:car s))