fix syntax error source location for define/contract

closes #1561
2017-01-04 16:53:01 -06:00 · 2017-01-04 16:53:01 -06:00 · ba060131d1
commit ba060131d1
parent 057ab0c5ff
1 changed files with 3 additions and 1 deletions
--- 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