define-runtime-module-path-index: delay resolution of module path
Since a module path index is being generated, a module path index for the referencing module can be used, too, preserving relative references for as long as possible.
This commit is contained in:
parent
04ce921e8f
commit
e345e44e00
|
@ -140,7 +140,7 @@
|
||||||
(unless (module-path? p)
|
(unless (module-path? p)
|
||||||
(error 'runtime-path "not a module path: ~.s" p))
|
(error 'runtime-path "not a module path: ~.s" p))
|
||||||
(let ([base (and vr
|
(let ([base (and vr
|
||||||
(variable-reference->resolved-module-path vr))])
|
(variable-reference->module-path-index vr))])
|
||||||
(if (and (pair? p)
|
(if (and (pair? p)
|
||||||
(eq? (car p) 'submod)
|
(eq? (car p) 'submod)
|
||||||
(path? (cadr p)))
|
(path? (cadr p)))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user