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

Mark a few more simple expressions as immediate-default?.

Browse Source 
This reduces the number of `unsafe-undefined` uses in the flattened
expander by about 10% (682 -> 611).
This commit is contained in:
Sam Tobin-Hochstadt 2020-05-13 16:52:33 -04:00
parent 84f9126f77
commit dfa86ebdee
2 changed files with 76 additions and 109 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/collects/racket/private/immediate-default.rkt
View File

@ -12,8 +12,8 @@
;; <immediate-default> = <immediate-literal> [*] ;; <immediate-default> = <immediate-literal> [*]
;; | '<immediate-literal> ;; | '<immediate-literal>
;; | '<id> | '() ;; | '<id> | '()
;; | (void) | null | eof ;; | (void) | void | null | eof
;; <immediate-literal> = #t | #f | <number> | <char> ;; <immediate-literal> = #t | #f | <number> | <char> | #hash{eq,eqv,}()
;; | <small-string> | <small-byte-string> ;; | <small-string> | <small-byte-string>
;; ;;
;; where the plain <immediate-literal> [*] possibility matches only ;; where the plain <immediate-literal> [*] possibility matches only
@ -26,6 +26,7 @@
(or (boolean? v) (or (boolean? v)
(number? v) (number? v)
(char? v) (char? v)
(and (hash? v) (= 0 (hash-count v)))
(and (string? v) (and (string? v)
((string-length v) . < . 8)) ((string-length v) . < . 8))
(and (bytes? v) (and (bytes? v)
@ -40,6 +41,7 @@
(null? v) (null? v)
(immediate-literal? v)))] (immediate-literal? v)))]
[(void) #t] [(void) #t]
[void #t]
[null #t] [null #t]
[eof #t] [eof #t]
[_ #f]))))) [_ #f])))))

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

@ -13891,14 +13891,8 @@ static const char *startup_source =
"(let-values(((min-phase-level_0) min-phase-level7_0))" "(let-values(((min-phase-level_0) min-phase-level7_0))"
"(let-values(((max-phase-level_0) max-phase-level8_0))" "(let-values(((max-phase-level_0) max-phase-level8_0))"
"(let-values(((instantiate-phase_0) instantiate-phase-callback9_0))" "(let-values(((instantiate-phase_0) instantiate-phase-callback9_0))"
"(let-values(((force-bulk-binding_0)" "(let-values(((force-bulk-binding_0) force-bulk-binding-callback10_0))"
"(if(eq? force-bulk-binding-callback10_0 unsafe-undefined)" "(let-values(((prepare-instance_0) prepare-instance-callback11_0))"
" void"
" force-bulk-binding-callback10_0)))"
"(let-values(((prepare-instance_0)"
"(if(eq? prepare-instance-callback11_0 unsafe-undefined)"
" void"
" prepare-instance-callback11_0)))"
"(let-values(((phase-level-linklet-info-callback_0)" "(let-values(((phase-level-linklet-info-callback_0)"
"(if(eq? phase-level-linklet-info-callback12_0 unsafe-undefined)" "(if(eq? phase-level-linklet-info-callback12_0 unsafe-undefined)"
"(lambda(phase-level_0 ns_0 insp_0)" "(lambda(phase-level_0 ns_0 insp_0)"
@ -14065,13 +14059,7 @@ static const char *startup_source =
"(let-values(((ns137_0) ns_0)" "(let-values(((ns137_0) ns_0)"
"((mod-name138_0) mod-name_0)" "((mod-name138_0) mod-name_0)"
"((temp139_0)(namespace-phase ns_0)))" "((temp139_0)(namespace-phase ns_0)))"
"(namespace->module-instance.1" "(namespace->module-instance.1 #f #f void ns137_0 mod-name138_0 temp139_0))"
" #f"
" #f"
" unsafe-undefined"
" ns137_0"
" mod-name138_0"
" temp139_0))"
" #f)" " #f)"
" #f)))" " #f)))"
"(begin" "(begin"
@ -14120,7 +14108,7 @@ static const char *startup_source =
"(namespace-module-instantiate!.1" "(namespace-module-instantiate!.1"
" #t" " #t"
" unsafe-undefined" " unsafe-undefined"
" unsafe-undefined" " '#hasheq()"
" #f" " #f"
" ns143_0" " ns143_0"
" temp144_0" " temp144_0"
@ -14172,8 +14160,7 @@ static const char *startup_source =
"(let-values(((0-phase_0) 0-phase63_0))" "(let-values(((0-phase_0) 0-phase63_0))"
"(let-values(((complain-on-failure?_0) complain-on-failure?55_0))" "(let-values(((complain-on-failure?_0) complain-on-failure?55_0))"
"(let-values(((check-available-at-phase-level_0) check-available-at-phase-level56_0))" "(let-values(((check-available-at-phase-level_0) check-available-at-phase-level56_0))"
"(let-values(((unavailable-callback_0)" "(let-values(((unavailable-callback_0) unavailable-callback57_0))"
"(if(eq? unavailable-callback57_0 unsafe-undefined) void unavailable-callback57_0)))"
"(let-values()" "(let-values()"
"(let-values(((mi_0)" "(let-values(((mi_0)"
"(let-values(((or-part_0)" "(let-values(((or-part_0)"
@ -14359,8 +14346,7 @@ static const char *startup_source =
"(let-values(((0-phase_0) 0-phase73_0))" "(let-values(((0-phase_0) 0-phase73_0))"
"(let-values(((complain-on-failure?_0) complain-on-failure?65_0))" "(let-values(((complain-on-failure?_0) complain-on-failure?65_0))"
"(let-values(((check-available-at-phase-level_0) check-available-at-phase-level66_0))" "(let-values(((check-available-at-phase-level_0) check-available-at-phase-level66_0))"
"(let-values(((unavailable-callback_0)" "(let-values(((unavailable-callback_0) unavailable-callback67_0))"
"(if(eq? unavailable-callback67_0 unsafe-undefined) void unavailable-callback67_0)))"
"(let-values()" "(let-values()"
"(let-values(((mi_0)" "(let-values(((mi_0)"
"(let-values(((ns164_0) ns_0)" "(let-values(((ns164_0) ns_0)"
@ -14383,7 +14369,7 @@ static const char *startup_source =
"(begin" "(begin"
"(let-values(((mi_0)" "(let-values(((mi_0)"
"(let-values(((ns170_0) ns_0)((mod-name171_0) mod-name_0)((phase172_0) phase_0))" "(let-values(((ns170_0) ns_0)((mod-name171_0) mod-name_0)((phase172_0) phase_0))"
"(namespace->module-instance.1 #f #f unsafe-undefined ns170_0 mod-name171_0 phase172_0))))" "(namespace->module-instance.1 #f #f void ns170_0 mod-name171_0 phase172_0))))"
"(set-module-instance-attached?! mi_0 #t)))))" "(set-module-instance-attached?! mi_0 #t)))))"
"(define-values" "(define-values"
"(module-force-bulk-binding!)" "(module-force-bulk-binding!)"
@ -14399,7 +14385,7 @@ static const char *startup_source =
"(let-values(((run-phase_0)(if(eq? run-phase75_0 unsafe-undefined)(namespace-phase ns_0) run-phase75_0)))" "(let-values(((run-phase_0)(if(eq? run-phase75_0 unsafe-undefined)(namespace-phase ns_0) run-phase75_0)))"
"(let-values(((skip-run?_0) skip-run?76_0))" "(let-values(((skip-run?_0) skip-run?76_0))"
"(let-values(((otherwise-available?_0) otherwise-available?77_0))" "(let-values(((otherwise-available?_0) otherwise-available?77_0))"
"(let-values(((seen_0)(if(eq? seen78_0 unsafe-undefined) '#hasheq() seen78_0)))" "(let-values(((seen_0) seen78_0))"
"(let-values()" "(let-values()"
"(let-values((()" "(let-values((()"
"(begin" "(begin"
@ -14428,7 +14414,7 @@ static const char *startup_source =
"(namespace->module-instance.1" "(namespace->module-instance.1"
" #f" " #f"
" #f" " #f"
" unsafe-undefined" " void"
" ns179_0" " ns179_0"
" name180_0" " name180_0"
" instance-phase181_0))))" " instance-phase181_0))))"
@ -14479,7 +14465,7 @@ static const char *startup_source =
"(namespace-module-instantiate!.1" "(namespace-module-instantiate!.1"
" #t" " #t"
" temp185_0" " temp185_0"
" unsafe-undefined" " '#hasheq()"
" #f" " #f"
" ns182_0" " ns182_0"
" mpi183_0" " mpi183_0"
@ -14503,7 +14489,7 @@ static const char *startup_source =
"(namespace-module-instantiate!.1" "(namespace-module-instantiate!.1"
" #t" " #t"
" temp189_0" " temp189_0"
" unsafe-undefined" " '#hasheq()"
" temp190_0" " temp190_0"
" ns186_0" " ns186_0"
" mpi187_0" " mpi187_0"
@ -14518,7 +14504,7 @@ static const char *startup_source =
"(let-values(((run-phase_0) run-phase99_0))" "(let-values(((run-phase_0) run-phase99_0))"
"(let-values(((skip-run?_0) skip-run?100_0))" "(let-values(((skip-run?_0) skip-run?100_0))"
"(let-values(((otherwise-available?_0) otherwise-available?101_0))" "(let-values(((otherwise-available?_0) otherwise-available?101_0))"
"(let-values(((seen_0)(if(eq? seen102_0 unsafe-undefined) '#hasheq() seen102_0)))" "(let-values(((seen_0) seen102_0))"
"(let-values()" "(let-values()"
"(begin" "(begin"
"(if log-performance?(let-values()(start-performance-region 'eval 'requires))(void))" "(if log-performance?(let-values()(start-performance-region 'eval 'requires))(void))"
@ -14966,7 +14952,7 @@ static const char *startup_source =
"(run-module-instance!.1" "(run-module-instance!.1"
" temp202_0" " temp202_0"
" run-phase200_0" " run-phase200_0"
" unsafe-undefined" " '#hasheq()"
" temp201_0" " temp201_0"
" mi198_0" " mi198_0"
" ns199_0)))" " ns199_0)))"
@ -14990,7 +14976,7 @@ static const char *startup_source =
"(begin" "(begin"
"(let-values(((mi_0)(hash-ref(namespace-module-instances ns_0)(1/make-resolved-module-path name_0))))" "(let-values(((mi_0)(hash-ref(namespace-module-instances ns_0)(1/make-resolved-module-path name_0))))"
"(let-values(((mi203_0) mi_0)((ns204_0) ns_0)((temp205_0) 1)((temp206_0) #f)((temp207_0) #t))" "(let-values(((mi203_0) mi_0)((ns204_0) ns_0)((temp205_0) 1)((temp206_0) #f)((temp207_0) #t))"
"(run-module-instance!.1 temp207_0 temp205_0 unsafe-undefined temp206_0 mi203_0 ns204_0))))))" "(run-module-instance!.1 temp207_0 temp205_0 '#hasheq() temp206_0 mi203_0 ns204_0))))))"
"(define-values" "(define-values"
"(namespace-module-use->module+linklet-instances.1)" "(namespace-module-use->module+linklet-instances.1)"
"(lambda(phase-shift116_0 shift-from114_0 shift-to115_0 ns120_0 mu121_0)" "(lambda(phase-shift116_0 shift-from114_0 shift-to115_0 ns120_0 mu121_0)"
@ -15015,7 +15001,7 @@ static const char *startup_source =
"(namespace->module-instance.1" "(namespace->module-instance.1"
" #f" " #f"
" temp211_0" " temp211_0"
" unsafe-undefined" " void"
" ns208_0" " ns208_0"
" temp209_0" " temp209_0"
" phase-shift210_0))))" " phase-shift210_0))))"
@ -16608,7 +16594,7 @@ static const char *startup_source =
"(namespace->module-namespace.1" "(namespace->module-namespace.1"
" #f" " #f"
" #f" " #f"
" unsafe-undefined" " void"
" ns20_0" " ns20_0"
" core-module-name21_0" " core-module-name21_0"
" temp22_0))))" " temp22_0))))"
@ -16699,7 +16685,7 @@ static const char *startup_source =
"(let-values()(void)))))))" "(let-values()(void)))))))"
"(make-module.1" "(make-module.1"
" temp10_0" " temp10_0"
" unsafe-undefined" " void"
" unsafe-undefined" " unsafe-undefined"
" temp16_0" " temp16_0"
" #f" " #f"
@ -16708,7 +16694,7 @@ static const char *startup_source =
" temp11_0" " temp11_0"
" temp15_0" " temp15_0"
" temp12_0" " temp12_0"
" unsafe-undefined" " void"
" #f" " #f"
" temp14_0" " temp14_0"
" null" " null"
@ -24641,8 +24627,7 @@ static const char *startup_source =
" 'module-path->mpi" " 'module-path->mpi"
"(let-values(((mod-path_0) mod-path3_0))" "(let-values(((mod-path_0) mod-path3_0))"
"(let-values(((self_0) self4_0))" "(let-values(((self_0) self4_0))"
"(let-values(((declared-submodule-names_0)" "(let-values(((declared-submodule-names_0) declared-submodule-names1_0))"
"(if(eq? declared-submodule-names1_0 unsafe-undefined) '#hasheq() declared-submodule-names1_0)))"
"(let-values()" "(let-values()"
"(if(if(list? mod-path_0)" "(if(if(list? mod-path_0)"
"(if(= 2(length mod-path_0))" "(if(= 2(length mod-path_0))"
@ -26398,10 +26383,7 @@ static const char *startup_source =
"(if(eq? run-phase6_0 unsafe-undefined)(namespace-phase m-ns_0) run-phase6_0)))" "(if(eq? run-phase6_0 unsafe-undefined)(namespace-phase m-ns_0) run-phase6_0)))"
"(let-values(((run?_0) run?7_0))" "(let-values(((run?_0) run?7_0))"
"(let-values(((visit?_0) visit?8_0))" "(let-values(((visit?_0) visit?8_0))"
"(let-values(((declared-submodule-names_0)" "(let-values(((declared-submodule-names_0) declared-submodule-names9_0))"
"(if(eq? declared-submodule-names9_0 unsafe-undefined)"
" '#hasheq()"
" declared-submodule-names9_0)))"
"(let-values(((copy-variable-phase-level_0) copy-variable-phase-level10_0))" "(let-values(((copy-variable-phase-level_0) copy-variable-phase-level10_0))"
"(let-values(((copy-variable-as-constant?_0) copy-variable-as-constant?11_0))" "(let-values(((copy-variable-as-constant?_0) copy-variable-as-constant?11_0))"
"(let-values(((skip-variable-phase-level_0) skip-variable-phase-level12_0))" "(let-values(((skip-variable-phase-level_0) skip-variable-phase-level12_0))"
@ -28060,7 +28042,7 @@ static const char *startup_source =
"(let-values()" "(let-values()"
"(let-values(((temp211_0)" "(let-values(((temp211_0)"
"(let-values(((mod-path223_0) mod-path_0)((self224_0) self_0))" "(let-values(((mod-path223_0) mod-path_0)((self224_0) self_0))"
"(module-path->mpi.1 unsafe-undefined mod-path223_0 self224_0)))" "(module-path->mpi.1 '#hasheq() mod-path223_0 self224_0)))"
"((temp212_0) #f)" "((temp212_0) #f)"
"((self213_0) self_0)" "((self213_0) self_0)"
"((in-stx214_0) in-stx_0)" "((in-stx214_0) in-stx_0)"
@ -28198,7 +28180,7 @@ static const char *startup_source =
"(namespace-module-instantiate!.1" "(namespace-module-instantiate!.1"
" #t" " #t"
" run-phase248_0" " run-phase248_0"
" unsafe-undefined" " '#hasheq()"
" #f" " #f"
" m-ns245_0" " m-ns245_0"
" interned-mpi246_0" " interned-mpi246_0"
@ -29274,7 +29256,7 @@ static const char *startup_source =
"(phase-(module-binding-phase binding_0) phase-level_0)" "(phase-(module-binding-phase binding_0) phase-level_0)"
"(namespace-phase m-ns_0)))" "(namespace-phase m-ns_0)))"
"((temp328_0) #t))" "((temp328_0) #t))"
"(namespace->module-namespace.1 #f temp328_0 unsafe-undefined m-ns325_0 temp326_0 temp327_0))))" "(namespace->module-namespace.1 #f temp328_0 void m-ns325_0 temp326_0 temp327_0))))"
"(let-values(((val_0)" "(let-values(((val_0)"
"(namespace-get-variable" "(namespace-get-variable"
" i-ns_0" " i-ns_0"
@ -29341,7 +29323,7 @@ static const char *startup_source =
"(parse-and-perform-requires!.1" "(parse-and-perform-requires!.1"
" #f" " #f"
" #f" " #f"
" unsafe-undefined" " '#hasheq()"
" temp17_0" " temp17_0"
" unsafe-undefined" " unsafe-undefined"
" temp8_0" " temp8_0"
@ -32356,16 +32338,9 @@ static const char *startup_source =
"(let-values(((force-phases_0) force-phases5_0))" "(let-values(((force-phases_0) force-phases5_0))"
"(let-values(((encoded-root-expand-ctx-box_0) encoded-root-expand-ctx-box6_0))" "(let-values(((encoded-root-expand-ctx-box_0) encoded-root-expand-ctx-box6_0))"
"(let-values(((root-ctx-only-if-syntax?_0) root-ctx-only-if-syntax?7_0))" "(let-values(((root-ctx-only-if-syntax?_0) root-ctx-only-if-syntax?7_0))"
"(let-values(((compiled-expression-callback_0)" "(let-values(((compiled-expression-callback_0) compiled-expression-callback8_0))"
"(if(eq? compiled-expression-callback8_0 unsafe-undefined)" "(let-values(((definition-callback_0) definition-callback9_0))"
" void" "(let-values(((other-form-callback_0) other-form-callback10_0))"
" compiled-expression-callback8_0)))"
"(let-values(((definition-callback_0)"
"(if(eq? definition-callback9_0 unsafe-undefined) void definition-callback9_0)))"
"(let-values(((other-form-callback_0)"
"(if(eq? other-form-callback10_0 unsafe-undefined)"
" void"
" other-form-callback10_0)))"
"(let-values(((get-module-linklet-info_0)" "(let-values(((get-module-linklet-info_0)"
"(if(eq? get-module-linklet-info11_0 unsafe-undefined)" "(if(eq? get-module-linklet-info11_0 unsafe-undefined)"
"(lambda(mod-name_0 p_0)(begin 'get-module-linklet-info #f))" "(lambda(mod-name_0 p_0)(begin 'get-module-linklet-info #f))"
@ -34629,8 +34604,8 @@ static const char *startup_source =
" 'any-side-effects?" " 'any-side-effects?"
"(let-values(((e_0) e7_0))" "(let-values(((e_0) e7_0))"
"(let-values(((expected-results_0) expected-results8_0))" "(let-values(((expected-results_0) expected-results8_0))"
"(let-values(((locals_0)(if(eq? known-locals1_0 unsafe-undefined) '#hasheq() known-locals1_0)))" "(let-values(((locals_0) known-locals1_0))"
"(let-values(((defns_0)(if(eq? known-defns2_0 unsafe-undefined) '#hasheq() known-defns2_0)))" "(let-values(((defns_0) known-defns2_0))"
"(let-values(((ready-variable?_0)" "(let-values(((ready-variable?_0)"
"(if(eq? ready-variable?3_0 unsafe-undefined)" "(if(eq? ready-variable?3_0 unsafe-undefined)"
"(lambda(id_0)(begin 'ready-variable? #f))" "(lambda(id_0)(begin 'ready-variable? #f))"
@ -36736,7 +36711,7 @@ static const char *startup_source =
"(lambda(v_0)" "(lambda(v_0)"
"(not" "(not"
"(let-values(((v101_0) v_0)((temp102_0) 1)((defns103_0) defns_0))" "(let-values(((v101_0) v_0)((temp102_0) 1)((defns103_0) defns_0))"
"(any-side-effects?.1 defns103_0 unsafe-undefined unsafe-undefined v101_0 temp102_0)))))))" "(any-side-effects?.1 defns103_0 '#hasheq() unsafe-undefined v101_0 temp102_0)))))))"
"(begin" "(begin"
"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_0)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_0)))"
"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_1)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_1)))"
@ -36840,7 +36815,7 @@ static const char *startup_source =
" defns_0))" " defns_0))"
"(any-side-effects?.1" "(any-side-effects?.1"
" defns106_0" " defns106_0"
" unsafe-undefined" " '#hasheq()"
" unsafe-undefined" " unsafe-undefined"
" temp104_0" " temp104_0"
" temp105_0)))" " temp105_0)))"
@ -36928,7 +36903,7 @@ static const char *startup_source =
"((defns110_0) defns_0))" "((defns110_0) defns_0))"
"(any-side-effects?.1" "(any-side-effects?.1"
" defns110_0" " defns110_0"
" unsafe-undefined" " '#hasheq()"
" ready-variable?109_0" " ready-variable?109_0"
" v107_0" " v107_0"
" temp108_0))))" " temp108_0))))"
@ -37144,12 +37119,7 @@ static const char *startup_source =
"(let-values()" "(let-values()"
"(not" "(not"
"(let-values(((val-expr111_0) val-expr_0)((temp112_0) 1)((defns113_0) defns_0))" "(let-values(((val-expr111_0) val-expr_0)((temp112_0) 1)((defns113_0) defns_0))"
"(any-side-effects?.1" "(any-side-effects?.1 defns113_0 '#hasheq() unsafe-undefined val-expr111_0 temp112_0))))"
" defns113_0"
" unsafe-undefined"
" unsafe-undefined"
" val-expr111_0"
" temp112_0))))"
"(if(known-property-of-function? o_0)" "(if(known-property-of-function? o_0)"
"(let-values()(is-lambda? val-expr_0(known-property-of-function-arity o_0) defns_0))" "(let-values()(is-lambda? val-expr_0(known-property-of-function-arity o_0) defns_0))"
"(let-values() #f))))))))))))))" "(let-values() #f))))))))))))))"
@ -37371,8 +37341,8 @@ static const char *startup_source =
"((required-reference?27_0)" "((required-reference?27_0)"
" required-reference?_0))" " required-reference?_0))"
"(any-side-effects?.1" "(any-side-effects?.1"
" unsafe-undefined" " '#hasheq()"
" unsafe-undefined" " '#hasheq()"
" required-reference?27_0" " required-reference?27_0"
" e25_0" " e25_0"
" expected-results26_0))" " expected-results26_0))"
@ -40191,8 +40161,8 @@ static const char *startup_source =
"((required-reference?56_0)" "((required-reference?56_0)"
" required-reference?_0))" " required-reference?_0))"
"(any-side-effects?.1" "(any-side-effects?.1"
" unsafe-undefined" " '#hasheq()"
" unsafe-undefined" " '#hasheq()"
" required-reference?56_0" " required-reference?56_0"
" e54_0" " e54_0"
" expected-results55_0))" " expected-results55_0))"
@ -40397,7 +40367,7 @@ static const char *startup_source =
" temp60_0" " temp60_0"
" temp62_0" " temp62_0"
" check-side-effects!66_0" " check-side-effects!66_0"
" unsafe-undefined" " void"
" encoded-root-expand-ctx-box64_0" " encoded-root-expand-ctx-box64_0"
" temp63_0" " temp63_0"
" temp68_0" " temp68_0"
@ -42534,7 +42504,7 @@ static const char *startup_source =
"(let-values(((ns1_0) ns_0)" "(let-values(((ns1_0) ns_0)"
"((temp2_0)(1/module-path-index-resolve(module-binding-module b_0)))" "((temp2_0)(1/module-path-index-resolve(module-binding-module b_0)))"
"((temp3_0)(phase-(namespace-phase ns_0)(module-binding-phase b_0))))" "((temp3_0)(phase-(namespace-phase ns_0)(module-binding-phase b_0))))"
"(namespace->module-instance.1 #f #f unsafe-undefined ns1_0 temp2_0 temp3_0))))" "(namespace->module-instance.1 #f #f void ns1_0 temp2_0 temp3_0))))"
"(if(not mi_0)" "(if(not mi_0)"
"(let-values() not-available)" "(let-values() not-available)"
"(if(check-single-require-access" "(if(check-single-require-access"
@ -47061,7 +47031,7 @@ static const char *startup_source =
"(let-values(((log-tag_0) log-tag18_0))" "(let-values(((log-tag_0) log-tag18_0))"
"(let-values(((no-target-msg_0) no-target-msg19_0))" "(let-values(((no-target-msg_0) no-target-msg19_0))"
"(let-values(((intro?_0) intro?20_0))" "(let-values(((intro?_0) intro?20_0))"
"(let-values(((more-checks_0)(if(eq? more-checks21_0 unsafe-undefined) void more-checks21_0)))" "(let-values(((more-checks_0) more-checks21_0))"
"(let-values(((get-lift-ctx_0) get-lift-ctx22_0))" "(let-values(((get-lift-ctx_0) get-lift-ctx22_0))"
"(let-values(((add-lifted!_0) add-lifted!23_0))" "(let-values(((add-lifted!_0) add-lifted!23_0))"
"(let-values(((get-wrt-phase_0) get-wrt-phase24_0))" "(let-values(((get-wrt-phase_0) get-wrt-phase24_0))"
@ -47243,7 +47213,7 @@ static const char *startup_source =
" to-module-lift-context-wrt-phase117_0" " to-module-lift-context-wrt-phase117_0"
" #t" " #t"
" #f" " #f"
" unsafe-undefined" " void"
" temp115_0" " temp115_0"
" temp120_0" " temp120_0"
" unsafe-undefined" " unsafe-undefined"
@ -47284,7 +47254,7 @@ static const char *startup_source =
" temp127_0" " temp127_0"
" #t" " #t"
" temp124_0" " temp124_0"
" unsafe-undefined" " void"
" temp125_0" " temp125_0"
" unsafe-undefined" " unsafe-undefined"
" temp129_0" " temp129_0"
@ -48615,7 +48585,7 @@ static const char *startup_source =
"(namespace->module-namespace.1" "(namespace->module-namespace.1"
" #f" " #f"
" #f" " #f"
" unsafe-undefined" " void"
" src-namespace26_0" " src-namespace26_0"
" mod-name27_0" " mod-name27_0"
" phase28_0))))" " phase28_0))))"
@ -48641,7 +48611,7 @@ static const char *startup_source =
"(namespace->module-namespace.1" "(namespace->module-namespace.1"
" #f" " #f"
" #f" " #f"
" unsafe-undefined" " void"
" dest-namespace29_0" " dest-namespace29_0"
" mod-name30_0" " mod-name30_0"
" phase31_0))" " phase31_0))"
@ -48684,7 +48654,7 @@ static const char *startup_source =
"(namespace->module-namespace.1" "(namespace->module-namespace.1"
" #f" " #f"
" #f" " #f"
" unsafe-undefined" " void"
" src-namespace32_0" " src-namespace32_0"
" mod-name33_0" " mod-name33_0"
" phase34_0)))" " phase34_0)))"
@ -48708,7 +48678,7 @@ static const char *startup_source =
"(namespace-module-instantiate!.1" "(namespace-module-instantiate!.1"
" #t" " #t"
" unsafe-undefined" " unsafe-undefined"
" unsafe-undefined" " '#hasheq()"
" #f" " #f"
" src-namespace35_0" " src-namespace35_0"
" mpi36_0" " mpi36_0"
@ -48974,7 +48944,7 @@ static const char *startup_source =
"(namespace->module-namespace.1" "(namespace->module-namespace.1"
" #f" " #f"
" #f" " #f"
" unsafe-undefined" " void"
" dest-namespace41_0" " dest-namespace41_0"
" mod-name42_0" " mod-name42_0"
" phase43_0))))" " phase43_0))))"
@ -49312,7 +49282,7 @@ static const char *startup_source =
"(parse-and-perform-requires!.1" "(parse-and-perform-requires!.1"
" copy-variable-as-constant?67_0" " copy-variable-as-constant?67_0"
" copy-variable-phase-level66_0" " copy-variable-phase-level66_0"
" unsafe-undefined" " '#hasheq()"
" #f" " #f"
" unsafe-undefined" " unsafe-undefined"
" run?59_0" " run?59_0"
@ -51042,7 +51012,7 @@ static const char *startup_source =
"(parse-and-perform-requires!.1" "(parse-and-perform-requires!.1"
" #f" " #f"
" #f" " #f"
" unsafe-undefined" " '#hasheq()"
" #f" " #f"
" phase187_0" " phase187_0"
" #f" " #f"
@ -51565,7 +51535,7 @@ static const char *startup_source =
"(namespace-module-instantiate!.1" "(namespace-module-instantiate!.1"
" temp15_0" " temp15_0"
" phase14_0" " phase14_0"
" unsafe-undefined" " '#hasheq()"
" #f" " #f"
" ns11_0" " ns11_0"
" mpi12_0" " mpi12_0"
@ -51579,7 +51549,7 @@ static const char *startup_source =
"(namespace-module-instantiate!.1" "(namespace-module-instantiate!.1"
" #t" " #t"
" phase19_0" " phase19_0"
" unsafe-undefined" " '#hasheq()"
" #f" " #f"
" ns16_0" " ns16_0"
" mpi17_0" " mpi17_0"
@ -51641,7 +51611,7 @@ static const char *startup_source =
"(namespace-module-instantiate!.1" "(namespace-module-instantiate!.1"
" temp28_0" " temp28_0"
" phase27_0" " phase27_0"
" unsafe-undefined" " '#hasheq()"
" #f" " #f"
" ns24_0" " ns24_0"
" mpi25_0" " mpi25_0"
@ -51665,7 +51635,7 @@ static const char *startup_source =
"(namespace->module-namespace.1" "(namespace->module-namespace.1"
" #f" " #f"
" temp32_0" " temp32_0"
" unsafe-undefined" " void"
" ns29_0" " ns29_0"
" ex-mod-name30_0" " ex-mod-name30_0"
" temp31_0))))" " temp31_0))))"
@ -62183,7 +62153,7 @@ static const char *startup_source =
"(let-values(((who_0) who7_0))" "(let-values(((who_0) who7_0))"
"(let-values(((mod_0) mod8_0))" "(let-values(((mod_0) mod8_0))"
"(let-values(((load?_0) load?5_0))" "(let-values(((load?_0) load?5_0))"
"(let-values(((extra-checks_0)(if(eq? extra-checks3_0 unsafe-undefined) void extra-checks3_0)))" "(let-values(((extra-checks_0) extra-checks3_0))"
"(let-values()" "(let-values()"
"(let-values((()" "(let-values((()"
"(begin" "(begin"
@ -62214,12 +62184,7 @@ static const char *startup_source =
"((who33_0) 'module->language-info)" "((who33_0) 'module->language-info)"
"((mod34_0) mod_0)" "((mod34_0) mod_0)"
"((load?35_0) load?_0))" "((load?35_0) load?_0))"
"(module->.1" "(module->.1 void module-language-info32_0 who33_0 mod34_0 load?35_0)))))))))))"
" unsafe-undefined"
" module-language-info32_0"
" who33_0"
" mod34_0"
" load?35_0)))))))))))"
"(case-lambda" "(case-lambda"
"((mod_0)(begin 'module->language-info(module->language-info_0 mod_0 #f)))" "((mod_0)(begin 'module->language-info(module->language-info_0 mod_0 #f)))"
"((mod_0 load?10_0)(module->language-info_0 mod_0 load?10_0)))))" "((mod_0 load?10_0)(module->language-info_0 mod_0 load?10_0)))))"
@ -62231,7 +62196,7 @@ static const char *startup_source =
"(let-values()" "(let-values()"
"(let-values()" "(let-values()"
"(let-values(((module-requires37_0) module-requires)((who38_0) 'module->imports)((mod39_0) mod_0))" "(let-values(((module-requires37_0) module-requires)((who38_0) 'module->imports)((mod39_0) mod_0))"
"(module->.1 unsafe-undefined module-requires37_0 who38_0 mod39_0 #f)))))))" "(module->.1 void module-requires37_0 who38_0 mod39_0 #f)))))))"
"(define-values" "(define-values"
"(1/module->exports)" "(1/module->exports)"
"(let-values(((module->exports_0)" "(let-values(((module->exports_0)"
@ -62271,7 +62236,7 @@ static const char *startup_source =
"(variables->api-nonprovides(module-provides m_0)((module-get-all-variables m_0))))))" "(variables->api-nonprovides(module-provides m_0)((module-get-all-variables m_0))))))"
"((temp46_0) 'module->indirect-exports)" "((temp46_0) 'module->indirect-exports)"
"((mod47_0) mod_0))" "((mod47_0) mod_0))"
"(module->.1 unsafe-undefined temp45_0 temp46_0 mod47_0 #f)))))" "(module->.1 void temp45_0 temp46_0 mod47_0 #f)))))"
"(define-values" "(define-values"
"(1/module-provide-protected?)" "(1/module-provide-protected?)"
"(lambda(mod_0 sym_0)" "(lambda(mod_0 sym_0)"
@ -62286,7 +62251,7 @@ static const char *startup_source =
"(if or-part_0 or-part_0(provided-as-protected? b/p_0)))))))" "(if or-part_0 or-part_0(provided-as-protected? b/p_0)))))))"
"((temp49_0) 'module-provide-protected?)" "((temp49_0) 'module-provide-protected?)"
"((mod50_0) mod_0))" "((mod50_0) mod_0))"
"(module->.1 unsafe-undefined temp48_0 temp49_0 mod50_0 #f)))))" "(module->.1 void temp48_0 temp49_0 mod50_0 #f)))))"
"(define-values" "(define-values"
"(1/module->namespace)" "(1/module->namespace)"
"(let-values(((module->namespace_0)" "(let-values(((module->namespace_0)"
@ -62323,7 +62288,7 @@ static const char *startup_source =
"(namespace->module-namespace.1" "(namespace->module-namespace.1"
" #f" " #f"
" #f" " #f"
" unsafe-undefined" " void"
" ns57_0" " ns57_0"
" name58_0" " name58_0"
" phase59_0))))" " phase59_0))))"
@ -62425,7 +62390,7 @@ static const char *startup_source =
"(namespace->module-namespace.1" "(namespace->module-namespace.1"
" #f" " #f"
" #f" " #f"
" unsafe-undefined" " void"
" ns64_0" " ns64_0"
" name65_0" " name65_0"
" phase66_0))))" " phase66_0))))"
@ -63285,7 +63250,7 @@ static const char *startup_source =
"(void)))))" "(void)))))"
"(make-module.1" "(make-module.1"
" cross-phase-persistent?5_0" " cross-phase-persistent?5_0"
" unsafe-undefined" " void"
" unsafe-undefined" " unsafe-undefined"
" temp9_0" " temp9_0"
" #f" " #f"
@ -63294,7 +63259,7 @@ static const char *startup_source =
" temp6_0" " temp6_0"
" unsafe-undefined" " unsafe-undefined"
" #f" " #f"
" unsafe-undefined" " void"
" #f" " #f"
" temp8_0" " temp8_0"
" null" " null"
@ -64587,7 +64552,7 @@ static const char *startup_source =
" 'variable-reference-from-unsafe?" " 'variable-reference-from-unsafe?"
" 1/variable-reference-from-unsafe?))" " 1/variable-reference-from-unsafe?))"
"((ns47_0) ns_0))" "((ns47_0) ns_0))"
"(copy-runtime-module!.1 unsafe-undefined temp46_0 ns47_0 #t #f temp45_0 temp44_0 temp43_0))" "(copy-runtime-module!.1 '#hasheq() temp46_0 ns47_0 #t #f temp45_0 temp44_0 temp43_0))"
"(let-values(((temp48_0) '#%kernel)((temp49_0) '(#%core #%runtime #%main #%read))((ns50_0) ns_0))" "(let-values(((temp48_0) '#%kernel)((temp49_0) '(#%core #%runtime #%main #%read))((ns50_0) ns_0))"
"(declare-reexporting-module!.1 ns50_0 #t temp48_0 temp49_0))))))))))" "(declare-reexporting-module!.1 ns50_0 #t temp48_0 temp49_0))))))))))"
"(define-values" "(define-values"
@ -64599,8 +64564,8 @@ static const char *startup_source =
"(let-values(((to-name_0)(if(eq? to7_0 unsafe-undefined) name_0 to7_0)))" "(let-values(((to-name_0)(if(eq? to7_0 unsafe-undefined) name_0 to7_0)))"
"(let-values(((ns_0) namespace8_0))" "(let-values(((ns_0) namespace8_0))"
"(let-values(((skip-syms_0)(if(eq? skip9_0 unsafe-undefined)(seteq) skip9_0)))" "(let-values(((skip-syms_0)(if(eq? skip9_0 unsafe-undefined)(seteq) skip9_0)))"
"(let-values(((alts_0)(if(eq? alts10_0 unsafe-undefined) '#hasheq() alts10_0)))" "(let-values(((alts_0) alts10_0))"
"(let-values(((extras_0)(if(eq? extras11_0 unsafe-undefined) '#hasheq() extras11_0)))" "(let-values(((extras_0) extras11_0))"
"(let-values(((primitive?_0) primitive?12_0))" "(let-values(((primitive?_0) primitive?12_0))"
"(let-values(((protected?_0) protected?13_0))" "(let-values(((protected?_0) protected?13_0))"
"(let-values()" "(let-values()"
@ -64891,7 +64856,7 @@ static const char *startup_source =
"(void)))))" "(void)))))"
"(make-module.1" "(make-module.1"
" temp59_0" " temp59_0"
" unsafe-undefined" " void"
" unsafe-undefined" " unsafe-undefined"
" temp65_0" " temp65_0"
" #f" " #f"
@ -64900,7 +64865,7 @@ static const char *startup_source =
" temp62_0" " temp62_0"
" unsafe-undefined" " unsafe-undefined"
" temp61_0" " temp61_0"
" unsafe-undefined" " void"
" primitive?60_0" " primitive?60_0"
" temp64_0" " temp64_0"
" null" " null"
@ -65064,7 +65029,7 @@ static const char *startup_source =
"((void77_0) void))" "((void77_0) void))"
"(make-module.1" "(make-module.1"
" temp72_0" " temp72_0"
" unsafe-undefined" " void"
" unsafe-undefined" " unsafe-undefined"
" void77_0" " void77_0"
" #f" " #f"
@ -65073,7 +65038,7 @@ static const char *startup_source =
" #f" " #f"
" unsafe-undefined" " unsafe-undefined"
" temp73_0" " temp73_0"
" unsafe-undefined" " void"
" #f" " #f"
" temp76_0" " temp76_0"
" temp75_0" " temp75_0"
@ -84144,7 +84109,7 @@ static const char *startup_source =
"(parse-and-perform-requires!.1" "(parse-and-perform-requires!.1"
" #f" " #f"
" #f" " #f"
" unsafe-undefined" " '#hasheq()"
" temp59_0" " temp59_0"
" unsafe-undefined" " unsafe-undefined"
" #f" " #f"
@ -84319,8 +84284,8 @@ static const char *startup_source =
" name_0" " name_0"
" '#%unsafe)))))))" " '#%unsafe)))))))"
"(copy-runtime-module!.1" "(copy-runtime-module!.1"
" unsafe-undefined" " '#hasheq()"
" unsafe-undefined" " '#hasheq()"
" ns36_0" " ns36_0"
" #t" " #t"
" temp37_0" " temp37_0"