Fixes bug 180895: letrec error message not as helpful as let

2008-01-09 08:37:46 -05:00 · 2008-01-09 08:37:46 -05:00 · 62765c2885
parent fbebc96bfa
commit 62765c2885
2 changed files with 2 additions and 2 deletions
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1333
+1334
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@ -832,7 +832,7 @@
      (syntax-match e ()
        ((_ ((lhs* rhs*) ...) b b* ...)
         (if (not (valid-bound-ids? lhs*))
-             (stx-error e "invalid identifiers")
+             (invalid-fmls-error e lhs*)
             (let ((lex* (map gen-lexical lhs*))
                   (lab* (map gen-label lhs*)))
               (let ((rib (make-full-rib lhs* lab*))