From c4d3d26f8da03ae778849eaa7a96b4e2e7f24d8d Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 17 Jul 2016 12:14:46 +0200 Subject: [PATCH] scm.mes: and: bugfix, return #f for (and #f 1 2 3). --- scm.mes | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/scm.mes b/scm.mes index ff590564..533b9477 100755 --- 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)