Propagate srcloc information in wrap-expr/c from syntax/contract (#1418)

2016-09-12 15:06:57 -07:00 · 2016-09-12 15:06:57 -07:00 · 6e6056b9b8
commit 6e6056b9b8
parent a01cf359eb
1 changed files with 3 additions and 2 deletions
--- a/racket/collects/syntax/contract.rkt
+++ b/racket/collects/syntax/contract.rkt
@ -56,12 +56,13 @@
                          #:source [source #f])
  (let ([expr-name (or expr-name #'#f)]
        [source (or source #'#f)])
-    #`(contract #,ctc-expr
+    (quasisyntax/loc expr
+      (contract #,ctc-expr
                #,expr
                #,positive
                #,negative
                #,expr-name
-                #,source)))
+                #,source))))

 (define (get-source-expr source ctx)
  (cond [(eq? source 'use-site)