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:
Matthew Flatt 2015-02-27 12:26:19 -07:00
parent 04ce921e8f
commit e345e44e00

View File

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