From 3a3d17dbb586757d2ca918506bf293cbffabe788 Mon Sep 17 00:00:00 2001 From: Alex Knauth Date: Tue, 28 Jul 2015 09:40:54 -0400 Subject: [PATCH] Fix check-syntax arrows within units --- 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 816935c531..5ab11086a8 100644 --- a/racket/collects/racket/unit.rkt +++ b/racket/collects/racket/unit.rkt @@ -942,7 +942,7 @@ ;; the introduced parts, which we implement by adding the ;; mark to the introduced parts and then flipping it ;; evenrywehere. - (define intro (make-syntax-introducer)) + (define intro (make-syntax-introducer #t)) (with-syntax ((((dept . depr) ...) (map