Retain srcloc for match*/early

2016-04-08 13:01:13 -04:00 · 2016-04-08 13:01:13 -04:00 · 6621bd5b32
commit 6621bd5b32
parent f9c5a534d0
1 changed files with 1 additions and 1 deletions
--- a/typed-racket-lib/typed-racket/infer/fail.rkt
+++ b/typed-racket-lib/typed-racket/infer/fail.rkt
@ -14,7 +14,7 @@
             #'((early-return rhs ...))))
 (syntax-parse stx
  [(_ e [c . r:rhs] ...)
-   #'(match* e [c . r.r] ...)]))
+   (syntax/loc stx (match* e [c . r.r] ...))]))

 (begin-for-syntax
  (define-splicing-syntax-class arg