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

expander: re-fix namespace-require/copy

Browse Source 
The previous repair shifted by the wrong dimension.
This commit is contained in:
Matthew Flatt 2019-10-05 19:57:20 -06:00
parent 52f6098de8
commit 9bb5bc9352
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/expander/expand/require.rkt
View File

@ -472,7 +472,7 @@
(define i-ns (namespace->module-namespace m-ns (define i-ns (namespace->module-namespace m-ns
(module-path-index-resolve (module-binding-module binding)) (module-path-index-resolve (module-binding-module binding))
(phase+ (phase- (module-binding-phase binding) phase-level) (phase+ (phase- (module-binding-phase binding) phase-level)
phase-shift) (namespace-phase m-ns))
#:complain-on-failure? #t)) #:complain-on-failure? #t))
(define val (namespace-get-variable i-ns (module-binding-phase binding) (module-binding-sym binding) (define val (namespace-get-variable i-ns (module-binding-phase binding) (module-binding-sym binding)
(lambda () (error 'namespace-require/copy (lambda () (error 'namespace-require/copy

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

@ -28685,7 +28685,9 @@ static const char *startup_source =
"(let-values(((m-ns335_0) m-ns_0)" "(let-values(((m-ns335_0) m-ns_0)"
"((temp336_0)(1/module-path-index-resolve(module-binding-module binding_0)))" "((temp336_0)(1/module-path-index-resolve(module-binding-module binding_0)))"
"((temp337_0)" "((temp337_0)"
"(phase+(phase-(module-binding-phase binding_0) phase-level_0) phase-shift_0))" "(phase+"
"(phase-(module-binding-phase binding_0) phase-level_0)"
"(namespace-phase m-ns_0)))"
"((temp338_0) #t))" "((temp338_0) #t))"
"(namespace->module-namespace82.1 #f temp338_0 unsafe-undefined m-ns335_0 temp336_0 temp337_0))))" "(namespace->module-namespace82.1 #f temp338_0 unsafe-undefined m-ns335_0 temp336_0 temp337_0))))"
"(let-values(((val_0)" "(let-values(((val_0)"