Fix bug in LET* after the recent syntax reorganization.
authorTaylor R Campbell <campbell@mumble.net>
Sun, 20 Sep 2009 21:32:37 +0000 (17:32 -0400)
committerTaylor R Campbell <campbell@mumble.net>
Sun, 20 Sep 2009 21:32:37 +0000 (17:32 -0400)
src/runtime/mit-macros.scm

index 97578338f1d9fba1edb7f7296b8d6f864d35504a..16bea007e045bad0a14441d9dbaf563199116608 100644 (file)
@@ -196,13 +196,13 @@ USA.
   (er-macro-transformer
    (lambda (form rename compare)
      rename compare                    ;ignore
-     (expand/let* form keyword:let))))
+     (expand/let* form (rename 'LET)))))
 
 (define-syntax :let*-syntax
   (er-macro-transformer
    (lambda (form rename compare)
      rename compare                    ;ignore
-     (expand/let* form keyword:let-syntax))))
+     (expand/let* form (rename 'LET-SYNTAX)))))
 
 (define (expand/let* form let-keyword)
   (syntax-check '(KEYWORD (* DATUM) + FORM) form)