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

local-require: Remove last remaining use of syntax-local-get-shadower

Browse Source
This commit is contained in:
Alexis King 2019-04-11 23:04:24 -05:00
parent 701a86b863
commit 38d612dba6
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1202,9 +1202,7 @@
(list* #'only-meta-in 0 (syntax->list #'(spec ...))) (list* #'only-meta-in 0 (syntax->list #'(spec ...)))
stx))] stx))]
[(names) (map import-local-id imports)] [(names) (map import-local-id imports)]
[(reqd-names) [(reqd-names) (generate-temporaries names)]
(let ([ctx (syntax-local-get-shadower (datum->syntax #f (gensym)))])
(map (lambda (n) (datum->syntax ctx (syntax-e n) n)) names))]
[(renamed-imports) (map rename-import imports reqd-names)] [(renamed-imports) (map rename-import imports reqd-names)]
[(raw-specs) (map import->raw-require-spec renamed-imports)] [(raw-specs) (map import->raw-require-spec renamed-imports)]
[(lifts) (map syntax-local-lift-require raw-specs reqd-names)]) [(lifts) (map syntax-local-lift-require raw-specs reqd-names)])