From 112aa6eb073eae3a8170788fbfd228e9f166485f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 4 Mar 2018 11:44:00 -0700 Subject: [PATCH] fix `-m` command-line flag for new expander --- racket/src/expander/main.rkt | 1 + racket/src/expander/namespace/api.rkt | 5 + racket/src/racket/cmdline.inc | 11 +- racket/src/racket/src/startup.inc | 811 +++++++++++++------------- 4 files changed, 417 insertions(+), 411 deletions(-) diff --git a/racket/src/expander/main.rkt b/racket/src/expander/main.rkt index 785e87ab17..e34e2fa4ca 100644 --- a/racket/src/expander/main.rkt +++ b/racket/src/expander/main.rkt @@ -79,6 +79,7 @@ namespace->instance namespace-syntax-introduce + namespace-datum-introduce namespace-require dynamic-require module-declared? diff --git a/racket/src/expander/namespace/api.rkt b/racket/src/expander/namespace/api.rkt index 44f8dfffd6..9737ae8279 100644 --- a/racket/src/expander/namespace/api.rkt +++ b/racket/src/expander/namespace/api.rkt @@ -26,6 +26,7 @@ (provide make-empty-namespace namespace-syntax-introduce + namespace-datum-introduce namespace-module-identifier namespace-symbol->identifier @@ -86,6 +87,10 @@ ;; Add scope everywhere: (add-ns-scopes s)])) +;; For use by the main Racket entry point: +(define (namespace-datum-introduce s) + (namespace-syntax-introduce (datum->syntax #f s))) + (define (namespace-module-identifier [where (current-namespace)]) (unless (or (namespace? where) (phase? where)) diff --git a/racket/src/racket/cmdline.inc b/racket/src/racket/cmdline.inc index 094b3ca78b..dd96746a37 100644 --- a/racket/src/racket/cmdline.inc +++ b/racket/src/racket/cmdline.inc @@ -346,17 +346,12 @@ static int finish_cmd_line_run(FinishArgs *fa, Repl_Proc repl) save = p->error_buf; p->error_buf = &newbuf; if (!scheme_setjmp(newbuf)) { - Scheme_Object *e, *a[2], *d2s, *nsi, *idb, *b, *cp; + Scheme_Object *e, *a[2], *ndi, *idb, *b, *cp; - d2s = scheme_builtin_value("datum->syntax"); - a[0] = scheme_make_false(); + ndi = scheme_builtin_value("namespace-datum-introduce"); e = scheme_intern_symbol("main"); - a[1] = e; - e = scheme_apply(d2s, 2, a); - - nsi = scheme_builtin_value("namespace-syntax-introduce"); a[0] = e; - e = scheme_apply(nsi, 1, a); + e = scheme_apply(ndi, 1, a); /* Check that `main' is imported and/or defined: */ idb = scheme_builtin_value("identifier-binding"); diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index c7a1763754..abd7928f5e 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -43,6 +43,7 @@ static const char *startup_source = "(namespace->instance namespace->instance)" "(1/namespace-attach-module namespace-attach-module)" "(1/namespace-attach-module-declaration namespace-attach-module-declaration)" +"(namespace-datum-introduce namespace-datum-introduce)" "(1/namespace-mapped-symbols namespace-mapped-symbols)" "(1/namespace-module-identifier namespace-module-identifier)" "(1/namespace-require namespace-require)" @@ -43346,6 +43347,9 @@ static const char *startup_source = "((s_428)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_428 #f #f)))" "((s_429 ns1_2)(namespace-syntax-introduce4_0 s_429 ns1_2 #t)))))" "(define-values" +"(namespace-datum-introduce)" +"(lambda(s_41)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_41)))))" +"(define-values" "(1/namespace-module-identifier)" "(let-values(((namespace-module-identifier8_0)" "(lambda(where6_0 where7_0)" @@ -43354,8 +43358,8 @@ static const char *startup_source = "(let-values(((where_0)(if where7_0 where6_0(1/current-namespace))))" "(let-values()" "(begin" -"(if(let-values(((or-part_70)(1/namespace? where_0)))" -"(if or-part_70 or-part_70(phase? where_0)))" +"(if(let-values(((or-part_78)(1/namespace? where_0)))" +"(if or-part_78 or-part_78(phase? where_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -43372,14 +43376,14 @@ static const char *startup_source = "((where6_1)(namespace-module-identifier8_0 where6_1 #t)))))" "(define-values" "(1/namespace-symbol->identifier)" -"(lambda(sym_68)" +"(lambda(sym_56)" "(begin" " 'namespace-symbol->identifier" "(begin" -"(if(symbol? sym_68)" +"(if(symbol? sym_56)" "(void)" -" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_68)))" -"(1/namespace-syntax-introduce(1/datum->syntax #f sym_68))))))" +" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_56)))" +"(1/namespace-syntax-introduce(1/datum->syntax #f sym_56))))))" "(define-values" "(do-namespace-require23.1)" "(lambda(copy-variable-as-constant?13_0" @@ -43419,8 +43423,8 @@ static const char *startup_source = "(add-scopes" " empty-syntax" "(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_76)))))" -"(if(let-values(((or-part_170)(1/module-path-index? req_6)))" -"(if or-part_170 or-part_170(1/module-path? req_6)))" +"(if(let-values(((or-part_171)(1/module-path-index? req_6)))" +"(if or-part_171 or-part_171(1/module-path? req_6)))" "(let-values()" "(let-values(((temp82_1)" "(if(1/module-path-index? req_6)" @@ -43619,18 +43623,18 @@ static const char *startup_source = "(lambda(sym52_0 use-mapping?46_0 failure-thunk47_0 ns48_0 use-mapping?49_0 failure-thunk50_0 ns51_0)" "(begin" " 'namespace-variable-value53" -"(let-values(((sym_69) sym52_0))" +"(let-values(((sym_68) sym52_0))" "(let-values(((use-mapping?_0)(if use-mapping?49_0 use-mapping?46_0 #t)))" "(let-values(((failure-thunk_5)(if failure-thunk50_0 failure-thunk47_0 #f)))" "(let-values(((ns_81)(if ns51_0 ns48_0(1/current-namespace))))" "(let-values()" "(begin" -"(if(symbol? sym_69)" +"(if(symbol? sym_68)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_69)))" -"(if(let-values(((or-part_216)(not failure-thunk_5)))" -"(if or-part_216" -" or-part_216" +" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_68)))" +"(if(let-values(((or-part_293)(not failure-thunk_5)))" +"(if or-part_293" +" or-part_293" "(if(procedure? failure-thunk_5)" "(procedure-arity-includes? failure-thunk_5 0)" " #f)))" @@ -43648,7 +43652,7 @@ static const char *startup_source = "(let-values(((var-ns_0 var-phase-level_0 var-sym_6)" "(if use-mapping?_0" "(let-values()" -"(let-values(((id_104)(1/datum->syntax #f sym_69)))" +"(let-values(((id_104)(1/datum->syntax #f sym_68)))" "(let-values(((b_85)" "(resolve+shift/extra-inspector" "(1/namespace-syntax-introduce id_104 ns_81)" @@ -43691,9 +43695,9 @@ static const char *startup_source = "(void)" "(let-values()" "(escape_0" -"(let-values(((or-part_293) failure-thunk_5))" -"(if or-part_293" -" or-part_293" +"(let-values(((or-part_294) failure-thunk_5))" +"(if or-part_294" +" or-part_294" "(lambda()" "(raise" "(make-exn:fail:syntax$1" @@ -43701,7 +43705,7 @@ static const char *startup_source = "(string-append" " \"namespace-variable-value: bound to syntax\\n\"" " \" in: ~s\")" -" sym_69)" +" sym_68)" "(current-continuation-marks)" " null))))))))" "(if(module-binding? b_85)" @@ -43717,55 +43721,55 @@ static const char *startup_source = " id_104)))" "(module-binding-phase b_85)" "(module-binding-sym b_85))" -"(values ns_81(namespace-phase ns_81) sym_69))))))))" -"(let-values()(values ns_81(namespace-phase ns_81) sym_69)))))" -"(let-values(((val_69)" +"(values ns_81(namespace-phase ns_81) sym_68))))))))" +"(let-values()(values ns_81(namespace-phase ns_81) sym_68)))))" +"(let-values(((val_29)" "(namespace-get-variable" " var-ns_0" " var-phase-level_0" " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_294) failure-thunk_5))" -"(if or-part_294" -" or-part_294" +"(let-values(((or-part_295) failure-thunk_5))" +"(if or-part_295" +" or-part_295" "(raise" "(exn:fail:contract:variable" "(format" "(string-append" " \"namespace-variable-value: given name is not defined\\n\"" " \" name: ~s\")" -" sym_69)" +" sym_68)" "(current-continuation-marks)" -" sym_69)))))))))" -"(lambda() val_69))))))))))))))))" +" sym_68)))))))))" +"(lambda() val_29))))))))))))))))" "(case-lambda" -"((sym_70)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_70 #f #f #f #f #f #f)))" -"((sym_71 use-mapping?_1 failure-thunk_6 ns48_1)" -"(namespace-variable-value53_0 sym_71 use-mapping?_1 failure-thunk_6 ns48_1 #t #t #t))" -"((sym_72 use-mapping?_2 failure-thunk47_1)" -"(namespace-variable-value53_0 sym_72 use-mapping?_2 failure-thunk47_1 #f #t #t #f))" -"((sym_73 use-mapping?46_1)(namespace-variable-value53_0 sym_73 use-mapping?46_1 #f #f #t #f #f)))))" +"((sym_69)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_69 #f #f #f #f #f #f)))" +"((sym_70 use-mapping?_1 failure-thunk_6 ns48_1)" +"(namespace-variable-value53_0 sym_70 use-mapping?_1 failure-thunk_6 ns48_1 #t #t #t))" +"((sym_71 use-mapping?_2 failure-thunk47_1)" +"(namespace-variable-value53_0 sym_71 use-mapping?_2 failure-thunk47_1 #f #t #t #f))" +"((sym_72 use-mapping?46_1)(namespace-variable-value53_0 sym_72 use-mapping?46_1 #f #f #t #f #f)))))" "(define-values" "(1/namespace-set-variable-value!)" "(let-values(((namespace-set-variable-value!63_0)" "(lambda(sym61_0 val62_0 map?55_0 ns56_0 as-constant?57_0 map?58_0 ns59_0 as-constant?60_0)" "(begin" " 'namespace-set-variable-value!63" -"(let-values(((sym_74) sym61_0))" -"(let-values(((val_70) val62_0))" +"(let-values(((sym_73) sym61_0))" +"(let-values(((val_69) val62_0))" "(let-values(((map?_0)(if map?58_0 map?55_0 #f)))" "(let-values(((ns_82)(if ns59_0 ns56_0(1/current-namespace))))" "(let-values(((as-constant?_2)(if as-constant?60_0 as-constant?57_0 #f)))" "(let-values()" "(begin" -"(if(symbol? sym_74)" +"(if(symbol? sym_73)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_74)))" +" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_73)))" "(if(1/namespace? ns_82)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_82)))" -"(namespace-set-variable! ns_82(namespace-phase ns_82) sym_74 val_70 as-constant?_2)" +"(namespace-set-variable! ns_82(namespace-phase ns_82) sym_73 val_69 as-constant?_2)" "(if map?_0" "(let-values()" "(let-values((()" @@ -43773,14 +43777,14 @@ static const char *startup_source = "(namespace-unset-transformer!" " ns_82" "(namespace-phase ns_82)" -" sym_74)" +" sym_73)" "(values))))" -"(let-values(((id_105)(1/datum->syntax #f sym_74)))" +"(let-values(((id_105)(1/datum->syntax #f sym_73)))" "(let-values(((temp129_2)(1/namespace-syntax-introduce id_105 ns_82))" "((temp130_2)" "(let-values(((temp132_1)(namespace-mpi ns_82))" "((temp133_1)(namespace-phase ns_82))" -"((sym134_1) sym_74))" +"((sym134_1) sym_73))" "(make-module-binding22.1" " #f" " #f" @@ -43807,32 +43811,32 @@ static const char *startup_source = "(add-binding!17.1 #f #f #f #f temp129_2 temp130_2 temp131_0)))))" "(void)))))))))))))" "(case-lambda" -"((sym_75 val_71)" -"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_75 val_71 #f #f #f #f #f #f)))" -"((sym_76 val_50 map?_1 ns_83 as-constant?57_1)" -"(namespace-set-variable-value!63_0 sym_76 val_50 map?_1 ns_83 as-constant?57_1 #t #t #t))" -"((sym_77 val_72 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_77 val_72 map?_2 ns56_1 #f #t #t #f))" -"((sym_78 val_73 map?55_1)(namespace-set-variable-value!63_0 sym_78 val_73 map?55_1 #f #f #t #f #f)))))" +"((sym_74 val_70)" +"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_74 val_70 #f #f #f #f #f #f)))" +"((sym_75 val_71 map?_1 ns_83 as-constant?57_1)" +"(namespace-set-variable-value!63_0 sym_75 val_71 map?_1 ns_83 as-constant?57_1 #t #t #t))" +"((sym_76 val_72 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_76 val_72 map?_2 ns56_1 #f #t #t #f))" +"((sym_77 val_73 map?55_1)(namespace-set-variable-value!63_0 sym_77 val_73 map?55_1 #f #f #t #f #f)))))" "(define-values" "(1/namespace-undefine-variable!)" "(let-values(((namespace-undefine-variable!68_0)" "(lambda(sym67_0 ns65_0 ns66_0)" "(begin" " 'namespace-undefine-variable!68" -"(let-values(((sym_79) sym67_0))" +"(let-values(((sym_78) sym67_0))" "(let-values(((ns_84)(if ns66_0 ns65_0(1/current-namespace))))" "(let-values()" "(begin" -"(if(symbol? sym_79)" +"(if(symbol? sym_78)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_79)))" +" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_78)))" "(if(1/namespace? ns_84)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_84)))" -"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_79)))))))))" +"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_78)))))))))" "(case-lambda" -"((sym_80)(begin 'namespace-undefine-variable!(namespace-undefine-variable!68_0 sym_80 #f #f)))" -"((sym_81 ns65_1)(namespace-undefine-variable!68_0 sym_81 ns65_1 #t)))))" +"((sym_79)(begin 'namespace-undefine-variable!(namespace-undefine-variable!68_0 sym_79 #f #f)))" +"((sym_80 ns65_1)(namespace-undefine-variable!68_0 sym_80 ns65_1 #t)))))" "(define-values" "(1/namespace-mapped-symbols)" "(let-values(((namespace-mapped-symbols72_0)" @@ -43883,18 +43887,18 @@ static const char *startup_source = " compile2_0" "(lambda(s_430 ns_87)(begin 'compile(1/compile s_430 ns_87 #f))))))" "(let-values()" -"(if(let-values(((or-part_295)(compiled-in-memory? s_144)))" -"(if or-part_295" -" or-part_295" -"(let-values(((or-part_296)(1/linklet-directory? s_144)))" -"(if or-part_296 or-part_296(1/linklet-bundle? s_144)))))" +"(if(let-values(((or-part_296)(compiled-in-memory? s_144)))" +"(if or-part_296" +" or-part_296" +"(let-values(((or-part_297)(1/linklet-directory? s_144)))" +"(if or-part_297 or-part_297(1/linklet-bundle? s_144)))))" "(let-values()(eval-compiled s_144 ns_43))" "(if(if(syntax?$1 s_144)" -"(let-values(((or-part_297)(compiled-in-memory?(1/syntax-e s_144))))" -"(if or-part_297" -" or-part_297" -"(let-values(((or-part_298)(1/linklet-directory?(1/syntax-e s_144))))" -"(if or-part_298 or-part_298(1/linklet-bundle?(1/syntax-e s_144))))))" +"(let-values(((or-part_298)(compiled-in-memory?(1/syntax-e s_144))))" +"(if or-part_298" +" or-part_298" +"(let-values(((or-part_299)(1/linklet-directory?(1/syntax-e s_144))))" +"(if or-part_299 or-part_299(1/linklet-bundle?(1/syntax-e s_144))))))" " #f)" "(let-values()(eval-compiled(1/syntax->datum s_144) ns_43))" "(let-values()" @@ -44175,7 +44179,7 @@ static const char *startup_source = "(begin" " 'expand40" "(let-values(((s_434) s39_0))" -"(let-values(((ns_80)(if ns35_0 ns31_3(1/current-namespace))))" +"(let-values(((ns_98)(if ns35_0 ns31_3(1/current-namespace))))" "(let-values(((observable?_0)(if observable?36_0 observable?32_0 #f)))" "(let-values(((to-parsed?_2)(if to-parsed?37_0 to-parsed?33_0 #f)))" "(let-values(((serializable?_8)(if serializable?38_0 serializable?34_0 #f)))" @@ -44191,12 +44195,12 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((s108_0) s_434)" -"((ns109_1) ns_80)" +"((ns109_1) ns_98)" "((temp110_3)" -"(lambda(s_435 ns_98 as-tail?_5)" +"(lambda(s_435 ns_99 as-tail?_5)" "(expand-single" " s_435" -" ns_98" +" ns_99" " observer_2" " to-parsed?_2" " serializable?_8)))" @@ -44220,9 +44224,9 @@ static const char *startup_source = " ns109_1))))))))))))))))" "(case-lambda" "((s_304)(begin 'expand(expand40_0 s_304 #f #f #f #f #f #f #f #f)))" -"((s_436 ns_99 observable?_1 to-parsed?_3 serializable?34_1)" -"(expand40_0 s_436 ns_99 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_437 ns_100 observable?_2 to-parsed?33_1)(expand40_0 s_437 ns_100 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_436 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" +"(expand40_0 s_436 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" +"((s_437 ns_81 observable?_2 to-parsed?33_1)(expand40_0 s_437 ns_81 observable?_2 to-parsed?33_1 #f #t #t #t #f))" "((s_34 ns_101 observable?32_1)(expand40_0 s_34 ns_101 observable?32_1 #f #f #t #t #f #f))" "((s_392 ns31_4)(expand40_0 s_392 ns31_4 #f #f #f #t #f #f #f)))))" "(define-values" @@ -44314,7 +44318,8 @@ static const char *startup_source = "(let-values()" "(let-values(((s128_0) s_393)" "((ns129_0) ns_103)" -"((temp130_3)(lambda(s_439 ns_83 as-tail?_6)(expand-single-once s_439 ns_83)))" +"((temp130_3)" +"(lambda(s_439 ns_104 as-tail?_6)(expand-single-once s_439 ns_104)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" "((temp133_2) #t)" @@ -44339,13 +44344,13 @@ static const char *startup_source = "((s_441 ns42_2)(expand-once45_0 s_441 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_442 ns_104)" +"(lambda(s_442 ns_105)" "(begin" "(let-values(((require-lifts_4 lifts_11 exp-s_7)" "(expand-capturing-lifts" " s_442" "(let-values(((v_193)" -"(let-values(((ns135_1) ns_104))" +"(let-values(((ns135_1) ns_105))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" "(let-values(((the-struct_71) v_193))" "(if(expand-context/outer? the-struct_71)" @@ -44405,7 +44410,7 @@ static const char *startup_source = "(let-values()" "(let-values(((temp138_1)(append require-lifts_4 lifts_11))" "((exp-s139_0) exp-s_7)" -"((temp140_1)(namespace-phase ns_104)))" +"((temp140_1)(namespace-phase ns_105)))" "(wrap-lifts-as-begin16.1 #f #f #f #f temp138_1 exp-s139_0 temp140_1))))))))" "(define-values" "(expand-to-top-form$1)" @@ -44414,7 +44419,7 @@ static const char *startup_source = "(begin" " 'expand-to-top-form50" "(let-values(((s_89) s49_0))" -"(let-values(((ns_105)(if ns48_2 ns47_2(1/current-namespace))))" +"(let-values(((ns_106)(if ns48_2 ns47_2(1/current-namespace))))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" "(begin" @@ -44427,7 +44432,7 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((s141_0) s_89)" -"((ns142_0) ns_105)" +"((ns142_0) ns_106)" "((temp143_0) #f)" "((temp144_1) #f)" "((observer145_0) observer_4))" @@ -44468,7 +44473,7 @@ static const char *startup_source = "(begin" " 'per-top-level68" "(let-values(((given-s_0) given-s66_0))" -"(let-values(((ns_106) ns67_1))" +"(let-values(((ns_107) ns67_1))" "(let-values(((single_0) single52_0))" "(let-values(((combine_0)(if combine60_0 combine53_0 #f)))" "(let-values(((wrap_2)(if wrap61_0 wrap54_0 #f)))" @@ -44477,13 +44482,13 @@ static const char *startup_source = "(let-values(((serializable?_10)(if serializable?64_0 serializable?57_0 #f)))" "(let-values(((observer_5) observer58_0))" "(let-values()" -"(let-values(((s_100)(maybe-intro given-s_0 ns_106)))" +"(let-values(((s_100)(maybe-intro given-s_0 ns_107)))" "(let-values(((ctx_68)" -"(let-values(((ns146_0) ns_106)((observer147_0) observer_5))" +"(let-values(((ns146_0) ns_107)((observer147_0) observer_5))" "(make-expand-context10.1 #f #f observer147_0 #t #f #f ns146_0))))" -"(let-values(((phase_135)(namespace-phase ns_106)))" +"(let-values(((phase_135)(namespace-phase ns_107)))" "((letrec-values(((loop_98)" -"(lambda(s_214 phase_103 ns_107 as-tail?_7)" +"(lambda(s_214 phase_103 ns_108 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" @@ -44499,7 +44504,7 @@ static const char *startup_source = "(let-values(((phase149_0)" " phase_103)" "((namespace150_0)" -" ns_107)" +" ns_108)" "((just-once?151_0)" " just-once?_1)" "((for-serializable?152_0)" @@ -44620,7 +44625,7 @@ static const char *startup_source = "(let-values(((phase156_1)" " phase_103)" "((namespace157_1)" -" ns_107))" +" ns_108))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" " the-struct_33)" @@ -44708,9 +44713,9 @@ static const char *startup_source = " the-struct_62)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_8)))" -"(if(let-values(((or-part_299)" +"(if(let-values(((or-part_300)" "(pair? require-lifts_5)))" -"(if or-part_299 or-part_299(pair? lifts_12)))" +"(if or-part_300 or-part_300(pair? lifts_12)))" "(let-values()" "(let-values(((new-s_3)" "(let-values(((temp158_0)" @@ -44744,7 +44749,7 @@ static const char *startup_source = "(loop_98" " new-s_3" " phase_103" -" ns_107" +" ns_108" " as-tail?_7)))))" "(if(not single_0)" "(let-values()" @@ -44855,7 +44860,7 @@ static const char *startup_source = "(loop_98" "(car es_2)" " phase_103" -" ns_107" +" ns_108" " as-tail?_7))" "(let-values()" "(let-values((()" @@ -44877,14 +44882,14 @@ static const char *startup_source = "(car" " es_2)" " phase_103" -" ns_107" +" ns_108" " #f)" "(begin" "(loop_98" "(car" " es_2)" " phase_103" -" ns_107" +" ns_108" " #f)" "(void)))))" "(if combine_0" @@ -44993,7 +44998,7 @@ static const char *startup_source = "(add1 phase_103)))" "(let-values(((next-ns_0)" "(namespace->namespace-at-phase" -" ns_107" +" ns_108" " next-phase_0)))" "(let-values((()" "(begin" @@ -45013,7 +45018,7 @@ static const char *startup_source = "(if quick-immediate?_0" "(let-values()" "(namespace-visit-available-modules!" -" ns_107))" +" ns_108))" "(void))" "(values))))" "(let-values((()" @@ -45111,17 +45116,17 @@ static const char *startup_source = "(let-values()" "(single_0" " exp-s_8" -" ns_107" +" ns_108" " as-tail?_7))))))))))))))))))" " loop_98)" " s_100" " phase_135" -" ns_106" +" ns_107" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_448 ns_108)" -"(begin(if(syntax?$1 s_448) s_448(1/namespace-syntax-introduce(1/datum->syntax #f s_448) ns_108)))))" +"(lambda(s_448 ns_109)" +"(begin(if(syntax?$1 s_448) s_448(1/namespace-syntax-introduce(1/datum->syntax #f s_448) ns_109)))))" "(define-values" "(re-pair)" "(lambda(form-id_0 s_449 r_43)" @@ -45131,15 +45136,15 @@ static const char *startup_source = "(lambda(s_450 ctx_69)" "(begin" "(let-values()" -"(let-values(((ns_109)(expand-context-namespace ctx_69)))" -"(let-values((()(begin(namespace-visit-available-modules! ns_109)(values))))" +"(let-values(((ns_110)(expand-context-namespace ctx_69)))" +"(let-values((()(begin(namespace-visit-available-modules! ns_110)(values))))" "(let-values(((lift-ctx_6)" "(let-values(((temp169_0)(make-top-level-lift ctx_69)))" "(make-lift-context6.1 #f #f temp169_0))))" "(let-values(((require-lift-ctx_2)" "(make-require-lift-context" -"(namespace-phase ns_109)" -"(make-parse-top-lifted-require ns_109))))" +"(namespace-phase ns_110)" +"(make-parse-top-lifted-require ns_110))))" "(let-values(((exp-s_9)" "(let-values(((s170_0) s_450)" "((temp171_0)" @@ -45398,7 +45403,7 @@ static const char *startup_source = " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" -"(lambda(ctx_70 require-lifts_7 lifts_14 exp-s_11 ns_110)" +"(lambda(ctx_70 require-lifts_7 lifts_14 exp-s_11 ns_111)" "(begin" "(let-values(((obs_55)(expand-context-observer ctx_70)))" "(if obs_55" @@ -45406,7 +45411,7 @@ static const char *startup_source = "(let-values(((new-s_6)" "(let-values(((temp190_0)(append require-lifts_7 lifts_14))" "((exp-s191_0) exp-s_11)" -"((temp192_0)(namespace-phase ns_110)))" +"((temp192_0)(namespace-phase ns_111)))" "(wrap-lifts-as-begin16.1 #f #f #f #f temp190_0 exp-s191_0 temp192_0))))" "(begin(call-expand-observe obs_55 'lift-loop new-s_6)(log-top-begin-before ctx_70 new-s_6))))" "(void))))))" @@ -45497,7 +45502,7 @@ static const char *startup_source = " 'do-dynamic-require6" "(let-values(((who_20) who3_0))" "(let-values(((mod-path_5) mod-path4_0))" -"(let-values(((sym_82) sym5_0))" +"(let-values(((sym_81) sym5_0))" "(let-values(((fail-k_2)(if fail-k2_0 fail-k1_0 default-dynamic-require-fail-thunk)))" "(let-values()" "(let-values((()" @@ -45516,17 +45521,17 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_5)(symbol? sym_82)))" +"(if(let-values(((or-part_5)(symbol? sym_81)))" "(if or-part_5" " or-part_5" -"(let-values(((or-part_6)(not sym_82)))" +"(let-values(((or-part_6)(not sym_81)))" "(if or-part_6" " or-part_6" -"(let-values(((or-part_289)(equal? sym_82 0)))" -"(if or-part_289 or-part_289(void? sym_82)))))))" +"(let-values(((or-part_289)(equal? sym_81 0)))" +"(if or-part_289 or-part_289(void? sym_81)))))))" "(void)" "(let-values()" -" (raise-argument-error who_20 \"(or/c symbol? #f 0 void?)\" sym_82)))" +" (raise-argument-error who_20 \"(or/c symbol? #f 0 void?)\" sym_81)))" "(values))))" "(let-values((()" "(begin" @@ -45548,7 +45553,7 @@ static const char *startup_source = " #f))))))" "(let-values(((mod-name_22)(1/module-path-index-resolve mpi_47 #t)))" "(let-values(((phase_137)(namespace-phase ns_58)))" -"(if(not sym_82)" +"(if(not sym_81)" "(let-values()" "(let-values(((ns20_1) ns_58)" "((mpi21_0) mpi_47)" @@ -45567,7 +45572,7 @@ static const char *startup_source = " ns20_1" " mpi21_0" " phase22_0)))" -"(if(equal? sym_82 0)" +"(if(equal? sym_81 0)" "(let-values()" "(let-values(((ns25_2) ns_58)" "((mpi26_0) mpi_47)" @@ -45585,7 +45590,7 @@ static const char *startup_source = " ns25_2" " mpi26_0" " phase27_1)))" -"(if(void? sym_82)" +"(if(void? sym_81)" "(let-values()" "(let-values(((ns29_0) ns_58)" "((mpi30_0) mpi_47)" @@ -45611,7 +45616,7 @@ static const char *startup_source = "(let-values(((binding/p_5)" "(hash-ref" "(hash-ref(module-provides m_22) 0 '#hasheq())" -" sym_82" +" sym_81" " #f)))" "(if(not binding/p_5)" "(let-values()" @@ -45620,7 +45625,7 @@ static const char *startup_source = " 'dynamic-require" " \"name is not provided\"" " \"name\"" -" sym_82" +" sym_81" " \"module\"" " mod-name_22)" "(fail-k_2)))" @@ -45721,7 +45726,7 @@ static const char *startup_source = " 'dynamic-require" " \"name is protected\"" " \"name\"" -" sym_82" +" sym_81" " \"module\"" " mod-name_22))" "(void))" @@ -45737,7 +45742,7 @@ static const char *startup_source = " 'dynamic-require" " \"name's binding is missing\"" " \"name\"" -" sym_82" +" sym_81" " \"module\"" " mod-name_22)" "(fail-k_2))))))" @@ -45806,11 +45811,11 @@ static const char *startup_source = " tmp-ns_0)" "(let-values()" "(1/eval" -" sym_82" +" sym_81" " tmp-ns_0))))))))))))))))))))))))))))))))))))))))))))))))" "(case-lambda" -"((who_21 mod-path_17 sym_83)(begin(do-dynamic-require6_0 who_21 mod-path_17 sym_83 #f #f)))" -"((who_22 mod-path_18 sym_84 fail-k1_1)(do-dynamic-require6_0 who_22 mod-path_18 sym_84 fail-k1_1 #t)))))" +"((who_21 mod-path_17 sym_82)(begin(do-dynamic-require6_0 who_21 mod-path_17 sym_82 #f #f)))" +"((who_22 mod-path_18 sym_83 fail-k1_1)(do-dynamic-require6_0 who_22 mod-path_18 sym_83 fail-k1_1 #t)))))" " (define-values (default-dynamic-require-fail-thunk) (lambda () (begin (error \"failed\"))))" "(define-values" "(1/dynamic-require)" @@ -45819,12 +45824,12 @@ static const char *startup_source = "(begin" " 'dynamic-require12" "(let-values(((mod-path_19) mod-path10_2))" -"(let-values(((sym_85) sym11_0))" +"(let-values(((sym_84) sym11_0))" "(let-values(((fail-k_3)(if fail-k9_0 fail-k8_0 default-dynamic-require-fail-thunk)))" -"(let-values()(do-dynamic-require 'dynamic-require mod-path_19 sym_85 fail-k_3)))))))))" +"(let-values()(do-dynamic-require 'dynamic-require mod-path_19 sym_84 fail-k_3)))))))))" "(case-lambda" -"((mod-path_20 sym_86)(begin 'dynamic-require(dynamic-require12_0 mod-path_20 sym_86 #f #f)))" -"((mod-path_21 sym_87 fail-k8_1)(dynamic-require12_0 mod-path_21 sym_87 fail-k8_1 #t)))))" +"((mod-path_20 sym_85)(begin 'dynamic-require(dynamic-require12_0 mod-path_20 sym_85 #f #f)))" +"((mod-path_21 sym_86 fail-k8_1)(dynamic-require12_0 mod-path_21 sym_86 fail-k8_1 #t)))))" "(define-values" "(1/dynamic-require-for-syntax)" "(let-values(((dynamic-require-for-syntax18_0)" @@ -45832,7 +45837,7 @@ static const char *startup_source = "(begin" " 'dynamic-require-for-syntax18" "(let-values(((mod-path_22) mod-path16_0))" -"(let-values(((sym_88) sym17_1))" +"(let-values(((sym_87) sym17_1))" "(let-values(((fail-k_4)(if fail-k15_0 fail-k14_0 default-dynamic-require-fail-thunk)))" "(let-values()" "(with-continuation-mark" @@ -45840,14 +45845,14 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -"(let-values(((ns_111)(1/current-namespace)))" -"(namespace->namespace-at-phase ns_111(add1(namespace-phase ns_111)))))" +"(let-values(((ns_112)(1/current-namespace)))" +"(namespace->namespace-at-phase ns_112(add1(namespace-phase ns_112)))))" "(let-values()" -"(do-dynamic-require 'dynamic-require-for-syntax mod-path_22 sym_88 fail-k_4)))))))))))" +"(do-dynamic-require 'dynamic-require-for-syntax mod-path_22 sym_87 fail-k_4)))))))))))" "(case-lambda" -"((mod-path_23 sym_89)" -"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax18_0 mod-path_23 sym_89 #f #f)))" -"((mod-path_24 sym_90 fail-k14_1)(dynamic-require-for-syntax18_0 mod-path_24 sym_90 fail-k14_1 #t)))))" +"((mod-path_23 sym_88)" +"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax18_0 mod-path_23 sym_88 #f #f)))" +"((mod-path_24 sym_89 fail-k14_1)(dynamic-require-for-syntax18_0 mod-path_24 sym_89 fail-k14_1 #t)))))" " (define-values (replace-me) (lambda (who_0) (begin (lambda args_6 (error who_0 \"this stub must be replaced\")))))" "(define-values" "(1/current-eval)" @@ -45925,12 +45930,12 @@ static const char *startup_source = "(if(list? l_8)" "(andmap2" "(lambda(p_54)" -"(let-values(((or-part_295)(not p_54)))" -"(if or-part_295" -" or-part_295" -"(let-values(((or-part_296)(complete-path-string? p_54)))" +"(let-values(((or-part_296)(not p_54)))" "(if or-part_296" " or-part_296" +"(let-values(((or-part_297)(complete-path-string? p_54)))" +"(if or-part_297" +" or-part_297" "(if(hash? p_54)" "(let-values(((ht_152) p_54))" "(begin" @@ -46152,11 +46157,11 @@ static const char *startup_source = "(let-values(((sp_0)(find-system-path 'exec-file)))" "(let-values(((exe_0)(find-executable-path sp_0 #f)))" "(let-values(((start_42)" -"(let-values(((or-part_296)(1/string->number start_41)))" -"(if or-part_296 or-part_296 0))))" +"(let-values(((or-part_297)(1/string->number start_41)))" +"(if or-part_297 or-part_297 0))))" "(let-values(((end_32)" -"(let-values(((or-part_298)(1/string->number end_31)))" -"(if or-part_298 or-part_298 0))))" +"(let-values(((or-part_299)(1/string->number end_31)))" +"(if or-part_299 or-part_299 0))))" "(let-values(((exe4_0) exe_0)" "((temp5_6)" "(lambda()" @@ -46486,17 +46491,17 @@ static const char *startup_source = "(if(list? p_65)" "(if(let-values(((or-part_228)(= 2(length p_65))))" "(if or-part_228 or-part_228(= 3(length p_65))))" -"(if(let-values(((or-part_300)(string?(car p_65))))" -"(if or-part_300" -" or-part_300" -"(let-values(((or-part_301)" -"(eq? 'root(car p_65))))" +"(if(let-values(((or-part_301)(string?(car p_65))))" "(if or-part_301" " or-part_301" +"(let-values(((or-part_302)" +"(eq? 'root(car p_65))))" +"(if or-part_302" +" or-part_302" "(eq? 'static-root(car p_65))))))" "(if(path-string?(cadr p_65))" -"(let-values(((or-part_302)(null?(cddr p_65))))" -"(if or-part_302 or-part_302(regexp?(caddr p_65))))" +"(let-values(((or-part_303)(null?(cddr p_65))))" +"(if or-part_303 or-part_303(regexp?(caddr p_65))))" " #f)" " #f)" " #f)" @@ -46513,8 +46518,8 @@ static const char *startup_source = "(begin" "(for-each2" "(lambda(p_66)" -"(if(let-values(((or-part_303)(null?(cddr p_66))))" -"(if or-part_303 or-part_303(regexp-match?(caddr p_66)(version))))" +"(if(let-values(((or-part_304)(null?(cddr p_66))))" +"(if or-part_304 or-part_304(regexp-match?(caddr p_66)(version))))" "(let-values()" "(let-values(((dir_1)" "(simplify-path(path->complete-path(cadr p_66) dir_0))))" @@ -46581,7 +46586,7 @@ static const char *startup_source = "(let-values(((collection_3 collection-path_3)" "(normalize-collection-reference collection-in_0 collection-path-in_0)))" "(let-values(((all-paths_0)" -"(let-values(((sym_91)" +"(let-values(((sym_90)" "(string->symbol" "(if(path? collection_3)(path->string collection_3) collection_3))))" "((letrec-values(((loop_101)" @@ -46596,13 +46601,13 @@ static const char *startup_source = "(if(hash?(car l_78))" "(let-values()" "(append" -"(map2 box(hash-ref(car l_78) sym_91 null))" +"(map2 box(hash-ref(car l_78) sym_90 null))" "(hash-ref(car l_78) #f null)" "(loop_101(cdr l_78))))" "(let-values()" "(let-values(((ht_157)(get-linked-collections(car l_78))))" "(append" -"(hash-ref ht_157 sym_91 null)" +"(hash-ref ht_157 sym_90 null)" "(hash-ref ht_157 #f null)" "(loop_101(cdr l_78))))))))))))" " loop_101)" @@ -47065,11 +47070,11 @@ static const char *startup_source = "(let-values(((or-part_88) dynamic-require_1))" "(if or-part_88" " or-part_88" -"(lambda(mod-path_25 sym_73 failure-k_0)" +"(lambda(mod-path_25 sym_91 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_304) module-declared?_1))" -"(if or-part_304" -" or-part_304" +"(let-values(((or-part_305) module-declared?_1))" +"(if or-part_305" +" or-part_305" " (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))" "(let-values(((or-part_223) coerce_1))" "(if or-part_223 or-part_223(lambda(for-syntax?_2 v_110 srcloc_9) v_110)))" @@ -47148,10 +47153,10 @@ static const char *startup_source = "(begin" "(let-values(((end-line_0 end-col_0 end-pos_0)(port-next-location in_1)))" "(srcloc" -"(let-values(((or-part_305)(read-config-source config_1)))" -"(if or-part_305" -" or-part_305" -" (let-values (((or-part_306) (object-name in_1))) (if or-part_306 or-part_306 \"UNKNOWN\"))))" +"(let-values(((or-part_306)(read-config-source config_1)))" +"(if or-part_306" +" or-part_306" +" (let-values (((or-part_307) (object-name in_1))) (if or-part_307 or-part_307 \"UNKNOWN\"))))" "(read-config-line config_1)" "(read-config-col config_1)" "(read-config-pos config_1)" @@ -47907,10 +47912,10 @@ static const char *startup_source = " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_297)" +"(if(let-values(((or-part_298)" "(eof-object? c_62)))" -"(if or-part_297" -" or-part_297" +"(if or-part_298" +" or-part_298" "(eqv?" " '#\\newline" "(effective-char c_62 config_15))))" @@ -48091,9 +48096,9 @@ static const char *startup_source = "(let-values(((or-part_26)(char-whitespace? dc_0)))" "(if or-part_26" " or-part_26" -"(let-values(((or-part_307)(char=? dc_0 '#\\()))" -"(if or-part_307" -" or-part_307" +"(let-values(((or-part_308)(char=? dc_0 '#\\()))" +"(if or-part_308" +" or-part_308" "(let-values(((or-part_288)(char=? dc_0 '#\\))))" "(if or-part_288" " or-part_288" @@ -48192,9 +48197,9 @@ static const char *startup_source = "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" "(if(if s_10 c_67 #f)" " (let-values () (format \"~a, ~a, or ~a\" p_61 s_10 c_67))" -"(if(let-values(((or-part_296) s_10))(if or-part_296 or-part_296 c_67))" +"(if(let-values(((or-part_297) s_10))(if or-part_297 or-part_297 c_67))" "(let-values()" -" (format \"~a or ~a\" p_61 (let-values (((or-part_297) s_10)) (if or-part_297 or-part_297 c_67))))" +" (format \"~a or ~a\" p_61 (let-values (((or-part_298) s_10)) (if or-part_298 or-part_298 c_67))))" "(let-values() p_61)))))))))" "(define-values" "(struct:accum-string" @@ -48376,7 +48381,7 @@ static const char *startup_source = " (let-values () (format \"unexpected `~a`\" c_69))" "(let-values()" "(let-values(((missing_2)" -"(let-values(((or-part_301)" +"(let-values(((or-part_302)" "(let-values(((lst_311)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -48413,7 +48418,7 @@ static const char *startup_source = " for-loop_272)" " #f" " lst_311)))))" -" (if or-part_301 or-part_301 \"expected\"))))" +" (if or-part_302 or-part_302 \"expected\"))))" "(let-values(((opener-str_0)(opener-name(closer->opener(indentation-closer indt_2)) config_33)))" "(format" " \"~a ~a to close ~a, found instead `~a`\"" @@ -48903,9 +48908,9 @@ static const char *startup_source = "(hex-digit?)" "(lambda(c_77)" "(begin" -"(let-values(((or-part_308)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" -"(if or-part_308" -" or-part_308" +"(let-values(((or-part_309)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" +"(if or-part_309" +" or-part_309" "(let-values(((or-part_97)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" "(if or-part_97 or-part_97(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" "(define-values" @@ -49141,8 +49146,8 @@ static const char *startup_source = " temp81_1" " temp82_3)))))" "(let-values()" -"(if(let-values(((or-part_309) radix-set?_0))" -"(if or-part_309 or-part_309 in-complex_0))" +"(if(let-values(((or-part_310) radix-set?_0))" +"(if or-part_310 or-part_310 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" @@ -49437,10 +49442,10 @@ static const char *startup_source = "(substring s_202 start_44 end_34)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_310)" +"(let-values(((or-part_311)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_310" -" or-part_310" +"(if or-part_311" +" or-part_311" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -49566,27 +49571,27 @@ static const char *startup_source = " slash-pos_0" " #f" "(if(> i_176 start_44)" -"(let-values(((or-part_311)(not @-pos_0)))" -"(if or-part_311" -" or-part_311" +"(let-values(((or-part_312)(not @-pos_0)))" +"(if or-part_312" +" or-part_312" "(> i_176(add1 @-pos_0))))" " #f)))))" "(if(char=? c_80 '#\\.)" "(let-values()" "(if(let-values(((or-part_212)" "(if exp-pos_0" -"(let-values(((or-part_312)" +"(let-values(((or-part_313)" "(not sign-pos_0)))" -"(if or-part_312" -" or-part_312" +"(if or-part_313" +" or-part_313" "(> exp-pos_0 sign-pos_0)))" " #f)))" "(if or-part_212" " or-part_212" "(if dot-pos_1" -"(let-values(((or-part_313)(not sign-pos_0)))" -"(if or-part_313" -" or-part_313" +"(let-values(((or-part_314)(not sign-pos_0)))" +"(if or-part_314" +" or-part_314" "(> dot-pos_1 sign-pos_0)))" " #f)))" "(let-values()" @@ -49597,9 +49602,9 @@ static const char *startup_source = "(substring s_202 start_44 end_34)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_314)(not sign-pos_0)))" -"(if or-part_314" -" or-part_314" +"(let-values(((or-part_315)(not sign-pos_0)))" +"(if or-part_315" +" or-part_315" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -49624,9 +49629,9 @@ static const char *startup_source = "(if(char=? c_80 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_315)(not sign-pos_0)))" -"(if or-part_315" -" or-part_315" +"(let-values(((or-part_316)(not sign-pos_0)))" +"(if or-part_316" +" or-part_316" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -49636,7 +49641,7 @@ static const char *startup_source = " \"decimal points and fractions annot be mixed `~.a`\"" "(substring s_202 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_316)" +"(if(let-values(((or-part_317)" "(if exp-pos_0" "(let-values(((or-part_188)" "(not sign-pos_0)))" @@ -49644,13 +49649,13 @@ static const char *startup_source = " or-part_188" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_316" -" or-part_316" -"(if slash-pos_0" -"(let-values(((or-part_317)" -"(not sign-pos_0)))" "(if or-part_317" " or-part_317" +"(if slash-pos_0" +"(let-values(((or-part_318)" +"(not sign-pos_0)))" +"(if or-part_318" +" or-part_318" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -49672,28 +49677,28 @@ static const char *startup_source = " i_176" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_318)(char=? c_80 '#\\e)))" -"(if or-part_318" -" or-part_318" -"(let-values(((or-part_319)(char=? c_80 '#\\E)))" +"(if(let-values(((or-part_319)(char=? c_80 '#\\e)))" "(if or-part_319" " or-part_319" -"(let-values(((or-part_320)" -"(char=? c_80 '#\\f)))" +"(let-values(((or-part_320)(char=? c_80 '#\\E)))" "(if or-part_320" " or-part_320" "(let-values(((or-part_321)" -"(char=? c_80 '#\\F)))" +"(char=? c_80 '#\\f)))" "(if or-part_321" " or-part_321" "(let-values(((or-part_322)" -"(char=? c_80 '#\\d)))" +"(char=? c_80 '#\\F)))" "(if or-part_322" " or-part_322" "(let-values(((or-part_323)" -"(char=? c_80 '#\\D)))" +"(char=? c_80 '#\\d)))" "(if or-part_323" " or-part_323" +"(let-values(((or-part_324)" +"(char=? c_80 '#\\D)))" +"(if or-part_324" +" or-part_324" "(let-values(((or-part_213)" "(char=?" " c_80" @@ -49706,24 +49711,24 @@ static const char *startup_source = " '#\\S)))" "(if or-part_162" " or-part_162" -"(let-values(((or-part_324)" -"(char=?" -" c_80" -" '#\\l)))" -"(if or-part_324" -" or-part_324" "(let-values(((or-part_325)" "(char=?" " c_80" -" '#\\L)))" +" '#\\l)))" "(if or-part_325" " or-part_325" "(let-values(((or-part_326)" "(char=?" " c_80" -" '#\\t)))" +" '#\\L)))" "(if or-part_326" " or-part_326" +"(let-values(((or-part_327)" +"(char=?" +" c_80" +" '#\\t)))" +"(if or-part_327" +" or-part_327" "(char=?" " c_80" " '#\\T)))))))))))))))))))))))" @@ -49750,8 +49755,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_327) exp-pos_0))" -"(if or-part_327 or-part_327 i_176))" +"(let-values(((or-part_328) exp-pos_0))" +"(if or-part_328 or-part_328 i_176))" " must-i?_0))" "(let-values()" "(loop_107" @@ -49763,8 +49768,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_328) exp-pos_0))" -"(if or-part_328 or-part_328 i_176))" +"(let-values(((or-part_329) exp-pos_0))" +"(if or-part_329 or-part_329 i_176))" " must-i?_0)))))" "(if(char=? c_80 '#\\@)" "(let-values()" @@ -49776,9 +49781,9 @@ static const char *startup_source = " \"cannot mix `@` and `i` in `~.a`\"" "(substring s_202 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_329) @-pos_0))" -"(if or-part_329" -" or-part_329" +"(if(let-values(((or-part_330) @-pos_0))" +"(if or-part_330" +" or-part_330" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -49815,17 +49820,17 @@ static const char *startup_source = " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_330)" +"(if(if(let-values(((or-part_331)" "(char=? c_80 '#\\i)))" -"(if or-part_330" -" or-part_330" +"(if or-part_331" +" or-part_331" "(char=? c_80 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_331) @-pos_0))" -"(if or-part_331" -" or-part_331" +"(if(let-values(((or-part_332) @-pos_0))" +"(if or-part_332" +" or-part_332" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -49834,10 +49839,10 @@ static const char *startup_source = " \"cannot mix `@` and `i` in `~.a`\"" "(substring s_202 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_332)" +"(if(let-values(((or-part_333)" "(<(add1 i_176) end_34)))" -"(if or-part_332" -" or-part_332" +"(if or-part_333" +" or-part_333" "(eq? in-complex_1 'i)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -49958,11 +49963,11 @@ static const char *startup_source = " radix171_0" " exactness173_0" " convert-mode175_0))))))" -"(if(let-values(((or-part_333)(not v1_0)))" -"(if or-part_333 or-part_333(not v2_6)))" +"(if(let-values(((or-part_334)(not v1_0)))" +"(if or-part_334 or-part_334(not v2_6)))" "(let-values() #f)" -"(if(if(let-values(((or-part_334)(extflonum? v1_0)))" -"(if or-part_334 or-part_334(extflonum? v2_6)))" +"(if(if(let-values(((or-part_335)(extflonum? v1_0)))" +"(if or-part_335 or-part_335(extflonum? v2_6)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -49989,16 +49994,16 @@ static const char *startup_source = "(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_238 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" -"(if(let-values(((or-part_335)(eq? exactness_3 'inexact)))" -"(if or-part_335" -" or-part_335" -"(let-values(((or-part_336)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_336 or-part_336(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_337)(not exp-pos_1)))" -"(if or-part_337" -" or-part_337" -"(let-values(((or-part_338)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_338 or-part_338(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_336)(eq? exactness_3 'inexact)))" +"(if or-part_336" +" or-part_336" +"(let-values(((or-part_337)(eq? exactness_3 'decimal-as-inexact)))" +"(if or-part_337 or-part_337(if(not dot-pos_2)(not exp-pos_1) #f)))))" +"(if(let-values(((or-part_338)(not exp-pos_1)))" +"(if or-part_338" +" or-part_338" +"(let-values(((or-part_339)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_339 or-part_339(not(extfl-mark?_0))))))" "(not(if any-hashes?_1(hashes? s_238 start_45 end_35) #f))" " #f)" " #f)" @@ -50024,9 +50029,9 @@ static const char *startup_source = " (format \"missing digits before exponent marker in `~.a`\" (substring s_238 start_45 end_35)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_339)(= exp-pos_1(sub1 end_35))))" -"(if or-part_339" -" or-part_339" +"(let-values(((or-part_340)(= exp-pos_1(sub1 end_35))))" +"(if or-part_340" +" or-part_340" "(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_238(sub1 end_35))) #f)))" " #f)" "(let-values()" @@ -50039,14 +50044,14 @@ static const char *startup_source = "(string->number$1" "(maybe-substring s_238 start_45 end_35)" " radix_7" -"(if(let-values(((or-part_340)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_340" -" or-part_340" -"(let-values(((or-part_341)(not exp-pos_1)))" -"(if or-part_341 or-part_341(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_341)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_341" +" or-part_341" +"(let-values(((or-part_342)(not exp-pos_1)))" +"(if or-part_342 or-part_342(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_342)(not n_30)))(if or-part_342 or-part_342(string? n_30)))" +"(if(let-values(((or-part_343)(not n_30)))(if or-part_343 or-part_343(string? n_30)))" "(let-values()" "(error" " 'string->number" @@ -50103,7 +50108,7 @@ static const char *startup_source = " 'read)))" "(let-values()(real->double-flonum r_45)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" -"(if(let-values(((or-part_343)(not m-v_0)))(if or-part_343 or-part_343(not e-v_0)))" +"(if(let-values(((or-part_344)(not m-v_0)))(if or-part_344 or-part_344(not e-v_0)))" "(let-values() #f)" "(if(string? m-v_0)" "(let-values() m-v_0)" @@ -50134,8 +50139,8 @@ static const char *startup_source = "(let-values()" "(let-values(((n_31)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" -"(let-values(((or-part_344)(eq? exactness_3 'exact)))" -"(if or-part_344 or-part_344(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((or-part_345)(eq? exactness_3 'exact)))" +"(if or-part_345 or-part_345(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_31)" "(if(if(eqv? n_31 0)(char=?(string-ref s_238 start_45) '#\\-) #f)" @@ -50177,7 +50182,7 @@ static const char *startup_source = "(if(not(eq? exactness_3 'exact))" "(hashes? s_238 from-pos_0 end_35)" " #f)))))))" -"(if(let-values(((or-part_345)(not n-v_0)))(if or-part_345 or-part_345(not d-v_0)))" +"(if(let-values(((or-part_346)(not n-v_0)))(if or-part_346 or-part_346(not d-v_0)))" "(let-values() #f)" "(if(string? n-v_0)" "(let-values() n-v_0)" @@ -50209,8 +50214,8 @@ static const char *startup_source = "(lambda(s_363 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_346)(eq? exactness_4 'exact)))" -"(if or-part_346 or-part_346(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((or-part_347)(eq? exactness_4 'exact)))" +"(if or-part_347 or-part_347(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_36 start_46(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" "((letrec-values(((loop_108)" "(lambda(i_118 j_3 hashes-pos_0)" @@ -50253,8 +50258,8 @@ static const char *startup_source = "(sub1 i_118)" "(sub1 j_3)" "(if(= hashes-pos_0(add1 i_118)) i_118 hashes-pos_0))))))" -"(if(let-values(((or-part_347)(char=? c_81 '#\\-)))" -"(if or-part_347 or-part_347(char=? c_81 '#\\+)))" +"(if(let-values(((or-part_348)(char=? c_81 '#\\-)))" +"(if or-part_348 or-part_348(char=? c_81 '#\\+)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_81)" @@ -50306,25 +50311,25 @@ static const char *startup_source = "(lambda(s_251 start_48 end_38 convert-mode_8)" "(begin" "(if(=(- end_38 start_48) 6)" -"(if(let-values(((or-part_348)(char=?(string-ref s_251 start_48) '#\\+)))" -"(if or-part_348 or-part_348(char=?(string-ref s_251 start_48) '#\\-)))" -"(let-values(((or-part_349)" +"(if(let-values(((or-part_349)(char=?(string-ref s_251 start_48) '#\\+)))" +"(if or-part_349 or-part_349(char=?(string-ref s_251 start_48) '#\\-)))" +"(let-values(((or-part_350)" "(if(char=?(char-downcase(string-ref s_251(+ start_48 1))) '#\\i)" "(if(char=?(char-downcase(string-ref s_251(+ start_48 2))) '#\\n)" "(if(char=?(char-downcase(string-ref s_251(+ start_48 3))) '#\\f)" "(if(char=?(char-downcase(string-ref s_251(+ start_48 4))) '#\\.)" -"(let-values(((or-part_350)" +"(let-values(((or-part_351)" "(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\0)" "(if(char=?(string-ref s_251 start_48) '#\\+) +inf.0 -inf.0)" " #f)))" -"(if or-part_350" -" or-part_350" -"(let-values(((or-part_351)" +"(if or-part_351" +" or-part_351" +"(let-values(((or-part_352)" "(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\f)" "(if(char=?(string-ref s_251 start_48) '#\\+) +inf.f -inf.f)" " #f)))" -"(if or-part_351" -" or-part_351" +"(if or-part_352" +" or-part_352" "(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" "(if(char=?(string-ref s_251 start_48) '#\\+) '+inf.t '-inf.t)" @@ -50334,20 +50339,20 @@ static const char *startup_source = " #f)" " #f)" " #f)))" -"(if or-part_349" -" or-part_349" +"(if or-part_350" +" or-part_350" "(if(char=?(char-downcase(string-ref s_251(+ start_48 1))) '#\\n)" "(if(char=?(char-downcase(string-ref s_251(+ start_48 2))) '#\\a)" "(if(char=?(char-downcase(string-ref s_251(+ start_48 3))) '#\\n)" "(if(char=?(char-downcase(string-ref s_251(+ start_48 4))) '#\\.)" -"(let-values(((or-part_352)" -"(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\0) +nan.0 #f)))" -"(if or-part_352" -" or-part_352" "(let-values(((or-part_353)" -"(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\f) +nan.f #f)))" +"(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\0) +nan.0 #f)))" "(if or-part_353" " or-part_353" +"(let-values(((or-part_354)" +"(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\f) +nan.f #f)))" +"(if or-part_354" +" or-part_354" "(if(char=?(char-downcase(string-ref s_251(+ start_48 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" @@ -50396,8 +50401,8 @@ static const char *startup_source = " (let-values () (format \"no exact representation for `~a`\" v_233))" "(let-values() #f)))" "(if(if(extflonum? v_233)" -"(let-values(((or-part_354)(not reading-first?_0)))" -"(if or-part_354 or-part_354(not(eq? convert-mode_10 'must-read))))" +"(let-values(((or-part_355)(not reading-first?_0)))" +"(if or-part_355 or-part_355(not(eq? convert-mode_10 'must-read))))" " #f)" "(let-values()(fail-extflonum convert-mode_10 v_233))" "(let-values()" @@ -50515,11 +50520,11 @@ static const char *startup_source = "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_355)(eq? exactness_6 'exact)))(if or-part_355 or-part_355(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_356)(eq? exactness_6 'exact)))(if or-part_356 or-part_356(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" "(lambda(c_84)" -"(begin(let-values(((or-part_356)(char=? c_84 '#\\-)))(if or-part_356 or-part_356(char=? c_84 '#\\+))))))" +"(begin(let-values(((or-part_357)(char=? c_84 '#\\-)))(if or-part_357 or-part_357(char=? c_84 '#\\+))))))" "(define-values" "(digit?)" "(lambda(c_85 radix_11)" @@ -50530,10 +50535,10 @@ static const char *startup_source = "(if or-part_275" " or-part_275" "(if(> radix_11 10)" -"(let-values(((or-part_357)" +"(let-values(((or-part_358)" "(if(>= v_234(char->integer '#\\a))(<(- v_234(-(char->integer '#\\a) 10)) radix_11) #f)))" -"(if or-part_357" -" or-part_357" +"(if or-part_358" +" or-part_358" "(if(>= v_234(char->integer '#\\A))(<(- v_234(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" @@ -51829,9 +51834,9 @@ static const char *startup_source = "(if(if(equal? tmp_34 '#\\=) #t(equal? tmp_34 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_358)(read-config-for-syntax? config_46)))" -"(if or-part_358" -" or-part_358" +"(if(let-values(((or-part_359)(read-config-for-syntax? config_46)))" +"(if or-part_359" +" or-part_359" "(not(check-parameter 1/read-accept-graph config_46))))" "(let-values()" "(let-values(((in37_0) in_38)" @@ -51954,9 +51959,9 @@ static const char *startup_source = "(let-values()" "(begin0" "(hash-ref" -"(let-values(((or-part_359)" +"(let-values(((or-part_360)" "(read-config-state-graph(read-config-st config_46))))" -"(if or-part_359 or-part_359 '#hash()))" +"(if or-part_360 or-part_360 '#hash()))" " v_28" "(lambda()" "(let-values(((in67_0) in_38)" @@ -52952,12 +52957,12 @@ static const char *startup_source = " v_239" " escaping-c_0" " escaped-c_0)))" -"(if(let-values(((or-part_360)" +"(if(let-values(((or-part_361)" "(<" " v_239" " 55296)))" -"(if or-part_360" -" or-part_360" +"(if or-part_361" +" or-part_361" "(>" " v_239" " 57343)))" @@ -53564,8 +53569,8 @@ static const char *startup_source = " #t))))" "(if(integer? v_33)" "(let-values()" -"(if(if(let-values(((or-part_361)(< v_33 55296)))" -"(if or-part_361 or-part_361(> v_33 57343)))" +"(if(if(let-values(((or-part_362)(< v_33 55296)))" +"(if or-part_362 or-part_362(> v_33 57343)))" "(<= v_33 1114111)" " #f)" "(let-values()" @@ -54299,12 +54304,12 @@ static const char *startup_source = "(let-values(((or-part_276)(char-alphabetic? c_105)))" "(if or-part_276" " or-part_276" -"(let-values(((or-part_362)(char-numeric? c_105)))" -"(if or-part_362" -" or-part_362" -"(let-values(((or-part_304)(char=? '#\\- c_105)))" -"(if or-part_304" -" or-part_304" +"(let-values(((or-part_363)(char-numeric? c_105)))" +"(if or-part_363" +" or-part_363" +"(let-values(((or-part_305)(char=? '#\\- c_105)))" +"(if or-part_305" +" or-part_305" "(let-values(((or-part_180)(char=? '#\\+ c_105)))" "(if or-part_180 or-part_180(char=? '#\\_ c_105)))))))))" " #f))))" @@ -54400,7 +54405,7 @@ static const char *startup_source = "(let-values((()(begin(force-parameters! config_54)(values))))" "(let-values(((guard_0)(1/current-reader-guard)))" "(let-values(((mod-path_27)" -"(let-values(((or-part_363)" +"(let-values(((or-part_364)" "(if try-first-mod-path_0" "(let-values(((mod-path_28)(guard_0 try-first-mod-path_0)))" "(if((read-config-module-declared? config_54)" @@ -54408,7 +54413,7 @@ static const char *startup_source = " mod-path_28" " #f))" " #f)))" -"(if or-part_363 or-part_363(guard_0 mod-path-datum_0)))))" +"(if or-part_364 or-part_364(guard_0 mod-path-datum_0)))))" "(let-values(((for-syntax?_8)(read-config-for-syntax? config_54)))" "(let-values(((dynamic-require_2)(read-config-dynamic-require config_54)))" "(let-values(((no-value_0)(gensym)))" @@ -54915,9 +54920,9 @@ static const char *startup_source = "((in80_1) in_62)" "((r-config81_0) r-config_0)" "((temp82_4)" -"(if(let-values(((or-part_325)(eq? c_109 ec_10)))" -"(if or-part_325" -" or-part_325" +"(if(let-values(((or-part_326)(eq? c_109 ec_10)))" +"(if or-part_326" +" or-part_326" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -55062,10 +55067,10 @@ static const char *startup_source = "(list temp101_3))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_364)" +"(if(let-values(((or-part_365)" "(check-parameter 1/read-square-bracket-as-paren config_54)))" -"(if or-part_364" -" or-part_364" +"(if or-part_365" +" or-part_365" "(check-parameter 1/read-square-bracket-with-tag config_54)))" "(let-values()" "(wrap" @@ -55113,10 +55118,10 @@ static const char *startup_source = " temp111_2" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_365)" +"(if(let-values(((or-part_366)" "(check-parameter 1/read-square-bracket-as-paren config_54)))" -"(if or-part_365" -" or-part_365" +"(if or-part_366" +" or-part_366" "(check-parameter 1/read-square-bracket-with-tag config_54)))" "(let-values()" "(let-values(((in113_0) in_62)" @@ -55156,10 +55161,10 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_366)" +"(if(let-values(((or-part_367)" "(check-parameter 1/read-curly-brace-as-paren config_54)))" -"(if or-part_366" -" or-part_366" +"(if or-part_367" +" or-part_367" "(check-parameter 1/read-curly-brace-with-tag config_54)))" "(let-values()" "(wrap" @@ -55208,10 +55213,10 @@ static const char *startup_source = "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_367)" +"(if(let-values(((or-part_368)" "(check-parameter 1/read-curly-brace-as-paren config_54)))" -"(if or-part_367" -" or-part_367" +"(if or-part_368" +" or-part_368" "(check-parameter 1/read-curly-brace-with-tag config_54)))" "(let-values()" "(let-values(((in132_0) in_62)" @@ -55622,8 +55627,8 @@ static const char *startup_source = "(if(eq? c_115 'special)(special1.1 'special) c_115)))))" "(if(char-delimiter? c2_13 config_5)" "(let-values()(wrap #f in_67 config_5 c_111))" -"(if(let-values(((or-part_349)(char=? c2_13 '#\\x)))" -"(if or-part_349 or-part_349(char=? c2_13 '#\\l)))" +"(if(let-values(((or-part_350)(char=? c2_13 '#\\x)))" +"(if or-part_350 or-part_350(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" @@ -55912,11 +55917,11 @@ static const char *startup_source = "(let-values()" "(raise-argument-error 'module-declared? module-reference-str mod_4)))" "(values))))" -"(let-values(((ns_112)(1/current-namespace)))" +"(let-values(((ns_113)(1/current-namespace)))" "(let-values(((name_67)" "(let-values(((mod35_0) mod_4)((load?36_0) load?_3))" "(reference->resolved-module-path32.1 load?36_0 mod35_0))))" -"(if(namespace->module ns_112 name_67) #t #f)))))))))))" +"(if(namespace->module ns_113 name_67) #t #f)))))))))))" "(case-lambda" "((mod_5)(begin 'module-declared?(module-declared?4_0 mod_5 #f #f)))" "((mod_6 load?1_1)(module-declared?4_0 mod_6 load?1_1 #t)))))" @@ -56093,7 +56098,7 @@ static const char *startup_source = " 'namespace-unprotect-module27" "(let-values(((insp_18) insp25_0))" "(let-values(((mod_21) mod26_0))" -"(let-values(((ns_113)(if ns24_1 ns23_0(1/current-namespace))))" +"(let-values(((ns_114)(if ns24_1 ns23_0(1/current-namespace))))" "(let-values()" "(let-values((()" "(begin" @@ -56117,20 +56122,20 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? ns_113)" +"(if(1/namespace? ns_114)" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-unprotect-module" " \"namespace?\"" -" ns_113)))" +" ns_114)))" "(values))))" "(let-values(((name_69)" "(let-values(((mod50_0) mod_21)((temp51_3) #f))" "(reference->resolved-module-path32.1 temp51_3 mod50_0))))" -"(let-values(((phase_138)(namespace-phase ns_113)))" +"(let-values(((phase_138)(namespace-phase ns_114)))" "(let-values(((m-ns_18)" -"(let-values(((ns52_0) ns_113)" +"(let-values(((ns52_0) ns_114)" "((name53_0) name_69)" "((phase54_2) phase_138))" "(namespace->module-namespace82.1" @@ -56163,19 +56168,19 @@ static const char *startup_source = "((insp_19 mod_23 ns23_1)(namespace-unprotect-module27_0 insp_19 mod_23 ns23_1 #t)))))" "(define-values" "(namespace->module/complain)" -"(lambda(who_31 ns_114 name_70)" +"(lambda(who_31 ns_115 name_70)" "(begin" -"(let-values(((or-part_368)(namespace->module ns_114 name_70)))" -"(if or-part_368" -" or-part_368" +"(let-values(((or-part_369)(namespace->module ns_115 name_70)))" +"(if or-part_369" +" or-part_369" " (raise-arguments-error who_31 \"unknown module in the current namespace\" \"name\" name_70))))))" "(define-values" "(module-reference?)" "(lambda(mod_24)" "(begin" -"(let-values(((or-part_369)(1/module-path? mod_24)))" -"(if or-part_369" -" or-part_369" +"(let-values(((or-part_370)(1/module-path? mod_24)))" +"(if or-part_370" +" or-part_370" "(let-values(((or-part_134)(1/module-path-index? mod_24)))" "(if or-part_134 or-part_134(1/resolved-module-path? mod_24))))))))" " (define-values (module-reference-str) \"(or/c module-path? module-path-index? resolved-module-path?)\")" @@ -56468,8 +56473,8 @@ static const char *startup_source = "(if(input-port? in_83)" "(void)" " (let-values () (raise-argument-error 'read-syntax/recursive \"input-port?\" in_83)))" -"(if(let-values(((or-part_370)(char? start_60)))" -"(if or-part_370 or-part_370(not start_60)))" +"(if(let-values(((or-part_371)(char? start_60)))" +"(if or-part_371 or-part_371(not start_60)))" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_60)))" @@ -56578,13 +56583,13 @@ static const char *startup_source = "(begin" " (if (syntax?$1 s_1) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_1)))" "((1/current-eval) s_1))))" -"((s_168 ns_115)" +"((s_168 ns_116)" "(begin" " (if (syntax?$1 s_168) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_168)))" -" (if (1/namespace? ns_115) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_115)))" +" (if (1/namespace? ns_116) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_116)))" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_115)" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_116)" "(let-values()((1/current-eval) s_168)))))))" "(define-values(compile$1)(lambda(s_2)(begin 'compile((1/current-compile)(intro s_2) #f))))" "(define-values" @@ -57193,8 +57198,8 @@ static const char *startup_source = "(let-values(((lift-key_6)" "(if lift-key47_0" " lift-key41_0" -"(if(let-values(((or-part_371) capture-lifts?_0))" -"(if or-part_371 or-part_371 as-transformer?_5))" +"(if(let-values(((or-part_372) capture-lifts?_0))" +"(if or-part_372 or-part_372 as-transformer?_5))" "(generate-lift-key)" " #f))))" "(let-values(((track-to-be-defined?_1)" @@ -57537,8 +57542,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_296)(not maybe-insp_2)))" -"(if or-part_296 or-part_296(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_297)(not maybe-insp_2)))" +"(if or-part_297 or-part_297(inspector? maybe-insp_2)))" "(void)" " (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))" "(values))))" @@ -57656,7 +57661,7 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'variable-reference->module-source \"variable-reference?\" vr_4)))" "(values))))" -"(let-values(((ns_116)(1/variable-reference->namespace vr_4)))(namespace-source-name ns_116))))))" +"(let-values(((ns_117)(1/variable-reference->namespace vr_4)))(namespace-source-name ns_117))))))" "(define-values" "(1/variable-reference->phase)" "(lambda(vr_5)" @@ -57981,7 +57986,7 @@ static const char *startup_source = "(lambda(eval1_0 main-ids2_0 read-ids3_0 ns7_1)" "(begin" " 'declare-kernel-module!8" -"(let-values(((ns_117) ns7_1))" +"(let-values(((ns_118) ns7_1))" "(let-values()" "(let-values(((main-ids_0) main-ids2_0))" "(let-values(((read-ids_0) read-ids3_0))" @@ -57998,9 +58003,9 @@ static const char *startup_source = " 1/variable-reference-constant?" " 'variable-reference-from-unsafe?" " 1/variable-reference-from-unsafe?))" -"((ns57_0) ns_117))" +"((ns57_0) ns_118))" "(copy-runtime-module!26.1 #f #f temp56_3 #t ns57_0 #f #f #f #f temp55_4 #t temp54_5 #t temp53_4))" -"(let-values(((temp58_4) '#%kernel)((temp59_5) '(#%core #%runtime #%main #%read))((ns60_0) ns_117))" +"(let-values(((temp58_4) '#%kernel)((temp59_5) '(#%core #%runtime #%main #%read))((ns60_0) ns_118))" "(declare-reexporting-module!50.1 ns60_0 #f #f temp58_4 temp59_5)))))))))))" "(define-values" "(copy-runtime-module!26.1)" @@ -58022,7 +58027,7 @@ static const char *startup_source = " 'copy-runtime-module!26" "(let-values(((name_64) name25_0))" "(let-values(((to-name_0)(if to18_0 to11_0 name_64)))" -"(let-values(((ns_118) namespace12_0))" +"(let-values(((ns_119) namespace12_0))" "(let-values(((skip-syms_0)(if skip20_0 skip13_0(seteq))))" "(let-values(((alts_0)(if alts21_0 alts14_0 '#hasheq())))" "(let-values(((extras_0)(if extras22_0 extras15_0 '#hasheq())))" @@ -58042,7 +58047,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_26" -"(let-values(((sym_88)" +"(let-values(((sym_87)" "(hash-iterate-key ht_25 i_26)))" "(let-values((()" "(let-values()" @@ -58051,7 +58056,7 @@ static const char *startup_source = "(begin" "(let-values()" "(register-built-in-symbol!" -" sym_88))" +" sym_87))" "(values)))))" "(values)))))" "(if(not #f)" @@ -58151,7 +58156,7 @@ static const char *startup_source = "(hash-iterate-first ht_163))))))" "(let-values(((to-name61_0) to-name_0)" "((ht+extras62_0) ht+extras_0)" -"((ns63_0) ns_118)" +"((ns63_0) ns_119)" "((primitive?64_0) primitive?_9)" "((protected?65_0) protected?_10))" "(declare-hash-based-module!41.1" @@ -58183,14 +58188,14 @@ static const char *startup_source = " 'declare-hash-based-module!41" "(let-values(((name_73) name39_0))" "(let-values(((ht_167) ht40_0))" -"(let-values(((ns_119) namespace29_0))" +"(let-values(((ns_120) namespace29_0))" "(let-values(((primitive?_10)(if primitive?35_0 primitive?30_0 #f)))" "(let-values(((protected?_11)(if protected?36_0 protected?31_0 #f)))" "(let-values(((protected-syms_0)(if protected37_0 protected32_0 null)))" "(let-values(((register-builtin?_0)(if register-builtin?38_0 register-builtin?33_0 #f)))" "(let-values()" "(let-values(((mpi_6)(1/module-path-index-join(list 'quote name_73) #f)))" -"(let-values(((ns66_1) ns_119)" +"(let-values(((ns66_1) ns_120)" "((temp67_3)" "(let-values(((temp69_5) #t)" "((primitive?70_0) primitive?_10)" @@ -58261,10 +58266,10 @@ static const char *startup_source = " sym78_0))))" "(values" " sym_98" -"(if(let-values(((or-part_372)" +"(if(let-values(((or-part_373)" " protected?_11))" -"(if or-part_372" -" or-part_372" +"(if or-part_373" +" or-part_373" "(member" " sym_98" " protected-syms_0)))" @@ -58292,7 +58297,7 @@ static const char *startup_source = "(hash-iterate-first ht_168))))))" "((temp75_2)" "(lambda(data-box_6" -" ns_120" +" ns_121" " phase-shift_21" " phase-level_23" " self_29" @@ -58323,7 +58328,7 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-variable!" -" ns_120" +" ns_121" " 0" " sym_6" " val_30))" @@ -58384,7 +58389,7 @@ static const char *startup_source = "(let-values(((name_13) name48_1))" "(let-values(((require-names_0) require-names49_0))" "(let-values(((reexport?_0)(if reexport?46_0 reexport?44_0 #t)))" -"(let-values(((ns_121) namespace45_0))" +"(let-values(((ns_83) namespace45_0))" "(let-values()" "(let-values(((mpi_51)(1/module-path-index-join(list 'quote name_13) #f)))" "(let-values(((require-mpis_0)" @@ -58421,7 +58426,7 @@ static const char *startup_source = " for-loop_202)" " null" " lst_205))))))" -"(let-values(((ns79_1) ns_121)" +"(let-values(((ns79_1) ns_83)" "((temp80_6)" "(let-values(((temp82_6) #t)" "((temp83_4) #t)" @@ -58448,7 +58453,7 @@ static const char *startup_source = "(let-values(((table_229)" "(let-values(((m_29)" "(namespace->module" -" ns_121" +" ns_83" "(1/module-path-index-resolve" " require-mpi_0))))" "(begin" @@ -58913,8 +58918,8 @@ static const char *startup_source = "(check-module-form)" "(lambda(exp_0 filename_1)" "(begin" -"(if(let-values(((or-part_307)(eof-object? exp_0)))" -"(if or-part_307 or-part_307(eof-object?(1/syntax-e exp_0))))" +"(if(let-values(((or-part_308)(eof-object? exp_0)))" +"(if or-part_308 or-part_308(eof-object?(1/syntax-e exp_0))))" "(let-values()" "(if filename_1" "(error" @@ -59622,12 +59627,12 @@ static const char *startup_source = "(car zo-d_1)" " expect-module_0)))))))" " c4_3)" -"(if(let-values(((or-part_358)" +"(if(let-values(((or-part_359)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_358" -" or-part_358" +"(if or-part_359" +" or-part_359" "(car expect-module_0)))" "(let-values()" "(let-values(((p_39)" @@ -59785,11 +59790,11 @@ static const char *startup_source = " from-namespace_1)))" "(if planet-resolver_0(let-values()(planet-resolver_0 s_478))(void))" "(let-values(((hts_1)" -"(let-values(((or-part_309)" +"(let-values(((or-part_310)" "(registry-table-ref" "(1/namespace-module-registry(1/current-namespace)))))" -"(if or-part_309" -" or-part_309" +"(if or-part_310" +" or-part_310" "(let-values(((hts_2)(cons(make-hasheq)(make-hasheq))))" "(begin" "(registry-table-set!" @@ -59913,9 +59918,9 @@ static const char *startup_source = " (if or-part_93 or-part_93 (equal? (cadr s_26) \"..\")))" "(if relto_1" "(let-values(((p_76)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_373)(symbol? p_76)))" -"(if or-part_373" -" or-part_373" +"(let-values(((or-part_374)(symbol? p_76)))" +"(if or-part_374" +" or-part_374" "(if(pair? p_76)(symbol?(car p_76)) #f))))" " #f)" " #f)" @@ -59996,15 +60001,15 @@ static const char *startup_source = " 'show-collection-err" "(let-values(((msg_2)" "(string-append" -"(let-values(((or-part_374)" +"(let-values(((or-part_375)" "(if stx_18" "(if(error-print-source-location)" "(format-source-location" " stx_18)" " #f)" " #f)))" -"(if or-part_374" -" or-part_374" +"(if or-part_375" +" or-part_375" " \"standard-module-name-resolver\"))" " \": \"" "(regexp-replace" @@ -60058,8 +60063,8 @@ static const char *startup_source = "((s_31)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" "(let-values(((v_38)(cadr s_26)))" -" (if (let-values (((or-part_375) (equal? v_38 \".\")))" -" (if or-part_375 or-part_375 (equal? v_38 \"..\")))" +" (if (let-values (((or-part_376) (equal? v_38 \".\")))" +" (if or-part_376 or-part_376 (equal? v_38 \"..\")))" "(if relto_1" "(let-values(((p_80)" "(1/resolved-module-path-name" @@ -60131,11 +60136,11 @@ static const char *startup_source = "(if(string? s_31)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_376)" +"(let-values(((or-part_377)" "(path-cache-get" "(cons s_31 dir_4))))" -"(if or-part_376" -" or-part_376" +"(if or-part_377" +" or-part_377" "(let-values(((cols_1 file_4)" "(split-relative-string" " s_31" @@ -60226,8 +60231,8 @@ static const char *startup_source = "(get-dir_0)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_377)(path? s-parsed_0)))" -"(if or-part_377 or-part_377(vector? s-parsed_0)))" +"(if(let-values(((or-part_378)(path? s-parsed_0)))" +"(if or-part_378 or-part_378(vector? s-parsed_0)))" "(void)" "(let-values()" "(if stx_18" @@ -60265,11 +60270,11 @@ static const char *startup_source = "(vector-ref s-parsed_0 4)" "(1/make-resolved-module-path filename_2))))" "(let-values(((hts_3)" -"(let-values(((or-part_378)" +"(let-values(((or-part_293)" "(registry-table-ref" "(get-reg_0))))" -"(if or-part_378" -" or-part_378" +"(if or-part_293" +" or-part_293" "(let-values(((hts_4)" "(cons" "(make-hasheq)" @@ -61559,15 +61564,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_324)" +"(if(let-values(((or-part_325)" "(if(syntax?$1" " s_493)" "(symbol?" "(syntax-e$1" " s_493))" " #f)))" -"(if or-part_324" -" or-part_324" +"(if or-part_325" +" or-part_325" "(symbol?" " s_493)))" " s_493" @@ -64163,15 +64168,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val153_0)" "(let-values()" -"(if(let-values(((or-part_354)" +"(if(let-values(((or-part_355)" "(if(syntax?$1" " s_384)" "(symbol?" "(syntax-e$1" " s_384))" " #f)))" -"(if or-part_354" -" or-part_354" +"(if or-part_355" +" or-part_355" "(symbol?" " s_384)))" " s_384" @@ -68411,15 +68416,15 @@ static const char *startup_source = "(let-values(((s_734)" "(car" " s_733)))" -"(if(let-values(((or-part_362)" +"(if(let-values(((or-part_363)" "(if(syntax?$1" " s_734)" "(symbol?" "(syntax-e$1" " s_734))" " #f)))" -"(if or-part_362" -" or-part_362" +"(if or-part_363" +" or-part_363" "(symbol?" " s_734)))" " s_734" @@ -70777,15 +70782,15 @@ static const char *startup_source = "(let-values(((s_490)" "(car" " s_755)))" -"(if(let-values(((or-part_376)" +"(if(let-values(((or-part_377)" "(if(syntax?$1" " s_490)" "(symbol?" "(syntax-e$1" " s_490))" " #f)))" -"(if or-part_376" -" or-part_376" +"(if or-part_377" +" or-part_377" "(symbol?" " s_490)))" " s_490" @@ -70971,7 +70976,7 @@ static const char *startup_source = " ns243_0)" "(begin" " 'make-m-ns244" -"(let-values(((ns_120) ns243_0))" +"(let-values(((ns_121) ns243_0))" "(let-values(((for-submodule?_1)" "(if for-submodule?242_0" " for-submodule?241_0" @@ -70980,7 +70985,7 @@ static const char *startup_source = " #f))))" "(let-values()" "(let-values(((ns262_0)" -" ns_120)" +" ns_121)" "((self263_0)" " self_32)" "((root-ctx264_0)" @@ -72459,11 +72464,11 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_353)" +"(if(let-values(((or-part_354)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_353" -" or-part_353" +"(if or-part_354" +" or-part_354" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -77432,15 +77437,15 @@ static const char *startup_source = "(let-values()" "(let-values(((id24_1)" "(let-values()" -"(if(let-values(((or-part_359)" +"(if(let-values(((or-part_360)" "(if(syntax?$1" " s_146)" "(symbol?" "(syntax-e$1" " s_146))" " #f)))" -"(if or-part_359" -" or-part_359" +"(if or-part_360" +" or-part_360" "(symbol?" " s_146)))" " s_146"