suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

avoid a srcloc from "kw.rkt"

Browse Source
This commit is contained in:
Matthew Flatt 2016-01-15 12:20:47 -07:00
parent 35ce47d97c
commit cc4fd16ed5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/racket/private/kw.rkt
View File

@ -636,7 +636,7 @@
(let ([#,core-id #,impl]) (let ([#,core-id #,impl])
(let ([#,unpack-id #,kwimpl]) (let ([#,unpack-id #,kwimpl])
#,wrap)))))) #,wrap))))))
#`(#%expression #,stx)))]) (quasisyntax/loc stx (#%expression #,stx))))])
(values new-lambda new-lambda))) (values new-lambda new-lambda)))
(define (missing-kw proc . args) (define (missing-kw proc . args)