transfer srclocs so that check-syntax arrows work

2017-01-13 16:56:24 -05:00 · 2017-01-13 16:56:24 -05:00 · 232127da6f
commit 232127da6f
parent 995926e735
1 changed files with 1 additions and 1 deletions
--- 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))])))