www

commit 232127da6f49b694461a14f2f91205c86ed0180d
parent 995926e7357ce6a4b21333fbb6d1943f0a53e105
Author: AlexKnauth <alexander@knauth.org>
Date:   Fri, 13 Jan 2017 16:56:24 -0500

transfer srclocs so that check-syntax arrows work

Diffstat:
M
macrotypes/stx-utils.rkt
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git 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))])))