Fix check-syntax arrows within units

This commit is contained in:
Alex Knauth 2015-07-28 09:40:54 -04:00 committed by Matthew Flatt
parent 496cd97351
commit 3a3d17dbb5

View File

@ -942,7 +942,7 @@
;; the introduced parts, which we implement by adding the ;; the introduced parts, which we implement by adding the
;; mark to the introduced parts and then flipping it ;; mark to the introduced parts and then flipping it
;; evenrywehere. ;; evenrywehere.
(define intro (make-syntax-introducer)) (define intro (make-syntax-introducer #t))
(with-syntax ((((dept . depr) ...) (with-syntax ((((dept . depr) ...)
(map (map