Make local-require work with phase shifted require specs

fixes #2049
This commit is contained in:
Alexis King 2018-04-19 15:05:11 -05:00
parent 5de19e593b
commit e5b5747566
2 changed files with 9 additions and 1 deletions

View File

@ -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)

View File

@ -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