From 37494a9c89835520bb58a4e8bae72fc60c34f5ac Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Mon, 13 Jun 2011 16:58:50 -0400 Subject: [PATCH] Fix bad name. original commit: 8c92a32cbba71528730b013a72bd33b8b4d6ed63 --- collects/typed-scheme/base-env/prims.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/typed-scheme/base-env/prims.rkt b/collects/typed-scheme/base-env/prims.rkt index 3d6184eb..78f678a9 100644 --- a/collects/typed-scheme/base-env/prims.rkt +++ b/collects/typed-scheme/base-env/prims.rkt @@ -603,10 +603,11 @@ This file defines two sorts of primitives. All of them are provided into any mod #'a.ty)]))) (define-syntax (define-for*-variants stx) (syntax-parse stx - [(_ (name no-*-name) ...) + [(_ (name no-colon-name) ...) (quasisyntax/loc stx - (begin (define-syntax name (define-for*-variant #'no-*-name)) ...))])) + (begin (define-syntax name (define-for*-variant #'no-colon-name)) + ...))])) (define-for*-variants (for*/list: for*/list) (for*/hash: for*/hash)