From 6e6056b9b8e87156041f60e197df84f6c3a9ec03 Mon Sep 17 00:00:00 2001
From: Alexis King <lexi.lambda@gmail.com>
Date: Mon, 12 Sep 2016 15:06:57 -0700
Subject: [PATCH] Propagate srcloc information in wrap-expr/c from
 syntax/contract (#1418)

---
 racket/collects/syntax/contract.rkt | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/racket/collects/syntax/contract.rkt b/racket/collects/syntax/contract.rkt
index c72b79c597..1d285a7599 100644
--- 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)