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