From 62765c2885e7134df7118f53207195dcd340cec3 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Wed, 9 Jan 2008 08:37:46 -0500 Subject: [PATCH] Fixes bug 180895: letrec error message not as helpful as let --- scheme/last-revision | 2 +- scheme/psyntax.expander.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/last-revision b/scheme/last-revision index 8735ed1..b9e1221 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1333 +1334 diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss index d004a2c..33170fe 100644 --- 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*))