scm.mes: and: bugfix, return #f for (and #f 1 2 3).

2016-07-17 12:14:46 +02:00 · 2016-07-17 12:14:46 +02:00 · c4d3d26f8d
parent 6f40e02029
commit c4d3d26f8d
1 changed files with 2 additions and 1 deletions
--- a/scm.mes
+++ b/scm.mes
@ -62,7 +62,8 @@
 (define-macro (and . x)
  (cond ((null? x) #t)
        ((null? (cdr x)) (car x))
-        (#t `(cond (,(car x) (and ,@(cdr x)))))))
+        (#t `(cond (,(car x) (and ,@(cdr x)))
+                   (#t #f)))))

 (define (split-params bindings params)
  (cond ((null? bindings) params)