artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2016-07-17 12:14:46 +02:00
parent 6f40e02029
commit c4d3d26f8d
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scm.mes
View file

@ -62,7 +62,8 @@
(define-macro (and . x) (define-macro (and . x)
(cond ((null? x) #t) (cond ((null? x) #t)
((null? (cdr x)) (car x)) ((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) (define (split-params bindings params)
(cond ((null? bindings) params) (cond ((null? bindings) params)