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

fix src loc for renaming provide

Browse Source
This commit is contained in:
Stephen Chang 2016-07-19 15:53:05 -04:00
parent 562f5f01f6
commit 046f3eef37
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/collects/racket/private/reqprov.rkt
View File

@ -736,8 +736,9 @@
(if (eq? (syntax-e (export-local-id export)) (if (eq? (syntax-e (export-local-id export))
(export-out-sym export)) (export-out-sym export))
(export-local-id export) (export-local-id export)
#`(rename #,(export-local-id export) (quasisyntax/loc out
#,(export-out-sym export)))] (rename #,(export-local-id export)
#,(export-out-sym export))))]
[mode (export-mode export)]) [mode (export-mode export)])
(let ([phased (let ([phased
(cond (cond