From cc4fd16ed52bf6a503ad8cb54118e56a22d9646c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 15 Jan 2016 12:20:47 -0700 Subject: [PATCH] avoid a srcloc from "kw.rkt" --- racket/collects/racket/private/kw.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/collects/racket/private/kw.rkt b/racket/collects/racket/private/kw.rkt index ef3a2f9ebc..486bbe1bb9 100644 --- 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)