core: Tune debug printing.
[mes.git] / scaffold / boot / 52-define-module.scm
index 5b7e0c172524d2a85b1e4d48b7f8e7cc8521d542..81fa9ee837a367c3844d7102db68f80c7377ce3d 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))