From ba060131d1349d5648fd3559ff2101641f0a94a2 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 4 Jan 2017 16:53:01 -0600
Subject: [PATCH] fix syntax error source location for define/contract

closes #1561
---
 racket/collects/racket/contract/region.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/racket/collects/racket/contract/region.rkt b/racket/collects/racket/contract/region.rkt
index 847a55b7ab..28b9139407 100644
--- a/racket/collects/racket/contract/region.rkt
+++ b/racket/collects/racket/contract/region.rkt
@@ -91,7 +91,9 @@
     [(_ name:id contract fv:fvs body0 body ...)
      (raise-syntax-error 'define/contract
                          "multiple expressions after identifier and contract"
-                         #'(body ...))]
+                         define-stx
+                         #'body0
+                         (syntax->list #'(body ...)))]
     [(_ name+arg-list contract fv:fvs body0 body ...)
      (let-values ([(name body-expr)
                    (normalize-definition