avoid a srcloc from "kw.rkt"

2016-01-15 12:20:47 -07:00 · 2016-01-15 12:20:47 -07:00 · cc4fd16ed5
commit cc4fd16ed5
parent 35ce47d97c
1 changed files with 1 additions and 1 deletions
--- a/racket/collects/racket/private/kw.rkt
+++ b/racket/collects/racket/private/kw.rkt
@ -636,7 +636,7 @@
                       (let ([#,core-id #,impl])
                         (let ([#,unpack-id #,kwimpl])
                           #,wrap))))))
-                 #`(#%expression #,stx)))])
+                 (quasisyntax/loc stx (#%expression #,stx))))])
      (values new-lambda new-lambda)))
  
  (define (missing-kw proc . args)