mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 13:30:26 +02:00
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>.
This commit is contained in:
parent
0bf4a5fc2e
commit
c4b7ba688a
1 changed files with 1 additions and 3 deletions
|
@ -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 ...)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue