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

Fix scoping of name.

Browse Source 
svn: r13601

original commit: af1e57d33e310e1c70613dc44cb1f40875c2f061
This commit is contained in:
Stevie Strickland 2009-02-15 06:36:00 +00:00
parent 4a5a989efd
commit 3c797943eb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mzlib/unit.ss
View File

@ -1377,7 +1377,8 @@
(check-unit-syntax (check-unit-syntax
(syntax/loc stx (syntax/loc stx
((import i.s ...) (export e.s ...) dep . body))))]) ((import i.s ...) (export e.s ...) dep . body))))])
(with-syntax ([(import-tagged-sig-id ...) (with-syntax ([name (syntax-local-infer-name (error-syntax))]
[(import-tagged-sig-id ...)
(map (λ (i s) (map (λ (i s)
(if (identifier? i) #`(tag #,i #,s) s)) (if (identifier? i) #`(tag #,i #,s) s))
(syntax->list #'(i.s.i ...)) (syntax->list #'(i.s.i ...))
@ -1387,8 +1388,7 @@
(if (identifier? i) #`(tag #,i #,s) s)) (if (identifier? i) #`(tag #,i #,s) s))
(syntax->list #'(e.s.i ...)) (syntax->list #'(e.s.i ...))
(syntax->list #'(e.s.s.name ...)))]) (syntax->list #'(e.s.s.name ...)))])
(with-syntax ([name (syntax-local-infer-name (error-syntax))] (with-syntax ([new-unit exp]
[new-unit exp]
[unit-contract [unit-contract
(unit/c/core (unit/c/core
(syntax/loc stx (syntax/loc stx