namespace-attach-module: fix namespace for declaration callback

This commit is contained in:
Matthew Flatt 2018-02-27 06:46:55 -07:00
parent f691d4b68c
commit 654e846720
2 changed files with 12 additions and 2 deletions

View File

@ -138,7 +138,8 @@
[(phase m-ns) (in-hash phases)])
(define m (namespace->module src-namespace mod-name))
(module-force-bulk-binding! m src-namespace)
(declare-module! dest-namespace m mod-name)
(parameterize ([current-namespace dest-namespace])
(declare-module! dest-namespace m mod-name))
(when m-ns
(namespace-record-module-instance-attached! src-namespace mod-name phase)
(or (namespace->module-namespace dest-namespace mod-name phase)

View File

@ -42241,6 +42241,15 @@ static const char *startup_source =
"(module-force-bulk-binding!"
" m_21"
" src-namespace_6)"
"(with-continuation-mark"
" parameterization-key"
"(extend-parameterization"
"(continuation-mark-set-first"
" #f"
" parameterization-key)"
" 1/current-namespace"
" dest-namespace_2)"
"(let-values()"
"(let-values(((dest-namespace44_0)"
" dest-namespace_2)"
"((m45_0)"
@ -42252,7 +42261,7 @@ static const char *startup_source =
" #f"
" dest-namespace44_0"
" m45_0"
" mod-name46_0))"
" mod-name46_0))))"
"(if m-ns_15"
"(let-values()"
"(begin"