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 <cky944@gmail.com>.

diff --git a/module/ice-9/and-let-star.scm b/module/ice-9/and-let-star.scm
index 860ce5e..ff15a7a 100644 (file)
--- 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 ...)