From 265b777b931825923dc72e964102c9e54e6b1204 Mon Sep 17 00:00:00 2001 From: Daniel Feltey Date: Mon, 3 Aug 2015 16:48:07 -0500 Subject: [PATCH] Fix unit contracts for new expander --- racket/collects/racket/unit.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/collects/racket/unit.rkt b/racket/collects/racket/unit.rkt index 5ab11086a8..0704489c9f 100644 --- 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)