mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

Minor stylistic improvement to 'and-let*' macro.

Browse source 
* 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:
Mark H Weaver 2013-09-09 22:20:09 -04:00
parent 0bf4a5fc2e
commit c4b7ba688a
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/ice-9/and-let-star.scm
View file

@ -29,9 +29,7 @@
((_ orig-form ((var exp) c ...) body ...) ((_ orig-form ((var exp) c ...) body ...)
(identifier? #'var) (identifier? #'var)
#'(let ((var exp)) #'(let ((var exp))
(if var (and var (%and-let* orig-form (c ...) body ...))))
(%and-let* orig-form (c ...) body ...)
#f)))
((_ orig-form ((exp) c ...) body ...) ((_ orig-form ((exp) c ...) body ...)
#'(and exp (%and-let* orig-form (c ...) body ...))) #'(and exp (%and-let* orig-form (c ...) body ...)))
((_ orig-form (var c ...) body ...) ((_ orig-form (var c ...) body ...)