suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

repair module name resolver

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/expander/boot/handler.rkt
View File

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

2
racket/src/racket/src/startup.inc
View File

@ -65435,7 +65435,7 @@ static const char *startup_source =
"(path->complete-path(expand-user-path(cadr s_1))(get-dir_0)))))" "(path->complete-path(expand-user-path(cadr s_1))(get-dir_0)))))"
"(void))))))))" "(void))))))))"
"(if(symbol? s-parsed_0)" "(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" "(if(not"
"(let-values(((or-part_0)(path? s-parsed_0)))" "(let-values(((or-part_0)(path? s-parsed_0)))"
"(if or-part_0 or-part_0(vector? s-parsed_0))))" "(if or-part_0 or-part_0(vector? s-parsed_0))))"