More name-setting fun.
svn: r13807 original commit: 5a1f31668d00469284ba9712078fdd2e854df53c
This commit is contained in:
parent
5d478c9aa1
commit
dd8e3a30af
|
@ -1482,6 +1482,7 @@
|
||||||
(with-syntax ([new-unit exp]
|
(with-syntax ([new-unit exp]
|
||||||
[unit-contract
|
[unit-contract
|
||||||
(unit/c/core
|
(unit/c/core
|
||||||
|
#'name
|
||||||
(syntax/loc stx
|
(syntax/loc stx
|
||||||
((import (import-tagged-sig-id [i.x i.c] ...) ...)
|
((import (import-tagged-sig-id [i.x i.c] ...) ...)
|
||||||
(export (export-tagged-sig-id [e.x e.c] ...) ...))))]
|
(export (export-tagged-sig-id [e.x e.c] ...) ...))))]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user