[bugfix] let may take an identifier as a loop name
This commit is contained in:
parent
79f6f5c034
commit
ae3164643e
|
@ -63,7 +63,7 @@
|
||||||
(define-syntax let
|
(define-syntax let
|
||||||
(er-macro-transformer
|
(er-macro-transformer
|
||||||
(lambda (expr r compare)
|
(lambda (expr r compare)
|
||||||
(if (symbol? (cadr expr))
|
(if (identifier? (cadr expr))
|
||||||
(begin
|
(begin
|
||||||
(define name (cadr expr))
|
(define name (cadr expr))
|
||||||
(define bindings (caddr expr))
|
(define bindings (caddr expr))
|
||||||
|
|
Loading…
Reference in New Issue