From 38d612dba6be29b5c1647ca1b86124ab83b9dd0a Mon Sep 17 00:00:00 2001 From: Alexis King Date: Thu, 11 Apr 2019 23:04:24 -0500 Subject: [PATCH] local-require: Remove last remaining use of syntax-local-get-shadower --- racket/collects/racket/private/reqprov.rkt | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/racket/collects/racket/private/reqprov.rkt b/racket/collects/racket/private/reqprov.rkt index f327517c49..f62fc13605 100644 --- a/racket/collects/racket/private/reqprov.rkt +++ b/racket/collects/racket/private/reqprov.rkt @@ -1202,9 +1202,7 @@ (list* #'only-meta-in 0 (syntax->list #'(spec ...))) stx))] [(names) (map import-local-id imports)] - [(reqd-names) - (let ([ctx (syntax-local-get-shadower (datum->syntax #f (gensym)))]) - (map (lambda (n) (datum->syntax ctx (syntax-e n) n)) names))] + [(reqd-names) (generate-temporaries names)] [(renamed-imports) (map rename-import imports reqd-names)] [(raw-specs) (map import->raw-require-spec renamed-imports)] [(lifts) (map syntax-local-lift-require raw-specs reqd-names)])