mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 23:00:22 +02:00
Code Activity

(and-let*): Give #t for an empty body, per srfi-2

Browse source 
spec, previously came out as an empty (begin).
This commit is contained in:
Kevin Ryde 2004-08-25 00:46:59 +00:00
parent 479357a63d
commit 3fe213f8f1
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/and-let-star.scm
View file

@ -25,7 +25,9 @@
(define (expand vars body) (define (expand vars body)
(cond (cond
((null? vars) ((null? vars)
`(begin ,@body)) (if (null? body)
#t
`(begin ,@body)))
((pair? vars) ((pair? vars)
(let ((exp (car vars))) (let ((exp (car vars)))
(cond (cond