[bugfix] let may take an identifier as a loop name

2013-12-10 03:10:42 -08:00 · 2013-12-10 03:10:42 -08:00 · ae3164643e
parent 79f6f5c034
commit ae3164643e
1 changed files with 1 additions and 1 deletions
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@ -63,7 +63,7 @@
  (define-syntax let
    (er-macro-transformer
     (lambda (expr r compare)
-       (if (symbol? (cadr expr))
+       (if (identifier? (cadr expr))
           (begin
             (define name (cadr expr))
             (define bindings (caddr expr))