From c4b7ba688aba07254059f830f972756bcad0eb9b Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Mon, 9 Sep 2013 22:20:09 -0400 Subject: [PATCH] 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 . --- module/ice-9/and-let-star.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/module/ice-9/and-let-star.scm b/module/ice-9/and-let-star.scm index 860ce5e7e..ff15a7a1e 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 ...)