repair module name resolver

Revert an accidental change in 2d3ee903ec.
This commit is contained in:
Matthew Flatt 2019-04-25 17:19:47 -06:00
parent 2d3ee903ec
commit 05fe76f49a
2 changed files with 1 additions and 3 deletions

View File

@ -536,8 +536,6 @@
[(symbol? s-parsed)
;; Return a genenerated symnol
(make-resolved-module-path
s-parsed
#;
(cons s-parsed subm-path))]
[(not (or (path? s-parsed)
(vector? s-parsed)))

View File

@ -65435,7 +65435,7 @@ static const char *startup_source =
"(path->complete-path(expand-user-path(cadr s_1))(get-dir_0)))))"
"(void))))))))"
"(if(symbol? s-parsed_0)"
"(let-values()(1/make-resolved-module-path s-parsed_0))"
"(let-values()(1/make-resolved-module-path(cons s-parsed_0 subm-path_0)))"
"(if(not"
"(let-values(((or-part_0)(path? s-parsed_0)))"
"(if or-part_0 or-part_0(vector? s-parsed_0))))"