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

Make local-require work with phase shifted require specs

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/racket-test-core/tests/racket/module.rktl
View File

@ -2479,6 +2479,14 @@ case of module-leve bindings; it doesn't cover local bindings.
(dynamic-require ''shouldntvisit 'x)) (dynamic-require ''shouldntvisit 'x))
(begin-for-syntax)) (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) (report-errs)

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

@ -1177,7 +1177,7 @@
(datum->syntax (datum->syntax
(import-orig-stx i) (import-orig-stx i)
(list #'just-meta (list #'just-meta
(import-req-mode i) (import-orig-mode i)
(list #'for-meta (list #'for-meta
(import-mode i) (import-mode i)
(list #'rename (list #'rename