namespace-attach-module: fix namespace for declaration callback
This commit is contained in:
parent
f691d4b68c
commit
654e846720
|
@ -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)
|
||||
|
|
|
@ -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"
|
||||
|
|
Loading…
Reference in New Issue
Block a user