conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

This commit is contained in:
Abdulaziz Ghuloum 2008-01-09 08:37:46 -05:00
parent fbebc96bfa
commit 62765c2885
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1333 1334

2
scheme/psyntax.expander.ss
View File

@ -832,7 +832,7 @@
(syntax-match e () (syntax-match e ()
((_ ((lhs* rhs*) ...) b b* ...) ((_ ((lhs* rhs*) ...) b b* ...)
(if (not (valid-bound-ids? lhs*)) (if (not (valid-bound-ids? lhs*))
(stx-error e "invalid identifiers") (invalid-fmls-error e lhs*)
(let ((lex* (map gen-lexical lhs*)) (let ((lex* (map gen-lexical lhs*))
(lab* (map gen-label lhs*))) (lab* (map gen-label lhs*)))
(let ((rib (make-full-rib lhs* lab*)) (let ((rib (make-full-rib lhs* lab*))