More name-setting fun.

svn: r13807 original commit: 5a1f31668d00469284ba9712078fdd2e854df53c
2009-02-23 22:22:06 +00:00 · 2009-02-23 22:22:06 +00:00 · dd8e3a30af
commit dd8e3a30af
parent 5d478c9aa1
1 changed files with 1 additions and 0 deletions
--- a/collects/mzlib/unit.ss
+++ b/collects/mzlib/unit.ss
@ -1482,6 +1482,7 @@
           (with-syntax ([new-unit exp]
                         [unit-contract
                          (unit/c/core
+                           #'name
                           (syntax/loc stx
                             ((import (import-tagged-sig-id [i.x i.c] ...) ...)
                              (export (export-tagged-sig-id [e.x e.c] ...) ...))))]