Fix unit contracts for new expander

2015-08-03 16:48:07 -05:00 · 2015-08-03 16:48:07 -05:00 · 265b777b93
commit 265b777b93
parent bf76ced8ba
1 changed files with 1 additions and 1 deletions
--- a/racket/collects/racket/unit.rkt
+++ b/racket/collects/racket/unit.rkt
@ -494,7 +494,7 @@
                                                  (car opt-cname)
                                                  opt-cname)]
                                   [extra-make? #f]
-                                   [else (car (generate-temporaries #'(name)))])]
+                                   [else  ((make-syntax-introducer) #'name)])]
                     [(cname) (cond
                               [opt-cname (if (pair? opt-cname)
                                              (cons def-cname #'name)