From 6621bd5b321a4cf78fc4373ee05a121333dc905e Mon Sep 17 00:00:00 2001
From: Asumu Takikawa <asumu@ccs.neu.edu>
Date: Fri, 8 Apr 2016 13:01:13 -0400
Subject: [PATCH] Retain srcloc for match*/early

---
 typed-racket-lib/typed-racket/infer/fail.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/typed-racket-lib/typed-racket/infer/fail.rkt b/typed-racket-lib/typed-racket/infer/fail.rkt
index 13544ac7..ae5f25e1 100644
--- 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