* and-let* empty body
@ 2004-08-20 1:34 Kevin Ryde
2004-08-24 17:14 ` Marius Vollmer
0 siblings, 1 reply; 2+ messages in thread
From: Kevin Ryde @ 2004-08-20 1:34 UTC (permalink / raw)
[-- Attachment #1: Type: text/plain, Size: 162 bytes --]
* and-let-star.scm (and-let*): Give #t for an empty body per srfi-2
spec, previously came out as an empty (begin).
This is another for 1.6 too.
[-- Attachment #2: and-let-star.scm.t.diff --]
[-- Type: text/plain, Size: 343 bytes --]
--- and-let-star.scm.~1.7.~ 2004-08-18 10:17:23.000000000 +1000
+++ and-let-star.scm 2004-08-19 14:34:36.000000000 +1000
@@ -25,7 +25,9 @@
(define (expand vars body)
(cond
((null? vars)
- `(begin ,@body))
+ (if (null? body)
+ #t
+ `(begin ,@body)))
((pair? vars)
(let ((exp (car vars)))
(cond
[-- Attachment #3: Type: text/plain, Size: 143 bytes --]
_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: and-let* empty body
2004-08-20 1:34 and-let* empty body Kevin Ryde
@ 2004-08-24 17:14 ` Marius Vollmer
0 siblings, 0 replies; 2+ messages in thread
From: Marius Vollmer @ 2004-08-24 17:14 UTC (permalink / raw)
Kevin Ryde <user42@zip.com.au> writes:
> This is another for 1.6 too.
Yep.
_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/guile-devel
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2004-08-24 17:14 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2004-08-20 1:34 and-let* empty body Kevin Ryde
2004-08-24 17:14 ` Marius Vollmer
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).