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

Use import-orig-stx instead of import-src-sym when appropriate

Browse Source 
The equivalent, for imports, of commit 66a8436bc1 and PR #3758 for
exports.
This commit is contained in:
Greg Hendershott 2021-04-12 11:02:28 -04:00 committed by Matthew Flatt
parent 6d30ff78c1
commit 5b0f0cee23
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -360,7 +360,13 @@
(quasisyntax/loc in (quasisyntax/loc in
(rename #,(import-src-mod-path import) (rename #,(import-src-mod-path import)
#,(import-local-id import) #,(import-local-id import)
#,(import-src-sym import)))))) #,(if (eq? (syntax-e (import-orig-stx import))
(import-src-sym import))
(import-orig-stx import)
(datum->syntax
#f
(import-src-sym import)
(import-orig-stx import))))))))
imports) imports)
(map (lambda (src) (map (lambda (src)
(mode-wrap (phase+ base-mode (import-source-mode src)) (mode-wrap (phase+ base-mode (import-source-mode src))