From 0b86826a0d53ed41ddd4af1203f61f3a44307fa1 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 21 Mar 2008 13:09:45 +0000 Subject: [PATCH] improve rec svn: r9038 original commit: a93dbcb135ddcc0df25eb07d20f287c93e111f93 --- collects/mzlib/etc.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mzlib/etc.ss b/collects/mzlib/etc.ss index dc74cee..8abb437 100644 --- a/collects/mzlib/etc.ss +++ b/collects/mzlib/etc.ss @@ -124,12 +124,12 @@ #`(letrec ((name (lambda (id ...) body ...))) #,(syntax-property #'name 'inferred-name (syntax-e #'name)))] [(rec (name id ... . did) body ...) - (andmap identifier? (syntax->list #'(name id ...))) + (andmap identifier? (syntax->list #'(name did id ...))) #`(letrec ((name (lambda (id ... . did) body ...))) #,(syntax-property #'name 'inferred-name (syntax-e #'name)))] [_ (raise-syntax-error - #f "expects either a variable followed by an expresion, or a (possibly dotted) sequence of variables followed by a body" stx)])) + #f "expects either an identifier followed by an expresion, or a (possibly dotted) sequence of identifiers followed by a body" stx)])) (define-syntax (evcase stx) (syntax-case stx ()