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)