suzanne.soy/typed-racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix bad name.

Browse Source 
original commit: 8c92a32cbba71528730b013a72bd33b8b4d6ed63
This commit is contained in:
Vincent St-Amour 2011-06-13 16:58:50 -04:00
parent c31b879cc0
commit 37494a9c89
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/typed-scheme/base-env/prims.rkt
View File

@ -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)