From e5b5747566d7c22296e5d7461d923d004f766dfb Mon Sep 17 00:00:00 2001 From: Alexis King Date: Thu, 19 Apr 2018 15:05:11 -0500 Subject: [PATCH] Make local-require work with phase shifted require specs fixes #2049 --- pkgs/racket-test-core/tests/racket/module.rktl | 8 ++++++++ racket/collects/racket/private/reqprov.rkt | 2 +- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-test-core/tests/racket/module.rktl b/pkgs/racket-test-core/tests/racket/module.rktl index e67724fa96..9ff894b066 100644 --- a/pkgs/racket-test-core/tests/racket/module.rktl +++ b/pkgs/racket-test-core/tests/racket/module.rktl @@ -2479,6 +2479,14 @@ case of module-leve bindings; it doesn't cover local bindings. (dynamic-require ''shouldntvisit 'x)) (begin-for-syntax)) +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Check `local-require` with a phase shift + +(module local-require-with-phase-shift racket/base + (let () + (local-require (for-template racket/base)) + (void))) + ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (report-errs) diff --git a/racket/collects/racket/private/reqprov.rkt b/racket/collects/racket/private/reqprov.rkt index 5c4dfeb5a0..9244b5f5a4 100644 --- a/racket/collects/racket/private/reqprov.rkt +++ b/racket/collects/racket/private/reqprov.rkt @@ -1177,7 +1177,7 @@ (datum->syntax (import-orig-stx i) (list #'just-meta - (import-req-mode i) + (import-orig-mode i) (list #'for-meta (import-mode i) (list #'rename