[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-78-gc4b7ba

From: Mark H Weaver
Subject: [Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.9-78-gc4b7ba6
Date: Tue, 10 Sep 2013 02:22:13 +0000

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

The branch, stable-2.0 has been updated
       via  c4b7ba688aba07254059f830f972756bcad0eb9b (commit)
      from  0bf4a5fc2ea456ed74d45f52e2f1dd08d5e1fb9e (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit c4b7ba688aba07254059f830f972756bcad0eb9b
Author: Mark H Weaver <address@hidden>
Date:   Mon Sep 9 22:20:09 2013 -0400

    Minor stylistic improvement to 'and-let*' macro.
    * module/ice-9/and-let-star.scm (%and-let*): Use 'and' instead of
      'if'.  Suggested by Chris K. Jester-Young <address@hidden>.


Summary of changes:
 module/ice-9/and-let-star.scm |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)

diff --git a/module/ice-9/and-let-star.scm b/module/ice-9/and-let-star.scm
index 860ce5e..ff15a7a 100644
--- a/module/ice-9/and-let-star.scm
+++ b/module/ice-9/and-let-star.scm
@@ -29,9 +29,7 @@
       ((_ orig-form ((var exp) c ...) body ...)
        (identifier? #'var)
        #'(let ((var exp))
-           (if var
-               (%and-let* orig-form (c ...) body ...)
-               #f)))
+           (and var (%and-let* orig-form (c ...) body ...))))
       ((_ orig-form ((exp) c ...) body ...)
        #'(and exp (%and-let* orig-form (c ...) body ...)))
       ((_ orig-form (var c ...) body ...)

GNU Guile

reply via email to

[Prev in Thread] Current Thread [Next in Thread]