From 232127da6f49b694461a14f2f91205c86ed0180d Mon Sep 17 00:00:00 2001
From: AlexKnauth <alexander@knauth.org>
Date: Fri, 13 Jan 2017 16:56:24 -0500
Subject: [PATCH] transfer srclocs so that check-syntax arrows work

---
 macrotypes/stx-utils.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/macrotypes/stx-utils.rkt b/macrotypes/stx-utils.rkt
index 7305cb4..bc8fe33 100644
--- a/macrotypes/stx-utils.rkt
+++ b/macrotypes/stx-utils.rkt
@@ -117,7 +117,7 @@
     (syntax-case stx ()
       [id
        (identifier? #'id)
-       ref-stx]
+       (replace-stx-loc ref-stx stx)]
       [(id . args)
        (let ([stx* (list* '#%app #'id (cdr (syntax-e stx)))])
          (datum->syntax stx stx* stx stx))])))