unofficial mirror of guile-devel@gnu.org 
 help / color / mirror / Atom feed
* 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).