diff --git a/pkgs/racket-doc/scribblings/reference/namespaces.scrbl b/pkgs/racket-doc/scribblings/reference/namespaces.scrbl index f3315f8c03..52b96013d2 100644 --- a/pkgs/racket-doc/scribblings/reference/namespaces.scrbl +++ b/pkgs/racket-doc/scribblings/reference/namespaces.scrbl @@ -89,7 +89,8 @@ Returns a namespace corresponding to the source of the anchor. If the anchor is from a @racket[define-namespace-anchor] form in a module context, then the result is a namespace for the module's body in the anchor's phase. The result is the same as a namespace obtained -via @racket[module->namespace]. +via @racket[module->namespace], and the module is similarly made +@tech{available} if it is not available already. If the anchor is from a @racket[define-namespace-anchor] form in a top-level content, then the result is the namespace in which the @@ -439,7 +440,8 @@ and with the same phase as @racket[varref].} If @racket[varref] refers to a @tech{module-level variable}, then the result is a namespace for the module's body in the referenced variable's @tech{phase}; the result is the same as a namespace -obtained via @racket[module->namespace]. +obtained via @racket[module->namespace], and the module is similarly made +@tech{available} if it is not available already. If @racket[varref] refers to a @tech{top-level variable}, then the result is the namespace in which the referenced variable is defined.} diff --git a/racket/src/expander/common/module-path.rkt b/racket/src/expander/common/module-path.rkt index 3f91c49a8c..5da5dd48c6 100644 --- a/racket/src/expander/common/module-path.rkt +++ b/racket/src/expander/common/module-path.rkt @@ -26,6 +26,7 @@ top-level-module-path-index top-level-module-path-index? + non-self-module-path-index? resolve-module-path current-module-name-resolver @@ -358,6 +359,9 @@ (define (top-level-module-path-index? mpi) (eq? top-level-module-path-index mpi)) +(define (non-self-module-path-index? mpi) + (and (module-path-index-path mpi) #t)) + ;; ---------------------------------------- (define (resolve-module-path mod-path base) diff --git a/racket/src/expander/namespace/variable-reference.rkt b/racket/src/expander/namespace/variable-reference.rkt index ce847c8f30..b4fa97d60b 100644 --- a/racket/src/expander/namespace/variable-reference.rkt +++ b/racket/src/expander/namespace/variable-reference.rkt @@ -3,6 +3,7 @@ "../common/contract.rkt" "../common/module-path.rkt" "../host/linklet.rkt" + "module.rkt" "api-module.rkt") (provide variable-reference? ; provided by linklet layer, along with `#%variable-reference` @@ -24,6 +25,14 @@ (define/who (variable-reference->namespace vr) (check who variable-reference? vr) + (define ns (variable-reference->namespace* vr)) + (define mpi (namespace-mpi ns)) + (when (non-self-module-path-index? mpi) + ;; Ensure that the module is available + (namespace-module-make-available! ns mpi (namespace-0-phase ns))) + ns) + +(define (variable-reference->namespace* vr) (define inst (variable-reference->instance vr)) (cond [(symbol? inst) @@ -42,7 +51,7 @@ (define/who (variable-reference->module-path-index vr) (check who variable-reference? vr) - (define mpi (namespace-mpi (variable-reference->namespace vr))) + (define mpi (namespace-mpi (variable-reference->namespace* vr))) (if (top-level-module-path-index? mpi) #f mpi)) @@ -54,16 +63,16 @@ (define/who (variable-reference->module-source vr) (check who variable-reference? vr) - (define ns (variable-reference->namespace vr)) + (define ns (variable-reference->namespace* vr)) (namespace-source-name ns)) (define/who (variable-reference->phase vr) (check who variable-reference? vr) - (namespace-phase (variable-reference->namespace vr))) + (namespace-phase (variable-reference->namespace* vr))) (define/who (variable-reference->module-base-phase vr) (check who variable-reference? vr) - (namespace-0-phase (variable-reference->namespace vr))) + (namespace-0-phase (variable-reference->namespace* vr))) (define/who (variable-reference->module-declaration-inspector vr) (check who variable-reference? vr) @@ -71,6 +80,6 @@ (raise-arguments-error who "variable reference does not refer to an anonymous module variable" "variable reference" vr)) - (or (namespace-declaration-inspector (variable-reference->namespace vr)) + (or (namespace-declaration-inspector (variable-reference->namespace* vr)) (raise-arguments-error who "given variable reference is not from a module"))) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 5784585ad7..1d7d1c0943 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -4299,6 +4299,7 @@ static const char *startup_source = "(if b_14(let-values()(set-box! b_14(hash-set(unbox b_14) v_42 r_18)))(void))))))" "(define-values(top-level-module-path-index)(make-self-module-path-index(1/make-resolved-module-path 'top-level)))" "(define-values(top-level-module-path-index?)(lambda(mpi_10)(begin(eq? top-level-module-path-index mpi_10))))" +"(define-values(non-self-module-path-index?)(lambda(mpi_11)(begin(if(module-path-index-path mpi_11) #t #f))))" "(define-values" "(core-module-name-resolver)" "(case-lambda" @@ -6070,14 +6071,14 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_0)))" " result-s_0))))))))))))))" "(case-lambda" -"((stx-c_1 s_62)(begin 'datum->syntax(datum->syntax8_0 stx-c_1 s_62 #f #f #f #f)))" -"((stx-c_2 s_63 stx-l_1 stx-p3_1)(datum->syntax8_0 stx-c_2 s_63 stx-l_1 stx-p3_1 #t #t))" -"((stx-c_3 s_64 stx-l2_1)(datum->syntax8_0 stx-c_3 s_64 stx-l2_1 #f #t #f)))))" +"((stx-c_1 s_37)(begin 'datum->syntax(datum->syntax8_0 stx-c_1 s_37 #f #f #f #f)))" +"((stx-c_2 s_62 stx-l_1 stx-p3_1)(datum->syntax8_0 stx-c_2 s_62 stx-l_1 stx-p3_1 #t #t))" +"((stx-c_3 s_63 stx-l2_1)(datum->syntax8_0 stx-c_3 s_63 stx-l2_1 #f #t #f)))))" "(define-values" "(disallow-cycles)" "(hasheq" " 'cycle-fail" -" (lambda (s_65) (raise-arguments-error 'datum->syntax \"cannot create syntax from cyclic datum\" s_65))))" +" (lambda (s_64) (raise-arguments-error 'datum->syntax \"cannot create syntax from cyclic datum\" s_64))))" "(define-values" "(struct:syntax-state" " syntax-state19.1" @@ -6164,8 +6165,8 @@ static const char *startup_source = "(deserialize-datum->syntax)" "(lambda(content_5 context-triple_2 srcloc_2 inspector_1)" "(begin" -"(let-values(((s_66)(deserialize-syntax #f context-triple_2 srcloc_2 #f #f inspector_1)))" -"(datum->syntax$1 s_66 content_5 s_66 s_66)))))" +"(let-values(((s_65)(deserialize-syntax #f context-triple_2 srcloc_2 #f #f inspector_1)))" +"(datum->syntax$1 s_65 content_5 s_65 s_65)))))" "(define-values" "(struct:full-binding full-binding1.1 full-binding? full-binding-frame-id full-binding-free=id)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -6677,11 +6678,11 @@ static const char *startup_source = "(make-struct-field-accessor -ref_11 1 'create))))" "(define-values" "(bulk-binding-symbols)" -"(lambda(b_12 s_67 extra-shifts_0)" +"(lambda(b_12 s_66 extra-shifts_0)" "(begin" "((bulk-binding-class-get-symbols(bulk-binding-ref b_12))" " b_12" -"(append extra-shifts_0(if s_67(syntax-mpi-shifts s_67) null))))))" +"(append extra-shifts_0(if s_66(syntax-mpi-shifts s_66) null))))))" "(define-values(bulk-binding-create)(lambda(b_36)(begin(bulk-binding-class-create(bulk-binding-ref b_36)))))" "(define-values(binding-table-empty?)(lambda(bt_0)(begin(if(hash? bt_0)(zero?(hash-count bt_0)) #f))))" "(define-values" @@ -6888,7 +6889,7 @@ static const char *startup_source = "(let-values()(hash-set syms_11 sym_7(hash-remove sym-bindings_2 scopes_4)))))))))))))" "(define-values" "(binding-table-symbols)" -"(lambda(table_33 scs_2 s_68 extra-shifts_1)" +"(lambda(table_33 scs_2 s_67 extra-shifts_1)" "(begin" "(let-values(((ht_35 bulk-bindings_1)" "(if(hash? table_33)" @@ -6980,7 +6981,7 @@ static const char *startup_source = "(let-values(((ht_38)" "(bulk-binding-symbols" "(bulk-binding-at-bulk bba_1)" -" s_68" +" s_67" " extra-shifts_1)))" "(begin" "(if(variable-reference-from-unsafe?" @@ -7461,27 +7462,27 @@ static const char *startup_source = "(let-values()" "(let-values()" "(case-lambda" -"((s_69 key_24)" +"((s_68 key_24)" "(begin" " 'syntax-property" "(let-values((()" "(begin" -"(if(syntax?$1 s_69)" +"(if(syntax?$1 s_68)" "(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_69)))" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_68)))" "(values))))" -"(let-values(((v_63)(hash-ref(syntax-props s_69) key_24 #f)))(plain-property-value v_63)))))" -"((s_70 key_25 val_14)" +"(let-values(((v_63)(hash-ref(syntax-props s_68) key_24 #f)))(plain-property-value v_63)))))" +"((s_69 key_25 val_14)" "(let-values((()" "(begin" -"(if(syntax?$1 s_70)" +"(if(syntax?$1 s_69)" "(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_70)))" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_69)))" "(values))))" "(let-values(((pval_0)(if(eq? key_25 'paren-shape)(preserved-property-value1.1 val_14) val_14)))" -"(let-values(((the-struct_3) s_70))" +"(let-values(((the-struct_3) s_69))" "(if(syntax?$1 the-struct_3)" -"(let-values(((props2_0)(hash-set(syntax-props s_70) key_25 pval_0)))" +"(let-values(((props2_0)(hash-set(syntax-props s_69) key_25 pval_0)))" "(syntax1.1" "(syntax-content the-struct_3)" "(syntax-scopes the-struct_3)" @@ -7492,12 +7493,12 @@ static const char *startup_source = " props2_0" "(syntax-inspector the-struct_3)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_3))))))" -"((s_71 key_26 val_15 preserved?_0)" +"((s_70 key_26 val_15 preserved?_0)" "(let-values((()" "(begin" -"(if(syntax?$1 s_71)" +"(if(syntax?$1 s_70)" "(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_71)))" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_70)))" "(values))))" "(let-values((()" "(begin" @@ -7516,9 +7517,9 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((pval_1)(if preserved?_0(preserved-property-value1.1 val_15) val_15)))" -"(let-values(((the-struct_4) s_71))" +"(let-values(((the-struct_4) s_70))" "(if(syntax?$1 the-struct_4)" -"(let-values(((props3_0)(hash-set(syntax-props s_71) key_26 pval_1)))" +"(let-values(((props3_0)(hash-set(syntax-props s_70) key_26 pval_1)))" "(syntax1.1" "(syntax-content the-struct_4)" "(syntax-scopes the-struct_4)" @@ -7531,20 +7532,20 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_4)))))))))))" "(define-values" "(1/syntax-property-preserved?)" -"(lambda(s_72 key_27)" +"(lambda(s_71 key_27)" "(begin" " 'syntax-property-preserved?" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_72)" +"(if(syntax?$1 s_71)" "(void)" -" (let-values () (raise-argument-error 'syntax-property-preserved? \"syntax?\" s_72)))" +" (let-values () (raise-argument-error 'syntax-property-preserved? \"syntax?\" s_71)))" "(if(if(symbol? key_27)(symbol-interned? key_27) #f)" "(void)" "(let-values()" " (raise-argument-error 'syntax-property-preserved? \"(and/c symbol? symbol-interned?)\" key_27)))" -"(preserved-property-value?(hash-ref(syntax-props s_72) key_27 #f))))))))" +"(preserved-property-value?(hash-ref(syntax-props s_71) key_27 #f))))))))" "(define-values" "(1/syntax-property-symbol-keys)" "(lambda(s_10)" @@ -7589,12 +7590,12 @@ static const char *startup_source = "(unsafe-immutable-hash-iterate-first ht_46)))))))))))" "(define-values" "(syntax-property-remove)" -"(lambda(s_73 key_28)" +"(lambda(s_72 key_28)" "(begin" -"(if(hash-ref(syntax-props s_73) key_28 #f)" -"(let-values(((the-struct_5) s_73))" +"(if(hash-ref(syntax-props s_72) key_28 #f)" +"(let-values(((the-struct_5) s_72))" "(if(syntax?$1 the-struct_5)" -"(let-values(((props6_0)(hash-remove(syntax-props s_73) key_28)))" +"(let-values(((props6_0)(hash-remove(syntax-props s_72) key_28)))" "(syntax1.1" "(syntax-content the-struct_5)" "(syntax-scopes the-struct_5)" @@ -7605,12 +7606,12 @@ static const char *startup_source = " props6_0" "(syntax-inspector the-struct_5)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_5)))" -" s_73))))" +" s_72))))" "(define-values" "(taint-content)" "(lambda(d_2)" "(begin" -"(let-values(((s_71) d_2)" +"(let-values(((s_70) d_2)" "((f_25)(lambda(tail?_15 x_28)(begin 'f x_28)))" "((s->_1)" "(lambda(sub-s_0)" @@ -7640,7 +7641,7 @@ static const char *startup_source = "(syntax-inspector the-struct_6)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_6)))))))))" "((seen_7) #f))" -"(let-values(((s_74) s_71)" +"(let-values(((s_73) s_70)" "((f_4)" "(lambda(tail?_16 v_75)" "(begin" @@ -7648,55 +7649,55 @@ static const char *startup_source = "(if(syntax?$1 v_75)(let-values()(s->_1 v_75))(let-values()(f_25 tail?_16 v_75))))))" "((seen_8) seen_7))" "((letrec-values(((loop_66)" -"(lambda(tail?_17 s_75 prev-depth_3)" +"(lambda(tail?_17 s_74 prev-depth_3)" "(begin" " 'loop" "(let-values(((depth_3)(add1 prev-depth_3)))" "(if(if seen_8(> depth_3 32) #f)" "(let-values()" -"(datum-map-slow tail?_17 s_75(lambda(tail?_1 s_41)(f_4 tail?_1 s_41)) seen_8))" -"(if(null? s_75)" -"(let-values()(f_4 tail?_17 s_75))" -"(if(pair? s_75)" +"(datum-map-slow tail?_17 s_74(lambda(tail?_1 s_41)(f_4 tail?_1 s_41)) seen_8))" +"(if(null? s_74)" +"(let-values()(f_4 tail?_17 s_74))" +"(if(pair? s_74)" "(let-values()" "(f_4" " tail?_17" -"(cons(loop_66 #f(car s_75) depth_3)(loop_66 #t(cdr s_75) depth_3))))" -"(if(let-values(((or-part_75)(symbol? s_75)))" +"(cons(loop_66 #f(car s_74) depth_3)(loop_66 #t(cdr s_74) depth_3))))" +"(if(let-values(((or-part_75)(symbol? s_74)))" "(if or-part_75" " or-part_75" -"(let-values(((or-part_76)(boolean? s_75)))" -"(if or-part_76 or-part_76(number? s_75)))))" -"(let-values()(f_4 #f s_75))" -"(if(let-values(((or-part_68)(vector? s_75)))" +"(let-values(((or-part_76)(boolean? s_74)))" +"(if or-part_76 or-part_76(number? s_74)))))" +"(let-values()(f_4 #f s_74))" +"(if(let-values(((or-part_68)(vector? s_74)))" "(if or-part_68" " or-part_68" -"(let-values(((or-part_69)(box? s_75)))" +"(let-values(((or-part_69)(box? s_74)))" "(if or-part_69" " or-part_69" -"(let-values(((or-part_77)(prefab-struct-key s_75)))" -"(if or-part_77 or-part_77(hash? s_75)))))))" +"(let-values(((or-part_77)(prefab-struct-key s_74)))" +"(if or-part_77 or-part_77(hash? s_74)))))))" "(let-values()" "(datum-map-slow" " tail?_17" -" s_75" -"(lambda(tail?_18 s_76)(f_4 tail?_18 s_76))" +" s_74" +"(lambda(tail?_18 s_75)(f_4 tail?_18 s_75))" " seen_8))" -"(let-values()(f_4 #f s_75))))))))))))" +"(let-values()(f_4 #f s_74))))))))))))" " loop_66)" " #f" -" s_74" +" s_73" " 0))))))" -"(define-values(syntax-tainted?$1)(lambda(s_77)(begin 'syntax-tainted?(tamper-tainted?(syntax-tamper s_77)))))" +"(define-values(syntax-tainted?$1)(lambda(s_76)(begin 'syntax-tainted?(tamper-tainted?(syntax-tamper s_76)))))" "(define-values(syntax-clean?)(lambda(s_6)(begin(tamper-clean?(syntax-tamper s_6)))))" "(define-values" "(syntax-arm$1)" -"(lambda(s_78 insp_0)" +"(lambda(s_77 insp_0)" "(begin" " 'syntax-arm" -"(let-values(((t_17)(syntax-tamper s_78)))" +"(let-values(((t_17)(syntax-tamper s_77)))" "(if(tamper-tainted? t_17)" -"(let-values() s_78)" +"(let-values() s_77)" "(if(if t_17" "(let-values(((or-part_91)(set-member? t_17 insp_0)))" "(if or-part_91" @@ -7732,9 +7733,9 @@ static const char *startup_source = " #f" "(unsafe-immutable-hash-iterate-first ht_47))))))" " #f)" -"(let-values() s_78)" +"(let-values() s_77)" "(let-values()" -"(let-values(((stx_1) s_78))" +"(let-values(((stx_1) s_77))" "(let-values(((the-struct_7) stx_1))" "(if(syntax?$1 the-struct_7)" "(let-values(((scope-propagations+tamper7_0)" @@ -7843,7 +7844,7 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_9))))))))))))))))" "(case-lambda" "((s_21)(begin 'syntax-disarm(syntax-disarm4_0 s_21 #f #f)))" -"((s_79 insp1_1)(syntax-disarm4_0 s_79 insp1_1 #t)))))" +"((s_78 insp1_1)(syntax-disarm4_0 s_78 insp1_1 #t)))))" "(define-values" "(syntax-rearm$1)" "(lambda(s_23 from-s_0)" @@ -7962,16 +7963,16 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_12)))))))))))))))" "(define-values" "(syntax-taint$1)" -"(lambda(s_80)" +"(lambda(s_79)" "(begin" " 'syntax-taint" -"(if(tamper-tainted?(syntax-tamper s_80))" -" s_80" -"(let-values(((stx_7) s_80))" +"(if(tamper-tainted?(syntax-tamper s_79))" +" s_79" +"(let-values(((stx_7) s_79))" "(let-values(((the-struct_13) stx_7))" "(if(syntax?$1 the-struct_13)" "(let-values(((scope-propagations+tamper13_0)" -"(let-values(((t_31)(tamper-tainted-for-content(syntax-content s_80)))" +"(let-values(((t_31)(tamper-tainted-for-content(syntax-content s_79)))" "((p_26)(syntax-scope-propagations+tamper stx_7)))" "(if(tamper? p_26) t_31((propagation-set-tamper-ref p_26) p_26 t_31)))))" "(syntax1.1" @@ -8149,7 +8150,7 @@ static const char *startup_source = "(define-values(cached-hashes-pos) 0)" "(define-values" "(cache-or-reuse-set)" -"(lambda(s_81)" +"(lambda(s_80)" "(begin" "(let-values(((vec_16)" "(let-values(((or-part_93)(weak-box-value cached-sets)))" @@ -8175,7 +8176,7 @@ static const char *startup_source = "(let-values()" "(let-values()" "(if s2_5" -"(if(set=? s_81 s2_5) s2_5 #f)" +"(if(set=? s_80 s2_5) s2_5 #f)" " #f)))))" "(values result_40)))))" "(if(if(not((lambda x_31 result_39) s2_5))(not #f) #f)" @@ -8188,12 +8189,12 @@ static const char *startup_source = "(if or-part_94" " or-part_94" "(begin" -"(vector-set! vec_16 cached-sets-pos s_81)" +"(vector-set! vec_16 cached-sets-pos s_80)" "(set! cached-sets-pos(modulo(add1 cached-sets-pos) NUM-CACHE-SLOTS))" -" s_81)))))))" +" s_80)))))))" "(define-values" "(cache-or-reuse-hash)" -"(lambda(s_82)" +"(lambda(s_81)" "(begin" "(let-values(((vec_20)" "(let-values(((or-part_95)(weak-box-value cached-hashes)))" @@ -8219,7 +8220,7 @@ static const char *startup_source = "(let-values()" "(let-values()" "(if s2_6" -"(if(equal? s_82 s2_6) s2_6 #f)" +"(if(equal? s_81 s2_6) s2_6 #f)" " #f)))))" "(values result_43)))))" "(if(if(not((lambda x_32 result_42) s2_6))(not #f) #f)" @@ -8232,9 +8233,9 @@ static const char *startup_source = "(if or-part_96" " or-part_96" "(begin" -"(vector-set! vec_20 cached-hashes-pos s_82)" +"(vector-set! vec_20 cached-hashes-pos s_81)" "(set! cached-hashes-pos(modulo(add1 cached-hashes-pos) NUM-CACHE-SLOTS))" -" s_82)))))))" +" s_81)))))))" "(define-values" "(struct:scope scope1.1 scope? scope-id scope-kind scope-binding-table set-scope-binding-table!)" "(let-values(((struct:_21 make-_21 ?_21 -ref_21 -set!_21)" @@ -8250,33 +8251,33 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:scope-with-bindings" -"(lambda(s_78 get-reachable-scopes_2 reach_6 register-trigger_2)" +"(lambda(s_77 get-reachable-scopes_2 reach_6 register-trigger_2)" "(binding-table-register-reachable" -"(scope-binding-table s_78)" +"(scope-binding-table s_77)" " get-reachable-scopes_2" " reach_6" " register-trigger_2)))" -"(cons prop:reach-scopes(lambda(s_83 reach_7)(void)))" +"(cons prop:reach-scopes(lambda(s_82 reach_7)(void)))" "(cons" " prop:serialize-fill!" -"(lambda(s_84 ser-push!_6 state_16)" -"(if(binding-table-empty?(scope-binding-table s_84))" +"(lambda(s_83 ser-push!_6 state_16)" +"(if(binding-table-empty?(scope-binding-table s_83))" "(let-values()(ser-push!_6 'tag #f))" "(let-values()" "(begin" "(ser-push!_6 'tag '#:scope-fill!)" -"(ser-push!_6(binding-table-prune-to-reachable(scope-binding-table s_84) state_16)))))))" +"(ser-push!_6(binding-table-prune-to-reachable(scope-binding-table s_83) state_16)))))))" "(cons" " prop:serialize" -"(lambda(s_85 ser-push!_7 state_17)" +"(lambda(s_84 ser-push!_7 state_17)" "(begin" -"(if(set-member?(serialize-state-reachable-scopes state_17) s_85)" +"(if(set-member?(serialize-state-reachable-scopes state_17) s_84)" "(void)" " (let-values () (error \"internal error: found supposedly unreachable scope\")))" -"(if(eq? s_85 top-level-common-scope)" +"(if(eq? s_84 top-level-common-scope)" "(let-values()(ser-push!_7 'tag '#:scope))" "(let-values()" -"(begin(ser-push!_7 'tag '#:scope+kind)(ser-push!_7(scope-kind s_85))))))))" +"(begin(ser-push!_7 'tag '#:scope+kind)(ser-push!_7(scope-kind s_84))))))))" "(cons" " prop:custom-write" "(lambda(sc_3 port_6 mode_6)" @@ -8304,7 +8305,7 @@ static const char *startup_source = "(case-lambda" "(()(begin top-level-common-scope))" "((kind_0)(scope1.1(new-deserialize-scope-id!) kind_0 empty-binding-table))))" -"(define-values(deserialize-scope-fill!)(lambda(s_86 bt_5)(begin(set-scope-binding-table! s_86 bt_5))))" +"(define-values(deserialize-scope-fill!)(lambda(s_85 bt_5)(begin(set-scope-binding-table! s_85 bt_5))))" "(define-values" "(struct:multi-scope" " multi-scope2.1" @@ -8361,7 +8362,7 @@ static const char *startup_source = " for-loop_57)" "(hash-iterate-first ht_51))))" "(void))))" -"(cons prop:reach-scopes(lambda(s_87 reach_9)(void)))" +"(cons prop:reach-scopes(lambda(s_86 reach_9)(void)))" "(cons" " prop:serialize" "(lambda(ms_1 ser-push!_8 state_18)" @@ -8452,7 +8453,7 @@ static const char *startup_source = "(list" "(cons prop:authentic #t)" "(cons prop:implicitly-reachable #t)" -"(cons prop:reach-scopes(lambda(s_88 reach_10)(reach_10(representative-scope-owner s_88))))" +"(cons prop:reach-scopes(lambda(s_87 reach_10)(reach_10(representative-scope-owner s_87))))" "(cons" " prop:serialize-fill!" "(lambda(s_31 ser-push!_9 state_19)" @@ -8462,11 +8463,11 @@ static const char *startup_source = "(ser-push!_9(representative-scope-owner s_31)))))" "(cons" " prop:serialize" -"(lambda(s_89 ser-push!_10 state_20)" +"(lambda(s_88 ser-push!_10 state_20)" "(begin" "(ser-push!_10 'tag '#:representative-scope)" -"(ser-push!_10(scope-kind s_89))" -"(ser-push!_10(representative-scope-phase s_89)))))" +"(ser-push!_10(scope-kind s_88))" +"(ser-push!_10(representative-scope-phase s_88)))))" "(cons" " prop:custom-write" "(lambda(sc_6 port_7 mode_7)" @@ -8501,8 +8502,8 @@ static const char *startup_source = "(begin(let-values(((v_77)(representative-scope3.1(new-deserialize-scope-id!) kind_1 #f #f phase_7))) v_77))))" "(define-values" "(deserialize-representative-scope-fill!)" -"(lambda(s_90 bt_6 owner_0)" -"(begin(begin(deserialize-scope-fill! s_90 bt_6)(set-representative-scope-owner! s_90 owner_0)))))" +"(lambda(s_89 bt_6 owner_0)" +"(begin(begin(deserialize-scope-fill! s_89 bt_6)(set-representative-scope-owner! s_89 owner_0)))))" "(define-values" "(struct:shifted-multi-scope" " shifted-multi-scope4.1" @@ -8630,14 +8631,14 @@ static const char *startup_source = "(let-values(((or-part_101)(hash-ref(multi-scope-scopes ms_2) phase_10 #f)))" "(if or-part_101" " or-part_101" -"(let-values(((s_91)" +"(let-values(((s_90)" "(representative-scope3.1" "(if(deserialized-scope-id?(multi-scope-id ms_2))(new-deserialize-scope-id!)(new-scope-id!))" " 'module" " empty-binding-table" " ms_2" " phase_10)))" -"(begin(hash-set!(multi-scope-scopes ms_2) phase_10 s_91) s_91)))))))" +"(begin(hash-set!(multi-scope-scopes ms_2) phase_10 s_90) s_90)))))))" "(define-values(scope>?)(lambda(sc1_0 sc2_0)(begin(>(scope-id sc1_0)(scope-id sc2_0)))))" "(define-values(scope_2)" "(lambda(sub-s_1)" @@ -8673,17 +8674,17 @@ static const char *startup_source = "(let-values(((the-struct_14) sub-s_1))" "(if(syntax?$1 the-struct_14)" "(let-values(((scopes48_1)" -"(propagation-apply prop_3(syntax-scopes sub-s_1) s_92))" +"(propagation-apply prop_3(syntax-scopes sub-s_1) s_91))" "((shifted-multi-scopes49_0)" "(propagation-apply-shifted" " prop_3" "(syntax-shifted-multi-scopes sub-s_1)" -" s_92))" +" s_91))" "((mpi-shifts50_0)" "(propagation-apply-mpi-shifts" " prop_3" "(syntax-mpi-shifts sub-s_1)" -" s_92))" +" s_91))" "((inspector51_0)" "(propagation-apply-inspector" " prop_3" @@ -8729,7 +8730,7 @@ static const char *startup_source = "(syntax-inspector the-struct_15)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_15))))))))" "((seen_9) #f))" -"(let-values(((s_94) s_93)" +"(let-values(((s_93) s_92)" "((f_28)" "(lambda(tail?_20 v_78)" "(begin" @@ -8739,7 +8740,7 @@ static const char *startup_source = "(let-values()(f_27 tail?_20 v_78))))))" "((seen_10) seen_9))" "((letrec-values(((loop_67)" -"(lambda(tail?_21 s_95 prev-depth_4)" +"(lambda(tail?_21 s_94 prev-depth_4)" "(begin" " 'loop" "(let-values(((depth_4)(add1 prev-depth_4)))" @@ -8747,58 +8748,58 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_21" -" s_95" -"(lambda(tail?_22 s_96)(f_28 tail?_22 s_96))" +" s_94" +"(lambda(tail?_22 s_95)(f_28 tail?_22 s_95))" " seen_10))" -"(if(null? s_95)" -"(let-values()(f_28 tail?_21 s_95))" -"(if(pair? s_95)" +"(if(null? s_94)" +"(let-values()(f_28 tail?_21 s_94))" +"(if(pair? s_94)" "(let-values()" "(f_28" " tail?_21" "(cons" -"(loop_67 #f(car s_95) depth_4)" -"(loop_67 #t(cdr s_95) depth_4))))" -"(if(let-values(((or-part_103)(symbol? s_95)))" +"(loop_67 #f(car s_94) depth_4)" +"(loop_67 #t(cdr s_94) depth_4))))" +"(if(let-values(((or-part_103)(symbol? s_94)))" "(if or-part_103" " or-part_103" -"(let-values(((or-part_104)(boolean? s_95)))" -"(if or-part_104 or-part_104(number? s_95)))))" -"(let-values()(f_28 #f s_95))" -"(if(let-values(((or-part_105)(vector? s_95)))" +"(let-values(((or-part_104)(boolean? s_94)))" +"(if or-part_104 or-part_104(number? s_94)))))" +"(let-values()(f_28 #f s_94))" +"(if(let-values(((or-part_105)(vector? s_94)))" "(if or-part_105" " or-part_105" -"(let-values(((or-part_106)(box? s_95)))" +"(let-values(((or-part_106)(box? s_94)))" "(if or-part_106" " or-part_106" "(let-values(((or-part_107)" -"(prefab-struct-key s_95)))" -"(if or-part_107 or-part_107(hash? s_95)))))))" +"(prefab-struct-key s_94)))" +"(if or-part_107 or-part_107(hash? s_94)))))))" "(let-values()" "(datum-map-slow" " tail?_21" -" s_95" -"(lambda(tail?_23 s_97)(f_28 tail?_23 s_97))" +" s_94" +"(lambda(tail?_23 s_96)(f_28 tail?_23 s_96))" " seen_10))" -"(let-values()(f_28 #f s_95))))))))))))" +"(let-values()(f_28 #f s_94))))))))))))" " loop_67)" " #f" -" s_94" +" s_93" " 0)))))" "(begin" -"(set-syntax-content! s_92 new-content_0)" +"(set-syntax-content! s_91 new-content_0)" "(set-syntax-scope-propagations+tamper!" -" s_92" +" s_91" "(tamper-propagated(if(propagation? prop_3)(propagation-tamper prop_3) prop_3)))" " new-content_0))" -"(syntax-content s_92))))))" +"(syntax-content s_91))))))" "(define-values" "(syntax-e$1)" -"(lambda(s_98)" +"(lambda(s_97)" "(begin" " 'syntax-e" -"(let-values(((content_6)(syntax-e/no-taint s_98)))" -"(if(not(tamper-armed?(syntax-tamper s_98)))" +"(let-values(((content_6)(syntax-e/no-taint s_97)))" +"(if(not(tamper-armed?(syntax-tamper s_97)))" "(let-values() content_6)" "(if(datum-has-elements? content_6)(let-values()(taint-content content_6))(let-values() content_6)))))))" "(define-values" @@ -8810,25 +8811,25 @@ static const char *startup_source = " sc_7))))" "(define-values" "(add-scope)" -"(lambda(s_99 sc_8)" +"(lambda(s_98 sc_8)" "(begin" -"(let-values(((s_100) s_99)((sc_9)(generalize-scope sc_8))((op_0) set-add)((prop-op_0) propagation-add))" +"(let-values(((s_99) s_98)((sc_9)(generalize-scope sc_8))((op_0) set-add)((prop-op_0) propagation-add))" "(if(shifted-multi-scope? sc_9)" -"(let-values(((the-struct_16) s_100))" +"(let-values(((the-struct_16) s_99))" "(if(syntax?$1 the-struct_16)" "(let-values(((shifted-multi-scopes54_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_100)" +"(syntax-shifted-multi-scopes s_99)" "(lambda(smss_9)(op_0(fallback-first smss_9) sc_9))))" "((scope-propagations+tamper55_0)" -"(if(datum-has-elements?(syntax-content s_100))" +"(if(datum-has-elements?(syntax-content s_99))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_100)" +"(syntax-scope-propagations+tamper s_99)" " sc_9" -"(syntax-scopes s_100)" -"(syntax-shifted-multi-scopes s_100)" -"(syntax-mpi-shifts s_100))" -"(syntax-scope-propagations+tamper s_100))))" +"(syntax-scopes s_99)" +"(syntax-shifted-multi-scopes s_99)" +"(syntax-mpi-shifts s_99))" +"(syntax-scope-propagations+tamper s_99))))" "(syntax1.1" "(syntax-content the-struct_16)" "(syntax-scopes the-struct_16)" @@ -8839,18 +8840,18 @@ static const char *startup_source = "(syntax-props the-struct_16)" "(syntax-inspector the-struct_16)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_16)))" -"(let-values(((the-struct_17) s_100))" +"(let-values(((the-struct_17) s_99))" "(if(syntax?$1 the-struct_17)" -"(let-values(((scopes56_0)(op_0(syntax-scopes s_100) sc_9))" +"(let-values(((scopes56_0)(op_0(syntax-scopes s_99) sc_9))" "((scope-propagations+tamper57_0)" -"(if(datum-has-elements?(syntax-content s_100))" +"(if(datum-has-elements?(syntax-content s_99))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_100)" +"(syntax-scope-propagations+tamper s_99)" " sc_9" -"(syntax-scopes s_100)" -"(syntax-shifted-multi-scopes s_100)" -"(syntax-mpi-shifts s_100))" -"(syntax-scope-propagations+tamper s_100))))" +"(syntax-scopes s_99)" +"(syntax-shifted-multi-scopes s_99)" +"(syntax-mpi-shifts s_99))" +"(syntax-scope-propagations+tamper s_99))))" "(syntax1.1" "(syntax-content the-struct_17)" " scopes56_0" @@ -8863,50 +8864,50 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_17))))))))" "(define-values" "(add-scopes)" -"(lambda(s_101 scs_5)" +"(lambda(s_100 scs_5)" "(begin" "(let-values(((lst_43) scs_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_43)))" "((letrec-values(((for-loop_58)" -"(lambda(s_102 lst_44)" +"(lambda(s_101 lst_44)" "(begin" " 'for-loop" "(if(pair? lst_44)" "(let-values(((sc_10)(unsafe-car lst_44))((rest_18)(unsafe-cdr lst_44)))" -"(let-values(((s_103)" -"(let-values(((s_104) s_102))" -"(let-values(((s_105)(let-values()(add-scope s_104 sc_10))))" -"(values s_105)))))" -"(if(not #f)(for-loop_58 s_103 rest_18) s_103)))" -" s_102)))))" +"(let-values(((s_102)" +"(let-values(((s_103) s_101))" +"(let-values(((s_104)(let-values()(add-scope s_103 sc_10))))" +"(values s_104)))))" +"(if(not #f)(for-loop_58 s_102 rest_18) s_102)))" +" s_101)))))" " for-loop_58)" -" s_101" +" s_100" " lst_43))))))" "(define-values" "(remove-scope)" -"(lambda(s_106 sc_11)" +"(lambda(s_105 sc_11)" "(begin" -"(let-values(((s_107) s_106)" +"(let-values(((s_106) s_105)" "((sc_12)(generalize-scope sc_11))" "((op_1) set-remove)" "((prop-op_1) propagation-remove))" "(if(shifted-multi-scope? sc_12)" -"(let-values(((the-struct_18) s_107))" +"(let-values(((the-struct_18) s_106))" "(if(syntax?$1 the-struct_18)" "(let-values(((shifted-multi-scopes58_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_107)" +"(syntax-shifted-multi-scopes s_106)" "(lambda(smss_10)(op_1(fallback-first smss_10) sc_12))))" "((scope-propagations+tamper59_0)" -"(if(datum-has-elements?(syntax-content s_107))" +"(if(datum-has-elements?(syntax-content s_106))" "(prop-op_1" -"(syntax-scope-propagations+tamper s_107)" +"(syntax-scope-propagations+tamper s_106)" " sc_12" -"(syntax-scopes s_107)" -"(syntax-shifted-multi-scopes s_107)" -"(syntax-mpi-shifts s_107))" -"(syntax-scope-propagations+tamper s_107))))" +"(syntax-scopes s_106)" +"(syntax-shifted-multi-scopes s_106)" +"(syntax-mpi-shifts s_106))" +"(syntax-scope-propagations+tamper s_106))))" "(syntax1.1" "(syntax-content the-struct_18)" "(syntax-scopes the-struct_18)" @@ -8917,18 +8918,18 @@ static const char *startup_source = "(syntax-props the-struct_18)" "(syntax-inspector the-struct_18)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_18)))" -"(let-values(((the-struct_19) s_107))" +"(let-values(((the-struct_19) s_106))" "(if(syntax?$1 the-struct_19)" -"(let-values(((scopes60_0)(op_1(syntax-scopes s_107) sc_12))" +"(let-values(((scopes60_0)(op_1(syntax-scopes s_106) sc_12))" "((scope-propagations+tamper61_0)" -"(if(datum-has-elements?(syntax-content s_107))" +"(if(datum-has-elements?(syntax-content s_106))" "(prop-op_1" -"(syntax-scope-propagations+tamper s_107)" +"(syntax-scope-propagations+tamper s_106)" " sc_12" -"(syntax-scopes s_107)" -"(syntax-shifted-multi-scopes s_107)" -"(syntax-mpi-shifts s_107))" -"(syntax-scope-propagations+tamper s_107))))" +"(syntax-scopes s_106)" +"(syntax-shifted-multi-scopes s_106)" +"(syntax-mpi-shifts s_106))" +"(syntax-scope-propagations+tamper s_106))))" "(syntax1.1" "(syntax-content the-struct_19)" " scopes60_0" @@ -8941,50 +8942,50 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_19))))))))" "(define-values" "(remove-scopes)" -"(lambda(s_108 scs_6)" +"(lambda(s_107 scs_6)" "(begin" "(let-values(((lst_45) scs_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_45)))" "((letrec-values(((for-loop_40)" -"(lambda(s_109 lst_46)" +"(lambda(s_108 lst_46)" "(begin" " 'for-loop" "(if(pair? lst_46)" "(let-values(((sc_13)(unsafe-car lst_46))((rest_19)(unsafe-cdr lst_46)))" -"(let-values(((s_110)" -"(let-values(((s_111) s_109))" -"(let-values(((s_112)(let-values()(remove-scope s_111 sc_13))))" -"(values s_112)))))" -"(if(not #f)(for-loop_40 s_110 rest_19) s_110)))" -" s_109)))))" +"(let-values(((s_109)" +"(let-values(((s_110) s_108))" +"(let-values(((s_111)(let-values()(remove-scope s_110 sc_13))))" +"(values s_111)))))" +"(if(not #f)(for-loop_40 s_109 rest_19) s_109)))" +" s_108)))))" " for-loop_40)" -" s_108" +" s_107" " lst_45))))))" "(define-values" "(set-flip)" -"(lambda(s_113 e_15)(begin(if(set-member? s_113 e_15)(set-remove s_113 e_15)(set-add s_113 e_15)))))" +"(lambda(s_112 e_15)(begin(if(set-member? s_112 e_15)(set-remove s_112 e_15)(set-add s_112 e_15)))))" "(define-values" "(flip-scope)" -"(lambda(s_114 sc_14)" +"(lambda(s_113 sc_14)" "(begin" -"(let-values(((s_115) s_114)((sc_15)(generalize-scope sc_14))((op_2) set-flip)((prop-op_2) propagation-flip))" +"(let-values(((s_114) s_113)((sc_15)(generalize-scope sc_14))((op_2) set-flip)((prop-op_2) propagation-flip))" "(if(shifted-multi-scope? sc_15)" -"(let-values(((the-struct_20) s_115))" +"(let-values(((the-struct_20) s_114))" "(if(syntax?$1 the-struct_20)" "(let-values(((shifted-multi-scopes62_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_115)" +"(syntax-shifted-multi-scopes s_114)" "(lambda(smss_11)(op_2(fallback-first smss_11) sc_15))))" "((scope-propagations+tamper63_0)" -"(if(datum-has-elements?(syntax-content s_115))" +"(if(datum-has-elements?(syntax-content s_114))" "(prop-op_2" -"(syntax-scope-propagations+tamper s_115)" +"(syntax-scope-propagations+tamper s_114)" " sc_15" -"(syntax-scopes s_115)" -"(syntax-shifted-multi-scopes s_115)" -"(syntax-mpi-shifts s_115))" -"(syntax-scope-propagations+tamper s_115))))" +"(syntax-scopes s_114)" +"(syntax-shifted-multi-scopes s_114)" +"(syntax-mpi-shifts s_114))" +"(syntax-scope-propagations+tamper s_114))))" "(syntax1.1" "(syntax-content the-struct_20)" "(syntax-scopes the-struct_20)" @@ -8995,18 +8996,18 @@ static const char *startup_source = "(syntax-props the-struct_20)" "(syntax-inspector the-struct_20)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_20)))" -"(let-values(((the-struct_21) s_115))" +"(let-values(((the-struct_21) s_114))" "(if(syntax?$1 the-struct_21)" -"(let-values(((scopes64_0)(op_2(syntax-scopes s_115) sc_15))" +"(let-values(((scopes64_0)(op_2(syntax-scopes s_114) sc_15))" "((scope-propagations+tamper65_0)" -"(if(datum-has-elements?(syntax-content s_115))" +"(if(datum-has-elements?(syntax-content s_114))" "(prop-op_2" -"(syntax-scope-propagations+tamper s_115)" +"(syntax-scope-propagations+tamper s_114)" " sc_15" -"(syntax-scopes s_115)" -"(syntax-shifted-multi-scopes s_115)" -"(syntax-mpi-shifts s_115))" -"(syntax-scope-propagations+tamper s_115))))" +"(syntax-scopes s_114)" +"(syntax-shifted-multi-scopes s_114)" +"(syntax-mpi-shifts s_114))" +"(syntax-scope-propagations+tamper s_114))))" "(syntax1.1" "(syntax-content the-struct_21)" " scopes64_0" @@ -9019,29 +9020,29 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_21))))))))" "(define-values" "(flip-scopes)" -"(lambda(s_116 scs_7)" +"(lambda(s_115 scs_7)" "(begin" "(let-values(((lst_47) scs_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_47)))" "((letrec-values(((for-loop_59)" -"(lambda(s_117 lst_48)" +"(lambda(s_116 lst_48)" "(begin" " 'for-loop" "(if(pair? lst_48)" "(let-values(((sc_16)(unsafe-car lst_48))((rest_20)(unsafe-cdr lst_48)))" -"(let-values(((s_118)" -"(let-values(((s_119) s_117))" -"(let-values(((s_120)(let-values()(flip-scope s_119 sc_16))))" -"(values s_120)))))" -"(if(not #f)(for-loop_59 s_118 rest_20) s_118)))" -" s_117)))))" +"(let-values(((s_117)" +"(let-values(((s_118) s_116))" +"(let-values(((s_119)(let-values()(flip-scope s_118 sc_16))))" +"(values s_119)))))" +"(if(not #f)(for-loop_59 s_117 rest_20) s_117)))" +" s_116)))))" " for-loop_59)" -" s_116" +" s_115" " lst_47))))))" "(define-values" "(push-scope)" -"(lambda(s_121 sms_6)" +"(lambda(s_120 sms_6)" "(begin" "(let-values(((smss/maybe-fallbacks66_0) #f))" "(let-values(((prev-result_0) #f))" @@ -9067,17 +9068,17 @@ static const char *startup_source = "(set! smss/maybe-fallbacks66_0 smss/maybe-fallbacks_0)" "(set! prev-result_0 r_22)" " r_22))))))))" -"(let-values(((s_122) s_121)" +"(let-values(((s_121) s_120)" "((f_29)(lambda(tail?_24 x_34)(begin 'f x_34)))" "((d->s_1)" -"(lambda(s_123 d_3)" +"(lambda(s_122 d_3)" "(begin" " 'd->s" -"(let-values(((the-struct_22) s_123))" +"(let-values(((the-struct_22) s_122))" "(if(syntax?$1 the-struct_22)" "(let-values(((content67_0) d_3)" "((shifted-multi-scopes68_0)" -"(push_0(syntax-shifted-multi-scopes s_123))))" +"(push_0(syntax-shifted-multi-scopes s_122))))" "(syntax1.1" " content67_0" "(syntax-scopes the-struct_22)" @@ -9091,10 +9092,10 @@ static const char *startup_source = "((s-e_1) syntax-e/no-taint)" "((seen_11) #f))" "((letrec-values(((loop_68)" -"(lambda(s_124)" +"(lambda(s_123)" "(begin" " 'loop" -"(let-values(((s_125) s_124)" +"(let-values(((s_124) s_123)" "((f_30)" "(lambda(tail?_25 v_79)" "(begin" @@ -9104,7 +9105,7 @@ static const char *startup_source = "(let-values()(f_29 tail?_25 v_79))))))" "((seen_12) seen_11))" "((letrec-values(((loop_69)" -"(lambda(tail?_26 s_126 prev-depth_5)" +"(lambda(tail?_26 s_125 prev-depth_5)" "(begin" " 'loop" "(let-values(((depth_5)(add1 prev-depth_5)))" @@ -9112,53 +9113,53 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_26" -" s_126" -"(lambda(tail?_27 s_127)(f_30 tail?_27 s_127))" +" s_125" +"(lambda(tail?_27 s_126)(f_30 tail?_27 s_126))" " seen_12))" -"(if(null? s_126)" -"(let-values()(f_30 tail?_26 s_126))" -"(if(pair? s_126)" +"(if(null? s_125)" +"(let-values()(f_30 tail?_26 s_125))" +"(if(pair? s_125)" "(let-values()" "(f_30" " tail?_26" "(cons" -"(loop_69 #f(car s_126) depth_5)" -"(loop_69 #t(cdr s_126) depth_5))))" -"(if(let-values(((or-part_108)(symbol? s_126)))" +"(loop_69 #f(car s_125) depth_5)" +"(loop_69 #t(cdr s_125) depth_5))))" +"(if(let-values(((or-part_108)(symbol? s_125)))" "(if or-part_108" " or-part_108" "(let-values(((or-part_109)" -"(boolean? s_126)))" +"(boolean? s_125)))" "(if or-part_109" " or-part_109" -"(number? s_126)))))" -"(let-values()(f_30 #f s_126))" -"(if(let-values(((or-part_110)(vector? s_126)))" +"(number? s_125)))))" +"(let-values()(f_30 #f s_125))" +"(if(let-values(((or-part_110)(vector? s_125)))" "(if or-part_110" " or-part_110" -"(let-values(((or-part_111)(box? s_126)))" +"(let-values(((or-part_111)(box? s_125)))" "(if or-part_111" " or-part_111" "(let-values(((or-part_112)" "(prefab-struct-key" -" s_126)))" +" s_125)))" "(if or-part_112" " or-part_112" -"(hash? s_126)))))))" +"(hash? s_125)))))))" "(let-values()" "(datum-map-slow" " tail?_26" -" s_126" -"(lambda(tail?_28 s_128)" -"(f_30 tail?_28 s_128))" +" s_125" +"(lambda(tail?_28 s_127)" +"(f_30 tail?_28 s_127))" " seen_12))" -"(let-values()(f_30 #f s_126))))))))))))" +"(let-values()(f_30 #f s_125))))))))))))" " loop_69)" " #f" -" s_125" +" s_124" " 0))))))" " loop_68)" -" s_122))))))))" +" s_121))))))))" "(define-values" "(struct:propagation" " propagation14.1" @@ -9604,11 +9605,11 @@ static const char *startup_source = "(shifted-multi-scope-multi-scope sms_8)))))))))" "(define-values" "(syntax-shift-phase-level$1)" -"(lambda(s_129 phase_11)" +"(lambda(s_128 phase_11)" "(begin" " 'syntax-shift-phase-level" "(if(eqv? phase_11 0)" -" s_129" +" s_128" "(let-values()" "(let-values(((smss80_0) #f))" "(let-values(((prev-result_1) #f))" @@ -9687,17 +9688,17 @@ static const char *startup_source = " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_56)))))))))" "(begin(set! smss80_0 smss_20)(set! prev-result_1 r_23) r_23))))))))" -"(let-values(((s_130) s_129)" +"(let-values(((s_129) s_128)" "((f_31)(lambda(tail?_29 d_4)(begin 'f d_4)))" "((d->s_2)" -"(lambda(s_131 d_5)" +"(lambda(s_130 d_5)" "(begin" " 'd->s" -"(let-values(((the-struct_29) s_131))" +"(let-values(((the-struct_29) s_130))" "(if(syntax?$1 the-struct_29)" "(let-values(((content81_0) d_5)" "((shifted-multi-scopes82_0)" -"(shift-all_0(syntax-shifted-multi-scopes s_131))))" +"(shift-all_0(syntax-shifted-multi-scopes s_130))))" "(syntax1.1" " content81_0" "(syntax-scopes the-struct_29)" @@ -9711,10 +9712,10 @@ static const char *startup_source = "((s-e_2) syntax-e/no-taint)" "((seen_13) #f))" "((letrec-values(((loop_70)" -"(lambda(s_132)" +"(lambda(s_131)" "(begin" " 'loop" -"(let-values(((s_133) s_132)" +"(let-values(((s_132) s_131)" "((f_32)" "(lambda(tail?_30 v_80)" "(begin" @@ -9724,7 +9725,7 @@ static const char *startup_source = "(let-values()(f_31 tail?_30 v_80))))))" "((seen_14) seen_13))" "((letrec-values(((loop_71)" -"(lambda(tail?_31 s_134 prev-depth_6)" +"(lambda(tail?_31 s_133 prev-depth_6)" "(begin" " 'loop" "(let-values(((depth_6)(add1 prev-depth_6)))" @@ -9732,62 +9733,62 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_31" -" s_134" -"(lambda(tail?_32 s_135)(f_32 tail?_32 s_135))" +" s_133" +"(lambda(tail?_32 s_134)(f_32 tail?_32 s_134))" " seen_14))" -"(if(null? s_134)" -"(let-values()(f_32 tail?_31 s_134))" -"(if(pair? s_134)" +"(if(null? s_133)" +"(let-values()(f_32 tail?_31 s_133))" +"(if(pair? s_133)" "(let-values()" "(f_32" " tail?_31" "(cons" -"(loop_71 #f(car s_134) depth_6)" -"(loop_71 #t(cdr s_134) depth_6))))" +"(loop_71 #f(car s_133) depth_6)" +"(loop_71 #t(cdr s_133) depth_6))))" "(if(let-values(((or-part_119)" -"(symbol? s_134)))" +"(symbol? s_133)))" "(if or-part_119" " or-part_119" "(let-values(((or-part_120)" -"(boolean? s_134)))" +"(boolean? s_133)))" "(if or-part_120" " or-part_120" -"(number? s_134)))))" -"(let-values()(f_32 #f s_134))" +"(number? s_133)))))" +"(let-values()(f_32 #f s_133))" "(if(let-values(((or-part_121)" -"(vector? s_134)))" +"(vector? s_133)))" "(if or-part_121" " or-part_121" "(let-values(((or-part_122)" -"(box? s_134)))" +"(box? s_133)))" "(if or-part_122" " or-part_122" "(let-values(((or-part_123)" "(prefab-struct-key" -" s_134)))" +" s_133)))" "(if or-part_123" " or-part_123" -"(hash? s_134)))))))" +"(hash? s_133)))))))" "(let-values()" "(datum-map-slow" " tail?_31" -" s_134" -"(lambda(tail?_33 s_136)" -"(f_32 tail?_33 s_136))" +" s_133" +"(lambda(tail?_33 s_135)" +"(f_32 tail?_33 s_135))" " seen_14))" -"(let-values()(f_32 #f s_134))))))))))))" +"(let-values()(f_32 #f s_133))))))))))))" " loop_71)" " #f" -" s_133" +" s_132" " 0))))))" " loop_70)" -" s_130))))))))))" +" s_129))))))))))" "(define-values" "(syntax-swap-scopes)" -"(lambda(s_137 src-scopes_0 dest-scopes_0)" +"(lambda(s_136 src-scopes_0 dest-scopes_0)" "(begin" "(if(equal? src-scopes_0 dest-scopes_0)" -" s_137" +" s_136" "(let-values(((src-smss_0 src-scs_0)" "(set-partition" "(let-values(((ht_57) src-scopes_0))" @@ -9905,18 +9906,18 @@ static const char *startup_source = "(set-union(set-subtract smss_23 src-smss_0) dest-smss_0)" " smss_23))))))" "(begin(set! smss84_0 smss_22)(set! prev-result_3 r_25) r_25))))))))" -"(let-values(((s_138) s_137)" +"(let-values(((s_137) s_136)" "((f_33)(lambda(tail?_34 d_6)(begin 'f d_6)))" "((d->s_3)" -"(lambda(s_139 d_7)" +"(lambda(s_138 d_7)" "(begin" " 'd->s" -"(let-values(((the-struct_30) s_139))" +"(let-values(((the-struct_30) s_138))" "(if(syntax?$1 the-struct_30)" "(let-values(((content85_0) d_7)" -"((scopes86_0)(swap-scs_0(syntax-scopes s_139)))" +"((scopes86_0)(swap-scs_0(syntax-scopes s_138)))" "((shifted-multi-scopes87_0)" -"(swap-smss_0(syntax-shifted-multi-scopes s_139))))" +"(swap-smss_0(syntax-shifted-multi-scopes s_138))))" "(syntax1.1" " content85_0" " scopes86_0" @@ -9930,10 +9931,10 @@ static const char *startup_source = "((s-e_3) syntax-e/no-taint)" "((seen_15) #f))" "((letrec-values(((loop_72)" -"(lambda(s_140)" +"(lambda(s_139)" "(begin" " 'loop" -"(let-values(((s_141) s_140)" +"(let-values(((s_140) s_139)" "((f_34)" "(lambda(tail?_35 v_81)" "(begin" @@ -9943,7 +9944,7 @@ static const char *startup_source = "(let-values()(f_33 tail?_35 v_81))))))" "((seen_16) seen_15))" "((letrec-values(((loop_73)" -"(lambda(tail?_36 s_142 prev-depth_7)" +"(lambda(tail?_36 s_141 prev-depth_7)" "(begin" " 'loop" "(let-values(((depth_7)(add1 prev-depth_7)))" @@ -9951,65 +9952,65 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_36" -" s_142" -"(lambda(tail?_37 s_143)" -"(f_34 tail?_37 s_143))" +" s_141" +"(lambda(tail?_37 s_142)" +"(f_34 tail?_37 s_142))" " seen_16))" -"(if(null? s_142)" -"(let-values()(f_34 tail?_36 s_142))" -"(if(pair? s_142)" +"(if(null? s_141)" +"(let-values()(f_34 tail?_36 s_141))" +"(if(pair? s_141)" "(let-values()" "(f_34" " tail?_36" "(cons" -"(loop_73 #f(car s_142) depth_7)" -"(loop_73 #t(cdr s_142) depth_7))))" +"(loop_73 #f(car s_141) depth_7)" +"(loop_73 #t(cdr s_141) depth_7))))" "(if(let-values(((or-part_124)" -"(symbol? s_142)))" +"(symbol? s_141)))" "(if or-part_124" " or-part_124" "(let-values(((or-part_125)" -"(boolean? s_142)))" +"(boolean? s_141)))" "(if or-part_125" " or-part_125" -"(number? s_142)))))" -"(let-values()(f_34 #f s_142))" +"(number? s_141)))))" +"(let-values()(f_34 #f s_141))" "(if(let-values(((or-part_126)" -"(vector? s_142)))" +"(vector? s_141)))" "(if or-part_126" " or-part_126" "(let-values(((or-part_127)" -"(box? s_142)))" +"(box? s_141)))" "(if or-part_127" " or-part_127" "(let-values(((or-part_128)" "(prefab-struct-key" -" s_142)))" +" s_141)))" "(if or-part_128" " or-part_128" -"(hash? s_142)))))))" +"(hash? s_141)))))))" "(let-values()" "(datum-map-slow" " tail?_36" -" s_142" -"(lambda(tail?_38 s_144)" -"(f_34 tail?_38 s_144))" +" s_141" +"(lambda(tail?_38 s_143)" +"(f_34 tail?_38 s_143))" " seen_16))" "(let-values()" -"(f_34 #f s_142))))))))))))" +"(f_34 #f s_141))))))))))))" " loop_73)" " #f" -" s_141" +" s_140" " 0))))))" " loop_72)" -" s_138)))))))))))))" +" s_137)))))))))))))" "(define-values" "(syntax-scope-set)" -"(lambda(s_145 phase_12)" -"(begin(scope-set-at-fallback s_145(fallback-first(syntax-shifted-multi-scopes s_145)) phase_12))))" +"(lambda(s_144 phase_12)" +"(begin(scope-set-at-fallback s_144(fallback-first(syntax-shifted-multi-scopes s_144)) phase_12))))" "(define-values" "(scope-set-at-fallback)" -"(lambda(s_146 smss_24 phase_13)" +"(lambda(s_145 smss_24 phase_13)" "(begin" "(let-values(((ht_59) smss_24))" "(begin" @@ -10050,7 +10051,7 @@ static const char *startup_source = " scopes_10)))" " scopes_9)))))" " for-loop_67)" -"(syntax-scopes s_146)" +"(syntax-scopes s_145)" "(unsafe-immutable-hash-iterate-first ht_59)))))))" "(define-values" "(find-max-scope)" @@ -10120,9 +10121,9 @@ static const char *startup_source = "(begin(set-scope-binding-table! max-sc_5 bt_8)(clear-resolve-cache!)))))))))))" "(define-values" "(syntax-any-macro-scopes?)" -"(lambda(s_147)" +"(lambda(s_146)" "(begin" -"(let-values(((ht_61)(syntax-scopes s_147)))" +"(let-values(((ht_61)(syntax-scopes s_146)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -10160,14 +10161,14 @@ static const char *startup_source = " phase39_0)" "(begin" " 'resolve40" -"(let-values(((s_148) s38_0))" +"(let-values(((s_147) s38_0))" "(let-values(((phase_14) phase39_0))" "(let-values(((ambiguous-value_0)(if ambiguous-value34_0 ambiguous-value30_0 #f)))" "(let-values(((exactly?_0)(if exactly?35_0 exactly?31_0 #f)))" "(let-values(((get-scopes?_0)(if get-scopes?36_0 get-scopes?32_0 #f)))" "(let-values(((extra-shifts_2)(if extra-shifts37_0 extra-shifts33_0 null)))" "(let-values()" -"(let-values(((sym_15)(syntax-content s_148)))" +"(let-values(((sym_15)(syntax-content s_147)))" "((letrec-values(((fallback-loop_0)" "(lambda(smss_25)" "(begin" @@ -10178,7 +10179,7 @@ static const char *startup_source = "(resolve-cache-get" " sym_15" " phase_14" -"(syntax-scopes s_148)" +"(syntax-scopes s_147)" "(fallback-first smss_25))" " #f)" " #f)))" @@ -10194,7 +10195,7 @@ static const char *startup_source = "(let-values()" "(let-values(((scopes_17)" "(scope-set-at-fallback" -" s_148" +" s_147" "(fallback-first smss_25)" " phase_14)))" "(let-values(((best-scopes_0 best-binding_0)" @@ -10239,8 +10240,8 @@ static const char *startup_source = " '#hash())" "(table-with-bulk-bindings-bulk-bindings" " table_80)))))" -"((s_149)" -" s_148)" +"((s_148)" +" s_147)" "((extra-shifts_3)" " extra-shifts_2))" "(begin" @@ -10279,7 +10280,7 @@ static const char *startup_source = "(hash-ref" "(bulk-binding-symbols" " bulk_3" -" s_149" +" s_148" " extra-shifts_3)" " sym_15" " #f)" @@ -10469,7 +10470,7 @@ static const char *startup_source = "(resolve-cache-set!" " sym_15" " phase_14" -"(syntax-scopes s_148)" +"(syntax-scopes s_147)" "(fallback-first smss_25)" " best-binding_0)" "(if(let-values(((or-part_132)(not exactly?_0)))" @@ -10485,14 +10486,14 @@ static const char *startup_source = "(resolve-cache-set!" " sym_15" " phase_14" -"(syntax-scopes s_148)" +"(syntax-scopes s_147)" "(fallback-first smss_25)" " '#:none)" "(if(fallback? smss_25)" "(fallback-loop_0(fallback-rest smss_25))" " #f))))))))))))))" " fallback-loop_0)" -"(syntax-shifted-multi-scopes s_148)))))))))))))" +"(syntax-shifted-multi-scopes s_147)))))))))))))" "(define-values" "(bound-identifier=?$1)" "(lambda(a_32 b_40 phase_15)" @@ -10841,7 +10842,7 @@ static const char *startup_source = "(if(datum-has-elements?(syntax-content s_24))" "(propagation-mpi-shift" "(syntax-scope-propagations+tamper s_24)" -"(lambda(s_150)(cons shift_0 s_150))" +"(lambda(s_149)(cons shift_0 s_149))" " inspector_3" "(syntax-scopes s_24)" "(syntax-shifted-multi-scopes s_24)" @@ -10873,7 +10874,7 @@ static const char *startup_source = " phase29_0)" "(begin" " 'resolve+shift30" -"(let-values(((s_151) s28_0))" +"(let-values(((s_150) s28_0))" "(let-values(((phase_21) phase29_0))" "(let-values(((ambiguous-value_1)(if ambiguous-value23_0 ambiguous-value18_0 #f)))" "(let-values(((exactly?_1)(if exactly?24_0 exactly?19_0 #f)))" @@ -10882,7 +10883,7 @@ static const char *startup_source = "(let-values(((extra-shifts_4)(if extra-shifts27_0 extra-shifts22_0 null)))" "(let-values()" "(let-values(((immediate-b_0)" -"(let-values(((s73_0) s_151)" +"(let-values(((s73_0) s_150)" "((phase74_0) phase_21)" "((ambiguous-value75_0) ambiguous-value_1)" "((exactly?76_0) exactly?_1)" @@ -10904,7 +10905,7 @@ static const char *startup_source = " #f)" "(let-values(((temp78_0)(binding-free=id immediate-b_0))" "((phase79_0) phase_21)" -"((temp80_0)(append extra-shifts_4(syntax-mpi-shifts s_151)))" +"((temp80_0)(append extra-shifts_4(syntax-mpi-shifts s_150)))" "((ambiguous-value81_0) ambiguous-value_1)" "((exactly?82_0) exactly?_1)" "((unbound-sym?83_0) unbound-sym?_0))" @@ -10924,7 +10925,7 @@ static const char *startup_source = " immediate-b_0)))" "(if(module-binding? b_50)" "(let-values()" -"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_151)))" +"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_150)))" "(if(null? mpi-shifts_2)" "(let-values() b_50)" "(let-values()" @@ -10949,7 +10950,7 @@ static const char *startup_source = "((temp87_0)" "(if(binding-free=id b_50)" "(let-values(((temp89_0)(binding-free=id b_50))" -"((s90_0) s_151))" +"((s90_0) s_150))" "(syntax-transfer-shifts39.1 #f #f temp89_0 s90_0 #f #f))" " #f))" "((temp88_1)" @@ -11020,16 +11021,16 @@ static const char *startup_source = " #f" " b84_0)))))))))))" "(if(if(not b_50) unbound-sym?_0 #f)" -"(let-values()(syntax-e$1 s_151))" +"(let-values()(syntax-e$1 s_150))" "(let-values() b_50))))))))))))))))" "(define-values" "(apply-syntax-shifts)" -"(lambda(mpi_11 shifts_0)" +"(lambda(mpi_12 shifts_0)" "(begin" "(if(null? shifts_0)" -"(let-values() mpi_11)" +"(let-values() mpi_12)" "(let-values()" -"(let-values(((shifted-mpi_1)(apply-syntax-shifts mpi_11(cdr shifts_0))))" +"(let-values(((shifted-mpi_1)(apply-syntax-shifts mpi_12(cdr shifts_0))))" "(let-values(((shift_1)(car shifts_0)))" "(module-path-index-shift shifted-mpi_1(shift-from shift_1)(shift-to shift_1)))))))))" "(define-values" @@ -11130,18 +11131,18 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_12)))" "((letrec-values(((for-loop_75)" -"(lambda(s_68 lst_56 pos_9)" +"(lambda(s_67 lst_56 pos_9)" "(begin" " 'for-loop" "(if(if(pair? lst_56) #t #f)" "(let-values(((shift_3)(unsafe-car lst_56))" "((rest_24)(unsafe-cdr lst_56))" "((i_77) pos_9))" -"(let-values(((s_152)" -"(let-values(((s_153) s_68))" -"(let-values(((s_96)" +"(let-values(((s_39)" +"(let-values(((s_151) s_67))" +"(let-values(((s_95)" "(let-values()" -"(let-values(((s95_0) s_153)" +"(let-values(((s95_0) s_151)" "((temp96_0)" "(shift-from shift_3))" "((temp97_0)" @@ -11160,31 +11161,31 @@ static const char *startup_source = " temp97_0" " temp98_0" " #t)))))" -"(values s_96)))))" -"(if(not #f)(for-loop_75 s_152 rest_24(+ pos_9 1)) s_152)))" -" s_68)))))" +"(values s_95)))))" +"(if(not #f)(for-loop_75 s_39 rest_24(+ pos_9 1)) s_39)))" +" s_67)))))" " for-loop_75)" " to-s_0" " lst_55" " start_12))))))))))))))" "(define-values" "(syntax-set-inspector)" -"(lambda(s_105 insp_3)" +"(lambda(s_104 insp_3)" "(begin" -"(let-values(((the-struct_32) s_105))" +"(let-values(((the-struct_32) s_104))" "(if(syntax?$1 the-struct_32)" "(let-values(((inspector100_0)" -"(let-values(((or-part_134)(syntax-inspector s_105)))(if or-part_134 or-part_134 insp_3)))" +"(let-values(((or-part_134)(syntax-inspector s_104)))(if or-part_134 or-part_134 insp_3)))" "((scope-propagations+tamper101_0)" -"(if(datum-has-elements?(syntax-content s_105))" +"(if(datum-has-elements?(syntax-content s_104))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_105)" +"(syntax-scope-propagations+tamper s_104)" " #f" " insp_3" -"(syntax-scopes s_105)" -"(syntax-shifted-multi-scopes s_105)" -"(syntax-mpi-shifts s_105))" -"(syntax-scope-propagations+tamper s_105))))" +"(syntax-scopes s_104)" +"(syntax-shifted-multi-scopes s_104)" +"(syntax-mpi-shifts s_104))" +"(syntax-scope-propagations+tamper s_104))))" "(syntax1.1" "(syntax-content the-struct_32)" "(syntax-scopes the-struct_32)" @@ -11201,14 +11202,14 @@ static const char *startup_source = "(lambda(s44_0 source?42_0 source?43_0)" "(begin" " 'syntax-source-module45" -"(let-values(((s_154) s44_0))" +"(let-values(((s_152) s44_0))" "(let-values(((source?_0)(if source?43_0 source?42_0 #f)))" "(let-values()" "(begin" -"(if(syntax?$1 s_154)" +"(if(syntax?$1 s_152)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_154)))" -"(let-values(((lst_57)(reverse$1(syntax-mpi-shifts s_154))))" +" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_152)))" +"(let-values(((lst_57)(reverse$1(syntax-mpi-shifts s_152))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -11238,17 +11239,17 @@ static const char *startup_source = "(if(not path_5)" "(if(module-path-index-resolved" " from-mpi_3)" -"(let-values(((mpi_12)" +"(let-values(((mpi_13)" "(apply-syntax-shifts" " from-mpi_3" "(syntax-mpi-shifts" -" s_154))))" +" s_152))))" "(if source?_0" "(1/resolved-module-path-name" "(1/module-path-index-resolve" -" mpi_12" +" mpi_13" " #f))" -" mpi_12))" +" mpi_13))" " #f)" " #f)))))))" "(values result_53)))))))" @@ -11260,8 +11261,8 @@ static const char *startup_source = " #f" " lst_57)))))))))))" "(case-lambda" -"((s_114)(begin 'syntax-source-module(syntax-source-module45_0 s_114 #f #f)))" -"((s_155 source?42_1)(syntax-source-module45_0 s_155 source?42_1 #t)))))" +"((s_113)(begin 'syntax-source-module(syntax-source-module45_0 s_113 #f #f)))" +"((s_153 source?42_1)(syntax-source-module45_0 s_153 source?42_1 #t)))))" "(define-values" "(1/identifier-prune-to-source-module)" "(lambda(id_7)" @@ -11330,15 +11331,15 @@ static const char *startup_source = "(let-values(((binding/p_0) binding/p9_0))" "(let-values(((sym_16) sym10_0))" "(let-values(((self_1) self1_0))" -"(let-values(((mpi_13) mpi2_0))" +"(let-values(((mpi_14) mpi2_0))" "(let-values(((provide-phase-level_0) provide-phase-level3_0))" "(let-values(((phase-shift_0) phase-shift4_0))" "(let-values()" "(let-values(((binding_6)(provided-as-binding binding/p_0)))" "(let-values(((from-mod_0)(module-binding-module binding_6)))" "(let-values(((binding17_0) binding_6)" -"((temp18_1)(module-path-index-shift from-mod_0 self_1 mpi_13))" -"((mpi19_0) mpi_13)" +"((temp18_1)(module-path-index-shift from-mod_0 self_1 mpi_14))" +"((mpi19_0) mpi_14)" "((provide-phase-level20_0) provide-phase-level_0)" "((sym21_1) sym_16)" "((phase-shift22_0) phase-shift_0)" @@ -11504,9 +11505,9 @@ static const char *startup_source = "(make-struct-field-mutator -set!_29 3 'self))))" "(define-values" "(deserialize-bulk-binding)" -"(lambda(prefix_1 excepts_1 mpi_14 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0)" +"(lambda(prefix_1 excepts_1 mpi_15 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0)" "(begin" -"(bulk-binding14.1 #f prefix_1 excepts_1 #f mpi_14 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0))))" +"(bulk-binding14.1 #f prefix_1 excepts_1 #f mpi_15 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0))))" "(define-values" "(bulk-provides-add-prefix-remove-exceptions)" "(lambda(provides_1 prefix_2 excepts_2)" @@ -11905,7 +11906,7 @@ static const char *startup_source = "(lambda(stx_10)(begin(if(syntax?$1 stx_10)(= 1(set-count(syntax-scope-set stx_10 0))) #f))))" "(define-values" "(extract-scope)" -"(lambda(stx_11)(begin(let-values(((s_156)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_156))))))" +"(lambda(stx_11)(begin(let-values(((s_154)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_154))))))" "(define-values" "(unpack-defined-syms)" "(lambda(v_90)" @@ -12081,7 +12082,7 @@ static const char *startup_source = " namespace-0-phase" " namespace-phase-to-namespace" " namespace-phase-level-to-definitions" -" 1/namespace-module-registry" +" namespace-module-registry$1" " namespace-bulk-binding-registry" " namespace-submodule-declarations" " namespace-root-namespace" @@ -12183,7 +12184,7 @@ static const char *startup_source = " phase_25" "(make-small-hasheqv)" "(make-small-hasheqv)" -"(if share-from-ns_0(1/namespace-module-registry share-from-ns_0)(make-module-registry))" +"(if share-from-ns_0(namespace-module-registry$1 share-from-ns_0)(make-module-registry))" "(if share-from-ns_0" "(namespace-bulk-binding-registry share-from-ns_0)" "(make-bulk-binding-registry))" @@ -12227,7 +12228,7 @@ static const char *startup_source = "(let-values(((or-part_139)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" "(if or-part_139" " or-part_139" -"(hash-ref(module-registry-declarations(1/namespace-module-registry ns_5)) name_17 #f))))))" +"(hash-ref(module-registry-declarations(namespace-module-registry$1 ns_5)) name_17 #f))))))" "(define-values" "(namespace->namespace-at-phase)" "(lambda(ns_6 phase_26)" @@ -12247,7 +12248,7 @@ static const char *startup_source = "(namespace-0-phase the-struct_34)" "(namespace-phase-to-namespace the-struct_34)" "(namespace-phase-level-to-definitions the-struct_34)" -"(1/namespace-module-registry the-struct_34)" +"(namespace-module-registry$1 the-struct_34)" "(namespace-bulk-binding-registry the-struct_34)" "(namespace-submodule-declarations the-struct_34)" "(namespace-root-namespace the-struct_34)" @@ -12262,14 +12263,14 @@ static const char *startup_source = "(lambda(ns_7)" "(begin" "(let-values(((n_20)(namespace-source-name ns_7)))" -"(let-values(((s_157)" +"(let-values(((s_155)" "(if(not n_20)" "(let-values() 'top-level)" "(if(symbol? n_20)" " (let-values () (format \"'~s\" n_20))" " (let-values () (string-append \"\\\"\" (path->string n_20) \"\\\"\"))))))" "(let-values(((r_27)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" -" (if (pair? r_27) (string-append \"(submod \" s_157 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_157)))))))" +" (if (pair? r_27) (string-append \"(submod \" s_155 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_155)))))))" "(define-values" "(namespace->definitions)" "(lambda(ns_8 phase-level_1)" @@ -12814,11 +12815,11 @@ static const char *startup_source = " extra-sources_4)))))))))))))))" "(define-values" "(extract-form-name)" -"(lambda(s_158)" +"(lambda(s_156)" "(begin" -"(if(syntax?$1 s_158)" +"(if(syntax?$1 s_156)" "(let-values()" -"(let-values(((e_17)(syntax-e$1 s_158)))" +"(let-values(((e_17)(syntax-e$1 s_156)))" "(if(symbol? e_17)" "(let-values() e_17)" "(if(if(pair? e_17)(identifier?(car e_17)) #f)" @@ -12827,11 +12828,11 @@ static const char *startup_source = "(let-values() #f)))))" "(define-values" "(extract-source-location)" -"(lambda(s_159)" +"(lambda(s_157)" "(begin" -"(if(syntax?$1 s_159)" -"(if(syntax-srcloc s_159)" -" (let-values (((str_2) (srcloc->string (syntax-srcloc s_159)))) (if str_2 (string-append str_2 \": \") #f))" +"(if(syntax?$1 s_157)" +"(if(syntax-srcloc s_157)" +" (let-values (((str_2) (srcloc->string (syntax-srcloc s_157)))) (if str_2 (string-append str_2 \": \") #f))" " #f)" " #f))))" "(define-values" @@ -13120,7 +13121,7 @@ static const char *startup_source = " 0-phase155_0" "(namespace-phase-to-namespace the-struct_37)" "(namespace-phase-level-to-definitions the-struct_37)" -"(1/namespace-module-registry the-struct_37)" +"(namespace-module-registry$1 the-struct_37)" "(namespace-bulk-binding-registry the-struct_37)" " submodule-declarations156_0" "(namespace-root-namespace the-struct_37)" @@ -13151,7 +13152,7 @@ static const char *startup_source = "(let-values(((prior-m_0)" "(if with-submodules?_0" "(hash-ref" -"(module-registry-declarations(1/namespace-module-registry ns_21))" +"(module-registry-declarations(namespace-module-registry$1 ns_21))" " mod-name_4" " #f)" " #f)))" @@ -13178,7 +13179,7 @@ static const char *startup_source = "(let-values()(check-redeclaration-ok prior-m_0 prior-mi_0 mod-name_4))" "(void))" "(if with-submodules?_0" -"(hash-set!(module-registry-declarations(1/namespace-module-registry ns_21)) mod-name_4 m_2)" +"(hash-set!(module-registry-declarations(namespace-module-registry$1 ns_21)) mod-name_4 m_2)" "(small-hash-set!(namespace-submodule-declarations ns_21) mod-name_4 m_2))" "(if with-submodules?_0" "(let-values()" @@ -13326,7 +13327,7 @@ static const char *startup_source = " 0-phase176_0" " phase-to-namespace177_0" " phase-level-to-definitions178_0" -"(1/namespace-module-registry the-struct_38)" +"(namespace-module-registry$1 the-struct_38)" "(namespace-bulk-binding-registry the-struct_38)" "(namespace-submodule-declarations the-struct_38)" "(namespace-root-namespace the-struct_38)" @@ -13381,17 +13382,17 @@ static const char *startup_source = "(hash-set! at-phase_2 name_31 mi_1))))))))))))" "(define-values" "(namespace-create-module-instance!)" -"(lambda(ns_25 name_32 0-phase_3 m_5 mpi_15)" +"(lambda(ns_25 name_32 0-phase_3 m_5 mpi_16)" "(begin" "(let-values(((m-ns_4)" "(let-values(((the-struct_27) ns_25))" "(if(1/namespace? the-struct_27)" -"(let-values(((mpi181_0) mpi_15)" +"(let-values(((mpi181_0) mpi_16)" "((source-name182_0)" "(let-values(((or-part_156)(module-source-name m_5)))" "(if or-part_156" " or-part_156" -"(resolved-module-path-root-name(1/module-path-index-resolve mpi_15)))))" +"(resolved-module-path-root-name(1/module-path-index-resolve mpi_16)))))" "((root-expand-ctx183_0)(box #f))" "((phase184_0) 0-phase_3)" "((0-phase185_0) 0-phase_3)" @@ -13407,7 +13408,7 @@ static const char *startup_source = " 0-phase185_0" " phase-to-namespace186_0" " phase-level-to-definitions187_0" -"(1/namespace-module-registry the-struct_27)" +"(namespace-module-registry$1 the-struct_27)" "(namespace-bulk-binding-registry the-struct_27)" "(namespace-submodule-declarations the-struct_27)" "(namespace-root-namespace the-struct_27)" @@ -13513,7 +13514,7 @@ static const char *startup_source = "(begin" " 'namespace-module-instantiate!96" "(let-values(((ns_29) ns93_0))" -"(let-values(((mpi_16) mpi94_0))" +"(let-values(((mpi_17) mpi94_0))" "(let-values(((instance-phase_0) instance-phase95_0))" "(let-values(((run-phase_0)(if run-phase89_0 run-phase85_0(namespace-phase ns_29))))" "(let-values(((skip-run?_0)(if skip-run?90_0 skip-run?86_0 #f)))" @@ -13522,11 +13523,11 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(1/module-path-index? mpi_16)" +"(if(1/module-path-index? mpi_17)" "(void)" -" (let-values () (error \"not a module path index:\" mpi_16)))" +" (let-values () (error \"not a module path index:\" mpi_17)))" "(values))))" -"(let-values(((name_34)(1/module-path-index-resolve mpi_16 #t)))" +"(let-values(((name_34)(1/module-path-index-resolve mpi_17 #t)))" "(let-values(((m_8)(namespace->module ns_29 name_34)))" "(let-values((()" "(begin" @@ -13561,7 +13562,7 @@ static const char *startup_source = " name_34" " instance-phase_1" " m_8" -" mpi_16)))))" +" mpi_17)))))" "(let-values(((mi199_0) mi_6)" "((ns200_0) ns_30)" "((run-phase201_0) run-phase_1)" @@ -13590,12 +13591,12 @@ static const char *startup_source = "(begin" " 'namespace-module-visit!104" "(let-values(((ns_31) ns101_0))" -"(let-values(((mpi_17) mpi102_0))" +"(let-values(((mpi_18) mpi102_0))" "(let-values(((instance-phase_2) instance-phase103_0))" "(let-values(((visit-phase_0)(if visit-phase100_0 visit-phase99_0(namespace-phase ns_31))))" "(let-values()" "(let-values(((ns208_0) ns_31)" -"((mpi209_0) mpi_17)" +"((mpi209_0) mpi_18)" "((instance-phase210_0) instance-phase_2)" "((temp211_0)(add1 visit-phase_0)))" "(namespace-module-instantiate!96.1" @@ -13616,12 +13617,12 @@ static const char *startup_source = "(begin" " 'namespace-module-make-available!112" "(let-values(((ns_32) ns109_0))" -"(let-values(((mpi_18) mpi110_0))" +"(let-values(((mpi_19) mpi110_0))" "(let-values(((instance-phase_3) instance-phase111_0))" "(let-values(((visit-phase_1)(if visit-phase108_0 visit-phase107_0(namespace-phase ns_32))))" "(let-values()" "(let-values(((ns212_0) ns_32)" -"((mpi213_0) mpi_18)" +"((mpi213_0) mpi_19)" "((instance-phase214_0) instance-phase_3)" "((temp215_0)(add1 visit-phase_1))" "((temp216_0) #t))" @@ -13668,7 +13669,7 @@ static const char *startup_source = "(void)" "(let-values()" "(let-values(((m_9)(module-instance-module mi_7)))" -"(let-values(((mpi_19)(namespace-mpi m-ns_5)))" +"(let-values(((mpi_20)(namespace-mpi m-ns_5)))" "(let-values(((phase-shift_3) instance-phase_4))" "(let-values(((bulk-binding-registry_3)(namespace-bulk-binding-registry m-ns_5)))" "(begin" @@ -13741,7 +13742,7 @@ static const char *startup_source = " req-mpi_0" "(module-self" " m_9)" -" mpi_19))" +" mpi_20))" " fold-var_49))))" "(values" " fold-var_50)))))" @@ -13942,7 +13943,7 @@ static const char *startup_source = " data-box_0" " p-ns_2" " phase-shift_3" -" mpi_19" +" mpi_20" " bulk-binding-registry_3" " insp_5)" "(go_0" @@ -13950,7 +13951,7 @@ static const char *startup_source = " p-ns_2" " phase-shift_3" " phase-level_13" -" mpi_19" +" mpi_20" " bulk-binding-registry_3" " insp_5))))))))))))" "(if(if otherwise-available?_1" @@ -14026,7 +14027,7 @@ static const char *startup_source = "(void)" "(let-values()" "(registry-call-with-lock" -"(1/namespace-module-registry ns_37)" +"(namespace-module-registry$1 ns_37)" "(lambda()" "((letrec-values(((loop_76)" "(lambda()" @@ -14585,7 +14586,7 @@ static const char *startup_source = "(begin" " 'set!-transformer-procedure" "(let-values(((v_93)((set!-transformer-value t_37) t_37)))" -"(if(procedure-arity-includes? v_93 1) v_93(lambda(s_160)(v_93 t_37 s_160)))))))" +"(if(procedure-arity-includes? v_93 1) v_93(lambda(s_158)(v_93 t_37 s_158)))))))" "(define-values(empty-env) '#hasheq())" "(define-values(env-extend)(lambda(env_0 key_43 val_21)(begin(hash-set env_0 key_43 val_21))))" "(define-values(variable)(gensym 'variable))" @@ -14640,7 +14641,7 @@ static const char *startup_source = "(begin" "(if(1/set!-transformer? t_18)" "(let-values()(1/set!-transformer-procedure t_18))" -"(if(1/rename-transformer? t_18)(let-values()(lambda(s_161) s_161))(let-values() t_18))))))" +"(if(1/rename-transformer? t_18)(let-values()(lambda(s_159) s_159))(let-values() t_18))))))" "(define-values" "(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)" "(let-values(((struct:_22 make-_22 ?_22 -ref_22 -set!_22)" @@ -14687,17 +14688,17 @@ static const char *startup_source = "(lambda(in20_0 in22_0 shadow-except21_0 shadow-except23_1 s24_0 binding25_0 phase26_1)" "(begin" " 'add-bulk-binding!27" -"(let-values(((s_162) s24_0))" +"(let-values(((s_160) s24_0))" "(let-values(((binding_9) binding25_0))" "(let-values(((phase_35) phase26_1))" "(let-values(((in-s_3)(if in22_0 in20_0 #f)))" "(let-values(((shadow-except_2)(if shadow-except23_1 shadow-except21_0 #f)))" "(let-values()" "(begin" -"(if(syntax-tainted?$1 s_162)" -" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_162))" +"(if(syntax-tainted?$1 s_160)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_160))" "(void))" -"(let-values(((temp59_1)(syntax-scope-set s_162 phase_35))" +"(let-values(((temp59_1)(syntax-scope-set s_160 phase_35))" "((binding60_0) binding_9)" "((shadow-except61_0) shadow-except_2))" "(add-bulk-binding-in-scopes!27.1 shadow-except61_0 #t temp59_1 binding60_0))))))))))))" @@ -14798,20 +14799,20 @@ static const char *startup_source = "(let-values()" "(values" "(let-values(((or-part_164)" -"(let-values(((lst_34) lift-envs_0))" +"(let-values(((lst_75) lift-envs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_34)))" +"(let-values()(check-list lst_75)))" "((letrec-values(((for-loop_94)" -"(lambda(result_60 lst_75)" +"(lambda(result_60 lst_76)" "(begin" " 'for-loop" -"(if(pair? lst_75)" +"(if(pair? lst_76)" "(let-values(((lift-env_0)" -"(unsafe-car lst_75))" +"(unsafe-car lst_76))" "((rest_34)" -"(unsafe-cdr lst_75)))" +"(unsafe-cdr lst_76)))" "(let-values(((result_61)" "(let-values()" "(let-values(((result_62)" @@ -14835,7 +14836,7 @@ static const char *startup_source = " result_60)))))" " for-loop_94)" " #f" -" lst_34)))))" +" lst_75)))))" "(if or-part_164" " or-part_164" "(if out-of-context-as-variable?_0" @@ -14858,15 +14859,15 @@ static const char *startup_source = "(free-id-set)" "(lambda(phase_38 ids_0)" "(begin" -"(let-values(((lst_76) ids_0))" +"(let-values(((lst_77) ids_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_76)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_77)))" "((letrec-values(((for-loop_95)" -"(lambda(ht_75 lst_77)" +"(lambda(ht_75 lst_78)" "(begin" " 'for-loop" -"(if(pair? lst_77)" -"(let-values(((id_19)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" +"(if(pair? lst_78)" +"(let-values(((id_19)(unsafe-car lst_78))((rest_35)(unsafe-cdr lst_78)))" "(let-values(((ht_76)" "(let-values(((ht_77) ht_75))" "(let-values(((ht_78)" @@ -14886,7 +14887,7 @@ static const char *startup_source = " ht_75)))))" " for-loop_95)" " '#hasheq()" -" lst_76))))))" +" lst_77))))))" "(define-values(empty-free-id-set)(free-id-set 0 null))" "(define-values(free-id-set-empty?)(lambda(fs_0)(begin(eq? fs_0 empty-free-id-set))))" "(define-values" @@ -14895,16 +14896,16 @@ static const char *startup_source = "(begin" "(if(zero?(hash-count fs_1))" " #f" -"(let-values(((lst_78)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_39) null)))" +"(let-values(((lst_79)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_39) null)))" "(begin" "(void)" "((letrec-values(((for-loop_96)" -"(lambda(result_3 lst_79)" +"(lambda(result_3 lst_80)" "(begin" " 'for-loop" -"(if(not(null? lst_79))" -"(let-values(((id_20)(if(pair? lst_79)(car lst_79) lst_79))" -"((rest_36)(if(pair? lst_79)(cdr lst_79) null)))" +"(if(not(null? lst_80))" +"(let-values(((id_20)(if(pair? lst_80)(car lst_80) lst_80))" +"((rest_36)(if(pair? lst_80)(cdr lst_80) null)))" "(let-values(((result_63)" "(let-values()" "(let-values(((result_64)" @@ -14922,7 +14923,7 @@ static const char *startup_source = " result_3)))))" " for-loop_96)" " #f" -" lst_78)))))))" +" lst_79)))))))" "(define-values" "(free-id-set-empty-or-just-module*?)" "(lambda(fs_2)(begin(let-values(((c_17)(hash-count fs_2)))(<= c_17 1)))))" @@ -15507,14 +15508,14 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))))" "(define-values" "(to-syntax-list.1)" -"(lambda(s_163)" +"(lambda(s_161)" "(begin" " 'to-syntax-list" -"(if(list? s_163)" -"(let-values() s_163)" -"(if(pair? s_163)" -"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_163))))(if r_28(cons(car s_163) r_28) #f)))" -"(if(syntax?$1 s_163)(let-values()(to-syntax-list.1(syntax-e$1 s_163)))(let-values() #f)))))))" +"(if(list? s_161)" +"(let-values() s_161)" +"(if(pair? s_161)" +"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_161))))(if r_28(cons(car s_161) r_28) #f)))" +"(if(syntax?$1 s_161)(let-values()(to-syntax-list.1(syntax-e$1 s_161)))(let-values() #f)))))))" "(define-values(core-scope)(new-multi-scope))" "(define-values(core-stx)(add-scope empty-syntax core-scope))" "(define-values(core-module-name)(1/make-resolved-module-path '#%core))" @@ -15530,8 +15531,8 @@ static const char *startup_source = "(let-values(((or-part_6)(hash-ref id-cache-0 sym_11 #f)))" "(if or-part_6" " or-part_6" -"(let-values(((s_164)(datum->syntax$1 core-stx sym_11)))" -"(begin(hash-set! id-cache-0 sym_11 s_164) s_164)))))" +"(let-values(((s_162)(datum->syntax$1 core-stx sym_11)))" +"(begin(hash-set! id-cache-0 sym_11 s_162) s_162)))))" "(if(eq? phase_33 1)" "(let-values()" "(let-values(((or-part_28)(hash-ref id-cache-1 sym_11 #f)))" @@ -15594,23 +15595,23 @@ static const char *startup_source = "((temp14_1)" "(hasheqv" " 0" -"(let-values(((lst_80)(list core-primitives core-forms))((lst_81) '(#f #t)))" +"(let-values(((lst_81)(list core-primitives core-forms))((lst_82) '(#f #t)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_81)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_82)))" "((letrec-values(((for-loop_97)" -"(lambda(table_108 lst_82 lst_83)" +"(lambda(table_108 lst_83 lst_84)" "(begin" " 'for-loop" -"(if(if(pair? lst_82)(pair? lst_83) #f)" -"(let-values(((syms_12)(unsafe-car lst_82))" -"((rest_37)(unsafe-cdr lst_82))" -"((syntax?_2)(unsafe-car lst_83))" -"((rest_38)(unsafe-cdr lst_83)))" +"(if(if(pair? lst_83)(pair? lst_84) #f)" +"(let-values(((syms_12)(unsafe-car lst_83))" +"((rest_37)(unsafe-cdr lst_83))" +"((syntax?_2)(unsafe-car lst_84))" +"((rest_38)(unsafe-cdr lst_84)))" "(let-values(((table_109)" "(let-values(((table_110) table_108))" "(let-values(((ht_79) syms_12))" @@ -15699,8 +15700,8 @@ static const char *startup_source = " table_108)))))" " for-loop_97)" " '#hasheq()" -" lst_80" -" lst_81)))))" +" lst_81" +" lst_82)))))" "((temp15_1)" "(lambda(phase-level_14 ns_47 insp_7)" "(if(zero? phase-level_14)" @@ -15852,20 +15853,20 @@ static const char *startup_source = "(lambda(s_23 phase_42)" "(begin" "(let-values(((ok?_0 id23_0 _24_0)" -"(let-values(((s_165) s_23))" -"(if(let-values(((s_166)(if(syntax?$1 s_165)(syntax-e$1 s_165) s_165)))" -"(if(pair? s_166)" -"(if(let-values(((s_167)(car s_166)))" -"(let-values(((or-part_167)(if(syntax?$1 s_167)(symbol?(syntax-e$1 s_167)) #f)))" -"(if or-part_167 or-part_167(symbol? s_167))))" -"(let-values(((s_168)(cdr s_166))) #t)" +"(let-values(((s_163) s_23))" +"(if(let-values(((s_164)(if(syntax?$1 s_163)(syntax-e$1 s_163) s_163)))" +"(if(pair? s_164)" +"(if(let-values(((s_165)(car s_164)))" +"(let-values(((or-part_167)(if(syntax?$1 s_165)(symbol?(syntax-e$1 s_165)) #f)))" +"(if or-part_167 or-part_167(symbol? s_165))))" +"(let-values(((s_166)(cdr s_164))) #t)" " #f)" " #f))" "(let-values()" "(let-values(((id23_1 _24_1)" -"(let-values(((s_169)(if(syntax?$1 s_165)(syntax-e$1 s_165) s_165)))" -"(let-values(((id25_0)(let-values(((s_67)(car s_169))) s_67))" -"((_26_0)(let-values(((s_80)(cdr s_169))) s_80)))" +"(let-values(((s_167)(if(syntax?$1 s_163)(syntax-e$1 s_163) s_163)))" +"(let-values(((id25_0)(let-values(((s_66)(car s_167))) s_66))" +"((_26_0)(let-values(((s_79)(cdr s_167))) s_79)))" "(values id25_0 _26_0)))))" "(values #t id23_1 _24_1)))" "(values #f #f #f)))))" @@ -15884,30 +15885,30 @@ static const char *startup_source = "(lambda(s_0 proc_6 phase_32)" "(begin" "((letrec-values(((loop_33)" -"(lambda(s_70 mode_10)" +"(lambda(s_69 mode_10)" "(begin" " 'loop" "(let-values(((tmp_4) mode_10))" "(if(equal? tmp_4 'none)" -"(let-values() s_70)" +"(let-values() s_69)" "(if(equal? tmp_4 'opaque)" -"(let-values()(proc_6 s_70))" +"(let-values()(proc_6 s_69))" "(if(equal? tmp_4 'transparent)" "(let-values()" "(let-values(((c_18)" -"(let-values(((s_170)" -"(let-values(((or-part_13)(syntax->list$1 s_70)))" -"(if or-part_13 or-part_13(syntax-e$1 s_70))))" +"(let-values(((s_168)" +"(let-values(((or-part_13)(syntax->list$1 s_69)))" +"(if or-part_13 or-part_13(syntax-e$1 s_69))))" "((f_35)(lambda(tail?_39 d_18)(begin 'f d_18)))" "((s->_3)" -"(lambda(s_171)" +"(lambda(s_169)" "(begin" " 's->" "(loop_33" -" s_171" -"(syntax-taint-mode-property s_171)))))" +" s_169" +"(syntax-taint-mode-property s_169)))))" "((seen_19) #f))" -"(let-values(((s_172) s_170)" +"(let-values(((s_170) s_168)" "((f_36)" "(lambda(tail?_40 v_60)" "(begin" @@ -15917,7 +15918,7 @@ static const char *startup_source = "(let-values()(f_35 tail?_40 v_60))))))" "((seen_20) seen_19))" "((letrec-values(((loop_7)" -"(lambda(tail?_41 s_173 prev-depth_8)" +"(lambda(tail?_41 s_171 prev-depth_8)" "(begin" " 'loop" "(let-values(((depth_8)" @@ -15926,78 +15927,78 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_41" -" s_173" -"(lambda(tail?_42 s_174)" -"(f_36 tail?_42 s_174))" +" s_171" +"(lambda(tail?_42 s_172)" +"(f_36 tail?_42 s_172))" " seen_20))" -"(if(null? s_173)" +"(if(null? s_171)" "(let-values()" -"(f_36 tail?_41 s_173))" -"(if(pair? s_173)" +"(f_36 tail?_41 s_171))" +"(if(pair? s_171)" "(let-values()" "(f_36" " tail?_41" "(cons" "(loop_7" " #f" -"(car s_173)" +"(car s_171)" " depth_8)" "(loop_7" " #t" -"(cdr s_173)" +"(cdr s_171)" " depth_8))))" "(if(let-values(((or-part_168)" "(symbol?" -" s_173)))" +" s_171)))" "(if or-part_168" " or-part_168" "(let-values(((or-part_71)" "(boolean?" -" s_173)))" +" s_171)))" "(if or-part_71" " or-part_71" -"(number? s_173)))))" -"(let-values()(f_36 #f s_173))" +"(number? s_171)))))" +"(let-values()(f_36 #f s_171))" "(if(let-values(((or-part_72)" "(vector?" -" s_173)))" +" s_171)))" "(if or-part_72" " or-part_72" "(let-values(((or-part_73)" "(box?" -" s_173)))" +" s_171)))" "(if or-part_73" " or-part_73" "(let-values(((or-part_74)" "(prefab-struct-key" -" s_173)))" +" s_171)))" "(if or-part_74" " or-part_74" "(hash?" -" s_173)))))))" +" s_171)))))))" "(let-values()" "(datum-map-slow" " tail?_41" -" s_173" -"(lambda(tail?_43 s_175)" -"(f_36 tail?_43 s_175))" +" s_171" +"(lambda(tail?_43 s_173)" +"(f_36 tail?_43 s_173))" " seen_20))" "(let-values()" -"(f_36 #f s_173))))))))))))" +"(f_36 #f s_171))))))))))))" " loop_7)" " #f" -" s_172" +" s_170" " 0)))))" "(datum->syntax$1" " #f" " c_18" -" s_70" -"(if(syntax-any-macro-scopes? s_70)" -"(syntax-property-remove s_70 original-property-sym)" -" s_70))))" +" s_69" +"(if(syntax-any-macro-scopes? s_69)" +"(syntax-property-remove s_69 original-property-sym)" +" s_69))))" "(if(equal? tmp_4 'transparent-binding)" "(let-values()" -"(let-values(((c_19)(syntax-e$1 s_70)))" +"(let-values(((c_19)(syntax-e$1 s_69)))" "(if(pair? c_19)" "(let-values()" "(let-values(((cd_0)(cdr c_19)))" @@ -16013,20 +16014,20 @@ static const char *startup_source = "(loop_33(car c_19)(syntax-taint-mode-property(car c_19)))" "(cons" "(loop_33(car d_19) 'transparent)" -"(let-values(((s_176)" +"(let-values(((s_174)" "(let-values(((or-part_169)" "(syntax->list$1(cdr d_19))))" "(if or-part_169 or-part_169(cdr d_19))))" "((f_7)(lambda(tail?_44 d_20)(begin 'f d_20)))" "((s->_4)" -"(lambda(s_177)" +"(lambda(s_175)" "(begin" " 's->" "(loop_33" -" s_177" -"(syntax-taint-mode-property s_177)))))" +" s_175" +"(syntax-taint-mode-property s_175)))))" "((seen_21) #f))" -"(let-values(((s_83) s_176)" +"(let-values(((s_82) s_174)" "((f_8)" "(lambda(tail?_45 v_39)" "(begin" @@ -16036,7 +16037,7 @@ static const char *startup_source = "(let-values()(f_7 tail?_45 v_39))))))" "((seen_22) seen_21))" "((letrec-values(((loop_78)" -"(lambda(tail?_46 s_178 prev-depth_9)" +"(lambda(tail?_46 s_176 prev-depth_9)" "(begin" " 'loop" "(let-values(((depth_9)" @@ -16045,107 +16046,107 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_46" -" s_178" -"(lambda(tail?_47 s_179)" -"(f_8 tail?_47 s_179))" +" s_176" +"(lambda(tail?_47 s_177)" +"(f_8 tail?_47 s_177))" " seen_22))" -"(if(null? s_178)" +"(if(null? s_176)" "(let-values()" -"(f_8 tail?_46 s_178))" -"(if(pair? s_178)" +"(f_8 tail?_46 s_176))" +"(if(pair? s_176)" "(let-values()" "(f_8" " tail?_46" "(cons" "(loop_78" " #f" -"(car s_178)" +"(car s_176)" " depth_9)" "(loop_78" " #t" -"(cdr s_178)" +"(cdr s_176)" " depth_9))))" "(if(let-values(((or-part_170)" "(symbol?" -" s_178)))" +" s_176)))" "(if or-part_170" " or-part_170" "(let-values(((or-part_171)" "(boolean?" -" s_178)))" +" s_176)))" "(if or-part_171" " or-part_171" "(number?" -" s_178)))))" +" s_176)))))" "(let-values()" -"(f_8 #f s_178))" +"(f_8 #f s_176))" "(if(let-values(((or-part_172)" "(vector?" -" s_178)))" +" s_176)))" "(if or-part_172" " or-part_172" "(let-values(((or-part_173)" "(box?" -" s_178)))" +" s_176)))" "(if or-part_173" " or-part_173" "(let-values(((or-part_174)" "(prefab-struct-key" -" s_178)))" +" s_176)))" "(if or-part_174" " or-part_174" "(hash?" -" s_178)))))))" +" s_176)))))))" "(let-values()" "(datum-map-slow" " tail?_46" -" s_178" +" s_176" "(lambda(tail?_48" -" s_180)" +" s_178)" "(f_8" " tail?_48" -" s_180))" +" s_178))" " seen_22))" "(let-values()" "(f_8" " #f" -" s_178))))))))))))" +" s_176))))))))))))" " loop_78)" " #f" -" s_83" +" s_82" " 0)))))" -" s_70" -"(if(syntax-any-macro-scopes? s_70)" -"(syntax-property-remove s_70 original-property-sym)" -" s_70))))" -"(let-values()(loop_33 s_70 'transparent)))))" -"(let-values()(loop_33 s_70 'transparent)))))" +" s_69" +"(if(syntax-any-macro-scopes? s_69)" +"(syntax-property-remove s_69 original-property-sym)" +" s_69))))" +"(let-values()(loop_33 s_69 'transparent)))))" +"(let-values()(loop_33 s_69 'transparent)))))" "(let-values()" -"(let-values(((c_20)(syntax-e$1 s_70)))" +"(let-values(((c_20)(syntax-e$1 s_69)))" "(let-values(((tmp_15)(core-form-sym c_20 phase_32)))" "(if(if(equal? tmp_15 'begin)" " #t" "(if(equal? tmp_15 'begin-for-syntax)" " #t" "(equal? tmp_15 '#%module-begin)))" -"(let-values()(loop_33 s_70 'transparent))" +"(let-values()(loop_33 s_69 'transparent))" "(if(if(equal? tmp_15 'define-values)" " #t" "(equal? tmp_15 'define-syntaxes))" -"(let-values()(loop_33 s_70 'transparent-binding))" -"(let-values()(loop_33 s_70 'opaque))))))))))))))))" +"(let-values()(loop_33 s_69 'transparent-binding))" +"(let-values()(loop_33 s_69 'opaque))))))))))))))))" " loop_33)" " s_0" "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" -"(lambda(s_181)" +"(lambda(s_179)" "(begin" -"(let-values(((or-part_175)(syntax-property$1 s_181 'taint-mode)))" -"(if or-part_175 or-part_175(syntax-property$1 s_181 'certify-mode))))))" +"(let-values(((or-part_175)(syntax-property$1 s_179 'taint-mode)))" +"(if or-part_175 or-part_175(syntax-property$1 s_179 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" -"(lambda(s_182)(begin(syntax-property-remove(syntax-property-remove s_182 'taint-mode) 'certify-mode))))" +"(lambda(s_180)(begin(syntax-property-remove(syntax-property-remove s_180 'taint-mode) 'certify-mode))))" "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" @@ -16154,18 +16155,18 @@ static const char *startup_source = " 'syntax-debug-info" "(let-values(((hts_0)" "(reverse$1" -"(let-values(((lst_77)(fallback->list(syntax-shifted-multi-scopes s_0))))" +"(let-values(((lst_78)(fallback->list(syntax-shifted-multi-scopes s_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" +"(let-values()(check-list lst_78)))" "((letrec-values(((for-loop_101)" -"(lambda(fold-var_59 lst_84)" +"(lambda(fold-var_59 lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_84)" -"(let-values(((smss_26)(unsafe-car lst_84))" -"((rest_39)(unsafe-cdr lst_84)))" +"(if(pair? lst_85)" +"(let-values(((smss_26)(unsafe-car lst_85))" +"((rest_39)(unsafe-cdr lst_85)))" "(let-values(((fold-var_60)" "(let-values(((fold-var_61) fold-var_59))" "(let-values(((fold-var_62)" @@ -16244,7 +16245,7 @@ static const char *startup_source = " '#hash())" "(table-with-bulk-bindings-bulk-bindings" " table_115)))))" -"((s_73)" +"((s_72)" " s_0)" "((extra-shifts_5)" " null))" @@ -16284,7 +16285,7 @@ static const char *startup_source = "(hash-ref" "(bulk-binding-symbols" " bulk_4" -" s_73" +" s_72" " extra-shifts_5)" " sym_16" " #f)" @@ -16434,7 +16435,7 @@ static const char *startup_source = " fold-var_59)))))" " for-loop_101)" " null" -" lst_77))))))" +" lst_78))))))" "(let-values(((ht_75)(car hts_0)))(if(null?(cdr hts_0)) ht_75(hash-set ht_75 'fallbacks(cdr hts_0))))))))" "(define-values" "(scope-set->context)" @@ -16496,9 +16497,9 @@ static const char *startup_source = "(syntax-debug-info-string id_21 ctx_7)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_183 ctx_8)" +"(lambda(s_181 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_183(expand-context-phase ctx_8) #t)))" +"(let-values(((info_3)(syntax-debug-info$1 s_181(expand-context-phase ctx_8) #t)))" "(if(not" "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" "(if or-part_26" @@ -16509,12 +16510,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_6)))" "((letrec-values(((for-loop_104)" -"(lambda(result_65 lst_85)" +"(lambda(result_65 lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((fb-info_0)(unsafe-car lst_85))" -"((rest_40)(unsafe-cdr lst_85)))" +"(if(pair? lst_86)" +"(let-values(((fb-info_0)(unsafe-car lst_86))" +"((rest_40)(unsafe-cdr lst_86)))" "(let-values(((result_1)" "(let-values()" "(let-values(((result_66)" @@ -16545,19 +16546,19 @@ static const char *startup_source = "(cons" "(hash-ref info_4 'context)" "(reverse$1" -"(let-values(((lst_86)(hash-ref info_4 'bindings null)))" +"(let-values(((lst_87)(hash-ref info_4 'bindings null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_86)))" +"(let-values()(check-list lst_87)))" "((letrec-values(((for-loop_105)" -"(lambda(fold-var_65 lst_87)" +"(lambda(fold-var_65 lst_88)" "(begin" " 'for-loop" -"(if(pair? lst_87)" -"(let-values(((b_21)(unsafe-car lst_87))" +"(if(pair? lst_88)" +"(let-values(((b_21)(unsafe-car lst_88))" "((rest_41)" -"(unsafe-cdr lst_87)))" +"(unsafe-cdr lst_88)))" "(let-values(((fold-var_66)" "(let-values(((fold-var_27)" " fold-var_65))" @@ -16577,26 +16578,26 @@ static const char *startup_source = " fold-var_65)))))" " for-loop_105)" " null" -" lst_86)))))" +" lst_87)))))" "(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))" "(reverse$1" -"(let-values(((lst_88) fallbacks_0)((start_14)(add1 layer_0)))" +"(let-values(((lst_89) fallbacks_0)((start_14)(add1 layer_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_88)))" +"(let-values()(check-list lst_89)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_14)))" "((letrec-values(((for-loop_106)" -"(lambda(fold-var_67 lst_89 pos_11)" +"(lambda(fold-var_67 lst_90 pos_11)" "(begin" " 'for-loop" -"(if(if(pair? lst_89) #t #f)" +"(if(if(pair? lst_90) #t #f)" "(let-values(((fallback_0)" -"(unsafe-car lst_89))" +"(unsafe-car lst_90))" "((rest_42)" -"(unsafe-cdr lst_89))" +"(unsafe-cdr lst_90))" "((layer_1) pos_11))" "(let-values(((fold-var_9)" "(let-values(((fold-var_68)" @@ -16620,7 +16621,7 @@ static const char *startup_source = " fold-var_67)))))" " for-loop_106)" " null" -" lst_88" +" lst_89" " start_14))))))))))" " loop_77)" " info_3" @@ -16628,31 +16629,31 @@ static const char *startup_source = "(let-values(((common-scopes_0)" "(if(null? relevant-scope-sets_0)" "(set)" -"(let-values(((lst_90) relevant-scope-sets_0))" +"(let-values(((lst_91) relevant-scope-sets_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_90)))" +"(let-values()(check-list lst_91)))" "((letrec-values(((for-loop_107)" -"(lambda(s_184 lst_91)" +"(lambda(s_182 lst_92)" "(begin" " 'for-loop" -"(if(pair? lst_91)" -"(let-values(((l_48)(unsafe-car lst_91))" -"((rest_43)(unsafe-cdr lst_91)))" -"(let-values(((s_84)" -"(let-values(((s_185) s_184))" -"(let-values(((s_186)" +"(if(pair? lst_92)" +"(let-values(((l_48)(unsafe-car lst_92))" +"((rest_43)(unsafe-cdr lst_92)))" +"(let-values(((s_83)" +"(let-values(((s_183) s_182))" +"(let-values(((s_184)" "(let-values()" "(set-intersect" -" s_185" +" s_183" "(list->set l_48)))))" -"(values s_186)))))" -"(if(not #f)(for-loop_107 s_84 rest_43) s_84)))" -" s_184)))))" +"(values s_184)))))" +"(if(not #f)(for-loop_107 s_83 rest_43) s_83)))" +" s_182)))))" " for-loop_107)" "(list->set(car relevant-scope-sets_0))" -" lst_90))))))" +" lst_91))))))" "(string-append" "((letrec-values(((loop_78)" "(lambda(info_5 layer_2)" @@ -16666,7 +16667,7 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_92)" +"(let-values(((lst_93)" "(let-values(((temp1_1)(hash-ref info_5 'bindings null))" "((temp2_2)" "(lambda(a_37 b_61)" @@ -16679,14 +16680,14 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_92)))" +"(let-values()(check-list lst_93)))" "((letrec-values(((for-loop_103)" -"(lambda(fold-var_63 lst_93)" +"(lambda(fold-var_63 lst_94)" "(begin" " 'for-loop" -"(if(pair? lst_93)" -"(let-values(((b_38)(unsafe-car lst_93))" -"((rest_44)(unsafe-cdr lst_93)))" +"(if(pair? lst_94)" +"(let-values(((b_38)(unsafe-car lst_94))" +"((rest_44)(unsafe-cdr lst_94)))" "(let-values(((fold-var_20)" "(let-values(((fold-var_64)" " fold-var_63))" @@ -16731,26 +16732,26 @@ static const char *startup_source = " fold-var_63)))))" " for-loop_103)" " null" -" lst_92)))))" +" lst_93)))))" "(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))" "(apply" " string-append" "(reverse$1" -"(let-values(((lst_94) fallbacks_1)((start_15)(add1 layer_2)))" +"(let-values(((lst_95) fallbacks_1)((start_15)(add1 layer_2)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_94)))" +"(let-values()(check-list lst_95)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_15)))" "((letrec-values(((for-loop_108)" -"(lambda(fold-var_71 lst_95 pos_12)" +"(lambda(fold-var_71 lst_96 pos_12)" "(begin" " 'for-loop" -"(if(if(pair? lst_95) #t #f)" -"(let-values(((fallback_1)(unsafe-car lst_95))" -"((rest_0)(unsafe-cdr lst_95))" +"(if(if(pair? lst_96) #t #f)" +"(let-values(((fallback_1)(unsafe-car lst_96))" +"((rest_0)(unsafe-cdr lst_96))" "((layer_3) pos_12))" "(let-values(((fold-var_72)" "(let-values(((fold-var_73)" @@ -16773,7 +16774,7 @@ static const char *startup_source = " fold-var_71)))))" " for-loop_108)" " null" -" lst_94" +" lst_95" " start_15)))))))))))" " loop_78)" " info_3" @@ -16794,16 +16795,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_10)" -"(let-values(((s_187)(unsafe-car lst_10))" +"(let-values(((s_185)(unsafe-car lst_10))" "((rest_1)(unsafe-cdr lst_10)))" "(let-values(((fold-var_76)" "(let-values(((fold-var_77) fold-var_75))" -"(if(set-member? common-scopes_0 s_187)" +"(if(set-member? common-scopes_0 s_185)" "(let-values(((fold-var_5) fold-var_77))" "(let-values(((fold-var_6)" "(let-values()" "(cons" -"(let-values() s_187)" +"(let-values() s_185)" " fold-var_5))))" "(values fold-var_6)))" " fold-var_77))))" @@ -16839,26 +16840,26 @@ static const char *startup_source = " scopes_19" "(append" "(reverse$1" -"(let-values(((lst_96) scopes_19))" +"(let-values(((lst_97) scopes_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_96)))" +"(let-values()(check-list lst_97)))" "((letrec-values(((for-loop_109)" -"(lambda(fold-var_78 lst_97)" +"(lambda(fold-var_78 lst_98)" "(begin" " 'for-loop" -"(if(pair? lst_97)" -"(let-values(((s_188)(unsafe-car lst_97))" -"((rest_45)(unsafe-cdr lst_97)))" +"(if(pair? lst_98)" +"(let-values(((s_186)(unsafe-car lst_98))" +"((rest_45)(unsafe-cdr lst_98)))" "(let-values(((fold-var_79)" "(let-values(((fold-var_80) fold-var_78))" -"(if(not(set-member? common-scopes_1 s_188))" +"(if(not(set-member? common-scopes_1 s_186))" "(let-values(((fold-var_81) fold-var_80))" "(let-values(((fold-var_82)" "(let-values()" "(cons" -"(let-values() s_188)" +"(let-values() s_186)" " fold-var_81))))" "(values fold-var_82)))" " fold-var_80))))" @@ -16866,7 +16867,7 @@ static const char *startup_source = " fold-var_78)))))" " for-loop_109)" " null" -" lst_96))))" +" lst_97))))" " (list \"[common scopes]\"))))))" "(if(null? strs_0)" " (let-values () \"\\n [empty]\")" @@ -16874,17 +16875,17 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_98) strs_0))" +"(let-values(((lst_99) strs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_98)))" +"(let-values()(check-list lst_99)))" "((letrec-values(((for-loop_110)" -"(lambda(fold-var_83 lst_99)" +"(lambda(fold-var_83 lst_100)" "(begin" " 'for-loop" -"(if(pair? lst_99)" -"(let-values(((str_4)(unsafe-car lst_99))((rest_46)(unsafe-cdr lst_99)))" +"(if(pair? lst_100)" +"(let-values(((str_4)(unsafe-car lst_100))((rest_46)(unsafe-cdr lst_100)))" "(let-values(((fold-var_84)" "(let-values(((fold-var_85) fold-var_83))" "(let-values(((fold-var_14)" @@ -16898,7 +16899,7 @@ static const char *startup_source = " fold-var_83)))))" " for-loop_110)" " null" -" lst_98)))))))))))" +" lst_99)))))))))))" " (define-values (layer->string) (lambda (layer_4) (begin (if (zero? layer_4) \"\" (format \" at layer ~a\" layer_4)))))" "(define-values" "(raise-syntax-implicit-error)" @@ -16950,7 +16951,7 @@ static const char *startup_source = " 'check-no-duplicate-ids8" "(let-values(((ids_2) ids5_0))" "(let-values(((phase_45) phase6_0))" -"(let-values(((s_189) s7_1))" +"(let-values(((s_187) s7_1))" "(let-values(((ht_78)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" " (let-values (((what_2) (if what2_0 what1_0 \"binding name\")))" "(let-values()" @@ -16962,19 +16963,19 @@ static const char *startup_source = "(let-values()" "(let-values(((l_7)(hash-ref ht_84(syntax-e$1 v_131) null)))" "(begin" -"(let-values(((lst_78) l_7))" +"(let-values(((lst_79) l_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" +"(let-values()(check-list lst_79)))" "((letrec-values(((for-loop_96)" -"(lambda(lst_100)" +"(lambda(lst_101)" "(begin" " 'for-loop" -"(if(pair? lst_100)" -"(let-values(((id_2)(unsafe-car lst_100))" +"(if(pair? lst_101)" +"(let-values(((id_2)(unsafe-car lst_101))" "((rest_47)" -"(unsafe-cdr lst_100)))" +"(unsafe-cdr lst_101)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -16991,7 +16992,7 @@ static const char *startup_source = "(string-append" " \"duplicate \"" " what_2)" -" s_189" +" s_187" " v_131))" "(void)))" "(values)))))" @@ -17001,7 +17002,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_96)" -" lst_78)))" +" lst_79)))" "(void)" "(hash-set ht_84(syntax-e$1 v_131)(cons v_131 l_7)))))" "(if(pair? v_131)" @@ -17019,11 +17020,11 @@ static const char *startup_source = "(if(syntax?$1 s_0)" "(remove-scopes s_0(unbox use-sites_0))" "(reverse$1" -"(let-values(((lst_101) s_0))" +"(let-values(((lst_102) s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_101)))" +"(let-values()(check-list lst_102)))" "((letrec-values(((for-loop_111)" "(lambda(fold-var_86 lst_6)" "(begin" @@ -17043,7 +17044,7 @@ static const char *startup_source = " fold-var_86)))))" " for-loop_111)" " null" -" lst_101)))))" +" lst_102)))))" " s_0)))))" "(define-values" "(struct:compile-context" @@ -17146,14 +17147,14 @@ static const char *startup_source = "(lambda()(begin(mpi-intern-table1.1(make-hash)(make-hasheq)))))" "(define-values" "(intern-module-path-index!)" -"(lambda(t_42 mpi_20)" +"(lambda(t_42 mpi_21)" "(begin" -"(let-values(((or-part_177)(hash-ref(mpi-intern-table-fast t_42) mpi_20 #f)))" +"(let-values(((or-part_177)(hash-ref(mpi-intern-table-fast t_42) mpi_21 #f)))" "(if or-part_177" " or-part_177" -"(let-values(((name_2 base_15)(1/module-path-index-split mpi_20)))" +"(let-values(((name_2 base_15)(1/module-path-index-split mpi_21)))" "(if(not name_2)" -"(let-values()(begin(hash-set!(mpi-intern-table-fast t_42) mpi_20 mpi_20) mpi_20))" +"(let-values()(begin(hash-set!(mpi-intern-table-fast t_42) mpi_21 mpi_21) mpi_21))" "(let-values()" "(let-values(((interned-base_0)(if base_15(intern-module-path-index! t_42 base_15) #f)))" "(let-values(((at-name_0)" @@ -17166,10 +17167,10 @@ static const char *startup_source = "(let-values(((or-part_76)(hash-ref at-name_0 interned-base_0 #f)))" "(if or-part_76" " or-part_76" -"(let-values(((mpi_21)" +"(let-values(((mpi_22)" "(if(eq? base_15 interned-base_0)" -" mpi_20" -"(let-values(((the-struct_45) mpi_20))" +" mpi_21" +"(let-values(((the-struct_45) mpi_21))" "(if(1/module-path-index? the-struct_45)" "(let-values(((base3_0) interned-base_0))" "(module-path-index2.1" @@ -17181,16 +17182,16 @@ static const char *startup_source = " 'struct-copy" " \"module-path-index?\"" " the-struct_45))))))" -"(begin(hash-set! at-name_0 interned-base_0 mpi_21) mpi_21))))))" -"(begin(hash-set!(mpi-intern-table-fast t_42) mpi_20 i-mpi_0) i-mpi_0))))))))))))" +"(begin(hash-set! at-name_0 interned-base_0 mpi_22) mpi_22))))))" +"(begin(hash-set!(mpi-intern-table-fast t_42) mpi_21 i-mpi_0) i-mpi_0))))))))))))" "(define-values(built-in-symbols)(make-hasheq))" "(define-values(register-built-in-symbol!)(lambda(s_0)(begin(hash-set! built-in-symbols s_0 #t))))" -"(define-values(built-in-symbol?)(lambda(s_69)(begin(hash-ref built-in-symbols s_69 #f))))" +"(define-values(built-in-symbol?)(lambda(s_68)(begin(hash-ref built-in-symbols s_68 #f))))" "(define-values" "(make-built-in-symbol!)" -"(lambda(s_183)" +"(lambda(s_181)" "(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_183))))" +" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_181))))" "(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" "(void" "(begin" @@ -17279,25 +17280,25 @@ static const char *startup_source = "(lambda()(begin(module-path-index-table1.1(make-hasheq)(make-module-path-index-intern-table)))))" "(define-values" "(add-module-path-index!)" -"(lambda(mpis_0 mpi_20)" +"(lambda(mpis_0 mpi_21)" "(begin" -"(let-values(((pos_13)(add-module-path-index!/pos mpis_0 mpi_20)))" +"(let-values(((pos_13)(add-module-path-index!/pos mpis_0 mpi_21)))" "(if pos_13(list unsafe-vector-ref-id mpi-vector-id pos_13) #f)))))" "(define-values" "(add-module-path-index!/pos)" -"(lambda(mpis_1 mpi_22)" +"(lambda(mpis_1 mpi_23)" "(begin" -"(if(not mpi_22)" +"(if(not mpi_23)" "(let-values() #f)" -"(if mpi_22" +"(if mpi_23" "(let-values()" -"(let-values(((mpi_23)(intern-module-path-index!(module-path-index-table-intern mpis_1) mpi_22))" +"(let-values(((mpi_24)(intern-module-path-index!(module-path-index-table-intern mpis_1) mpi_23))" "((positions_0)(module-path-index-table-positions mpis_1)))" -"(let-values(((or-part_74)(hash-ref positions_0 mpi_23 #f)))" +"(let-values(((or-part_74)(hash-ref positions_0 mpi_24 #f)))" "(if or-part_74" " or-part_74" "(let-values(((pos_14)(hash-count positions_0)))" -"(begin(hash-set! positions_0 mpi_23 pos_14) pos_14))))))" +"(begin(hash-set! positions_0 mpi_24 pos_14) pos_14))))))" "(void))))))" "(define-values" "(generate-module-path-index-deserialize)" @@ -17309,18 +17310,18 @@ static const char *startup_source = " 'unique-list" "(if(pair? v_132)" "(reverse$1" -"(let-values(((lst_102) v_132))" +"(let-values(((lst_103) v_132))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_102)))" +"(let-values()(check-list lst_103)))" "((letrec-values(((for-loop_26)" -"(lambda(fold-var_10 lst_81)" +"(lambda(fold-var_10 lst_82)" "(begin" " 'for-loop" -"(if(pair? lst_81)" -"(let-values(((i_94)(unsafe-car lst_81))" -"((rest_49)(unsafe-cdr lst_81)))" +"(if(pair? lst_82)" +"(let-values(((i_94)(unsafe-car lst_82))" +"((rest_49)(unsafe-cdr lst_82)))" "(let-values(((fold-var_89)" "(let-values(((fold-var_90) fold-var_10))" "(let-values(((fold-var_91)" @@ -17333,7 +17334,7 @@ static const char *startup_source = " fold-var_10)))))" " for-loop_26)" " null" -" lst_102))))" +" lst_103))))" " v_132)))))" "(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" "(let-values(((gen-order_0)(make-hasheqv)))" @@ -17389,24 +17390,24 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((mpi_24)" +"(let-values(((mpi_25)" "(hash-ref" " rev-positions_0" " i_96)))" "((letrec-values(((loop_81)" -"(lambda(mpi_25)" +"(lambda(mpi_26)" "(begin" " 'loop" "(if(hash-ref" " gen-order_0" -" mpi_25" +" mpi_26" " #f)" "(void)" "(let-values()" "(let-values(((name_37" " base_16)" "(1/module-path-index-split" -" mpi_25)))" +" mpi_26)))" "(begin" "(if base_16" "(let-values()" @@ -17415,11 +17416,11 @@ static const char *startup_source = "(void))" "(hash-set!" " gen-order_0" -" mpi_25" +" mpi_26" "(hash-count" " gen-order_0))))))))))" " loop_81)" -" mpi_24)))" +" mpi_25)))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_112(+ pos_15 inc_4))(values))))" @@ -17497,16 +17498,16 @@ static const char *startup_source = " v_134" " i_99" "(let-values()" -"(let-values(((mpi_26)" +"(let-values(((mpi_27)" "(hash-ref" " rev-gen-order_0" " i_90)))" "(let-values(((path_6" " base_17)" "(1/module-path-index-split" -" mpi_26)))" +" mpi_27)))" "(if(top-level-module-path-index?" -" mpi_26)" +" mpi_27)" "(let-values()" " 'top)" "(if(not" @@ -17517,7 +17518,7 @@ static const char *startup_source = "(unique-list_0" "(1/resolved-module-path-name" "(module-path-index-resolved" -" mpi_26)))))" +" mpi_27)))))" "(if or-part_178" " or-part_178" " 'self))))" @@ -17719,14 +17720,14 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_108" -"(let-values(((mpi_27 pos_21)(hash-iterate-key+value ht_87 i_108)))" +"(let-values(((mpi_28 pos_21)(hash-iterate-key+value ht_87 i_108)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(vector-set! vec_34 pos_21 mpi_27))" +"(vector-set! vec_34 pos_21 mpi_28))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_115(hash-iterate-next ht_87 i_108))(values))))" @@ -17740,15 +17741,15 @@ static const char *startup_source = "(lambda(mus_0 mpis_4)" "(begin" "(reverse$1" -"(let-values(((lst_103) mus_0))" +"(let-values(((lst_104) mus_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_103)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_104)))" "((letrec-values(((for-loop_116)" -"(lambda(fold-var_92 lst_104)" +"(lambda(fold-var_92 lst_105)" "(begin" " 'for-loop" -"(if(pair? lst_104)" -"(let-values(((mu_1)(unsafe-car lst_104))((rest_50)(unsafe-cdr lst_104)))" +"(if(pair? lst_105)" +"(let-values(((mu_1)(unsafe-car lst_105))((rest_50)(unsafe-cdr lst_105)))" "(let-values(((fold-var_93)" "(let-values(((fold-var_94) fold-var_92))" "(let-values(((fold-var_95)" @@ -17767,7 +17768,7 @@ static const char *startup_source = " fold-var_92)))))" " for-loop_116)" " null" -" lst_103)))))))" +" lst_104)))))))" "(define-values" "(interned-literal?)" "(lambda(v_89)" @@ -17799,15 +17800,15 @@ static const char *startup_source = "(apply" " append" "(reverse$1" -"(let-values(((lst_105) phases-in-order_0))" +"(let-values(((lst_106) phases-in-order_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_105)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_106)))" "((letrec-values(((for-loop_117)" -"(lambda(fold-var_96 lst_106)" +"(lambda(fold-var_96 lst_107)" "(begin" " 'for-loop" -"(if(pair? lst_106)" -"(let-values(((phase_47)(unsafe-car lst_106))((rest_51)(unsafe-cdr lst_106)))" +"(if(pair? lst_107)" +"(let-values(((phase_47)(unsafe-car lst_107))((rest_51)(unsafe-cdr lst_107)))" "(let-values(((fold-var_97)" "(let-values(((fold-var_35) fold-var_96))" "(let-values(((fold-var_98)" @@ -17829,7 +17830,7 @@ static const char *startup_source = " fold-var_96)))))" " for-loop_117)" " null" -" lst_105))))))))))" +" lst_106))))))))))" "(define-values" "(generate-deserialize6.1)" "(lambda(syntax-support?2_0 syntax-support?3_0 v4_0 mpis5_0)" @@ -18057,7 +18058,7 @@ static const char *startup_source = "(if(immutable?" " v_105)" "(begin" -"(let-values(((lst_75)" +"(let-values(((lst_76)" "(sorted-hash-keys" " v_105)))" "(begin" @@ -18066,19 +18067,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_75)))" +" lst_76)))" "((letrec-values(((for-loop_120)" -"(lambda(lst_107)" +"(lambda(lst_108)" "(begin" " 'for-loop" "(if(pair?" -" lst_107)" +" lst_108)" "(let-values(((k_21)" "(unsafe-car" -" lst_107))" +" lst_108))" "((rest_52)" "(unsafe-cdr" -" lst_107)))" +" lst_108)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18101,7 +18102,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_120)" -" lst_75)))" +" lst_76)))" "(void))" "(begin" "(hash-set!" @@ -18110,7 +18111,7 @@ static const char *startup_source = "(hash-count" " mutables_0))" "(begin" -"(let-values(((lst_108)" +"(let-values(((lst_109)" "(sorted-hash-keys" " v_105)))" "(begin" @@ -18119,7 +18120,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_108)))" +" lst_109)))" "((letrec-values(((for-loop_121)" "(lambda(lst_53)" "(begin" @@ -18154,7 +18155,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_121)" -" lst_108)))" +" lst_109)))" "(void)))))" "(if(prefab-struct-key" " v_105)" @@ -18285,20 +18286,20 @@ static const char *startup_source = "(let-values(((l_49) frontier_0))" "(begin" "(set! frontier_0 null)" -"(let-values(((lst_109) l_49))" +"(let-values(((lst_110) l_49))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_109)))" +"(check-list lst_110)))" "((letrec-values(((for-loop_124)" "(lambda(lst_56)" "(begin" " 'for-loop" "(if(pair?" " lst_56)" -"(let-values(((v_43)" +"(let-values(((v_137)" "(unsafe-car" " lst_56))" "((rest_54)" @@ -18311,7 +18312,7 @@ static const char *startup_source = "(begin" "(let-values()" "(frontier-loop_0" -" v_43))" +" v_137))" "(values)))))" "(values)))))" "(if(not" @@ -18321,7 +18322,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_124)" -" lst_109)))" +" lst_110)))" "(void))))))))))" " frontier-loop_0)" " v_136)" @@ -18369,7 +18370,7 @@ static const char *startup_source = " for-loop_125)" " null" "(hash-iterate-first ht_88)))))))" -"(let-values(((lst_110)" +"(let-values(((lst_111)" "(let-values(((share-steps12_0) share-steps_0)" "((<13_0) <))" "(sort7.1 #f #f #f #f share-steps12_0 <13_0)))" @@ -18377,19 +18378,19 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_110)))" +"(let-values()(check-list lst_111)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" "((letrec-values(((for-loop_126)" -"(lambda(table_121 lst_111 pos_24)" +"(lambda(table_121 lst_112 pos_24)" "(begin" " 'for-loop" -"(if(if(pair? lst_111) #t #f)" +"(if(if(pair? lst_112) #t #f)" "(let-values(((step_3)" -"(unsafe-car lst_111))" +"(unsafe-car lst_112))" "((rest_55)" -"(unsafe-cdr lst_111))" +"(unsafe-cdr lst_112))" "((pos_25) pos_24))" "(let-values(((table_122)" "(let-values(((table_123)" @@ -18416,7 +18417,7 @@ static const char *startup_source = " table_121)))))" " for-loop_126)" " '#hasheqv()" -" lst_110" +" lst_111" " start_20))))))" "(let-values(((stream_0) null))" "(let-values(((stream-size_0) 0))" @@ -18426,12 +18427,12 @@ static const char *startup_source = "(lambda(pos_26)" "(begin" " 'quoted?" -"(let-values(((v_137)" +"(let-values(((v_138)" "(list-ref" " stream_0" "(- stream-size_0(add1 pos_26)))))" -"(let-values(((or-part_165)(not(keyword? v_137))))" -"(if or-part_165 or-part_165(eq? '#:quote v_137))))))))" +"(let-values(((or-part_165)(not(keyword? v_138))))" +"(if or-part_165 or-part_165(eq? '#:quote v_138))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_27)" "(begin" @@ -18450,20 +18451,20 @@ static const char *startup_source = "(set! stream-size_0 0))))))" "(letrec-values(((ser-push!_15)" "(case-lambda" -"((v_138)" +"((v_139)" "(begin" " 'ser-push!" -"(if(hash-ref shares_0 v_138 #f)" +"(if(hash-ref shares_0 v_139 #f)" "(let-values()" "(let-values(((n_21)" "(hash-ref" " share-step-positions_0" -"(hash-ref objs_0 v_138))))" +"(hash-ref objs_0 v_139))))" "(begin" "(ser-push!_15 'tag '#:ref)" "(ser-push!_15 'exact n_21))))" "(let-values(((c1_23)" -"(hash-ref mutables_0 v_138 #f)))" +"(hash-ref mutables_0 v_139 #f)))" "(if c1_23" "((lambda(n_22)" "(begin" @@ -18471,49 +18472,49 @@ static const char *startup_source = "(ser-push!_15 'exact n_22)))" " c1_23)" "(let-values()" -"(ser-push-encoded!_0 v_138)))))))" -"((kind_4 v_139)" +"(ser-push-encoded!_0 v_139)))))))" +"((kind_4 v_140)" "(let-values(((tmp_18) kind_4))" "(if(equal? tmp_18 'exact)" "(let-values()" "(begin" -"(set! stream_0(cons v_139 stream_0))" +"(set! stream_0(cons v_140 stream_0))" "(set! stream-size_0(add1 stream-size_0))))" "(if(equal? tmp_18 'tag)" -"(let-values()(ser-push!_15 'exact v_139))" +"(let-values()(ser-push!_15 'exact v_140))" "(if(equal? tmp_18 'reference)" "(let-values()" -"(if(hash-ref shares_0 v_139 #f)" +"(if(hash-ref shares_0 v_140 #f)" "(let-values()" "(let-values(((n_23)" "(hash-ref" " share-step-positions_0" "(hash-ref" " objs_0" -" v_139))))" +" v_140))))" "(ser-push!_15 'exact n_23)))" "(let-values(((c2_1)" "(hash-ref" " mutables_0" -" v_139" +" v_140" " #f)))" "(if c2_1" "((lambda(n_24)" "(ser-push!_15 'exact n_24))" " c2_1)" "(let-values()" -"(ser-push!_15 v_139))))))" -"(let-values()(ser-push!_15 v_139)))))))))" +"(ser-push!_15 v_140))))))" +"(let-values()(ser-push!_15 v_140)))))))))" "((ser-push-encoded!_0)" -"(lambda(v_140)" +"(lambda(v_141)" "(begin" " 'ser-push-encoded!" -"(if(keyword? v_140)" +"(if(keyword? v_141)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:quote)" -"(ser-push!_15 'exact v_140)))" -"(if(1/module-path-index? v_140)" +"(ser-push!_15 'exact v_141)))" +"(if(1/module-path-index? v_141)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:mpi)" @@ -18521,16 +18522,16 @@ static const char *startup_source = " 'exact" "(add-module-path-index!/pos" " mpis_6" -" v_140))))" -"(if(serialize? v_140)" +" v_141))))" +"(if(serialize? v_141)" "(let-values()" -"((serialize-ref v_140)" -" v_140" +"((serialize-ref v_141)" +" v_141" " ser-push!_15" " state_24))" -"(if(if(list? v_140)" -"(if(pair? v_140)" -"(pair?(cdr v_140))" +"(if(if(list? v_141)" +"(if(pair? v_141)" +"(pair?(cdr v_141))" " #f)" " #f)" "(let-values()" @@ -18546,31 +18547,31 @@ static const char *startup_source = "(begin" "(ser-push!_15" " 'exact" -"(length v_140))" +"(length v_141))" "(values))))" "(let-values(((all-quoted?_0)" -"(let-values(((lst_112)" -" v_140))" +"(let-values(((lst_113)" +" v_141))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_112)))" +" lst_113)))" "((letrec-values(((for-loop_127)" "(lambda(all-quoted?_1" -" lst_113)" +" lst_114)" "(begin" " 'for-loop" "(if(pair?" -" lst_113)" +" lst_114)" "(let-values(((i_110)" "(unsafe-car" -" lst_113))" +" lst_114))" "((rest_56)" "(unsafe-cdr" -" lst_113)))" +" lst_114)))" "(let-values(((all-quoted?_2)" "(let-values(((all-quoted?_3)" " all-quoted?_1))" @@ -18596,7 +18597,7 @@ static const char *startup_source = " all-quoted?_1)))))" " for-loop_127)" " #t" -" lst_112)))))" +" lst_113)))))" "(if all-quoted?_0" "(let-values()" "(begin" @@ -18604,9 +18605,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_140)))" +" v_141)))" "(void)))))))" -"(if(pair? v_140)" +"(if(pair? v_141)" "(let-values()" "(let-values(((start-pos_1)" "(next-push-position_0)))" @@ -18621,12 +18622,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(ser-push!_15" -"(car v_140))" +"(car v_141))" "(values))))" "(let-values(((d-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15(cdr v_140))" +"(ser-push!_15(cdr v_141))" "(if(if(quoted?_0 a-pos_0)" "(quoted?_0 d-pos_0)" " #f)" @@ -18637,9 +18638,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_140)))" +" v_141)))" "(void)))))))))" -"(if(box? v_140)" +"(if(box? v_141)" "(let-values()" "(let-values(((start-pos_2)" "(next-push-position_0)))" @@ -18652,7 +18653,7 @@ static const char *startup_source = "(let-values(((v-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15(unbox v_140))" +"(ser-push!_15(unbox v_141))" "(if(quoted?_0 v-pos_0)" "(let-values()" "(begin" @@ -18661,9 +18662,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_140)))" +" v_141)))" "(void)))))))" -"(if(vector? v_140)" +"(if(vector? v_141)" "(let-values()" "(let-values(((start-pos_3)" "(next-push-position_0)))" @@ -18678,13 +18679,13 @@ static const char *startup_source = "(ser-push!_15" " 'exact" "(vector-length" -" v_140))" +" v_141))" "(values))))" "(let-values(((all-quoted?_5)" "(let-values(((vec_39" " len_17)" "(let-values(((vec_40)" -" v_140))" +" v_141))" "(begin" "(check-vector" " vec_40)" @@ -18742,15 +18743,15 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_140)))" +" v_141)))" "(void)))))))" -"(if(hash? v_140)" +"(if(hash? v_141)" "(let-values()" "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" "(let-values(((ht_89)" -" v_140))" +" v_141))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18803,21 +18804,21 @@ static const char *startup_source = " 'tag" "(if as-set?_0" "(if(hash-eq?" -" v_140)" +" v_141)" "(let-values()" " '#:seteq)" "(if(hash-eqv?" -" v_140)" +" v_141)" "(let-values()" " '#:seteqv)" "(let-values()" " '#:set)))" "(if(hash-eq?" -" v_140)" +" v_141)" "(let-values()" " '#:hasheq)" "(if(hash-eqv?" -" v_140)" +" v_141)" "(let-values()" " '#:hasheqv)" "(let-values()" @@ -18828,11 +18829,11 @@ static const char *startup_source = "(ser-push!_15" " 'exact" "(hash-count" -" v_140))" +" v_141))" "(values))))" "(let-values(((ks_0)" "(sorted-hash-keys" -" v_140)))" +" v_141)))" "(let-values(((all-quoted?_10)" "(let-values(((lst_48)" " ks_0))" @@ -18845,17 +18846,17 @@ static const char *startup_source = " lst_48)))" "((letrec-values(((for-loop_129)" "(lambda(all-quoted?_11" -" lst_114)" +" lst_115)" "(begin" " 'for-loop" "(if(pair?" -" lst_114)" +" lst_115)" "(let-values(((k_23)" "(unsafe-car" -" lst_114))" +" lst_115))" "((rest_57)" "(unsafe-cdr" -" lst_114)))" +" lst_115)))" "(let-values(((all-quoted?_12)" "(let-values(((all-quoted?_13)" " all-quoted?_11))" @@ -18876,7 +18877,7 @@ static const char *startup_source = "(let-values()" "(ser-push!_15" "(hash-ref" -" v_140" +" v_141" " k_23))))" "(if all-quoted?_13" "(if(quoted?_0" @@ -18909,16 +18910,16 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_140)))" +" v_141)))" "(void)))))))))" "(let-values(((c3_0)" "(prefab-struct-key" -" v_140)))" +" v_141)))" "(if c3_0" "((lambda(k_24)" "(let-values(((vec_41)" "(struct->vector" -" v_140)))" +" v_141)))" "(let-values(((start-pos_5)" "(next-push-position_0)))" "(let-values((()" @@ -19009,66 +19010,66 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_140)))" +" v_141)))" "(void)))))))))" " c3_0)" -"(if(srcloc? v_140)" +"(if(srcloc? v_141)" "(let-values()" "(begin" "(ser-push!_15" " 'tag" " '#:srcloc)" "(ser-push!_15" -"(srcloc-source v_140))" +"(srcloc-source v_141))" "(ser-push!_15" -"(srcloc-line v_140))" +"(srcloc-line v_141))" "(ser-push!_15" -"(srcloc-column v_140))" +"(srcloc-column v_141))" "(ser-push!_15" -"(srcloc-position v_140))" +"(srcloc-position v_141))" "(ser-push!_15" -"(srcloc-span v_140))))" +"(srcloc-span v_141))))" "(let-values()" "(begin" "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_140)))))))))))))))))" +" v_141)))))))))))))))))" "((ser-push-optional-quote!_0)" "(lambda()(begin 'ser-push-optional-quote!(void)))))" "(let-values(((ser-shell!_0)" -"(lambda(v_141)" +"(lambda(v_142)" "(begin" " 'ser-shell!" -"(if(serialize-fill!? v_141)" +"(if(serialize-fill!? v_142)" "(let-values()" -"((serialize-ref v_141)" -" v_141" +"((serialize-ref v_142)" +" v_142" " ser-push!_15" " state_24))" -"(if(box? v_141)" +"(if(box? v_142)" "(let-values()(ser-push!_15 'tag '#:box))" -"(if(vector? v_141)" +"(if(vector? v_142)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:vector)" "(ser-push!_15" " 'exact" -"(vector-length v_141))))" -"(if(hash? v_141)" +"(vector-length v_142))))" +"(if(hash? v_142)" "(let-values()" "(ser-push!_15" " 'tag" -"(if(hash-eq? v_141)" +"(if(hash-eq? v_142)" "(let-values() '#:hasheq)" -"(if(hash-eqv? v_141)" +"(if(hash-eqv? v_142)" "(let-values() '#:hasheqv)" "(let-values() '#:hash)))))" "(let-values()" "(error" " 'ser-shell" " \"unknown mutable: ~e\"" -" v_141))))))))))" +" v_142))))))))))" "(let-values(((ser-shell-fill!_0)" "(lambda(v_79)" "(begin" @@ -19109,7 +19110,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_29" " len_18)" -"(let-values(((v_142)" +"(let-values(((v_143)" "(unsafe-vector-ref" " vec_42" " pos_29)))" @@ -19120,7 +19121,7 @@ static const char *startup_source = "(begin" "(let-values()" "(ser-push!_15" -" v_142))" +" v_143))" "(values)))))" "(values)))))" "(if(not" @@ -19152,25 +19153,25 @@ static const char *startup_source = "(sorted-hash-keys" " v_79)))" "(begin" -"(let-values(((lst_115) ks_1))" +"(let-values(((lst_116) ks_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_115)))" +"(check-list lst_116)))" "((letrec-values(((for-loop_132)" -"(lambda(lst_116)" +"(lambda(lst_117)" "(begin" " 'for-loop" "(if(pair?" -" lst_116)" +" lst_117)" "(let-values(((k_25)" "(unsafe-car" -" lst_116))" +" lst_117))" "((rest_58)" "(unsafe-cdr" -" lst_116)))" +" lst_117)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -19193,7 +19194,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_132)" -" lst_115)))" +" lst_116)))" "(void))))))" "(let-values()" "(error" @@ -19213,7 +19214,7 @@ static const char *startup_source = " 'for-loop" "(if i_7" "(let-values(((k_26" -" v_143)" +" v_144)" "(hash-iterate-key+value" " ht_90" " i_7)))" @@ -19226,7 +19227,7 @@ static const char *startup_source = " val_41)" "(let-values()" "(values" -" v_143" +" v_144" " k_26))))" "(hash-set" " table_127" @@ -19587,13 +19588,13 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(< pos_44 end_18)(unsafe-fx< pos_45 len_19) #f)" -"(let-values(((v_144)(unsafe-vector-ref vec_44 pos_45)))" +"(let-values(((v_145)(unsafe-vector-ref vec_44 pos_45)))" "(let-values(((pos_46)" "(let-values(((pos_47) pos_43))" "(let-values(((pos_48)" "(let-values()" "(decode-fill!" -" v_144" +" v_145" " mutable-fill-vec_0" " pos_47" " mpis_7" @@ -19849,7 +19850,7 @@ static const char *startup_source = "(let-values()(values(vector*-ref mpis_9(vector*-ref vec_47(add1 pos_50)))(+ pos_50 2)))" "(if(unsafe-fx< index_0 11)" "(let-values()" -"(let-values(((v_145 next-pos_18)" +"(let-values(((v_146 next-pos_18)" "(decode" " vec_47" "(add1 pos_50)" @@ -19857,7 +19858,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(box-immutable v_145) next-pos_18)))" +"(values(box-immutable v_146) next-pos_18)))" "(if(unsafe-fx< index_0 12)" "(let-values()" "(let-values(((a_38 next-pos_19)" @@ -19896,9 +19897,9 @@ static const char *startup_source = "(let-values(((pos_54) pos_51))" "(let-values(((pos_55)" "(let-values()" -"(let-values(((v_146" -" next-pos_22)" "(let-values(((v_147" +" next-pos_22)" +"(let-values(((v_148" " next-pos_23)" "(decode" " vec_47" @@ -19908,13 +19909,13 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -" v_147" +" v_148" " next-pos_23))))" "(begin" "(vector-set!" " r_29" " i_126" -" v_146)" +" v_147)" " next-pos_22)))))" "(values pos_55)))))" "(if(not #f)" @@ -19966,7 +19967,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((v_148" +"(let-values(((v_149" " next-pos_25)" "(decode" " vec_47" @@ -19976,7 +19977,7 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(hash-set ht_96 k_27 v_148)" +"(hash-set ht_96 k_27 v_149)" " next-pos_25))))))" "(values ht_97 pos_60)))))" "(if(not #f)" @@ -19989,7 +19990,7 @@ static const char *startup_source = " start_28))))))" "(if(unsafe-fx< index_0 15)" "(let-values()" -"(let-values(((s_190)" +"(let-values(((s_188)" "(let-values(((tmp_21)(vector*-ref vec_47 pos_50)))" "(if(equal? tmp_21 '#:set)" "(let-values()(set))" @@ -20005,14 +20006,14 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_29 end_21 inc_15)))" "((letrec-values(((for-loop_143)" -"(lambda(s_191 pos_61 pos_62)" +"(lambda(s_189 pos_61 pos_62)" "(begin" " 'for-loop" "(if(< pos_62 end_21)" "(let-values()" -"(let-values(((s_192 pos_63)" -"(let-values(((s_143) s_191)((pos_64) pos_61))" -"(let-values(((s_193 pos_65)" +"(let-values(((s_190 pos_63)" +"(let-values(((s_142) s_189)((pos_64) pos_61))" +"(let-values(((s_191 pos_65)" "(let-values()" "(let-values(((k_28" " next-pos_26)" @@ -20024,15 +20025,15 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(set-add s_143 k_28)" +"(set-add s_142 k_28)" " next-pos_26)))))" -"(values s_193 pos_65)))))" +"(values s_191 pos_65)))))" "(if(not #f)" -"(for-loop_143 s_192 pos_63(+ pos_62 inc_15))" -"(values s_192 pos_63))))" -"(values s_191 pos_61))))))" +"(for-loop_143 s_190 pos_63(+ pos_62 inc_15))" +"(values s_190 pos_63))))" +"(values s_189 pos_61))))))" " for-loop_143)" -" s_190" +" s_188" "(+ pos_50 2)" " start_29))))))" "(let-values()" @@ -20064,7 +20065,7 @@ static const char *startup_source = "((pos_69) pos_66))" "(let-values(((r_34 pos_70)" "(let-values()" -"(let-values(((v_149" +"(let-values(((v_150" " next-pos_29)" "(decode" " vec_47" @@ -20075,7 +20076,7 @@ static const char *startup_source = " shared_2)))" "(values" "(cons" -" v_149" +" v_150" " r_33)" " next-pos_29)))))" "(values r_34 pos_70)))))" @@ -20352,7 +20353,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((mpi_28 next-pos_59)" +"(let-values(((mpi_29 next-pos_59)" "(decode" " vec_47" " next-pos_58" @@ -20388,7 +20389,7 @@ static const char *startup_source = "(deserialize-bulk-binding" " prefix_3" " excepts_3" -" mpi_28" +" mpi_29" " provide-phase-level_2" " phase-shift_5" " bulk-binding-registry_8)" @@ -20423,7 +20424,7 @@ static const char *startup_source = " next-pos_65)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_150 vec_48 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" +"(lambda(v_151 vec_48 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" "(begin" "(let-values(((tmp_22)(vector*-ref vec_48 pos_71)))" "(if(equal? tmp_22 #f)" @@ -20432,7 +20433,7 @@ static const char *startup_source = "(let-values()" "(let-values(((c_21 next-pos_66)" "(decode vec_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(set-box! v_150 c_21) next-pos_66)))" +"(begin(set-box! v_151 c_21) next-pos_66)))" "(if(equal? tmp_22 '#:set-vector!)" "(let-values()" "(let-values(((len_24)(vector*-ref vec_48(add1 pos_71))))" @@ -20460,7 +20461,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_150 i_127 c_22)" +"(vector-set! v_151 i_127 c_22)" " next-pos_67)))))" "(values pos_76)))))" "(if(not #f)(for-loop_145 pos_74(+ pos_73 inc_17)) pos_74)))" @@ -20503,7 +20504,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_150 key_53 val_43)" +"(hash-set! v_151 key_53 val_43)" " done-pos_2))))))" "(values pos_81)))))" "(if(not #f)(for-loop_146 pos_79(+ pos_78 inc_18)) pos_79)))" @@ -20515,18 +20516,18 @@ static const char *startup_source = "(let-values()" "(let-values(((c_23 next-pos_69)" "(decode vec_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-scope-fill! v_150 c_23) next-pos_69)))" +"(begin(deserialize-scope-fill! v_151 c_23) next-pos_69)))" "(if(equal? tmp_22 '#:representative-scope-fill!)" "(let-values()" "(let-values(((a_39 next-pos_70)" "(decode vec_48(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" "(let-values(((d_25 done-pos_3)" "(decode vec_48 next-pos_70 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-representative-scope-fill! v_150 a_39 d_25) done-pos_3))))" +"(begin(deserialize-representative-scope-fill! v_151 a_39 d_25) done-pos_3))))" " (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_48 pos_71)))))))))))))" "(define-values" "(find-reachable-scopes)" -"(lambda(v_151)" +"(lambda(v_152)" "(begin" "(let-values(((seen_23)(make-hasheq)))" "(let-values(((reachable-scopes_5)(seteq)))" @@ -20534,35 +20535,35 @@ static const char *startup_source = "(let-values(((scope-triggers_0)(make-hasheq)))" "(begin" "((letrec-values(((loop_83)" -"(lambda(v_152)" +"(lambda(v_153)" "(begin" " 'loop" -"(if(interned-literal? v_152)" +"(if(interned-literal? v_153)" "(let-values()(void))" -"(if(hash-ref seen_23 v_152 #f)" +"(if(hash-ref seen_23 v_153 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_23 v_152 #t)" -"(if(scope-with-bindings? v_152)" +"(hash-set! seen_23 v_153 #t)" +"(if(scope-with-bindings? v_153)" "(let-values()" "(begin" -"(set! reachable-scopes_5(set-add reachable-scopes_5 v_152))" -"((reach-scopes-ref v_152) v_152 loop_83)" -"(let-values(((lst_117)(hash-ref scope-triggers_0 v_152 null)))" +"(set! reachable-scopes_5(set-add reachable-scopes_5 v_153))" +"((reach-scopes-ref v_153) v_153 loop_83)" +"(let-values(((lst_118)(hash-ref scope-triggers_0 v_153 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_117)))" +"(let-values()(check-list lst_118)))" "((letrec-values(((for-loop_147)" -"(lambda(lst_118)" +"(lambda(lst_119)" "(begin" " 'for-loop" -"(if(pair? lst_118)" +"(if(pair? lst_119)" "(let-values(((proc_7)" -"(unsafe-car lst_118))" +"(unsafe-car lst_119))" "((rest_59)" -"(unsafe-cdr lst_118)))" +"(unsafe-cdr lst_119)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20578,11 +20579,11 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_147)" -" lst_117)))" +" lst_118)))" "(void)" -"(hash-remove! scope-triggers_0 v_152)" -"((scope-with-bindings-ref v_152)" -" v_152" +"(hash-remove! scope-triggers_0 v_153)" +"((scope-with-bindings-ref v_153)" +" v_153" " get-reachable-scopes_4" " loop_83" "(lambda(sc-unreachable_0 b_62)" @@ -20591,15 +20592,15 @@ static const char *startup_source = " sc-unreachable_0" "(lambda(l_50)(cons b_62 l_50))" " null)))))" -"(if(reach-scopes? v_152)" -"(let-values()((reach-scopes-ref v_152) v_152 loop_83))" -"(if(pair? v_152)" -"(let-values()(begin(loop_83(car v_152))(loop_83(cdr v_152))))" -"(if(vector? v_152)" +"(if(reach-scopes? v_153)" +"(let-values()((reach-scopes-ref v_153) v_153 loop_83))" +"(if(pair? v_153)" +"(let-values()(begin(loop_83(car v_153))(loop_83(cdr v_153))))" +"(if(vector? v_153)" "(let-values()" "(begin" "(let-values(((vec_49 len_26)" -"(let-values(((vec_50) v_152))" +"(let-values(((vec_50) v_153))" "(begin" "(check-vector vec_50)" "(values" @@ -20634,12 +20635,12 @@ static const char *startup_source = " for-loop_148)" " 0)))" "(void)))" -"(if(box? v_152)" -"(let-values()(loop_83(unbox v_152)))" -"(if(hash? v_152)" +"(if(box? v_153)" +"(let-values()(loop_83(unbox v_153)))" +"(if(hash? v_153)" "(let-values()" "(begin" -"(let-values(((ht_98) v_152))" +"(let-values(((ht_98) v_153))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -20650,7 +20651,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_128" -"(let-values(((k_30 v_153)" +"(let-values(((k_30 v_154)" "(hash-iterate-key+value" " ht_98" " i_128)))" @@ -20664,7 +20665,7 @@ static const char *startup_source = "(loop_83" " k_30)" "(loop_83" -" v_153)))" +" v_154)))" "(values)))))" "(values)))))" "(if(not #f)" @@ -20677,7 +20678,7 @@ static const char *startup_source = " for-loop_149)" "(hash-iterate-first ht_98))))" "(void)))" -"(if(prefab-struct-key v_152)" +"(if(prefab-struct-key v_153)" "(let-values()" "(begin" "(let-values(((v*_5 start*_4 stop*_5 step*_4)" @@ -20687,7 +20688,7 @@ static const char *startup_source = "(lambda(x_49)(vector? x_49))" "(lambda(x_50)" "(unsafe-vector-length x_50))" -"(struct->vector v_152)" +"(struct->vector v_153)" " 1" " #f" " 1)))" @@ -20720,11 +20721,11 @@ static const char *startup_source = " for-loop_150)" " start*_4)))" "(void)))" -"(if(srcloc? v_152)" -"(let-values()(loop_83(srcloc-source v_152)))" +"(if(srcloc? v_153)" +"(let-values()(loop_83(srcloc-source v_153)))" "(let-values()(void))))))))))))))))))" " loop_83)" -" v_151)" +" v_152)" " reachable-scopes_5))))))))" "(define-values" "(deserialize-imports)" @@ -20736,12 +20737,12 @@ static const char *startup_source = "(lambda(s24_1 from-mpi25_0 to-mpi26_0 inspector22_0 inspector23_0)" "(begin" " 'core27" -"(let-values(((s_194) s24_1))" +"(let-values(((s_192) s24_1))" "(let-values(((from-mpi_4) from-mpi25_0))" "(let-values(((to-mpi_3) to-mpi26_0))" "(let-values(((inspector_9)(if inspector23_0 inspector22_0 #f)))" "(let-values()" -"(let-values(((s29_1) s_194)" +"(let-values(((s29_1) s_192)" "((from-mpi30_0) from-mpi_4)" "((to-mpi31_0) to-mpi_3)" "((inspector32_0) inspector_9))" @@ -20754,9 +20755,9 @@ static const char *startup_source = " inspector32_0" " #t)))))))))))" "(case-lambda" -"((s_195 from-mpi_5 to-mpi_4)" -"(begin 'syntax-module-path-index-shift(core27_0 s_195 from-mpi_5 to-mpi_4 #f #f)))" -"((s_196 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_196 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" +"((s_193 from-mpi_5 to-mpi_4)" +"(begin 'syntax-module-path-index-shift(core27_0 s_193 from-mpi_5 to-mpi_4 #f #f)))" +"((s_194 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_194 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" " syntax-module-path-index-shift_0))" "(define-values" "(deserialize-instance)" @@ -21535,30 +21536,30 @@ static const char *startup_source = "(hash-clear!(requires+provides-also-required r+p_0))))))" "(define-values" "(intern-mpi)" -"(lambda(r+p_1 mpi_29)(begin(intern-module-path-index!(requires+provides-require-mpis r+p_1) mpi_29))))" +"(lambda(r+p_1 mpi_30)(begin(intern-module-path-index!(requires+provides-require-mpis r+p_1) mpi_30))))" "(define-values" "(add-required-module!)" "(lambda(r+p_2 mod-name_8 phase-shift_6 is-cross-phase-persistent?_0)" "(begin" -"(let-values(((mpi_30)(intern-mpi r+p_2 mod-name_8)))" +"(let-values(((mpi_31)(intern-mpi r+p_2 mod-name_8)))" "(begin" -"(if(hash-ref(hash-ref(requires+provides-requires r+p_2) mpi_30 '#hasheqv()) phase-shift_6 #f)" +"(if(hash-ref(hash-ref(requires+provides-requires r+p_2) mpi_31 '#hasheqv()) phase-shift_6 #f)" "(void)" "(let-values()" "(begin" "(hash-update!" "(requires+provides-require-mpis-in-order r+p_2)" " phase-shift_6" -"(lambda(l_51)(cons mpi_30 l_51))" +"(lambda(l_51)(cons mpi_31 l_51))" " null)" "(hash-set!" -"(hash-ref!(requires+provides-requires r+p_2) mpi_30 make-hasheqv)" +"(hash-ref!(requires+provides-requires r+p_2) mpi_31 make-hasheqv)" " phase-shift_6" "(make-hasheq)))))" "(if is-cross-phase-persistent?_0" "(void)" "(let-values()(set-requires+provides-can-cross-phase-persistent?! r+p_2 #f)))" -" mpi_30)))))" +" mpi_31)))))" "(define-values" "(add-defined-or-required-id!19.1)" "(lambda(as-transformer?12_0 can-be-shadowed?11_0 can-be-shadowed?13_0 r+p15_0 id16_0 phase17_0 binding18_0)" @@ -21646,7 +21647,7 @@ static const char *startup_source = "(begin" " 'add-bulk-required-ids!59" "(let-values(((r+p_5) r+p52_0))" -"(let-values(((s_197) s53_0))" +"(let-values(((s_195) s53_0))" "(let-values(((self_9) self54_0))" "(let-values(((nominal-module_7) nominal-module55_0))" "(let-values(((phase-shift_7) phase-shift56_0))" @@ -21665,14 +21666,14 @@ static const char *startup_source = "(let-values(((shortcut-table_0)" "(if check-and-remove?_0" "(if(>(hash-count provides_4) 64)" -"(syntax-mapped-names s_197 phase_54)" +"(syntax-mapped-names s_195 phase_54)" " #f)" " #f)))" -"(let-values(((mpi_31)(intern-mpi r+p_5 nominal-module_7)))" +"(let-values(((mpi_32)(intern-mpi r+p_5 nominal-module_7)))" "(let-values(((at-mod_1)" "(hash-ref!" "(requires+provides-requires r+p_5)" -" mpi_31" +" mpi_32" " make-hasheqv)))" "(let-values(((sym-to-reqds_1)" "(hash-ref! at-mod_1 phase-shift_7 make-hasheq)))" @@ -21684,7 +21685,7 @@ static const char *startup_source = "(bulk-required4.1" " provides_4" " prefix-len_0" -" s_197" +" s_195" " provide-phase-level_3" " can-be-shadowed?_2)))" "(let-values(((ht_100) provides_4))" @@ -21759,9 +21760,9 @@ static const char *startup_source = " r+p_5)" "((temp126_0)" "(datum->syntax$1" -" s_197" +" s_195" " sym_31" -" s_197))" +" s_195))" "((phase127_0)" " phase_54)" "((orig-s128_0)" @@ -21775,7 +21776,7 @@ static const char *startup_source = "((self135_0)" " self_9)" "((mpi136_0)" -" mpi_31)" +" mpi_32)" "((provide-phase-level137_0)" " provide-phase-level_3)" "((phase-shift138_0)" @@ -21929,28 +21930,28 @@ static const char *startup_source = " ht_103" " i_133)))" "(let-values((()" -"(let-values(((lst_119)" +"(let-values(((lst_120)" " reqds_0))" "(begin" "(void)" "((letrec-values(((for-loop_155)" -"(lambda(lst_120)" +"(lambda(lst_121)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_120))" +" lst_121))" "(let-values(((reqd/maybe-bulk_0)" "(if(pair?" -" lst_120)" +" lst_121)" "(car" -" lst_120)" -" lst_120))" +" lst_121)" +" lst_121))" "((rest_60)" "(if(pair?" -" lst_120)" +" lst_121)" "(cdr" -" lst_120)" +" lst_121)" " null)))" "(let-values((()" "(let-values()" @@ -22016,7 +22017,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_155)" -" lst_119)))))" +" lst_120)))))" "(if(not" " #f)" "(for-loop_154" @@ -22064,8 +22065,8 @@ static const char *startup_source = "(resolve+shift30.1 #f #f temp151_0 #t #f #f #f #f #f #f id149_0 phase150_0))))" "(if b_63" "(let-values()" -"(let-values(((mpi_32)(intern-mpi r+p_7(module-binding-nominal-module b_63))))" -"(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_32 #f)))" +"(let-values(((mpi_33)(intern-mpi r+p_7(module-binding-nominal-module b_63))))" +"(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_33 #f)))" "(if at-mod_3" "(let-values()" "(let-values(((nominal-phase_4)(module-binding-nominal-require-phase b_63)))" @@ -22087,7 +22088,7 @@ static const char *startup_source = " l_52" " id_24" " phase_58" -" mpi_32" +" mpi_33" " nominal-phase_4" " sym_35)))))))))" "(void)))))" @@ -22095,24 +22096,24 @@ static const char *startup_source = "(void)))))))))))" "(define-values" "(remove-non-matching-requireds)" -"(lambda(reqds_1 id_25 phase_59 mpi_33 nominal-phase_5 sym_36)" +"(lambda(reqds_1 id_25 phase_59 mpi_34 nominal-phase_5 sym_36)" "(begin" "(reverse$1" -"(let-values(((lst_121) reqds_1))" +"(let-values(((lst_122) reqds_1))" "(begin" "(void)" "((letrec-values(((for-loop_156)" -"(lambda(fold-var_103 lst_122)" +"(lambda(fold-var_103 lst_123)" "(begin" " 'for-loop" -"(if(not(null? lst_122))" -"(let-values(((r_36)(if(pair? lst_122)(car lst_122) lst_122))" -"((rest_61)(if(pair? lst_122)(cdr lst_122) null)))" +"(if(not(null? lst_123))" +"(let-values(((r_36)(if(pair? lst_123)(car lst_123) lst_123))" +"((rest_61)(if(pair? lst_123)(cdr lst_123) null)))" "(let-values(((fold-var_104)" "(let-values(((r_37)" "(normalize-required" " r_36" -" mpi_33" +" mpi_34" " nominal-phase_5" " sym_36)))" "(begin" @@ -22153,7 +22154,7 @@ static const char *startup_source = " fold-var_103)))))" " for-loop_156)" " null" -" lst_121)))))))" +" lst_122)))))))" "(define-values" "(check-not-defined95.1)" "(lambda(accum-update-nominals83_0" @@ -22223,10 +22224,10 @@ static const char *startup_source = "(let-values()" "(let-values(((define-shadowing-require?_0)" "(if(not defined?_0)(not check-not-required?_0) #f)))" -"(let-values(((mpi_34)" +"(let-values(((mpi_35)" "(intern-mpi r+p_8(module-binding-nominal-module b_64))))" "(let-values(((at-mod_4)" -"(hash-ref(requires+provides-requires r+p_8) mpi_34 #f)))" +"(hash-ref(requires+provides-requires r+p_8) mpi_35 #f)))" "(let-values(((ok-binding_0)" "(if(not define-shadowing-require?_0)" "(if(procedure? ok-binding/delayed_0)" @@ -22351,28 +22352,28 @@ static const char *startup_source = "(syntax-e$1 id_26)" " null)))" "(let-values(((only-can-can-shadow-require?_0)" -"(let-values(((lst_123) reqds_2))" +"(let-values(((lst_124) reqds_2))" "(begin" "(void)" "((letrec-values(((for-loop_158)" "(lambda(only-can-can-shadow-require?_1" -" lst_124)" +" lst_125)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_124))" +" lst_125))" "(let-values(((r_38)" "(if(pair?" -" lst_124)" +" lst_125)" "(car" -" lst_124)" -" lst_124))" +" lst_125)" +" lst_125))" "((rest_62)" "(if(pair?" -" lst_124)" +" lst_125)" "(cdr" -" lst_124)" +" lst_125)" " null)))" "(let-values(((only-can-can-shadow-require?_2)" "(let-values(((only-can-can-shadow-require?_3)" @@ -22408,7 +22409,7 @@ static const char *startup_source = " only-can-can-shadow-require?_1)))))" " for-loop_158)" " #t" -" lst_123)))))" +" lst_124)))))" "(begin" "(if define-shadowing-require?_0" "(let-values()" @@ -22435,7 +22436,7 @@ static const char *startup_source = " reqds_2" " id_26" " phase_60" -" mpi_34" +" mpi_35" " nominal-phase_6" "(syntax-e$1 id_26))))" "(void))))" @@ -22447,18 +22448,18 @@ static const char *startup_source = "(let-values(((phase-to-defined-syms_0)(requires+provides-phase-to-defined-syms r+p_9)))" "(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_61 '#hasheq())))" "(let-values(((new-defined-syms_0)" -"(let-values(((lst_125) syms_18))" +"(let-values(((lst_126) syms_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_125)))" +"(let-values()(check-list lst_126)))" "((letrec-values(((for-loop_144)" -"(lambda(defined-syms_3 lst_126)" +"(lambda(defined-syms_3 lst_127)" "(begin" " 'for-loop" -"(if(pair? lst_126)" -"(let-values(((sym_37)(unsafe-car lst_126))" -"((rest_63)(unsafe-cdr lst_126)))" +"(if(pair? lst_127)" +"(let-values(((sym_37)(unsafe-car lst_127))" +"((rest_63)(unsafe-cdr lst_127)))" "(let-values(((defined-syms_4)" "(let-values(((defined-syms_5) defined-syms_3))" "(let-values(((defined-syms_6)" @@ -22474,14 +22475,14 @@ static const char *startup_source = " defined-syms_3)))))" " for-loop_144)" " defined-syms_2" -" lst_125)))))" +" lst_126)))))" "(hash-set! phase-to-defined-syms_0 phase_61 new-defined-syms_0)))))))" "(define-values" "(extract-module-requires)" "(lambda(r+p_10 mod-name_11 phase_62)" "(begin" -"(let-values(((mpi_35)(intern-mpi r+p_10 mod-name_11)))" -"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_35 #f)))" +"(let-values(((mpi_36)(intern-mpi r+p_10 mod-name_11)))" +"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_36 #f)))" "(if at-mod_5" "(reverse$1" "(let-values(((ht_104)(hash-ref at-mod_5 phase_62 '#hasheq())))" @@ -22496,21 +22497,21 @@ static const char *startup_source = "(if i_134" "(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_104 i_134)))" "(let-values(((fold-var_111)" -"(let-values(((lst_127) reqds_3))" +"(let-values(((lst_128) reqds_3))" "(begin" "(void)" "((letrec-values(((for-loop_160)" -"(lambda(fold-var_112 lst_128)" +"(lambda(fold-var_112 lst_129)" "(begin" " 'for-loop" -"(if(not(null? lst_128))" +"(if(not(null? lst_129))" "(let-values(((reqd_1)" -"(if(pair? lst_128)" -"(car lst_128)" -" lst_128))" +"(if(pair? lst_129)" +"(car lst_129)" +" lst_129))" "((rest_64)" -"(if(pair? lst_128)" -"(cdr lst_128)" +"(if(pair? lst_129)" +"(cdr lst_129)" " null)))" "(let-values(((fold-var_113)" "(let-values(((fold-var_114)" @@ -22521,7 +22522,7 @@ static const char *startup_source = "(let-values()" "(normalize-required" " reqd_1" -" mpi_35" +" mpi_36" " phase_62" " sym_38))" " fold-var_114))))" @@ -22535,7 +22536,7 @@ static const char *startup_source = " fold-var_112)))))" " for-loop_160)" " fold-var_110" -" lst_127)))))" +" lst_128)))))" "(if(not #f)" "(for-loop_159 fold-var_111(hash-iterate-next ht_104 i_134))" " fold-var_111)))" @@ -22559,18 +22560,18 @@ static const char *startup_source = "(call/ec" "(lambda(esc_0)" "(reverse$1" -"(let-values(((lst_129)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" +"(let-values(((lst_130)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_129)))" +"(let-values()(check-list lst_130)))" "((letrec-values(((for-loop_161)" -"(lambda(fold-var_116 lst_130)" +"(lambda(fold-var_116 lst_131)" "(begin" " 'for-loop" -"(if(pair? lst_130)" -"(let-values(((mod-name_13)(unsafe-car lst_130))" -"((rest_65)(unsafe-cdr lst_130)))" +"(if(pair? lst_131)" +"(let-values(((mod-name_13)(unsafe-car lst_131))" +"((rest_65)(unsafe-cdr lst_131)))" "(let-values(((fold-var_117)" "(let-values(((fold-var_118) fold-var_116))" "(if(eq? mod-name_13 self_10)" @@ -22588,7 +22589,7 @@ static const char *startup_source = " 'for-loop" "(let-values()" "(let-values(((fold-var_120)" -"(let-values(((lst_131)" +"(let-values(((lst_132)" "(if(eq?" " phase_49" " 'all)" @@ -22602,20 +22603,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_131)))" +" lst_132)))" "((letrec-values(((for-loop_163)" "(lambda(fold-var_121" -" lst_132)" +" lst_133)" "(begin" " 'for-loop" "(if(pair?" -" lst_132)" +" lst_133)" "(let-values(((phase_63)" "(unsafe-car" -" lst_132))" +" lst_133))" "((rest_66)" "(unsafe-cdr" -" lst_132)))" +" lst_133)))" "(let-values(((fold-var_122)" "(let-values(((ht_105)" "(hash-ref" @@ -22643,29 +22644,29 @@ static const char *startup_source = " ht_105" " i_135)))" "(let-values(((fold-var_124)" -"(let-values(((lst_133)" +"(let-values(((lst_134)" " reqds_4))" "(begin" "(void)" "((letrec-values(((for-loop_165)" "(lambda(fold-var_125" -" lst_134)" +" lst_135)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_134))" +" lst_135))" "(let-values(((reqd_2)" "(if(pair?" -" lst_134)" +" lst_135)" "(car" -" lst_134)" -" lst_134))" +" lst_135)" +" lst_135))" "((rest_67)" "(if(pair?" -" lst_134)" +" lst_135)" "(cdr" -" lst_134)" +" lst_135)" " null)))" "(let-values(((fold-var_126)" "(let-values(((fold-var_127)" @@ -22691,7 +22692,7 @@ static const char *startup_source = " fold-var_125)))))" " for-loop_165)" " fold-var_123" -" lst_133)))))" +" lst_134)))))" "(if(not" " #f)" "(for-loop_164" @@ -22714,7 +22715,7 @@ static const char *startup_source = " fold-var_121)))))" " for-loop_163)" " fold-var_119" -" lst_131)))))" +" lst_132)))))" " fold-var_120))))))" " for-loop_162)" " fold-var_118)))))))" @@ -22722,7 +22723,7 @@ static const char *startup_source = " fold-var_116)))))" " for-loop_161)" " null" -" lst_129)))))))))))" +" lst_130)))))))))))" "(define-values" "(add-provide!109.1)" "(lambda(as-protected?98_0" @@ -22819,18 +22820,18 @@ static const char *startup_source = "((phasemodule-path" " maybe-mp_0)" " maybe-mp_0)))" -"(let-values(((mpi_37)" +"(let-values(((mpi_38)" "(let-values(((mp219_0)" " mp_0)" "((self220_0)" @@ -24647,7 +24648,7 @@ static const char *startup_source = " self220_0))))" "(begin" "(let-values(((mpi202_0)" -" mpi_37)" +" mpi_38)" "((req203_0)" " req_0)" "((self204_0)" @@ -24732,7 +24733,7 @@ static const char *startup_source = " result_75)))))" " for-loop_170)" " #t" -" lst_139)))))))" +" lst_140)))))))" " loop_85)" " reqs_0" " #f" @@ -24746,15 +24747,15 @@ static const char *startup_source = "(ids->sym-set)" "(lambda(ids_3)" "(begin" -"(let-values(((lst_145) ids_3))" +"(let-values(((lst_146) ids_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_145)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_146)))" "((letrec-values(((for-loop_172)" -"(lambda(table_141 lst_146)" +"(lambda(table_141 lst_147)" "(begin" " 'for-loop" -"(if(pair? lst_146)" -"(let-values(((id_43)(unsafe-car lst_146))((rest_74)(unsafe-cdr lst_146)))" +"(if(pair? lst_147)" +"(let-values(((id_43)(unsafe-car lst_147))((rest_74)(unsafe-cdr lst_147)))" "(let-values(((table_142)" "(let-values(((table_143) table_141))" "(let-values(((table_144)" @@ -24770,7 +24771,7 @@ static const char *startup_source = " table_141)))))" " for-loop_172)" " '#hash()" -" lst_145))))))" +" lst_146))))))" "(define-values" "(perform-initial-require!42.1)" "(lambda(bind?33_0 who34_0 mod-path37_0 self38_0 in-stx39_0 m-ns40_0 requires+provides41_0)" @@ -24863,7 +24864,7 @@ static const char *startup_source = " m-ns77_0)" "(begin" " 'perform-require!78" -"(let-values(((mpi_38) mpi73_0))" +"(let-values(((mpi_39) mpi73_0))" "(let-values(((orig-s_14) orig-s74_0))" "(let-values()" "(let-values(((in-stx_1) in-stx76_0))" @@ -24891,7 +24892,7 @@ static const char *startup_source = "(let-values(((who_15) who58_0))" "(let-values()" "(let-values()" -"(let-values(((module-name_0)(1/module-path-index-resolve mpi_38 #t)))" +"(let-values(((module-name_0)(1/module-path-index-resolve mpi_39 #t)))" "(let-values(((bind-in-stx_0)" "(if(adjust-rename? adjust_1)" "(adjust-rename-to-id adjust_1)" @@ -24911,10 +24912,10 @@ static const char *startup_source = "(if requires+provides_3" "(add-required-module!" " requires+provides_3" -" mpi_38" +" mpi_39" " phase-shift_11" "(module-cross-phase-persistent? m_13))" -" mpi_38)))" +" mpi_39)))" "(let-values((()" "(begin" "(if visit?_2" @@ -25076,7 +25077,7 @@ static const char *startup_source = "(module-self" " m_13))" "((mpi267_0)" -" mpi_38)" +" mpi_39)" "((phase-shift268_0)" " phase-shift_11)" "((provides269_0)" @@ -25223,7 +25224,7 @@ static const char *startup_source = " requires+provides_3" " #f)" "(let-values()" -"(let-values(((s_268)" +"(let-values(((s_266)" "(datum->syntax$1" " bind-in-stx_0" " adjusted-sym_0)))" @@ -25243,7 +25244,7 @@ static const char *startup_source = "((requires+provides281_0)" " requires+provides_3)" "((s282_0)" -" s_268)" +" s_266)" "((bind-phase283_0)" " bind-phase_0)" "((binding284_0)" @@ -25277,7 +25278,7 @@ static const char *startup_source = "(let-values(((requires+provides288_0)" " requires+provides_3)" "((s289_0)" -" s_268)" +" s_266)" "((bind-phase290_0)" " bind-phase_0)" "((binding291_0)" @@ -25345,7 +25346,7 @@ static const char *startup_source = "(if update-nominals-box_0" "(let-values()" "(begin" -"(let-values(((lst_147)" +"(let-values(((lst_148)" "(unbox" " update-nominals-box_0)))" "(begin" @@ -25354,19 +25355,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_147)))" +" lst_148)))" "((letrec-values(((for-loop_173)" -"(lambda(lst_148)" +"(lambda(lst_149)" "(begin" " 'for-loop" "(if(pair?" -" lst_148)" +" lst_149)" "(let-values(((update!_1)" "(unsafe-car" -" lst_148))" +" lst_149))" "((rest_75)" "(unsafe-cdr" -" lst_148)))" +" lst_149)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25383,7 +25384,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_173)" -" lst_147)))" +" lst_148)))" "(void)))" "(void))" "(values))))" @@ -25487,7 +25488,7 @@ static const char *startup_source = "(let-values(((in-stx_2) in-stx102_0))" "(let-values(((phase-shift_12) phase-shift103_0))" "(let-values(((ns_50) ns104_0))" -"(let-values(((mpi_39) mpi105_0))" +"(let-values(((mpi_40) mpi105_0))" "(let-values(((module-name_1) module-name106_0))" "(let-values(((orig-s_15) in81_0))" "(let-values(((defines-mpi_0) defines-mpi82_0))" @@ -25548,7 +25549,7 @@ static const char *startup_source = "(if filter_0" "(let-values()" "(begin" -"(let-values(((lst_149)" +"(let-values(((lst_150)" "(let-values(((or-part_214)" " only-syms_0))" "(if or-part_214" @@ -25561,19 +25562,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_149)))" +" lst_150)))" "((letrec-values(((for-loop_176)" -"(lambda(lst_150)" +"(lambda(lst_151)" "(begin" " 'for-loop" "(if(pair?" -" lst_150)" +" lst_151)" "(let-values(((sym_44)" "(unsafe-car" -" lst_150))" +" lst_151))" "((rest_76)" "(unsafe-cdr" -" lst_150)))" +" lst_151)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25595,7 +25596,7 @@ static const char *startup_source = "((self296_0)" " self_13)" "((mpi297_0)" -" mpi_39)" +" mpi_40)" "((provide-phase-level298_0)" " provide-phase-level_5)" "((phase-shift299_0)" @@ -25644,7 +25645,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_176)" -" lst_149)))" +" lst_150)))" "(void)))" "(void))" "(if can-bulk?_0" @@ -25679,7 +25680,7 @@ static const char *startup_source = " bulk-prefix_2" " bulk-excepts_2" " self_13" -" mpi_39" +" mpi_40" " provide-phase-level_5" " phase-shift_12" " bulk-binding-registry_10))" @@ -25733,46 +25734,46 @@ static const char *startup_source = "(if(equal? tmp_24 'for-meta)" "(let-values()" "(let-values(((ok?_12 for-meta308_0 phase-level309_0 spec310_0)" -"(let-values(((s_269) req_3))" -"(let-values(((orig-s_16) s_269))" +"(let-values(((s_267) req_3))" +"(let-values(((orig-s_16) s_267))" "(let-values(((for-meta308_1 phase-level309_1 spec310_1)" -"(let-values(((s_270)" -"(if(syntax?$1 s_269)" -"(syntax-e$1 s_269)" -" s_269)))" -"(if(pair? s_270)" +"(let-values(((s_268)" +"(if(syntax?$1 s_267)" +"(syntax-e$1 s_267)" +" s_267)))" +"(if(pair? s_268)" "(let-values(((for-meta311_0)" -"(let-values(((s_271)" -"(car s_270)))" -" s_271))" +"(let-values(((s_269)" +"(car s_268)))" +" s_269))" "((phase-level312_0 spec313_0)" -"(let-values(((s_272)" -"(cdr s_270)))" -"(let-values(((s_273)" +"(let-values(((s_270)" +"(cdr s_268)))" +"(let-values(((s_271)" "(if(syntax?$1" -" s_272)" +" s_270)" "(syntax-e$1" -" s_272)" -" s_272)))" -"(if(pair? s_273)" +" s_270)" +" s_270)))" +"(if(pair? s_271)" "(let-values(((phase-level314_0)" -"(let-values(((s_274)" +"(let-values(((s_272)" "(car" -" s_273)))" -" s_274))" +" s_271)))" +" s_272))" "((spec315_0)" -"(let-values(((s_275)" +"(let-values(((s_273)" "(cdr" -" s_273)))" -"(let-values(((s_276)" +" s_271)))" +"(let-values(((s_274)" "(if(syntax?$1" -" s_275)" +" s_273)" "(syntax-e$1" -" s_275)" -" s_275)))" +" s_273)" +" s_273)))" "(let-values(((flat-s_8)" "(to-syntax-list.1" -" s_276)))" +" s_274)))" "(if(not" " flat-s_8)" "(let-values()" @@ -25809,30 +25810,30 @@ static const char *startup_source = "(if(equal? tmp_24 'for-syntax)" "(let-values()" "(let-values(((ok?_13 for-syntax316_0 spec317_0)" -"(let-values(((s_277) req_3))" -"(let-values(((orig-s_17) s_277))" +"(let-values(((s_275) req_3))" +"(let-values(((orig-s_17) s_275))" "(let-values(((for-syntax316_1 spec317_1)" -"(let-values(((s_278)" -"(if(syntax?$1 s_277)" -"(syntax-e$1 s_277)" -" s_277)))" -"(if(pair? s_278)" +"(let-values(((s_276)" +"(if(syntax?$1 s_275)" +"(syntax-e$1 s_275)" +" s_275)))" +"(if(pair? s_276)" "(let-values(((for-syntax318_0)" -"(let-values(((s_279)" -"(car s_278)))" -" s_279))" +"(let-values(((s_277)" +"(car s_276)))" +" s_277))" "((spec319_0)" -"(let-values(((s_280)" -"(cdr s_278)))" -"(let-values(((s_281)" +"(let-values(((s_278)" +"(cdr s_276)))" +"(let-values(((s_279)" "(if(syntax?$1" -" s_280)" +" s_278)" "(syntax-e$1" -" s_280)" -" s_280)))" +" s_278)" +" s_278)))" "(let-values(((flat-s_9)" "(to-syntax-list.1" -" s_281)))" +" s_279)))" "(if(not flat-s_9)" "(let-values()" "(raise-syntax-error$1" @@ -25851,30 +25852,30 @@ static const char *startup_source = "(if(equal? tmp_24 'for-template)" "(let-values()" "(let-values(((ok?_14 for-template320_0 spec321_0)" -"(let-values(((s_282) req_3))" -"(let-values(((orig-s_18) s_282))" +"(let-values(((s_280) req_3))" +"(let-values(((orig-s_18) s_280))" "(let-values(((for-template320_1 spec321_1)" -"(let-values(((s_283)" -"(if(syntax?$1 s_282)" -"(syntax-e$1 s_282)" -" s_282)))" -"(if(pair? s_283)" +"(let-values(((s_281)" +"(if(syntax?$1 s_280)" +"(syntax-e$1 s_280)" +" s_280)))" +"(if(pair? s_281)" "(let-values(((for-template322_0)" -"(let-values(((s_284)" -"(car s_283)))" -" s_284))" +"(let-values(((s_282)" +"(car s_281)))" +" s_282))" "((spec323_0)" -"(let-values(((s_285)" -"(cdr s_283)))" -"(let-values(((s_286)" +"(let-values(((s_283)" +"(cdr s_281)))" +"(let-values(((s_284)" "(if(syntax?$1" -" s_285)" +" s_283)" "(syntax-e$1" -" s_285)" -" s_285)))" +" s_283)" +" s_283)))" "(let-values(((flat-s_10)" "(to-syntax-list.1" -" s_286)))" +" s_284)))" "(if(not flat-s_10)" "(let-values()" "(raise-syntax-error$1" @@ -25893,32 +25894,32 @@ static const char *startup_source = "(if(equal? tmp_24 'for-label)" "(let-values()" "(let-values(((ok?_15 for-label324_0 spec325_0)" -"(let-values(((s_287) req_3))" -"(let-values(((orig-s_19) s_287))" +"(let-values(((s_285) req_3))" +"(let-values(((orig-s_19) s_285))" "(let-values(((for-label324_1 spec325_1)" -"(let-values(((s_288)" -"(if(syntax?$1 s_287)" -"(syntax-e$1 s_287)" -" s_287)))" -"(if(pair? s_288)" +"(let-values(((s_286)" +"(if(syntax?$1 s_285)" +"(syntax-e$1 s_285)" +" s_285)))" +"(if(pair? s_286)" "(let-values(((for-label326_0)" -"(let-values(((s_289)" +"(let-values(((s_287)" "(car" -" s_288)))" -" s_289))" +" s_286)))" +" s_287))" "((spec327_0)" -"(let-values(((s_290)" +"(let-values(((s_288)" "(cdr" -" s_288)))" -"(let-values(((s_291)" +" s_286)))" +"(let-values(((s_289)" "(if(syntax?$1" -" s_290)" +" s_288)" "(syntax-e$1" -" s_290)" -" s_290)))" +" s_288)" +" s_288)))" "(let-values(((flat-s_11)" "(to-syntax-list.1" -" s_291)))" +" s_289)))" "(if(not flat-s_11)" "(let-values()" "(raise-syntax-error$1" @@ -25939,51 +25940,51 @@ static const char *startup_source = "(if(equal? tmp_24 'just-meta)" "(let-values()" "(let-values(((ok?_16 just-meta328_0 phase-level329_0 spec330_0)" -"(let-values(((s_292) req_3))" -"(let-values(((orig-s_20) s_292))" +"(let-values(((s_290) req_3))" +"(let-values(((orig-s_20) s_290))" "(let-values(((just-meta328_1" " phase-level329_1" " spec330_1)" -"(let-values(((s_293)" -"(if(syntax?$1 s_292)" -"(syntax-e$1 s_292)" -" s_292)))" -"(if(pair? s_293)" +"(let-values(((s_291)" +"(if(syntax?$1 s_290)" +"(syntax-e$1 s_290)" +" s_290)))" +"(if(pair? s_291)" "(let-values(((just-meta331_0)" -"(let-values(((s_294)" +"(let-values(((s_292)" "(car" -" s_293)))" -" s_294))" +" s_291)))" +" s_292))" "((phase-level332_0" " spec333_0)" -"(let-values(((s_295)" +"(let-values(((s_293)" "(cdr" +" s_291)))" +"(let-values(((s_294)" +"(if(syntax?$1" +" s_293)" +"(syntax-e$1" +" s_293)" " s_293)))" -"(let-values(((s_296)" -"(if(syntax?$1" -" s_295)" -"(syntax-e$1" -" s_295)" -" s_295)))" -"(if(pair? s_296)" +"(if(pair? s_294)" "(let-values(((phase-level334_0)" -"(let-values(((s_297)" +"(let-values(((s_295)" "(car" -" s_296)))" -" s_297))" +" s_294)))" +" s_295))" "((spec335_0)" -"(let-values(((s_298)" +"(let-values(((s_296)" "(cdr" -" s_296)))" -"(let-values(((s_299)" +" s_294)))" +"(let-values(((s_297)" "(if(syntax?$1" -" s_298)" +" s_296)" "(syntax-e$1" -" s_298)" -" s_298)))" +" s_296)" +" s_296)))" "(let-values(((flat-s_12)" "(to-syntax-list.1" -" s_299)))" +" s_297)))" "(if(not" " flat-s_12)" "(let-values()" @@ -26065,10 +26066,10 @@ static const char *startup_source = " #f" " 'constant" " top-level-bind!-id" -"(lambda(id_21 mpi_40 orig-phase_0 phase-shift_14 ns_51 sym_46 trans?_0 trans-val_0)" +"(lambda(id_21 mpi_41 orig-phase_0 phase-shift_14 ns_51 sym_46 trans?_0 trans-val_0)" "(let-values(((phase_45)(phase+ orig-phase_0 phase-shift_14)))" "(let-values(((b_67)" -"(let-values(((mpi4_0) mpi_40)" +"(let-values(((mpi4_0) mpi_41)" "((phase5_0) phase_45)" "((sym6_1) sym_46)" "((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_51))))" @@ -26203,7 +26204,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 1 'other))))" "(define-values" "(swap-top-level-scopes)" -"(lambda(s_300 original-scopes-s_0 new-ns_0)" +"(lambda(s_298 original-scopes-s_0 new-ns_0)" "(begin" "(let-values(((old-scs-post_0 old-scs-other_0)" "(if(namespace-scopes? original-scopes-s_0)" @@ -26211,7 +26212,7 @@ static const char *startup_source = "(decode-namespace-scopes original-scopes-s_0))))" "(let-values(((new-scs-post_0 new-scs-other_0)(extract-namespace-scopes/values new-ns_0)))" "(syntax-swap-scopes" -"(syntax-swap-scopes s_300 old-scs-post_0 new-scs-post_0)" +"(syntax-swap-scopes s_298 old-scs-post_0 new-scs-post_0)" " old-scs-other_0" " new-scs-other_0))))))" "(define-values" @@ -26528,13 +26529,13 @@ static const char *startup_source = "(begin" " 'register-required-variable-use!19" "(let-values(((header_2) header14_0))" -"(let-values(((mpi_41) mpi15_0))" +"(let-values(((mpi_42) mpi15_0))" "(let-values(((phase_68) phase16_1))" "(let-values(((sym_49) sym17_0))" "(let-values(((extra-inspector_4) extra-inspector18_0))" "(let-values(((defined?_2)(if defined?13_0 defined?12_0 #f)))" "(let-values()" -"(let-values(((key_57)(variable-use3.1(module-use1.1 mpi_41 phase_68) sym_49)))" +"(let-values(((key_57)(variable-use3.1(module-use1.1 mpi_42 phase_68) sym_49)))" "(let-values(((variable-uses_0)(header-require-var-to-import-sym header_2)))" "(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_57 #f)))" "(let-values(((var-sym_0)" @@ -26559,7 +26560,7 @@ static const char *startup_source = "(hash-update!" " extra-inspectors_0" " var-sym_0" -"(lambda(s_301)(set-add s_301 extra-inspector_4))" +"(lambda(s_299)(set-add s_299 extra-inspector_4))" " '#hasheq())))" "(void))" " var-sym_0)))))))))))))))" @@ -26575,18 +26576,18 @@ static const char *startup_source = "(lambda(header_5 phase_69 cctx_0 cross-linklet-inlining?_0)" "(begin" "(let-values(((mod-use-ht_0 link-mod-uses_0)" -"(let-values(((lst_151)(header-require-vars-in-order header_5)))" +"(let-values(((lst_152)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_151)))" +"(let-values()(check-list lst_152)))" "((letrec-values(((for-loop_178)" -"(lambda(ht_110 link-mod-uses_1 lst_152)" +"(lambda(ht_110 link-mod-uses_1 lst_153)" "(begin" " 'for-loop" -"(if(pair? lst_152)" -"(let-values(((vu_0)(unsafe-car lst_152))" -"((rest_77)(unsafe-cdr lst_152)))" +"(if(pair? lst_153)" +"(let-values(((vu_0)(unsafe-car lst_153))" +"((rest_77)(unsafe-cdr lst_153)))" "(let-values(((ht_111 link-mod-uses_2)" "(let-values(((ht_112) ht_110)" "((link-mod-uses_3) link-mod-uses_1))" @@ -26625,13 +26626,13 @@ static const char *startup_source = " for-loop_178)" " '#hash()" " null" -" lst_151)))))" +" lst_152)))))" "(values" " link-mod-uses_0" "(reverse$1" -"(let-values(((lst_153) link-mod-uses_0))" +"(let-values(((lst_34) link-mod-uses_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_153)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_34)))" "((letrec-values(((for-loop_179)" "(lambda(fold-var_138 lst_154)" "(begin" @@ -26712,7 +26713,7 @@ static const char *startup_source = " fold-var_138)))))" " for-loop_179)" " null" -" lst_153))))" +" lst_34))))" "(reverse$1" "(let-values(((lst_155) link-mod-uses_0))" "(begin" @@ -26730,7 +26731,7 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((extra-inspectorss_0)" -"(let-values(((lst_109)" +"(let-values(((lst_110)" "(header-require-vars-in-order" " header_5)))" "(begin" @@ -26738,7 +26739,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_109)))" +"(check-list lst_110)))" "((letrec-values(((for-loop_124)" "(lambda(table_145" " lst_157)" @@ -26826,7 +26827,7 @@ static const char *startup_source = " table_145)))))" " for-loop_124)" " '#hash()" -" lst_109)))))" +" lst_110)))))" "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" @@ -27027,14 +27028,14 @@ static const char *startup_source = "((e_31 k_32 v_127)(syntax-property$2 e_31 k_32 v_127))))" "(define-values" "(to-syntax-list.1$1)" -"(lambda(s_302)" +"(lambda(s_300)" "(begin" " 'to-syntax-list" -"(if(list? s_302)" -"(let-values() s_302)" -"(if(pair? s_302)" -"(let-values()(let-values(((r_39)(to-syntax-list.1$1(cdr s_302))))(if r_39(cons(car s_302) r_39) #f)))" -"(if(1/syntax? s_302)(let-values()(to-syntax-list.1$1(syntax-e$2 s_302)))(let-values() #f)))))))" +"(if(list? s_300)" +"(let-values() s_300)" +"(if(pair? s_300)" +"(let-values()(let-values(((r_39)(to-syntax-list.1$1(cdr s_300))))(if r_39(cons(car s_300) r_39) #f)))" +"(if(1/syntax? s_300)(let-values()(to-syntax-list.1$1(syntax-e$2 s_300)))(let-values() #f)))))))" "(define-values" "(srcloc->vector)" "(lambda(s_6)" @@ -27216,20 +27217,20 @@ static const char *startup_source = " 'begin0" "(compile_0(car(parsed-begin0-body p_36)) name_40 result-used?_0)" "(reverse$1" -"(let-values(((lst_90)(cdr(parsed-begin0-body p_36))))" +"(let-values(((lst_91)(cdr(parsed-begin0-body p_36))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_90)))" +"(let-values()(check-list lst_91)))" "((letrec-values(((for-loop_107)" -"(lambda(fold-var_11 lst_91)" +"(lambda(fold-var_11 lst_92)" "(begin" " 'for-loop" -"(if(pair? lst_91)" +"(if(pair? lst_92)" "(let-values(((e_32)" -"(unsafe-car lst_91))" +"(unsafe-car lst_92))" "((rest_43)" -"(unsafe-cdr lst_91)))" +"(unsafe-cdr lst_92)))" "(let-values(((fold-var_90)" "(let-values(((fold-var_91)" " fold-var_11))" @@ -27252,7 +27253,7 @@ static const char *startup_source = " fold-var_11)))))" " for-loop_107)" " null" -" lst_90)))))))" +" lst_91)))))))" "(if(parsed-begin? p_36)" "(let-values()" "(correlate~" @@ -27372,12 +27373,12 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_33)))" "((letrec-values(((for-loop_186)" -"(lambda(fold-var_156 lst_96 pos_90)" +"(lambda(fold-var_156 lst_97 pos_90)" "(begin" " 'for-loop" -"(if(if(pair? lst_96) #t #f)" -"(let-values(((e_33)(unsafe-car lst_96))" -"((rest_82)(unsafe-cdr lst_96))" +"(if(if(pair? lst_97) #t #f)" +"(let-values(((e_33)(unsafe-car lst_97))" +"((rest_82)(unsafe-cdr lst_97))" "((i_101) pos_90))" "(let-values(((fold-var_157)" "(let-values(((fold-var_79) fold-var_156))" @@ -27402,36 +27403,36 @@ static const char *startup_source = " start_33)))))))))" "(define-values" "(add-lambda-properties)" -"(lambda(s_303 inferred-name_0 orig-s_21)" +"(lambda(s_301 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" -"(lambda(v_154)" +"(lambda(v_155)" "(begin" " 'simplify-name" -"(if(pair? v_154)" +"(if(pair? v_155)" "(let-values()" -"(let-values(((n1_0)(simplify-name_0(car v_154))))" -"(let-values(((n2_0)(simplify-name_0(cdr v_154))))(if(eq? n1_0 n2_0) n1_0 v_154))))" -"(let-values() v_154))))))" +"(let-values(((n1_0)(simplify-name_0(car v_155))))" +"(let-values(((n2_0)(simplify-name_0(cdr v_155))))(if(eq? n1_0 n2_0) n1_0 v_155))))" +"(let-values() v_155))))))" "(let-values(((name_45)" "(let-values(((or-part_220)" -"(let-values(((v_155)" +"(let-values(((v_156)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_135)(symbol? v_155)))" +"(if(let-values(((or-part_135)(symbol? v_156)))" "(if or-part_135" " or-part_135" -"(let-values(((or-part_221)(syntax?$1 v_155)))" -"(if or-part_221 or-part_221(void? v_155)))))" -" v_155" +"(let-values(((or-part_221)(syntax?$1 v_156)))" +"(if or-part_221 or-part_221(void? v_156)))))" +" v_156" " #f))))" "(if or-part_220 or-part_220 inferred-name_0))))" "(let-values(((named-s_0)" "(if name_45" "(correlated-property" -"(->correlated s_303)" +"(->correlated s_301)" " 'inferred-name" "(if(syntax?$1 name_45)(syntax-e$1 name_45) name_45))" -" s_303)))" +" s_301)))" "(let-values(((as-method_0)(syntax-property$1 orig-s_21 'method-arity-error)))" "(if as-method_0" "(correlated-property(->correlated named-s_0) 'method-arity-error as-method_0)" @@ -27619,7 +27620,7 @@ static const char *startup_source = "(let-values()(local-binding-key b_68))" "(if(module-binding? b_68)" "(let-values()" -"(let-values(((mpi_42)" +"(let-values(((mpi_43)" "(if(parsed-top-id? p_42)" "(compile-context-self cctx_9)" "(module-binding-module b_68))))" @@ -27637,7 +27638,7 @@ static const char *startup_source = "(module-binding-sym b_68)))" "(void))" "(module-binding-sym b_68)))" -"(if(eq? mpi_42(compile-context-module-self cctx_9))" +"(if(eq? mpi_43(compile-context-module-self cctx_9))" "(let-values()" "(let-values(((header_6)(compile-context-header cctx_9)))" "(hash-ref" @@ -27645,7 +27646,7 @@ static const char *startup_source = "(module-binding-sym b_68))))" "(let-values()" "(let-values(((temp48_0)(compile-context-header cctx_9))" -"((mpi49_0) mpi_42)" +"((mpi49_0) mpi_43)" "((temp50_0)(module-binding-phase b_68))" "((temp51_0)(module-binding-sym b_68))" "((temp52_1)" @@ -27776,17 +27777,17 @@ static const char *startup_source = "(if extra-inspectorsss_0" "(let-values()" "(reverse$1" -"(let-values(((lst_102) mus_1)((lst_90) extra-inspectorsss_0))" +"(let-values(((lst_103) mus_1)((lst_91) extra-inspectorsss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_102)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_90)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_103)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_91)))" "((letrec-values(((for-loop_107)" -"(lambda(fold-var_11 lst_91 lst_172)" +"(lambda(fold-var_11 lst_92 lst_172)" "(begin" " 'for-loop" -"(if(if(pair? lst_91)(pair? lst_172) #f)" -"(let-values(((mu_5)(unsafe-car lst_91))" -"((rest_87)(unsafe-cdr lst_91))" +"(if(if(pair? lst_92)(pair? lst_172) #f)" +"(let-values(((mu_5)(unsafe-car lst_92))" +"((rest_87)(unsafe-cdr lst_92))" "((extra-inspectorss_1)(unsafe-car lst_172))" "((rest_37)(unsafe-cdr lst_172)))" "(let-values(((fold-var_163)" @@ -27806,13 +27807,13 @@ static const char *startup_source = " fold-var_11)))))" " for-loop_107)" " null" -" lst_102" -" lst_90)))))" +" lst_103" +" lst_91)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_92) mus_1))" +"(let-values(((lst_93) mus_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_92)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_93)))" "((letrec-values(((for-loop_189)" "(lambda(fold-var_166 lst_17)" "(begin" @@ -27836,7 +27837,7 @@ static const char *startup_source = " fold-var_166)))))" " for-loop_189)" " null" -" lst_92)))))))))" +" lst_93)))))))))" "(define-values" "(module-uses-strip-extra-inspectorsss)" "(lambda(mu*s_0)" @@ -27921,12 +27922,12 @@ static const char *startup_source = "(let-values(((extra-inspectorss_2)" "(module-use*-extra-inspectorss" " mu*_2)))" -"(let-values(((lst_97) imports_0))" +"(let-values(((lst_98) imports_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_97)))" +"(let-values()(check-list lst_98)))" "((letrec-values(((for-loop_19)" "(lambda(extra-inspectorss_3" " lst_180)" @@ -27971,7 +27972,7 @@ static const char *startup_source = " extra-inspectorss_3)))))" " for-loop_19)" " extra-inspectorss_2" -" lst_97)))))" +" lst_98)))))" " fold-var_172))))" "(values fold-var_173)))))" "(if(not #f)(for-loop_29 fold-var_156 rest_91 rest_92) fold-var_156)))" @@ -27985,7 +27986,7 @@ static const char *startup_source = "(lambda(mu*_3 insp_9)(begin(set-module-use*-self-inspector! mu*_3 insp_9))))" "(define-values" "(module-use+extra-inspectors)" -"(lambda(mpi_43 phase_70 imports_1 inspector_12 extra-inspector_5 extra-inspectorss_7)" +"(lambda(mpi_44 phase_70 imports_1 inspector_12 extra-inspector_5 extra-inspectorss_7)" "(begin" "(let-values(((now-inspector_0)(current-code-inspector)))" "(let-values(((add-insp?_0)(if inspector_12(inspector-superior? inspector_12 now-inspector_0) #f)))" @@ -28088,7 +28089,7 @@ static const char *startup_source = "(let-values(((or-part_226) extra-inspectorss_7))" "(if or-part_226 or-part_226(seteq)))" " lst_183)))))))" -"(module-use*1.1 mpi_43 phase_70 new-extra-inspectorss_0 #f))))))))" +"(module-use*1.1 mpi_44 phase_70 new-extra-inspectorss_0 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" "(lambda(existing-mu*_0 mu*_4)" @@ -28537,7 +28538,7 @@ static const char *startup_source = " lst_193)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_104)" +"(let-values(((lst_105)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28545,7 +28546,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_104)))" +" lst_105)))" "((letrec-values(((for-loop_199)" "(lambda(fold-var_176" " lst_194)" @@ -28599,7 +28600,7 @@ static const char *startup_source = " fold-var_176)))))" " for-loop_199)" " null" -" lst_104))))))))" +" lst_105))))))))" "(let-values(((rhs_1)" "(compile$2" "(parsed-define-values-rhs" @@ -28675,7 +28676,7 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_106)" +"(let-values(((lst_107)" " def-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28683,7 +28684,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_106)))" +" lst_107)))" "((letrec-values(((for-loop_200)" "(lambda(fold-var_180" " lst_195)" @@ -28720,7 +28721,7 @@ static const char *startup_source = " fold-var_180)))))" " for-loop_200)" " null" -" lst_106)))))" +" lst_107)))))" " '((void))))" "(add-body!_0" " phase_75" @@ -28866,9 +28867,9 @@ static const char *startup_source = "(values))))" "(let-values(((transformer-set!s_0)" "(reverse$1" -"(let-values(((lst_198)" +"(let-values(((lst_29)" " binding-syms_1)" -"((lst_199)" +"((lst_198)" " gen-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28876,36 +28877,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_198)))" +" lst_29)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_199)))" +" lst_198)))" "((letrec-values(((for-loop_202)" "(lambda(fold-var_187" -" lst_200" -" lst_201)" +" lst_199" +" lst_200)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_200)" +" lst_199)" "(pair?" -" lst_201)" +" lst_200)" " #f)" "(let-values(((binding-sym_3)" "(unsafe-car" -" lst_200))" +" lst_199))" "((rest_102)" "(unsafe-cdr" -" lst_200))" +" lst_199))" "((gen-sym_1)" "(unsafe-car" -" lst_201))" +" lst_200))" "((rest_103)" "(unsafe-cdr" -" lst_201)))" +" lst_200)))" "(let-values(((fold-var_188)" "(let-values(((fold-var_189)" " fold-var_187))" @@ -28932,8 +28933,8 @@ static const char *startup_source = " fold-var_187)))))" " for-loop_202)" " null" -" lst_198" -" lst_199))))))" +" lst_29" +" lst_198))))))" "(begin" "(if(compile-context-module-self" " cctx_3)" @@ -29161,27 +29162,27 @@ static const char *startup_source = " phases-in-order_2))" " phase_71)))" "(let-values(((phase-to-link-info_0)" -"(let-values(((lst_202)" +"(let-values(((lst_201)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_202)))" +"(check-list lst_201)))" "((letrec-values(((for-loop_119)" "(lambda(table_154" -" lst_203)" +" lst_202)" "(begin" " 'for-loop" "(if(pair?" -" lst_203)" +" lst_202)" "(let-values(((phase_76)" "(unsafe-car" -" lst_203))" +" lst_202))" "((rest_104)" "(unsafe-cdr" -" lst_203)))" +" lst_202)))" "(let-values(((table_155)" "(let-values(((table_156)" " table_154))" @@ -29226,9 +29227,9 @@ static const char *startup_source = " table_154)))))" " for-loop_119)" " '#hash()" -" lst_202)))))" +" lst_201)))))" "(let-values(((body-linklets+module-use*s_0)" -"(let-values(((lst_204)" +"(let-values(((lst_203)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29236,20 +29237,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_204)))" +" lst_203)))" "((letrec-values(((for-loop_203)" "(lambda(table_158" -" lst_205)" +" lst_204)" "(begin" " 'for-loop" "(if(pair?" -" lst_205)" +" lst_204)" "(let-values(((phase_77)" "(unsafe-car" -" lst_205))" +" lst_204))" "((rest_105)" "(unsafe-cdr" -" lst_205)))" +" lst_204)))" "(let-values(((table_159)" "(let-values(((table_160)" " table_158))" @@ -29308,7 +29309,7 @@ static const char *startup_source = "(link-info-def-decls" " li_0)" "(reverse$1" -"(let-values(((lst_206)" +"(let-values(((lst_205)" "(header-binding-syms-in-order" "(hash-ref" " phase-to-header_0" @@ -29319,20 +29320,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_206)))" +" lst_205)))" "((letrec-values(((for-loop_181)" "(lambda(fold-var_191" -" lst_207)" +" lst_206)" "(begin" " 'for-loop" "(if(pair?" -" lst_207)" +" lst_206)" "(let-values(((binding-sym_4)" "(unsafe-car" -" lst_207))" +" lst_206))" "((rest_106)" "(unsafe-cdr" -" lst_207)))" +" lst_206)))" "(let-values(((fold-var_192)" "(let-values(((fold-var_193)" " fold-var_191))" @@ -29363,7 +29364,7 @@ static const char *startup_source = " fold-var_191)))))" " for-loop_181)" " null" -" lst_206)))))" +" lst_205)))))" "(qq-append" "(reverse$1" " bodys_5)" @@ -29403,7 +29404,7 @@ static const char *startup_source = " table_158)))))" " for-loop_203)" " '#hasheq()" -" lst_204)))))" +" lst_203)))))" "(let-values(((body-linklets_0)" "(let-values(((ht_116)" " body-linklets+module-use*s_0))" @@ -29612,25 +29613,25 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_208) ids_7)" -"((lst_209) binding-syms_2)" -"((lst_115)" +"(let-values(((lst_207) ids_7)" +"((lst_208) binding-syms_2)" +"((lst_116)" "(let-values(((or-part_109) trans-exprs_0))" "(if or-part_109" " or-part_109" "(reverse$1" -"(let-values(((lst_116) ids_7))" +"(let-values(((lst_117) ids_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_116)))" +"(let-values()(check-list lst_117)))" "((letrec-values(((for-loop_207)" -"(lambda(fold-var_195 lst_210)" +"(lambda(fold-var_195 lst_209)" "(begin" " 'for-loop" -"(if(pair? lst_210)" -"(let-values(((id_47)(unsafe-car lst_210))" -"((rest_107)(unsafe-cdr lst_210)))" +"(if(pair? lst_209)" +"(let-values(((id_47)(unsafe-car lst_209))" +"((rest_107)(unsafe-cdr lst_209)))" "(let-values(((fold-var_196)" "(let-values(((fold-var_197)" " fold-var_195))" @@ -29647,28 +29648,28 @@ static const char *startup_source = " fold-var_195)))))" " for-loop_207)" " null" -" lst_116))))))))" +" lst_117))))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_207)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_208)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_209)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_115)))" +"(let-values()(check-list lst_116)))" "((letrec-values(((for-loop_208)" -"(lambda(fold-var_199 lst_211 lst_3 lst_212)" +"(lambda(fold-var_199 lst_210 lst_3 lst_211)" "(begin" " 'for-loop" -"(if(if(pair? lst_211)(if(pair? lst_3)(pair? lst_212) #f) #f)" -"(let-values(((id_48)(unsafe-car lst_211))" -"((rest_108)(unsafe-cdr lst_211))" +"(if(if(pair? lst_210)(if(pair? lst_3)(pair? lst_211) #f) #f)" +"(let-values(((id_48)(unsafe-car lst_210))" +"((rest_108)(unsafe-cdr lst_210))" "((binding-sym_5)(unsafe-car lst_3))" "((rest_109)(unsafe-cdr lst_3))" -"((trans-expr_0)(unsafe-car lst_212))" -"((rest_110)(unsafe-cdr lst_212)))" +"((trans-expr_0)(unsafe-car lst_211))" +"((rest_110)(unsafe-cdr lst_211)))" "(let-values(((fold-var_200)" "(let-values(((fold-var_201) fold-var_199))" "(let-values(((fold-var_202)" @@ -29699,9 +29700,9 @@ static const char *startup_source = " fold-var_199)))))" " for-loop_208)" " null" +" lst_207" " lst_208" -" lst_209" -" lst_115))))))))))))))" +" lst_116))))))))))))))" "(define-values" "(generate-top-level-define-syntaxes)" "(lambda(gen-syms_1 rhs_3 transformer-set!s_1 finish_1)" @@ -29722,17 +29723,17 @@ static const char *startup_source = "(list*" " 'values" "(reverse$1" -"(let-values(((lst_213) gen-syms_1))" +"(let-values(((lst_212) gen-syms_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_213)))" +"(let-values()(check-list lst_212)))" "((letrec-values(((for-loop_209)" -"(lambda(fold-var_203 lst_214)" +"(lambda(fold-var_203 lst_213)" "(begin" " 'for-loop" -"(if(pair? lst_214)" -"(let-values(((s_304)(unsafe-car lst_214))((rest_111)(unsafe-cdr lst_214)))" +"(if(pair? lst_213)" +"(let-values(((s_302)(unsafe-car lst_213))((rest_111)(unsafe-cdr lst_213)))" "(let-values(((fold-var_204)" "(let-values(((fold-var_205) fold-var_203))" "(let-values(((fold-var_206)" @@ -29743,15 +29744,15 @@ static const char *startup_source = " fold-var_203)))))" " for-loop_209)" " null" -" lst_213)))))))" +" lst_212)))))))" "(list* 'begin finish_1 '((void)))))" "(list 'args(list* 'let-values(list(list* gen-syms_1 '((apply values args)))) '((void)))))))))" "(define-values" "(propagate-inline-property)" "(lambda(e_36 orig-s_22)" "(begin" -"(let-values(((v_156)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_156(correlated-property e_36 'compiler-hint:cross-module-inline v_156) e_36)))))" +"(let-values(((v_157)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" +"(if v_157(correlated-property e_36 'compiler-hint:cross-module-inline v_157) e_36)))))" "(define-values" "(make-module-use-to-linklet)" "(lambda(cross-linklet-inlining?_2 ns_57 get-module-linklet-info_1 init-mu*s_0)" @@ -29772,17 +29773,17 @@ static const char *startup_source = "(hash-set! mu*-intern-table_0(cons mod-name_15(module-use-phase mu*_5)) mu*_5)" " mu*_5)))))))))" "(begin" -"(let-values(((lst_141) init-mu*s_0))" +"(let-values(((lst_142) init-mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_141)))" +"(let-values()(check-list lst_142)))" "((letrec-values(((for-loop_171)" -"(lambda(lst_215)" +"(lambda(lst_214)" "(begin" " 'for-loop" -"(if(pair? lst_215)" -"(let-values(((mu*_6)(unsafe-car lst_215))((rest_112)(unsafe-cdr lst_215)))" +"(if(pair? lst_214)" +"(let-values(((mu*_6)(unsafe-car lst_214))((rest_112)(unsafe-cdr lst_214)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -29794,7 +29795,7 @@ static const char *startup_source = "(if(not #f)(for-loop_171 rest_112)(values))))" "(values))))))" " for-loop_171)" -" lst_141)))" +" lst_142)))" "(void)" "(lambda(mu*-or-instance_0)" "(if(1/instance? mu*-or-instance_0)" @@ -29830,37 +29831,37 @@ static const char *startup_source = "((extra-inspectorsss_3)" "(module-linklet-info-extra-inspectorsss mli_0)))" "(reverse$1" -"(let-values(((lst_216) mus_2)" -"((lst_217)" +"(let-values(((lst_215) mus_2)" +"((lst_216)" "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" -"((lst_218)" +"((lst_217)" "(let-values(((or-part_230) extra-inspectorsss_3))" "(if or-part_230 or-part_230 mus_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_215)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_216)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_217)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_218)))" "((letrec-values(((for-loop_210)" -"(lambda(fold-var_207 lst_219 lst_220 lst_221)" +"(lambda(fold-var_207 lst_218 lst_219 lst_220)" "(begin" " 'for-loop" -"(if(if(pair? lst_219)" -"(if(pair? lst_220)(pair? lst_221) #f)" +"(if(if(pair? lst_218)" +"(if(pair? lst_219)(pair? lst_220) #f)" " #f)" -"(let-values(((sub-mu_0)(unsafe-car lst_219))" -"((rest_113)(unsafe-cdr lst_219))" -"((imports_3)(unsafe-car lst_220))" -"((rest_114)(unsafe-cdr lst_220))" +"(let-values(((sub-mu_0)(unsafe-car lst_218))" +"((rest_113)(unsafe-cdr lst_218))" +"((imports_3)(unsafe-car lst_219))" +"((rest_114)(unsafe-cdr lst_219))" "((extra-inspectorss_13)" -"(unsafe-car lst_221))" -"((rest_115)(unsafe-cdr lst_221)))" +"(unsafe-car lst_220))" +"((rest_115)(unsafe-cdr lst_220)))" "(let-values(((fold-var_208)" "(let-values(((fold-var_209)" " fold-var_207))" @@ -29899,9 +29900,9 @@ static const char *startup_source = " fold-var_207)))))" " for-loop_210)" " null" +" lst_215" " lst_216" -" lst_217" -" lst_218)))))))" +" lst_217)))))))" " #f))" "(values #f #f)))))))" "(let-values()(values #f #f))))))))))))" @@ -29927,7 +29928,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< pos_93 len_28)" -"(let-values(((mpi_44)" +"(let-values(((mpi_45)" "(unsafe-vector-ref vec_56 pos_93)))" "(let-values(((vec_59 i_148)" "(let-values(((vec_60) vec_58)" @@ -29949,7 +29950,7 @@ static const char *startup_source = "(let-values()" "(add-module-path-index!/pos" " mpis_17" -" mpi_44)))" +" mpi_45)))" "(values" " new-vec_3" "(unsafe-fx+" @@ -29994,19 +29995,19 @@ static const char *startup_source = "(list*" " 'vector" "(reverse$1" -"(let-values(((lst_222)(reverse$1 module-uses-tables_0)))" +"(let-values(((lst_221)(reverse$1 module-uses-tables_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_222)))" +"(let-values()(check-list lst_221)))" "((letrec-values(((for-loop_106)" -"(lambda(fold-var_67 lst_89)" +"(lambda(fold-var_67 lst_90)" "(begin" " 'for-loop" -"(if(pair? lst_89)" +"(if(pair? lst_90)" "(let-values(((phase-to-link-module-uses_2)" -"(unsafe-car lst_89))" -"((rest_116)(unsafe-cdr lst_89)))" +"(unsafe-car lst_90))" +"((rest_116)(unsafe-cdr lst_90)))" "(let-values(((fold-var_34)" "(let-values(((fold-var_154)" " fold-var_67))" @@ -30025,7 +30026,7 @@ static const char *startup_source = " fold-var_67)))))" " for-loop_106)" " null" -" lst_222)))))))" +" lst_221)))))))" "(1/compile-linklet" "(list" " 'linklet" @@ -30058,18 +30059,18 @@ static const char *startup_source = "(begin" " 'loop" "(reverse$1" -"(let-values(((lst_81) cims_2))" +"(let-values(((lst_82) cims_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_81)))" +"(let-values()(check-list lst_82)))" "((letrec-values(((for-loop_97)" -"(lambda(fold-var_211 lst_82)" +"(lambda(fold-var_211 lst_83)" "(begin" " 'for-loop" -"(if(pair? lst_82)" -"(let-values(((cim_4)(unsafe-car lst_82))" -"((rest_117)(unsafe-cdr lst_82)))" +"(if(pair? lst_83)" +"(let-values(((cim_4)(unsafe-car lst_83))" +"((rest_117)(unsafe-cdr lst_83)))" "(let-values(((fold-var_155)" "(let-values(((fold-var_163) fold-var_211))" "(let-values(((fold-var_164)" @@ -30092,7 +30093,7 @@ static const char *startup_source = " fold-var_211)))))" " for-loop_97)" " null" -" lst_81))))))))" +" lst_82))))))))" " loop_38)" " cims_1))))" "(define-values" @@ -30116,21 +30117,21 @@ static const char *startup_source = "(let-values()(car cims_3))" "(let-values()" "(let-values(((sequence-ht_0)" -"(let-values(((lst_223) cims_3)((start_35) 0))" +"(let-values(((lst_222) cims_3)((start_35) 0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_223)))" +"(let-values()(check-list lst_222)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" "((letrec-values(((for-loop_211)" -"(lambda(table_173 lst_100 pos_95)" +"(lambda(table_173 lst_101 pos_95)" "(begin" " 'for-loop" -"(if(if(pair? lst_100) #t #f)" -"(let-values(((cim_5)(unsafe-car lst_100))" -"((rest_36)(unsafe-cdr lst_100))" +"(if(if(pair? lst_101) #t #f)" +"(let-values(((cim_5)(unsafe-car lst_101))" +"((rest_36)(unsafe-cdr lst_101))" "((i_84) pos_95))" "(let-values(((table_174)" "(let-values(((table_175) table_173))" @@ -30158,7 +30159,7 @@ static const char *startup_source = " table_173)))))" " for-loop_211)" " '#hasheq()" -" lst_223" +" lst_222" " start_35)))))" "(let-values(((ht_119)" "(if merge-serialization?_0" @@ -30443,37 +30444,37 @@ static const char *startup_source = "(if c1_24" "((lambda(d_30)" "(let-values(((ok?_17 _17_0 e18_0)" -"(let-values(((s_85) e_39))" +"(let-values(((s_84) e_39))" "(let-values(((orig-s_23)" -" s_85))" +" s_84))" "(let-values(((_17_1" " e18_1)" -"(let-values(((s_305)" +"(let-values(((s_303)" "(if(1/syntax?" -" s_85)" +" s_84)" "(syntax-e$2" -" s_85)" -" s_85)))" +" s_84)" +" s_84)))" "(if(pair?" -" s_305)" +" s_303)" "(let-values(((_19_0)" -"(let-values(((s_86)" +"(let-values(((s_85)" "(car" -" s_305)))" -" s_86))" +" s_303)))" +" s_85))" "((e20_0)" -"(let-values(((s_161)" +"(let-values(((s_159)" "(cdr" -" s_305)))" -"(let-values(((s_306)" +" s_303)))" +"(let-values(((s_304)" "(if(1/syntax?" -" s_161)" +" s_159)" "(syntax-e$2" -" s_161)" -" s_161)))" +" s_159)" +" s_159)))" "(let-values(((flat-s_13)" "(to-syntax-list.1$1" -" s_306)))" +" s_304)))" "(if(not" " flat-s_13)" "(let-values()" @@ -30541,17 +30542,17 @@ static const char *startup_source = " lst_8)))" "((letrec-values(((for-loop_212)" "(lambda(result_81" -" lst_224)" +" lst_223)" "(begin" " 'for-loop" "(if(pair?" -" lst_224)" +" lst_223)" "(let-values(((e_42)" "(unsafe-car" -" lst_224))" +" lst_223))" "((rest_118)" "(unsafe-cdr" -" lst_224)))" +" lst_223)))" "(let-values(((result_40)" "(let-values()" "(let-values(((result_82)" @@ -30592,7 +30593,7 @@ static const char *startup_source = " d_30)))" "(let-values(((lst_10)" " e18_0)" -"((lst_225)" +"((lst_224)" "(known-function-of-satisfying-arg-predicate-keys" " d_30)))" "(begin" @@ -30607,17 +30608,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_225)))" +" lst_224)))" "((letrec-values(((for-loop_99)" "(lambda(result_83" " lst_177" -" lst_226)" +" lst_225)" "(begin" " 'for-loop" "(if(if(pair?" " lst_177)" "(pair?" -" lst_226)" +" lst_225)" " #f)" "(let-values(((e_43)" "(unsafe-car" @@ -30627,10 +30628,10 @@ static const char *startup_source = " lst_177))" "((key_66)" "(unsafe-car" -" lst_226))" +" lst_225))" "((rest_120)" "(unsafe-cdr" -" lst_226)))" +" lst_225)))" "(let-values(((result_42)" "(let-values()" "(let-values(((result_43)" @@ -30672,7 +30673,7 @@ static const char *startup_source = " for-loop_99)" " #t" " lst_10" -" lst_225)))" +" lst_224)))" " #f)" " #f)))" " 1" @@ -30716,30 +30717,30 @@ static const char *startup_source = " ids22_0" " rhs23_0" " body24_0)" -"(let-values(((s_80) e_39))" -"(let-values(((orig-s_24) s_80))" +"(let-values(((s_79) e_39))" +"(let-values(((orig-s_24) s_79))" "(let-values(((_21_1" " ids22_1" " rhs23_1" " body24_1)" -"(let-values(((s_307)" +"(let-values(((s_305)" "(if(1/syntax?" -" s_80)" +" s_79)" "(syntax-e$2" -" s_80)" -" s_80)))" -"(if(pair? s_307)" +" s_79)" +" s_79)))" +"(if(pair? s_305)" "(let-values(((_25_0)" "(let-values(((s_28)" "(car" -" s_307)))" +" s_305)))" " s_28))" "((ids26_0" " rhs27_0" " body28_0)" "(let-values(((s_29)" "(cdr" -" s_307)))" +" s_305)))" "(let-values(((s_30)" "(if(1/syntax?" " s_29)" @@ -30750,18 +30751,18 @@ static const char *startup_source = " s_30)" "(let-values(((ids29_0" " rhs30_0)" -"(let-values(((s_308)" +"(let-values(((s_306)" "(car" " s_30)))" -"(let-values(((s_158)" +"(let-values(((s_156)" "(if(1/syntax?" -" s_308)" +" s_306)" "(syntax-e$2" -" s_308)" -" s_308)))" +" s_306)" +" s_306)))" "(let-values(((flat-s_14)" "(to-syntax-list.1$1" -" s_158)))" +" s_156)))" "(if(not" " flat-s_14)" "(let-values()" @@ -30776,7 +30777,7 @@ static const char *startup_source = "(let-values()" "(let-values(((ids_8" " rhs_4)" -"(let-values(((lst_227)" +"(let-values(((lst_226)" " flat-s_14))" "(begin" "(if(variable-reference-from-unsafe?" @@ -30784,21 +30785,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_227)))" +" lst_226)))" "((letrec-values(((for-loop_213)" "(lambda(ids_9" " rhs_5" -" lst_228)" +" lst_227)" "(begin" " 'for-loop" "(if(pair?" -" lst_228)" -"(let-values(((s_309)" +" lst_227)" +"(let-values(((s_307)" "(unsafe-car" -" lst_228))" +" lst_227))" "((rest_121)" "(unsafe-cdr" -" lst_228)))" +" lst_227)))" "(let-values(((ids_10" " rhs_6)" "(let-values(((ids_11)" @@ -30811,6 +30812,23 @@ static const char *startup_source = "(let-values(((ids36_0" " rhs37_0)" "(let-values()" +"(let-values(((s_308)" +"(if(1/syntax?" +" s_307)" +"(syntax-e$2" +" s_307)" +" s_307)))" +"(if(pair?" +" s_308)" +"(let-values(((ids32_0)" +"(let-values(((s_50)" +"(car" +" s_308)))" +" s_50))" +"((rhs33_0)" +"(let-values(((s_309)" +"(cdr" +" s_308)))" "(let-values(((s_310)" "(if(1/syntax?" " s_309)" @@ -30819,40 +30837,23 @@ static const char *startup_source = " s_309)))" "(if(pair?" " s_310)" -"(let-values(((ids32_0)" -"(let-values(((s_50)" +"(let-values(((rhs34_0)" +"(let-values(((s_52)" "(car" " s_310)))" -" s_50))" -"((rhs33_0)" +" s_52))" +"(()" "(let-values(((s_311)" "(cdr" " s_310)))" -"(let-values(((s_312)" +"(let-values(((s_155)" "(if(1/syntax?" " s_311)" "(syntax-e$2" " s_311)" " s_311)))" -"(if(pair?" -" s_312)" -"(let-values(((rhs34_0)" -"(let-values(((s_52)" -"(car" -" s_312)))" -" s_52))" -"(()" -"(let-values(((s_313)" -"(cdr" -" s_312)))" -"(let-values(((s_157)" -"(if(1/syntax?" -" s_313)" -"(syntax-e$2" -" s_313)" -" s_313)))" "(if(null?" -" s_157)" +" s_155)" "(values)" "((lambda(false_3" " str_7" @@ -30908,41 +30909,41 @@ static const char *startup_source = " for-loop_213)" " null" " null" -" lst_227)))))" +" lst_226)))))" "(values" "(reverse$1" " ids_8)" "(reverse$1" " rhs_4)))))))))" "((body31_0)" -"(let-values(((s_314)" +"(let-values(((s_312)" "(cdr" " s_30)))" -"(let-values(((s_315)" +"(let-values(((s_313)" "(if(1/syntax?" -" s_314)" +" s_312)" "(syntax-e$2" -" s_314)" -" s_314)))" +" s_312)" +" s_312)))" "(if(pair?" -" s_315)" +" s_313)" "(let-values(((body35_0)" -"(let-values(((s_316)" +"(let-values(((s_314)" "(car" -" s_315)))" -" s_316))" +" s_313)))" +" s_314))" "(()" -"(let-values(((s_317)" +"(let-values(((s_315)" "(cdr" -" s_315)))" -"(let-values(((s_318)" +" s_313)))" +"(let-values(((s_316)" "(if(1/syntax?" -" s_317)" +" s_315)" "(syntax-e$2" -" s_317)" -" s_317)))" +" s_315)" +" s_315)))" "(if(null?" -" s_318)" +" s_316)" "(values)" "((lambda(false_6" " str_10" @@ -30994,34 +30995,34 @@ static const char *startup_source = " rhs23_1" " body24_1))))))" "(if(not" -"(let-values(((lst_229) ids22_0)" -"((lst_230) rhs23_0))" +"(let-values(((lst_228) ids22_0)" +"((lst_229) rhs23_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_228)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_229)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_230)))" "((letrec-values(((for-loop_214)" "(lambda(result_84" -" lst_231" +" lst_230" " lst_197)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_231)" +" lst_230)" "(pair?" " lst_197)" " #f)" "(let-values(((ids_13)" "(unsafe-car" -" lst_231))" +" lst_230))" "((rest_101)" "(unsafe-cdr" -" lst_231))" +" lst_230))" "((rhs_9)" "(unsafe-car" " lst_197))" @@ -31060,8 +31061,8 @@ static const char *startup_source = " result_84)))))" " for-loop_214)" " #f" -" lst_229" -" lst_230))))" +" lst_228" +" lst_229))))" "(loop_2" " body24_0" "(add-binding-info locals_2 ids22_0 rhs23_0))" @@ -31072,31 +31073,31 @@ static const char *startup_source = "(let-values(((s_61) e_39))" "(let-values(((orig-s_25) s_61))" "(let-values(((_38_1 e39_1)" -"(let-values(((s_62)" +"(let-values(((s_37)" "(if(1/syntax?" " s_61)" "(syntax-e$2" " s_61)" " s_61)))" -"(if(pair? s_62)" +"(if(pair? s_37)" "(let-values(((_40_0)" -"(let-values(((s_319)" +"(let-values(((s_317)" "(car" -" s_62)))" -" s_319))" +" s_37)))" +" s_317))" "((e41_0)" -"(let-values(((s_320)" +"(let-values(((s_318)" "(cdr" -" s_62)))" -"(let-values(((s_321)" +" s_37)))" +"(let-values(((s_319)" "(if(1/syntax?" -" s_320)" +" s_318)" "(syntax-e$2" -" s_320)" -" s_320)))" +" s_318)" +" s_318)))" "(let-values(((flat-s_15)" "(to-syntax-list.1$1" -" s_321)))" +" s_319)))" "(if(not" " flat-s_15)" "(let-values()" @@ -31130,17 +31131,17 @@ static const char *startup_source = "(let-values()(check-list lst_154)))" "((letrec-values(((for-loop_215)" "(lambda(result_61" -" lst_232)" +" lst_231)" "(begin" " 'for-loop" "(if(pair?" -" lst_232)" +" lst_231)" "(let-values(((e_54)" "(unsafe-car" -" lst_232))" +" lst_231))" "((rest_123)" "(unsafe-cdr" -" lst_232)))" +" lst_231)))" "(let-values(((result_86)" "(let-values()" "(let-values(((result_87)" @@ -31173,35 +31174,35 @@ static const char *startup_source = " #f)))" "(let-values()" "(let-values(((ok?_20 _42_0 e43_0)" -"(let-values(((s_210) e_39))" -"(let-values(((orig-s_26) s_210))" +"(let-values(((s_208) e_39))" +"(let-values(((orig-s_26) s_208))" "(let-values(((_42_1 e43_1)" -"(let-values(((s_322)" +"(let-values(((s_320)" "(if(1/syntax?" -" s_210)" +" s_208)" "(syntax-e$2" -" s_210)" -" s_210)))" +" s_208)" +" s_208)))" "(if(pair?" -" s_322)" +" s_320)" "(let-values(((_44_0)" -"(let-values(((s_323)" +"(let-values(((s_321)" "(car" -" s_322)))" -" s_323))" +" s_320)))" +" s_321))" "((e45_0)" -"(let-values(((s_324)" +"(let-values(((s_322)" "(cdr" -" s_322)))" -"(let-values(((s_325)" +" s_320)))" +"(let-values(((s_323)" "(if(1/syntax?" -" s_324)" +" s_322)" "(syntax-e$2" -" s_324)" -" s_324)))" +" s_322)" +" s_322)))" "(let-values(((flat-s_16)" "(to-syntax-list.1$1" -" s_325)))" +" s_323)))" "(if(not" " flat-s_16)" "(let-values()" @@ -31227,25 +31228,25 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_26)))))" "(values #t _42_1 e43_1))))))" -"(if(let-values(((lst_233) e43_0))" +"(if(let-values(((lst_232) e43_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_233)))" +"(let-values()(check-list lst_232)))" "((letrec-values(((for-loop_216)" "(lambda(result_88" -" lst_234)" +" lst_233)" "(begin" " 'for-loop" "(if(pair?" -" lst_234)" +" lst_233)" "(let-values(((e_57)" "(unsafe-car" -" lst_234))" +" lst_233))" "((rest_124)" "(unsafe-cdr" -" lst_234)))" +" lst_233)))" "(let-values(((result_89)" "(let-values()" "(let-values(((result_90)" @@ -31273,41 +31274,41 @@ static const char *startup_source = " result_88)))))" " for-loop_216)" " #t" -" lst_233)))" +" lst_232)))" " 1" " #f))))))" "(if(unsafe-fx< index_1 8)" "(if(unsafe-fx< index_1 6)" "(let-values()" "(let-values(((ok?_21 _46_0 e47_0)" -"(let-values(((s_326) e_39))" -"(let-values(((orig-s_27) s_326))" +"(let-values(((s_324) e_39))" +"(let-values(((orig-s_27) s_324))" "(let-values(((_46_1 e47_1)" -"(let-values(((s_104)" +"(let-values(((s_103)" "(if(1/syntax?" -" s_326)" +" s_324)" "(syntax-e$2" -" s_326)" -" s_326)))" -"(if(pair? s_104)" +" s_324)" +" s_324)))" +"(if(pair? s_103)" "(let-values(((_48_0)" -"(let-values(((s_327)" +"(let-values(((s_325)" "(car" -" s_104)))" -" s_327))" +" s_103)))" +" s_325))" "((e49_0)" -"(let-values(((s_107)" +"(let-values(((s_106)" "(cdr" -" s_104)))" -"(let-values(((s_328)" +" s_103)))" +"(let-values(((s_326)" "(if(1/syntax?" -" s_107)" +" s_106)" "(syntax-e$2" -" s_107)" -" s_107)))" +" s_106)" +" s_106)))" "(let-values(((flat-s_17)" "(to-syntax-list.1$1" -" s_328)))" +" s_326)))" "(if(not" " flat-s_17)" "(let-values()" @@ -31357,55 +31358,55 @@ static const char *startup_source = "(if(unsafe-fx< index_1 7)" "(let-values()" "(let-values(((ok?_7 _50_0 e051_0 e52_0)" -"(let-values(((s_219) e_39))" -"(let-values(((orig-s_9) s_219))" +"(let-values(((s_217) e_39))" +"(let-values(((orig-s_9) s_217))" "(let-values(((_50_1" " e051_1" " e52_1)" -"(let-values(((s_220)" +"(let-values(((s_218)" "(if(1/syntax?" -" s_219)" +" s_217)" "(syntax-e$2" -" s_219)" -" s_219)))" +" s_217)" +" s_217)))" "(if(pair?" -" s_220)" +" s_218)" "(let-values(((_53_0)" -"(let-values(((s_221)" +"(let-values(((s_219)" "(car" -" s_220)))" -" s_221))" +" s_218)))" +" s_219))" "((e054_0" " e55_0)" -"(let-values(((s_222)" +"(let-values(((s_220)" "(cdr" +" s_218)))" +"(let-values(((s_116)" +"(if(1/syntax?" +" s_220)" +"(syntax-e$2" +" s_220)" " s_220)))" -"(let-values(((s_117)" -"(if(1/syntax?" -" s_222)" -"(syntax-e$2" -" s_222)" -" s_222)))" "(if(pair?" -" s_117)" +" s_116)" "(let-values(((e056_0)" -"(let-values(((s_223)" +"(let-values(((s_221)" "(car" -" s_117)))" -" s_223))" +" s_116)))" +" s_221))" "((e57_0)" -"(let-values(((s_118)" +"(let-values(((s_117)" "(cdr" -" s_117)))" -"(let-values(((s_119)" +" s_116)))" +"(let-values(((s_118)" "(if(1/syntax?" -" s_118)" +" s_117)" "(syntax-e$2" -" s_118)" -" s_118)))" +" s_117)" +" s_117)))" "(let-values(((flat-s_5)" "(to-syntax-list.1$1" -" s_119)))" +" s_118)))" "(if(not" " flat-s_5)" "(let-values()" @@ -31455,17 +31456,17 @@ static const char *startup_source = "(let-values()(check-list lst_39)))" "((letrec-values(((for-loop_45)" "(lambda(result_91" -" lst_235)" +" lst_234)" "(begin" " 'for-loop" "(if(pair?" -" lst_235)" +" lst_234)" "(let-values(((e_63)" "(unsafe-car" -" lst_235))" +" lst_234))" "((rest_125)" "(unsafe-cdr" -" lst_235)))" +" lst_234)))" "(let-values(((result_92)" "(let-values()" "(let-values(((result_93)" @@ -31533,134 +31534,134 @@ static const char *startup_source = " id:arg60_0" " thn61_0" " els62_0)" -"(let-values(((s_329) e_39))" -"(if(let-values(((s_229)" +"(let-values(((s_327) e_39))" +"(if(let-values(((s_227)" "(if(1/syntax?" -" s_329)" +" s_327)" "(syntax-e$2" -" s_329)" -" s_329)))" +" s_327)" +" s_327)))" +"(if(pair? s_227)" +"(if(let-values(((s_228)" +"(car" +" s_227)))" +" #t)" +"(let-values(((s_328)" +"(cdr" +" s_227)))" +"(let-values(((s_229)" +"(if(1/syntax?" +" s_328)" +"(syntax-e$2" +" s_328)" +" s_328)))" "(if(pair? s_229)" "(if(let-values(((s_230)" "(car" " s_229)))" -" #t)" +"(let-values(((s_231)" +"(if(1/syntax?" +" s_230)" +"(syntax-e$2" +" s_230)" +" s_230)))" +"(if(pair?" +" s_231)" +"(if(let-values(((s_329)" +"(car" +" s_231)))" +"(let-values(((or-part_233)" +"(if(1/syntax?" +" s_329)" +"(symbol?" +"(syntax-e$2" +" s_329))" +" #f)))" +"(if or-part_233" +" or-part_233" +"(symbol?" +" s_329))))" "(let-values(((s_330)" "(cdr" -" s_229)))" -"(let-values(((s_231)" +" s_231)))" +"(let-values(((s_331)" "(if(1/syntax?" " s_330)" "(syntax-e$2" " s_330)" " s_330)))" -"(if(pair? s_231)" -"(if(let-values(((s_232)" -"(car" -" s_231)))" -"(let-values(((s_233)" -"(if(1/syntax?" -" s_232)" -"(syntax-e$2" -" s_232)" -" s_232)))" "(if(pair?" -" s_233)" -"(if(let-values(((s_331)" -"(car" -" s_233)))" -"(let-values(((or-part_233)" -"(if(1/syntax?" " s_331)" -"(symbol?" -"(syntax-e$2" -" s_331))" -" #f)))" -"(if or-part_233" -" or-part_233" -"(symbol?" -" s_331))))" -"(let-values(((s_332)" -"(cdr" -" s_233)))" -"(let-values(((s_333)" -"(if(1/syntax?" -" s_332)" -"(syntax-e$2" -" s_332)" -" s_332)))" -"(if(pair?" -" s_333)" -"(if(let-values(((s_334)" +"(if(let-values(((s_332)" "(car" -" s_333)))" +" s_331)))" "(let-values(((or-part_234)" "(if(1/syntax?" -" s_334)" +" s_332)" "(symbol?" "(syntax-e$2" -" s_334))" +" s_332))" " #f)))" "(if or-part_234" " or-part_234" "(symbol?" -" s_334))))" +" s_332))))" +"(let-values(((s_333)" +"(cdr" +" s_331)))" +"(let-values(((s_334)" +"(if(1/syntax?" +" s_333)" +"(syntax-e$2" +" s_333)" +" s_333)))" +"(null?" +" s_334)))" +" #f)" +" #f)))" +" #f)" +" #f)))" "(let-values(((s_335)" "(cdr" -" s_333)))" +" s_229)))" "(let-values(((s_336)" "(if(1/syntax?" " s_335)" "(syntax-e$2" " s_335)" " s_335)))" -"(null?" +"(if(pair?" +" s_336)" +"(if(let-values(((s_337)" +"(car" " s_336)))" -" #f)" -" #f)))" -" #f)" -" #f)))" -"(let-values(((s_337)" -"(cdr" -" s_231)))" +" #t)" "(let-values(((s_338)" +"(cdr" +" s_336)))" +"(let-values(((s_339)" "(if(1/syntax?" -" s_337)" -"(syntax-e$2" -" s_337)" -" s_337)))" -"(if(pair?" " s_338)" -"(if(let-values(((s_339)" -"(car" -" s_338)))" -" #t)" -"(let-values(((s_340)" -"(cdr" -" s_338)))" -"(let-values(((s_341)" -"(if(1/syntax?" -" s_340)" "(syntax-e$2" -" s_340)" -" s_340)))" +" s_338)" +" s_338)))" "(if(pair?" -" s_341)" -"(if(let-values(((s_342)" +" s_339)" +"(if(let-values(((s_340)" "(car" -" s_341)))" +" s_339)))" " #t)" -"(let-values(((s_343)" +"(let-values(((s_341)" "(cdr" -" s_341)))" -"(let-values(((s_344)" +" s_339)))" +"(let-values(((s_342)" "(if(1/syntax?" -" s_343)" +" s_341)" "(syntax-e$2" -" s_343)" -" s_343)))" +" s_341)" +" s_341)))" "(null?" -" s_344)))" +" s_342)))" " #f)" " #f)))" " #f)" @@ -31675,71 +31676,71 @@ static const char *startup_source = " id:arg60_1" " thn61_1" " els62_1)" -"(let-values(((s_235)" +"(let-values(((s_233)" "(if(1/syntax?" -" s_329)" +" s_327)" "(syntax-e$2" -" s_329)" -" s_329)))" +" s_327)" +" s_327)))" "(let-values(((_63_0)" -"(let-values(((s_238)" +"(let-values(((s_236)" "(car" -" s_235)))" -" s_238))" +" s_233)))" +" s_236))" "((id:rator64_0" " id:arg65_0" " thn66_0" " els67_0)" -"(let-values(((s_345)" +"(let-values(((s_343)" "(cdr" -" s_235)))" +" s_233)))" +"(let-values(((s_344)" +"(if(1/syntax?" +" s_343)" +"(syntax-e$2" +" s_343)" +" s_343)))" +"(let-values(((id:rator68_0" +" id:arg69_0)" +"(let-values(((s_345)" +"(car" +" s_344)))" "(let-values(((s_346)" "(if(1/syntax?" " s_345)" "(syntax-e$2" " s_345)" " s_345)))" -"(let-values(((id:rator68_0" -" id:arg69_0)" +"(let-values(((id:rator72_0)" "(let-values(((s_347)" "(car" " s_346)))" +" s_347))" +"((id:arg73_0)" +"(let-values(((s_240)" +"(cdr" +" s_346)))" "(let-values(((s_348)" "(if(1/syntax?" -" s_347)" +" s_240)" "(syntax-e$2" -" s_347)" -" s_347)))" -"(let-values(((id:rator72_0)" +" s_240)" +" s_240)))" +"(let-values(((id:arg74_0)" "(let-values(((s_349)" "(car" " s_348)))" " s_349))" -"((id:arg73_0)" -"(let-values(((s_242)" +"(()" +"(let-values(((s_350)" "(cdr" " s_348)))" -"(let-values(((s_350)" -"(if(1/syntax?" -" s_242)" -"(syntax-e$2" -" s_242)" -" s_242)))" -"(let-values(((id:arg74_0)" "(let-values(((s_351)" -"(car" -" s_350)))" -" s_351))" -"(()" -"(let-values(((s_352)" -"(cdr" -" s_350)))" -"(let-values(((s_353)" "(if(1/syntax?" -" s_352)" +" s_350)" "(syntax-e$2" -" s_352)" -" s_352)))" +" s_350)" +" s_350)))" "(values)))))" "(values" " id:arg74_0))))))" @@ -31748,45 +31749,45 @@ static const char *startup_source = " id:arg73_0)))))" "((thn70_0" " els71_0)" -"(let-values(((s_354)" +"(let-values(((s_352)" "(cdr" -" s_346)))" -"(let-values(((s_355)" +" s_344)))" +"(let-values(((s_353)" "(if(1/syntax?" -" s_354)" +" s_352)" "(syntax-e$2" -" s_354)" -" s_354)))" +" s_352)" +" s_352)))" "(let-values(((thn75_0)" -"(let-values(((s_356)" +"(let-values(((s_354)" "(car" -" s_355)))" -" s_356))" +" s_353)))" +" s_354))" "((els76_0)" -"(let-values(((s_357)" +"(let-values(((s_355)" "(cdr" +" s_353)))" +"(let-values(((s_356)" +"(if(1/syntax?" +" s_355)" +"(syntax-e$2" +" s_355)" " s_355)))" -"(let-values(((s_358)" -"(if(1/syntax?" -" s_357)" -"(syntax-e$2" -" s_357)" -" s_357)))" "(let-values(((els77_0)" -"(let-values(((s_359)" +"(let-values(((s_357)" "(car" -" s_358)))" -" s_359))" +" s_356)))" +" s_357))" "(()" -"(let-values(((s_360)" +"(let-values(((s_358)" "(cdr" -" s_358)))" -"(let-values(((s_361)" +" s_356)))" +"(let-values(((s_359)" "(if(1/syntax?" -" s_360)" +" s_358)" "(syntax-e$2" -" s_360)" -" s_360)))" +" s_358)" +" s_358)))" "(values)))))" "(values" " els77_0))))))" @@ -31849,74 +31850,74 @@ static const char *startup_source = " tst79_0" " thn80_0" " els81_0)" -"(let-values(((s_362) e_39))" -"(if(let-values(((s_363)" +"(let-values(((s_360) e_39))" +"(if(let-values(((s_361)" +"(if(1/syntax?" +" s_360)" +"(syntax-e$2" +" s_360)" +" s_360)))" +"(if(pair? s_361)" +"(if(let-values(((s_252)" +"(car" +" s_361)))" +" #t)" +"(let-values(((s_362)" +"(cdr" +" s_361)))" +"(let-values(((s_363)" "(if(1/syntax?" " s_362)" "(syntax-e$2" " s_362)" " s_362)))" -"(if(pair? s_363)" -"(if(let-values(((s_254)" +"(if(pair?" +" s_363)" +"(if(let-values(((s_364)" "(car" " s_363)))" " #t)" -"(let-values(((s_364)" -"(cdr" -" s_363)))" "(let-values(((s_365)" +"(cdr" +" s_363)))" +"(let-values(((s_366)" "(if(1/syntax?" -" s_364)" -"(syntax-e$2" -" s_364)" -" s_364)))" -"(if(pair?" " s_365)" -"(if(let-values(((s_366)" +"(syntax-e$2" +" s_365)" +" s_365)))" +"(if(pair?" +" s_366)" +"(if(let-values(((s_367)" "(car" -" s_365)))" +" s_366)))" " #t)" -"(let-values(((s_367)" -"(cdr" -" s_365)))" "(let-values(((s_368)" +"(cdr" +" s_366)))" +"(let-values(((s_369)" "(if(1/syntax?" -" s_367)" -"(syntax-e$2" -" s_367)" -" s_367)))" -"(if(pair?" " s_368)" -"(if(let-values(((s_369)" -"(car" -" s_368)))" -" #t)" -"(let-values(((s_370)" -"(cdr" -" s_368)))" -"(let-values(((s_371)" -"(if(1/syntax?" -" s_370)" "(syntax-e$2" -" s_370)" -" s_370)))" +" s_368)" +" s_368)))" "(if(pair?" -" s_371)" -"(if(let-values(((s_372)" +" s_369)" +"(if(let-values(((s_370)" "(car" -" s_371)))" +" s_369)))" " #t)" -"(let-values(((s_373)" +"(let-values(((s_371)" "(cdr" -" s_371)))" -"(let-values(((s_374)" +" s_369)))" +"(let-values(((s_372)" "(if(1/syntax?" -" s_373)" +" s_371)" "(syntax-e$2" -" s_373)" -" s_373)))" +" s_371)" +" s_371)))" "(null?" -" s_374)))" +" s_372)))" " #f)" " #f)))" " #f)" @@ -31930,75 +31931,75 @@ static const char *startup_source = " tst79_1" " thn80_1" " els81_1)" -"(let-values(((s_375)" +"(let-values(((s_373)" "(if(1/syntax?" -" s_362)" +" s_360)" "(syntax-e$2" -" s_362)" -" s_362)))" +" s_360)" +" s_360)))" "(let-values(((_82_0)" -"(let-values(((s_376)" +"(let-values(((s_374)" "(car" -" s_375)))" -" s_376))" +" s_373)))" +" s_374))" "((tst83_0" " thn84_0" " els85_0)" -"(let-values(((s_377)" +"(let-values(((s_375)" "(cdr" -" s_375)))" -"(let-values(((s_378)" +" s_373)))" +"(let-values(((s_376)" "(if(1/syntax?" -" s_377)" +" s_375)" "(syntax-e$2" -" s_377)" -" s_377)))" +" s_375)" +" s_375)))" "(let-values(((tst86_0)" -"(let-values(((s_379)" +"(let-values(((s_377)" "(car" -" s_378)))" -" s_379))" +" s_376)))" +" s_377))" "((thn87_0" " els88_0)" +"(let-values(((s_378)" +"(cdr" +" s_376)))" +"(let-values(((s_379)" +"(if(1/syntax?" +" s_378)" +"(syntax-e$2" +" s_378)" +" s_378)))" +"(let-values(((thn89_0)" +"(let-values(((s_254)" +"(car" +" s_379)))" +" s_254))" +"((els90_0)" "(let-values(((s_380)" "(cdr" -" s_378)))" +" s_379)))" "(let-values(((s_381)" "(if(1/syntax?" " s_380)" "(syntax-e$2" " s_380)" " s_380)))" -"(let-values(((thn89_0)" -"(let-values(((s_256)" -"(car" -" s_381)))" -" s_256))" -"((els90_0)" -"(let-values(((s_382)" -"(cdr" -" s_381)))" -"(let-values(((s_383)" -"(if(1/syntax?" -" s_382)" -"(syntax-e$2" -" s_382)" -" s_382)))" "(let-values(((els91_0)" -"(let-values(((s_384)" +"(let-values(((s_382)" "(car" -" s_383)))" -" s_384))" +" s_381)))" +" s_382))" "(()" -"(let-values(((s_257)" +"(let-values(((s_255)" "(cdr" -" s_383)))" -"(let-values(((s_258)" +" s_381)))" +"(let-values(((s_256)" "(if(1/syntax?" -" s_257)" +" s_255)" "(syntax-e$2" -" s_257)" -" s_257)))" +" s_255)" +" s_255)))" "(values)))))" "(values" " els91_0))))))" @@ -32058,19 +32059,19 @@ static const char *startup_source = "(add-binding-info)" "(lambda(locals_4 idss_0 rhss_0)" "(begin" -"(let-values(((lst_236) idss_0)((lst_237) rhss_0))" +"(let-values(((lst_235) idss_0)((lst_236) rhss_0))" "(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_235)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_236)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_237)))" "((letrec-values(((for-loop_217)" -"(lambda(locals_5 lst_238 lst_239)" +"(lambda(locals_5 lst_237 lst_238)" "(begin" " 'for-loop" -"(if(if(pair? lst_238)(pair? lst_239) #f)" -"(let-values(((ids_14)(unsafe-car lst_238))" -"((rest_126)(unsafe-cdr lst_238))" -"((rhs_10)(unsafe-car lst_239))" -"((rest_127)(unsafe-cdr lst_239)))" +"(if(if(pair? lst_237)(pair? lst_238) #f)" +"(let-values(((ids_14)(unsafe-car lst_237))" +"((rest_126)(unsafe-cdr lst_237))" +"((rhs_10)(unsafe-car lst_238))" +"((rest_127)(unsafe-cdr lst_238)))" "(let-values(((locals_6)" "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" @@ -32095,10 +32096,10 @@ static const char *startup_source = "(let-values(((field-count_0)" "(extract-struct-field-count-lower-bound" " rhs_11)))" -"(let-values(((lst_240)" +"(let-values(((lst_239)" "(correlated->list" " ids_14))" -"((lst_241)" +"((lst_240)" " '(struct-type" " constructor" " predicate" @@ -32110,36 +32111,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_240)))" +" lst_239)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_241)))" +" lst_240)))" "((letrec-values(((for-loop_218)" "(lambda(locals_9" -" lst_242" -" lst_243)" +" lst_241" +" lst_242)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_242)" +" lst_241)" "(pair?" -" lst_243)" +" lst_242)" " #f)" "(let-values(((id_50)" "(unsafe-car" -" lst_242))" +" lst_241))" "((rest_128)" "(unsafe-cdr" -" lst_242))" +" lst_241))" "((type_0)" "(unsafe-car" -" lst_243))" +" lst_242))" "((rest_129)" "(unsafe-cdr" -" lst_243)))" +" lst_242)))" "(let-values(((locals_10)" "(let-values(((locals_11)" " locals_9))" @@ -32164,8 +32165,8 @@ static const char *startup_source = " locals_9)))))" " for-loop_218)" " locals_7" -" lst_240" -" lst_241)))))" +" lst_239" +" lst_240)))))" "(if(equal?" " tmp_26" " 'let-values)" @@ -32180,7 +32181,7 @@ static const char *startup_source = " rhs_11)))" "(loop_90 #f)))" "(let-values()" -"(let-values(((lst_244)" +"(let-values(((lst_243)" "(correlated->list" " ids_14)))" "(begin" @@ -32189,20 +32190,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_244)))" +" lst_243)))" "((letrec-values(((for-loop_219)" "(lambda(locals_13" -" lst_245)" +" lst_244)" "(begin" " 'for-loop" "(if(pair?" -" lst_245)" +" lst_244)" "(let-values(((id_51)" "(unsafe-car" -" lst_245))" +" lst_244))" "((rest_130)" "(unsafe-cdr" -" lst_245)))" +" lst_244)))" "(let-values(((locals_14)" "(let-values(((locals_15)" " locals_13))" @@ -32224,7 +32225,7 @@ static const char *startup_source = " locals_13)))))" " for-loop_219)" " locals_7" -" lst_244)))))))))))" +" lst_243)))))))))))" " loop_90)" " rhs_10))))" "(values locals_8)))))" @@ -32232,35 +32233,35 @@ static const char *startup_source = " locals_5)))))" " for-loop_217)" " locals_4" -" lst_236" -" lst_237))))))" +" lst_235" +" lst_236))))))" "(define-values" "(ok-make-struct-type-property?)" "(lambda(e_65 defns_3)" "(begin" "(let-values(((l_57)(correlated->list e_65)))" "(if(<= 2(length l_57) 5)" -"(let-values(((lst_246)(cdr l_57))" -"((lst_247)" +"(let-values(((lst_245)(cdr l_57))" +"((lst_246)" "(list" -"(lambda(v_157)(quoted? symbol? v_157))" -"(lambda(v_158)(is-lambda? v_158 2 defns_3))" -"(lambda(v_159)(ok-make-struct-type-property-super? v_159 defns_3))" -"(lambda(v_160)" -"(let-values(((v92_0) v_160)((temp93_1) 1)((defns94_0) defns_3))" +"(lambda(v_158)(quoted? symbol? v_158))" +"(lambda(v_159)(is-lambda? v_159 2 defns_3))" +"(lambda(v_160)(ok-make-struct-type-property-super? v_160 defns_3))" +"(lambda(v_161)" +"(let-values(((v92_0) v_161)((temp93_1) 1)((defns94_0) defns_3))" "(any-side-effects?9.1 defns94_0 #t #f #f #f #f v92_0 temp93_1))))))" "(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_245)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_246)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_247)))" "((letrec-values(((for-loop_172)" -"(lambda(result_94 lst_146 lst_248)" +"(lambda(result_94 lst_147 lst_247)" "(begin" " 'for-loop" -"(if(if(pair? lst_146)(pair? lst_248) #f)" -"(let-values(((arg_0)(unsafe-car lst_146))" -"((rest_131)(unsafe-cdr lst_146))" -"((pred_1)(unsafe-car lst_248))" -"((rest_132)(unsafe-cdr lst_248)))" +"(if(if(pair? lst_147)(pair? lst_247) #f)" +"(let-values(((arg_0)(unsafe-car lst_147))" +"((rest_131)(unsafe-cdr lst_147))" +"((pred_1)(unsafe-car lst_247))" +"((rest_132)(unsafe-cdr lst_247)))" "(let-values(((result_95)" "(let-values()" "(let-values(((result_96)" @@ -32274,33 +32275,33 @@ static const char *startup_source = " result_94)))))" " for-loop_172)" " #t" -" lst_246" -" lst_247)))" +" lst_245" +" lst_246)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_161 defns_4)" +"(lambda(v_162 defns_4)" "(begin" -"(let-values(((or-part_238)(quoted? null? v_161)))" +"(let-values(((or-part_238)(quoted? null? v_162)))" "(if or-part_238" " or-part_238" -"(let-values(((or-part_239)(eq? 'null(correlated-e v_161))))" +"(let-values(((or-part_239)(eq? 'null(correlated-e v_162))))" "(if or-part_239" " or-part_239" -"(if(pair?(correlated-e v_161))" -"(if(eq?(correlated-e(car(correlated-e v_161))) 'list)" -"(if(let-values(((lst_249)(cdr(correlated->list v_161))))" +"(if(pair?(correlated-e v_162))" +"(if(eq?(correlated-e(car(correlated-e v_162))) 'list)" +"(if(let-values(((lst_248)(cdr(correlated->list v_162))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_249)))" +"(let-values()(check-list lst_248)))" "((letrec-values(((for-loop_220)" -"(lambda(result_97 lst_250)" +"(lambda(result_97 lst_249)" "(begin" " 'for-loop" -"(if(pair? lst_250)" -"(let-values(((prop+val_0)(unsafe-car lst_250))" -"((rest_133)(unsafe-cdr lst_250)))" +"(if(pair? lst_249)" +"(let-values(((prop+val_0)(unsafe-car lst_249))" +"((rest_133)(unsafe-cdr lst_249)))" "(let-values(((result_98)" "(let-values()" "(let-values(((result_99)" @@ -32365,22 +32366,22 @@ static const char *startup_source = " result_97)))))" " for-loop_220)" " #t" -" lst_249)))" +" lst_248)))" "(=" -"(sub1(correlated-length v_161))" +"(sub1(correlated-length v_162))" "(set-count" -"(let-values(((lst_251)(cdr(correlated->list v_161))))" +"(let-values(((lst_250)(cdr(correlated->list v_162))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_251)))" +"(let-values()(check-list lst_250)))" "((letrec-values(((for-loop_221)" -"(lambda(table_177 lst_252)" +"(lambda(table_177 lst_251)" "(begin" " 'for-loop" -"(if(pair? lst_252)" -"(let-values(((prop+val_2)(unsafe-car lst_252))" -"((rest_134)(unsafe-cdr lst_252)))" +"(if(pair? lst_251)" +"(let-values(((prop+val_2)(unsafe-car lst_251))" +"((rest_134)(unsafe-cdr lst_251)))" "(let-values(((table_178)" "(let-values(((table_179) table_177))" "(let-values(((table_180)" @@ -32404,7 +32405,7 @@ static const char *startup_source = " table_177)))))" " for-loop_221)" " '#hash()" -" lst_251)))))" +" lst_250)))))" " #f)" " #f)" " #f))))))))" @@ -32425,16 +32426,16 @@ static const char *startup_source = "(let-values(((super-expr_0)(if(>(length l_58) 2)(list-ref l_58 2) #f)))" "(if(>=(length l_58) 5)" "(if(<=(length l_58) 12)" -"(let-values(((lst_253)(cdr l_58))" -"((lst_254)" +"(let-values(((lst_252)(cdr l_58))" +"((lst_253)" "(list" -"(lambda(v_162)(quoted? symbol? v_162))" -"(lambda(v_163)(super-ok? v_163 defns_5))" -"(lambda(v_164)(field-count-expr-to-field-count v_164))" +"(lambda(v_163)(quoted? symbol? v_163))" +"(lambda(v_164)(super-ok? v_164 defns_5))" "(lambda(v_165)(field-count-expr-to-field-count v_165))" -"(lambda(v_166)" +"(lambda(v_166)(field-count-expr-to-field-count v_166))" +"(lambda(v_167)" "(not" -"(let-values(((v98_0) v_166)" +"(let-values(((v98_0) v_167)" "((temp99_0) 1)" "((ready-variable?100_0) ready-variable?_1)" "((defns101_0) defns_5))" @@ -32447,27 +32448,27 @@ static const char *startup_source = " #t" " v98_0" " temp99_0))))" -"(lambda(v_167)" -"(known-good-struct-properties? v_167 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_168)(inspector-or-false? v_168))" -"(lambda(v_169)(procedure-spec? v_169 num-fields_0))" -"(lambda(v_170)(immutables-ok? v_170 init-field-count-expr_0)))))" +"(lambda(v_168)" +"(known-good-struct-properties? v_168 immutables-expr_0 super-expr_0 defns_5))" +"(lambda(v_169)(inspector-or-false? v_169))" +"(lambda(v_170)(procedure-spec? v_170 num-fields_0))" +"(lambda(v_171)(immutables-ok? v_171 init-field-count-expr_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_252)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_253)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_254)))" "((letrec-values(((for-loop_222)" -"(lambda(result_100 lst_255 lst_128)" +"(lambda(result_100 lst_254 lst_129)" "(begin" " 'for-loop" -"(if(if(pair? lst_255)(pair? lst_128) #f)" -"(let-values(((arg_1)(unsafe-car lst_255))" -"((rest_64)(unsafe-cdr lst_255))" -"((pred_2)(unsafe-car lst_128))" -"((rest_135)(unsafe-cdr lst_128)))" +"(if(if(pair? lst_254)(pair? lst_129) #f)" +"(let-values(((arg_1)(unsafe-car lst_254))" +"((rest_64)(unsafe-cdr lst_254))" +"((pred_2)(unsafe-car lst_129))" +"((rest_135)(unsafe-cdr lst_129)))" "(let-values(((result_101)" "(let-values()" "(let-values(((result_102)" @@ -32484,8 +32485,8 @@ static const char *startup_source = " result_100)))))" " for-loop_222)" " #t" -" lst_253" -" lst_254)))" +" lst_252" +" lst_253)))" " #f)" " #f))))))))))" "(define-values" @@ -32505,60 +32506,60 @@ static const char *startup_source = "(+(field-count-expr-to-field-count(list-ref l_59 3))(field-count-expr-to-field-count(list-ref l_59 4)))))))" "(define-values" "(quoted?)" -"(lambda(val?_0 v_171)" +"(lambda(val?_0 v_172)" "(begin" "(let-values(((or-part_243)" -"(if(pair?(correlated-e v_171))" -"(if(eq?(correlated-e(car(correlated-e v_171))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_171)))" +"(if(pair?(correlated-e v_172))" +"(if(eq?(correlated-e(car(correlated-e v_172))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_172)))" " #f)" " #f)))" -"(if or-part_243 or-part_243(val?_0(correlated-e v_171)))))))" +"(if or-part_243 or-part_243(val?_0(correlated-e v_172)))))))" "(define-values" "(quoted-value)" -"(lambda(v_172)" -"(begin(if(pair?(correlated-e v_172))(correlated-e(correlated-cadr v_172))(correlated-e v_172)))))" -"(define-values(false?)(lambda(v_173)(begin(eq?(correlated-e v_173) #f))))" +"(lambda(v_173)" +"(begin(if(pair?(correlated-e v_173))(correlated-e(correlated-cadr v_173))(correlated-e v_173)))))" +"(define-values(false?)(lambda(v_174)(begin(eq?(correlated-e v_174) #f))))" "(define-values" "(field-count-expr-to-field-count)" -"(lambda(v_174)(begin(if(quoted? exact-nonnegative-integer? v_174)(quoted-value v_174) #f))))" +"(lambda(v_175)(begin(if(quoted? exact-nonnegative-integer? v_175)(quoted-value v_175) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_175)" +"(lambda(v_176)" "(begin" -"(let-values(((or-part_244)(quoted? false? v_175)))" +"(let-values(((or-part_244)(quoted? false? v_176)))" "(if or-part_244" " or-part_244" -"(let-values(((or-part_245)(if(quoted? symbol? v_175)(eq? 'prefab(quoted-value v_175)) #f)))" +"(let-values(((or-part_245)(if(quoted? symbol? v_176)(eq? 'prefab(quoted-value v_176)) #f)))" "(if or-part_245" " or-part_245" -"(if(= 1(correlated-length v_175))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_175))))" +"(if(= 1(correlated-length v_176))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_176))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_176 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_177 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_246)(quoted? null? v_176)))" +"(let-values(((or-part_246)(quoted? null? v_177)))" "(if or-part_246" " or-part_246" -"(let-values(((or-part_247)(eq? 'null(correlated-e v_176))))" +"(let-values(((or-part_247)(eq? 'null(correlated-e v_177))))" "(if or-part_247" " or-part_247" -"(if(pair?(correlated-e v_176))" -"(if(eq?(correlated-e(car(correlated-e v_176))) 'list)" -"(if(let-values(((lst_256)(cdr(correlated->list v_176))))" +"(if(pair?(correlated-e v_177))" +"(if(eq?(correlated-e(car(correlated-e v_177))) 'list)" +"(if(let-values(((lst_255)(cdr(correlated->list v_177))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_256)))" +"(let-values()(check-list lst_255)))" "((letrec-values(((for-loop_223)" -"(lambda(result_103 lst_257)" +"(lambda(result_103 lst_256)" "(begin" " 'for-loop" -"(if(pair? lst_257)" -"(let-values(((prop+val_3)(unsafe-car lst_257))" -"((rest_136)(unsafe-cdr lst_257)))" +"(if(pair? lst_256)" +"(let-values(((prop+val_3)(unsafe-car lst_256))" +"((rest_136)(unsafe-cdr lst_256)))" "(let-values(((result_104)" "(let-values()" "(let-values(((result_105)" @@ -32592,22 +32593,22 @@ static const char *startup_source = " result_103)))))" " for-loop_223)" " #t" -" lst_256)))" +" lst_255)))" "(=" -"(sub1(correlated-length v_176))" +"(sub1(correlated-length v_177))" "(set-count" -"(let-values(((lst_258)(cdr(correlated->list v_176))))" +"(let-values(((lst_257)(cdr(correlated->list v_177))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_258)))" +"(let-values()(check-list lst_257)))" "((letrec-values(((for-loop_224)" -"(lambda(table_181 lst_259)" +"(lambda(table_181 lst_258)" "(begin" " 'for-loop" -"(if(pair? lst_259)" -"(let-values(((prop+val_5)(unsafe-car lst_259))" -"((rest_137)(unsafe-cdr lst_259)))" +"(if(pair? lst_258)" +"(let-values(((prop+val_5)(unsafe-car lst_258))" +"((rest_137)(unsafe-cdr lst_258)))" "(let-values(((table_182)" "(let-values(((table_183) table_181))" "(let-values(((table_184)" @@ -32631,7 +32632,7 @@ static const char *startup_source = " table_181)))))" " for-loop_224)" " '#hash()" -" lst_258)))))" +" lst_257)))))" " #f)" " #f)" " #f))))))))" @@ -32732,11 +32733,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_68)))" "((letrec-values(((for-loop_225)" -"(lambda(result_106 lst_260)" +"(lambda(result_106 lst_259)" "(begin" " 'for-loop" -"(if(pair? lst_260)" -"(let-values(((a_41)(unsafe-car lst_260))((rest_138)(unsafe-cdr lst_260)))" +"(if(pair? lst_259)" +"(let-values(((a_41)(unsafe-car lst_259))((rest_138)(unsafe-cdr lst_259)))" "(let-values(((result_107)" "(let-values()" "(let-values(((result_108)" @@ -32765,10 +32766,10 @@ static const char *startup_source = "(let-values(((tmp_28)(if(pair?(correlated-e e_69))(correlated-e(car(correlated-e e_69))) #f)))" "(if(equal? tmp_28 'quote)" "(let-values()" -"(let-values(((v_177)(correlated-cadr e_69)))" +"(let-values(((v_178)(correlated-cadr e_69)))" "(let-values(((or-part_255)" -"(if(correlated-length v_177)" -"(let-values(((l_61)(map2 correlated-e(correlated->list v_177))))" +"(if(correlated-length v_178)" +"(let-values(((l_61)(map2 correlated-e(correlated->list v_178))))" "(if(andmap2 exact-nonnegative-integer? l_61)" "(if(=(length l_61)(set-count(list->set l_61))) l_61 #f)" " #f))" @@ -32794,17 +32795,17 @@ static const char *startup_source = "(let-values(((l_62)(immutables-expr-to-immutables e_71 #f)))" "(let-values(((c_24)(field-count-expr-to-field-count init-field-count-expr_1)))" "(if l_62" -"(let-values(((lst_261) l_62))" +"(let-values(((lst_260) l_62))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_261)))" +"(let-values()(check-list lst_260)))" "((letrec-values(((for-loop_226)" -"(lambda(result_109 lst_118)" +"(lambda(result_109 lst_119)" "(begin" " 'for-loop" -"(if(pair? lst_118)" -"(let-values(((n_26)(unsafe-car lst_118))((rest_59)(unsafe-cdr lst_118)))" +"(if(pair? lst_119)" +"(let-values(((n_26)(unsafe-car lst_119))((rest_59)(unsafe-cdr lst_119)))" "(let-values(((result_110)" "(let-values()" "(let-values(((result_111)" @@ -32816,7 +32817,7 @@ static const char *startup_source = " result_109)))))" " for-loop_226)" " #t" -" lst_261)))" +" lst_260)))" " #f))))))" "(define-values" "(ok-make-struct-field-accessor/mutator?)" @@ -32912,10 +32913,10 @@ static const char *startup_source = "(let-values()(set! purely-functional?_0 #f))" "(void))))" "((temp25_3)" -"(lambda(s_385 cctx_14)" +"(lambda(s_383 cctx_14)" "(begin" "(set! purely-functional?_0 #f)" -"(compile-top-level-require s_385 cctx_14))))" +"(compile-top-level-require s_383 cctx_14))))" "((temp26_1)(not single-expression?_0)))" "(compile-forms31.1" " temp20_0" @@ -32968,11 +32969,11 @@ static const char *startup_source = "(let-values(((link-linklet_0)" "((if to-source?_2" " values" -"(lambda(s_161)" +"(lambda(s_159)" "(let-values()" "(let-values(((linklet_2 new-keys_0)" "(1/compile-linklet" -" s_161" +" s_159" " #f" "(vector" " deserialize-instance" @@ -33069,11 +33070,11 @@ static const char *startup_source = "(let-values(((ht_122)(make-hasheq)))" "(begin(hash-set! defined-syms_7 phase_82 ht_122) ht_122))))))" "(reverse$1" -"(let-values(((lst_80) ids_15))" +"(let-values(((lst_81) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" +"(let-values()(check-list lst_81)))" "((letrec-values(((for-loop_227)" "(lambda(fold-var_12 lst_172)" "(begin" @@ -33114,7 +33115,7 @@ static const char *startup_source = "(lambda(pos_97)" "(begin" " 'loop" -"(let-values(((s_179)" +"(let-values(((s_177)" "(string->unreadable-symbol" "(format" " \"~a.~a\"" @@ -33123,7 +33124,7 @@ static const char *startup_source = "(if(defined-as-other?" "(hash-ref" " defined-syms-at-phase_0" -" s_179" +" s_177" " #f)" " id_52" " phase_82" @@ -33131,7 +33132,7 @@ static const char *startup_source = "(loop_92" "(add1" " pos_97))" -" s_179))))))" +" s_177))))))" " loop_92)" " 1))))" "(let-values((()" @@ -33237,7 +33238,7 @@ static const char *startup_source = " fold-var_12)))))" " for-loop_227)" " null" -" lst_80)))))))))))))))))))" +" lst_81)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" "(lambda(id_53 all-scopes-stx_4 top-level-bind-scope_4 phase_83)" @@ -33313,11 +33314,11 @@ static const char *startup_source = "(let-values(((s_3)(add-scopes empty-syntax(root-expand-context-module-scopes root-ctx_4))))" "(let-values((()" "(begin" -"(let-values(((lst_262) requires_3))" +"(let-values(((lst_261) requires_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_262)))" +"(let-values()(check-list lst_261)))" "((letrec-values(((for-loop_228)" "(lambda(lst_16)" "(begin" @@ -33335,7 +33336,7 @@ static const char *startup_source = "(car" " phase+reqs_0)))" "(begin" -"(let-values(((lst_263)" +"(let-values(((lst_262)" "(cdr" " phase+reqs_0)))" "(begin" @@ -33344,32 +33345,32 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_263)))" +" lst_262)))" "((letrec-values(((for-loop_229)" -"(lambda(lst_79)" +"(lambda(lst_80)" "(begin" " 'for-loop" "(if(pair?" -" lst_79)" +" lst_80)" "(let-values(((req_4)" "(unsafe-car" -" lst_79))" +" lst_80))" "((rest_36)" "(unsafe-cdr" -" lst_79)))" +" lst_80)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((mpi_45)" +"(let-values(((mpi_46)" "(module-path-index-shift" " req_4" " original-self_0" " self_7)))" "(let-values(((mpi2_1)" -" mpi_45)" +" mpi_46)" "((s3_1)" " s_3)" "((self4_3)" @@ -33426,14 +33427,14 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_229)" -" lst_263)))" +" lst_262)))" "(void))))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_228 rest_4)(values))))" "(values))))))" " for-loop_228)" -" lst_262)))" +" lst_261)))" "(values))))" "(let-values()" "(let-values(((defined-syms_9)(root-expand-context-defined-syms root-ctx_4)))" @@ -33457,7 +33458,7 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_264)" +"(let-values(((lst_263)" "(1/linklet-export-variables" " linklet_3)))" "(begin" @@ -33465,19 +33466,19 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_264)))" +"(check-list lst_263)))" "((letrec-values(((for-loop_230)" -"(lambda(lst_265)" +"(lambda(lst_264)" "(begin" " 'for-loop" "(if(pair?" -" lst_265)" +" lst_264)" "(let-values(((sym_56)" "(unsafe-car" -" lst_265))" +" lst_264))" "((rest_139)" "(unsafe-cdr" -" lst_265)))" +" lst_264)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33544,7 +33545,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_230)" -" lst_264)))" +" lst_263)))" "(void)))" "(values)))))" "(values)))))" @@ -33562,11 +33563,11 @@ static const char *startup_source = "(begin" "(let-values(((outside-mpi_0)(root-expand-context-self-mpi root-context_0)))" "(let-values(((inside-mpi_0)(make-self-module-path-index(module-path-index-resolved outside-mpi_0))))" -"(let-values(((v_178) root-context_0))" -"(let-values(((the-struct_52) v_178))" +"(let-values(((v_179) root-context_0))" +"(let-values(((the-struct_52) v_179))" "(if(root-expand-context/outer? the-struct_52)" "(let-values(((inner16_0)" -"(let-values(((the-struct_53)(root-expand-context/outer-inner v_178)))" +"(let-values(((the-struct_53)(root-expand-context/outer-inner v_179)))" "(if(root-expand-context/inner? the-struct_53)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" @@ -33618,8 +33619,8 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((lst_42)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" -"((lst_266) import-module-uses_0)" -"((lst_89) import-module-instances_0)" +"((lst_265) import-module-uses_0)" +"((lst_90) import-module-instances_0)" "((lst_162)" "(let-values(((or-part_69) extra-inspectorsss_4))" "(if or-part_69 or-part_69 import-module-uses_0))))" @@ -33629,28 +33630,28 @@ static const char *startup_source = "(let-values()(check-list lst_42)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_266)))" +"(let-values()(check-list lst_265)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" +"(let-values()(check-list lst_90)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_162)))" "((letrec-values(((for-loop_230)" -"(lambda(lst_265 lst_267 lst_24 lst_102)" +"(lambda(lst_264 lst_266 lst_24 lst_103)" "(begin" " 'for-loop" -"(if(if(pair? lst_265)" -"(if(pair? lst_267)(if(pair? lst_24)(pair? lst_102) #f) #f)" +"(if(if(pair? lst_264)" +"(if(pair? lst_266)(if(pair? lst_24)(pair? lst_103) #f) #f)" " #f)" -"(let-values(((import-syms_0)(unsafe-car lst_265))" -"((rest_140)(unsafe-cdr lst_265))" -"((mu_7)(unsafe-car lst_267))" -"((rest_141)(unsafe-cdr lst_267))" +"(let-values(((import-syms_0)(unsafe-car lst_264))" +"((rest_140)(unsafe-cdr lst_264))" +"((mu_7)(unsafe-car lst_266))" +"((rest_141)(unsafe-cdr lst_266))" "((mi_16)(unsafe-car lst_24))" "((rest_43)(unsafe-cdr lst_24))" -"((extra-inspectorss_14)(unsafe-car lst_102))" -"((rest_117)(unsafe-cdr lst_102)))" +"((extra-inspectorss_14)(unsafe-car lst_103))" +"((rest_117)(unsafe-cdr lst_103)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33781,8 +33782,8 @@ static const char *startup_source = "(values))))))" " for-loop_230)" " lst_42" -" lst_266" -" lst_89" +" lst_265" +" lst_90" " lst_162)))" "(void)))))))))))))" "(define-values" @@ -33879,7 +33880,7 @@ static const char *startup_source = "(let-values(((phase-level_17)" " pos_98))" "(let-values(((table_186)" -"(let-values(((v_179)" +"(let-values(((v_180)" "(hash-ref" " h_1" " phase-level_17" @@ -33894,7 +33895,7 @@ static const char *startup_source = "(let-values(((table_188)" "(let-values(((table_189)" " table_187))" -"(if v_179" +"(if v_180" "(let-values(((table_190)" " table_189))" "(let-values(((table_191)" @@ -33905,7 +33906,7 @@ static const char *startup_source = "(values" " phase-level_17" "(1/eval-linklet" -" v_179)))))" +" v_180)))))" "(hash-set" " table_190" " key_72" @@ -33965,17 +33966,17 @@ static const char *startup_source = "(let-values()" "(check-list lst_20)))" "((letrec-values(((for-loop_234)" -"(lambda(lst_93)" +"(lambda(lst_94)" "(begin" " 'for-loop" "(if(pair?" -" lst_93)" +" lst_94)" "(let-values(((c_25)" "(unsafe-car" -" lst_93))" +" lst_94))" "((rest_44)" "(unsafe-cdr" -" lst_93)))" +" lst_94)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -34008,13 +34009,13 @@ static const char *startup_source = " lst_20)))" "(void))" "(begin" -"(let-values(((lst_94) names_0))" +"(let-values(((lst_95) names_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_94)))" +"(check-list lst_95)))" "((letrec-values(((for-loop_235)" "(lambda(lst_7)" "(begin" @@ -34068,7 +34069,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_235)" -" lst_94)))" +" lst_95)))" "(void)))))" " void)))" "(let-values(((declare-this-module_0)" @@ -34181,7 +34182,7 @@ static const char *startup_source = " import-instances_0)" "(let-values(((mis_1" " is_0)" -"(let-values(((lst_268)" +"(let-values(((lst_267)" " module-uses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34189,21 +34190,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_268)))" +" lst_267)))" "((letrec-values(((for-loop_236)" "(lambda(mis_2" " is_1" -" lst_269)" +" lst_268)" "(begin" " 'for-loop" "(if(pair?" -" lst_269)" +" lst_268)" "(let-values(((mu_8)" "(unsafe-car" -" lst_269))" +" lst_268))" "((rest_143)" "(unsafe-cdr" -" lst_269)))" +" lst_268)))" "(let-values(((mis_3" " is_2)" "(let-values(((mis_4)" @@ -34264,7 +34265,7 @@ static const char *startup_source = " for-loop_236)" " null" " null" -" lst_268)))))" +" lst_267)))))" "(values" "(reverse$1" " mis_1)" @@ -34743,7 +34744,7 @@ static const char *startup_source = " null)" "(let-values()" "(reverse$1" -"(let-values(((lst_87)" +"(let-values(((lst_88)" "(cons" " b_69" "(module-binding-extra-nominal-bindings" @@ -34754,20 +34755,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_87)))" +" lst_88)))" "((letrec-values(((for-loop_239)" "(lambda(fold-var_220" -" lst_270)" +" lst_269)" "(begin" " 'for-loop" "(if(pair?" -" lst_270)" +" lst_269)" "(let-values(((b_70)" "(unsafe-car" -" lst_270))" +" lst_269))" "((rest_144)" "(unsafe-cdr" -" lst_270)))" +" lst_269)))" "(let-values(((fold-var_29)" "(let-values(((fold-var_30)" " fold-var_220))" @@ -34809,7 +34810,7 @@ static const char *startup_source = " fold-var_220)))))" " for-loop_239)" " null" -" lst_87)))))))))" +" lst_88)))))))))" " fold-var_218))))" "(values" " fold-var_219)))" @@ -34916,17 +34917,17 @@ static const char *startup_source = "(check-list lst_18)))" "((letrec-values(((for-loop_240)" "(lambda(fold-var_18" -" lst_271)" +" lst_270)" "(begin" " 'for-loop" "(if(pair?" -" lst_271)" +" lst_270)" "(let-values(((var-sym_5)" "(unsafe-car" -" lst_271))" +" lst_270))" "((rest_145)" "(unsafe-cdr" -" lst_271)))" +" lst_270)))" "(let-values(((fold-var_70)" "(let-values(((fold-var_212)" " fold-var_18))" @@ -35136,12 +35137,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_172)))" "((letrec-values(((for-loop_50)" -"(lambda(ht_128 lst_272)" +"(lambda(ht_128 lst_271)" "(begin" " 'for-loop" -"(if(pair? lst_272)" -"(let-values(((submod_1)(unsafe-car lst_272))" -"((rest_146)(unsafe-cdr lst_272)))" +"(if(pair? lst_271)" +"(let-values(((submod_1)(unsafe-car lst_271))" +"((rest_146)(unsafe-cdr lst_271)))" "(let-values(((ht_129)" "(let-values(((ht_130) ht_128))" "(let-values(((ht_120)" @@ -35259,18 +35260,18 @@ static const char *startup_source = "(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_131 #f))))" "(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))" "(reverse$1" -"(let-values(((lst_86) names_1))" +"(let-values(((lst_87) names_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_86)))" +"(let-values()(check-list lst_87)))" "((letrec-values(((for-loop_105)" -"(lambda(fold-var_65 lst_87)" +"(lambda(fold-var_65 lst_88)" "(begin" " 'for-loop" -"(if(pair? lst_87)" -"(let-values(((name_55)(unsafe-car lst_87))" -"((rest_41)(unsafe-cdr lst_87)))" +"(if(pair? lst_88)" +"(let-values(((name_55)(unsafe-car lst_88))" +"((rest_41)(unsafe-cdr lst_88)))" "(let-values(((fold-var_66)" "(let-values(((fold-var_27) fold-var_65))" "(let-values(((fold-var_28)" @@ -35286,7 +35287,7 @@ static const char *startup_source = " fold-var_65)))))" " for-loop_105)" " null" -" lst_86))))))))" +" lst_87))))))))" "(let-values() null)))))))" "((c_38 non-star?_1 submods_1)" "(begin" @@ -35805,39 +35806,39 @@ static const char *startup_source = "(let-values(((ok?_25" " _69_0" " kw70_0)" -"(let-values(((s_386)" +"(let-values(((s_384)" "(parsed-s" " body_4)))" "(let-values(((orig-s_29)" -" s_386))" +" s_384))" "(let-values(((_69_1" " kw70_1)" +"(let-values(((s_385)" +"(if(syntax?$1" +" s_384)" +"(syntax-e$1" +" s_384)" +" s_384)))" +"(if(pair?" +" s_385)" +"(let-values(((_71_0)" +"(let-values(((s_56)" +"(car" +" s_385)))" +" s_56))" +"((kw72_0)" +"(let-values(((s_386)" +"(cdr" +" s_385)))" "(let-values(((s_387)" "(if(syntax?$1" " s_386)" "(syntax-e$1" " s_386)" " s_386)))" -"(if(pair?" -" s_387)" -"(let-values(((_71_0)" -"(let-values(((s_56)" -"(car" -" s_387)))" -" s_56))" -"((kw72_0)" -"(let-values(((s_388)" -"(cdr" -" s_387)))" -"(let-values(((s_389)" -"(if(syntax?$1" -" s_388)" -"(syntax-e$1" -" s_388)" -" s_388)))" "(let-values(((flat-s_18)" "(to-syntax-list.1" -" s_389)))" +" s_387)))" "(if(not" " flat-s_18)" "(let-values()" @@ -35859,7 +35860,7 @@ static const char *startup_source = " _69_1" " kw70_1))))))" "(begin" -"(let-values(((lst_273)" +"(let-values(((lst_272)" " kw70_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -35867,19 +35868,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_273)))" +" lst_272)))" "((letrec-values(((for-loop_13)" -"(lambda(lst_274)" +"(lambda(lst_273)" "(begin" " 'for-loop" "(if(pair?" -" lst_274)" +" lst_273)" "(let-values(((kw_0)" "(unsafe-car" -" lst_274))" +" lst_273))" "((rest_147)" "(unsafe-cdr" -" lst_274)))" +" lst_273)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -35916,7 +35917,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_13)" -" lst_273)))" +" lst_272)))" "(void)" " #f)))" "(let-values() #f))))" @@ -35981,7 +35982,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_133)))" -"((letrec-values(((for-loop_242)" +"((letrec-values(((for-loop_23)" "(lambda(table_199" " i_156)" "(begin" @@ -36025,14 +36026,14 @@ static const char *startup_source = " table_202)))))" "(if(not" " #f)" -"(for-loop_242" +"(for-loop_23" " table_200" "(hash-iterate-next" " ht_133" " i_156))" " table_200)))" " table_199)))))" -" for-loop_242)" +" for-loop_23)" " '#hasheq()" "(hash-iterate-first ht_133))))))" "(void))" @@ -36041,10 +36042,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_390)" +"(lambda(s_388)" "(let-values()" "(1/compile-linklet" -" s_390" +" s_388" " 'decl))))" "(list" " 'linklet" @@ -36096,12 +36097,12 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_319)" +"(lambda(s_317)" "(let-values()" "(let-values(((linklet_7" " new-keys_1)" "(1/compile-linklet" -" s_319" +" s_317" " 'syntax-literals" "(vector" " deserialize-instance" @@ -36164,10 +36165,10 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_391)" +"(lambda(s_389)" "(let-values()" "(1/compile-linklet" -" s_391" +" s_389" " 'syntax-literals-data))))" "(list*" " 'linklet" @@ -36196,10 +36197,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_38)" +"(lambda(s_203)" "(let-values()" "(1/compile-linklet" -" s_38" +" s_203" " 'data))))" "(list" " 'linklet" @@ -36342,7 +36343,7 @@ static const char *startup_source = "((if to-source?_4" " values" " 1/hash->linklet-directory)" -"(let-values(((lst_205)" +"(let-values(((lst_204)" "(append" " pre-submodules_1" " post-submodules_1)))" @@ -36352,20 +36353,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_205)))" +" lst_204)))" "((letrec-values(((for-loop_122)" "(lambda(ht_134" -" lst_275)" +" lst_274)" "(begin" " 'for-loop" "(if(pair?" -" lst_275)" +" lst_274)" "(let-values(((sm_0)" "(unsafe-car" -" lst_275))" +" lst_274))" "((rest_148)" "(unsafe-cdr" -" lst_275)))" +" lst_274)))" "(let-values(((ht_135)" "(let-values(((ht_136)" " ht_134))" @@ -36391,7 +36392,7 @@ static const char *startup_source = " ht_134)))))" " for-loop_122)" "(hasheq #f bundle_1)" -" lst_205))))))))" +" lst_204))))))))" "(if to-source?_4" "(let-values() ld_4)" "(let-values()" @@ -36423,23 +36424,23 @@ static const char *startup_source = "(lambda(modules-being-compiled_2 pre-submodules_2 self_26)" "(begin" "(begin" -"(let-values(((lst_276) pre-submodules_2))" +"(let-values(((lst_275) pre-submodules_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_276)))" -"((letrec-values(((for-loop_243)" -"(lambda(lst_277)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_275)))" +"((letrec-values(((for-loop_242)" +"(lambda(lst_276)" "(begin" " 'for-loop" -"(if(pair? lst_277)" -"(let-values(((s_106)(unsafe-car lst_277))((rest_149)(unsafe-cdr lst_277)))" +"(if(pair? lst_276)" +"(let-values(((s_105)(unsafe-car lst_276))((rest_149)(unsafe-cdr lst_276)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name_60)(car s_106)))" -"(let-values(((cim_10)(cdr s_106)))" +"(let-values(((name_60)(car s_105)))" +"(let-values(((cim_10)(cdr s_105)))" "(let-values(((phase-to-link-module-uses_5)" "(compiled-in-memory-phase-to-link-module-uses" " cim_10)))" @@ -36475,7 +36476,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_137)))" -"((letrec-values(((for-loop_244)" +"((letrec-values(((for-loop_243)" "(lambda(table_203" " i_5)" "(begin" @@ -36526,23 +36527,23 @@ static const char *startup_source = " table_205))))" "(if(not" " #f)" -"(for-loop_244" +"(for-loop_243" " table_204" "(hash-iterate-next" " ht_137" " i_5))" " table_204)))" " table_203)))))" -" for-loop_244)" +" for-loop_243)" " '#hasheq()" "(hash-iterate-first" " ht_137))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_243 rest_149)(values))))" +"(if(not #f)(for-loop_242 rest_149)(values))))" "(values))))))" -" for-loop_243)" -" lst_276)))" +" for-loop_242)" +" lst_275)))" "(void)))))" "(define-values" "(filter-language-info)" @@ -36570,7 +36571,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_138)))" -"((letrec-values(((for-loop_245)" +"((letrec-values(((for-loop_244)" "(lambda(table_207 i_157)" "(begin" " 'for-loop" @@ -36593,10 +36594,10 @@ static const char *startup_source = "(hash-set table_209 key_79 val_68)))))" "(values table_210)))))" "(if(not #f)" -"(for-loop_245 table_208(hash-iterate-next ht_138 i_157))" +"(for-loop_244 table_208(hash-iterate-next ht_138 i_157))" " table_208)))" " table_207)))))" -" for-loop_245)" +" for-loop_244)" " '#hasheq()" "(hash-iterate-first ht_138))))))" "(if(1/linklet-directory? c_31)" @@ -36607,7 +36608,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_139)))" -"((letrec-values(((for-loop_246)" +"((letrec-values(((for-loop_245)" "(lambda(table_211 i_158)" "(begin" " 'for-loop" @@ -36631,10 +36632,10 @@ static const char *startup_source = "(hash-set table_213 key_80 val_69)))))" "(values table_214)))))" "(if(not #f)" -"(for-loop_246 table_212(hash-iterate-next ht_139 i_158))" +"(for-loop_245 table_212(hash-iterate-next ht_139 i_158))" " table_212)))" " table_211)))))" -" for-loop_246)" +" for-loop_245)" " '#hasheq()" "(hash-iterate-first ht_139))))))" "(let-values() c_31)))))))" @@ -36696,8 +36697,8 @@ static const char *startup_source = "(begin" " 'map-construct-compiled-in-memory" "(reverse$1" -"(let-values(((lst_266) l_10)" -"((lst_89)" +"(let-values(((lst_265) l_10)" +"((lst_90)" "(vector-ref" " mpi-vector-tree_0" " vec-pos_0))" @@ -36705,7 +36706,7 @@ static const char *startup_source = "(vector-ref" " phase-to-link-modules-tree_0" " vec-pos_0))" -"((lst_264)" +"((lst_263)" "(vector-ref" " syntax-literals-tree_0" " vec-pos_0)))" @@ -36713,11 +36714,11 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_266)))" +"(let-values()(check-list lst_265)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" +"(let-values()(check-list lst_90)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -36725,32 +36726,32 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_264)))" +"(let-values()(check-list lst_263)))" "((letrec-values(((for-loop_230)" "(lambda(fold-var_154" -" lst_267" +" lst_266" " lst_24" -" lst_102" -" lst_90)" +" lst_103" +" lst_91)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_267)" +" lst_266)" "(if(pair?" " lst_24)" "(if(pair?" -" lst_102)" +" lst_103)" "(pair?" -" lst_90)" +" lst_91)" " #f)" " #f)" " #f)" "(let-values(((sub-ld_0)" "(unsafe-car" -" lst_267))" +" lst_266))" "((rest_150)" "(unsafe-cdr" -" lst_267))" +" lst_266))" "((mpi-vector-tree_1)" "(unsafe-car" " lst_24))" @@ -36759,16 +36760,16 @@ static const char *startup_source = " lst_24))" "((phase-to-link-modules-tree_1)" "(unsafe-car" -" lst_102))" +" lst_103))" "((rest_87)" "(unsafe-cdr" -" lst_102))" +" lst_103))" "((syntax-literals-tree_1)" "(unsafe-car" -" lst_90))" +" lst_91))" "((rest_37)" "(unsafe-cdr" -" lst_90)))" +" lst_91)))" "(let-values(((fold-var_163)" "(let-values(((fold-var_164)" " fold-var_154))" @@ -36795,10 +36796,10 @@ static const char *startup_source = " fold-var_154)))))" " for-loop_230)" " null" -" lst_266" -" lst_89" +" lst_265" +" lst_90" " lst_162" -" lst_264))))))))" +" lst_263))))))))" "(compiled-in-memory1.1" " ld_6" " #f" @@ -36906,7 +36907,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_15 end_28 inc_22)))" -"((letrec-values(((for-loop_247)" +"((letrec-values(((for-loop_246)" "(lambda(i_162 pos_103)" "(begin" " 'for-loop" @@ -36944,14 +36945,14 @@ static const char *startup_source = " i_20))" "(not #f)" " #f)" -"(for-loop_247" +"(for-loop_246" " i_163" "(+" " pos_103" " inc_22))" " i_163)))" " i_162)))))" -" for-loop_247)" +" for-loop_246)" " 0" " start_15)))))" " v_34))))" @@ -36983,13 +36984,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_176)))" -"((letrec-values(((for-loop_248)" -"(lambda(fold-var_5 lst_278)" +"((letrec-values(((for-loop_247)" +"(lambda(fold-var_5 lst_277)" "(begin" " 'for-loop" -"(if(pair? lst_278)" -"(let-values(((name_44)(unsafe-car lst_278))" -"((rest_151)(unsafe-cdr lst_278)))" +"(if(pair? lst_277)" +"(let-values(((name_44)(unsafe-car lst_277))" +"((rest_151)(unsafe-cdr lst_277)))" "(let-values(((fold-var_225)" "(let-values(((fold-var_226) fold-var_5))" "(let-values(((fold-var_227)" @@ -37005,9 +37006,9 @@ static const char *startup_source = " name_44))))" " fold-var_226))))" "(values fold-var_227)))))" -"(if(not #f)(for-loop_248 fold-var_225 rest_151) fold-var_225)))" +"(if(not #f)(for-loop_247 fold-var_225 rest_151) fold-var_225)))" " fold-var_5)))))" -" for-loop_248)" +" for-loop_247)" " null" " lst_176))))))))))))))" "(define-values" @@ -37157,7 +37158,7 @@ static const char *startup_source = " import-instances_1)" "(let-values(((mis_6" " is_5)" -"(let-values(((lst_225)" +"(let-values(((lst_224)" " module-uses_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -37165,21 +37166,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_225)))" +" lst_224)))" "((letrec-values(((for-loop_99)" "(lambda(mis_7" " is_6" -" lst_226)" +" lst_225)" "(begin" " 'for-loop" "(if(pair?" -" lst_226)" +" lst_225)" "(let-values(((mu_9)" "(unsafe-car" -" lst_226))" +" lst_225))" "((rest_119)" "(unsafe-cdr" -" lst_226)))" +" lst_225)))" "(let-values(((mis_8" " is_7)" "(let-values(((mis_9)" @@ -37236,7 +37237,7 @@ static const char *startup_source = " for-loop_99)" " null" " null" -" lst_225)))))" +" lst_224)))))" "(values" "(reverse$1" " mis_6)" @@ -37422,7 +37423,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_32)))" -"(let-values(((v_180)(make-vector len_32 0)))" +"(let-values(((v_181)(make-vector len_32 0)))" "(begin" "(if(zero? len_32)" "(void)" @@ -37434,12 +37435,12 @@ static const char *startup_source = "(values vec_65(unsafe-vector-length vec_65))))))" "(begin" " #f" -"((letrec-values(((for-loop_249)" +"((letrec-values(((for-loop_248)" "(lambda(i_165 pos_105)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_105 len_33)" -"(let-values(((s_392)" +"(let-values(((s_390)" "(unsafe-vector-ref vec_64 pos_105)))" "(let-values(((i_166)" "(let-values(((i_167) i_165))" @@ -37447,11 +37448,11 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_180" +" v_181" " i_167" "(let-values()" "(swap-top-level-scopes" -" s_392" +" s_390" "(compiled-in-memory-namespace-scopes" " cim_11)" " to-ns_0)))" @@ -37462,16 +37463,16 @@ static const char *startup_source = "(if(if(not" "((lambda x_71" "(unsafe-fx= i_166 len_32))" -" s_392))" +" s_390))" "(not #f)" " #f)" -"(for-loop_249 i_166(unsafe-fx+ 1 pos_105))" +"(for-loop_248 i_166(unsafe-fx+ 1 pos_105))" " i_166)))" " i_165)))))" -" for-loop_249)" +" for-loop_248)" " 0" " 0)))))" -" v_180)))))))))" +" v_181)))))))))" "(1/make-instance" " 'link" " #f" @@ -37489,11 +37490,11 @@ static const char *startup_source = "(if(parsed-app? p_44)" "(let-values()" "(if(can-direct-eval?(parsed-app-rator p_44) ns_42 self-mpi_3)" -"(let-values(((lst_101)(parsed-app-rands p_44)))" +"(let-values(((lst_102)(parsed-app-rands p_44)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_101)))" +"(let-values()(check-list lst_102)))" "((letrec-values(((for-loop_111)" "(lambda(result_112 lst_6)" "(begin" @@ -37513,7 +37514,7 @@ static const char *startup_source = " result_112)))))" " for-loop_111)" " #t" -" lst_101)))" +" lst_102)))" " #f))" "(if(parsed-id? p_44)" "(let-values()(not(eq?(get-id-value p_44 ns_42 self-mpi_3) not-available)))" @@ -37529,15 +37530,15 @@ static const char *startup_source = "(apply" "(direct-eval(parsed-app-rator p_48) ns_71 self-mpi_4)" "(reverse$1" -"(let-values(((lst_78)(parsed-app-rands p_48)))" +"(let-values(((lst_79)(parsed-app-rands p_48)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_78)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_79)))" "((letrec-values(((for-loop_96)" -"(lambda(fold-var_228 lst_79)" +"(lambda(fold-var_228 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_79)" -"(let-values(((r_8)(unsafe-car lst_79))((rest_36)(unsafe-cdr lst_79)))" +"(if(pair? lst_80)" +"(let-values(((r_8)(unsafe-car lst_80))((rest_36)(unsafe-cdr lst_80)))" "(let-values(((fold-var_219)" "(let-values(((fold-var_65) fold-var_228))" "(let-values(((fold-var_26)" @@ -37551,7 +37552,7 @@ static const char *startup_source = " fold-var_228)))))" " for-loop_96)" " null" -" lst_78))))))" +" lst_79))))))" "(if(parsed-id? p_48)" "(let-values()(get-id-value p_48 ns_71 self-mpi_4))" "(if(parsed-quote? p_48)" @@ -37692,18 +37693,18 @@ static const char *startup_source = "(lambda(ids_17 rhs_13 phase_94)" "(let-values(((keys_2)" "(reverse$1" -"(let-values(((lst_279) ids_17))" +"(let-values(((lst_278) ids_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_279)))" -"((letrec-values(((for-loop_250)" -"(lambda(fold-var_229 lst_280)" +"(let-values()(check-list lst_278)))" +"((letrec-values(((for-loop_249)" +"(lambda(fold-var_229 lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_280)" -"(let-values(((id_57)(unsafe-car lst_280))" -"((rest_152)(unsafe-cdr lst_280)))" +"(if(pair? lst_279)" +"(let-values(((id_57)(unsafe-car lst_279))" +"((rest_152)(unsafe-cdr lst_279)))" "(let-values(((fold-var_81)" "(let-values(((fold-var_82) fold-var_229))" "(let-values(((fold-var_230)" @@ -37735,11 +37736,11 @@ static const char *startup_source = " key_82)))" " fold-var_82))))" "(values fold-var_230)))))" -"(if(not #f)(for-loop_250 fold-var_81 rest_152) fold-var_81)))" +"(if(not #f)(for-loop_249 fold-var_81 rest_152) fold-var_81)))" " fold-var_229)))))" -" for-loop_250)" +" for-loop_249)" " null" -" lst_279))))))" +" lst_278))))))" "(values ids_17(lifted-bind2.1 ids_17 keys_2 rhs_13)))))))" "(define-values" "(make-top-level-lift)" @@ -37751,12 +37752,12 @@ static const char *startup_source = "(namespace-get-root-expand-ctx(expand-context-namespace ctx_11)))))" "(let-values(((tl-ids_1)" "(reverse$1" -"(let-values(((lst_281) ids_18))" +"(let-values(((lst_280) ids_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_281)))" -"((letrec-values(((for-loop_251)" +"(let-values()(check-list lst_280)))" +"((letrec-values(((for-loop_250)" "(lambda(fold-var_231 lst_181)" "(begin" " 'for-loop" @@ -37775,12 +37776,12 @@ static const char *startup_source = " fold-var_233))))" "(values fold-var_234)))))" "(if(not #f)" -"(for-loop_251 fold-var_232 rest_153)" +"(for-loop_250 fold-var_232 rest_153)" " fold-var_232)))" " fold-var_231)))))" -" for-loop_251)" +" for-loop_250)" " null" -" lst_281))))))" +" lst_280))))))" "(let-values(((syms_20)(select-defined-syms-and-bind!/ctx tl-ids_1 ctx_11)))" "(values tl-ids_1(lifted-bind2.1 tl-ids_1 syms_20 rhs_14)))))))))" "(define-values" @@ -37789,10 +37790,10 @@ static const char *startup_source = "(begin" "(datum->syntax$1" " #f" -"(let-values(((lst_282)(reverse$1 lifts_3)))" +"(let-values(((lst_281)(reverse$1 lifts_3)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_282)))" -"((letrec-values(((for-loop_252)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_281)))" +"((letrec-values(((for-loop_251)" "(lambda(body_6 lst_190)" "(begin" " 'for-loop" @@ -37817,11 +37818,11 @@ static const char *startup_source = "(lifted-bind-rhs lift_0)))" " body_8)))))" "(values body_9)))))" -"(if(not #f)(for-loop_252 body_7 rest_98) body_7)))" +"(if(not #f)(for-loop_251 body_7 rest_98) body_7)))" " body_6)))))" -" for-loop_252)" +" for-loop_251)" " body_5" -" lst_282)))))))" +" lst_281)))))))" "(define-values" "(wrap-lifts-as-begin16.1)" "(lambda(adjust-body10_0 adjust-body12_0 adjust-form9_0 adjust-form11_0 lifts13_0 body14_0 phase15_0)" @@ -37839,11 +37840,11 @@ static const char *startup_source = "(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_96) 'begin)" "(append" "(reverse$1" -"(let-values(((lst_283) lifts_4))" +"(let-values(((lst_282) lifts_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_283)))" +"(let-values()(check-list lst_282)))" "((letrec-values(((for-loop_194)" "(lambda(fold-var_235 lst_169)" "(begin" @@ -37878,7 +37879,7 @@ static const char *startup_source = " fold-var_235)))))" " for-loop_194)" " null" -" lst_283))))" +" lst_282))))" "(list(adjust-body_0 body_10))))))))))))))" "(define-values" "(get-lifts-as-lists)" @@ -37888,12 +37889,12 @@ static const char *startup_source = "(let-values(((lst_195) lifts_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_195)))" -"((letrec-values(((for-loop_253)" -"(lambda(fold-var_98 lst_284)" +"((letrec-values(((for-loop_252)" +"(lambda(fold-var_98 lst_283)" "(begin" " 'for-loop" -"(if(pair? lst_284)" -"(let-values(((lift_2)(unsafe-car lst_284))((rest_155)(unsafe-cdr lst_284)))" +"(if(pair? lst_283)" +"(let-values(((lift_2)(unsafe-car lst_283))((rest_155)(unsafe-cdr lst_283)))" "(let-values(((fold-var_37)" "(let-values(((fold-var_38) fold-var_98))" "(let-values(((fold-var_238)" @@ -37906,9 +37907,9 @@ static const char *startup_source = "(lifted-bind-rhs lift_2)))" " fold-var_38))))" "(values fold-var_238)))))" -"(if(not #f)(for-loop_253 fold-var_37 rest_155) fold-var_37)))" +"(if(not #f)(for-loop_252 fold-var_37 rest_155) fold-var_37)))" " fold-var_98)))))" -" for-loop_253)" +" for-loop_252)" " null" " lst_195)))))))" "(define-values" @@ -37948,7 +37949,7 @@ static const char *startup_source = "(lambda(module-lifts_1)(begin(box-clear!(module-lift-context-lifts module-lifts_1)))))" "(define-values" "(add-lifted-module!)" -"(lambda(module-lifts_2 s_393 phase_98)" +"(lambda(module-lifts_2 s_391 phase_98)" "(begin" "(begin" "(if(let-values(((or-part_228)" @@ -37960,7 +37961,7 @@ static const char *startup_source = "(if(lift-context? module-lifts_2)(lift-context-module*-ok? module-lifts_2) #f)))" "(void)" "(let-values()" -"(let-values(((tmp_29)(core-form-sym s_393 phase_98)))" +"(let-values(((tmp_29)(core-form-sym s_391 phase_98)))" "(if(equal? tmp_29 'module)" "(let-values()(void))" "(if(equal? tmp_29 'module*)" @@ -37969,13 +37970,13 @@ static const char *startup_source = " 'syntax-local-lift-module" " \"cannot lift `module*' to a top-level context\"" " \"syntax\"" -" s_393))" +" s_391))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_393)))))))" +" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_391)))))))" "(if(module-lift-context? module-lifts_2)" -"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_393))" +"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_391))" "(if(lift-context? module-lifts_2)" -"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_393))" +"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_391))" " (let-values () (error \"internal error: unrecognized lift-context type for module lift\"))))))))" "(define-values" "(struct:require-lift-context" @@ -38014,11 +38015,11 @@ static const char *startup_source = "(lambda(require-lifts_1)(begin(box-clear!(require-lift-context-requires require-lifts_1)))))" "(define-values" "(add-lifted-require!)" -"(lambda(require-lifts_2 s_394 phase_99)" +"(lambda(require-lifts_2 s_392 phase_99)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_394 phase_99)" -"(box-cons!(require-lift-context-requires require-lifts_2) s_394)))))" +"((require-lift-context-do-require require-lifts_2) s_392 phase_99)" +"(box-cons!(require-lift-context-requires require-lifts_2) s_392)))))" "(define-values" "(struct:to-module-lift-context" " to-module-lift-context21.1" @@ -38068,12 +38069,12 @@ static const char *startup_source = "(lambda(to-module-lifts_2)(begin(box-clear!(to-module-lift-context-provides to-module-lifts_2)))))" "(define-values" "(add-lifted-to-module-provide!)" -"(lambda(to-module-lifts_3 s_218 phase_101)" -"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_218))))" +"(lambda(to-module-lifts_3 s_216 phase_101)" +"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_216))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_395 phase_102)" -"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_395))))" +"(lambda(to-module-lifts_4 s_393 phase_102)" +"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_393))))" "(define-values" "(struct:already-expanded already-expanded1.1 already-expanded? already-expanded-s already-expanded-binding-layer)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -38125,17 +38126,17 @@ static const char *startup_source = "(lambda(v_26 info_1)" "(begin" "(if(if(list? v_26)" -"(let-values(((lst_76) v_26))" +"(let-values(((lst_77) v_26))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_76)))" +"(let-values()(check-list lst_77)))" "((letrec-values(((for-loop_95)" -"(lambda(result_78 lst_77)" +"(lambda(result_78 lst_78)" "(begin" " 'for-loop" -"(if(pair? lst_77)" -"(let-values(((s_2)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" +"(if(pair? lst_78)" +"(let-values(((s_2)(unsafe-car lst_78))((rest_35)(unsafe-cdr lst_78)))" "(let-values(((result_65)" "(let-values()" "(let-values(((result_114)" @@ -38155,7 +38156,7 @@ static const char *startup_source = " result_78)))))" " for-loop_95)" " #t" -" lst_76)))" +" lst_77)))" " #f)" "(void)" "(let-values()" @@ -38174,7 +38175,7 @@ static const char *startup_source = "(define-values(context->symbol)(lambda(context_5)(begin(if(symbol? context_5) context_5 'definition-context))))" "(define-values" "(avoid-current-expand-context)" -"(lambda(s_171 t_44 ctx_13)" +"(lambda(s_169 t_44 ctx_13)" "(begin" "(let-values(((wrap_1)" "(lambda(sym_60)" @@ -38184,7 +38185,7 @@ static const char *startup_source = " #f" "(list" "(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_60)(expand-context-phase ctx_13))" -" s_171))))))" +" s_169))))))" "(let-values(((fail_0)" "(lambda()" "(begin" @@ -38194,7 +38195,7 @@ static const char *startup_source = "(format" " \"not allowed in context\\n expansion context: ~a\"" "(context->symbol(expand-context-context ctx_13)))" -" s_171)))))" +" s_169)))))" "(let-values(((tmp_30)(context->symbol(expand-context-context ctx_13))))" "(if(equal? tmp_30 'module-begin)" "(let-values()(wrap_1 'begin))" @@ -38244,11 +38245,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" "((letrec-values(((for-loop_185)" -"(lambda(lst_89)" +"(lambda(lst_90)" "(begin" " 'for-loop" -"(if(pair? lst_89)" -"(let-values(((rr_1)(unsafe-car lst_89))((rest_116)(unsafe-cdr lst_89)))" +"(if(pair? lst_90)" +"(let-values(((rr_1)(unsafe-car lst_90))((rest_116)(unsafe-cdr lst_90)))" "(let-values(((post-guard-var_0)(lambda()(begin 'post-guard-var #t))))" "(let-values()" "(if(reference-record-all-referenced? rr_1)" @@ -38275,27 +38276,27 @@ static const char *startup_source = "(let-values(((lst_24) keys_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_254)" -"(lambda(ab_3 lst_80)" +"((letrec-values(((for-loop_253)" +"(lambda(ab_3 lst_81)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((key_83)(unsafe-car lst_80))((rest_141)(unsafe-cdr lst_80)))" +"(if(pair? lst_81)" +"(let-values(((key_83)(unsafe-car lst_81))((rest_141)(unsafe-cdr lst_81)))" "(let-values(((ab_4)" "(let-values(((ab_5) ab_3))" "(let-values(((ab_6)(let-values()(set-add ab_5 key_83))))" "(values ab_6)))))" -"(if(not #f)(for-loop_254 ab_4 rest_141) ab_4)))" +"(if(not #f)(for-loop_253 ab_4 rest_141) ab_4)))" " ab_3)))))" -" for-loop_254)" +" for-loop_253)" "(reference-record-already-bound rr_2)" " lst_24))))" "(set-reference-record-reference-before-bound!" " rr_2" -"(let-values(((lst_272) keys_3))" +"(let-values(((lst_271) keys_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_272)))" -"((letrec-values(((for-loop_255)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_271)))" +"((letrec-values(((for-loop_254)" "(lambda(rbb_0 lst_25)" "(begin" " 'for-loop" @@ -38305,11 +38306,11 @@ static const char *startup_source = "(let-values(((rbb_2) rbb_0))" "(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_84))))" "(values rbb_3)))))" -"(if(not #f)(for-loop_255 rbb_1 rest_156) rbb_1)))" +"(if(not #f)(for-loop_254 rbb_1 rest_156) rbb_1)))" " rbb_0)))))" -" for-loop_255)" +" for-loop_254)" "(reference-record-reference-before-bound rr_2)" -" lst_272))))))))" +" lst_271))))))))" "(define-values" "(reference-record-forward-references?)" "(lambda(rr_3)" @@ -38511,7 +38512,7 @@ static const char *startup_source = " ?_10" "(make-struct-field-accessor -ref_10 0 's)" "(make-struct-field-accessor -ref_10 1 'body))))" -"(define-values(extract-syntax)(lambda(s_187)(begin(if(expanded+parsed? s_187)(expanded+parsed-s s_187) s_187))))" +"(define-values(extract-syntax)(lambda(s_185)(begin(if(expanded+parsed? s_185)(expanded+parsed-s s_185) s_185))))" "(define-values" "(parsed-only)" "(lambda(l_66)" @@ -38520,12 +38521,12 @@ static const char *startup_source = "(let-values(((lst_176) l_66))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" -"((letrec-values(((for-loop_248)" -"(lambda(fold-var_5 lst_278)" +"((letrec-values(((for-loop_247)" +"(lambda(fold-var_5 lst_277)" "(begin" " 'for-loop" -"(if(pair? lst_278)" -"(let-values(((i_26)(unsafe-car lst_278))((rest_151)(unsafe-cdr lst_278)))" +"(if(pair? lst_277)" +"(let-values(((i_26)(unsafe-car lst_277))((rest_151)(unsafe-cdr lst_277)))" "(let-values(((fold-var_225)" "(let-values(((fold-var_226) fold-var_5))" "(if(let-values(((or-part_267)(parsed? i_26)))" @@ -38554,9 +38555,9 @@ static const char *startup_source = " fold-var_156))))" "(values fold-var_172)))" " fold-var_226))))" -"(if(not #f)(for-loop_248 fold-var_225 rest_151) fold-var_225)))" +"(if(not #f)(for-loop_247 fold-var_225 rest_151) fold-var_225)))" " fold-var_5)))))" -" for-loop_248)" +" for-loop_247)" " null" " lst_176)))))))" "(define-values" @@ -38564,15 +38565,15 @@ static const char *startup_source = "(lambda(l_67)" "(begin" "(reverse$1" -"(let-values(((lst_279) l_67))" +"(let-values(((lst_278) l_67))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_279)))" -"((letrec-values(((for-loop_250)" -"(lambda(fold-var_229 lst_280)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_278)))" +"((letrec-values(((for-loop_249)" +"(lambda(fold-var_229 lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_280)" -"(let-values(((i_35)(unsafe-car lst_280))((rest_152)(unsafe-cdr lst_280)))" +"(if(pair? lst_279)" +"(let-values(((i_35)(unsafe-car lst_279))((rest_152)(unsafe-cdr lst_279)))" "(let-values(((fold-var_81)" "(let-values(((fold-var_82) fold-var_229))" "(if(let-values(((or-part_268)(syntax?$1 i_35)))" @@ -38591,7 +38592,7 @@ static const char *startup_source = "(let-values()(expanded+parsed-s i_35))" "(if(semi-parsed-begin-for-syntax? i_35)" "(let-values()" -"(let-values(((s_167)" +"(let-values(((s_165)" "(semi-parsed-begin-for-syntax-s" " i_35)))" "(let-values(((nested-bodys_0)" @@ -38599,22 +38600,22 @@ static const char *startup_source = " i_35)))" "(let-values(((disarmed-s_0)" "(syntax-disarm$1" -" s_167)))" +" s_165)))" "(let-values(((ok?_26" " begin-for-syntax7_0" " _8_0)" -"(let-values(((s_307)" +"(let-values(((s_305)" " disarmed-s_0))" "(let-values(((orig-s_31)" -" s_307))" +" s_305))" "(let-values(((begin-for-syntax7_1" " _8_1)" "(let-values(((s_27)" "(if(syntax?$1" -" s_307)" +" s_305)" "(syntax-e$1" -" s_307)" -" s_307)))" +" s_305)" +" s_305)))" "(if(pair?" " s_27)" "(let-values(((begin-for-syntax9_0)" @@ -38623,18 +38624,18 @@ static const char *startup_source = " s_27)))" " s_30))" "((_10_0)" -"(let-values(((s_162)" +"(let-values(((s_160)" "(cdr" " s_27)))" -"(let-values(((s_396)" +"(let-values(((s_394)" "(if(syntax?$1" -" s_162)" +" s_160)" "(syntax-e$1" -" s_162)" -" s_162)))" +" s_160)" +" s_160)))" "(let-values(((flat-s_19)" "(to-syntax-list.1" -" s_396)))" +" s_394)))" "(if(not" " flat-s_19)" "(let-values()" @@ -38655,7 +38656,7 @@ static const char *startup_source = " #t" " begin-for-syntax7_1" " _8_1))))))" -"(let-values(((s11_0) s_167)" +"(let-values(((s11_0) s_165)" "((temp12_2)" "(list*" " begin-for-syntax7_0" @@ -38670,17 +38671,17 @@ static const char *startup_source = " fold-var_83))))" "(values fold-var_239)))" " fold-var_82))))" -"(if(not #f)(for-loop_250 fold-var_81 rest_152) fold-var_81)))" +"(if(not #f)(for-loop_249 fold-var_81 rest_152) fold-var_81)))" " fold-var_229)))))" -" for-loop_250)" +" for-loop_249)" " null" -" lst_279)))))))" +" lst_278)))))))" "(define-values" "(expand7.1)" "(lambda(alternate-id1_0 alternate-id3_0 skip-log?2_0 skip-log?4_0 s5_1 ctx6_0)" "(begin" " 'expand7" -"(let-values(((s_397) s5_1))" +"(let-values(((s_395) s5_1))" "(let-values(((ctx_14) ctx6_0))" "(let-values(((alternate-id_0)(if alternate-id3_0 alternate-id1_0 #f)))" "(let-values(((skip-log?_0)(if skip-log?4_0 skip-log?2_0 #f)))" @@ -38694,19 +38695,19 @@ static const char *startup_source = "(call-expand-observe" " obs_1" "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" -" s_397))" +" s_395))" "(void)))" "(void)))" -"(if(identifier? s_397)" -"(let-values()(expand-identifier s_397 ctx_14 alternate-id_0))" -"(if(if(pair?(syntax-content s_397))(identifier?(car(syntax-content s_397))) #f)" -"(let-values()(expand-id-application-form s_397 ctx_14 alternate-id_0))" -"(if(let-values(((or-part_73)(pair?(syntax-content s_397))))" -"(if or-part_73 or-part_73(null?(syntax-content s_397))))" -"(let-values()(expand-implicit '#%app s_397 ctx_14 #f))" -"(if(already-expanded?(syntax-content s_397))" -"(let-values()(expand-already-expanded s_397 ctx_14))" -"(let-values()(expand-implicit '#%datum s_397 ctx_14 #f)))))))))))))))" +"(if(identifier? s_395)" +"(let-values()(expand-identifier s_395 ctx_14 alternate-id_0))" +"(if(if(pair?(syntax-content s_395))(identifier?(car(syntax-content s_395))) #f)" +"(let-values()(expand-id-application-form s_395 ctx_14 alternate-id_0))" +"(if(let-values(((or-part_73)(pair?(syntax-content s_395))))" +"(if or-part_73 or-part_73(null?(syntax-content s_395))))" +"(let-values()(expand-implicit '#%app s_395 ctx_14 #f))" +"(if(already-expanded?(syntax-content s_395))" +"(let-values()(expand-already-expanded s_395 ctx_14))" +"(let-values()(expand-implicit '#%datum s_395 ctx_14 #f)))))))))))))))" "(define-values" "(expand-identifier)" "(lambda(s_43 ctx_15 alternate-id_1)" @@ -38823,16 +38824,16 @@ static const char *startup_source = " protected?_4)))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_61 s_188 ctx_17 trigger-id_1)" +"(lambda(sym_61 s_186 ctx_17 trigger-id_1)" "(begin" "(if(expand-context-only-immediate? ctx_17)" "(let-values()" "(begin" "(let-values(((obs_5)(expand-context-observer ctx_17)))" -"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_188)))(void)))" -" s_188))" +"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_186)))(void)))" +" s_186))" "(let-values()" -"(let-values(((disarmed-s_1)(syntax-disarm$1 s_188)))" +"(let-values(((disarmed-s_1)(syntax-disarm$1 s_186)))" "(let-values(((id_61)(datum->syntax$1 disarmed-s_1 sym_61)))" "(if(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_61)" "(let-values()" @@ -38844,13 +38845,13 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_6 'resolve id_61)" -"(call-expand-observe obs_6 'enter-prim s_188)" +"(call-expand-observe obs_6 'enter-prim s_186)" "(call-expand-observe obs_6 'prim-stop)" -"(call-expand-observe obs_6 'exit-prim s_188)" -"(call-expand-observe obs_6 'return s_188)))" +"(call-expand-observe obs_6 'exit-prim s_186)" +"(call-expand-observe obs_6 'return s_186)))" "(void)))" "(void)))" -" s_188))" +" s_186))" "(let-values()" "(let-values((()" "(begin" @@ -38878,7 +38879,7 @@ static const char *startup_source = "(dispatch-transformer" " t_27" " insp-of-t_2" -"(make-explicit ctx_17 sym_61 s_188 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_186 disarmed-s_1)" " id_61" " ctx_17" " b_74))" @@ -38889,17 +38890,17 @@ static const char *startup_source = "(expand-context-in-local-expand? ctx_17)" " #f)" " #f)" -"(let-values()(dispatch-implicit-#%top-core-form t_27 s_188 ctx_17))" +"(let-values()(dispatch-implicit-#%top-core-form t_27 s_186 ctx_17))" "(let-values()" "(dispatch-core-form" " t_27" -"(make-explicit ctx_17 sym_61 s_188 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_186 disarmed-s_1)" " ctx_17))))" "(let-values()" "(let-values(((tl-id_0)" "(if(eq? sym_61 '#%top)" "(if(root-expand-context-top-level-bind-scope ctx_17)" -"(add-scope s_188(root-expand-context-top-level-bind-scope ctx_17))" +"(add-scope s_186(root-expand-context-top-level-bind-scope ctx_17))" " #f)" " #f)))" "(let-values(((tl-b_0)" @@ -38917,7 +38918,7 @@ static const char *startup_source = " tl-id_0))" "(let-values()" "(raise-syntax-implicit-error" -" s_188" +" s_186" " sym_61" " trigger-id_1" " ctx_17))))))))))))))))))))))" @@ -38965,25 +38966,25 @@ static const char *startup_source = " result-s_1)))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_62 s_308 disarmed-s_2)" +"(lambda(ctx_19 sym_62 s_306 disarmed-s_2)" "(begin" "(let-values(((new-s_0)" -"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_308 s_308) s_308)))" +"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_306 s_306) s_306)))" "(begin" "(let-values(((obs_9)(expand-context-observer ctx_19)))" "(if obs_9(let-values()(let-values()(call-expand-observe obs_9 'tag new-s_0)))(void)))" " new-s_0)))))" "(define-values" "(dispatch)" -"(lambda(t_47 insp-of-t_3 s_398 id_62 ctx_20 binding_20 primitive?_5 protected?_6)" +"(lambda(t_47 insp-of-t_3 s_396 id_62 ctx_20 binding_20 primitive?_5 protected?_6)" "(begin" "(if(core-form? t_47)" -"(let-values()(dispatch-core-form t_47 s_398 ctx_20))" +"(let-values()(dispatch-core-form t_47 s_396 ctx_20))" "(if(transformer? t_47)" -"(let-values()(dispatch-transformer t_47 insp-of-t_3 s_398 id_62 ctx_20 binding_20))" +"(let-values()(dispatch-transformer t_47 insp-of-t_3 s_396 id_62 ctx_20 binding_20))" "(if(variable? t_47)" -"(let-values()(dispatch-variable t_47 s_398 id_62 ctx_20 binding_20 primitive?_5 protected?_6))" -" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_398))))))))" +"(let-values()(dispatch-variable t_47 s_396 id_62 ctx_20 binding_20 primitive?_5 protected?_6))" +" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_396))))))))" "(define-values" "(dispatch-core-form)" "(lambda(t_48 s_46 ctx_21)" @@ -39039,7 +39040,7 @@ static const char *startup_source = " result-s_3))))))" "(define-values" "(dispatch-transformer)" -"(lambda(t_50 insp-of-t_4 s_392 id_63 ctx_23 binding_21)" +"(lambda(t_50 insp-of-t_4 s_390 id_63 ctx_23 binding_21)" "(begin" "(if(not-in-this-expand-context? t_50 ctx_23)" "(let-values()" @@ -39047,18 +39048,18 @@ static const char *startup_source = "(begin" "(let-values(((obs_15)(expand-context-observer ctx_23)))" "(if obs_15" -"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_392)))" +"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_390)))" "(void)))" "(values))))" -"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_392 id_63) t_50 ctx_23)))" +"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_390 id_63) t_50 ctx_23)))" "(begin" "(let-values(((obs_16)(expand-context-observer ctx_23)))" -"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_392)))(void)))" +"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_390)))(void)))" "(let-values(((adj-s117_0) adj-s_0)((ctx118_0) ctx_23))" "(expand7.1 #f #f #f #f adj-s117_0 ctx118_0))))))" "(if(expand-context-should-not-encounter-macros? ctx_23)" "(let-values()" -" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_392))" +" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_390))" "(let-values()" "(let-values((()" "(begin" @@ -39068,17 +39069,17 @@ static const char *startup_source = "(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_50)) #f)" "(let-values()" "(begin" -"(call-expand-observe obs_17 'visit s_392)" +"(call-expand-observe obs_17 'visit s_390)" "(call-expand-observe obs_17 'resolve id_63)))" "(void)))" "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" "(if(1/rename-transformer? t_50)" -"(values s_392 ctx_23)" +"(values s_390 ctx_23)" "(let-values(((t119_0) t_50)" "((insp-of-t120_0) insp-of-t_4)" -"((s121_0) s_392)" +"((s121_0) s_390)" "((id122_0) id_63)" "((ctx123_0) ctx_23)" "((binding124_0) binding_21))" @@ -39117,20 +39118,20 @@ static const char *startup_source = "(expand7.1 temp127_0 #t temp128_0 #t exp-s125_0 re-ctx126_0)))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_51 s_399 id_64 ctx_24 binding_22 primitive?_6 protected?_7)" +"(lambda(t_51 s_397 id_64 ctx_24 binding_22 primitive?_6 protected?_7)" "(begin" "(if(expand-context-only-immediate? ctx_24)" "(let-values()" "(begin" "(let-values(((obs_19)(expand-context-observer ctx_24)))" -"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_399)))(void)))" +"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_397)))(void)))" " id_64))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_20)(expand-context-observer ctx_24)))" "(if obs_20" -"(let-values()(let-values()(call-expand-observe obs_20 'variable s_399 id_64)))" +"(let-values()(let-values()(call-expand-observe obs_20 'variable s_397 id_64)))" "(void)))" "(values))))" "(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" @@ -39248,15 +39249,15 @@ static const char *startup_source = "(accumulate-def-ctx-scopes ctx_26(expand-context-def-ctx-scopes ctx_26))" " ctx_26)))" "(let-values(((m-ctx_0)" -"(let-values(((v_181) accum-ctx_0))" -"(let-values(((the-struct_56) v_181))" +"(let-values(((v_182) accum-ctx_0))" +"(let-values(((the-struct_56) v_182))" "(if(expand-context/outer? the-struct_56)" "(let-values(((current-introduction-scopes132_0)(cons intro-scope_1 use-scopes_1))" "((def-ctx-scopes133_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" "(expand-context-def-ctx-scopes ctx_26)))" -"((inner134_0)(root-expand-context/outer-inner v_181)))" +"((inner134_0)(root-expand-context/outer-inner v_182)))" "(expand-context/outer1.1" " inner134_0" "(root-expand-context/outer-post-expansion-scope the-struct_56)" @@ -39308,7 +39309,7 @@ static const char *startup_source = " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_212 ctx_27 binding_24)" +"(lambda(s_210 ctx_27 binding_24)" "(begin" "(if(if(root-expand-context-use-site-scopes ctx_27)" "(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_24))" @@ -39316,8 +39317,8 @@ static const char *startup_source = "(let-values()" "(let-values(((sc_30)(new-scope 'use-site)))" "(let-values(((b_75)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_75(cons sc_30(unbox b_75)))(values(add-scope s_212 sc_30)(list sc_30))))))" -"(let-values()(values s_212 null))))))" +"(begin(set-box! b_75(cons sc_30(unbox b_75)))(values(add-scope s_210 sc_30)(list sc_30))))))" +"(let-values()(values s_210 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" @@ -39328,23 +39329,23 @@ static const char *startup_source = " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" -"(lambda(s_99 ctx_28)" +"(lambda(s_98 ctx_28)" "(begin" "(if(root-expand-context-post-expansion-scope ctx_28)" "(let-values()" -"((expand-context-post-expansion-scope-action ctx_28) s_99(root-expand-context-post-expansion-scope ctx_28)))" -"(let-values() s_99)))))" +"((expand-context-post-expansion-scope-action ctx_28) s_98(root-expand-context-post-expansion-scope ctx_28)))" +"(let-values() s_98)))))" "(define-values" "(accumulate-def-ctx-scopes)" "(lambda(ctx_29 def-ctx-scopes_3)" "(begin" "(if(null?(unbox def-ctx-scopes_3))" " ctx_29" -"(let-values(((v_182) ctx_29))" -"(let-values(((the-struct_57) v_182))" +"(let-values(((v_183) ctx_29))" +"(let-values(((the-struct_57) v_183))" "(if(expand-context/outer? the-struct_57)" "(let-values(((scopes135_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner136_0)(root-expand-context/outer-inner v_182)))" +"((inner136_0)(root-expand-context/outer-inner v_183)))" "(expand-context/outer1.1" " inner136_0" "(root-expand-context/outer-post-expansion-scope the-struct_57)" @@ -39395,19 +39396,19 @@ static const char *startup_source = " id142_0)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_400 alternate-id_3)" +"(lambda(s_398 alternate-id_3)" "(begin" "(if(not alternate-id_3)" -"(let-values() s_400)" -"(if(identifier? s_400)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_400) s_400))" +"(let-values() s_398)" +"(if(identifier? s_398)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_398) s_398))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_400)))" +"(let-values(((disarmed-s_4)(syntax-disarm$1 s_398)))" "(syntax-rearm$1" "(syntax-track-origin$1" -"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_400)" -" s_400)" -" s_400))))))))" +"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_398)" +" s_398)" +" s_398))))))))" "(define-values" "(register-variable-referenced-if-local!)" "(lambda(binding_25)" @@ -39429,7 +39430,7 @@ static const char *startup_source = " ctx40_0)" "(begin" " 'expand/capture-lifts41" -"(let-values(((s_401) s39_0))" +"(let-values(((s_399) s39_0))" "(let-values(((ctx_31) ctx40_0))" "(let-values(((expand-lifts?_0)(if expand-lifts?35_0 expand-lifts?31_0 #f)))" "(let-values(((begin-form?_0)(if begin-form?36_0 begin-form?32_0 #f)))" @@ -39440,7 +39441,7 @@ static const char *startup_source = "(let-values(((phase_103)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" "((letrec-values(((loop_93)" -"(lambda(s_224 always-wrap?_1 ctx_32)" +"(lambda(s_222 always-wrap?_1 ctx_32)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" @@ -39572,9 +39573,9 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_58))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_224)))" +"(let-values(((rebuild-s_0)(keep-properties-only s_222)))" "(let-values(((exp-s_2)" -"(let-values(((s152_0) s_224)" +"(let-values(((s152_0) s_222)" "((capture-ctx153_0) capture-ctx_0))" "(expand7.1" " #f" @@ -39649,7 +39650,7 @@ static const char *startup_source = "(void)))" "(loop_93 with-lifts-s_0 #f ctx_32)))))))))))))))" " loop_93)" -" s_401" +" s_399" " always-wrap?_0" " ctx_31))))))))))))))" "(define-values" @@ -39670,7 +39671,7 @@ static const char *startup_source = " ctx57_0)" "(begin" " 'expand-transformer58" -"(let-values(((s_348) s56_0))" +"(let-values(((s_346) s56_0))" "(let-values(((ctx_33) ctx57_0))" "(let-values(((context_7)(if context50_0 context44_0 'expression)))" "(let-values(((begin-form?_1)(if begin-form?51_0 begin-form?45_0 #f)))" @@ -39690,7 +39691,7 @@ static const char *startup_source = " ctx163_0" " context164_0" " #t))))" -"(let-values(((s157_0) s_348)" +"(let-values(((s157_0) s_346)" "((trans-ctx158_0) trans-ctx_0)" "((expand-lifts?159_0) expand-lifts?_1)" "((begin-form?160_0) begin-form?_1)" @@ -39720,8 +39721,8 @@ static const char *startup_source = "(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_104)))" "(begin" "(namespace-visit-available-modules! ns_73 phase_104)" -"(let-values(((v_183) ctx_34))" -"(let-values(((the-struct_60) v_183))" +"(let-values(((v_184) ctx_34))" +"(let-values(((the-struct_60) v_184))" "(if(expand-context/outer? the-struct_60)" "(let-values(((context166_0) context_8)" "((scopes167_0) null)" @@ -39731,7 +39732,7 @@ static const char *startup_source = "((def-ctx-scopes170_0) #f)" "((post-expansion-scope171_0) #f)" "((inner172_0)" -"(let-values(((the-struct_61)(root-expand-context/outer-inner v_183)))" +"(let-values(((the-struct_61)(root-expand-context/outer-inner v_184)))" "(if(expand-context/inner? the-struct_61)" "(let-values(((phase173_0) phase_104)" "((namespace174_0) ns_73)" @@ -39865,8 +39866,8 @@ static const char *startup_source = "(void)" " (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_49)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_402)(begin(datum->syntax$1 #f 'props s_402 s_402))))" -"(define-values(keep-properties-only~)(lambda(s_403)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_400)(begin(datum->syntax$1 #f 'props s_400 s_400))))" +"(define-values(keep-properties-only~)(lambda(s_401)(begin #f)))" "(define-values" "(keep-as-needed85.1)" "(lambda(for-track?77_0" @@ -39880,12 +39881,12 @@ static const char *startup_source = "(begin" " 'keep-as-needed85" "(let-values(((ctx_38) ctx83_0))" -"(let-values(((s_404) s84_0))" +"(let-values(((s_402) s84_0))" "(let-values()" "(let-values(((keep-for-parsed?_0)(if keep-for-parsed?81_0 keep-for-parsed?78_0 #f)))" "(let-values(((keep-for-error?_0)(if keep-for-error?82_0 keep-for-error?79_0 #f)))" "(let-values()" -"(let-values(((d_32)(syntax-e$1 s_404)))" +"(let-values(((d_32)(syntax-e$1 s_402)))" "(let-values(((keep-e_0)" "(if(symbol? d_32)" "(let-values() d_32)" @@ -39896,25 +39897,25 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_277) keep-for-parsed?_0))" "(if or-part_277 or-part_277 keep-for-error?_0))" -"(datum->syntax$1 #f keep-e_0 s_404 s_404)" +"(datum->syntax$1 #f keep-e_0 s_402 s_402)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_404) keep-e_0 s_404 s_404)" -" s_404))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_402) keep-e_0 s_402 s_402)" +" s_402))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_405 trans-idss_0)" +"(lambda(s_403 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_405)" +"(let-values() s_403)" "(let-values()" "(syntax-property$1" -" s_405" +" s_403" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_278)(syntax-property$1 s_405 'disappeared-binding)))" +"(let-values(((or-part_278)(syntax-property$1 s_403 'disappeared-binding)))" "(if or-part_278 or-part_278 null)))))))))" "(define-values" "(increment-binding-layer)" @@ -39958,39 +39959,39 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_184) rhs-ctx_1))" -"(let-values(((the-struct_62) v_184))" +"(let-values(((v_185) rhs-ctx_1))" +"(let-values(((the-struct_62) v_185))" "(if(expand-context/outer? the-struct_62)" "(let-values(((env186_0)" -"(let-values(((lst_285) ids_24)((lst_286) keys_4))" +"(let-values(((lst_284) ids_24)((lst_285) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_284)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_285)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_286)))" -"((letrec-values(((for-loop_256)" -"(lambda(env_3 lst_287 lst_288)" +"((letrec-values(((for-loop_255)" +"(lambda(env_3 lst_286 lst_287)" "(begin" " 'for-loop" -"(if(if(pair? lst_287)" -"(pair? lst_288)" +"(if(if(pair? lst_286)" +"(pair? lst_287)" " #f)" "(let-values(((id_68)" "(unsafe-car" -" lst_287))" +" lst_286))" "((rest_157)" "(unsafe-cdr" -" lst_287))" +" lst_286))" "((key_86)" "(unsafe-car" -" lst_288))" +" lst_287))" "((rest_158)" "(unsafe-cdr" -" lst_288)))" +" lst_287)))" "(let-values(((env_4)" "(let-values(((env_5)" " env_3))" @@ -40004,17 +40005,17 @@ static const char *startup_source = "(values" " env_6)))))" "(if(not #f)" -"(for-loop_256" +"(for-loop_255" " env_4" " rest_157" " rest_158)" " env_4)))" " env_3)))))" -" for-loop_256)" +" for-loop_255)" "(expand-context-env rhs-ctx_1)" -" lst_285" -" lst_286))))" -"((inner187_0)(root-expand-context/outer-inner v_184)))" +" lst_284" +" lst_285))))" +"((inner187_0)(root-expand-context/outer-inner v_185)))" "(expand-context/outer1.1" " inner187_0" "(root-expand-context/outer-post-expansion-scope the-struct_62)" @@ -40093,11 +40094,11 @@ static const char *startup_source = "(append" " stop-ids_0" "(reverse$1" -"(let-values(((lst_101) auto-stop-syms))" +"(let-values(((lst_102) auto-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_101)))" +"(let-values()(check-list lst_102)))" "((letrec-values(((for-loop_111)" "(lambda(fold-var_86 lst_6)" "(begin" @@ -40119,7 +40120,7 @@ static const char *startup_source = " fold-var_86)))))" " for-loop_111)" " null" -" lst_101)))))))))))))" +" lst_102)))))))))))))" "(define-values" "(auto-stop-syms)" " '(begin" @@ -40143,15 +40144,15 @@ static const char *startup_source = "(begin" "(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_108)))" "(reverse$1" -"(let-values(((lst_223) module-stop-syms))" +"(let-values(((lst_222) module-stop-syms))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_223)))" -"((letrec-values(((for-loop_257)" -"(lambda(fold-var_240 lst_263)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_222)))" +"((letrec-values(((for-loop_256)" +"(lambda(fold-var_240 lst_262)" "(begin" " 'for-loop" -"(if(pair? lst_263)" -"(let-values(((sym_16)(unsafe-car lst_263))((rest_159)(unsafe-cdr lst_263)))" +"(if(pair? lst_262)" +"(let-values(((sym_16)(unsafe-car lst_262))((rest_159)(unsafe-cdr lst_262)))" "(let-values(((fold-var_217)" "(let-values(((fold-var_218) fold-var_240))" "(let-values(((fold-var_219)" @@ -40161,11 +40162,11 @@ static const char *startup_source = "(datum->syntax$1 p-core-stx_1 sym_16))" " fold-var_218))))" "(values fold-var_219)))))" -"(if(not #f)(for-loop_257 fold-var_217 rest_159) fold-var_217)))" +"(if(not #f)(for-loop_256 fold-var_217 rest_159) fold-var_217)))" " fold-var_240)))))" -" for-loop_257)" +" for-loop_256)" " null" -" lst_223))))))))" +" lst_222))))))))" "(define-values" "(module-stop-syms)" "(append" @@ -40269,7 +40270,7 @@ static const char *startup_source = "((parent-ctx3_1)(syntax-local-make-definition-context7_0 parent-ctx3_1 #f #t #f)))))" "(define-values" "(1/syntax-local-bind-syntaxes)" -"(lambda(ids_25 s_406 intdef_0)" +"(lambda(ids_25 s_404 intdef_0)" "(begin" " 'syntax-local-bind-syntaxes" "(let-values((()" @@ -40281,9 +40282,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_167)(not s_406)))(if or-part_167 or-part_167(syntax?$1 s_406)))" +"(if(let-values(((or-part_167)(not s_404)))(if or-part_167 or-part_167(syntax?$1 s_404)))" "(void)" -" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_406)))" +" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_404)))" "(values))))" "(let-values((()" "(begin" @@ -40308,11 +40309,11 @@ static const char *startup_source = "(let-values(((intdef-env_0)(add-intdef-bindings(expand-context-env ctx_44) intdef_0)))" "(let-values(((intdef-ids_0)" "(reverse$1" -"(let-values(((lst_289) ids_25))" +"(let-values(((lst_288) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_289)))" +"(let-values()(check-list lst_288)))" "((letrec-values(((for-loop_177)" "(lambda(fold-var_16 lst_185)" "(begin" @@ -40354,7 +40355,7 @@ static const char *startup_source = " fold-var_16)))))" " for-loop_177)" " null" -" lst_289))))))" +" lst_288))))))" "(let-values((()" "(begin" "(let-values(((obs_29)(expand-context-observer ctx_44)))" @@ -40365,18 +40366,18 @@ static const char *startup_source = "(values))))" "(let-values(((syms_21)" "(reverse$1" -"(let-values(((lst_290) intdef-ids_0))" +"(let-values(((lst_289) intdef-ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_290)))" -"((letrec-values(((for-loop_258)" -"(lambda(fold-var_243 lst_291)" +"(let-values()(check-list lst_289)))" +"((letrec-values(((for-loop_257)" +"(lambda(fold-var_243 lst_290)" "(begin" " 'for-loop" -"(if(pair? lst_291)" -"(let-values(((intdef-id_0)(unsafe-car lst_291))" -"((rest_161)(unsafe-cdr lst_291)))" +"(if(pair? lst_290)" +"(let-values(((intdef-id_0)(unsafe-car lst_290))" +"((rest_161)(unsafe-cdr lst_290)))" "(let-values(((fold-var_244)" "(let-values(((fold-var_245)" " fold-var_243))" @@ -40405,29 +40406,29 @@ static const char *startup_source = " fold-var_245))))" "(values fold-var_246)))))" "(if(not #f)" -"(for-loop_258 fold-var_244 rest_161)" +"(for-loop_257 fold-var_244 rest_161)" " fold-var_244)))" " fold-var_243)))))" -" for-loop_258)" +" for-loop_257)" " null" -" lst_290))))))" +" lst_289))))))" "(let-values(((vals_5)" -"(if s_406" +"(if s_404" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" -"(let-values(((s51_0) s_406)" +"(let-values(((s51_0) s_404)" "((intdef52_0) intdef_0)" "((temp53_1) #t))" "(add-intdef-scopes21.1 #f #f temp53_1 #t s51_0 intdef52_0))" " ctx_44)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_292) syms_21))" +"(let-values(((lst_291) syms_21))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_292)))" +"(let-values()(check-list lst_291)))" "((letrec-values(((for-loop_6)" "(lambda(env_7 lst_168)" "(begin" @@ -40458,7 +40459,7 @@ static const char *startup_source = " env_7)))))" " for-loop_6)" " intdef-env_0" -" lst_292)))))" +" lst_291)))))" "(let-values((()" "(begin" "(let-values(((obs_30)" @@ -40474,14 +40475,14 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp54_0)" -"(let-values(((v_185) ctx_44))" -"(let-values(((the-struct_64) v_185))" +"(let-values(((v_186) ctx_44))" +"(let-values(((the-struct_64) v_186))" "(if(expand-context/outer?" " the-struct_64)" "(let-values(((env57_0) tmp-env_0)" "((inner58_0)" "(root-expand-context/outer-inner" -" v_185)))" +" v_186)))" "(expand-context/outer1.1" " inner58_0" "(root-expand-context/outer-post-expansion-scope" @@ -40538,18 +40539,18 @@ static const char *startup_source = " vals_6))))))" "(let-values()" "(reverse$1" -"(let-values(((lst_293) ids_25))" +"(let-values(((lst_292) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_293)))" -"((letrec-values(((for-loop_259)" -"(lambda(fold-var_178 lst_294)" +"(let-values()(check-list lst_292)))" +"((letrec-values(((for-loop_258)" +"(lambda(fold-var_178 lst_293)" "(begin" " 'for-loop" -"(if(pair? lst_294)" -"(let-values(((id_71)(unsafe-car lst_294))" -"((rest_163)(unsafe-cdr lst_294)))" +"(if(pair? lst_293)" +"(let-values(((id_71)(unsafe-car lst_293))" +"((rest_163)(unsafe-cdr lst_293)))" "(let-values(((fold-var_247)" "(let-values(((fold-var_248)" " fold-var_178))" @@ -40561,42 +40562,42 @@ static const char *startup_source = " fold-var_248))))" "(values fold-var_249)))))" "(if(not #f)" -"(for-loop_259 fold-var_247 rest_163)" +"(for-loop_258 fold-var_247 rest_163)" " fold-var_247)))" " fold-var_178)))))" -" for-loop_259)" +" for-loop_258)" " null" -" lst_293))))))))" +" lst_292))))))))" "(let-values(((env-mixins_0)(internal-definition-context-env-mixins intdef_0)))" "(begin" "(set-box!" " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_295) intdef-ids_0)((lst_296) syms_21)((lst_297) vals_5))" +"(let-values(((lst_294) intdef-ids_0)((lst_295) syms_21)((lst_296) vals_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_294)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_295)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_296)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_297)))" "((letrec-values(((for-loop_79)" -"(lambda(fold-var_250 lst_298 lst_106 lst_299)" +"(lambda(fold-var_250 lst_297 lst_107 lst_298)" "(begin" " 'for-loop" -"(if(if(pair? lst_298)" -"(if(pair? lst_106)(pair? lst_299) #f)" +"(if(if(pair? lst_297)" +"(if(pair? lst_107)(pair? lst_298) #f)" " #f)" -"(let-values(((intdef-id_1)(unsafe-car lst_298))" -"((rest_164)(unsafe-cdr lst_298))" -"((sym_65)(unsafe-car lst_106))" -"((rest_100)(unsafe-cdr lst_106))" -"((val_27)(unsafe-car lst_299))" -"((rest_22)(unsafe-cdr lst_299)))" +"(let-values(((intdef-id_1)(unsafe-car lst_297))" +"((rest_164)(unsafe-cdr lst_297))" +"((sym_65)(unsafe-car lst_107))" +"((rest_100)(unsafe-cdr lst_107))" +"((val_27)(unsafe-car lst_298))" +"((rest_22)(unsafe-cdr lst_298)))" "(let-values(((fold-var_36)" "(let-values(((fold-var_37)" " fold-var_250))" @@ -40623,9 +40624,9 @@ static const char *startup_source = " fold-var_250)))))" " for-loop_79)" " null" +" lst_294" " lst_295" -" lst_296" -" lst_297))))" +" lst_296))))" "(unbox env-mixins_0)))" "(let-values(((obs_32)(expand-context-observer ctx_44)))" "(if obs_32" @@ -40645,16 +40646,16 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_1)))" "(reverse$1" -"(let-values(((lst_300)(unbox(internal-definition-context-env-mixins intdef_1))))" +"(let-values(((lst_299)(unbox(internal-definition-context-env-mixins intdef_1))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_300)))" -"((letrec-values(((for-loop_260)" -"(lambda(fold-var_251 lst_229)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_299)))" +"((letrec-values(((for-loop_259)" +"(lambda(fold-var_251 lst_228)" "(begin" " 'for-loop" -"(if(pair? lst_229)" -"(let-values(((env-mixin_0)(unsafe-car lst_229))" -"((rest_165)(unsafe-cdr lst_229)))" +"(if(pair? lst_228)" +"(let-values(((env-mixin_0)(unsafe-car lst_228))" +"((rest_165)(unsafe-cdr lst_228)))" "(let-values(((fold-var_252)" "(let-values(((fold-var_183) fold-var_251))" "(let-values(((fold-var_253)" @@ -40663,11 +40664,11 @@ static const char *startup_source = "(let-values()(env-mixin-id env-mixin_0))" " fold-var_183))))" "(values fold-var_253)))))" -"(if(not #f)(for-loop_260 fold-var_252 rest_165) fold-var_252)))" +"(if(not #f)(for-loop_259 fold-var_252 rest_165) fold-var_252)))" " fold-var_251)))))" -" for-loop_260)" +" for-loop_259)" " null" -" lst_300))))))))" +" lst_299))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce13_0)" @@ -40675,7 +40676,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce13" "(let-values(((intdef_2) intdef11_0))" -"(let-values(((s_407) s12_1))" +"(let-values(((s_405) s12_1))" "(let-values(((mode_12)(if mode10_0 mode9_0 'flip)))" "(let-values()" "(begin" @@ -40686,11 +40687,11 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_2)))" -"(if(syntax?$1 s_407)" +"(if(syntax?$1 s_405)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_407)))" -"(let-values(((s59_0) s_407)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_405)))" +"(let-values(((s59_0) s_405)" "((intdef60_0) intdef_2)" "((temp61_1)" "(let-values(((tmp_31) mode_12))" @@ -40707,9 +40708,9 @@ static const char *startup_source = " mode_12))))))))" "(add-intdef-scopes21.1 temp61_1 #t #f #f s59_0 intdef60_0)))))))))))" "(case-lambda" -"((intdef_3 s_202)" -"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_202 #f #f)))" -"((intdef_4 s_203 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_203 mode9_1 #t)))))" +"((intdef_3 s_200)" +"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_200 #f #f)))" +"((intdef_4 s_201 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_201 mode9_1 #t)))))" "(define-values" "(1/internal-definition-context-seal)" "(lambda(intdef_5)" @@ -40776,7 +40777,7 @@ static const char *startup_source = "(if(not a_47)(let-values() null)(let-values()(list a_47)))))))" "(begin" " #t" -"((letrec-values(((for-loop_261)" +"((letrec-values(((for-loop_260)" "(lambda(env_12 a_48)" "(begin" " 'for-loop" @@ -40829,9 +40830,9 @@ static const char *startup_source = " env_14" " env-mixins_1)))))" "(values env_15)))))" -"(if(not #f)(for-loop_261 env_13(cdr a_48)) env_13)))" +"(if(not #f)(for-loop_260 env_13(cdr a_48)) env_13)))" " env_12)))))" -" for-loop_261)" +" for-loop_260)" " env_11" " x_75))))))" "(define-values" @@ -40839,7 +40840,7 @@ static const char *startup_source = "(lambda(action16_0 action18_0 always?15_0 always?17_0 s19_0 intdefs20_0)" "(begin" " 'add-intdef-scopes21" -"(let-values(((s_408) s19_0))" +"(let-values(((s_406) s19_0))" "(let-values(((intdefs_1) intdefs20_0))" "(let-values(((always?_0)(if always?17_0 always?15_0 #f)))" "(let-values(((action_0)(if action18_0 action16_0 add-scope)))" @@ -40852,31 +40853,31 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_180)" -"(lambda(s_394 a_50)" +"(lambda(s_392 a_50)" "(begin" " 'for-loop" "(if(pair? a_50)" "(let-values(((intdef_9)(car a_50)))" -"(let-values(((s_210)" -"(let-values(((s_211) s_394))" +"(let-values(((s_208)" +"(let-values(((s_209) s_392))" "(if(let-values(((or-part_283) always?_0))" "(if or-part_283" " or-part_283" "(internal-definition-context-add-scope?" " intdef_9)))" -"(let-values(((s_94) s_211))" -"(let-values(((s_322)" +"(let-values(((s_93) s_209))" +"(let-values(((s_320)" "(let-values()" "(action_0" -" s_94" +" s_93" "(internal-definition-context-scope" " intdef_9)))))" -"(values s_322)))" -" s_211))))" -"(if(not #f)(for-loop_180 s_210(cdr a_50)) s_210)))" -" s_394)))))" +"(values s_320)))" +" s_209))))" +"(if(not #f)(for-loop_180 s_208(cdr a_50)) s_208)))" +" s_392)))))" " for-loop_180)" -" s_408" +" s_406" " x_76)))))))))))" "(define-values" "(make-local-expand-context37.1)" @@ -40912,8 +40913,8 @@ static const char *startup_source = "(if(expand-context-def-ctx-scopes ctx_45)" "(unbox(expand-context-def-ctx-scopes ctx_45))" " null)))" -"(let-values(((v_186) ctx_45))" -"(let-values(((the-struct_18) v_186))" +"(let-values(((v_187) ctx_45))" +"(let-values(((the-struct_18) v_187))" "(if(expand-context/outer? the-struct_18)" "(let-values(((context62_0) context_9)" "((env63_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" @@ -40985,10 +40986,10 @@ static const char *startup_source = " #f)))" "((post-expansion-scope-action67_0)" "(if intdefs_2" -"(lambda(s_219 placeholder-sc_0)" +"(lambda(s_217 placeholder-sc_0)" "(begin" " 'post-expansion-scope-action67" -"(let-values(((s73_1) s_219)((intdefs74_0) intdefs_2))" +"(let-values(((s73_1) s_217)((intdefs74_0) intdefs_2))" "(add-intdef-scopes21.1 #f #f #f #f s73_1 intdefs74_0))))" "(expand-context-post-expansion-scope-action ctx_45)))" "((scopes68_0)(append def-ctx-scopes_5(expand-context-scopes ctx_45)))" @@ -41000,7 +41001,7 @@ static const char *startup_source = "(let-values() ht_140)" "(if ht_140(let-values()(make-hasheqv))(let-values() #f)))))" "((inner72_0)" -"(let-values(((the-struct_65)(root-expand-context/outer-inner v_186)))" +"(let-values(((the-struct_65)(root-expand-context/outer-inner v_187)))" "(if(expand-context/inner? the-struct_65)" "(let-values(((to-parsed?75_0)" "(if to-parsed-ok?_0" @@ -41066,7 +41067,7 @@ static const char *startup_source = " the-struct_18))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_124 ctx_46)(begin(flip-scopes s_124(expand-context-current-introduction-scopes ctx_46)))))" +"(lambda(s_123 ctx_46)(begin(flip-scopes s_123(expand-context-current-introduction-scopes ctx_46)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" @@ -41105,21 +41106,21 @@ static const char *startup_source = "(expand-context-context ctx_50)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_173)" +"(lambda(s_171)" "(begin" " 'syntax-local-introduce" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_173)" +"(if(syntax?$1 s_171)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_173)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_171)))" "(values))))" "(let-values(((ctx_51)" "(let-values(((temp68_0) 'syntax-local-introduce))" "(get-current-expand-context17.1 #f #f temp68_0 #t))))" -"(flip-introduction-scopes s_173 ctx_51))))))))" +"(flip-introduction-scopes s_171 ctx_51))))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" "(lambda(id_76)" @@ -41170,29 +41171,29 @@ static const char *startup_source = "(lambda(s76_0 mode74_0 mode75_0)" "(begin" " 'core77" -"(let-values(((s_83) s76_0))" +"(let-values(((s_82) s76_0))" "(let-values(((mode_13)(if mode75_0 mode74_0 'flip)))" "(let-values()" "(begin" -"(if(syntax?$1 s_83)" +"(if(syntax?$1 s_82)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-introducer \"syntax?\" s_83)))" +" (raise-argument-error 'syntax-introducer \"syntax?\" s_82)))" "(let-values(((tmp_32) mode_13))" "(if(equal? tmp_32 'add)" -"(let-values()(add-scope s_83 sc_32))" +"(let-values()(add-scope s_82 sc_32))" "(if(equal? tmp_32 'remove)" -"(let-values()(remove-scope s_83 sc_32))" +"(let-values()(remove-scope s_82 sc_32))" "(if(equal? tmp_32 'flip)" -"(let-values()(flip-scope s_83 sc_32))" +"(let-values()(flip-scope s_82 sc_32))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" " \"(or/c 'add 'remove 'flip)\"" " mode_13))))))))))))))" "(case-lambda" -"((s_185)(core77_0 s_185 #f #f))" -"((s_186 mode74_1)(core77_0 s_186 mode74_1 #t)))))))))))" +"((s_183)(core77_0 s_183 #f #f))" +"((s_184 mode74_1)(core77_0 s_184 mode74_1 #t)))))))))))" "(case-lambda" "(()(begin 'make-syntax-introducer(make-syntax-introducer3_0 #f #f)))" "((as-use-site?1_1)(make-syntax-introducer3_0 as-use-site?1_1 #t)))))" @@ -41276,7 +41277,7 @@ static const char *startup_source = "(lambda(s85_0 mode83_0 mode84_0)" "(begin" " 'core86" -"(let-values(((s_409) s85_0))" +"(let-values(((s_407) s85_0))" "(let-values(((mode_14)" "(if mode84_0 mode83_0 'add)))" "(let-values()" @@ -41284,13 +41285,13 @@ static const char *startup_source = "(let-values(((tmp_33) mode_14))" "(if(equal? tmp_33 'add)" "(let-values()" -"(add-scopes s_409 delta-scs_0))" +"(add-scopes s_407 delta-scs_0))" "(if(equal? tmp_33 'remove)" "(let-values()" -"(remove-scopes s_409 delta-scs_0))" +"(remove-scopes s_407 delta-scs_0))" "(if(equal? tmp_33 'flip)" "(let-values()" -"(flip-scopes s_409 delta-scs_0))" +"(flip-scopes s_407 delta-scs_0))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -41298,7 +41299,7 @@ static const char *startup_source = " mode_14))))))))))))))" "(case-lambda" "((s_15)(core86_0 s_15 #f #f))" -"((s_410 mode83_1)(core86_0 s_410 mode83_1 #t))))))))))))))))))))))" +"((s_408 mode83_1)(core86_0 s_408 mode83_1 #t))))))))))))))))))))))" "(case-lambda" "((ext-s_1 base-s_1)(begin 'make-syntax-delta-introducer(make-syntax-delta-introducer9_0 ext-s_1 base-s_1 #f #f)))" "((ext-s_2 base-s_2 phase5_2)(make-syntax-delta-introducer9_0 ext-s_2 base-s_2 phase5_2 #t)))))" @@ -41369,14 +41370,14 @@ static const char *startup_source = "(get-current-expand-context17.1 #f #f who89_0 #t))))" "(let-values(((ctx_55)" "(if intdef_11" -"(let-values(((v_187) current-ctx_0))" -"(let-values(((the-struct_66) v_187))" +"(let-values(((v_188) current-ctx_0))" +"(let-values(((the-struct_66) v_188))" "(if(expand-context/outer? the-struct_66)" "(let-values(((env90_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" " intdef_11))" -"((inner91_0)(root-expand-context/outer-inner v_187)))" +"((inner91_0)(root-expand-context/outer-inner v_188)))" "(expand-context/outer1.1" " inner91_0" "(root-expand-context/outer-post-expansion-scope the-struct_66)" @@ -41572,11 +41573,11 @@ static const char *startup_source = "((id_87 failure-thunk27_1)(syntax-local-value/immediate32_0 id_87 failure-thunk27_1 #f #t #f)))))" "(define-values" "(do-lift-values-expression)" -"(lambda(who_17 n_28 s_198)" +"(lambda(who_17 n_28 s_196)" "(begin" "(let-values((()" "(begin" -" (if (syntax?$1 s_198) (void) (let-values () (raise-argument-error who_17 \"syntax?\" s_198)))" +" (if (syntax?$1 s_196) (void) (let-values () (raise-argument-error who_17 \"syntax?\" s_196)))" "(values))))" "(let-values((()" "(begin" @@ -41598,7 +41599,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_40 end_30 inc_24)))" -"((letrec-values(((for-loop_23)" +"((letrec-values(((for-loop_261)" "(lambda(fold-var_254 pos_106)" "(begin" " 'for-loop" @@ -41633,30 +41634,30 @@ static const char *startup_source = " fold-var_256))))" "(values fold-var_257)))))" "(if(not #f)" -"(for-loop_23 fold-var_255(+ pos_106 inc_24))" +"(for-loop_261 fold-var_255(+ pos_106 inc_24))" " fold-var_255)))" " fold-var_254)))))" -" for-loop_23)" +" for-loop_261)" " null" " start_40))))))" "(begin" "(let-values(((obs_37)(expand-context-observer ctx_56)))" "(if obs_37" -"(let-values()(let-values()(call-expand-observe obs_37 'lift-expr ids_26 s_198)))" +"(let-values()(let-values()(call-expand-observe obs_37 'lift-expr ids_26 s_196)))" "(void)))" "(map2" "(lambda(id_88)(flip-introduction-scopes id_88 ctx_56))" "(add-lifted!" " lifts_0" " ids_26" -"(flip-introduction-scopes s_198 ctx_56)" +"(flip-introduction-scopes s_196 ctx_56)" "(expand-context-phase ctx_56))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" -"(lambda(s_411)" +"(lambda(s_409)" "(begin" " 'syntax-local-lift-expression" -"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_411)))))))" +"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_409)))))))" "(define-values" "(1/syntax-local-lift-values-expression)" "(lambda(n_29 s_61)" @@ -41676,23 +41677,23 @@ static const char *startup_source = "(root-expand-context-lift-key ctx_57)))))))" "(define-values" "(1/syntax-local-lift-module)" -"(lambda(s_412)" +"(lambda(s_410)" "(begin" " 'syntax-local-lift-module" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_412)" +"(if(syntax?$1 s_410)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_412)))" +" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_410)))" "(values))))" "(let-values(((ctx_58)" "(let-values(((who115_0) 'syntax-local-lift-module))" "(get-current-expand-context17.1 #f #f who115_0 #t))))" "(let-values(((phase_113)(expand-context-phase ctx_58)))" "(begin" -"(let-values(((tmp_34)(core-form-sym s_412 phase_113)))" +"(let-values(((tmp_34)(core-form-sym s_410 phase_113)))" "(if(if(equal? tmp_34 'module) #t(equal? tmp_34 'module*))" "(let-values()" "(let-values(((lifts_8)(expand-context-module-lifts ctx_58)))" @@ -41704,13 +41705,13 @@ static const char *startup_source = " 'syntax-local-lift-module" " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" -" s_412)))" -"(add-lifted-module! lifts_8(flip-introduction-scopes s_412 ctx_58) phase_113))))" +" s_410)))" +"(add-lifted-module! lifts_8(flip-introduction-scopes s_410 ctx_58) phase_113))))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_412))))" +" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_410))))" "(let-values(((obs_38)(expand-context-observer ctx_58)))" "(if obs_38" -"(let-values()(let-values()(call-expand-observe obs_38 'lift-statement s_412)))" +"(let-values()(let-values()(call-expand-observe obs_38 'lift-statement s_410)))" "(void))))))))))))" "(define-values" "(do-local-lift-to-module54.1)" @@ -41733,7 +41734,7 @@ static const char *startup_source = "(begin" " 'do-local-lift-to-module54" "(let-values(((who_18) who52_0))" -"(let-values(((s_413) s53_1))" +"(let-values(((s_411) s53_1))" "(let-values(((no-target-msg_0) no-target-msg34_0))" "(let-values(((intro?_0)(if intro?44_0 intro?35_0 #t)))" "(let-values(((more-checks_0)(if more-checks45_0 more-checks36_0 void)))" @@ -41743,21 +41744,21 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_211 phase_114 lift-ctx_1)(begin 'pre-wrap s_211)))))" +"(lambda(s_209 phase_114 lift-ctx_1)(begin 'pre-wrap s_209)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" -"(lambda(s_414 phase_115 lift-ctx_2)(begin 'shift-wrap s_414)))))" +"(lambda(s_412 phase_115 lift-ctx_2)(begin 'shift-wrap s_412)))))" "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" -"(lambda(s_325 phase_116 lift-ctx_3)(begin 'post-wrap s_325)))))" +"(lambda(s_323 phase_116 lift-ctx_3)(begin 'post-wrap s_323)))))" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_413)" +"(if(syntax?$1 s_411)" "(void)" -" (let-values () (raise-argument-error who_18 \"syntax?\" s_413)))" +" (let-values () (raise-argument-error who_18 \"syntax?\" s_411)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" "(let-values(((ctx_59)" @@ -41773,12 +41774,12 @@ static const char *startup_source = " who_18" " no-target-msg_0" " \"form to lift\"" -" s_413)))" +" s_411)))" "(values))))" "(let-values(((phase_117)(expand-context-phase ctx_59)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" -"(if intro?_0(flip-introduction-scopes s_413 ctx_59) s_413)))" +"(if intro?_0(flip-introduction-scopes s_411 ctx_59) s_411)))" "(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_117 lift-ctx_4)))" "(let-values(((shift-s_0)" "(let-values(((start_41) phase_117)" @@ -41791,30 +41792,30 @@ static const char *startup_source = "(let-values()" "(check-range start_41 end_31 inc_25)))" "((letrec-values(((for-loop_204)" -"(lambda(s_99 pos_24)" +"(lambda(s_98 pos_24)" "(begin" " 'for-loop" "(if(> pos_24 end_31)" "(let-values(((phase_53)" " pos_24))" +"(let-values(((s_413)" +"(let-values(((s_414)" +" s_98))" "(let-values(((s_415)" -"(let-values(((s_416)" -" s_99))" -"(let-values(((s_417)" "(let-values()" "(shift-wrap_0" -" s_416" +" s_414" "(sub1" " phase_53)" " lift-ctx_4))))" "(values" -" s_417)))))" +" s_415)))))" "(if(not #f)" "(for-loop_204" -" s_415" +" s_413" "(+ pos_24 inc_25))" -" s_415)))" -" s_99)))))" +" s_413)))" +" s_98)))))" " for-loop_204)" " pre-s_0" " start_41)))))" @@ -41825,7 +41826,7 @@ static const char *startup_source = "(values ctx_59 post-s_1))))))))))))))))))))))))))))" "(define-values" "(1/syntax-local-lift-require)" -"(lambda(s_111 use-s_1)" +"(lambda(s_110 use-s_1)" "(begin" " 'syntax-local-lift-require" "(let-values()" @@ -41833,7 +41834,7 @@ static const char *startup_source = "(let-values(((sc_33)(new-scope 'macro)))" "(let-values(((ctx_4 added-s_1)" "(let-values(((who118_0) 'syntax-local-lift-require)" -"((temp119_1)(datum->syntax$1 #f s_111))" +"((temp119_1)(datum->syntax$1 #f s_110))" " ((temp120_1) \"could not find target context\")" "((temp121_0) #f)" "((temp122_0)" @@ -41846,11 +41847,11 @@ static const char *startup_source = "((require-lift-context-wrt-phase124_0) require-lift-context-wrt-phase)" "((add-lifted-require!125_0) add-lifted-require!)" "((temp126_1)" -"(lambda(s_418 phase_118 require-lift-ctx_0)" -"(require-spec-shift-for-syntax s_418)))" +"(lambda(s_416 phase_118 require-lift-ctx_0)" +"(require-spec-shift-for-syntax s_416)))" "((temp127_1)" -"(lambda(s_117 phase_119 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_117 sc_33) phase_119))))" +"(lambda(s_116 phase_119 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_116 sc_33) phase_119))))" "(do-local-lift-to-module54.1" " add-lifted-require!125_0" " expand-context-require-lifts123_0" @@ -41884,23 +41885,23 @@ static const char *startup_source = " result-s_6))))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_118)" +"(lambda(s_117)" "(begin" " 'syntax-local-lift-provide" "(let-values()" "(let-values()" "(let-values(((ctx_60 result-s_7)" "(let-values(((who129_0) 'syntax-local-lift-provide)" -"((s130_0) s_118)" +"((s130_0) s_117)" " ((temp131_1) \"not expanding in a module run-time body\")" "((expand-context-to-module-lifts132_0) expand-context-to-module-lifts)" "((to-module-lift-context-wrt-phase133_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!134_0) add-lifted-to-module-provide!)" "((temp135_0)" -"(lambda(s_419 phase_120 to-module-lift-ctx_0)(wrap-form 'for-syntax s_419 #f)))" +"(lambda(s_417 phase_120 to-module-lift-ctx_0)(wrap-form 'for-syntax s_417 #f)))" "((temp136_0)" -"(lambda(s_420 phase_121 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_420 phase_121))))" +"(lambda(s_418 phase_121 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_418 phase_121))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-provide!134_0" " expand-context-to-module-lifts132_0" @@ -41924,14 +41925,14 @@ static const char *startup_source = "(void)))))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" -"(lambda(s_421)" +"(lambda(s_419)" "(begin" " 'syntax-local-lift-module-end-declaration" "(let-values()" "(let-values()" "(let-values(((ctx_61 also-s_0)" "(let-values(((who138_0) 'syntax-local-lift-module-end-declaration)" -"((s139_0) s_421)" +"((s139_0) s_419)" "((temp140_2)" " \"not currently transforming an expression within a module declaration\")" "((expand-context-to-module-lifts141_0) expand-context-to-module-lifts)" @@ -41943,8 +41944,8 @@ static const char *startup_source = "(wrap-form '#%expression orig-s_32 phase_122)" " orig-s_32)))" "((temp145_2)" -"(lambda(s_225 phase_123 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_225 phase_123))))" +"(lambda(s_223 phase_123 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_223 phase_123))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-end!143_0" " expand-context-to-module-lifts141_0" @@ -41964,15 +41965,15 @@ static const char *startup_source = " s139_0))))" "(let-values(((obs_26)(expand-context-observer ctx_61)))" "(if obs_26" -"(let-values()(let-values()(call-expand-observe obs_26 'lift-statement s_421)))" +"(let-values()(let-values()(call-expand-observe obs_26 'lift-statement s_419)))" "(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_66 s_227 phase_124)" +"(lambda(sym_66 s_225 phase_124)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_124(syntax-shift-phase-level$1 core-stx phase_124) #f) sym_66) s_227)))))" +"(list(datum->syntax$1(if phase_124(syntax-shift-phase-level$1 core-stx phase_124) #f) sym_66) s_225)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -42035,11 +42036,11 @@ static const char *startup_source = "(let-values(((temp149_0) 'syntax-local-module-required-identifiers))" "(get-current-expand-context17.1 #f #f temp149_0 #t))))" "(let-values(((requires+provides_5)(expand-context-requires+provides ctx_63)))" -"(let-values(((mpi_46)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_63) #f)))" +"(let-values(((mpi_47)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_63) #f)))" "(let-values(((requireds_0)" "(extract-all-module-requires" " requires+provides_5" -" mpi_46" +" mpi_47" "(if(eq? phase-level_21 #t) 'all phase-level_21))))" "(if requireds_0" "(reverse$1" @@ -42078,15 +42079,15 @@ static const char *startup_source = "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_301) requireds_1))" +"(let-values(((lst_300) requireds_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_301)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_300)))" "((letrec-values(((for-loop_263)" -"(lambda(ht_142 lst_302)" +"(lambda(ht_142 lst_301)" "(begin" " 'for-loop" -"(if(pair? lst_302)" -"(let-values(((r_43)(unsafe-car lst_302))((rest_166)(unsafe-cdr lst_302)))" +"(if(pair? lst_301)" +"(let-values(((r_43)(unsafe-car lst_301))((rest_166)(unsafe-cdr lst_301)))" "(let-values(((ht_143)" "(let-values(((ht_144) ht_142))" "(let-values(((ht_145)" @@ -42101,7 +42102,7 @@ static const char *startup_source = " ht_142)))))" " for-loop_263)" "(hasheqv)" -" lst_301))))))" +" lst_300))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" @@ -42289,12 +42290,12 @@ static const char *startup_source = "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_183)" +"(lambda(s_181)" "(let-values((()" "(begin" -" (if (syntax?$1 s_183) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_183)))" +" (if (syntax?$1 s_181) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_181)))" "(values))))" -"(let-values(((srcloc_8)(syntax-srcloc s_183)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" +"(let-values(((srcloc_8)(syntax-srcloc s_181)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" "(define-values(1/syntax-source)(syntax-source-accessor 'syntax-source srcloc-source))" "(define-values(1/syntax-line)(syntax-source-accessor 'syntax-line srcloc-line))" "(define-values(1/syntax-column)(syntax-source-accessor 'syntax-column srcloc-column))" @@ -42323,13 +42324,13 @@ static const char *startup_source = " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_188)" +"(lambda(v_189)" "(begin" -"(if(srcloc? v_188)" +"(if(srcloc? v_189)" "(let-values()" "(let-values(((the-struct_67) empty-syntax))" "(if(syntax?$1 the-struct_67)" -"(let-values(((srcloc1_2) v_188))" +"(let-values(((srcloc1_2) v_189))" "(syntax1.1" "(syntax-content the-struct_67)" "(syntax-scopes the-struct_67)" @@ -42340,19 +42341,19 @@ static const char *startup_source = "(syntax-props the-struct_67)" "(syntax-inspector the-struct_67)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_67))))" -"(if(pair? v_188)" -"(let-values()(to-srcloc-stx(list->vector v_188)))" -"(if(vector? v_188)" +"(if(pair? v_189)" +"(let-values()(to-srcloc-stx(list->vector v_189)))" +"(if(vector? v_189)" "(let-values()" "(let-values(((the-struct_68) empty-syntax))" "(if(syntax?$1 the-struct_68)" "(let-values(((srcloc2_1)" "(srcloc" -"(vector-ref v_188 0)" -"(vector-ref v_188 1)" -"(vector-ref v_188 2)" -"(vector-ref v_188 3)" -"(vector-ref v_188 4))))" +"(vector-ref v_189 0)" +"(vector-ref v_189 1)" +"(vector-ref v_189 2)" +"(vector-ref v_189 3)" +"(vector-ref v_189 4))))" "(syntax1.1" "(syntax-content the-struct_68)" "(syntax-scopes the-struct_68)" @@ -42363,7 +42364,7 @@ static const char *startup_source = "(syntax-props the-struct_68)" "(syntax-inspector the-struct_68)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_68))))" -"(let-values() v_188)))))))" +"(let-values() v_189)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -42376,15 +42377,15 @@ static const char *startup_source = "(syntax-e$1 s_0)))))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_183)" +"(lambda(s_181)" "(begin" " 'syntax->datum" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_183) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_183)))" -"(syntax->datum$1 s_183)))))))" -"(define-values(maybe-syntax->datum)(lambda(s_70)(begin(if(syntax?$1 s_70)(syntax->datum$1 s_70) s_70))))" +" (if (syntax?$1 s_181) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_181)))" +"(syntax->datum$1 s_181)))))))" +"(define-values(maybe-syntax->datum)(lambda(s_69)(begin(if(syntax?$1 s_69)(syntax->datum$1 s_69) s_69))))" "(define-values" "(1/datum->syntax)" "(let-values(((datum->syntax9_0)" @@ -42392,7 +42393,7 @@ static const char *startup_source = "(begin" " 'datum->syntax9" "(let-values(((stx-c_4) stx-c7_0))" -"(let-values(((s_171) s8_0))" +"(let-values(((s_169) s8_0))" "(let-values(((stx-l_2)(if stx-l4_1 stx-l1_0 #f)))" "(let-values(((stx-p_1)(if stx-p5_1 stx-p2_0 #f)))" "(let-values()" @@ -42430,12 +42431,12 @@ static const char *startup_source = "(if or-part_295 or-part_295(syntax?$1 stx-p_1)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-p_1)))" -"(datum->syntax$1 stx-c_4 s_171(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" +"(datum->syntax$1 stx-c_4 s_169(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" "(case-lambda" -"((stx-c_5 s_300)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_300 #f #f #f #f #f #f)))" -"((stx-c_6 s_174 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_174 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" -"((stx-c_7 s_73 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_73 stx-l_4 stx-p2_1 #f #t #t #f))" -"((stx-c_8 s_422 stx-l1_1)(datum->syntax9_0 stx-c_8 s_422 stx-l1_1 #f #f #t #f #f)))))" +"((stx-c_5 s_298)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_298 #f #f #f #f #f #f)))" +"((stx-c_6 s_172 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_172 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" +"((stx-c_7 s_72 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_72 stx-l_4 stx-p2_1 #f #t #t #f))" +"((stx-c_8 s_420 stx-l1_1)(datum->syntax9_0 stx-c_8 s_420 stx-l1_1 #f #f #t #f #f)))))" "(define-values" "(1/syntax->list)" "(lambda(s_5)" @@ -42448,14 +42449,14 @@ static const char *startup_source = "(syntax->list$1 s_5)))))))" "(define-values" "(1/syntax-original?)" -"(lambda(s_76)" +"(lambda(s_75)" "(begin" " 'syntax-original?" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_76) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_76)))" -"(if(syntax-property$1 s_76 original-property-sym)(not(syntax-any-macro-scopes? s_76)) #f)))))))" +" (if (syntax?$1 s_75) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_75)))" +"(if(syntax-property$1 s_75 original-property-sym)(not(syntax-any-macro-scopes? s_75)) #f)))))))" "(define-values" "(1/bound-identifier=?)" "(let-values(((bound-identifier=?15_0)" @@ -42695,37 +42696,37 @@ static const char *startup_source = "(lambda(s51_1 phase47_2 all-bindings?48_0 phase49_1 all-bindings?50_0)" "(begin" " 'syntax-debug-info52" -"(let-values(((s_423) s51_1))" +"(let-values(((s_421) s51_1))" "(let-values(((phase_133)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" "(let-values(((all-bindings?_1)(if all-bindings?50_0 all-bindings?48_0 #f)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_423)" +"(if(syntax?$1 s_421)" "(void)" -" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_423)))" +" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_421)))" "(if(phase? phase_133)" "(void)" "(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_133)))" -"(syntax-debug-info$1 s_423 phase_133 all-bindings?_1))))))))))))" +"(syntax-debug-info$1 s_421 phase_133 all-bindings?_1))))))))))))" "(case-lambda" -"((s_424)(begin 'syntax-debug-info(syntax-debug-info52_0 s_424 #f #f #f #f)))" -"((s_88 phase_96 all-bindings?48_1)(syntax-debug-info52_0 s_88 phase_96 all-bindings?48_1 #t #t))" +"((s_422)(begin 'syntax-debug-info(syntax-debug-info52_0 s_422 #f #f #f #f)))" +"((s_87 phase_96 all-bindings?48_1)(syntax-debug-info52_0 s_87 phase_96 all-bindings?48_1 #t #t))" "((s_46 phase47_3)(syntax-debug-info52_0 s_46 phase47_3 #f #t #f)))))" "(define-values" "(1/syntax-shift-phase-level)" -"(lambda(s_89 phase_134)" +"(lambda(s_88 phase_134)" "(begin" " 'syntax-shift-phase-level" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_89) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_89)))" +" (if (syntax?$1 s_88) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_88)))" "(if(phase? phase_134)" "(void)" "(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_134)))" -"(syntax-shift-phase-level$1 s_89 phase_134)))))))" +"(syntax-shift-phase-level$1 s_88 phase_134)))))))" "(define-values" "(1/syntax-track-origin)" "(lambda(new-stx_8 old-stx_4 id_106)" @@ -42874,7 +42875,7 @@ static const char *startup_source = "(let-values((()" "(begin" "((letrec-values(((loop_39)" -"(lambda(mpi_47" +"(lambda(mpi_48" " phase_135" " attach-instances?_1" " attach-phase_0)" @@ -42891,7 +42892,7 @@ static const char *startup_source = " src-namespace_6)" "(let-values()" "(1/module-path-index-resolve" -" mpi_47)))))" +" mpi_48)))))" "(let-values(((attach-this-instance?_0)" "(if attach-instances?_1" "(eqv? phase_135 attach-phase_0)" @@ -42935,7 +42936,7 @@ static const char *startup_source = " #f)" "(let-values()" "(loop_39" -" mpi_47" +" mpi_48" " 0" " attach-instances?_1" " 0))" @@ -43075,7 +43076,7 @@ static const char *startup_source = "(let-values(((src-namespace41_0)" " src-namespace_6)" "((mpi42_0)" -" mpi_47)" +" mpi_48)" "((phase43_1)" " phase_135))" "(namespace-module-instantiate!96.1" @@ -43121,17 +43122,17 @@ static const char *startup_source = "(check-list" " lst_21)))" "((letrec-values(((for-loop_17)" -"(lambda(lst_225)" +"(lambda(lst_224)" "(begin" " 'for-loop" "(if(pair?" -" lst_225)" +" lst_224)" "(let-values(((phase+reqs_1)" "(unsafe-car" -" lst_225))" +" lst_224))" "((rest_167)" "(unsafe-cdr" -" lst_225)))" +" lst_224)))" "(let-values((()" "(let-values(((lst_177)" "(cdr" @@ -43144,17 +43145,17 @@ static const char *startup_source = "(check-list" " lst_177)))" "((letrec-values(((for-loop_29)" -"(lambda(lst_278)" +"(lambda(lst_277)" "(begin" " 'for-loop" "(if(pair?" -" lst_278)" +" lst_277)" "(let-values(((req_5)" "(unsafe-car" -" lst_278))" +" lst_277))" "((rest_151)" "(unsafe-cdr" -" lst_278)))" +" lst_277)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43166,7 +43167,7 @@ static const char *startup_source = " req_5" "(module-self" " m_20)" -" mpi_47)" +" mpi_48)" "(phase+" " phase_135" "(car" @@ -43192,7 +43193,7 @@ static const char *startup_source = " for-loop_17)" " lst_21)))" "(void)" -"(let-values(((lst_303)" +"(let-values(((lst_302)" "(module-submodule-names" " m_20)))" "(begin" @@ -43201,19 +43202,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_303)))" +" lst_302)))" "((letrec-values(((for-loop_267)" -"(lambda(lst_304)" +"(lambda(lst_303)" "(begin" " 'for-loop" "(if(pair?" -" lst_304)" +" lst_303)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_304))" +" lst_303))" "((rest_168)" "(unsafe-cdr" -" lst_304)))" +" lst_303)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43226,7 +43227,7 @@ static const char *startup_source = " 'submod" " \".\"" " submod-name_0)" -" mpi_47)" +" mpi_48)" " #f" " #f" " attach-phase_0))" @@ -43239,7 +43240,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_267)" -" lst_303)))" +" lst_302)))" "(void)" "(if(module-supermodule-name" " m_20)" @@ -43248,7 +43249,7 @@ static const char *startup_source = "(1/module-path-index-join" " '(submod" " \"..\")" -" mpi_47)" +" mpi_48)" " #f" " #f" " attach-phase_0))" @@ -43564,11 +43565,11 @@ static const char *startup_source = " s_3))" "(let-values()(add-ns-scopes_0 s_3)))))))))))))))))))" "(case-lambda" -"((s_425)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_425 #f #f)))" -"((s_73 ns1_4)(namespace-syntax-introduce4_0 s_73 ns1_4 #t)))))" +"((s_423)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_423 #f #f)))" +"((s_72 ns1_4)(namespace-syntax-introduce4_0 s_72 ns1_4 #t)))))" "(define-values" "(namespace-datum-introduce)" -"(lambda(s_175)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_175)))))" +"(lambda(s_173)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_173)))))" "(define-values" "(1/namespace-module-identifier)" "(let-values(((namespace-module-identifier8_0)" @@ -43914,7 +43915,7 @@ static const char *startup_source = " ns_81))" "(void))" "(values))))" -"(let-values(((v_189" +"(let-values(((v_190" " primitive?_8" " extra-inspector_8" " protected?_9)" @@ -43940,7 +43941,7 @@ static const char *startup_source = " id136_0))" "(values variable #f #f #f))))" "(begin" -"(if(variable? v_189)" +"(if(variable? v_190)" "(void)" "(let-values()" "(escape_0" @@ -44148,33 +44149,33 @@ static const char *startup_source = "(lambda(s5_2 ns1_5 compile2_0 ns3_0 compile4_0)" "(begin" " 'eval6" -"(let-values(((s_172) s5_2))" +"(let-values(((s_170) s5_2))" "(let-values(((ns_43)(if ns3_0 ns1_5(1/current-namespace))))" "(let-values(((compile_1)" "(if compile4_0" " compile2_0" -"(lambda(s_426 ns_87)(begin 'compile(1/compile s_426 ns_87 #f))))))" +"(lambda(s_424 ns_87)(begin 'compile(1/compile s_424 ns_87 #f))))))" "(let-values()" -"(if(let-values(((or-part_293)(compiled-in-memory? s_172)))" +"(if(let-values(((or-part_293)(compiled-in-memory? s_170)))" "(if or-part_293" " or-part_293" -"(let-values(((or-part_294)(1/linklet-directory? s_172)))" -"(if or-part_294 or-part_294(1/linklet-bundle? s_172)))))" -"(let-values()(eval-compiled s_172 ns_43))" -"(if(if(syntax?$1 s_172)" -"(let-values(((or-part_295)(compiled-in-memory?(1/syntax-e s_172))))" +"(let-values(((or-part_294)(1/linklet-directory? s_170)))" +"(if or-part_294 or-part_294(1/linklet-bundle? s_170)))))" +"(let-values()(eval-compiled s_170 ns_43))" +"(if(if(syntax?$1 s_170)" +"(let-values(((or-part_295)(compiled-in-memory?(1/syntax-e s_170))))" "(if or-part_295" " or-part_295" -"(let-values(((or-part_299)(1/linklet-directory?(1/syntax-e s_172))))" -"(if or-part_299 or-part_299(1/linklet-bundle?(1/syntax-e s_172))))))" +"(let-values(((or-part_299)(1/linklet-directory?(1/syntax-e s_170))))" +"(if or-part_299 or-part_299(1/linklet-bundle?(1/syntax-e s_170))))))" " #f)" -"(let-values()(eval-compiled(1/syntax->datum s_172) ns_43))" +"(let-values()(eval-compiled(1/syntax->datum s_170) ns_43))" "(let-values()" -"(let-values(((s80_0) s_172)" +"(let-values(((s80_0) s_170)" "((ns81_0) ns_43)" "((temp82_3)" -"(lambda(s_427 ns_88 tail?_1)" -"(eval-compiled(compile_1 s_427 ns_88) ns_88 tail?_1)))" +"(lambda(s_425 ns_88 tail?_1)" +"(eval-compiled(compile_1 s_425 ns_88) ns_88 tail?_1)))" "((temp83_1) #f))" "(per-top-level68.1" " #f" @@ -44193,8 +44194,8 @@ static const char *startup_source = " ns81_0)))))))))))))" "(case-lambda" "((s_41)(begin 'eval(eval6_0 s_41 #f #f #f #f)))" -"((s_175 ns_53 compile2_1)(eval6_0 s_175 ns_53 compile2_1 #t #t))" -"((s_160 ns1_6)(eval6_0 s_160 ns1_6 #f #t #f)))))" +"((s_173 ns_53 compile2_1)(eval6_0 s_173 ns_53 compile2_1 #t #t))" +"((s_158 ns1_6)(eval6_0 s_158 ns1_6 #f #t #f)))))" "(define-values" "(eval-compiled)" "(let-values(((eval-compiled12_0)" @@ -44227,21 +44228,21 @@ static const char *startup_source = " to-source?21_1)" "(begin" " 'compile23" -"(let-values(((s_180) s22_0))" +"(let-values(((s_178) s22_0))" "(let-values(((ns_92)(if ns18_1 ns14_2(1/current-namespace))))" "(let-values(((serializable?_4)(if serializable?19_0 serializable?15_0 #t)))" "(let-values(((expand_0)(if expand20_0 expand16_0 expand$1)))" "(let-values(((to-source?_5)(if to-source?21_1 to-source?17_0 #f)))" "(let-values()" "(let-values(((cs_0)" -"(if(1/compiled-expression? s_180)" -"(let-values()(list s_180))" -"(if(if(syntax?$1 s_180)" -"(1/compiled-expression?(1/syntax-e s_180))" +"(if(1/compiled-expression? s_178)" +"(let-values()(list s_178))" +"(if(if(syntax?$1 s_178)" +"(1/compiled-expression?(1/syntax-e s_178))" " #f)" -"(let-values()(list(1/syntax-e s_180)))" +"(let-values()(list(1/syntax-e s_178)))" "(let-values()" -"(let-values(((s86_0) s_180)" +"(let-values(((s86_0) s_178)" "((ns87_0) ns_92)" "((temp88_2)" "(lambda(s_12 ns_49 as-tail?_4)" @@ -44284,24 +44285,24 @@ static const char *startup_source = " #t" " cs91_0))))))))))))))" "(case-lambda" -"((s_187)(begin 'compile(compile23_0 s_187 #f #f #f #f #f #f #f #f)))" -"((s_428 ns_93 serializable?_5 expand_1 to-source?17_1)" -"(compile23_0 s_428 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" +"((s_185)(begin 'compile(compile23_0 s_185 #f #f #f #f #f #f #f #f)))" +"((s_426 ns_93 serializable?_5 expand_1 to-source?17_1)" +"(compile23_0 s_426 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" "((s_20 ns_94 serializable?_6 expand16_1)(compile23_0 s_20 ns_94 serializable?_6 expand16_1 #f #t #t #t #f))" "((s_23 ns_95 serializable?15_1)(compile23_0 s_23 ns_95 serializable?15_1 #f #f #t #t #f #f))" -"((s_429 ns14_3)(compile23_0 s_429 ns14_3 #f #f #f #t #f #f #f)))))" +"((s_427 ns14_3)(compile23_0 s_427 ns14_3 #f #f #f #t #f #f #f)))))" "(define-values" "(compile-to-linklets)" "(let-values(((compile-to-linklets28_0)" "(lambda(s27_0 ns25_0 ns26_2)" "(begin" " 'compile-to-linklets28" -"(let-values(((s_406) s27_0))" +"(let-values(((s_404) s27_0))" "(let-values(((ns_96)(if ns26_2 ns25_0(1/current-namespace))))" -"(let-values()(1/compile s_406 ns_96 #t expand$1 #t))))))))" +"(let-values()(1/compile s_404 ns_96 #t expand$1 #t))))))))" "(case-lambda" -"((s_430)(begin(compile-to-linklets28_0 s_430 #f #f)))" -"((s_303 ns25_1)(compile-to-linklets28_0 s_303 ns25_1 #t)))))" +"((s_428)(begin(compile-to-linklets28_0 s_428 #f #f)))" +"((s_301 ns25_1)(compile-to-linklets28_0 s_301 ns25_1 #t)))))" "(define-values" "(struct:lifted-parsed-begin" " lifted-parsed-begin30.1" @@ -44364,14 +44365,14 @@ static const char *startup_source = "(let-values()" "(let-values(((temp101_1)" "(reverse$1" -"(let-values(((lst_292)" +"(let-values(((lst_291)" "(append" "(lifted-parsed-begin-seq exp-s_5)" "(list(lifted-parsed-begin-last exp-s_5)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_292)))" +"(let-values()(check-list lst_291)))" "((letrec-values(((for-loop_6)" "(lambda(fold-var_0 lst_168)" "(begin" @@ -44399,7 +44400,7 @@ static const char *startup_source = " fold-var_0)))))" " for-loop_6)" " null" -" lst_292)))))" +" lst_291)))))" "((to-source?102_0) to-source?_6))" "(compiled-tops->compiled-top8.1 #f #f #f #f to-source?102_0 #t temp101_1)))" "(let-values()" @@ -44446,7 +44447,7 @@ static const char *startup_source = " serializable?38_0)" "(begin" " 'expand40" -"(let-values(((s_431) s39_1))" +"(let-values(((s_429) s39_1))" "(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)))" @@ -44462,12 +44463,12 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s108_0) s_431)" +"(let-values(((s108_0) s_429)" "((ns109_1) ns_98)" "((temp110_0)" -"(lambda(s_432 ns_99 as-tail?_5)" +"(lambda(s_430 ns_99 as-tail?_5)" "(expand-single" -" s_432" +" s_430" " ns_99" " observer_2" " to-parsed?_2" @@ -44491,24 +44492,24 @@ static const char *startup_source = " s108_0" " ns109_1))))))))))))))))" "(case-lambda" -"((s_301)(begin 'expand(expand40_0 s_301 #f #f #f #f #f #f #f #f)))" -"((s_433 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" -"(expand40_0 s_433 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_434 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_434 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_299)(begin 'expand(expand40_0 s_299 #f #f #f #f #f #f #f #f)))" +"((s_431 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" +"(expand40_0 s_431 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" +"((s_432 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_432 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" "((s_34 ns_102 observable?32_1)(expand40_0 s_34 ns_102 observable?32_1 #f #f #t #t #f #f))" -"((s_389 ns31_4)(expand40_0 s_389 ns31_4 #f #f #f #t #f #f #f)))))" +"((s_387 ns31_4)(expand40_0 s_387 ns31_4 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" -"(lambda(s_435 ns_103 observer_3 to-parsed?_4 serializable?_9)" +"(lambda(s_433 ns_103 observer_3 to-parsed?_4 serializable?_9)" "(begin" -"(let-values(((rebuild-s_2)(keep-properties-only s_435)))" +"(let-values(((rebuild-s_2)(keep-properties-only s_433)))" "(let-values(((ctx_68)" "(let-values(((ns114_0) ns_103)" "((to-parsed?115_0) to-parsed?_4)" "((serializable?116_0) serializable?_9)" "((observer117_0) observer_3))" "(make-expand-context10.1 serializable?116_0 #t observer117_0 #t to-parsed?115_0 #t ns114_0))))" -"(let-values(((require-lifts_3 lifts_9 exp-s_6)(expand-capturing-lifts s_435 ctx_68)))" +"(let-values(((require-lifts_3 lifts_9 exp-s_6)(expand-capturing-lifts s_433 ctx_68)))" "(if(if(null? require-lifts_3)(null? lifts_9) #f)" "(let-values() exp-s_6)" "(if to-parsed?_4" @@ -44581,13 +44582,13 @@ static const char *startup_source = "(lambda(s44_1 ns42_1 ns43_0)" "(begin" " 'expand-once45" -"(let-values(((s_391) s44_1))" +"(let-values(((s_389) s44_1))" "(let-values(((ns_104)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" -"(let-values(((s128_0) s_391)" +"(let-values(((s128_0) s_389)" "((ns129_0) ns_104)" "((temp130_1)" -"(lambda(s_436 ns_105 as-tail?_6)(expand-single-once s_436 ns_105)))" +"(lambda(s_434 ns_105 as-tail?_6)(expand-single-once s_434 ns_105)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" "((temp133_0) #t)" @@ -44608,22 +44609,22 @@ static const char *startup_source = " s128_0" " ns129_0)))))))))" "(case-lambda" -"((s_437)(begin 'expand-once(expand-once45_0 s_437 #f #f)))" -"((s_438 ns42_2)(expand-once45_0 s_438 ns42_2 #t)))))" +"((s_435)(begin 'expand-once(expand-once45_0 s_435 #f #f)))" +"((s_436 ns42_2)(expand-once45_0 s_436 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_439 ns_106)" +"(lambda(s_437 ns_106)" "(begin" "(let-values(((require-lifts_4 lifts_10 exp-s_7)" "(expand-capturing-lifts" -" s_439" -"(let-values(((v_190)" +" s_437" +"(let-values(((v_191)" "(let-values(((ns135_1) ns_106))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" -"(let-values(((the-struct_69) v_190))" +"(let-values(((the-struct_69) v_191))" "(if(expand-context/outer? the-struct_69)" "(let-values(((inner136_1)" -"(let-values(((the-struct_70)(root-expand-context/outer-inner v_190)))" +"(let-values(((the-struct_70)(root-expand-context/outer-inner v_191)))" "(if(expand-context/inner? the-struct_70)" "(let-values(((just-once?137_0) #t))" "(expand-context/inner2.1" @@ -44686,7 +44687,7 @@ static const char *startup_source = "(lambda(s49_0 ns47_2 ns48_2)" "(begin" " 'expand-to-top-form50" -"(let-values(((s_323) s49_0))" +"(let-values(((s_321) s49_0))" "(let-values(((ns_84)(if ns48_2 ns47_2(1/current-namespace))))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" @@ -44699,7 +44700,7 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s141_0) s_323)" +"(let-values(((s141_0) s_321)" "((ns142_0) ns_84)" "((temp143_0) #f)" "((temp144_2) #f)" @@ -44720,8 +44721,8 @@ static const char *startup_source = " s141_0" " ns142_0)))))))))))))" "(case-lambda" -"((s_440)(begin 'expand-to-top-form(expand-to-top-form50_0 s_440 #f #f)))" -"((s_212 ns47_3)(expand-to-top-form50_0 s_212 ns47_3 #t)))))" +"((s_438)(begin 'expand-to-top-form(expand-to-top-form50_0 s_438 #f #f)))" +"((s_210 ns47_3)(expand-to-top-form50_0 s_210 ns47_3 #t)))))" "(define-values" "(per-top-level68.1)" "(lambda(combine53_0" @@ -44750,13 +44751,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_105)(maybe-intro given-s_0 ns_107)))" +"(let-values(((s_104)(maybe-intro given-s_0 ns_107)))" "(let-values(((ctx_69)" "(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_137)(namespace-phase ns_107)))" "((letrec-values(((loop_98)" -"(lambda(s_214 phase_138 ns_108 as-tail?_7)" +"(lambda(s_212 phase_138 ns_108 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" @@ -44859,7 +44860,7 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_41))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_214 #f)))" +"(let-values(((wb-s_0)(if just-once?_1 s_212 #f)))" "(let-values((()" "(begin" "(let-values(((obs_43)" @@ -44871,14 +44872,14 @@ static const char *startup_source = "(call-expand-observe" " obs_43" " 'visit" -" s_214)))" +" s_212)))" "(void)))" "(values))))" "(let-values(((require-lifts_5 lifts_11 exp-s_8)" "(expand-capturing-lifts" -" s_214" -"(let-values(((v_191) tl-ctx_0))" -"(let-values(((the-struct_72) v_191))" +" s_212" +"(let-values(((v_192) tl-ctx_0))" +"(let-values(((the-struct_72) v_192))" "(if(expand-context/outer? the-struct_72)" "(let-values(((only-immediate?153_0)" " #t)" @@ -44887,7 +44888,7 @@ static const char *startup_source = "((inner155_0)" "(let-values(((the-struct_33)" "(root-expand-context/outer-inner" -" v_191)))" +" v_192)))" "(if(expand-context/inner?" " the-struct_33)" "(let-values(((phase156_1)" @@ -45057,38 +45058,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_27 begin161_0 e162_0)" -"(let-values(((s_441)" +"(let-values(((s_439)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_441))" +" s_439))" "(let-values(((begin161_1" " e162_1)" -"(let-values(((s_419)" +"(let-values(((s_417)" "(if(syntax?$1" -" s_441)" +" s_439)" "(syntax-e$1" -" s_441)" -" s_441)))" +" s_439)" +" s_439)))" "(if(pair?" -" s_419)" +" s_417)" "(let-values(((begin163_0)" -"(let-values(((s_420)" +"(let-values(((s_418)" "(car" -" s_419)))" -" s_420))" +" s_417)))" +" s_418))" "((e164_0)" -"(let-values(((s_442)" +"(let-values(((s_440)" "(cdr" -" s_419)))" -"(let-values(((s_123)" +" s_417)))" +"(let-values(((s_122)" "(if(syntax?$1" -" s_442)" +" s_440)" "(syntax-e$1" -" s_442)" -" s_442)))" +" s_440)" +" s_440)))" "(let-values(((flat-s_20)" "(to-syntax-list.1" -" s_123)))" +" s_122)))" "(if(not" " flat-s_20)" "(let-values()" @@ -45210,38 +45211,38 @@ static const char *startup_source = "(let-values(((ok?_22" " begin-for-syntax165_0" " e166_0)" -"(let-values(((s_227)" +"(let-values(((s_225)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_227))" +" s_225))" "(let-values(((begin-for-syntax165_1" " e166_1)" -"(let-values(((s_228)" +"(let-values(((s_226)" "(if(syntax?$1" -" s_227)" +" s_225)" "(syntax-e$1" -" s_227)" -" s_227)))" +" s_225)" +" s_225)))" "(if(pair?" -" s_228)" +" s_226)" "(let-values(((begin-for-syntax167_0)" -"(let-values(((s_230)" +"(let-values(((s_228)" "(car" -" s_228)))" -" s_230))" +" s_226)))" +" s_228))" "((e168_0)" -"(let-values(((s_330)" +"(let-values(((s_328)" "(cdr" -" s_228)))" -"(let-values(((s_231)" +" s_226)))" +"(let-values(((s_229)" "(if(syntax?$1" -" s_330)" +" s_328)" "(syntax-e$1" -" s_330)" -" s_330)))" +" s_328)" +" s_328)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_231)))" +" s_229)))" "(if(not" " flat-s_21)" "(let-values()" @@ -45296,7 +45297,7 @@ static const char *startup_source = "(values))))" "(let-values(((l_69)" "(reverse$1" -"(let-values(((lst_305)" +"(let-values(((lst_304)" " e166_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -45304,20 +45305,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_305)))" +" lst_304)))" "((letrec-values(((for-loop_269)" "(lambda(fold-var_275" -" lst_306)" +" lst_305)" "(begin" " 'for-loop" "(if(pair?" -" lst_306)" -"(let-values(((s_334)" +" lst_305)" +"(let-values(((s_332)" "(unsafe-car" -" lst_306))" +" lst_305))" "((rest_169)" "(unsafe-cdr" -" lst_306)))" +" lst_305)))" "(let-values(((fold-var_201)" "(let-values(((fold-var_202)" " fold-var_275))" @@ -45337,7 +45338,7 @@ static const char *startup_source = " 'next)))" "(void)))" "(loop_98" -" s_334" +" s_332" " next-phase_0" " next-ns_0" " #f)))" @@ -45353,7 +45354,7 @@ static const char *startup_source = " fold-var_275)))))" " for-loop_269)" " null" -" lst_305))))))" +" lst_304))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_5)" @@ -45387,21 +45388,21 @@ static const char *startup_source = " ns_108" " as-tail?_7))))))))))))))))))" " loop_98)" -" s_105" +" s_104" " phase_137" " ns_107" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_443 ns_109)" -"(begin(if(syntax?$1 s_443) s_443(1/namespace-syntax-introduce(1/datum->syntax #f s_443) ns_109)))))" +"(lambda(s_441 ns_109)" +"(begin(if(syntax?$1 s_441) s_441(1/namespace-syntax-introduce(1/datum->syntax #f s_441) ns_109)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_444 r_44)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_444)(cons form-id_0 r_44) s_444 s_444) s_444))))" +"(lambda(form-id_0 s_442 r_44)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_442)(cons form-id_0 r_44) s_442 s_442) s_442))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_445 ctx_70)" +"(lambda(s_443 ctx_70)" "(begin" "(let-values()" "(let-values(((ns_110)(expand-context-namespace ctx_70)))" @@ -45414,14 +45415,14 @@ static const char *startup_source = "(namespace-phase ns_110)" "(make-parse-top-lifted-require ns_110))))" "(let-values(((exp-s_9)" -"(let-values(((s170_0) s_445)" +"(let-values(((s170_0) s_443)" "((temp171_0)" -"(let-values(((v_192) ctx_70))" -"(let-values(((the-struct_73) v_192))" +"(let-values(((v_193) ctx_70))" +"(let-values(((the-struct_73) v_193))" "(if(expand-context/outer? the-struct_73)" "(let-values(((inner172_1)" "(let-values(((the-struct_74)" -"(root-expand-context/outer-inner v_192)))" +"(root-expand-context/outer-inner v_193)))" "(if(expand-context/inner? the-struct_74)" "(let-values(((lifts173_0) lift-ctx_6)" "((module-lifts174_0) lift-ctx_6)" @@ -45500,31 +45501,31 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_111)" "(begin" -"(lambda(s_446 phase_139)" +"(lambda(s_444 phase_139)" "(let-values(((ok?_28 #%require176_0 req177_0)" -"(let-values(((s_447)(syntax-disarm$1 s_446)))" -"(let-values(((orig-s_35) s_447))" +"(let-values(((s_445)(syntax-disarm$1 s_444)))" +"(let-values(((orig-s_35) s_445))" "(let-values(((#%require176_1 req177_1)" -"(let-values(((s_250)(if(syntax?$1 s_447)(syntax-e$1 s_447) s_447)))" -"(if(pair? s_250)" -"(let-values(((#%require178_0)(let-values(((s_251)(car s_250))) s_251))" +"(let-values(((s_248)(if(syntax?$1 s_445)(syntax-e$1 s_445) s_445)))" +"(if(pair? s_248)" +"(let-values(((#%require178_0)(let-values(((s_249)(car s_248))) s_249))" "((req179_0)" -"(let-values(((s_252)(cdr s_250)))" -"(let-values(((s_253)" -"(if(syntax?$1 s_252)" -"(syntax-e$1 s_252)" -" s_252)))" -"(if(pair? s_253)" +"(let-values(((s_250)(cdr s_248)))" +"(let-values(((s_251)" +"(if(syntax?$1 s_250)" +"(syntax-e$1 s_250)" +" s_250)))" +"(if(pair? s_251)" "(let-values(((req180_0)" -"(let-values(((s_448)(car s_253)))" -" s_448))" +"(let-values(((s_446)(car s_251)))" +" s_446))" "(()" -"(let-values(((s_449)(cdr s_253)))" -"(let-values(((s_450)" -"(if(syntax?$1 s_449)" -"(syntax-e$1 s_449)" -" s_449)))" -"(if(null? s_450)" +"(let-values(((s_447)(cdr s_251)))" +"(let-values(((s_448)" +"(if(syntax?$1 s_447)" +"(syntax-e$1 s_447)" +" s_447)))" +"(if(null? s_448)" "(values)" "(raise-syntax-error$1" " #f" @@ -45536,7 +45537,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" "(values #t #%require176_1 req177_1))))))" "(let-values(((temp181_0)(list req177_0))" -"((s182_0) s_446)" +"((s182_0) s_444)" "((ns183_0) ns_111)" "((phase184_1) phase_139)" "((phase185_1) phase_139)" @@ -45581,18 +45582,18 @@ static const char *startup_source = "(lifted-parsed-begin30.1" "(append" "(reverse$1" -"(let-values(((lst_307) require-lifts_6))" +"(let-values(((lst_306) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_307)))" +"(let-values()(check-list lst_306)))" "((letrec-values(((for-loop_270)" -"(lambda(fold-var_277 lst_308)" +"(lambda(fold-var_277 lst_307)" "(begin" " 'for-loop" -"(if(pair? lst_308)" -"(let-values(((req_19)(unsafe-car lst_308))" -"((rest_170)(unsafe-cdr lst_308)))" +"(if(pair? lst_307)" +"(let-values(((req_19)(unsafe-car lst_307))" +"((rest_170)(unsafe-cdr lst_307)))" "(let-values(((fold-var_278)" "(let-values(((fold-var_279) fold-var_277))" "(let-values(((fold-var_280)" @@ -45606,20 +45607,20 @@ static const char *startup_source = " fold-var_277)))))" " for-loop_270)" " null" -" lst_307))))" +" lst_306))))" "(reverse$1" -"(let-values(((lst_309)(get-lifts-as-lists lifts_12)))" +"(let-values(((lst_308)(get-lifts-as-lists lifts_12)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_309)))" +"(let-values()(check-list lst_308)))" "((letrec-values(((for-loop_271)" -"(lambda(fold-var_281 lst_310)" +"(lambda(fold-var_281 lst_309)" "(begin" " 'for-loop" -"(if(pair? lst_310)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_310))" -"((rest_171)(unsafe-cdr lst_310)))" +"(if(pair? lst_309)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_309))" +"((rest_171)(unsafe-cdr lst_309)))" "(let-values(((fold-var_282)" "(let-values(((fold-var_283) fold-var_281))" "(let-values(((fold-var_284)" @@ -45667,7 +45668,7 @@ static const char *startup_source = " fold-var_281)))))" " for-loop_271)" " null" -" lst_309)))))" +" lst_308)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" @@ -45691,19 +45692,19 @@ static const char *startup_source = "(if obs_54" "(let-values()" "(let-values(((ok?_29 begin193_0 e194_0)" -"(let-values(((s_451) new-s_7))" -"(let-values(((orig-s_36) s_451))" +"(let-values(((s_449) new-s_7))" +"(let-values(((orig-s_36) s_449))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_452)(if(syntax?$1 s_451)(syntax-e$1 s_451) s_451)))" -"(if(pair? s_452)" -"(let-values(((begin195_0)(let-values(((s_453)(car s_452))) s_453))" +"(let-values(((s_450)(if(syntax?$1 s_449)(syntax-e$1 s_449) s_449)))" +"(if(pair? s_450)" +"(let-values(((begin195_0)(let-values(((s_451)(car s_450))) s_451))" "((e196_0)" -"(let-values(((s_454)(cdr s_452)))" -"(let-values(((s_134)" -"(if(syntax?$1 s_454)" -"(syntax-e$1 s_454)" -" s_454)))" -"(let-values(((flat-s_22)(to-syntax-list.1 s_134)))" +"(let-values(((s_452)(cdr s_450)))" +"(let-values(((s_133)" +"(if(syntax?$1 s_452)" +"(syntax-e$1 s_452)" +" s_452)))" +"(let-values(((flat-s_22)(to-syntax-list.1 s_133)))" "(if(not flat-s_22)" "(let-values()" "(raise-syntax-error$1" @@ -45729,19 +45730,19 @@ static const char *startup_source = "(if obs_55" "(let-values()" "(let-values(((ok?_30 begin197_0 e198_0)" -"(let-values(((s_455) new-s_8))" -"(let-values(((orig-s_37) s_455))" +"(let-values(((s_453) new-s_8))" +"(let-values(((orig-s_37) s_453))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_456)(if(syntax?$1 s_455)(syntax-e$1 s_455) s_455)))" -"(if(pair? s_456)" -"(let-values(((begin199_0)(let-values(((s_457)(car s_456))) s_457))" +"(let-values(((s_454)(if(syntax?$1 s_453)(syntax-e$1 s_453) s_453)))" +"(if(pair? s_454)" +"(let-values(((begin199_0)(let-values(((s_455)(car s_454))) s_455))" "((e200_0)" -"(let-values(((s_458)(cdr s_456)))" -"(let-values(((s_459)" -"(if(syntax?$1 s_458)" -"(syntax-e$1 s_458)" -" s_458)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_459)))" +"(let-values(((s_456)(cdr s_454)))" +"(let-values(((s_457)" +"(if(syntax?$1 s_456)" +"(syntax-e$1 s_456)" +" s_456)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_457)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -45810,7 +45811,7 @@ static const char *startup_source = " (let-values () (raise-argument-error who_21 \"(-> any)\" fail-k_2)))" "(values))))" "(let-values(((ns_58)(1/current-namespace)))" -"(let-values(((mpi_48)" +"(let-values(((mpi_49)" "(if(1/module-path? mod-path_5)" "(let-values()(1/module-path-index-join mod-path_5 #f))" "(if(1/module-path-index? mod-path_5)" @@ -45819,12 +45820,12 @@ static const char *startup_source = "(1/module-path-index-join" "(resolved-module-path->module-path mod-path_5)" " #f))))))" -"(let-values(((mod-name_22)(1/module-path-index-resolve mpi_48 #t)))" +"(let-values(((mod-name_22)(1/module-path-index-resolve mpi_49 #t)))" "(let-values(((phase_140)(namespace-phase ns_58)))" "(if(not sym_82)" "(let-values()" "(let-values(((ns20_1) ns_58)" -"((mpi21_0) mpi_48)" +"((mpi21_0) mpi_49)" "((phase22_0) phase_140)" "((phase23_1) phase_140)" "((temp24_4) #f))" @@ -45843,7 +45844,7 @@ static const char *startup_source = "(if(equal? sym_82 0)" "(let-values()" "(let-values(((ns25_2) ns_58)" -"((mpi26_0) mpi_48)" +"((mpi26_0) mpi_49)" "((phase27_1) phase_140)" "((phase28_1) phase_140))" "(namespace-module-instantiate!96.1" @@ -45861,7 +45862,7 @@ static const char *startup_source = "(if(void? sym_82)" "(let-values()" "(let-values(((ns29_0) ns_58)" -"((mpi30_0) mpi_48)" +"((mpi30_0) mpi_49)" "((phase31_1) phase_140)" "((phase32_3) phase_140))" "(namespace-module-visit!104.1" @@ -45907,7 +45908,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((ns33_0) ns_58)" -"((mpi34_0) mpi_48)" +"((mpi34_0) mpi_49)" "((phase35_1) phase_140)" "((phase36_0)" " phase_140))" @@ -45929,7 +45930,7 @@ static const char *startup_source = "(module-path-index-shift" "(module-binding-module binding_26)" "(module-self m_22)" -" mpi_48))))" +" mpi_49))))" "(let-values(((m-ns_16)" "(let-values(((ns37_1) ns_58)" "((ex-mod-name38_0)" @@ -46031,7 +46032,7 @@ static const char *startup_source = "(let-values(((ns41_2)" " ns_58)" "((mpi42_1)" -" mpi_48)" +" mpi_49)" "((phase43_2)" " phase_140)" "((phase44_0)" @@ -46291,7 +46292,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_92" -"(let-values(((k_36 v_193)(hash-iterate-key+value ht_154 i_92)))" +"(let-values(((k_36 v_194)(hash-iterate-key+value ht_154 i_92)))" "(let-values(((table_216)" "(let-values(((table_185) table_215))" "(let-values(((table_217)" @@ -46300,7 +46301,7 @@ static const char *startup_source = "(let-values()" "(values" " k_36" -"(to-path v_193)))))" +"(to-path v_194)))))" "(hash-set" " table_185" " key_87" @@ -46353,17 +46354,17 @@ static const char *startup_source = "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_194)" +"(lambda(v_195)" "(begin" "(if((lambda(v_62)" "(let-values(((or-part_21)(eq? v_62 'modify-seconds)))" "(if or-part_21 or-part_21(eq? v_62 'exists))))" -" v_194)" +" v_195)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_194)))" -" v_194))))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_195)))" +" v_195))))))" "(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_76)(if v_76 #t #f))))" -"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_195)(if v_195 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_196)(if v_196 #t #f))))" "(define-values(complete-path-string?)(lambda(p_20)(begin(if(path-string? p_20)(complete-path? p_20) #f))))" "(define-values" "(relative-path-string?$1)" @@ -46427,7 +46428,7 @@ static const char *startup_source = "(embedded-load)" "(lambda(start_42 end_32 str_23 as-predefined?_0)" "(begin" -"(let-values(((s_164)" +"(let-values(((s_162)" "(if str_23" " str_23" "(let-values(((sp_0)(find-system-path 'exec-file)))" @@ -46447,7 +46448,7 @@ static const char *startup_source = "(file-position(current-input-port) start_43)" "(read-bytes(max 0(- end_33 start_43))))))))" "(with-input-from-file45.1 #f #f exe4_0 temp5_5)))))))))" -"(let-values(((p_62)(open-input-bytes s_164)))" +"(let-values(((p_62)(open-input-bytes s_162)))" "((letrec-values(((loop_74)" "(lambda()" "(begin" @@ -46479,7 +46480,7 @@ static const char *startup_source = "(let-values()((1/current-eval) e_77)))" "(loop_74)))))))))" " loop_74)))))))" -"(define-values(->path)(lambda(s_427)(begin(if(string? s_427)(string->path s_427) s_427))))" +"(define-values(->path)(lambda(s_425)(begin(if(string? s_425)(string->path s_425) s_425))))" "(define-values" "(find-main-collects)" "(lambda()" @@ -46508,12 +46509,12 @@ static const char *startup_source = "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))" "(define-values" "(check-collection)" -"(lambda(who_24 s_183 l_4)" +"(lambda(who_24 s_181 l_4)" "(begin" "(begin" -"(if(relative-path-string? s_183)" +"(if(relative-path-string? s_181)" "(void)" -" (let-values () (raise-argument-error who_24 \"(and/c path-string? relative-path?)\" s_183)))" +" (let-values () (raise-argument-error who_24 \"(and/c path-string? relative-path?)\" s_181)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" " (let-values () (raise-argument-error who_24 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" @@ -46744,7 +46745,7 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_196)" +"(let-values(((v_197)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path13_0) links-path_0)" @@ -46761,7 +46762,7 @@ static const char *startup_source = "(call-with-input-file*61.1 #f #f links-path13_0 temp14_5)))))" "(let-values((()" "(begin" -"(if(if(list? v_196)" +"(if(if(list? v_197)" "(andmap2" "(lambda(p_67)" "(if(list? p_67)" @@ -46782,7 +46783,7 @@ static const char *startup_source = " #f)" " #f)" " #f))" -" v_196)" +" v_197)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" @@ -46820,8 +46821,8 @@ static const char *startup_source = "(let-values()(hash-set! ht_157 #f null)))" "(hash-for-each" " ht_157" -"(lambda(k_38 v_197)" -"(hash-set! ht_157 k_38(cons dir_1 v_197))))))" +"(lambda(k_38 v_198)" +"(hash-set! ht_157 k_38(cons dir_1 v_198))))))" "(let-values()" "(let-values(((s_16)(string->symbol(car p_68))))" "(hash-set!" @@ -46829,10 +46830,10 @@ static const char *startup_source = " s_16" "(cons(box dir_1)(hash-ref ht_157 s_16 null)))))))))" "(void)))" -" v_196)" +" v_197)" "(hash-for-each" " ht_157" -"(lambda(k_39 v_198)(hash-set! ht_157 k_39(reverse$1 v_198))))" +"(lambda(k_39 v_199)(hash-set! ht_157 k_39(reverse$1 v_199))))" "(hash-set! links-cache links-path_0(cons ts_1 ht_157))" " ht_157))))))))))))))))))))))" "(define-values" @@ -47074,13 +47075,13 @@ static const char *startup_source = "(if(null? l_79)" " null" "(let-values(((collects-path_1)(car l_79)))" -"(let-values(((v_199)" +"(let-values(((v_200)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_199" +"(if v_200" "(cons" "(simplify-path" -"(path->complete-path v_199(current-directory)))" +"(path->complete-path v_200(current-directory)))" "(loop_85(cdr l_79)))" "(loop_85(cdr l_79))))))))))" " loop_85)" @@ -47100,14 +47101,14 @@ static const char *startup_source = "(let-values()" "(make-parameter" " #f" -"(lambda(v_200)" +"(lambda(v_201)" "(begin" "(if((lambda(x_80)" "(let-values(((or-part_11)(not x_80)))(if or-part_11 or-part_11(prop:readtable? x_80))))" -" v_200)" +" v_201)" "(void)" -" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_200)))" -" v_200))))))" +" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_201)))" +" v_201))))))" "(define-values" "(struct:read-config/outer" " read-config/outer1.1" @@ -47233,42 +47234,42 @@ static const char *startup_source = " pos_107" " indentations_0" " keep-comment?_0))))" -"(define-values(read-config-wrap)(lambda(v_201)(begin(read-config/outer-wrap v_201))))" -"(define-values(read-config-line)(lambda(v_202)(begin(read-config/outer-line v_202))))" -"(define-values(read-config-col)(lambda(v_203)(begin(read-config/outer-col v_203))))" -"(define-values(read-config-pos)(lambda(v_204)(begin(read-config/outer-pos v_204))))" -"(define-values(read-config-indentations)(lambda(v_205)(begin(read-config/outer-indentations v_205))))" -"(define-values(read-config-keep-comment?)(lambda(v_206)(begin(read-config/outer-keep-comment? v_206))))" +"(define-values(read-config-wrap)(lambda(v_202)(begin(read-config/outer-wrap v_202))))" +"(define-values(read-config-line)(lambda(v_203)(begin(read-config/outer-line v_203))))" +"(define-values(read-config-col)(lambda(v_204)(begin(read-config/outer-col v_204))))" +"(define-values(read-config-pos)(lambda(v_205)(begin(read-config/outer-pos v_205))))" +"(define-values(read-config-indentations)(lambda(v_206)(begin(read-config/outer-indentations v_206))))" +"(define-values(read-config-keep-comment?)(lambda(v_207)(begin(read-config/outer-keep-comment? v_207))))" "(define-values" "(read-config-readtable)" -"(lambda(v_207)(begin(read-config/inner-readtable(read-config/outer-inner v_207)))))" +"(lambda(v_208)(begin(read-config/inner-readtable(read-config/outer-inner v_208)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_208)(begin(read-config/inner-next-readtable(read-config/outer-inner v_208)))))" +"(lambda(v_209)(begin(read-config/inner-next-readtable(read-config/outer-inner v_209)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_209)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_209)))))" +"(lambda(v_210)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_210)))))" "(define-values(read-config-source)(lambda(v_69)(begin(read-config/inner-source(read-config/outer-inner v_69)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_180)(begin(read-config/inner-read-compiled(read-config/outer-inner v_180)))))" +"(lambda(v_181)(begin(read-config/inner-read-compiled(read-config/outer-inner v_181)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_210)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_210)))))" +"(lambda(v_211)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_211)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_211)(begin(read-config/inner-module-declared?(read-config/outer-inner v_211)))))" +"(lambda(v_212)(begin(read-config/inner-module-declared?(read-config/outer-inner v_212)))))" "(define-values(read-config-coerce)(lambda(v_77)(begin(read-config/inner-coerce(read-config/outer-inner v_77)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_212)(begin(read-config/inner-coerce-key(read-config/outer-inner v_212)))))" +"(lambda(v_213)(begin(read-config/inner-coerce-key(read-config/outer-inner v_213)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_199)(begin(read-config/inner-parameter-override(read-config/outer-inner v_199)))))" +"(lambda(v_200)(begin(read-config/inner-parameter-override(read-config/outer-inner v_200)))))" "(define-values" "(read-config-parameter-cache)" -"(lambda(v_213)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_213)))))" -"(define-values(read-config-st)(lambda(v_185)(begin(read-config/inner-st(read-config/outer-inner v_185)))))" +"(lambda(v_214)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_214)))))" +"(define-values(read-config-st)(lambda(v_186)(begin(read-config/inner-st(read-config/outer-inner v_186)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -47389,13 +47390,13 @@ static const char *startup_source = "(let-values(((local-graph?_0) reset-graph?33_0))" "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" -"(let-values(((v_214) config_0))" -"(let-values(((the-struct_76) v_214))" +"(let-values(((v_215) config_0))" +"(let-values(((the-struct_76) v_215))" "(if(read-config/outer? the-struct_76)" "(let-values(((wrap55_0) wrap_5)" "((keep-comment?56_0) keep-comment?_2)" "((inner57_0)" -"(let-values(((the-struct_77)(read-config/outer-inner v_214)))" +"(let-values(((the-struct_77)(read-config/outer-inner v_215)))" "(if(read-config/inner? the-struct_77)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" @@ -47457,13 +47458,13 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_108)" "(begin" -"(let-values(((v_215) config_2))" -"(let-values(((the-struct_78) v_215))" +"(let-values(((v_216) config_2))" +"(let-values(((the-struct_78) v_216))" "(if(read-config/outer? the-struct_78)" "(let-values(((line62_0) line_2)" "((col63_0) col_1)" "((pos64_0) pos_108)" -"((inner65_0)(read-config/outer-inner v_215)))" +"((inner65_0)(read-config/outer-inner v_216)))" "(read-config/outer1.1" " inner65_0" "(read-config/outer-wrap the-struct_78)" @@ -47477,10 +47478,10 @@ static const char *startup_source = "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_216) config_3))" -"(let-values(((the-struct_79) v_216))" +"(let-values(((v_217) config_3))" +"(let-values(((the-struct_79) v_217))" "(if(read-config/outer? the-struct_79)" -"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_216)))" +"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_217)))" "(read-config/outer1.1" " inner67_0" " wrap66_0" @@ -47494,10 +47495,10 @@ static const char *startup_source = "(keep-comment)" "(lambda(config_4)" "(begin" -"(let-values(((v_217) config_4))" -"(let-values(((the-struct_80) v_217))" +"(let-values(((v_218) config_4))" +"(let-values(((the-struct_80) v_218))" "(if(read-config/outer? the-struct_80)" -"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_217)))" +"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_218)))" "(read-config/outer1.1" " inner69_0" "(read-config/outer-wrap the-struct_80)" @@ -47514,10 +47515,10 @@ static const char *startup_source = "(if(not(read-config-keep-comment? config_5))" "(let-values() config_5)" "(let-values()" -"(let-values(((v_218) config_5))" -"(let-values(((the-struct_81) v_218))" +"(let-values(((v_219) config_5))" +"(let-values(((the-struct_81) v_219))" "(if(read-config/outer? the-struct_81)" -"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_218)))" +"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_219)))" "(read-config/outer1.1" " inner71_0" "(read-config/outer-wrap the-struct_81)" @@ -47534,11 +47535,11 @@ static const char *startup_source = "(if(eq?(read-config-readtable config_6)(read-config-next-readtable config_6))" "(let-values() config_6)" "(let-values()" -"(let-values(((v_219) config_6))" -"(let-values(((the-struct_82) v_219))" +"(let-values(((v_220) config_6))" +"(let-values(((the-struct_82) v_220))" "(if(read-config/outer? the-struct_82)" "(let-values(((inner72_1)" -"(let-values(((the-struct_83)(read-config/outer-inner v_219)))" +"(let-values(((the-struct_83)(read-config/outer-inner v_220)))" "(if(read-config/inner? the-struct_83)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" @@ -47575,26 +47576,26 @@ static const char *startup_source = "(if for-syntax?_5" "(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f #f in1_0 config2_0))" " #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_220)(begin 'default-reader-guard v_220)))" +"(define-values(default-reader-guard$1)(lambda(v_221)(begin 'default-reader-guard v_221)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_221)" +"(lambda(v_222)" "(begin" -"(if(if(procedure? v_221)(procedure-arity-includes? v_221 1) #f)" +"(if(if(procedure? v_222)(procedure-arity-includes? v_222 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_221)))" -" v_221))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_222)))" +" v_222))))" "(define-values(1/read-square-bracket-as-paren)(make-parameter #t(lambda(v_1)(if v_1 #t #f))))" -"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_222)(if v_222 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_223)(if v_223 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_223)(if v_223 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_224)(if v_224 #t #f))))" "(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_60)(if v_60 #t #f))))" "(define-values(1/read-cdot)(make-parameter #f(lambda(v_29)(if v_29 #t #f))))" "(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_61)(if v_61 #t #f))))" "(define-values(1/read-accept-compiled)(make-parameter #f(lambda(v_2)(if v_2 #t #f))))" "(define-values(1/read-accept-box)(make-parameter #t(lambda(v_92)(if v_92 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_224)(if v_224 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_225)(if v_225 #t #f))))" "(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_75)(if v_75 #t #f))))" "(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_30)(if v_30 #t #f))))" "(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))" @@ -47970,7 +47971,7 @@ static const char *startup_source = "(lambda(handler_0 c_62 in_3 config_14 line_3 col_2 pos_109)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_225)" +"(let-values(((v_226)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -47992,7 +47993,7 @@ static const char *startup_source = " config_14)" "(let-values()" "(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_109)))))))" -"(if(1/special-comment? v_225) v_225(coerce v_225 in_3 config_14)))))))" +"(if(1/special-comment? v_226) v_226(coerce v_226 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_63)" @@ -48312,13 +48313,13 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_179)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_180)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_179)" +"(if(eof-object? v_180)" "(let-values()" "(let-values(((in1_2) in_5)" "((config2_2) config_15)" -"((v3_0) v_179)" +"((v3_0) v_180)" "((temp4_2)" " \"expected a commented-out element for `~a;`, but found end-of-file\")" "((ec5_0) ec_0))" @@ -48569,15 +48570,15 @@ static const char *startup_source = "(lambda(a_68 convert_1 start-pos_6)" "(begin" "(let-values(((str_27)(accum-string-str a_68)))" -"(let-values(((s_77)(convert_1(substring str_27 start-pos_6(accum-string-pos a_68)))))" -"(let-values(((len_36)(string-length s_77)))" +"(let-values(((s_76)(convert_1(substring str_27 start-pos_6(accum-string-pos a_68)))))" +"(let-values(((len_36)(string-length s_76)))" "(begin" "(if(<(+ len_36 start-pos_6)(string-length str_27))" "(void)" "(let-values()" "(let-values(((str2_2)(make-string(+ start-pos_6 len_36))))" "(begin(string-copy! str2_2 0 str_27 0 start-pos_6)(set-accum-string-str! a_68 str2_2)))))" -"(string-copy!(accum-string-str a_68) start-pos_6 s_77)" +"(string-copy!(accum-string-str a_68) start-pos_6 s_76)" "(set-accum-string-pos! a_68(+ start-pos_6 len_36)))))))))" "(define-values" "(accum-string-get!6.1)" @@ -48588,8 +48589,8 @@ static const char *startup_source = "(let-values(((config_27) config5_0))" "(let-values(((start-pos_7)(if start-pos3_0 start-pos2_0 0)))" "(let-values()" -"(let-values(((s_186)(substring(accum-string-str a_69) start-pos_7(accum-string-pos a_69))))" -"(begin(accum-string-abandon! a_69 config_27) s_186)))))))))" +"(let-values(((s_184)(substring(accum-string-str a_69) start-pos_7(accum-string-pos a_69))))" +"(begin(accum-string-abandon! a_69 config_27) s_184)))))))))" "(define-values" "(accum-string-get-bytes!13.1)" "(lambda(start-pos9_0 start-pos10_0 a11_0 config12_0)" @@ -48701,19 +48702,19 @@ static const char *startup_source = "(let-values()" "(let-values(((missing_2)" "(let-values(((or-part_303)" -"(let-values(((lst_311)(cdr indts_1)))" +"(let-values(((lst_310)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_311)))" +"(let-values()(check-list lst_310)))" "((letrec-values(((for-loop_273)" -"(lambda(result_39 lst_312)" +"(lambda(result_39 lst_311)" "(begin" " 'for-loop" -"(if(pair? lst_312)" -"(let-values(((indt_3)(unsafe-car lst_312))" +"(if(pair? lst_311)" +"(let-values(((indt_3)(unsafe-car lst_311))" "((rest_172)" -"(unsafe-cdr lst_312)))" +"(unsafe-cdr lst_311)))" "(let-values(((result_82)" "(let-values()" "(let-values(((result_118)" @@ -48736,7 +48737,7 @@ static const char *startup_source = " result_39)))))" " for-loop_273)" " #f" -" lst_311)))))" +" lst_310)))))" " (if or-part_303 or-part_303 \"expected\"))))" "(let-values(((opener-str_0)(opener-name(closer->opener(indentation-closer indt_2)) config_33)))" "(format" @@ -48784,14 +48785,14 @@ static const char *startup_source = "(let-values(((head_0) #f))" "(let-values(((indentation_0)(make-indentation closer_1 in_10 seq-config_0)))" "(let-values(((config_34)" -"(let-values(((v_226) elem-config_0))" -"(let-values(((the-struct_86) v_226))" +"(let-values(((v_227) elem-config_0))" +"(let-values(((the-struct_86) v_227))" "(if(read-config/outer? the-struct_86)" "(let-values(((indentations20_0)" "(cons" " indentation_0" "(read-config-indentations seq-config_0)))" -"((inner21_0)(read-config/outer-inner v_226)))" +"((inner21_0)(read-config/outer-inner v_227)))" "(read-config/outer1.1" " inner21_0" "(read-config/outer-wrap the-struct_86)" @@ -49097,12 +49098,12 @@ static const char *startup_source = " temp40_3" "(list)))))))))))))" "(let-values()" -"(let-values(((v_227)" +"(let-values(((v_228)" "(read-one/not-eof_0" " c_72" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_227)" +"(if(1/special-comment? v_228)" "(let-values()" "(loop_39" " depth_11" @@ -49114,13 +49115,13 @@ static const char *startup_source = "(let-values()" "(loop_39" " depth_11" -"(cons v_227 accum_0)" +"(cons v_228 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_227" +" v_228" "(loop_39" "(add1 depth_11)" " null" @@ -49149,10 +49150,10 @@ static const char *startup_source = "(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_36) '#%braces #f))" "(let-values() #f))))))" "(if tag_0(cons(wrap tag_0 in_22 config_36 #f) seq_1) seq_1)))))" -" (define-values (not-an-fX.1) (lambda (who_27 v_228) (begin 'not-an-fX (raise-argument-error who_27 \"fixnum?\" v_228))))" +" (define-values (not-an-fX.1) (lambda (who_27 v_229) (begin 'not-an-fX (raise-argument-error who_27 \"fixnum?\" v_229))))" "(define-values" "(not-an-fX.1$1)" -" (lambda (who_27 v_228) (begin 'not-an-fX (raise-argument-error who_27 \"flonum?\" v_228))))" +" (lambda (who_27 v_229) (begin 'not-an-fX (raise-argument-error who_27 \"flonum?\" v_229))))" "(define-values" "(read-digits13.1)" "(lambda(base1_0" @@ -49188,11 +49189,11 @@ static const char *startup_source = "(consume-char in_12 c_74)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_74))(void))" "((letrec-values(((loop_61)" -"(lambda(v_229 max-count_1)" +"(lambda(v_230 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_229)" +"(let-values() v_230)" "(let-values()" "(let-values(((c_68)" "(let-values(((in_24) in_12)" @@ -49216,9 +49217,9 @@ static const char *startup_source = "(let-values()(accum-string-add! accum-str_0 c_68))" "(void))" "(loop_61" -"(+(digit->number c_68)(* v_229 base_23))" +"(+(digit->number c_68)(* v_230 base_23))" "(sub1 max-count_1))))" -"(let-values() v_229)))))))))" +"(let-values() v_230)))))))))" " loop_61)" "(+(digit->number c_74)(* init-v_0 base_23))" "(sub1 max-count_0))))" @@ -49262,7 +49263,7 @@ static const char *startup_source = "(lambda(s7_2 radix1_0 convert-mode2_0 decimal-mode3_0 radix4_0 convert-mode5_0 decimal-mode6_0)" "(begin" " 'string->number8" -"(let-values(((s_184) s7_2))" +"(let-values(((s_182) s7_2))" "(let-values(((radix_0)(if radix4_0 radix1_0 10)))" "(let-values(((convert-mode_0)(if convert-mode5_0 convert-mode2_0 'number-or-false)))" "(let-values(((decimal-mode_0)" @@ -49273,9 +49274,9 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(string? s_184)" +"(if(string? s_182)" "(void)" -" (let-values () (raise-argument-error 'string->number \"string?\" s_184)))" +" (let-values () (raise-argument-error 'string->number \"string?\" s_182)))" "(if((lambda(p_72)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" "(void)" "(let-values()" @@ -49300,9 +49301,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'decimal-as-inexact decimal-as-exact)\"" " decimal-mode_0)))" -"(let-values(((s69_0) s_184)" +"(let-values(((s69_0) s_182)" "((temp70_1) 0)" -"((temp71_1)(string-length s_184))" +"((temp71_1)(string-length s_182))" "((radix72_0) radix_0)" "((temp73_1) #f)" "((decimal-mode74_0) decimal-mode_0)" @@ -49318,11 +49319,11 @@ static const char *startup_source = " decimal-mode74_0" " convert-mode75_0))))))))))))))" "(case-lambda" -"((s_460)(begin 'string->number(string->number8_0 s_460 #f #f #f #f #f #f)))" -"((s_461 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_461 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" -"((s_181 radix_2 convert-mode2_1)(string->number8_0 s_181 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_462 radix1_1)(string->number8_0 s_462 radix1_1 #f #f #t #f #f)))))" +"((s_458)(begin 'string->number(string->number8_0 s_458 #f #f #f #f #f #f)))" +"((s_459 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_459 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_179 radix_2 convert-mode2_1)(string->number8_0 s_179 radix_2 convert-mode2_1 #f #t #t #f))" +"((s_460 radix1_1)(string->number8_0 s_460 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -49336,7 +49337,7 @@ static const char *startup_source = " convert-mode19_0)" "(begin" " 'do-string->number20" -"(let-values(((s_463) s14_1))" +"(let-values(((s_461) s14_1))" "(let-values(((start_44) start15_0))" "(let-values(((end_34) end16_0))" "(let-values(((radix_3) radix17_0))" @@ -49351,17 +49352,17 @@ static const char *startup_source = " (let-values () (format \"no digits\"))" "(let-values() #f)))" "(let-values()" -"(let-values(((c_79)(string-ref s_463 start_44)))" +"(let-values(((c_79)(string-ref s_461 start_44)))" "(if(char=? '#\\# c_79)" "(let-values()" "(let-values(((next_4)(add1 start_44)))" "(if(= next_4 end_34)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no character after `#` indicator in `~.a`\" s_463))" +" (let-values () (format \"no character after `#` indicator in `~.a`\" s_461))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_176)(string-ref s_463 next_4)))" +"(let-values(((i_176)(string-ref s_461 next_4)))" "(let-values(((tmp_38) i_176))" "(let-values(((index_2)" "(if(char? tmp_38)" @@ -49437,7 +49438,7 @@ static const char *startup_source = "(format" " \"bad `#` indicator `~a` at `~.a`\"" " i_176" -"(substring s_463 start_44 end_34)))" +"(substring s_461 start_44 end_34)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" @@ -49448,10 +49449,10 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced exactness specification at `~.a`\"" -"(substring s_463 start_44 end_34)))" +"(substring s_461 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(let-values(((s76_1) s_463)" +"(let-values(((s76_1) s_461)" "((temp77_0)(add1 next_4))" "((end78_0) end_34)" "((radix79_0) radix_3)" @@ -49486,7 +49487,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced radix specification at `~.a`\"" -"(substring s_463 start_44 end_34)))" +"(substring s_461 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" @@ -49504,7 +49505,7 @@ static const char *startup_source = "(equal? tmp_39 '#\\D))" "(let-values() 10)" "(let-values() 16)))))))" -"(let-values(((s83_0) s_463)" +"(let-values(((s83_0) s_461)" "((temp84_0)(add1 next_4))" "((end85_0) end_34)" "((radix86_0) radix_4)" @@ -49526,25 +49527,25 @@ static const char *startup_source = " temp89_2)))))))))))))))" "(let-values(((c1_28)" "(if(char-sign? c_79)" -"(read-special-number s_463 start_44 end_34 convert-mode_2)" +"(read-special-number s_461 start_44 end_34 convert-mode_2)" " #f)))" "(if c1_28" -"((lambda(v_230)" +"((lambda(v_231)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_230))" +" (let-values () (format \"no exact representation for `~a`\" v_231))" "(let-values() #f)))" -"(let-values() v_230)))" +"(let-values() v_231)))" " c1_28)" "(let-values(((c2_3)" "(if(char-sign? c_79)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\i(string-ref s_463(sub1 end_34)))" -"(if(char-sign?(string-ref s_463 6))" +"(if(char=? '#\\i(string-ref s_461(sub1 end_34)))" +"(if(char-sign?(string-ref s_461 6))" "(read-special-number" -" s_463" +" s_461" " start_44" "(+ start_44 6)" " convert-mode_2)" @@ -49554,15 +49555,15 @@ static const char *startup_source = " #f)" " #f)))" "(if c2_3" -"((lambda(v_231)" -"(let-values(((s90_1) s_463)" +"((lambda(v_232)" +"(let-values(((s90_1) s_461)" "((temp91_1)(+ start_44 6))" "((temp92_2)(sub1 end_34))" "((radix93_0) radix_3)" "((exactness94_0) exactness_0)" "((convert-mode95_0) convert-mode_2)" "((temp96_3) 'i)" -"((v97_0) v_231)" +"((v97_0) v_232)" "((temp98_3)" "(lambda(v_53 v2_0)" "(begin 'temp98(make-rectangular v_53 v2_0)))))" @@ -49582,10 +49583,10 @@ static const char *startup_source = "(let-values(((c3_2)" "(if(not in-complex_0)" "(if(>=(- end_34 start_44) 7)" -"(if(char=? '#\\i(string-ref s_463(sub1 end_34)))" -"(if(char-sign?(string-ref s_463(- end_34 7)))" +"(if(char=? '#\\i(string-ref s_461(sub1 end_34)))" +"(if(char-sign?(string-ref s_461(- end_34 7)))" "(read-special-number" -" s_463" +" s_461" "(- end_34 7)" "(sub1 end_34)" " convert-mode_2)" @@ -49598,7 +49599,7 @@ static const char *startup_source = "(if(if(= start_44(- end_34 7))(not(extflonum? v2_1)) #f)" "(let-values()(make-rectangular 0 v2_1))" "(let-values()" -"(let-values(((s99_0) s_463)" +"(let-values(((s99_0) s_461)" "((start100_0) start_44)" "((temp101_2)(- end_34 7))" "((radix102_0) radix_3)" @@ -49627,9 +49628,9 @@ static const char *startup_source = "(if(char-sign? c_79)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\@(string-ref s_463(+ start_44 6)))" +"(if(char=? '#\\@(string-ref s_461(+ start_44 6)))" "(read-special-number" -" s_463" +" s_461" " start_44" "(+ start_44 6)" " convert-mode_2)" @@ -49638,18 +49639,18 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_199)" -"(let-values(((s109_0) s_463)" +"((lambda(v_200)" +"(let-values(((s109_0) s_461)" "((temp110_1)(+ start_44 7))" "((end111_0) end_34)" "((radix112_0) radix_3)" "((exactness113_0) exactness_0)" "((convert-mode114_0) convert-mode_2)" "((temp115_0) '@)" -"((v116_0) v_199)" +"((v116_0) v_200)" "((temp117_0)" -"(lambda(v_232 v2_3)" -"(begin 'temp117(make-polar v_232 v2_3)))))" +"(lambda(v_233 v2_3)" +"(begin 'temp117(make-polar v_233 v2_3)))))" "(read-for-special-compound65.1" " temp115_0" " #f" @@ -49666,9 +49667,9 @@ static const char *startup_source = "(let-values(((c5_1)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\@(string-ref s_463(- end_34 7)))" +"(if(char=? '#\\@(string-ref s_461(- end_34 7)))" "(read-special-number" -" s_463" +" s_461" "(- end_34 6)" " end_34" " convert-mode_2)" @@ -49677,7 +49678,7 @@ static const char *startup_source = " #f)))" "(if c5_1" "((lambda(v2_4)" -"(let-values(((s118_0) s_463)" +"(let-values(((s118_0) s_461)" "((start119_0) start_44)" "((temp120_2)(- end_34 7))" "((radix121_0) radix_3)" @@ -49687,8 +49688,8 @@ static const char *startup_source = "((temp125_1) #t)" "((v2126_0) v2_4)" "((temp127_3)" -"(lambda(v2_5 v_233)" -"(begin 'temp127(make-polar v_233 v2_5)))))" +"(lambda(v2_5 v_234)" +"(begin 'temp127(make-polar v_234 v2_5)))))" "(read-for-special-compound65.1" " temp124_2" " temp125_1" @@ -49703,7 +49704,7 @@ static const char *startup_source = " temp127_3)))" " c5_1)" "(let-values()" -"(let-values(((s128_1) s_463)" +"(let-values(((s128_1) s_461)" "((start129_0) start_44)" "((end130_0) end_34)" "((radix131_0) radix_3)" @@ -49734,7 +49735,7 @@ static const char *startup_source = " convert-mode32_0)" "(begin" " 'do-string->non-special-number33" -"(let-values(((s_38) s27_1))" +"(let-values(((s_203) s27_1))" "(let-values(((start_45) start28_0))" "(let-values(((end_35) end29_0))" "(let-values(((radix_5) radix30_0))" @@ -49764,7 +49765,7 @@ static const char *startup_source = "(let-values()" "(format" " \"no digits in `~.a`\"" -"(substring s_38 start_45 end_35)))" +"(substring s_203 start_45 end_35)))" "(let-values() #f)))" "(if(if must-i?_0(not i-pos_3) #f)" "(let-values()" @@ -49772,7 +49773,7 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_38 start_45 end_35)))" +"(substring s_203 start_45 end_35)))" "(let-values() #f)))" "(if(if sign-pos_0" "(let-values(((or-part_314)" @@ -49786,11 +49787,11 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced sign in `~.a`\"" -"(substring s_38 start_45 end_35)))" +"(substring s_203 start_45 end_35)))" "(let-values() #f)))" "(if i-pos_3" "(let-values()" -"(let-values(((s136_0) s_38)" +"(let-values(((s136_0) s_203)" "((start137_0) start_45)" "((sign-pos138_0) sign-pos_0)" "((sign-pos139_0) sign-pos_0)" @@ -49817,7 +49818,7 @@ static const char *startup_source = " convert-mode147_0)))" "(if @-pos_0" "(let-values()" -"(let-values(((s148_0) s_38)" +"(let-values(((s148_0) s_203)" "((start149_0) start_45)" "((@-pos150_0) @-pos_0)" "((temp151_2)(add1 @-pos_0))" @@ -49844,7 +49845,7 @@ static const char *startup_source = " convert-mode159_0)))" "(let-values()" "(string->real-number" -" s_38" +" s_203" " start_45" " end_35" " dot-pos_1" @@ -49855,7 +49856,7 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_80)(string-ref s_38 i_177)))" +"(let-values(((c_80)(string-ref s_203 i_177)))" "(if(digit? c_80 radix_5)" "(let-values()" "(loop_106" @@ -49890,7 +49891,7 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_38 start_45 end_35)))" +"(substring s_203 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" @@ -49932,7 +49933,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `.` in `~.a`\"" -"(substring s_38 start_45 end_35)))" +"(substring s_203 start_45 end_35)))" "(let-values() #f)))" "(if(if slash-pos_0" "(let-values(((or-part_317)(not sign-pos_0)))" @@ -49945,7 +49946,7 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_38 start_45 end_35)))" +"(substring s_203 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" @@ -49972,7 +49973,7 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_38 start_45 end_35)))" +"(substring s_203 start_45 end_35)))" "(let-values() #f)))" "(if(let-values(((or-part_319)" "(if exp-pos_0" @@ -49996,7 +49997,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `/` in `~.a`\"" -"(substring s_38 start_45 end_35)))" +"(substring s_203 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" @@ -50073,10 +50074,10 @@ static const char *startup_source = "(format" " \"misplaced `~a` in `~.a`\"" " c_80" -"(substring s_38 start_45 end_35)))" +"(substring s_203 start_45 end_35)))" "(let-values() #f)))" "(if(if(<(add1 i_177) end_35)" -"(char-sign?(string-ref s_38(add1 i_177)))" +"(char-sign?(string-ref s_203(add1 i_177)))" " #f)" "(let-values()" "(loop_106" @@ -50112,7 +50113,7 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_38 start_45 end_35)))" +"(substring s_203 start_45 end_35)))" "(let-values() #f)))" "(if(let-values(((or-part_332) @-pos_0))" "(if or-part_332" @@ -50123,7 +50124,7 @@ static const char *startup_source = "(let-values()" "(format" " \"too many `@`s in `~.a`\"" -"(substring s_38 start_45 end_35)))" +"(substring s_203 start_45 end_35)))" "(let-values() #f)))" "(if(= i_177 start_45)" "(let-values()" @@ -50131,7 +50132,7 @@ static const char *startup_source = "(let-values()" "(format" " \"`@` cannot be at start in `~.a`\"" -"(substring s_38 start_45 end_35)))" +"(substring s_203 start_45 end_35)))" "(let-values() #f)))" "(if must-i?_0" "(let-values()" @@ -50139,7 +50140,7 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_38 start_45 end_35)))" +"(substring s_203 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" @@ -50170,7 +50171,7 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_38 start_45 end_35)))" +"(substring s_203 start_45 end_35)))" "(let-values() #f)))" "(if(let-values(((or-part_335)" "(<(add1 i_177) end_35)))" @@ -50182,7 +50183,7 @@ static const char *startup_source = "(let-values()" "(format" " \"`i` must be at the end in `~.a`\"" -"(substring s_38 start_45 end_35)))" +"(substring s_203 start_45 end_35)))" "(let-values() #f)))" "(let-values()" "(loop_106" @@ -50201,7 +50202,7 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"nul character in `~.a`\" s_38))" +" (format \"nul character in `~.a`\" s_203))" "(let-values() #f)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -50235,7 +50236,7 @@ static const char *startup_source = " convert-mode49_0)" "(begin" " 'string->complex-number50" -"(let-values(((s_224) s40_0))" +"(let-values(((s_222) s40_0))" "(let-values(((start1_0) start141_0))" "(let-values(((end1_0) end142_0))" "(let-values(((start2_0) start243_0))" @@ -50252,7 +50253,7 @@ static const char *startup_source = "(if(= start1_0 end1_0)" "(let-values()(if(eq? exactness_2 'inexact) 0.0 0))" "(let-values()" -"(let-values(((s160_0) s_224)" +"(let-values(((s160_0) s_222)" "((start1161_0) start1_0)" "((end1162_0) end1_0)" "((radix163_0) radix_6)" @@ -50273,12 +50274,12 @@ static const char *startup_source = "(let-values(((v2_6)" "(if(if(eq? in-complex_2 'i)(=(- end2_0 start2_0) 1) #f)" "(let-values()" -"(let-values(((neg?_0)(char=?(string-ref s_224 start2_0) '#\\-)))" +"(let-values(((neg?_0)(char=?(string-ref s_222 start2_0) '#\\-)))" "(if(eq? exactness_2 'inexact)" "(let-values()(if neg?_0 -1.0 1.0))" "(let-values()(if neg?_0 -1 1)))))" "(let-values()" -"(let-values(((s168_0) s_224)" +"(let-values(((s168_0) s_222)" "((start2169_0) start2_0)" "((end2170_0) end2_0)" "((radix171_0) radix_6)" @@ -50321,10 +50322,10 @@ static const char *startup_source = " p_74))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_235 start_46 end_36 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" +"(lambda(s_233 start_46 end_36 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" "(begin" "(let-values(((extfl-mark?_0)" -"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_235 exp-pos_1)) '#\\t)))))" +"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_233 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" "(if(let-values(((or-part_337)(eq? exactness_3 'inexact)))" @@ -50337,17 +50338,17 @@ static const char *startup_source = " or-part_339" "(let-values(((or-part_340)(not(eq? convert-mode_5 'number-or-false))))" "(if or-part_340 or-part_340(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_235 start_46 end_36) #f))" +"(not(if any-hashes?_1(hashes? s_233 start_46 end_36) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_36 start_46)(char-sign?(string-ref s_235 start_46)) #f)))" +"(let-values(((has-sign?_0)(if(> end_36 start_46)(char-sign?(string-ref s_233 start_46)) #f)))" "(if(=(- end_36 start_46)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))" "(let-values()" "(if(= end_36 start_46)" " (if (eq? convert-mode_5 'must-read) (let-values () (format \"missing digits\")) (let-values () #f))" "(if(eq? convert-mode_5 'must-read)" -" (let-values () (format \"missing digits in `~.a`\" (substring s_235 start_46 end_36)))" +" (let-values () (format \"missing digits in `~.a`\" (substring s_233 start_46 end_36)))" "(let-values() #f))))" "(if simple?_0" "(let-values()" @@ -50359,23 +50360,23 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits before exponent marker in `~.a`\" (substring s_235 start_46 end_36)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_233 start_46 end_36)))" "(let-values() #f)))" "(if(if exp-pos_1" "(let-values(((or-part_341)(= exp-pos_1(sub1 end_36))))" "(if or-part_341" " or-part_341" -"(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_235(sub1 end_36))) #f)))" +"(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_233(sub1 end_36))) #f)))" " #f)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits after exponent marker in `~.a`\" (substring s_235 start_46 end_36)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_233 start_46 end_36)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_30)" "(string->number$1" -"(maybe-substring s_235 start_46 end_36)" +"(maybe-substring s_233 start_46 end_36)" " radix_7" "(if(let-values(((or-part_342)(eq? convert-mode_5 'number-or-false)))" "(if or-part_342" @@ -50389,7 +50390,7 @@ static const char *startup_source = "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_235 start_46 end_36)))" +"(substring s_233 start_46 end_36)))" "(if(eq? exactness_3 'inexact)" "(let-values()" "(if(extflonum? n_30)" @@ -50398,9 +50399,9 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_235 start_46 end_36)))" +"(substring s_233 start_46 end_36)))" "(let-values() #f)))" -"(if(if(eqv? n_30 0)(char=?(string-ref s_235 start_46) '#\\-) #f)" +"(if(if(eqv? n_30 0)(char=?(string-ref s_233 start_46) '#\\-) #f)" "(let-values() -0.0)" "(let-values()(exact->inexact n_30)))))" "(let-values() n_30))))))))" @@ -50408,7 +50409,7 @@ static const char *startup_source = "(let-values()" "(let-values(((m-v_0)" "(string->real-number" -" s_235" +" s_233" " start_46" " exp-pos_1" " dot-pos_2" @@ -50419,12 +50420,12 @@ static const char *startup_source = " 'exact" " convert-mode_5)))" "(let-values(((e-v_0)" -"(string->exact-integer-number s_235(+ exp-pos_1 1) end_36 radix_7 convert-mode_5)))" +"(string->exact-integer-number s_233(+ exp-pos_1 1) end_36 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" "(lambda(r_46)" "(begin" " 'real->precision-inexact" -"(let-values(((tmp_40)(string-ref s_235 exp-pos_1)))" +"(let-values(((tmp_40)(string-ref s_233 exp-pos_1)))" "(if(if(equal? tmp_40 '#\\s)" " #t" "(if(equal? tmp_40 '#\\S)" @@ -50436,7 +50437,7 @@ static const char *startup_source = "(if(extflonum-available?)" "(real->extfl r_46)" "(string->number$1" -"(replace-hashes s_235 start_46 end_36)" +"(replace-hashes s_233 start_46 end_36)" " radix_7" " 'read)))" "(let-values()(real->double-flonum r_46)))))))))" @@ -50456,7 +50457,7 @@ static const char *startup_source = "(let-values()" "(real->precision-inexact_0" "(if(eqv? m-v_0 0)" -"(let-values()(if(char=?(string-ref s_235 start_46) '#\\-) -0.0 0.0))" +"(let-values()(if(char=?(string-ref s_233 start_46) '#\\-) -0.0 0.0))" "(if(positive? m-v_0)" "(let-values()(if(positive? e-v_0) +inf.0 0.0))" "(let-values()(if(positive? e-v_0) -inf.0 -0.0))))))" @@ -50466,7 +50467,7 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_235 start_46 end_36)" +"(substring s_233 start_46 end_36)" " exactness_3))" "(let-values() #f)))" "(let-values()" @@ -50476,14 +50477,14 @@ static const char *startup_source = "(if or-part_346 or-part_346(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_31)" -"(if(if(eqv? n_31 0)(char=?(string-ref s_235 start_46) '#\\-) #f)" +"(if(if(eqv? n_31 0)(char=?(string-ref s_233 start_46) '#\\-) #f)" "(let-values()(real->precision-inexact_0 -0.0))" "(let-values()(real->precision-inexact_0 n_31)))))))))))))))))" "(if slash-pos_1" "(let-values()" "(let-values(((n-v_0)" "(string->real-number" -" s_235" +" s_233" " start_46" " slash-pos_1" " #f" @@ -50495,7 +50496,7 @@ static const char *startup_source = " convert-mode_5)))" "(let-values(((d-v_0)" "(string->real-number" -" s_235" +" s_233" "(add1 slash-pos_1)" " end_36" " #f" @@ -50513,7 +50514,7 @@ static const char *startup_source = "(if or-part_152" " or-part_152" "(if(not(eq? exactness_3 'exact))" -"(hashes? s_235 from-pos_0 end_36)" +"(hashes? s_233 from-pos_0 end_36)" " #f)))))))" "(if(let-values(((or-part_347)(not n-v_0)))(if or-part_347 or-part_347(not d-v_0)))" "(let-values() #f)" @@ -50528,14 +50529,14 @@ static const char *startup_source = "(let-values()" "(if(eq?(read-complains convert-mode_5) 'must-read)" "(let-values()" -" (format \"division by zero in `~.a`\" (substring s_235 start_46 end_36)))" +" (format \"division by zero in `~.a`\" (substring s_233 start_46 end_36)))" "(let-values() #f)))))" "(let-values()" "(let-values(((n_32)(/ n-v_0 d-v_0)))" "(if(get-inexact?_0 start_46)(exact->inexact n_32) n_32)))))))))))" "(let-values()" "(string->decimal-number" -" s_235" +" s_233" " start_46" " end_36" " dot-pos_2" @@ -50544,7 +50545,7 @@ static const char *startup_source = " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_360 start_47 end_37 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_358 start_47 end_37 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" "(let-values(((or-part_348)(eq? exactness_4 'exact)))" @@ -50560,22 +50561,22 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_360 start_47 end_37)))" +" (format \"misplaced `#` in `~.a`\" (substring s_358 start_47 end_37)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_33)(string->number$1 new-str_0 radix_8)))" "(if(not n_33)" -"(let-values()(fail-bad-number convert-mode_6 s_360 start_47 end_37))" +"(let-values()(fail-bad-number convert-mode_6 s_358 start_47 end_37))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_33 0)(char=?(string-ref s_360 start_47) '#\\-) #f)" +"(if(if(eqv? n_33 0)(char=?(string-ref s_358 start_47) '#\\-) #f)" " -0.0" "(exact->inexact n_33)))" "(if(if dot-pos_3 get-exact?_0 #f)" "(let-values()(/ n_33(expt 10(- end_37 dot-pos_3 1))))" "(let-values() n_33))))))))" "(let-values()" -"(let-values(((c_81)(string-ref s_360 i_118)))" +"(let-values(((c_81)(string-ref s_358 i_118)))" "(if(char=? c_81 '#\\.)" "(let-values()" "(if get-exact?_0" @@ -50612,7 +50613,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_360 start_47 end_37)))" +"(substring s_358 start_47 end_37)))" "(let-values() #f)))))" "(let-values()" "(begin" @@ -50624,48 +50625,48 @@ static const char *startup_source = " end_37))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_245 start_48 end_38 radix_9 convert-mode_7)" +"(lambda(s_243 start_48 end_38 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_245 start_48 end_38)" +"(if(hashes? s_243 start_48 end_38)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_245 start_48 end_38)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_243 start_48 end_38)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_34)(string->number$1(maybe-substring s_245 start_48 end_38) radix_9)))" +"(let-values(((n_34)(string->number$1(maybe-substring s_243 start_48 end_38) radix_9)))" "(if(not n_34)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_245 start_48 end_38)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_243 start_48 end_38)))" "(let-values() #f)))" "(let-values() n_34))))))))" "(define-values" "(read-special-number)" -"(lambda(s_248 start_49 end_39 convert-mode_8)" +"(lambda(s_246 start_49 end_39 convert-mode_8)" "(begin" "(if(=(- end_39 start_49) 6)" -"(if(let-values(((or-part_350)(char=?(string-ref s_248 start_49) '#\\+)))" -"(if or-part_350 or-part_350(char=?(string-ref s_248 start_49) '#\\-)))" +"(if(let-values(((or-part_350)(char=?(string-ref s_246 start_49) '#\\+)))" +"(if or-part_350 or-part_350(char=?(string-ref s_246 start_49) '#\\-)))" "(let-values(((or-part_351)" -"(if(char=?(char-downcase(string-ref s_248(+ start_49 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_248(+ start_49 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_248(+ start_49 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_248(+ start_49 4))) '#\\.)" +"(if(char=?(char-downcase(string-ref s_246(+ start_49 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_246(+ start_49 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_246(+ start_49 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_246(+ start_49 4))) '#\\.)" "(let-values(((or-part_352)" -"(if(char=?(char-downcase(string-ref s_248(+ start_49 5))) '#\\0)" -"(if(char=?(string-ref s_248 start_49) '#\\+) +inf.0 -inf.0)" +"(if(char=?(char-downcase(string-ref s_246(+ start_49 5))) '#\\0)" +"(if(char=?(string-ref s_246 start_49) '#\\+) +inf.0 -inf.0)" " #f)))" "(if or-part_352" " or-part_352" "(let-values(((or-part_353)" -"(if(char=?(char-downcase(string-ref s_248(+ start_49 5))) '#\\f)" -"(if(char=?(string-ref s_248 start_49) '#\\+) +inf.f -inf.f)" +"(if(char=?(char-downcase(string-ref s_246(+ start_49 5))) '#\\f)" +"(if(char=?(string-ref s_246 start_49) '#\\+) +inf.f -inf.f)" " #f)))" "(if or-part_353" " or-part_353" -"(if(char=?(char-downcase(string-ref s_248(+ start_49 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_246(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_248 start_49) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_246 start_49) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" @@ -50674,19 +50675,19 @@ static const char *startup_source = " #f)))" "(if or-part_351" " or-part_351" -"(if(char=?(char-downcase(string-ref s_248(+ start_49 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_248(+ start_49 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_248(+ start_49 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_248(+ start_49 4))) '#\\.)" +"(if(char=?(char-downcase(string-ref s_246(+ start_49 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_246(+ start_49 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_246(+ start_49 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_246(+ start_49 4))) '#\\.)" "(let-values(((or-part_354)" -"(if(char=?(char-downcase(string-ref s_248(+ start_49 5))) '#\\0) +nan.0 #f)))" +"(if(char=?(char-downcase(string-ref s_246(+ start_49 5))) '#\\0) +nan.0 #f)))" "(if or-part_354" " or-part_354" "(let-values(((or-part_355)" -"(if(char=?(char-downcase(string-ref s_248(+ start_49 5))) '#\\f) +nan.f #f)))" +"(if(char=?(char-downcase(string-ref s_246(+ start_49 5))) '#\\f) +nan.f #f)))" "(if or-part_355" " or-part_355" -"(if(char=?(char-downcase(string-ref s_248(+ start_49 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_246(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -50697,10 +50698,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_234)" +"(lambda(convert-mode_9 v_235)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_234))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_235))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound65.1)" @@ -50717,7 +50718,7 @@ static const char *startup_source = " combine64_0)" "(begin" " 'read-for-special-compound65" -"(let-values(((s_464) s57_0))" +"(let-values(((s_462) s57_0))" "(let-values(((start_50) start58_0))" "(let-values(((end_40) end59_0))" "(let-values(((radix_10) radix60_0))" @@ -50725,22 +50726,22 @@ static const char *startup_source = "(let-values(((convert-mode_10) convert-mode62_0))" "(let-values(((in-complex_3) in-complex53_0))" "(let-values(((reading-first?_0)(if reading-first?56_0 reading-first?54_0 #f)))" -"(let-values(((v_235) v63_0))" +"(let-values(((v_236) v63_0))" "(let-values(((combine_1) combine64_0))" "(let-values()" "(if(eq? exactness_5 'exact)" "(let-values()" "(if(eq? convert-mode_10 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_235))" +" (let-values () (format \"no exact representation for `~a`\" v_236))" "(let-values() #f)))" -"(if(if(extflonum? v_235)" +"(if(if(extflonum? v_236)" "(let-values(((or-part_356)(not reading-first?_0)))" "(if or-part_356 or-part_356(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_235))" +"(let-values()(fail-extflonum convert-mode_10 v_236))" "(let-values()" "(let-values(((v2_7)" -"(let-values(((s176_0) s_464)" +"(let-values(((s176_0) s_462)" "((start177_0) start_50)" "((end178_0) end_40)" "((radix179_0) radix_10)" @@ -50762,12 +50763,12 @@ static const char *startup_source = "(let-values() v2_7)" "(if(not v2_7)" "(let-values() v2_7)" -"(if(extflonum? v_235)" -"(let-values()(fail-extflonum convert-mode_10 v_235))" -"(let-values()(combine_1 v_235 v2_7)))))))))))))))))))))))" +"(if(extflonum? v_236)" +"(let-values()(fail-extflonum convert-mode_10 v_236))" +"(let-values()(combine_1 v_236 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_465 start_51 end_41)" +"(lambda(s_463 start_51 end_41)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" @@ -50775,7 +50776,7 @@ static const char *startup_source = " \"string\"" "(lambda(x_82)(string? x_82))" "(lambda(x_83)(unsafe-string-length x_83))" -" s_465" +" s_463" " start_51" " end_41" " 1)))" @@ -50801,7 +50802,7 @@ static const char *startup_source = " start*_5))))))" "(define-values" "(replace-hashes)" -"(lambda(s_466 start_52 end_42)" +"(lambda(s_464 start_52 end_42)" "(begin" "(let-values(((new-s_9)(make-string(- end_42 start_52))))" "(begin" @@ -50811,7 +50812,7 @@ static const char *startup_source = " \"string\"" "(lambda(x_85)(string? x_85))" "(lambda(x_86)(unsafe-string-length x_86))" -" s_466" +" s_464" " start_52" " end_42" " 1))" @@ -50847,8 +50848,8 @@ static const char *startup_source = " new-s_9)))))" "(define-values" "(maybe-substring)" -"(lambda(s_403 start_54 end_43)" -"(begin(if(if(= 0 start_54)(= end_43(string-length s_403)) #f) s_403(substring s_403 start_54 end_43)))))" +"(lambda(s_401 start_54 end_43)" +"(begin(if(if(= 0 start_54)(= end_43(string-length s_401)) #f) s_401(substring s_401 start_54 end_43)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" @@ -50862,24 +50863,24 @@ static const char *startup_source = "(digit?)" "(lambda(c_85 radix_11)" "(begin" -"(let-values(((v_236)(char->integer c_85)))" +"(let-values(((v_237)(char->integer c_85)))" "(let-values(((or-part_359)" -"(if(>= v_236(char->integer '#\\0))(<(- v_236(char->integer '#\\0)) radix_11) #f)))" +"(if(>= v_237(char->integer '#\\0))(<(- v_237(char->integer '#\\0)) radix_11) #f)))" "(if or-part_359" " or-part_359" "(if(> radix_11 10)" "(let-values(((or-part_360)" -"(if(>= v_236(char->integer '#\\a))(<(- v_236(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if(>= v_237(char->integer '#\\a))(<(- v_237(-(char->integer '#\\a) 10)) radix_11) #f)))" "(if or-part_360" " or-part_360" -"(if(>= v_236(char->integer '#\\A))(<(- v_236(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(if(>= v_237(char->integer '#\\A))(<(- v_237(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_467 start_55 end_44)" +"(lambda(convert-mode_11 s_465 start_55 end_44)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_467 start_55 end_44)))" +" (let-values () (format \"bad number `~.a`\" (substring s_465 start_55 end_44)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -51363,7 +51364,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_7)))" "(let-values(((fill_0) 0))" -"(let-values(((v_193)(make-fxvector len_7 fill_0)))" +"(let-values(((v_194)(make-fxvector len_7 fill_0)))" "(begin" "(if(zero? len_7)" "(void)" @@ -51374,17 +51375,17 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_254)" -"(lambda(i_179 lst_80)" +"((letrec-values(((for-loop_253)" +"(lambda(i_179 lst_81)" "(begin" " 'for-loop" -"(if(pair? lst_80)" +"(if(pair? lst_81)" "(let-values(((e_73)" "(unsafe-car" -" lst_80))" +" lst_81))" "((rest_141)" "(unsafe-cdr" -" lst_80)))" +" lst_81)))" "(let-values(((i_39)" "(let-values(((i_40)" " i_179))" @@ -51397,7 +51398,7 @@ static const char *startup_source = "(if(fixnum?" " elem_0)" "(unsafe-fxvector-set!" -" v_193" +" v_194" " i_40" " elem_0)" "(not-an-fX.1" @@ -51416,15 +51417,15 @@ static const char *startup_source = " e_73))" "(not #f)" " #f)" -"(for-loop_254" +"(for-loop_253" " i_39" " rest_141)" " i_39)))" " i_179)))))" -" for-loop_254)" +" for-loop_253)" " 0" " lst_24)))))" -" v_193))))))" +" v_194))))))" "(if(equal? tmp_41 'flonum)" "(let-values()" "(let-values(((len_37)(length seq_2)))" @@ -51437,17 +51438,17 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_37)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_237)(make-flvector len_37 fill_1)))" +"(let-values(((v_238)(make-flvector len_37 fill_1)))" "(begin" "(if(zero? len_37)" "(void)" "(let-values()" -"(let-values(((lst_92) seq_2))" +"(let-values(((lst_93) seq_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_92)))" +"(let-values()(check-list lst_93)))" "((letrec-values(((for-loop_189)" "(lambda(i_180 lst_17)" "(begin" @@ -51471,7 +51472,7 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_237" +" v_238" " i_93" " elem_1)" "(not-an-fX.1$1" @@ -51497,8 +51498,8 @@ static const char *startup_source = " i_180)))))" " for-loop_189)" " 0" -" lst_92)))))" -" v_237))))))" +" lst_93)))))" +" v_238))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_38)(length seq_2)))" @@ -51536,11 +51537,11 @@ static const char *startup_source = "(list temp25_6 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_238)" +"(lambda(v_239)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_238 in_30 config_40 #f)" +"(wrap v_239 in_30 config_40 #f)" "((letrec-values(((loop_109)" "(lambda(seq_3)" "(begin" @@ -51634,12 +51635,12 @@ static const char *startup_source = "(if(equal? tmp_44 'fixnum)" "(let-values()" "(begin" -"(let-values(((lst_226) seq_2)((start_57) 0))" +"(let-values(((lst_225) seq_2)((start_57) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_226)))" +"(let-values()(check-list lst_225)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -51681,38 +51682,38 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_100)" -" lst_226" +" lst_225" " start_57)))" "(void)))" "(if(equal? tmp_44 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_313) seq_2)((start_58) 0))" +"(let-values(((lst_312) seq_2)((start_58) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_313)))" +"(let-values()(check-list lst_312)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_58)))" "((letrec-values(((for-loop_109)" -"(lambda(lst_279" +"(lambda(lst_278" " pos_117)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_279)" +" lst_278)" " #t" " #f)" "(let-values(((e_83)" "(unsafe-car" -" lst_279))" +" lst_278))" "((rest_45)" "(unsafe-cdr" -" lst_279))" +" lst_278))" "((i_35)" " pos_117))" "(let-values((()" @@ -51736,7 +51737,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_109)" -" lst_313" +" lst_312" " start_58)))" "(void)))" "(let-values()(void))))))" @@ -52774,8 +52775,8 @@ static const char *startup_source = "((temp64_3)(indentation-unexpected-closer-message ec_8 c_79 config_49)))" "(reader-error12.1 #f #f #f #f #f #f #f #f in61_0 temp62_2 temp63_4(list temp64_3))))" "(let-values()" -"(let-values(((v_239)(read-one_8 c_79 in_42(keep-comment elem-config_1))))" -"(if(1/special-comment? v_239)" +"(let-values(((v_240)(read-one_8 c_79 in_42(keep-comment elem-config_1))))" +"(if(1/special-comment? v_240)" "(let-values()" "((make-read-one-key+value" " read-one_8" @@ -52846,7 +52847,7 @@ static const char *startup_source = " temp72_1" "(list temp73_4)))))" "(values))))" -"(let-values(((v_231)(read-one_8 #f in_42 elem-config_1)))" +"(let-values(((v_232)(read-one_8 #f in_42 elem-config_1)))" "(let-values(((closer-c_0)" "(read-char/skip-whitespace-and-comments #f read-one_8 in_42 config_49)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" @@ -52879,7 +52880,7 @@ static const char *startup_source = " temp75_1" " temp77_1" "(list temp78_2)))))" -"(cons(coerce-key k_41 elem-config_1) v_231))))))))))))))))))))))" +"(cons(coerce-key k_41 elem-config_1) v_232))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 mode2_0 in3_0 config4_0)" @@ -53308,7 +53309,7 @@ static const char *startup_source = "(let-values(((pos_103)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_238)" +"(let-values(((v_239)" "(let-values(((in40_1)" " in_44)" "((config41_1)" @@ -53331,13 +53332,13 @@ static const char *startup_source = " accum-str42_0" " #t))))" "(begin" -"(if(integer? v_238)" +"(if(integer? v_239)" "(void)" "(let-values()" "(no-hex-digits" " in_44" " config_22" -" v_238" +" v_239" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" @@ -53346,7 +53347,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_238))))))" +" v_239))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -53361,7 +53362,7 @@ static const char *startup_source = "(let-values(((pos_119)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_240)" +"(let-values(((v_241)" "(let-values(((in45_0)" " in_44)" "((config46_0)" @@ -53385,23 +53386,23 @@ static const char *startup_source = " #t))))" "(begin" "(if(integer?" -" v_240)" +" v_241)" "(void)" "(let-values()" "(no-hex-digits" " in_44" " config_22" -" v_240" +" v_241" " escaping-c_0" " escaped-c_0)))" "(if(let-values(((or-part_263)" "(<" -" v_240" +" v_241" " 55296)))" "(if or-part_263" " or-part_263" "(>" -" v_240" +" v_241" " 57343)))" "(let-values()" "(begin" @@ -53411,7 +53412,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_240))))" +" v_241))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" @@ -53495,7 +53496,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_240" +" v_241" " 55296)" " 10)" "(-" @@ -53601,7 +53602,7 @@ static const char *startup_source = "(let-values(((pos_120)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_241)" +"(let-values(((v_242)" "(let-values(((in72_0)" " in_44)" "((config73_0)" @@ -53625,26 +53626,26 @@ static const char *startup_source = " #t))))" "(begin" "(if(integer?" -" v_241)" +" v_242)" "(void)" "(let-values()" "(no-hex-digits" " in_44" " config_22" -" v_241" +" v_242" " escaping-c_0" " escaped-c_0)))" "(if(if(let-values(((or-part_54)" "(<" -" v_241" +" v_242" " 55296)))" "(if or-part_54" " or-part_54" "(>" -" v_241" +" v_242" " 57343)))" "(<=" -" v_241" +" v_242" " 1114111)" " #f)" "(let-values()" @@ -53655,7 +53656,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_241))))" +" v_242))))" "(let-values()" "(let-values(((in77_1)" " in_44)" @@ -53863,24 +53864,24 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_314)" +"(let-values(((lst_313)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_314)))" +"(let-values()(check-list lst_313)))" "((letrec-values(((for-loop_277)" -"(lambda(lst_29)" +"(lambda(lst_314)" "(begin" " 'for-loop" -"(if(pair? lst_29)" +"(if(pair? lst_314)" "(let-values(((c_12)" "(unsafe-car" -" lst_29))" +" lst_314))" "((rest_174)" "(unsafe-cdr" -" lst_29)))" +" lst_314)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -53898,7 +53899,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_277)" -" lst_314)))" +" lst_313)))" "(void))))" "(if(char=? c_97 '#\\newline)" "(let-values()" @@ -54944,7 +54945,7 @@ static const char *startup_source = "(let-values((()(begin(force-parameters! config_56)(values))))" "(let-values(((guard_0)(1/current-reader-guard)))" "(let-values(((mod-path_27)" -"(let-values(((or-part_61)" +"(let-values(((or-part_60)" "(if try-first-mod-path_0" "(let-values(((mod-path_28)(guard_0 try-first-mod-path_0)))" "(if((read-config-module-declared? config_56)" @@ -54952,7 +54953,7 @@ static const char *startup_source = " mod-path_28" " #f))" " #f)))" -"(if or-part_61 or-part_61(guard_0 mod-path-datum_0)))))" +"(if or-part_60 or-part_60(guard_0 mod-path-datum_0)))))" "(let-values(((for-syntax?_8)(read-config-for-syntax? config_56)))" "(let-values(((dynamic-require_2)(read-config-dynamic-require config_56)))" "(let-values(((no-value_0)(gensym)))" @@ -55097,10 +55098,10 @@ static const char *startup_source = "(lambda(in_51 config_57 prefix_7 c_49)" "(begin" "(let-values(((add-prefix_0)" -"(lambda(s_427)" +"(lambda(s_425)" "(begin" " 'add-prefix" -" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_427) s_427)))))" +" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_425) s_425)))))" "(let-values(((in11_2) in_51)" "((config12_4) config_57)" "((c13_3) c_49)" @@ -55222,7 +55223,7 @@ static const char *startup_source = " #t" " wrap63_0" " #t)))))))" -"(let-values(((v_242)(read-one init-c_15 in_12 config_58)))" +"(let-values(((v_243)(read-one init-c_15 in_12 config_58)))" "(if(if(let-values(((or-part_93)(not recursive?_0)))" "(if or-part_93 or-part_93 local-graph?_1))" "(read-config-state-graph(read-config-st config_58))" @@ -55231,17 +55232,17 @@ static const char *startup_source = "(catch-and-reraise-as-reader/proc" " #f" " config_58" -"(lambda()(make-reader-graph v_242))))" +"(lambda()(make-reader-graph v_243))))" "(if(if recursive?_0" "(if(not local-graph?_1)" "(if(not for-syntax?_9)" -"(if(not(eof-object? v_242))(not(1/special-comment? v_242)) #f)" +"(if(not(eof-object? v_243))(not(1/special-comment? v_243)) #f)" " #f)" " #f)" " #f)" "(let-values()" -"(begin(get-graph-hash config_58)(make-placeholder v_242)))" -"(let-values() v_242))))))))))))))))))))))))" +"(begin(get-graph-hash config_58)(make-placeholder v_243)))" +"(let-values() v_243))))))))))))))))))))))))" "(define-values" "(read-language49.1)" "(lambda(coerce38_0" @@ -55316,12 +55317,12 @@ static const char *startup_source = "(if(check-parameter 1/read-cdot config_61)" "(let-values()" "(let-values(((line_11 col_10 pos_122)(port-next-location in_64)))" -"(let-values(((v_243)(read-undotted init-c_16 in_64 config_61)))" -"(if(1/special-comment? v_243)" -"(let-values() v_243)" +"(let-values(((v_244)(read-undotted init-c_16 in_64 config_61)))" +"(if(1/special-comment? v_244)" +"(let-values() v_244)" "(let-values()" "((letrec-values(((loop_114)" -"(lambda(v_244)" +"(lambda(v_245)" "(begin" " 'loop" "(let-values(((c_104)" @@ -55337,9 +55338,9 @@ static const char *startup_source = "(if(eq? c_105 'special)(special1.1 'special) c_105)))))" "(let-values(((ec_9)(effective-char c_104 config_61)))" "(if(not(char? ec_9))" -"(let-values() v_244)" +"(let-values() v_245)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_64 c_104)(loop_114 v_244)))" +"(let-values()(begin(consume-char in_64 c_104)(loop_114 v_245)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" @@ -55359,13 +55360,13 @@ static const char *startup_source = "(read-undotted #f in_64 config_61)))" "(loop_114" "(wrap" -"(list cdot_0 v_244 post-v_0)" +"(list cdot_0 v_245 post-v_0)" " in_64" "(reading-at config_61 line_11 col_10 pos_122)" " '#\\.)))))))" -"(let-values() v_244))))))))))" +"(let-values() v_245))))))))))" " loop_114)" -" v_243))))))" +" v_244))))))" "(void))))))" "(define-values" "(read-undotted)" @@ -55377,15 +55378,15 @@ static const char *startup_source = "(let-values() eof)" "(if(not(char? c_106))" "(let-values()" -"(let-values(((v_245)(special-value c_106)))" -"(if(1/special-comment? v_245)" -"(let-values()(if(read-config-keep-comment? config_56) v_245(read-undotted #f in_62 config_56)))" -"(let-values()(coerce v_245 in_62(reading-at config_56 line_12 col_11 pos_123))))))" +"(let-values(((v_246)(special-value c_106)))" +"(if(1/special-comment? v_246)" +"(let-values()(if(read-config-keep-comment? config_56) v_246(read-undotted #f in_62 config_56)))" +"(let-values()(coerce v_246 in_62(reading-at config_56 line_12 col_11 pos_123))))))" "(let-values(((c2_8)(readtable-handler config_56 c_106)))" "(if c2_8" "((lambda(handler_3)" -"(let-values(((v_246)(readtable-apply handler_3 c_106 in_62 config_56 line_12 col_11 pos_123)))" -"(retry-special-comment v_246 in_62 config_56)))" +"(let-values(((v_43)(readtable-apply handler_3 c_106 in_62 config_56 line_12 col_11 pos_123)))" +"(retry-special-comment v_43 in_62 config_56)))" " c2_8)" "(let-values()" "(let-values(((ec_10)(effective-char c_106 config_56)))" @@ -56785,8 +56786,8 @@ static const char *startup_source = "(if(1/resolved-module-path? mod_25)" "(let-values() mod_25)" "(let-values()" -"(let-values(((mpi_49)(if(1/module-path-index? mod_25) mod_25(1/module-path-index-join mod_25 #f))))" -"(1/module-path-index-resolve mpi_49 load?_6))))))))))" +"(let-values(((mpi_50)(if(1/module-path-index? mod_25) mod_25(1/module-path-index-join mod_25 #f))))" +"(1/module-path-index-resolve mpi_50 load?_6))))))))))" "(define-values" "(read-syntax$1)" "(lambda(src_0 in_77)" @@ -56979,18 +56980,18 @@ static const char *startup_source = "(let-values()" "(read-to-syntax" "(reverse$1" -"(let-values(((lst_269) v_250))" +"(let-values(((lst_268) v_250))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_269)))" +"(let-values()(check-list lst_268)))" "((letrec-values(((for-loop_279)" -"(lambda(fold-var_286 lst_282)" +"(lambda(fold-var_286 lst_281)" "(begin" " 'for-loop" -"(if(pair? lst_282)" -"(let-values(((e_87)(unsafe-car lst_282))" -"((rest_176)(unsafe-cdr lst_282)))" +"(if(pair? lst_281)" +"(let-values(((e_87)(unsafe-car lst_281))" +"((rest_176)(unsafe-cdr lst_281)))" "(let-values(((fold-var_287)" "(let-values(((fold-var_288) fold-var_286))" "(let-values(((fold-var_244)" @@ -57004,7 +57005,7 @@ static const char *startup_source = " fold-var_286)))))" " for-loop_279)" " null" -" lst_269))))" +" lst_268))))" " srcloc_12" " #f))" "(if(pair? v_250)" @@ -57223,28 +57224,28 @@ static const char *startup_source = "(declare-primitive-module!)" "(lambda(name_72 inst_7 in-ns_0 protected_0 cross-phase-persistent?_3)" "(begin" -"(let-values(((mpi_50)(1/module-path-index-join(list 'quote name_72) #f)))" +"(let-values(((mpi_51)(1/module-path-index-join(list 'quote name_72) #f)))" "(let-values(((in-ns1_0) in-ns_0)" "((temp2_6)" "(let-values(((temp4_0)(1/current-module-declare-source))" "((cross-phase-persistent?5_0) cross-phase-persistent?_3)" "((temp6_4)(zero?(hash-count protected_0)))" -"((mpi7_0) mpi_50)" +"((mpi7_0) mpi_51)" "((temp8_4)" "(hasheqv" " 0" -"(let-values(((lst_78)(1/instance-variable-names inst_7)))" +"(let-values(((lst_79)(1/instance-variable-names inst_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" +"(let-values()(check-list lst_79)))" "((letrec-values(((for-loop_96)" -"(lambda(table_212 lst_79)" +"(lambda(table_212 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_79)" -"(let-values(((sym_60)(unsafe-car lst_79))" -"((rest_36)(unsafe-cdr lst_79)))" +"(if(pair? lst_80)" +"(let-values(((sym_60)(unsafe-car lst_80))" +"((rest_36)(unsafe-cdr lst_80)))" "(let-values(((table_218)" "(let-values(((table_174) table_212))" "(let-values(((table_175)" @@ -57254,7 +57255,7 @@ static const char *startup_source = "(let-values()" "(let-values(((binding_27)" "(let-values(((mpi10_0)" -" mpi_50)" +" mpi_51)" "((temp11_6)" " 0)" "((sym12_0)" @@ -57303,7 +57304,7 @@ static const char *startup_source = " table_212)))))" " for-loop_96)" " '#hash()" -" lst_78)))))" +" lst_79)))))" "((temp9_8)" "(lambda(data-box_5" " ns_46" @@ -57321,12 +57322,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_23)))" "((letrec-values(((for-loop_20)" -"(lambda(lst_267)" +"(lambda(lst_266)" "(begin" " 'for-loop" -"(if(pair? lst_267)" -"(let-values(((sym_95)(unsafe-car lst_267))" -"((rest_177)(unsafe-cdr lst_267)))" +"(if(pair? lst_266)" +"(let-values(((sym_95)(unsafe-car lst_266))" +"((rest_177)(unsafe-cdr lst_266)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -57447,13 +57448,13 @@ static const char *startup_source = "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_179)" +"(lambda(v_180)" "(begin" -"(if(let-values(((or-part_176)(not v_179)))" +"(if(let-values(((or-part_176)(not v_180)))" "(if or-part_176" " or-part_176" -"(let-values(((or-part_142)(1/module-path? v_179)))" -"(if or-part_142 or-part_142(if(syntax?$1 v_179)(1/module-path?(syntax->datum$1 v_179)) #f)))))" +"(let-values(((or-part_142)(1/module-path? v_180)))" +"(if or-part_142 or-part_142(if(syntax?$1 v_180)(1/module-path?(syntax->datum$1 v_180)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -57462,8 +57463,8 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_179)))" -" v_179))))" +" v_180)))" +" v_180))))" "(define-values" "(maybe-raise-missing-module)" "(lambda(name_73 filename_0 pre_0 rel_0 post_0 errstr_0)" @@ -57547,22 +57548,22 @@ static const char *startup_source = " intdefs63_0" " #t)))))))))))" "(case-lambda" -"((s_171 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_171 context_1 stop-ids_3 #f #f)))" -"((s_164 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_164 context_11 stop-ids_4 intdefs1_1 #t)))))" +"((s_169 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_169 context_1 stop-ids_3 #f #f)))" +"((s_162 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_162 context_11 stop-ids_4 intdefs1_1 #t)))))" "(define-values" "(1/local-expand/capture-lifts)" "(let-values(((local-expand/capture-lifts15_0)" "(lambda(s12_2 context13_0 stop-ids14_0 intdefs8_0 lift-key9_0 intdefs10_0 lift-key11_0)" "(begin" " 'local-expand/capture-lifts15" -"(let-values(((s_427) s12_2))" +"(let-values(((s_425) s12_2))" "(let-values(((context_12) context13_0))" "(let-values(((stop-ids_5) stop-ids14_0))" "(let-values(((intdefs_4)(if intdefs10_0 intdefs8_0 #f)))" "(let-values(((lift-key_4)(if lift-key11_0 lift-key9_0(generate-lift-key))))" "(let-values()" "(let-values(((temp64_4) 'local-expand)" -"((s65_0) s_427)" +"((s65_0) s_425)" "((context66_0) context_12)" "((stop-ids67_0) stop-ids_5)" "((intdefs68_0) intdefs_4)" @@ -57588,25 +57589,25 @@ static const char *startup_source = " intdefs68_0" " #t))))))))))))" "(case-lambda" -"((s_78 context_13 stop-ids_6)" -"(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_78 context_13 stop-ids_6 #f #f #f #f)))" -"((s_177 context_14 stop-ids_7 intdefs_5 lift-key9_1)" -"(local-expand/capture-lifts15_0 s_177 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" -"((s_186 context_15 stop-ids_8 intdefs8_1)" -"(local-expand/capture-lifts15_0 s_186 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" +"((s_77 context_13 stop-ids_6)" +"(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_77 context_13 stop-ids_6 #f #f #f #f)))" +"((s_175 context_14 stop-ids_7 intdefs_5 lift-key9_1)" +"(local-expand/capture-lifts15_0 s_175 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" +"((s_184 context_15 stop-ids_8 intdefs8_1)" +"(local-expand/capture-lifts15_0 s_184 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" "(define-values" "(1/local-transformer-expand)" "(let-values(((local-transformer-expand22_0)" "(lambda(s19_1 context20_0 stop-ids21_0 intdefs17_0 intdefs18_0)" "(begin" " 'local-transformer-expand22" -"(let-values(((s_306) s19_1))" +"(let-values(((s_304) s19_1))" "(let-values(((context_16) context20_0))" "(let-values(((stop-ids_9) stop-ids21_0))" "(let-values(((intdefs_6)(if intdefs18_0 intdefs17_0 #f)))" "(let-values()" "(let-values(((temp71_4) 'local-expand)" -"((s72_0) s_306)" +"((s72_0) s_304)" "((context73_0) context_16)" "((stop-ids74_0) stop-ids_9)" "((intdefs75_0) intdefs_6)" @@ -57631,10 +57632,10 @@ static const char *startup_source = " intdefs75_0" " #t)))))))))))" "(case-lambda" -"((s_468 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_468 context_17 stop-ids_10 #f #f)))" -"((s_469 context_18 stop-ids_11 intdefs17_1)" -"(local-transformer-expand22_0 s_469 context_18 stop-ids_11 intdefs17_1 #t)))))" +"((s_466 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_466 context_17 stop-ids_10 #f #f)))" +"((s_467 context_18 stop-ids_11 intdefs17_1)" +"(local-transformer-expand22_0 s_467 context_18 stop-ids_11 intdefs17_1 #t)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts31_0)" @@ -57675,26 +57676,26 @@ static const char *startup_source = " intdefs81_0" " #t))))))))))))" "(case-lambda" -"((s_470 context_20 stop-ids_13)" +"((s_468 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_470 context_20 stop-ids_13 #f #f #f #f)))" -"((s_406 context_21 stop-ids_14 intdefs_8 lift-key25_1)" -"(local-transformer-expand/capture-lifts31_0 s_406 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" -"((s_87 context_22 stop-ids_15 intdefs24_1)" -"(local-transformer-expand/capture-lifts31_0 s_87 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" +"(local-transformer-expand/capture-lifts31_0 s_468 context_20 stop-ids_13 #f #f #f #f)))" +"((s_404 context_21 stop-ids_14 intdefs_8 lift-key25_1)" +"(local-transformer-expand/capture-lifts31_0 s_404 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" +"((s_86 context_22 stop-ids_15 intdefs24_1)" +"(local-transformer-expand/capture-lifts31_0 s_86 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" "(define-values" "(1/syntax-local-expand-expression)" "(let-values(((syntax-local-expand-expression36_0)" "(lambda(s35_1 opaque-only?33_0 opaque-only?34_0)" "(begin" " 'syntax-local-expand-expression36" -"(let-values(((s_471) s35_1))" +"(let-values(((s_469) s35_1))" "(let-values(((opaque-only?_0)(if opaque-only?34_0 opaque-only?33_0 #f)))" "(let-values()" "(let-values(((exp-s_12)" "(let-values(((temp85_3) 'syntax-local-expand-expression)" -"((s86_1) s_471)" +"((s86_1) s_469)" "((temp87_4) 'expression)" "((null88_0) null)" "((temp89_4) #f)" @@ -57786,7 +57787,7 @@ static const char *startup_source = "(let-values(((skip-log-exit?_0)(if skip-log-exit?49_0 skip-log-exit?43_0 #f)))" "(let-values()" "(let-values()" -"(let-values(((s_392)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_390)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" "(if(let-values(((or-part_179)(list? context_23)))" @@ -57884,12 +57885,12 @@ static const char *startup_source = "(call-expand-observe" " obs_59" " 'enter-local" -" s_392)))" +" s_390)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp101_4)" -"(flip-introduction-scopes s_392 ctx_75))" +"(flip-introduction-scopes s_390 ctx_75))" "((intdefs102_0) intdefs_9))" "(add-intdef-scopes21.1" " #f" @@ -58077,7 +58078,7 @@ static const char *startup_source = "(lambda(s5_3 maybe-insp1_0 use-mode?2_0 maybe-insp3_0 use-mode?4_0)" "(begin" " 'syntax-arm6" -"(let-values(((s_170) s5_3))" +"(let-values(((s_168) s5_3))" "(let-values(((maybe-insp_0)(if maybe-insp3_0 maybe-insp1_0 #f)))" "(let-values(((use-mode?_0)(if use-mode?4_0 use-mode?2_0 #f)))" "(let-values()" @@ -58085,9 +58086,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_170)" +"(if(syntax?$1 s_168)" "(void)" -" (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_170)))" +" (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_168)))" "(values))))" "(let-values((()" "(begin" @@ -58104,26 +58105,26 @@ static const char *startup_source = "(if use-mode?_0" "(let-values()" "(taint-dispatch" -" s_170" -"(lambda(s_472)(syntax-arm$1 s_472 insp_21))" +" s_168" +"(lambda(s_470)(syntax-arm$1 s_470 insp_21))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-arm$1 s_170 insp_21))))))))))))))))" +"(let-values()(syntax-arm$1 s_168 insp_21))))))))))))))))" "(case-lambda" -"((s_171)(begin 'syntax-arm(syntax-arm6_0 s_171 #f #f #f #f)))" -"((s_172 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_172 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_426 maybe-insp1_1)(syntax-arm6_0 s_426 maybe-insp1_1 #f #t #f)))))" +"((s_169)(begin 'syntax-arm(syntax-arm6_0 s_169 #f #f #f #f)))" +"((s_170 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_170 maybe-insp_1 use-mode?2_1 #t #t))" +"((s_424 maybe-insp1_1)(syntax-arm6_0 s_424 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_473 maybe-insp_2)" +"(lambda(s_471 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_473)" +"(if(syntax?$1 s_471)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_473)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_471)))" "(values))))" "(let-values((()" "(begin" @@ -58132,46 +58133,46 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))" "(values))))" -"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_473 insp_22)))))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_471 insp_22)))))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm12_0)" "(lambda(s10_0 from-s11_0 use-mode?8_0 use-mode?9_0)" "(begin" " 'syntax-rearm12" -"(let-values(((s_425) s10_0))" +"(let-values(((s_423) s10_0))" "(let-values(((from-s_2) from-s11_0))" "(let-values(((use-mode?_1)(if use-mode?9_0 use-mode?8_0 #f)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_425)" +"(if(syntax?$1 s_423)" "(void)" -" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_425)))" +" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_423)))" "(if(syntax?$1 from-s_2)" "(void)" " (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" from-s_2)))" "(if use-mode?_1" "(let-values()" "(taint-dispatch" -" s_425" -"(lambda(s_474)(syntax-rearm$1 s_474 from-s_2))" +" s_423" +"(lambda(s_472)(syntax-rearm$1 s_472 from-s_2))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-rearm$1 s_425 from-s_2))))))))))))))" +"(let-values()(syntax-rearm$1 s_423 from-s_2))))))))))))))" "(case-lambda" -"((s_422 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_422 from-s_3 #f #f)))" +"((s_420 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_420 from-s_3 #f #f)))" "((s_5 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_5 from-s_4 use-mode?8_1 #t)))))" "(define-values" "(1/syntax-taint)" -"(lambda(s_77)" +"(lambda(s_76)" "(begin" " 'syntax-taint" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_77) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_77)))" -"(syntax-taint$1 s_77)))))))" +" (if (syntax?$1 s_76) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_76)))" +"(syntax-taint$1 s_76)))))))" "(define-values" "(inspector-for-taint)" "(lambda(maybe-insp_3)" @@ -58208,34 +58209,31 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'variable-reference->namespace \"variable-reference?\" vr_1)))" "(values))))" -"(let-values(((inst_8)(1/variable-reference->instance vr_1)))" -"(if(symbol? inst_8)" +"(let-values(((ns_117)(variable-reference->namespace* vr_1)))" +"(let-values(((mpi_52)(namespace-mpi ns_117)))" +"(begin" +"(if(non-self-module-path-index? mpi_52)" "(let-values()" -"(1/module->namespace(list 'quote inst_8)(1/instance-data(1/variable-reference->instance vr_1 #t))))" -"(if(not inst_8)" -"(let-values()(1/instance-data(1/variable-reference->instance vr_1 #t)))" -"(let-values()(1/instance-data inst_8)))))))))))" +"(let-values(((ns4_0) ns_117)((mpi5_1) mpi_52)((temp6_5)(namespace-0-phase ns_117)))" +"(namespace-module-make-available!112.1 #f #f ns4_0 mpi5_1 temp6_5)))" +"(void))" +" ns_117)))))))))" "(define-values" -"(1/variable-reference->module-path-index)" +"(variable-reference->namespace*)" "(lambda(vr_2)" "(begin" -" 'variable-reference->module-path-index" +"(let-values(((inst_8)(1/variable-reference->instance vr_2)))" +"(if(symbol? inst_8)" "(let-values()" -"(let-values()" -"(let-values((()" -"(begin" -"(if(1/variable-reference? vr_2)" -"(void)" -"(let-values()" -" (raise-argument-error 'variable-reference->module-path-index \"variable-reference?\" vr_2)))" -"(values))))" -"(let-values(((mpi_51)(namespace-mpi(1/variable-reference->namespace vr_2))))" -"(if(top-level-module-path-index? mpi_51) #f mpi_51))))))))" +"(1/module->namespace(list 'quote inst_8)(1/instance-data(1/variable-reference->instance vr_2 #t))))" +"(if(not inst_8)" +"(let-values()(1/instance-data(1/variable-reference->instance vr_2 #t)))" +"(let-values()(1/instance-data inst_8))))))))" "(define-values" -"(1/variable-reference->resolved-module-path)" +"(1/variable-reference->module-path-index)" "(lambda(vr_3)" "(begin" -" 'variable-reference->resolved-module-path" +" 'variable-reference->module-path-index" "(let-values()" "(let-values()" "(let-values((()" @@ -58243,18 +58241,15 @@ static const char *startup_source = "(if(1/variable-reference? vr_3)" "(void)" "(let-values()" -"(raise-argument-error" -" 'variable-reference->resolved-module-path" -" \"variable-reference?\"" -" vr_3)))" +" (raise-argument-error 'variable-reference->module-path-index \"variable-reference?\" vr_3)))" "(values))))" -"(let-values(((mpi_48)(1/variable-reference->module-path-index vr_3)))" -"(if mpi_48(1/module-path-index-resolve mpi_48) #f))))))))" +"(let-values(((mpi_53)(namespace-mpi(variable-reference->namespace* vr_3))))" +"(if(top-level-module-path-index? mpi_53) #f mpi_53))))))))" "(define-values" -"(1/variable-reference->module-source)" +"(1/variable-reference->resolved-module-path)" "(lambda(vr_4)" "(begin" -" 'variable-reference->module-source" +" 'variable-reference->resolved-module-path" "(let-values()" "(let-values()" "(let-values((()" @@ -58262,56 +58257,75 @@ static const char *startup_source = "(if(1/variable-reference? vr_4)" "(void)" "(let-values()" -" (raise-argument-error 'variable-reference->module-source \"variable-reference?\" vr_4)))" +"(raise-argument-error" +" 'variable-reference->resolved-module-path" +" \"variable-reference?\"" +" vr_4)))" "(values))))" -"(let-values(((ns_71)(1/variable-reference->namespace vr_4)))(namespace-source-name ns_71))))))))" +"(let-values(((mpi_54)(1/variable-reference->module-path-index vr_4)))" +"(if mpi_54(1/module-path-index-resolve mpi_54) #f))))))))" +"(define-values" +"(1/variable-reference->module-source)" +"(lambda(vr_5)" +"(begin" +" 'variable-reference->module-source" +"(let-values()" +"(let-values()" +"(let-values((()" +"(begin" +"(if(1/variable-reference? vr_5)" +"(void)" +"(let-values()" +" (raise-argument-error 'variable-reference->module-source \"variable-reference?\" vr_5)))" +"(values))))" +"(let-values(((ns_87)(variable-reference->namespace* vr_5)))(namespace-source-name ns_87))))))))" "(define-values" "(1/variable-reference->phase)" -"(lambda(vr_5)" +"(lambda(vr_6)" "(begin" " 'variable-reference->phase" "(let-values()" "(let-values()" "(begin" -"(if(1/variable-reference? vr_5)" +"(if(1/variable-reference? vr_6)" "(void)" -" (let-values () (raise-argument-error 'variable-reference->phase \"variable-reference?\" vr_5)))" -"(namespace-phase(1/variable-reference->namespace vr_5))))))))" +" (let-values () (raise-argument-error 'variable-reference->phase \"variable-reference?\" vr_6)))" +"(namespace-phase(variable-reference->namespace* vr_6))))))))" "(define-values" "(1/variable-reference->module-base-phase)" -"(lambda(vr_6)" +"(lambda(vr_7)" "(begin" " 'variable-reference->module-base-phase" "(let-values()" "(let-values()" "(begin" -"(if(1/variable-reference? vr_6)" +"(if(1/variable-reference? vr_7)" "(void)" -" (let-values () (raise-argument-error 'variable-reference->module-base-phase \"variable-reference?\" vr_6)))" -"(namespace-0-phase(1/variable-reference->namespace vr_6))))))))" +" (let-values () (raise-argument-error 'variable-reference->module-base-phase \"variable-reference?\" vr_7)))" +"(namespace-0-phase(variable-reference->namespace* vr_7))))))))" "(define-values" "(1/variable-reference->module-declaration-inspector)" -"(lambda(vr_7)" +"(lambda(vr_8)" "(begin" " 'variable-reference->module-declaration-inspector" "(let-values()" "(let-values()" "(begin" -"(if(1/variable-reference? vr_7)" +"(if(1/variable-reference? vr_8)" "(void)" "(let-values()" -" (raise-argument-error 'variable-reference->module-declaration-inspector \"variable-reference?\" vr_7)))" -"(if(1/variable-reference->instance vr_7)" +" (raise-argument-error 'variable-reference->module-declaration-inspector \"variable-reference?\" vr_8)))" +"(if(1/variable-reference->instance vr_8)" "(let-values()" "(raise-arguments-error" " 'variable-reference->module-declaration-inspector" " \"variable reference does not refer to an anonymous module variable\"" " \"variable reference\"" -" vr_7))" +" vr_8))" "(void))" -"(let-values(((or-part_293)(namespace-declaration-inspector(1/variable-reference->namespace vr_7))))" -"(if or-part_293" -" or-part_293" +"(let-values(((or-part_177)(namespace-declaration-inspector(variable-reference->namespace* vr_8))))" +"(if or-part_177" +" or-part_177" "(raise-arguments-error" " 'variable-reference->module-declaration-inspector" " \"given variable reference is not from a module\")))))))))" @@ -58576,7 +58590,7 @@ static const char *startup_source = "(add-core-primitive! 'current-module-declare-name 1/current-module-declare-name)" "(add-core-primitive! 'current-module-declare-source 1/current-module-declare-source)" "(add-core-primitive! 'current-namespace 1/current-namespace)" -"(add-core-primitive! 'namespace-module-registry 1/namespace-module-registry)" +"(add-core-primitive! 'namespace-module-registry namespace-module-registry$1)" "(add-core-primitive! 'namespace? 1/namespace?)" "(add-core-primitive! 'variable-reference->empty-namespace 1/variable-reference->empty-namespace)" "(add-core-primitive! 'variable-reference->namespace 1/variable-reference->namespace)" @@ -58595,7 +58609,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))" @@ -58612,9 +58626,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_2 #t ns57_0 #f #f #f #f temp55_3 #t temp54_6 #t temp53_4))" -"(let-values(((temp58_3) '#%kernel)((temp59_7) '(#%core #%runtime #%main #%read))((ns60_0) ns_117))" +"(let-values(((temp58_3) '#%kernel)((temp59_7) '(#%core #%runtime #%main #%read))((ns60_0) ns_118))" "(declare-reexporting-module!50.1 ns60_0 #f #f temp58_3 temp59_7)))))))))))" "(define-values" "(copy-runtime-module!26.1)" @@ -58636,7 +58650,7 @@ static const char *startup_source = " 'copy-runtime-module!26" "(let-values(((name_65) name25_0))" "(let-values(((to-name_0)(if to18_0 to11_0 name_65)))" -"(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())))" @@ -58765,7 +58779,7 @@ static const char *startup_source = "(hash-iterate-first ht_164))))))" "(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" @@ -58797,20 +58811,20 @@ static const char *startup_source = " 'declare-hash-based-module!41" "(let-values(((name_74) name39_0))" "(let-values(((ht_168) 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_52)(1/module-path-index-join(list 'quote name_74) #f)))" -"(let-values(((ns66_1) ns_119)" +"(let-values(((mpi_55)(1/module-path-index-join(list 'quote name_74) #f)))" +"(let-values(((ns66_1) ns_120)" "((temp67_1)" "(let-values(((temp69_3) #t)" "((primitive?70_0) primitive?_10)" "((temp71_5) #t)" "((temp72_2)(not protected?_11))" -"((mpi73_1) mpi_52)" +"((mpi73_1) mpi_55)" "((temp74_0)" "(hasheqv" " 0" @@ -58846,7 +58860,7 @@ static const char *startup_source = "(values))))" "(let-values(((binding_28)" "(let-values(((mpi76_0)" -" mpi_52)" +" mpi_55)" "((temp77_3)" " 0)" "((sym78_0)" @@ -58906,7 +58920,7 @@ static const char *startup_source = "(hash-iterate-first ht_169))))))" "((temp75_3)" "(lambda(data-box_6" -" ns_120" +" ns_121" " phase-shift_21" " phase-level_23" " self_29" @@ -58937,7 +58951,7 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-variable!" -" ns_120" +" ns_121" " 0" " sym_6" " val_31))" @@ -58988,7 +59002,7 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp68_3)(1/module-path-index-resolve mpi_52)))" +"((temp68_3)(1/module-path-index-resolve mpi_55)))" "(declare-module!58.1 #f #f ns66_1 temp67_1 temp68_3))))))))))))))" "(define-values" "(declare-reexporting-module!50.1)" @@ -58998,23 +59012,23 @@ static const char *startup_source = "(let-values(((name_75) 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_122) namespace45_0))" "(let-values()" -"(let-values(((mpi_53)(1/module-path-index-join(list 'quote name_75) #f)))" +"(let-values(((mpi_56)(1/module-path-index-join(list 'quote name_75) #f)))" "(let-values(((require-mpis_0)" "(reverse$1" -"(let-values(((lst_204) require-names_0))" +"(let-values(((lst_203) require-names_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_204)))" +"(let-values()(check-list lst_203)))" "((letrec-values(((for-loop_203)" -"(lambda(fold-var_41 lst_205)" +"(lambda(fold-var_41 lst_204)" "(begin" " 'for-loop" -"(if(pair? lst_205)" -"(let-values(((require-name_0)(unsafe-car lst_205))" -"((rest_105)(unsafe-cdr lst_205)))" +"(if(pair? lst_204)" +"(let-values(((require-name_0)(unsafe-car lst_204))" +"((rest_105)(unsafe-cdr lst_204)))" "(let-values(((fold-var_289)" "(let-values(((fold-var_290) fold-var_41))" "(let-values(((fold-var_291)" @@ -59034,12 +59048,12 @@ static const char *startup_source = " fold-var_41)))))" " for-loop_203)" " null" -" lst_204))))))" -"(let-values(((ns79_1) ns_121)" +" lst_203))))))" +"(let-values(((ns79_1) ns_122)" "((temp80_4)" "(let-values(((temp82_7) #t)" "((temp83_3) #t)" -"((mpi84_0) mpi_53)" +"((mpi84_0) mpi_56)" "((temp85_4)(list(cons 0 require-mpis_0)))" "((temp86_1)" "(if reexport?_0" @@ -59062,7 +59076,7 @@ static const char *startup_source = "(let-values(((table_228)" "(let-values(((m_29)" "(namespace->module" -" ns_121" +" ns_122" "(1/module-path-index-resolve" " require-mpi_0))))" "(begin" @@ -59176,7 +59190,7 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp81_4)(1/module-path-index-resolve mpi_53)))" +"((temp81_4)(1/module-path-index-resolve mpi_56)))" "(declare-module!58.1 #f #f ns79_1 temp80_4 temp81_4))))))))))))" "(define-values" "(read-primitives)" @@ -59238,14 +59252,14 @@ static const char *startup_source = "(let-values()" "(let-values()" "(case-lambda" -"((s_69)(begin 'eval((1/current-eval)(intro s_69))))" -"((s_183 ns_122)" +"((s_68)(begin 'eval((1/current-eval)(intro s_68))))" +"((s_181 ns_123)" "(begin" -" (if (1/namespace? ns_122) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_122)))" +" (if (1/namespace? ns_123) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_123)))" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_122)" -"(let-values()((1/current-eval)(intro s_183 ns_122))))))))))" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_123)" +"(let-values()((1/current-eval)(intro s_181 ns_123))))))))))" "(define-values" "(1/eval-syntax)" "(let-values()" @@ -59257,60 +59271,60 @@ static const char *startup_source = "(begin" " (if (syntax?$1 s_8) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_8)))" "((1/current-eval) s_8))))" -"((s_2 ns_123)" +"((s_2 ns_124)" "(begin" " (if (syntax?$1 s_2) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_2)))" -" (if (1/namespace? ns_123) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_123)))" +" (if (1/namespace? ns_124) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_124)))" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_123)" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_124)" "(let-values()((1/current-eval) s_2)))))))))" -"(define-values(compile$1)(lambda(s_170)(begin 'compile((1/current-compile)(intro s_170) #f))))" +"(define-values(compile$1)(lambda(s_168)(begin 'compile((1/current-compile)(intro s_168) #f))))" "(define-values" "(1/compile-syntax)" -"(lambda(s_189)" +"(lambda(s_187)" "(begin" " 'compile-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_189) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_189)))" -"((1/current-compile) s_189 #f)))))))" +" (if (syntax?$1 s_187) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_187)))" +"((1/current-compile) s_187 #f)))))))" "(define-values(1/expand)(lambda(s_9)(begin 'expand(expand$1(intro s_9)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" -"(lambda(s_475)" +"(lambda(s_473)" "(begin" " 'expand-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_475) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_475)))" -"(expand$1 s_475(1/current-namespace) #t)))))))" -"(define-values(1/expand-once)(lambda(s_472)(begin 'expand-once(expand-once$1(intro s_472)))))" +" (if (syntax?$1 s_473) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_473)))" +"(expand$1 s_473(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_470)(begin 'expand-once(expand-once$1(intro s_470)))))" "(define-values" "(1/expand-syntax-once)" -"(lambda(s_171)" +"(lambda(s_169)" "(begin" " 'expand-syntax-once" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_171) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_171)))" -"(expand-once$1 s_171)))))))" -"(define-values(1/expand-to-top-form)(lambda(s_72)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_72)))))" +" (if (syntax?$1 s_169) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_169)))" +"(expand-once$1 s_169)))))))" +"(define-values(1/expand-to-top-form)(lambda(s_71)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_71)))))" "(define-values" "(1/expand-syntax-to-top-form)" -"(lambda(s_164)" +"(lambda(s_162)" "(begin" " 'expand-syntax-to-top-form" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_164)" +"(if(syntax?$1 s_162)" "(void)" -" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_164)))" -"(expand-to-top-form$1 s_164)))))))" +" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_162)))" +"(expand-to-top-form$1 s_162)))))))" "(define-values" "(intro)" "(let-values(((intro4_0)" @@ -59320,8 +59334,8 @@ static const char *startup_source = "(let-values(((given-s_1) given-s3_0))" "(let-values(((ns_68)(if ns2_1 ns1_7(1/current-namespace))))" "(let-values()" -"(let-values(((s_397)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" -"(1/namespace-syntax-introduce s_397 ns_68)))))))))" +"(let-values(((s_395)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" +"(1/namespace-syntax-introduce s_395 ns_68)))))))))" "(case-lambda((given-s_2)(begin(intro4_0 given-s_2 #f #f)))((given-s_3 ns1_8)(intro4_0 given-s_3 ns1_8 #t)))))" "(define-values" "(main-primitives)" @@ -59733,10 +59747,10 @@ static const char *startup_source = "(if c2_17" "((lambda(thunk_6) thunk_6) c2_17)" "(let-values()" -"(let-values(((s_171)(1/read-syntax(object-name i_186) i_186)))" +"(let-values(((s_169)(1/read-syntax(object-name i_186) i_186)))" "(let-values((()" "(begin" -"(if(eof-object? s_171)" +"(if(eof-object? s_169)" "(let-values()" "(error" " 'default-load-handler" @@ -59747,7 +59761,7 @@ static const char *startup_source = "(object-name i_186)))" "(void))" "(values))))" -"(let-values(((m-s_0)(check-module-form s_171 path_12)))" +"(let-values(((m-s_0)(check-module-form s_169 path_12)))" "(let-values(((s2_7)(1/read-syntax(object-name i_186) i_186)))" "(begin" "(if(eof-object? s2_7)" @@ -59765,11 +59779,11 @@ static const char *startup_source = "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_426)" +"(lambda(s_424)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax #f(cons '#%top-interaction s_426) s_426))))))" +"(1/datum->syntax #f(cons '#%top-interaction s_424) s_424))))))" "(let-values(((path1_0) path_12)" "((temp2_8)" "(lambda(i_84)" @@ -59781,7 +59795,7 @@ static const char *startup_source = "(lambda(vals_7)" "(begin" " 'loop" -"(let-values(((s_300)" +"(let-values(((s_298)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -59811,14 +59825,14 @@ static const char *startup_source = "(1/read-syntax" "(object-name i_84)" " i_84))))))" -"(if(eof-object? s_300)" +"(if(eof-object? s_298)" "(apply values vals_7)" "(loop_115" "(call-with-continuation-prompt" "(lambda()" "(call-with-values" "(lambda()" -"((1/current-eval)(add-top-interaction_0 s_300)))" +"((1/current-eval)(add-top-interaction_0 s_298)))" " list))" "(default-continuation-prompt-tag)" "(lambda args_10" @@ -59899,7 +59913,7 @@ static const char *startup_source = "(lambda(i_187)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_178)(read-byte i_187)))(if(eof-object? v_178) 0 v_178))))))" +"(let-values(((v_179)(read-byte i_187)))(if(eof-object? v_179) 0 v_179))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_41)" "(arithmetic-shift(read-byte/not-eof_0 i_41) 8)" @@ -59961,11 +59975,11 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_318)))" "((letrec-values(((for-loop_103)" -"(lambda(fold-var_63 lst_93)" +"(lambda(fold-var_63 lst_94)" "(begin" " 'for-loop" -"(if(pair? lst_93)" -"(let-values(((s_460)(unsafe-car lst_93))((rest_44)(unsafe-cdr lst_93)))" +"(if(pair? lst_94)" +"(let-values(((s_458)(unsafe-car lst_94))((rest_44)(unsafe-cdr lst_94)))" "(let-values(((fold-var_20)" "(let-values(((fold-var_64) fold-var_63))" "(let-values(((fold-var_70)" @@ -59974,7 +59988,7 @@ static const char *startup_source = "(let-values()" "(let-values(((bstr_6)" "(string->bytes/utf-8" -"(symbol->string s_460))))" +"(symbol->string s_458))))" "(let-values(((len_40)" "(bytes-length bstr_6)))" "(if(< len_40 255)" @@ -60025,13 +60039,13 @@ static const char *startup_source = "(define-values" "(default-load/use-compiled)" "(let-values(((resolve_0)" -"(lambda(s_69)" +"(lambda(s_68)" "(begin" " 'resolve" -"(if(complete-path? s_69)" -" s_69" +"(if(complete-path? s_68)" +" s_68" "(let-values(((d_35)(current-load-relative-directory)))" -"(if d_35(path->complete-path s_69 d_35) s_69)))))))" +"(if d_35(path->complete-path s_68 d_35) s_68)))))))" "(let-values(((date-of-1_0)" "(lambda(a_28)" "(begin" @@ -60105,7 +60119,7 @@ static const char *startup_source = "(let-values(((name_55)(if expect-module_0(1/current-module-declare-name) #f)))" "(let-values(((ns-hts_0)" "(if name_55" -"(registry-table-ref(1/namespace-module-registry(1/current-namespace)))" +"(registry-table-ref(namespace-module-registry$1(1/current-namespace)))" " #f)))" "(let-values(((use-path/src_0)(if ns-hts_0(hash-ref(cdr ns-hts_0) name_55 #f) #f)))" "(if use-path/src_0" @@ -60376,7 +60390,7 @@ static const char *startup_source = "(begin(let-values(((e_89)(hash-ref -module-hash-table-table reg_0 #f)))(if e_89(ephemeron-value e_89) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_198)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_198)))))" +"(lambda(reg_1 v_199)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_199)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" @@ -60405,30 +60419,30 @@ static const char *startup_source = "(define-values(-prev-relto-dir) #f)" "(define-values" "(split-relative-string)" -"(lambda(s_470 coll-mode?_0)" +"(lambda(s_468 coll-mode?_0)" "(begin" "(let-values(((l_19)" "((letrec-values(((loop_116)" -"(lambda(s_476)" +"(lambda(s_474)" "(begin" " 'loop" -"(let-values(((len_41)(string-length s_476)))" +"(let-values(((len_41)(string-length s_474)))" "((letrec-values(((iloop_2)" "(lambda(i_102)" "(begin" " 'iloop" "(if(= i_102 len_41)" -"(let-values()(list s_476))" -"(if(char=? '#\\/(string-ref s_476 i_102))" +"(let-values()(list s_474))" +"(if(char=? '#\\/(string-ref s_474 i_102))" "(let-values()" "(cons" -"(substring s_476 0 i_102)" -"(loop_116(substring s_476(add1 i_102)))))" +"(substring s_474 0 i_102)" +"(loop_116(substring s_474(add1 i_102)))))" "(let-values()(iloop_2(add1 i_102)))))))))" " iloop_2)" " 0))))))" " loop_116)" -" s_470)))" +" s_468)))" "(if coll-mode?_0" " l_19" "((letrec-values(((loop_101)" @@ -60471,14 +60485,14 @@ static const char *startup_source = " (1/dynamic-require '(lib \"planet/resolver.rkt\") 'planet-module-name-resolver)))))))))" "(letrec-values(((standard-module-name-resolver_0)" "(case-lambda" -"((s_471 from-namespace_1)" +"((s_469 from-namespace_1)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_471)" +"(if(1/resolved-module-path? s_469)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_471)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_469)))" "(if(let-values(((or-part_135)(not from-namespace_1)))" "(if or-part_135 or-part_135(1/namespace? from-namespace_1)))" "(void)" @@ -60487,31 +60501,31 @@ static const char *startup_source = " 'standard-module-name-resolver" " \"(or/c #f namespace?)\"" " from-namespace_1)))" -"(if planet-resolver_0(let-values()(planet-resolver_0 s_471))(void))" +"(if planet-resolver_0(let-values()(planet-resolver_0 s_469))(void))" "(let-values(((hts_1)" "(let-values(((or-part_313)" "(registry-table-ref" -"(1/namespace-module-registry(1/current-namespace)))))" +"(namespace-module-registry$1(1/current-namespace)))))" "(if or-part_313" " or-part_313" "(let-values(((hts_2)(cons(make-hasheq)(make-hasheq))))" "(begin" "(registry-table-set!" -"(1/namespace-module-registry(1/current-namespace))" +"(namespace-module-registry$1(1/current-namespace))" " hts_2)" " hts_2))))))" "(begin" -"(hash-set!(car hts_1) s_471 'declared)" +"(hash-set!(car hts_1) s_469 'declared)" "(if from-namespace_1" "(let-values()" "(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_471))" +"(if(pair?(1/resolved-module-path-name s_469))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_471)))" -" s_471))" +"(car(1/resolved-module-path-name s_469)))" +" s_469))" "((from-hts_0)" "(registry-table-ref" -"(1/namespace-module-registry from-namespace_1))))" +"(namespace-module-registry$1 from-namespace_1))))" "(if from-hts_0" "(let-values()" "(let-values(((use-path/src_1)(hash-ref(cdr from-hts_0) root-name_2 #f)))" @@ -60520,14 +60534,14 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_477 relto_0 stx_18)" +"((s_475 relto_0 stx_18)" "(begin" "(log-message" "(current-logger)" " 'error" " \"default module name resolver called with three arguments (deprecated)\"" " #f)" -"(standard-module-name-resolver_0 s_477 relto_0 stx_18 #t)))" +"(standard-module-name-resolver_0 s_475 relto_0 stx_18 #t)))" "((s_26 relto_1 stx_19 load?_7)" "(let-values((()" "(begin" @@ -60693,7 +60707,7 @@ static const char *startup_source = "(lambda()" "(begin" " 'get-reg" -"(1/namespace-module-registry(1/current-namespace)))))" +"(namespace-module-registry$1(1/current-namespace)))))" "((show-collection-err_0)" "(lambda(msg_1)" "(begin" @@ -60729,27 +60743,27 @@ static const char *startup_source = "(current-continuation-marks)" " s_26)))))))" "((ss->rkt_0)" -"(lambda(s_90)" +"(lambda(s_89)" "(begin" " 'ss->rkt" -"(let-values(((len_42)(string-length s_90)))" +"(let-values(((len_42)(string-length s_89)))" "(if(if(>= len_42 3)" "(if(equal?" " '#\\." -"(string-ref s_90(- len_42 3)))" +"(string-ref s_89(- len_42 3)))" "(if(equal?" " '#\\s" -"(string-ref s_90(- len_42 2)))" +"(string-ref s_89(- len_42 2)))" "(equal?" " '#\\s" -"(string-ref s_90(- len_42 1)))" +"(string-ref s_89(- len_42 1)))" " #f)" " #f)" " #f)" "(string-append" -"(substring s_90 0(- len_42 3))" +"(substring s_89 0(- len_42 3))" " \".rkt\")" -" s_90)))))" +" s_89)))))" "((path-ss->rkt_0)" "(lambda(p_81)" "(begin" @@ -60851,12 +60865,12 @@ static const char *startup_source = " dir_4" "(append" "(map2" -"(lambda(s_315)" -" (if (string=? s_315 \".\")" +"(lambda(s_313)" +" (if (string=? s_313 \".\")" "(let-values() 'same)" -" (if (string=? s_315 \"..\")" +" (if (string=? s_313 \"..\")" "(let-values() 'up)" -"(let-values() s_315))))" +"(let-values() s_313))))" " cols_1)" "(list(ss->rkt_0 file_4))))))))))" "(if(path? s_31)" @@ -61016,11 +61030,11 @@ static const char *startup_source = "((nsr_0)(get-reg_0)))" "(begin" "(for-each2" -"(lambda(s_435)" +"(lambda(s_433)" "(if(if(equal?" -"(cdr s_435)" +"(cdr s_433)" " normal-filename_0)" -"(eq?(car s_435) nsr_0)" +"(eq?(car s_433) nsr_0)" " #f)" "(let-values()" "(error" @@ -61226,18 +61240,18 @@ static const char *startup_source = "(let-values(((inside-sc_0)(new-scope 'intdef)))" "(let-values(((init-bodys_0)" "(reverse$1" -"(let-values(((lst_265) bodys_7))" +"(let-values(((lst_264) bodys_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_265)))" +"(let-values()(check-list lst_264)))" "((letrec-values(((for-loop_285)" -"(lambda(fold-var_68 lst_102)" +"(lambda(fold-var_68 lst_103)" "(begin" " 'for-loop" -"(if(pair? lst_102)" -"(let-values(((body_11)(unsafe-car lst_102))" -"((rest_140)(unsafe-cdr lst_102)))" +"(if(pair? lst_103)" +"(let-values(((body_11)(unsafe-car lst_103))" +"((rest_140)(unsafe-cdr lst_103)))" "(let-values(((fold-var_11)" "(let-values(((fold-var_12) fold-var_68))" "(let-values(((fold-var_211)" @@ -61255,7 +61269,7 @@ static const char *startup_source = " fold-var_68)))))" " for-loop_285)" " null" -" lst_265))))))" +" lst_264))))))" "(let-values((()" "(begin" "(let-values(((obs_66)(expand-context-observer ctx_14)))" @@ -61385,17 +61399,17 @@ static const char *startup_source = "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_225)" +"(let-values(((v_226)" " body-ctx_2))" "(let-values(((the-struct_89)" -" v_225))" +" v_226))" "(if(expand-context/outer?" " the-struct_89)" "(let-values(((name77_0)" " name_78)" "((inner78_0)" "(root-expand-context/outer-inner" -" v_225)))" +" v_226)))" "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" @@ -61459,38 +61473,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_31 begin79_0 e80_0)" -"(let-values(((s_478)" +"(let-values(((s_476)" " disarmed-exp-body_0))" "(let-values(((orig-s_38)" -" s_478))" +" s_476))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_479)" +"(let-values(((s_477)" "(if(syntax?$1" -" s_478)" +" s_476)" "(syntax-e$1" -" s_478)" -" s_478)))" +" s_476)" +" s_476)))" "(if(pair?" -" s_479)" +" s_477)" "(let-values(((begin81_0)" -"(let-values(((s_480)" +"(let-values(((s_478)" "(car" -" s_479)))" -" s_480))" +" s_477)))" +" s_478))" "((e82_0)" -"(let-values(((s_481)" +"(let-values(((s_479)" "(cdr" -" s_479)))" -"(let-values(((s_482)" +" s_477)))" +"(let-values(((s_480)" "(if(syntax?$1" -" s_481)" +" s_479)" "(syntax-e$1" -" s_481)" -" s_481)))" +" s_479)" +" s_479)))" "(let-values(((flat-s_24)" "(to-syntax-list.1" -" s_482)))" +" s_480)))" "(if(not" " flat-s_24)" "(let-values()" @@ -61571,45 +61585,45 @@ static const char *startup_source = "(let-values(((define-values83_1" " id84_1" " rhs85_1)" -"(let-values(((s_483)" +"(let-values(((s_481)" "(if(syntax?$1" " s_31)" "(syntax-e$1" " s_31)" " s_31)))" "(if(pair?" -" s_483)" +" s_481)" "(let-values(((define-values86_0)" "(let-values(((s_49)" "(car" -" s_483)))" +" s_481)))" " s_49))" "((id87_0" " rhs88_0)" "(let-values(((s_32)" "(cdr" -" s_483)))" -"(let-values(((s_484)" +" s_481)))" +"(let-values(((s_482)" "(if(syntax?$1" " s_32)" "(syntax-e$1" " s_32)" " s_32)))" "(if(pair?" -" s_484)" +" s_482)" "(let-values(((id89_0)" -"(let-values(((s_310)" +"(let-values(((s_308)" "(car" -" s_484)))" -"(let-values(((s_392)" +" s_482)))" +"(let-values(((s_390)" "(if(syntax?$1" -" s_310)" +" s_308)" "(syntax-e$1" -" s_310)" -" s_310)))" +" s_308)" +" s_308)))" "(let-values(((flat-s_25)" "(to-syntax-list.1" -" s_392)))" +" s_390)))" "(if(not" " flat-s_25)" "(let-values()" @@ -61635,7 +61649,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_319)" -"(let-values(((s_313)" +"(let-values(((s_311)" "(unsafe-car" " lst_319))" "((rest_179)" @@ -61650,21 +61664,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_141)" "(if(syntax?$1" -" s_313)" +" s_311)" "(symbol?" "(syntax-e$1" -" s_313))" +" s_311))" " #f)))" "(if or-part_141" " or-part_141" "(symbol?" -" s_313)))" -" s_313" +" s_311)))" +" s_311" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_39" -" s_313)))))" +" s_311)))))" "(cons" " id92_1" " id_110)))))" @@ -61683,34 +61697,34 @@ static const char *startup_source = "(reverse$1" " id_108))))))))" "((rhs90_0)" -"(let-values(((s_485)" +"(let-values(((s_483)" "(cdr" -" s_484)))" -"(let-values(((s_486)" +" s_482)))" +"(let-values(((s_484)" "(if(syntax?$1" -" s_485)" +" s_483)" "(syntax-e$1" -" s_485)" -" s_485)))" +" s_483)" +" s_483)))" "(if(pair?" -" s_486)" +" s_484)" "(let-values(((rhs91_0)" "(let-values(((s_54)" "(car" -" s_486)))" +" s_484)))" " s_54))" "(()" -"(let-values(((s_314)" +"(let-values(((s_312)" "(cdr" -" s_486)))" -"(let-values(((s_315)" +" s_484)))" +"(let-values(((s_313)" "(if(syntax?$1" -" s_314)" +" s_312)" "(syntax-e$1" -" s_314)" -" s_314)))" +" s_312)" +" s_312)))" "(if(null?" -" s_315)" +" s_313)" "(values)" "(raise-syntax-error$1" " #f" @@ -61847,7 +61861,7 @@ static const char *startup_source = " null" " lst_52))))))" "(let-values(((extended-env_0)" -"(let-values(((lst_231)" +"(let-values(((lst_230)" " keys_5)" "((lst_197)" " ids_29))" @@ -61857,7 +61871,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_231)))" +" lst_230)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -61867,13 +61881,13 @@ static const char *startup_source = "((letrec-values(((for-loop_288)" "(lambda(env_17" " lst_321" -" lst_274)" +" lst_273)" "(begin" " 'for-loop" "(if(if(pair?" " lst_321)" "(pair?" -" lst_274)" +" lst_273)" " #f)" "(let-values(((key_94)" "(unsafe-car" @@ -61883,10 +61897,10 @@ static const char *startup_source = " lst_321))" "((id_9)" "(unsafe-car" -" lst_274))" +" lst_273))" "((rest_181)" "(unsafe-cdr" -" lst_274)))" +" lst_273)))" "(let-values(((env_18)" "(let-values(((env_19)" " env_17))" @@ -61910,7 +61924,7 @@ static const char *startup_source = " for-loop_288)" "(expand-context-env" " body-ctx_2)" -" lst_231" +" lst_230" " lst_197)))))" "(loop_119" "(let-values(((v_254)" @@ -62014,7 +62028,7 @@ static const char *startup_source = " keys_5" "(append" "(reverse$1" -"(let-values(((lst_324)" +"(let-values(((lst_32)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62022,20 +62036,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_324)))" +" lst_32)))" "((letrec-values(((for-loop_290)" "(lambda(fold-var_298" -" lst_325)" +" lst_324)" "(begin" " 'for-loop" "(if(pair?" -" lst_325)" +" lst_324)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_325))" +" lst_324))" "((rest_183)" "(unsafe-cdr" -" lst_325)))" +" lst_324)))" "(let-values(((fold-var_299)" "(let-values(((fold-var_300)" " fold-var_298))" @@ -62056,13 +62070,13 @@ static const char *startup_source = " fold-var_298)))))" " for-loop_290)" " null" -" lst_324))))" +" lst_32))))" " val-keyss_0))" "(cons" " rhs85_0" "(append" "(reverse$1" -"(let-values(((lst_326)" +"(let-values(((lst_325)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62070,20 +62084,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_326)))" -"((letrec-values(((for-loop_261)" +" lst_325)))" +"((letrec-values(((for-loop_260)" "(lambda(fold-var_302" -" lst_202)" +" lst_201)" "(begin" " 'for-loop" "(if(pair?" -" lst_202)" +" lst_201)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_202))" +" lst_201))" "((rest_184)" "(unsafe-cdr" -" lst_202)))" +" lst_201)))" "(let-values(((fold-var_303)" "(let-values(((fold-var_138)" " fold-var_302))" @@ -62100,20 +62114,20 @@ static const char *startup_source = " fold-var_304)))))" "(if(not" " #f)" -"(for-loop_261" +"(for-loop_260" " fold-var_303" " rest_184)" " fold-var_303)))" " fold-var_302)))))" -" for-loop_261)" +" for-loop_260)" " null" -" lst_326))))" +" lst_325))))" " val-rhss_0))" "(cons" " exp-body_0" "(append" "(reverse$1" -"(let-values(((lst_107)" +"(let-values(((lst_108)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62121,20 +62135,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_107)))" +" lst_108)))" "((letrec-values(((for-loop_291)" "(lambda(fold-var_139" -" lst_108)" +" lst_109)" "(begin" " 'for-loop" "(if(pair?" -" lst_108)" +" lst_109)" "(let-values(((done-body_3)" "(unsafe-car" -" lst_108))" +" lst_109))" "((rest_185)" "(unsafe-cdr" -" lst_108)))" +" lst_109)))" "(let-values(((fold-var_305)" "(let-values(((fold-var_39)" " fold-var_139))" @@ -62155,7 +62169,7 @@ static const char *startup_source = " fold-var_139)))))" " for-loop_291)" " null" -" lst_107))))" +" lst_108))))" " track-stxs_0))" " trans-idss_1" " stx-clauses_0" @@ -62179,52 +62193,52 @@ static const char *startup_source = " define-syntaxes105_0" " id106_2" " rhs107_0)" -"(let-values(((s_95)" +"(let-values(((s_94)" " disarmed-exp-body_0))" "(let-values(((orig-s_40)" -" s_95))" +" s_94))" "(let-values(((define-syntaxes105_1" " id106_3" " rhs107_1)" -"(let-values(((s_487)" +"(let-values(((s_485)" "(if(syntax?$1" -" s_95)" +" s_94)" "(syntax-e$1" -" s_95)" -" s_95)))" +" s_94)" +" s_94)))" "(if(pair?" -" s_487)" +" s_485)" "(let-values(((define-syntaxes108_0)" -"(let-values(((s_488)" +"(let-values(((s_486)" "(car" -" s_487)))" -" s_488))" +" s_485)))" +" s_486))" "((id109_0" " rhs110_0)" -"(let-values(((s_489)" +"(let-values(((s_487)" "(cdr" +" s_485)))" +"(let-values(((s_96)" +"(if(syntax?$1" +" s_487)" +"(syntax-e$1" +" s_487)" " s_487)))" -"(let-values(((s_97)" -"(if(syntax?$1" -" s_489)" -"(syntax-e$1" -" s_489)" -" s_489)))" "(if(pair?" -" s_97)" +" s_96)" "(let-values(((id111_0)" -"(let-values(((s_66)" +"(let-values(((s_65)" "(car" -" s_97)))" -"(let-values(((s_99)" +" s_96)))" +"(let-values(((s_98)" "(if(syntax?$1" -" s_66)" +" s_65)" "(syntax-e$1" -" s_66)" -" s_66)))" +" s_65)" +" s_65)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" -" s_99)))" +" s_98)))" "(if(not" " flat-s_26)" "(let-values()" @@ -62234,7 +62248,7 @@ static const char *startup_source = " orig-s_40))" "(let-values()" "(let-values(((id_113)" -"(let-values(((lst_327)" +"(let-values(((lst_326)" " flat-s_26))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62242,7 +62256,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_327)))" +" lst_326)))" "((letrec-values(((for-loop_292)" "(lambda(id_114" " lst_35)" @@ -62250,7 +62264,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_35)" -"(let-values(((s_490)" +"(let-values(((s_488)" "(unsafe-car" " lst_35))" "((rest_186)" @@ -62265,21 +62279,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_327)" "(if(syntax?$1" -" s_490)" +" s_488)" "(symbol?" "(syntax-e$1" -" s_490))" +" s_488))" " #f)))" "(if or-part_327" " or-part_327" "(symbol?" -" s_490)))" -" s_490" +" s_488)))" +" s_488" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_40" -" s_490)))))" +" s_488)))))" "(cons" " id114_0" " id_116)))))" @@ -62294,38 +62308,38 @@ static const char *startup_source = " id_114)))))" " for-loop_292)" " null" -" lst_327)))))" +" lst_326)))))" "(reverse$1" " id_113))))))))" "((rhs112_0)" -"(let-values(((s_491)" +"(let-values(((s_489)" "(cdr" -" s_97)))" -"(let-values(((s_492)" +" s_96)))" +"(let-values(((s_490)" "(if(syntax?$1" -" s_491)" +" s_489)" "(syntax-e$1" -" s_491)" -" s_491)))" +" s_489)" +" s_489)))" "(if(pair?" -" s_492)" +" s_490)" "(let-values(((rhs113_0)" -"(let-values(((s_102)" +"(let-values(((s_101)" "(car" -" s_492)))" -" s_102))" +" s_490)))" +" s_101))" "(()" -"(let-values(((s_326)" +"(let-values(((s_324)" "(cdr" -" s_492)))" -"(let-values(((s_493)" +" s_490)))" +"(let-values(((s_491)" "(if(syntax?$1" -" s_326)" +" s_324)" "(syntax-e$1" -" s_326)" -" s_326)))" +" s_324)" +" s_324)))" "(if(null?" -" s_493)" +" s_491)" "(values)" "(raise-syntax-error$1" " #f" @@ -62401,7 +62415,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_328)" +"(let-values(((lst_327)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62409,20 +62423,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_328)))" +" lst_327)))" "((letrec-values(((for-loop_293)" "(lambda(fold-var_307" -" lst_329)" +" lst_328)" "(begin" " 'for-loop" "(if(pair?" -" lst_329)" +" lst_328)" "(let-values(((id_118)" "(unsafe-car" -" lst_329))" +" lst_328))" "((rest_187)" "(unsafe-cdr" -" lst_329)))" +" lst_328)))" "(let-values(((fold-var_308)" "(let-values(((fold-var_309)" " fold-var_307))" @@ -62460,7 +62474,7 @@ static const char *startup_source = " fold-var_307)))))" " for-loop_293)" " null" -" lst_328))))))" +" lst_327))))))" "(let-values((()" "(begin" "(let-values(((obs_72)" @@ -62500,9 +62514,9 @@ static const char *startup_source = "(let-values(((extended-env_1)" "(let-values(((lst_46)" " keys_6)" -"((lst_330)" +"((lst_329)" " vals_8)" -"((lst_331)" +"((lst_330)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62516,46 +62530,46 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_330)))" +" lst_329)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_331)))" +" lst_330)))" "((letrec-values(((for-loop_294)" "(lambda(env_21" +" lst_331" " lst_332" -" lst_333" -" lst_334)" +" lst_333)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_332)" +" lst_331)" "(if(pair?" -" lst_333)" +" lst_332)" "(pair?" -" lst_334)" +" lst_333)" " #f)" " #f)" "(let-values(((key_95)" "(unsafe-car" -" lst_332))" +" lst_331))" "((rest_188)" "(unsafe-cdr" -" lst_332))" +" lst_331))" "((val_86)" "(unsafe-car" -" lst_333))" +" lst_332))" "((rest_189)" "(unsafe-cdr" -" lst_333))" +" lst_332))" "((id_119)" "(unsafe-car" -" lst_334))" +" lst_333))" "((rest_190)" "(unsafe-cdr" -" lst_334)))" +" lst_333)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -62586,8 +62600,8 @@ static const char *startup_source = "(expand-context-env" " body-ctx_2)" " lst_46" -" lst_330" -" lst_331)))))" +" lst_329" +" lst_330)))))" "(begin" "(let-values(((obs_74)" "(expand-context-observer" @@ -62750,7 +62764,7 @@ static const char *startup_source = "(let-values(((track-stxs_1) track-stxs24_0))" "(let-values(((stx-clauses_1) stx-clauses25_0))" "(let-values(((done-bodys_1) done-bodys26_0))" -"(let-values(((s_231) source10_0))" +"(let-values(((s_229) source10_0))" "(let-values(((stratified?_1) stratified?11_0))" "(let-values(((name_79) name12_0))" "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" @@ -62762,7 +62776,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no expression after a sequence of internal definitions\"" -" s_231))" +" s_229))" "(void))" "(values))))" "(let-values(((finish-ctx_0)" @@ -62847,14 +62861,14 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_335) done-bodys_1)" +"(let-values(((lst_334) done-bodys_1)" "((start_66) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_335)))" +"(check-list lst_334)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -62862,20 +62876,20 @@ static const char *startup_source = "(check-naturals start_66)))" "((letrec-values(((for-loop_295)" "(lambda(fold-var_311" -" lst_336" +" lst_335" " pos_127)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_336)" +" lst_335)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_336))" +" lst_335))" "((rest_191)" "(unsafe-cdr" -" lst_336))" +" lst_335))" "((i_190)" " pos_127))" "(let-values(((fold-var_312)" @@ -62971,7 +62985,7 @@ static const char *startup_source = " fold-var_311)))))" " for-loop_295)" " null" -" lst_335" +" lst_334" " start_66))))))" "(begin" "(let-values(((obs_78)" @@ -62996,7 +63010,7 @@ static const char *startup_source = "(call-expand-observe" " obs_79" " 'block->list" -"(datum->syntax$1 s_231 done-bodys_1))))" +"(datum->syntax$1 s_229 done-bodys_1))))" "(void)))" "(finish-bodys_0)))" "(let-values()" @@ -63009,7 +63023,7 @@ static const char *startup_source = "(log-letrec-values$1" " obs_80" " finish-ctx_0" -" s_231" +" s_229" " val-idss_1" " val-rhss_1" " track-stxs_1" @@ -63025,7 +63039,7 @@ static const char *startup_source = "((temp142_2)(not stratified?_1))" "((frame-id143_0) frame-id_13)" "((finish-ctx144_0) finish-ctx_0)" -"((s145_0) s_231)" +"((s145_0) s_229)" "((temp146_3)(pair? stx-clauses_1))" "((finish-bodys147_0) finish-bodys_0)" "((temp148_0) #f))" @@ -63078,7 +63092,7 @@ static const char *startup_source = "(let-values(((split?_0) split?30_0))" "(let-values(((frame-id_14) frame-id31_0))" "(let-values(((ctx_77) ctx32_0))" -"(let-values(((s_494) source33_0))" +"(let-values(((s_492) source33_0))" "(let-values(((had-stxes?_0) had-stxes?34_0))" "(let-values(((get-body_0) get-body35_0))" "(let-values(((track?_1) track?36_0))" @@ -63108,12 +63122,12 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_77)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" -"(keep-properties-only s_494)" +"(keep-properties-only s_492)" " null" " null" " exp-body_1)" "(parsed-letrec-values18.1" -"(keep-properties-only s_494)" +"(keep-properties-only s_492)" "(reverse$1 accum-idss_0)" "(reverse$1" "(map2" @@ -63122,7 +63136,7 @@ static const char *startup_source = " accum-rhss_0))" " exp-body_1))" "(let-values(((track?149_0) track?_2)" -"((s150_0) s_494)" +"((s150_0) s_492)" "((temp151_3)" "(list*" "(if(null? accum-idss_0)" @@ -63227,7 +63241,7 @@ static const char *startup_source = " ctx_77)" "(parsed-let-values17.1" "(keep-properties-only" -" s_494)" +" s_492)" "(list ids_31)" "(list" "(list" @@ -63237,7 +63251,7 @@ static const char *startup_source = "(let-values(((track?154_0)" " track?_2)" "((s155_0)" -" s_494)" +" s_492)" "((temp156_0)" "(list*" "(core-id" @@ -63300,7 +63314,7 @@ static const char *startup_source = " ctx_77)" "(parsed-letrec-values18.1" "(keep-properties-only" -" s_494)" +" s_492)" "(reverse$1" "(cons" " ids_31" @@ -63318,7 +63332,7 @@ static const char *startup_source = "(let-values(((track?157_0)" " track?_2)" "((s158_0)" -" s_494)" +" s_492)" "((temp159_0)" "(list*" "(core-id" @@ -63398,46 +63412,46 @@ static const char *startup_source = "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))" "(define-values" "(no-binds)" -"(lambda(expr_10 s_495 phase_143)" +"(lambda(expr_10 s_493 phase_143)" "(begin" "(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_143)))" "(datum->syntax$1" "(core-id '#%app phase_143)" "(list(core-id 'begin phase_143) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_495)))))" +" s_493)))))" "(define-values" "(log-tag?)" "(lambda(had-stxes?_1 ctx_78)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_78)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_85 ctx_79 s_496 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_85 ctx_79 s_494 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" "(let-values(((phase_144)(expand-context-phase ctx_79)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_246) val-idss_2)((lst_247) val-rhss_2)((lst_337) track-stxs_4))" +"(let-values(((lst_245) val-idss_2)((lst_246) val-rhss_2)((lst_336) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_245)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_246)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_247)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_337)))" +"(let-values()(check-list lst_336)))" "((letrec-values(((for-loop_296)" -"(lambda(fold-var_315 lst_338 lst_339 lst_340)" +"(lambda(fold-var_315 lst_337 lst_338 lst_339)" "(begin" " 'for-loop" -"(if(if(pair? lst_338)(if(pair? lst_339)(pair? lst_340) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_338))" -"((rest_192)(unsafe-cdr lst_338))" -"((val-rhs_0)(unsafe-car lst_339))" -"((rest_193)(unsafe-cdr lst_339))" -"((track-stx_2)(unsafe-car lst_340))" -"((rest_62)(unsafe-cdr lst_340)))" +"(if(if(pair? lst_337)(if(pair? lst_338)(pair? lst_339) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_337))" +"((rest_192)(unsafe-cdr lst_337))" +"((val-rhs_0)(unsafe-car lst_338))" +"((rest_193)(unsafe-cdr lst_338))" +"((track-stx_2)(unsafe-car lst_339))" +"((rest_62)(unsafe-cdr lst_339)))" "(let-values(((fold-var_316)" "(let-values(((fold-var_317) fold-var_315))" "(let-values(((fold-var_318)" @@ -63456,9 +63470,9 @@ static const char *startup_source = " fold-var_315)))))" " for-loop_296)" " null" +" lst_245" " lst_246" -" lst_247" -" lst_337))))))" +" lst_336))))))" "(let-values(((had-stxes?_2)(not(null? stx-clauses_2))))" "(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_144)))" "(let-values(((lv-s_0)" @@ -63467,7 +63481,7 @@ static const char *startup_source = "(if had-stxes?_2" "(list* lv-id_0 stx-clauses_2 clauses_0 done-bodys_2)" "(list* lv-id_0 clauses_0 done-bodys_2))" -" s_496)))" +" s_494)))" "(begin" "(call-expand-observe obs_85 'block->letrec(list lv-s_0))" "(call-expand-observe obs_85 'visit lv-s_0)" @@ -63482,7 +63496,7 @@ static const char *startup_source = " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_496))" +"(datum->syntax$1 #f done-bodys_2 s_494))" "(call-expand-observe obs_85 'prepare-env)" "(call-expand-observe obs_85 'next-group)" "(if(null? val-idss_2)" @@ -63494,7 +63508,7 @@ static const char *startup_source = " obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_496)))))))" +"(datum->syntax$1 #f done-bodys_2 s_494)))))))" "(let-values()" "(begin" "(call-expand-observe obs_85 'prim-letrec-values)" @@ -63502,10 +63516,10 @@ static const char *startup_source = " obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_496))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_494))))))))))))))" "(define-values" "(lambda-clause-expander)" -"(lambda(s_71 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)" +"(lambda(s_70 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)" "(begin" "(let-values(((sc_35)(new-scope 'local)))" "(let-values(((phase_145)(expand-context-phase ctx_80)))" @@ -63514,25 +63528,25 @@ static const char *startup_source = "(begin" "(let-values(((ids34_0) ids_33)" "((phase35_2) phase_145)" -"((s36_0) s_71)" +"((s36_0) s_70)" " ((temp37_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp37_4 #t ids34_0 phase35_2 s36_0 #f #f))" "(values))))" "(let-values(((counter_7)(root-expand-context-counter ctx_80)))" "(let-values(((keys_7)" "(reverse$1" -"(let-values(((lst_88) ids_33))" +"(let-values(((lst_89) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_88)))" +"(let-values()(check-list lst_89)))" "((letrec-values(((for-loop_297)" -"(lambda(fold-var_319 lst_266)" +"(lambda(fold-var_319 lst_265)" "(begin" " 'for-loop" -"(if(pair? lst_266)" -"(let-values(((id_120)(unsafe-car lst_266))" -"((rest_194)(unsafe-cdr lst_266)))" +"(if(pair? lst_265)" +"(let-values(((id_120)(unsafe-car lst_265))" +"((rest_194)(unsafe-cdr lst_265)))" "(let-values(((fold-var_33)" "(let-values(((fold-var_34) fold-var_319))" "(let-values(((fold-var_154)" @@ -63546,7 +63560,7 @@ static const char *startup_source = "((counter40_0)" " counter_7)" "((s41_0)" -" s_71))" +" s_70))" "(add-local-binding!37.1" " #f" " #f" @@ -63563,25 +63577,25 @@ static const char *startup_source = " fold-var_319)))))" " for-loop_297)" " null" -" lst_88))))))" +" lst_89))))))" "(let-values(((body-env_0)" -"(let-values(((lst_81) keys_7)((lst_91) ids_33))" +"(let-values(((lst_82) keys_7)((lst_92) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_81)))" +"(let-values()(check-list lst_82)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_91)))" +"(let-values()(check-list lst_92)))" "((letrec-values(((for-loop_233)" -"(lambda(env_25 lst_83 lst_272)" +"(lambda(env_25 lst_84 lst_271)" "(begin" " 'for-loop" -"(if(if(pair? lst_83)(pair? lst_272) #f)" -"(let-values(((key_96)(unsafe-car lst_83))" -"((rest_146)(unsafe-cdr lst_83))" -"((id_121)(unsafe-car lst_272))" -"((rest_195)(unsafe-cdr lst_272)))" +"(if(if(pair? lst_84)(pair? lst_271) #f)" +"(let-values(((key_96)(unsafe-car lst_84))" +"((rest_146)(unsafe-cdr lst_84))" +"((id_121)(unsafe-car lst_271))" +"((rest_195)(unsafe-cdr lst_271)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" @@ -63598,8 +63612,8 @@ static const char *startup_source = " env_25)))))" " for-loop_233)" "(expand-context-env ctx_80)" -" lst_81" -" lst_91)))))" +" lst_82" +" lst_92)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_35)))" "(let-values(((sc-bodys_0)" "(reverse$1" @@ -63681,7 +63695,7 @@ static const char *startup_source = "(let-values(((sc-bodys47_0) sc-bodys_0)" "((body-ctx48_0) body-ctx_4)" "((temp49_3)" -"(let-values(((ctx50_0) ctx_80)((s51_2) s_71)((temp52_5) #t))" +"(let-values(((ctx50_0) ctx_80)((s51_2) s_70)((temp52_5) #t))" "(keep-as-needed85.1 #f #f temp52_5 #t #f #f ctx50_0 s51_2))))" "(expand-body7.1 temp49_3 #f #f sc-bodys47_0 body-ctx48_0))))" "(values" @@ -63700,31 +63714,31 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_15)))" "(let-values(((ok?_33 lambda53_0 formals54_0 body55_0)" -"(let-values(((s_430) disarmed-s_6))" -"(let-values(((orig-s_41) s_430))" +"(let-values(((s_428) disarmed-s_6))" +"(let-values(((orig-s_41) s_428))" "(let-values(((lambda53_1 formals54_1 body55_1)" -"(let-values(((s_166)(if(syntax?$1 s_430)(syntax-e$1 s_430) s_430)))" -"(if(pair? s_166)" -"(let-values(((lambda56_0)(let-values(((s_497)(car s_166))) s_497))" +"(let-values(((s_164)(if(syntax?$1 s_428)(syntax-e$1 s_428) s_428)))" +"(if(pair? s_164)" +"(let-values(((lambda56_0)(let-values(((s_495)(car s_164))) s_495))" "((formals57_0 body58_0)" -"(let-values(((s_478)(cdr s_166)))" -"(let-values(((s_471)" -"(if(syntax?$1 s_478)" -"(syntax-e$1 s_478)" -" s_478)))" -"(if(pair? s_471)" +"(let-values(((s_476)(cdr s_164)))" +"(let-values(((s_469)" +"(if(syntax?$1 s_476)" +"(syntax-e$1 s_476)" +" s_476)))" +"(if(pair? s_469)" "(let-values(((formals59_0)" -"(let-values(((s_479)(car s_471)))" -" s_479))" +"(let-values(((s_477)(car s_469)))" +" s_477))" "((body60_0)" -"(let-values(((s_67)(cdr s_471)))" -"(let-values(((s_80)" -"(if(syntax?$1 s_67)" -"(syntax-e$1 s_67)" -" s_67)))" +"(let-values(((s_66)(cdr s_469)))" +"(let-values(((s_79)" +"(if(syntax?$1 s_66)" +"(syntax-e$1 s_66)" +" s_66)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" -" s_80)))" +" s_79)))" "(if(not flat-s_27)" "(let-values()" "(raise-syntax-error$1" @@ -63756,29 +63770,29 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'λ" -"(lambda(s_498)" +"(lambda(s_496)" "(let-values(((ok?_34 lam-id66_0 formals67_0 _68_0)" -"(let-values(((s_499) s_498))" -"(let-values(((orig-s_42) s_499))" +"(let-values(((s_497) s_496))" +"(let-values(((orig-s_42) s_497))" "(let-values(((lam-id66_1 formals67_1 _68_1)" -"(let-values(((s_309)(if(syntax?$1 s_499)(syntax-e$1 s_499) s_499)))" -"(if(pair? s_309)" -"(let-values(((lam-id69_0)(let-values(((s_48)(car s_309))) s_48))" +"(let-values(((s_307)(if(syntax?$1 s_497)(syntax-e$1 s_497) s_497)))" +"(if(pair? s_307)" +"(let-values(((lam-id69_0)(let-values(((s_48)(car s_307))) s_48))" "((formals70_0 _71_1)" -"(let-values(((s_49)(cdr s_309)))" +"(let-values(((s_49)(cdr s_307)))" "(let-values(((s_32)" "(if(syntax?$1 s_49)(syntax-e$1 s_49) s_49)))" "(if(pair? s_32)" "(let-values(((formals72_0)" -"(let-values(((s_500)(car s_32))) s_500))" +"(let-values(((s_498)(car s_32))) s_498))" "((_73_0)" -"(let-values(((s_310)(cdr s_32)))" -"(let-values(((s_392)" -"(if(syntax?$1 s_310)" -"(syntax-e$1 s_310)" -" s_310)))" +"(let-values(((s_308)(cdr s_32)))" +"(let-values(((s_390)" +"(if(syntax?$1 s_308)" +"(syntax-e$1 s_308)" +" s_308)))" "(let-values(((flat-s_25)" -"(to-syntax-list.1 s_392)))" +"(to-syntax-list.1 s_390)))" "(if(not flat-s_25)" "(let-values()" "(raise-syntax-error$1" @@ -63797,23 +63811,23 @@ static const char *startup_source = "(values lam-id69_0 formals70_0 _71_1))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t lam-id66_1 formals67_1 _68_1))))))" -"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_498)))" +"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_496)))" "(let-values(((ctx_82)(let-values(((temp78_0) #t))(get-current-expand-context17.1 temp78_0 #t #f #f))))" "(let-values(((phase_146)(if ctx_82(expand-context-phase ctx_82) 0)))" "(begin" -" (let-values (((ids74_0) ids_34) ((phase75_0) phase_146) ((s76_2) s_498) ((temp77_4) \"argument name\"))" +" (let-values (((ids74_0) ids_34) ((phase75_0) phase_146) ((s76_2) s_496) ((temp77_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp77_4 #t ids74_0 phase75_0 s76_2 #f #f))" "(datum->syntax$1" -" s_498" +" s_496" "(cons" "(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_146) 'lambda lam-id66_0 lam-id66_0)" -"(cdr(syntax-e$1 s_498)))" -" s_498" -" s_498)))))))))" +"(cdr(syntax-e$1 s_496)))" +" s_496" +" s_496)))))))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_501 ctx_83)" +"(lambda(s_499 ctx_83)" "(let-values((()" "(begin" "(let-values(((obs_86)(expand-context-observer ctx_83)))" @@ -63821,47 +63835,47 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_86 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_501)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_499)))" "(let-values(((ok?_35 case-lambda79_0 formals80_0 body81_0)" -"(let-values(((s_502) disarmed-s_7))" -"(let-values(((orig-s_43) s_502))" +"(let-values(((s_500) disarmed-s_7))" +"(let-values(((orig-s_43) s_500))" "(let-values(((case-lambda79_1 formals80_1 body81_1)" -"(let-values(((s_503)(if(syntax?$1 s_502)(syntax-e$1 s_502) s_502)))" -"(if(pair? s_503)" -"(let-values(((case-lambda82_0)(let-values(((s_59)(car s_503))) s_59))" +"(let-values(((s_501)(if(syntax?$1 s_500)(syntax-e$1 s_500) s_500)))" +"(if(pair? s_501)" +"(let-values(((case-lambda82_0)(let-values(((s_59)(car s_501))) s_59))" "((formals83_0 body84_0)" -"(let-values(((s_36)(cdr s_503)))" -"(let-values(((s_504)" -"(if(syntax?$1 s_36)" -"(syntax-e$1 s_36)" -" s_36)))" -"(let-values(((flat-s_28)(to-syntax-list.1 s_504)))" +"(let-values(((s_502)(cdr s_501)))" +"(let-values(((s_36)" +"(if(syntax?$1 s_502)" +"(syntax-e$1 s_502)" +" s_502)))" +"(let-values(((flat-s_28)(to-syntax-list.1 s_36)))" "(if(not flat-s_28)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_341) flat-s_28))" +"(let-values(((lst_340) flat-s_28))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_341)))" +"(check-list lst_340)))" "((letrec-values(((for-loop_298)" "(lambda(formals_4" " body_15" -" lst_31)" +" lst_341)" "(begin" " 'for-loop" "(if(pair?" -" lst_31)" +" lst_341)" "(let-values(((s_61)" "(unsafe-car" -" lst_31))" +" lst_341))" "((rest_196)" "(unsafe-cdr" -" lst_31)))" +" lst_341)))" "(let-values(((formals_5" " body_16)" "(let-values(((formals_6)" @@ -63874,32 +63888,32 @@ static const char *startup_source = "(let-values(((formals91_0" " body92_0)" "(let-values()" -"(let-values(((s_64)" +"(let-values(((s_63)" "(if(syntax?$1" " s_61)" "(syntax-e$1" " s_61)" " s_61)))" "(if(pair?" -" s_64)" +" s_63)" "(let-values(((formals85_0)" -"(let-values(((s_91)" +"(let-values(((s_90)" "(car" -" s_64)))" -" s_91))" +" s_63)))" +" s_90))" "((body86_0)" -"(let-values(((s_204)" +"(let-values(((s_202)" "(cdr" -" s_64)))" -"(let-values(((s_505)" +" s_63)))" +"(let-values(((s_503)" "(if(syntax?$1" -" s_204)" +" s_202)" "(syntax-e$1" -" s_204)" -" s_204)))" +" s_202)" +" s_202)))" "(let-values(((flat-s_29)" "(to-syntax-list.1" -" s_505)))" +" s_503)))" "(if(not" " flat-s_29)" "(let-values()" @@ -63948,7 +63962,7 @@ static const char *startup_source = " for-loop_298)" " null" " null" -" lst_341)))))" +" lst_340)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" @@ -63956,19 +63970,19 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda79_1 formals80_1 body81_1))))))" "(let-values(((ok?_36 case-lambda87_0 clause88_0)" -"(let-values(((s_38) disarmed-s_7))" -"(let-values(((orig-s_44) s_38))" +"(let-values(((s_203) disarmed-s_7))" +"(let-values(((orig-s_44) s_203))" "(let-values(((case-lambda87_1 clause88_1)" -"(let-values(((s_506)(if(syntax?$1 s_38)(syntax-e$1 s_38) s_38)))" -"(if(pair? s_506)" -"(let-values(((case-lambda89_0)(let-values(((s_92)(car s_506))) s_92))" +"(let-values(((s_504)(if(syntax?$1 s_203)(syntax-e$1 s_203) s_203)))" +"(if(pair? s_504)" +"(let-values(((case-lambda89_0)(let-values(((s_91)(car s_504))) s_91))" "((clause90_0)" -"(let-values(((s_507)(cdr s_506)))" -"(let-values(((s_436)" -"(if(syntax?$1 s_507)" -"(syntax-e$1 s_507)" -" s_507)))" -"(let-values(((flat-s_30)(to-syntax-list.1 s_436)))" +"(let-values(((s_505)(cdr s_504)))" +"(let-values(((s_434)" +"(if(syntax?$1 s_505)" +"(syntax-e$1 s_505)" +" s_505)))" +"(let-values(((flat-s_30)(to-syntax-list.1 s_434)))" "(if(not flat-s_30)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44))" @@ -63977,11 +63991,11 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))" "(values #t case-lambda87_1 clause88_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx93_1) ctx_83)((s94_0) s_501)((temp95_3) #t))" +"(let-values(((ctx93_1) ctx_83)((s94_0) s_499)((temp95_3) #t))" "(keep-as-needed85.1 #f #f #f #f temp95_3 #t ctx93_1 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_342) formals80_0)((lst_343) body81_0)((lst_205) clause88_0))" +"(let-values(((lst_342) formals80_0)((lst_343) body81_0)((lst_204) clause88_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -63991,16 +64005,16 @@ static const char *startup_source = "(let-values()(check-list lst_343)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_205)))" +"(let-values()(check-list lst_204)))" "((letrec-values(((for-loop_122)" -"(lambda(fold-var_320 lst_275 lst_155 lst_344)" +"(lambda(fold-var_320 lst_274 lst_155 lst_344)" "(begin" " 'for-loop" -"(if(if(pair? lst_275)" +"(if(if(pair? lst_274)" "(if(pair? lst_155)(pair? lst_344) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_275))" -"((rest_197)(unsafe-cdr lst_275))" +"(let-values(((formals_8)(unsafe-car lst_274))" +"((rest_197)(unsafe-cdr lst_274))" "((body_19)(unsafe-car lst_155))" "((rest_79)(unsafe-cdr lst_155))" "((clause_3)(unsafe-car lst_344))" @@ -64041,7 +64055,7 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_501" +" s_499" " disarmed-s_7" " formals_8" " body_19" @@ -64073,14 +64087,14 @@ static const char *startup_source = " null" " lst_342" " lst_343" -" lst_205))))))" +" lst_204))))))" "(if(expand-context-to-parsed? ctx_83)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" "(let-values(((rebuild-s100_0) rebuild-s_5)((temp101_5)(list* case-lambda79_0 clauses_1)))" "(rebuild5.1 #f #f rebuild-s100_0 temp101_5))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_36 s_508)" +"(lambda(all-formals_0 sc_36 s_506)" "(begin" "((letrec-values(((loop_121)" "(lambda(formals_9)" @@ -64095,21 +64109,21 @@ static const char *startup_source = "(let-values()(loop_121 p_87))" "(if(null? p_87)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_508 p_87))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_506 p_87))))))" "(if(pair? formals_9)" "(let-values()" "(begin" "(if(identifier?(car formals_9))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_508 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_506 (car formals_9))))" "(cons" "(if sc_36(add-scope(car formals_9) sc_36)(car formals_9))" "(loop_121(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" -" (raise-syntax-error$1 \"bad argument sequence\" s_508 all-formals_0))))))))))" +" (raise-syntax-error$1 \"bad argument sequence\" s_506 all-formals_0))))))))))" " loop_121)" " all-formals_0))))" "(define-values" @@ -64149,7 +64163,7 @@ static const char *startup_source = "(let-values(((split-by-reference?_0)(if split-by-reference?9_0 split-by-reference?4_0 #f)))" "(let-values(((renames-log-tag_0)(if renames-log-tag10_0 renames-log-tag5_0 'let-renames)))" "(let-values()" -"(lambda(s_326 ctx_84)" +"(lambda(s_324 ctx_84)" "(let-values((()" "(begin" "(let-values(((obs_87)(expand-context-observer ctx_84)))" @@ -64157,7 +64171,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_87 log-tag_0)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_8)(syntax-disarm$1 s_326)))" +"(let-values(((disarmed-s_8)(syntax-disarm$1 s_324)))" "(let-values(((ok?_37" " letrec-syntaxes+values102_0" " id:trans103_0" @@ -64165,47 +64179,47 @@ static const char *startup_source = " id:val105_0" " val-rhs106_0" " body107_0)" -"(let-values(((s_420) disarmed-s_8))" +"(let-values(((s_418) disarmed-s_8))" "(if(if syntaxes?_0 #t #f)" -"(let-values(((orig-s_45) s_420))" +"(let-values(((orig-s_45) s_418))" "(let-values(((letrec-syntaxes+values102_1" " id:trans103_1" " trans-rhs104_1" " id:val105_1" " val-rhs106_1" " body107_1)" -"(let-values(((s_124)" -"(if(syntax?$1 s_420)" -"(syntax-e$1 s_420)" -" s_420)))" -"(if(pair? s_124)" +"(let-values(((s_123)" +"(if(syntax?$1 s_418)" +"(syntax-e$1 s_418)" +" s_418)))" +"(if(pair? s_123)" "(let-values(((letrec-syntaxes+values108_0)" -"(let-values(((s_509)(car s_124))) s_509))" +"(let-values(((s_507)(car s_123))) s_507))" "((id:trans109_0" " trans-rhs110_0" " id:val111_0" " val-rhs112_0" " body113_0)" -"(let-values(((s_126)(cdr s_124)))" -"(let-values(((s_510)" -"(if(syntax?$1 s_126)" -"(syntax-e$1 s_126)" -" s_126)))" -"(if(pair? s_510)" +"(let-values(((s_125)(cdr s_123)))" +"(let-values(((s_508)" +"(if(syntax?$1 s_125)" +"(syntax-e$1 s_125)" +" s_125)))" +"(if(pair? s_508)" "(let-values(((id:trans114_0" " trans-rhs115_0)" -"(let-values(((s_511)" +"(let-values(((s_509)" "(car" -" s_510)))" -"(let-values(((s_512)" +" s_508)))" +"(let-values(((s_510)" "(if(syntax?$1" -" s_511)" +" s_509)" "(syntax-e$1" -" s_511)" -" s_511)))" +" s_509)" +" s_509)))" "(let-values(((flat-s_31)" "(to-syntax-list.1" -" s_512)))" +" s_510)))" "(if(not" " flat-s_31)" "(let-values()" @@ -64233,7 +64247,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_2)" -"(let-values(((s_230)" +"(let-values(((s_228)" "(unsafe-car" " lst_2))" "((rest_199)" @@ -64251,27 +64265,27 @@ static const char *startup_source = "(let-values(((id:trans145_0" " trans-rhs146_0)" "(let-values()" -"(let-values(((s_513)" +"(let-values(((s_511)" "(if(syntax?$1" -" s_230)" +" s_228)" "(syntax-e$1" -" s_230)" -" s_230)))" +" s_228)" +" s_228)))" "(if(pair?" -" s_513)" +" s_511)" "(let-values(((id:trans119_0)" -"(let-values(((s_337)" +"(let-values(((s_335)" "(car" -" s_513)))" -"(let-values(((s_338)" +" s_511)))" +"(let-values(((s_336)" "(if(syntax?$1" -" s_337)" +" s_335)" "(syntax-e$1" -" s_337)" -" s_337)))" +" s_335)" +" s_335)))" "(let-values(((flat-s_32)" "(to-syntax-list.1" -" s_338)))" +" s_336)))" "(if(not" " flat-s_32)" "(let-values()" @@ -64292,17 +64306,17 @@ static const char *startup_source = " lst_346)))" "((letrec-values(((for-loop_300)" "(lambda(id:trans_6" -" lst_213)" +" lst_212)" "(begin" " 'for-loop" "(if(pair?" -" lst_213)" -"(let-values(((s_514)" +" lst_212)" +"(let-values(((s_512)" "(unsafe-car" -" lst_213))" +" lst_212))" "((rest_200)" "(unsafe-cdr" -" lst_213)))" +" lst_212)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -64312,21 +64326,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_384)" "(if(syntax?$1" -" s_514)" +" s_512)" "(symbol?" "(syntax-e$1" -" s_514))" +" s_512))" " #f)))" "(if or-part_384" " or-part_384" "(symbol?" -" s_514)))" -" s_514" +" s_512)))" +" s_512" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_514)))))" +" s_512)))))" "(cons" " id:trans147_0" " id:trans_8)))))" @@ -64345,34 +64359,34 @@ static const char *startup_source = "(reverse$1" " id:trans_5))))))))" "((trans-rhs120_0)" -"(let-values(((s_515)" +"(let-values(((s_513)" "(cdr" +" s_511)))" +"(let-values(((s_514)" +"(if(syntax?$1" +" s_513)" +"(syntax-e$1" +" s_513)" " s_513)))" -"(let-values(((s_516)" -"(if(syntax?$1" -" s_515)" -"(syntax-e$1" -" s_515)" -" s_515)))" "(if(pair?" -" s_516)" +" s_514)" "(let-values(((trans-rhs121_0)" -"(let-values(((s_236)" +"(let-values(((s_234)" "(car" -" s_516)))" -" s_236))" +" s_514)))" +" s_234))" "(()" -"(let-values(((s_237)" +"(let-values(((s_235)" "(cdr" -" s_516)))" -"(let-values(((s_238)" +" s_514)))" +"(let-values(((s_236)" "(if(syntax?$1" -" s_237)" +" s_235)" "(syntax-e$1" -" s_237)" -" s_237)))" +" s_235)" +" s_235)))" "(if(null?" -" s_238)" +" s_236)" "(values)" "(raise-syntax-error$1" " #f" @@ -64425,30 +64439,30 @@ static const char *startup_source = "((id:val116_0" " val-rhs117_0" " body118_0)" -"(let-values(((s_345)" +"(let-values(((s_343)" "(cdr" -" s_510)))" -"(let-values(((s_346)" +" s_508)))" +"(let-values(((s_344)" "(if(syntax?$1" -" s_345)" +" s_343)" "(syntax-e$1" -" s_345)" -" s_345)))" -"(if(pair? s_346)" +" s_343)" +" s_343)))" +"(if(pair? s_344)" "(let-values(((id:val122_0" " val-rhs123_0)" -"(let-values(((s_517)" +"(let-values(((s_515)" "(car" -" s_346)))" -"(let-values(((s_347)" +" s_344)))" +"(let-values(((s_345)" "(if(syntax?$1" -" s_517)" +" s_515)" "(syntax-e$1" -" s_517)" -" s_517)))" +" s_515)" +" s_515)))" "(let-values(((flat-s_33)" "(to-syntax-list.1" -" s_347)))" +" s_345)))" "(if(not" " flat-s_33)" "(let-values()" @@ -64459,7 +64473,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_142)" +"(let-values(((lst_143)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64467,7 +64481,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_142)))" +" lst_143)))" "((letrec-values(((for-loop_301)" "(lambda(id:val_1" " val-rhs_2" @@ -64476,7 +64490,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_347)" -"(let-values(((s_352)" +"(let-values(((s_350)" "(unsafe-car" " lst_347))" "((rest_201)" @@ -64494,27 +64508,27 @@ static const char *startup_source = "(let-values(((id:val148_0" " val-rhs149_0)" "(let-values()" -"(let-values(((s_518)" +"(let-values(((s_516)" "(if(syntax?$1" -" s_352)" +" s_350)" "(syntax-e$1" -" s_352)" -" s_352)))" +" s_350)" +" s_350)))" "(if(pair?" -" s_518)" +" s_516)" "(let-values(((id:val125_0)" -"(let-values(((s_357)" +"(let-values(((s_355)" "(car" -" s_518)))" -"(let-values(((s_358)" +" s_516)))" +"(let-values(((s_356)" "(if(syntax?$1" -" s_357)" +" s_355)" "(syntax-e$1" -" s_357)" -" s_357)))" +" s_355)" +" s_355)))" "(let-values(((flat-s_34)" "(to-syntax-list.1" -" s_358)))" +" s_356)))" "(if(not" " flat-s_34)" "(let-values()" @@ -64540,7 +64554,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_349)" -"(let-values(((s_519)" +"(let-values(((s_517)" "(unsafe-car" " lst_349))" "((rest_202)" @@ -64555,21 +64569,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_385)" "(if(syntax?$1" -" s_519)" +" s_517)" "(symbol?" "(syntax-e$1" -" s_519))" +" s_517))" " #f)))" "(if or-part_385" " or-part_385" "(symbol?" -" s_519)))" -" s_519" +" s_517)))" +" s_517" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_519)))))" +" s_517)))))" "(cons" " id:val150_0" " id:val_8)))))" @@ -64588,34 +64602,34 @@ static const char *startup_source = "(reverse$1" " id:val_5))))))))" "((val-rhs126_0)" +"(let-values(((s_518)" +"(cdr" +" s_516)))" +"(let-values(((s_242)" +"(if(syntax?$1" +" s_518)" +"(syntax-e$1" +" s_518)" +" s_518)))" +"(if(pair?" +" s_242)" +"(let-values(((val-rhs127_0)" +"(let-values(((s_519)" +"(car" +" s_242)))" +" s_519))" +"(()" "(let-values(((s_520)" "(cdr" -" s_518)))" -"(let-values(((s_244)" +" s_242)))" +"(let-values(((s_521)" "(if(syntax?$1" " s_520)" "(syntax-e$1" " s_520)" " s_520)))" -"(if(pair?" -" s_244)" -"(let-values(((val-rhs127_0)" -"(let-values(((s_521)" -"(car" -" s_244)))" -" s_521))" -"(()" -"(let-values(((s_522)" -"(cdr" -" s_244)))" -"(let-values(((s_523)" -"(if(syntax?$1" -" s_522)" -"(syntax-e$1" -" s_522)" -" s_522)))" "(if(null?" -" s_523)" +" s_521)" "(values)" "(raise-syntax-error$1" " #f" @@ -64659,25 +64673,25 @@ static const char *startup_source = " for-loop_301)" " null" " null" -" lst_142)))))" +" lst_143)))))" "(values" "(reverse$1" " id:val_0)" "(reverse$1" " val-rhs_1)))))))))" "((body124_0)" -"(let-values(((s_245)" +"(let-values(((s_243)" "(cdr" -" s_346)))" -"(let-values(((s_246)" +" s_344)))" +"(let-values(((s_244)" "(if(syntax?$1" -" s_245)" +" s_243)" "(syntax-e$1" -" s_245)" -" s_245)))" +" s_243)" +" s_243)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" -" s_246)))" +" s_244)))" "(if(not" " flat-s_35)" "(let-values()" @@ -64730,39 +64744,39 @@ static const char *startup_source = " body107_1)))" "(values #f #f #f #f #f #f #f)))))" "(let-values(((ok?_38 let-values128_0 id:val129_0 val-rhs130_0 body131_0)" -"(let-values(((s_524) disarmed-s_8))" +"(let-values(((s_522) disarmed-s_8))" "(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_46) s_524))" +"(let-values(((orig-s_46) s_522))" "(let-values(((let-values128_1 id:val129_1 val-rhs130_1 body131_1)" -"(let-values(((s_250)" -"(if(syntax?$1 s_524)" -"(syntax-e$1 s_524)" -" s_524)))" -"(if(pair? s_250)" +"(let-values(((s_248)" +"(if(syntax?$1 s_522)" +"(syntax-e$1 s_522)" +" s_522)))" +"(if(pair? s_248)" "(let-values(((let-values132_0)" -"(let-values(((s_253)(car s_250)))" -" s_253))" +"(let-values(((s_251)(car s_248)))" +" s_251))" "((id:val133_0 val-rhs134_0 body135_0)" -"(let-values(((s_525)(cdr s_250)))" -"(let-values(((s_448)" -"(if(syntax?$1 s_525)" -"(syntax-e$1 s_525)" -" s_525)))" -"(if(pair? s_448)" +"(let-values(((s_523)(cdr s_248)))" +"(let-values(((s_446)" +"(if(syntax?$1 s_523)" +"(syntax-e$1 s_523)" +" s_523)))" +"(if(pair? s_446)" "(let-values(((id:val136_0" " val-rhs137_0)" -"(let-values(((s_363)" +"(let-values(((s_361)" "(car" -" s_448)))" -"(let-values(((s_254)" +" s_446)))" +"(let-values(((s_252)" "(if(syntax?$1" -" s_363)" +" s_361)" "(syntax-e$1" -" s_363)" -" s_363)))" +" s_361)" +" s_361)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_254)))" +" s_252)))" "(if(not" " flat-s_36)" "(let-values()" @@ -64790,7 +64804,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_351)" -"(let-values(((s_372)" +"(let-values(((s_370)" "(unsafe-car" " lst_351))" "((rest_203)" @@ -64808,27 +64822,27 @@ static const char *startup_source = "(let-values(((id:val151_0" " val-rhs152_0)" "(let-values()" -"(let-values(((s_526)" +"(let-values(((s_524)" "(if(syntax?$1" -" s_372)" +" s_370)" "(syntax-e$1" -" s_372)" -" s_372)))" +" s_370)" +" s_370)))" "(if(pair?" -" s_526)" +" s_524)" "(let-values(((id:val139_0)" -"(let-values(((s_376)" +"(let-values(((s_374)" "(car" -" s_526)))" -"(let-values(((s_377)" +" s_524)))" +"(let-values(((s_375)" "(if(syntax?$1" -" s_376)" +" s_374)" "(syntax-e$1" -" s_376)" -" s_376)))" +" s_374)" +" s_374)))" "(let-values(((flat-s_37)" "(to-syntax-list.1" -" s_377)))" +" s_375)))" "(if(not" " flat-s_37)" "(let-values()" @@ -64854,7 +64868,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_353)" -"(let-values(((s_381)" +"(let-values(((s_379)" "(unsafe-car" " lst_353))" "((rest_204)" @@ -64869,21 +64883,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_356)" "(if(syntax?$1" -" s_381)" +" s_379)" "(symbol?" "(syntax-e$1" -" s_381))" +" s_379))" " #f)))" "(if or-part_356" " or-part_356" "(symbol?" -" s_381)))" -" s_381" +" s_379)))" +" s_379" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_46" -" s_381)))))" +" s_379)))))" "(cons" " id:val153_0" " id:val_18)))))" @@ -64902,34 +64916,34 @@ static const char *startup_source = "(reverse$1" " id:val_15))))))))" "((val-rhs140_0)" -"(let-values(((s_384)" +"(let-values(((s_382)" "(cdr" -" s_526)))" -"(let-values(((s_257)" +" s_524)))" +"(let-values(((s_255)" "(if(syntax?$1" -" s_384)" +" s_382)" "(syntax-e$1" -" s_384)" -" s_384)))" +" s_382)" +" s_382)))" "(if(pair?" -" s_257)" +" s_255)" "(let-values(((val-rhs141_0)" -"(let-values(((s_259)" +"(let-values(((s_257)" "(car" -" s_257)))" -" s_259))" +" s_255)))" +" s_257))" "(()" -"(let-values(((s_527)" +"(let-values(((s_525)" "(cdr" -" s_257)))" -"(let-values(((s_528)" +" s_255)))" +"(let-values(((s_526)" "(if(syntax?$1" -" s_527)" +" s_525)" "(syntax-e$1" -" s_527)" -" s_527)))" +" s_525)" +" s_525)))" "(if(null?" -" s_528)" +" s_526)" "(values)" "(raise-syntax-error$1" " #f" @@ -64980,18 +64994,18 @@ static const char *startup_source = "(reverse$1" " val-rhs_6)))))))))" "((body138_0)" -"(let-values(((s_529)" +"(let-values(((s_527)" "(cdr" -" s_448)))" -"(let-values(((s_260)" +" s_446)))" +"(let-values(((s_258)" "(if(syntax?$1" -" s_529)" +" s_527)" "(syntax-e$1" -" s_529)" -" s_529)))" +" s_527)" +" s_527)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" -" s_260)))" +" s_258)))" "(if(not" " flat-s_38)" "(let-values()" @@ -65114,14 +65128,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_358)))" "((letrec-values(((for-loop_307)" -"(lambda(fold-var_331 lst_121)" +"(lambda(fold-var_331 lst_122)" "(begin" " 'for-loop" -"(if(pair? lst_121)" +"(if(pair? lst_122)" "(let-values(((ids_36)" -"(unsafe-car lst_121))" +"(unsafe-car lst_122))" "((rest_207)" -"(unsafe-cdr lst_121)))" +"(unsafe-cdr lst_122)))" "(let-values(((fold-var_332)" "(let-values(((fold-var_333)" " fold-var_331))" @@ -65232,7 +65246,7 @@ static const char *startup_source = "(begin" "(let-values(((temp142_3)(list trans-idss_2 val-idss_3))" "((phase143_0) phase_147)" -"((s144_0) s_326))" +"((s144_0) s_324))" "(check-no-duplicate-ids8.1" " #f" " #f" @@ -65308,7 +65322,7 @@ static const char *startup_source = "((frame-id157_0)" " frame-id_15)" "((s158_1)" -" s_326))" +" s_324))" "(add-local-binding!37.1" " frame-id157_0" " #t" @@ -65351,16 +65365,16 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_367)))" "((letrec-values(((for-loop_311)" -"(lambda(fold-var_349 lst_244)" +"(lambda(fold-var_349 lst_243)" "(begin" " 'for-loop" -"(if(pair? lst_244)" +"(if(pair? lst_243)" "(let-values(((ids_38)" "(unsafe-car" -" lst_244))" +" lst_243))" "((rest_212)" "(unsafe-cdr" -" lst_244)))" +" lst_243)))" "(let-values(((fold-var_350)" "(let-values(((fold-var_351)" " fold-var_349))" @@ -65407,7 +65421,7 @@ static const char *startup_source = "((frame-id162_0)" " frame-id_15)" "((s163_0)" -" s_326))" +" s_324))" "(add-local-binding!37.1" " frame-id162_0" " #t" @@ -65443,24 +65457,24 @@ static const char *startup_source = " lst_367))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_145)" +"(let-values(((lst_146)" "(if syntaxes?_0 body107_0 body131_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_145)))" +"(let-values()(check-list lst_146)))" "((letrec-values(((for-loop_172)" -"(lambda(fold-var_357 lst_146)" +"(lambda(fold-var_357 lst_147)" "(begin" " 'for-loop" -"(if(pair? lst_146)" +"(if(pair? lst_147)" "(let-values(((body_20)" "(unsafe-car" -" lst_146))" +" lst_147))" "((rest_74)" "(unsafe-cdr" -" lst_146)))" +" lst_147)))" "(let-values(((fold-var_317)" "(let-values(((fold-var_318)" " fold-var_357))" @@ -65482,7 +65496,7 @@ static const char *startup_source = " fold-var_357)))))" " for-loop_172)" " null" -" lst_145))))))" +" lst_146))))))" "(let-values((()" "(begin" "(let-values(((obs_88)" @@ -65646,7 +65660,7 @@ static const char *startup_source = "(let-values(((env_30)" "(let-values(((env_31)" " env_29))" -"(let-values(((lst_286)" +"(let-values(((lst_285)" " keys_10)" "((lst_378)" " ids_40))" @@ -65656,7 +65670,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_286)))" +" lst_285)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -65665,21 +65679,21 @@ static const char *startup_source = " lst_378)))" "((letrec-values(((for-loop_315)" "(lambda(env_32" -" lst_288" +" lst_287" " lst_379)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_288)" +" lst_287)" "(pair?" " lst_379)" " #f)" "(let-values(((key_97)" "(unsafe-car" -" lst_288))" +" lst_287))" "((rest_218)" "(unsafe-cdr" -" lst_288))" +" lst_287))" "((id_125)" "(unsafe-car" " lst_379))" @@ -65708,7 +65722,7 @@ static const char *startup_source = " env_32)))))" " for-loop_315)" " env_31" -" lst_286" +" lst_285" " lst_378))))))" "(if(not #f)" "(for-loop_314" @@ -65723,7 +65737,7 @@ static const char *startup_source = " lst_375)))))" "(let-values(((rec-env_0)" "(let-values(((lst_380) trans-keyss_0)" -"((lst_126) trans-valss_0)" +"((lst_127) trans-valss_0)" "((lst_381) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65733,7 +65747,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_126)))" +"(let-values()(check-list lst_127)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -65780,7 +65794,7 @@ static const char *startup_source = " keys_11)" "((lst_386)" " vals_9)" -"((lst_127)" +"((lst_128)" " ids_41))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65800,16 +65814,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_127)))" +" lst_128)))" "((letrec-values(((for-loop_160)" "(lambda(env_38" -" lst_128" +" lst_129" " lst_387" " lst_388)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_128)" +" lst_129)" "(if(pair?" " lst_387)" "(pair?" @@ -65818,10 +65832,10 @@ static const char *startup_source = " #f)" "(let-values(((key_98)" "(unsafe-car" -" lst_128))" +" lst_129))" "((rest_135)" "(unsafe-cdr" -" lst_128))" +" lst_129))" "((val_87)" "(unsafe-car" " lst_387))" @@ -65864,7 +65878,7 @@ static const char *startup_source = " env_36" " lst_385" " lst_386" -" lst_127))))))" +" lst_128))))))" "(values" " env_37)))))" "(if(not #f)" @@ -65878,7 +65892,7 @@ static const char *startup_source = " for-loop_316)" " rec-val-env_0" " lst_380" -" lst_126" +" lst_127" " lst_381)))))" "(let-values(((expr-ctx_0)(as-expression-context ctx_84)))" "(let-values(((orig-rrs_0)" @@ -65950,7 +65964,7 @@ static const char *startup_source = " #f)))" "(let-values(((rebuild-s_6)" "(let-values(((ctx169_0) ctx_84)" -"((s170_1) s_326)" +"((s170_1) s_324)" "((temp171_1) #t))" "(keep-as-needed85.1" " #f" @@ -65975,17 +65989,17 @@ static const char *startup_source = "(check-list lst_389)))" "((letrec-values(((for-loop_317)" "(lambda(fold-var_120" -" lst_131)" +" lst_132)" "(begin" " 'for-loop" "(if(pair?" -" lst_131)" +" lst_132)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_131))" +" lst_132))" "((rest_225)" "(unsafe-cdr" -" lst_131)))" +" lst_132)))" "(let-values(((fold-var_363)" "(let-values(((fold-var_364)" " fold-var_120))" @@ -66418,14 +66432,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_400)))" "((letrec-values(((for-loop_321)" -"(lambda(fold-var_376 lst_401 lst_138)" +"(lambda(fold-var_376 lst_401 lst_139)" "(begin" " 'for-loop" -"(if(if(pair? lst_401)(pair? lst_138) #f)" +"(if(if(pair? lst_401)(pair? lst_139) #f)" "(let-values(((val-ids_2)(unsafe-car lst_401))" "((rest_69)(unsafe-cdr lst_401))" -"((val-rhs_11)(unsafe-car lst_138))" -"((rest_231)(unsafe-cdr lst_138)))" +"((val-rhs_11)(unsafe-car lst_139))" +"((rest_231)(unsafe-cdr lst_139)))" "(let-values(((fold-var_136)" "(let-values(((fold-var_137) fold-var_376))" "(let-values(((fold-var_377)" @@ -66462,14 +66476,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_403)))" "((letrec-values(((for-loop_322)" -"(lambda(fold-var_378 lst_70 lst_147)" +"(lambda(fold-var_378 lst_70 lst_148)" "(begin" " 'for-loop" -"(if(if(pair? lst_70)(pair? lst_147) #f)" +"(if(if(pair? lst_70)(pair? lst_148) #f)" "(let-values(((trans-ids_0)(unsafe-car lst_70))" "((rest_232)(unsafe-cdr lst_70))" -"((trans-rhs_5)(unsafe-car lst_147))" -"((rest_75)(unsafe-cdr lst_147)))" +"((trans-rhs_5)(unsafe-car lst_148))" +"((rest_75)(unsafe-cdr lst_148)))" "(let-values(((fold-var_379)" "(let-values(((fold-var_380) fold-var_378))" "(let-values(((fold-var_381)" @@ -66523,7 +66537,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_530 ctx_85)" +"(lambda(s_528 ctx_85)" "(let-values((()" "(begin" "(let-values(((obs_97)(expand-context-observer ctx_85)))" @@ -66531,22 +66545,22 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_97 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_530)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_528)))" "(let-values(((ok?_39 #%stratified-body202_0 body203_0)" -"(let-values(((s_531) disarmed-s_9))" -"(let-values(((orig-s_47) s_531))" +"(let-values(((s_529) disarmed-s_9))" +"(let-values(((orig-s_47) s_529))" "(let-values(((#%stratified-body202_1 body203_1)" -"(let-values(((s_532)(if(syntax?$1 s_531)(syntax-e$1 s_531) s_531)))" -"(if(pair? s_532)" +"(let-values(((s_530)(if(syntax?$1 s_529)(syntax-e$1 s_529) s_529)))" +"(if(pair? s_530)" "(let-values(((#%stratified-body204_0)" -"(let-values(((s_533)(car s_532))) s_533))" +"(let-values(((s_531)(car s_530))) s_531))" "((body205_0)" -"(let-values(((s_534)(cdr s_532)))" -"(let-values(((s_535)" -"(if(syntax?$1 s_534)" -"(syntax-e$1 s_534)" -" s_534)))" -"(let-values(((flat-s_39)(to-syntax-list.1 s_535)))" +"(let-values(((s_532)(cdr s_530)))" +"(let-values(((s_533)" +"(if(syntax?$1 s_532)" +"(syntax-e$1 s_532)" +" s_532)))" +"(let-values(((flat-s_39)(to-syntax-list.1 s_533)))" "(if(not flat-s_39)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_47))" @@ -66558,7 +66572,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_47)))))" "(values #t #%stratified-body202_1 body203_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((ctx206_0) ctx_85)((s207_0) s_530)((temp208_0) #t))" +"(let-values(((ctx206_0) ctx_85)((s207_0) s_528)((temp208_0) #t))" "(keep-as-needed85.1 #f #f temp208_0 #t #f #f ctx206_0 s207_0))))" "(let-values(((exp-body_5)" "(let-values(((temp209_1) body203_0)" @@ -66577,21 +66591,21 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_536 ctx_86)" +"(lambda(s_534 ctx_86)" "(let-values((()" "(begin" "(let-values(((obs_98)(expand-context-observer ctx_86)))" "(if obs_98(let-values()(let-values()(call-expand-observe obs_98 'prim-#%datum)))(void)))" "(values))))" -"(let-values(((disarmed-s_10)(syntax-disarm$1 s_536)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_534)))" "(let-values(((ok?_40 #%datum215_0 datum216_0)" -"(let-values(((s_537) disarmed-s_10))" -"(let-values(((orig-s_48) s_537))" +"(let-values(((s_535) disarmed-s_10))" +"(let-values(((orig-s_48) s_535))" "(let-values(((#%datum215_1 datum216_1)" -"(let-values(((s_538)(if(syntax?$1 s_537)(syntax-e$1 s_537) s_537)))" -"(if(pair? s_538)" -"(let-values(((#%datum217_0)(let-values(((s_539)(car s_538))) s_539))" -"((datum218_0)(let-values(((s_540)(cdr s_538))) s_540)))" +"(let-values(((s_536)(if(syntax?$1 s_535)(syntax-e$1 s_535) s_535)))" +"(if(pair? s_536)" +"(let-values(((#%datum217_0)(let-values(((s_537)(car s_536))) s_537))" +"((datum218_0)(let-values(((s_538)(cdr s_536))) s_538)))" "(values #%datum217_0 datum218_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" "(values #t #%datum215_1 datum216_1))))))" @@ -66605,33 +66619,33 @@ static const char *startup_source = "(values))))" "(let-values(((phase_148)(expand-context-phase ctx_86)))" "(if(if(expand-context-to-parsed? ctx_86)(free-id-set-empty?(expand-context-stops ctx_86)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_536)(syntax->datum$1 datum_2))" -"(let-values(((s219_0) s_536)((temp220_0)(list(core-id 'quote phase_148) datum_2)))" +"(parsed-quote14.1(keep-properties-only~ s_534)(syntax->datum$1 datum_2))" +"(let-values(((s219_0) s_534)((temp220_0)(list(core-id 'quote phase_148) datum_2)))" "(rebuild5.1 #f #f s219_0 temp220_0))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_541 ctx_87)" +"(lambda(s_539 ctx_87)" "(let-values((()" "(begin" "(let-values(((obs_99)(expand-context-observer ctx_87)))" "(if obs_99(let-values()(let-values()(call-expand-observe obs_99 'prim-#%app)))(void)))" "(values))))" -"(let-values(((disarmed-s_11)(syntax-disarm$1 s_541)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_539)))" "(let-values(((ok?_41 #%app221_0 e222_0)" -"(let-values(((s_542) disarmed-s_11))" -"(let-values(((orig-s_49) s_542))" +"(let-values(((s_540) disarmed-s_11))" +"(let-values(((orig-s_49) s_540))" "(let-values(((#%app221_1 e222_1)" -"(let-values(((s_543)(if(syntax?$1 s_542)(syntax-e$1 s_542) s_542)))" -"(if(pair? s_543)" -"(let-values(((#%app223_0)(let-values(((s_544)(car s_543))) s_544))" +"(let-values(((s_541)(if(syntax?$1 s_540)(syntax-e$1 s_540) s_540)))" +"(if(pair? s_541)" +"(let-values(((#%app223_0)(let-values(((s_542)(car s_541))) s_542))" "((e224_0)" -"(let-values(((s_545)(cdr s_543)))" -"(let-values(((s_546)" -"(if(syntax?$1 s_545)" -"(syntax-e$1 s_545)" -" s_545)))" -"(let-values(((flat-s_40)(to-syntax-list.1 s_546)))" +"(let-values(((s_543)(cdr s_541)))" +"(let-values(((s_544)" +"(if(syntax?$1 s_543)" +"(syntax-e$1 s_543)" +" s_543)))" +"(let-values(((flat-s_40)(to-syntax-list.1 s_544)))" "(if(not flat-s_40)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49))" @@ -66644,14 +66658,14 @@ static const char *startup_source = "(let-values()" "(let-values(((phase_149)(expand-context-phase ctx_87)))" "(if(expand-context-to-parsed? ctx_87)" -"(parsed-quote14.1(keep-properties-only~ s_541) null)" -"(let-values(((s225_0) s_541)((temp226_1)(list(core-id 'quote phase_149) null)))" +"(parsed-quote14.1(keep-properties-only~ s_539) null)" +"(let-values(((s225_0) s_539)((temp226_1)(list(core-id 'quote phase_149) null)))" "(rebuild5.1 #f #f s225_0 temp226_1)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" "(let-values(((ctx227_0) ctx_87)" -"((s228_0) s_541)" +"((s228_0) s_539)" "((keep-for-parsed?229_0) keep-for-parsed?_1))" "(keep-as-needed85.1 #f #f #f #f keep-for-parsed?229_0 #t ctx227_0 s228_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" @@ -66681,7 +66695,7 @@ static const char *startup_source = "(call-expand-observe" " obs_100" " 'enter-list" -"(datum->syntax$1 #f es_3 s_541))" +"(datum->syntax$1 #f es_3 s_539))" "(call-expand-observe obs_100 'next))))" "(void)))" "(values))))" @@ -66774,35 +66788,35 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_547 ctx_88)" +"(lambda(s_545 ctx_88)" "(let-values((()" "(begin" "(let-values(((obs_103)(expand-context-observer ctx_88)))" "(if obs_103(let-values()(let-values()(call-expand-observe obs_103 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_42 quote241_0 datum242_0)" -"(let-values(((s_548)(syntax-disarm$1 s_547)))" -"(let-values(((orig-s_50) s_548))" +"(let-values(((s_546)(syntax-disarm$1 s_545)))" +"(let-values(((orig-s_50) s_546))" "(let-values(((quote241_1 datum242_1)" -"(let-values(((s_549)(if(syntax?$1 s_548)(syntax-e$1 s_548) s_548)))" -"(if(pair? s_549)" -"(let-values(((quote243_0)(let-values(((s_550)(car s_549))) s_550))" +"(let-values(((s_547)(if(syntax?$1 s_546)(syntax-e$1 s_546) s_546)))" +"(if(pair? s_547)" +"(let-values(((quote243_0)(let-values(((s_548)(car s_547))) s_548))" "((datum244_0)" -"(let-values(((s_551)(cdr s_549)))" -"(let-values(((s_552)" -"(if(syntax?$1 s_551)" -"(syntax-e$1 s_551)" -" s_551)))" -"(if(pair? s_552)" +"(let-values(((s_549)(cdr s_547)))" +"(let-values(((s_550)" +"(if(syntax?$1 s_549)" +"(syntax-e$1 s_549)" +" s_549)))" +"(if(pair? s_550)" "(let-values(((datum245_0)" -"(let-values(((s_553)(car s_552))) s_553))" +"(let-values(((s_551)(car s_550))) s_551))" "(()" -"(let-values(((s_554)(cdr s_552)))" -"(let-values(((s_555)" -"(if(syntax?$1 s_554)" -"(syntax-e$1 s_554)" -" s_554)))" -"(if(null? s_555)" +"(let-values(((s_552)(cdr s_550)))" +"(let-values(((s_553)" +"(if(syntax?$1 s_552)" +"(syntax-e$1 s_552)" +" s_552)))" +"(if(null? s_553)" "(values)" "(raise-syntax-error$1" " #f" @@ -66814,12 +66828,12 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))" "(values #t quote241_1 datum242_1))))))" "(if(expand-context-to-parsed? ctx_88)" -"(parsed-quote14.1(keep-properties-only~ s_547)(syntax->datum$1 datum242_0))" -" s_547))))))" +"(parsed-quote14.1(keep-properties-only~ s_545)(syntax->datum$1 datum242_0))" +" s_545))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_556 ctx_89)" +"(lambda(s_554 ctx_89)" "(let-values((()" "(begin" "(let-values(((obs_104)(expand-context-observer ctx_89)))" @@ -66827,27 +66841,27 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_104 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_556)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_554)))" "(let-values(((ok?_43 quote-syntax246_0 datum247_0)" -"(let-values(((s_557) disarmed-s_12))" -"(if(let-values(((s_558)(if(syntax?$1 s_557)(syntax-e$1 s_557) s_557)))" -"(if(pair? s_558)" -"(if(let-values(((s_559)(car s_558))) #t)" -"(let-values(((s_560)(cdr s_558)))" -"(let-values(((s_561)(if(syntax?$1 s_560)(syntax-e$1 s_560) s_560)))" -"(if(pair? s_561)" -"(if(let-values(((s_562)(car s_561))) #t)" -"(let-values(((s_563)(cdr s_561)))" -"(let-values(((s_564)(if(syntax?$1 s_563)(syntax-e$1 s_563) s_563)))" -"(if(pair? s_564)" -"(if(let-values(((s_565)(car s_564)))" +"(let-values(((s_555) disarmed-s_12))" +"(if(let-values(((s_556)(if(syntax?$1 s_555)(syntax-e$1 s_555) s_555)))" +"(if(pair? s_556)" +"(if(let-values(((s_557)(car s_556))) #t)" +"(let-values(((s_558)(cdr s_556)))" +"(let-values(((s_559)(if(syntax?$1 s_558)(syntax-e$1 s_558) s_558)))" +"(if(pair? s_559)" +"(if(let-values(((s_560)(car s_559))) #t)" +"(let-values(((s_561)(cdr s_559)))" +"(let-values(((s_562)(if(syntax?$1 s_561)(syntax-e$1 s_561) s_561)))" +"(if(pair? s_562)" +"(if(let-values(((s_563)(car s_562)))" +"(let-values(((s_564)" +"(if(syntax?$1 s_563)(syntax-e$1 s_563) s_563)))" +"(eq? '#:local s_564)))" +"(let-values(((s_565)(cdr s_562)))" "(let-values(((s_566)" "(if(syntax?$1 s_565)(syntax-e$1 s_565) s_565)))" -"(eq? '#:local s_566)))" -"(let-values(((s_567)(cdr s_564)))" -"(let-values(((s_568)" -"(if(syntax?$1 s_567)(syntax-e$1 s_567) s_567)))" -"(null? s_568)))" +"(null? s_566)))" " #f)" " #f)))" " #f)" @@ -66856,44 +66870,44 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax246_1 datum247_1)" -"(let-values(((s_269)(if(syntax?$1 s_557)(syntax-e$1 s_557) s_557)))" +"(let-values(((s_267)(if(syntax?$1 s_555)(syntax-e$1 s_555) s_555)))" "(let-values(((quote-syntax248_0)" -"(let-values(((s_569)(car s_269))) s_569))" +"(let-values(((s_567)(car s_267))) s_567))" "((datum249_0)" -"(let-values(((s_570)(cdr s_269)))" -"(let-values(((s_270)" +"(let-values(((s_568)(cdr s_267)))" +"(let-values(((s_268)" +"(if(syntax?$1 s_568)" +"(syntax-e$1 s_568)" +" s_568)))" +"(let-values(((datum250_0)" +"(let-values(((s_569)(car s_268))) s_569))" +"(()" +"(let-values(((s_570)(cdr s_268)))" +"(let-values(((s_269)" "(if(syntax?$1 s_570)" "(syntax-e$1 s_570)" " s_570)))" -"(let-values(((datum250_0)" -"(let-values(((s_571)(car s_270))) s_571))" -"(()" -"(let-values(((s_572)(cdr s_270)))" -"(let-values(((s_271)" -"(if(syntax?$1 s_572)" -"(syntax-e$1 s_572)" -" s_572)))" "(let-values((()" -"(let-values(((s_272)" +"(let-values(((s_270)" "(car" -" s_271)))" -"(let-values(((s_273)" +" s_269)))" +"(let-values(((s_271)" "(if(syntax?$1" -" s_272)" +" s_270)" "(syntax-e$1" -" s_272)" -" s_272)))" +" s_270)" +" s_270)))" "(values))))" "(()" -"(let-values(((s_573)" +"(let-values(((s_571)" "(cdr" -" s_271)))" -"(let-values(((s_574)" +" s_269)))" +"(let-values(((s_572)" "(if(syntax?$1" -" s_573)" +" s_571)" "(syntax-e$1" -" s_573)" -" s_573)))" +" s_571)" +" s_571)))" "(values)))))" "(values))))))" "(values datum250_0))))))" @@ -66901,31 +66915,31 @@ static const char *startup_source = "(values #t quote-syntax246_1 datum247_1)))" "(values #f #f #f)))))" "(let-values(((ok?_44 quote-syntax251_0 datum252_0)" -"(let-values(((s_274) disarmed-s_12))" +"(let-values(((s_272) disarmed-s_12))" "(if(if(not ok?_43) #t #f)" -"(let-values(((orig-s_51) s_274))" +"(let-values(((orig-s_51) s_272))" "(let-values(((quote-syntax251_1 datum252_1)" -"(let-values(((s_575)(if(syntax?$1 s_274)(syntax-e$1 s_274) s_274)))" -"(if(pair? s_575)" +"(let-values(((s_573)(if(syntax?$1 s_272)(syntax-e$1 s_272) s_272)))" +"(if(pair? s_573)" "(let-values(((quote-syntax253_0)" -"(let-values(((s_576)(car s_575))) s_576))" +"(let-values(((s_574)(car s_573))) s_574))" "((datum254_0)" -"(let-values(((s_577)(cdr s_575)))" -"(let-values(((s_578)" -"(if(syntax?$1 s_577)" -"(syntax-e$1 s_577)" -" s_577)))" -"(if(pair? s_578)" +"(let-values(((s_575)(cdr s_573)))" +"(let-values(((s_576)" +"(if(syntax?$1 s_575)" +"(syntax-e$1 s_575)" +" s_575)))" +"(if(pair? s_576)" "(let-values(((datum255_0)" -"(let-values(((s_579)(car s_578)))" -" s_579))" +"(let-values(((s_577)(car s_576)))" +" s_577))" "(()" -"(let-values(((s_580)(cdr s_578)))" -"(let-values(((s_581)" -"(if(syntax?$1 s_580)" -"(syntax-e$1 s_580)" -" s_580)))" -"(if(null? s_581)" +"(let-values(((s_578)(cdr s_576)))" +"(let-values(((s_579)" +"(if(syntax?$1 s_578)" +"(syntax-e$1 s_578)" +" s_578)))" +"(if(null? s_579)" "(values)" "(raise-syntax-error$1" " #f" @@ -66947,52 +66961,52 @@ static const char *startup_source = "(reference-records-all-used!(expand-context-reference-records ctx_89))" "(values))))" "(let-values(((ok?_45 _256_0 _257_0 kw258_0)" -"(let-values(((s_582) disarmed-s_12))" -"(let-values(((orig-s_52) s_582))" +"(let-values(((s_580) disarmed-s_12))" +"(let-values(((orig-s_52) s_580))" "(let-values(((_256_1 _257_1 kw258_1)" -"(let-values(((s_583)" -"(if(syntax?$1 s_582)(syntax-e$1 s_582) s_582)))" -"(if(pair? s_583)" +"(let-values(((s_581)" +"(if(syntax?$1 s_580)(syntax-e$1 s_580) s_580)))" +"(if(pair? s_581)" "(let-values(((_259_0)" -"(let-values(((s_584)(car s_583))) s_584))" +"(let-values(((s_582)(car s_581))) s_582))" "((_260_0 kw261_0)" -"(let-values(((s_585)(cdr s_583)))" -"(let-values(((s_282)" -"(if(syntax?$1 s_585)" -"(syntax-e$1 s_585)" -" s_585)))" -"(if(pair? s_282)" +"(let-values(((s_583)(cdr s_581)))" +"(let-values(((s_280)" +"(if(syntax?$1 s_583)" +"(syntax-e$1 s_583)" +" s_583)))" +"(if(pair? s_280)" "(let-values(((_262_0)" -"(let-values(((s_586)" -"(car s_282)))" -" s_586))" +"(let-values(((s_584)" +"(car s_280)))" +" s_584))" "((kw263_0)" +"(let-values(((s_281)" +"(cdr s_280)))" +"(let-values(((s_585)" +"(if(syntax?$1" +" s_281)" +"(syntax-e$1" +" s_281)" +" s_281)))" +"(if(pair? s_585)" +"(let-values(((kw264_0)" +"(let-values(((s_282)" +"(car" +" s_585)))" +" s_282))" +"(()" "(let-values(((s_283)" -"(cdr s_282)))" -"(let-values(((s_587)" +"(cdr" +" s_585)))" +"(let-values(((s_284)" "(if(syntax?$1" " s_283)" "(syntax-e$1" " s_283)" " s_283)))" -"(if(pair? s_587)" -"(let-values(((kw264_0)" -"(let-values(((s_284)" -"(car" -" s_587)))" -" s_284))" -"(()" -"(let-values(((s_285)" -"(cdr" -" s_587)))" -"(let-values(((s_286)" -"(if(syntax?$1" -" s_285)" -"(syntax-e$1" -" s_285)" -" s_285)))" "(if(null?" -" s_286)" +" s_284)" "(values)" "(raise-syntax-error$1" " #f" @@ -67012,42 +67026,42 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))" "(values #t _256_1 _257_1 kw258_1))))))" "(if(expand-context-to-parsed? ctx_89)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_556) datum247_0)" -"(let-values(((s265_0) s_556)((temp266_1)(list quote-syntax246_0 datum247_0 kw258_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_554) datum247_0)" +"(let-values(((s265_0) s_554)((temp266_1)(list quote-syntax246_0 datum247_0 kw258_0)))" "(rebuild5.1 #f #f s265_0 temp266_1))))))" "(let-values()" "(let-values(((datum-s_0)(remove-scopes datum252_0(expand-context-scopes ctx_89))))" "(if(if(expand-context-to-parsed? ctx_89)(free-id-set-empty?(expand-context-stops ctx_89)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_556) datum-s_0)" -"(let-values(((s267_0) s_556)((temp268_0)(list quote-syntax251_0 datum-s_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_554) datum-s_0)" +"(let-values(((s267_0) s_554)((temp268_0)(list quote-syntax251_0 datum-s_0)))" "(rebuild5.1 #f #f s267_0 temp268_0)))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_588 ctx_90)" +"(lambda(s_586 ctx_90)" "(let-values((()" "(begin" "(let-values(((obs_105)(expand-context-observer ctx_90)))" "(if obs_105(let-values()(let-values()(call-expand-observe obs_105 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_588)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_586)))" "(let-values(((ok?_46 _269_0 _270_0 _271_0)" -"(let-values(((s_294) disarmed-s_13))" -"(if(let-values(((s_295)(if(syntax?$1 s_294)(syntax-e$1 s_294) s_294)))" -"(if(pair? s_295)" -"(if(let-values(((s_296)(car s_295))) #t)" -"(let-values(((s_589)(cdr s_295)))" -"(let-values(((s_590)(if(syntax?$1 s_589)(syntax-e$1 s_589) s_589)))" -"(if(pair? s_590)" -"(if(let-values(((s_297)(car s_590))) #t)" -"(let-values(((s_298)(cdr s_590)))" -"(let-values(((s_299)(if(syntax?$1 s_298)(syntax-e$1 s_298) s_298)))" -"(if(pair? s_299)" -"(if(let-values(((s_591)(car s_299))) #t)" -"(let-values(((s_592)(cdr s_299)))" -"(let-values(((s_593)" -"(if(syntax?$1 s_592)(syntax-e$1 s_592) s_592)))" -"(null? s_593)))" +"(let-values(((s_292) disarmed-s_13))" +"(if(let-values(((s_293)(if(syntax?$1 s_292)(syntax-e$1 s_292) s_292)))" +"(if(pair? s_293)" +"(if(let-values(((s_294)(car s_293))) #t)" +"(let-values(((s_587)(cdr s_293)))" +"(let-values(((s_588)(if(syntax?$1 s_587)(syntax-e$1 s_587) s_587)))" +"(if(pair? s_588)" +"(if(let-values(((s_295)(car s_588))) #t)" +"(let-values(((s_296)(cdr s_588)))" +"(let-values(((s_297)(if(syntax?$1 s_296)(syntax-e$1 s_296) s_296)))" +"(if(pair? s_297)" +"(if(let-values(((s_589)(car s_297))) #t)" +"(let-values(((s_590)(cdr s_297)))" +"(let-values(((s_591)" +"(if(syntax?$1 s_590)(syntax-e$1 s_590) s_590)))" +"(null? s_591)))" " #f)" " #f)))" " #f)" @@ -67056,37 +67070,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_269_1 _270_1 _271_1)" -"(let-values(((s_594)(if(syntax?$1 s_294)(syntax-e$1 s_294) s_294)))" -"(let-values(((_272_0)(let-values(((s_595)(car s_594))) s_595))" +"(let-values(((s_592)(if(syntax?$1 s_292)(syntax-e$1 s_292) s_292)))" +"(let-values(((_272_0)(let-values(((s_593)(car s_592))) s_593))" "((_273_0 _274_0)" -"(let-values(((s_596)(cdr s_594)))" -"(let-values(((s_597)" -"(if(syntax?$1 s_596)" -"(syntax-e$1 s_596)" -" s_596)))" +"(let-values(((s_594)(cdr s_592)))" +"(let-values(((s_595)" +"(if(syntax?$1 s_594)" +"(syntax-e$1 s_594)" +" s_594)))" "(let-values(((_275_0)" -"(let-values(((s_598)(car s_597))) s_598))" +"(let-values(((s_596)(car s_595))) s_596))" "((_276_0)" -"(let-values(((s_599)(cdr s_597)))" -"(let-values(((s_600)" -"(if(syntax?$1 s_599)" -"(syntax-e$1 s_599)" -" s_599)))" +"(let-values(((s_597)(cdr s_595)))" +"(let-values(((s_598)" +"(if(syntax?$1 s_597)" +"(syntax-e$1 s_597)" +" s_597)))" "(let-values(((_277_0)" -"(let-values(((s_601)" +"(let-values(((s_599)" "(car" -" s_600)))" -" s_601))" +" s_598)))" +" s_599))" "(()" -"(let-values(((s_602)" +"(let-values(((s_600)" "(cdr" -" s_600)))" -"(let-values(((s_603)" +" s_598)))" +"(let-values(((s_601)" "(if(syntax?$1" -" s_602)" +" s_600)" "(syntax-e$1" -" s_602)" -" s_602)))" +" s_600)" +" s_600)))" "(values)))))" "(values _277_0))))))" "(values _275_0 _276_0))))))" @@ -67096,67 +67110,67 @@ static const char *startup_source = "(let-values((()" "(begin" "(if ok?_46" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_588))" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_586))" "(void))" "(values))))" "(let-values(((ok?_47 if278_0 tst279_0 thn280_0 els281_0)" -"(let-values(((s_604) disarmed-s_13))" -"(let-values(((orig-s_53) s_604))" +"(let-values(((s_602) disarmed-s_13))" +"(let-values(((orig-s_53) s_602))" "(let-values(((if278_1 tst279_1 thn280_1 els281_1)" -"(let-values(((s_605)(if(syntax?$1 s_604)(syntax-e$1 s_604) s_604)))" -"(if(pair? s_605)" -"(let-values(((if282_0)(let-values(((s_606)(car s_605))) s_606))" +"(let-values(((s_603)(if(syntax?$1 s_602)(syntax-e$1 s_602) s_602)))" +"(if(pair? s_603)" +"(let-values(((if282_0)(let-values(((s_604)(car s_603))) s_604))" "((tst283_0 thn284_0 els285_0)" -"(let-values(((s_607)(cdr s_605)))" -"(let-values(((s_608)" -"(if(syntax?$1 s_607)" -"(syntax-e$1 s_607)" -" s_607)))" -"(if(pair? s_608)" +"(let-values(((s_605)(cdr s_603)))" +"(let-values(((s_606)" +"(if(syntax?$1 s_605)" +"(syntax-e$1 s_605)" +" s_605)))" +"(if(pair? s_606)" "(let-values(((tst286_0)" -"(let-values(((s_609)(car s_608)))" -" s_609))" +"(let-values(((s_607)(car s_606)))" +" s_607))" "((thn287_0 els288_0)" -"(let-values(((s_610)(cdr s_608)))" -"(let-values(((s_611)" -"(if(syntax?$1 s_610)" -"(syntax-e$1 s_610)" -" s_610)))" -"(if(pair? s_611)" +"(let-values(((s_608)(cdr s_606)))" +"(let-values(((s_609)" +"(if(syntax?$1 s_608)" +"(syntax-e$1 s_608)" +" s_608)))" +"(if(pair? s_609)" "(let-values(((thn289_0)" -"(let-values(((s_612)" +"(let-values(((s_610)" "(car" -" s_611)))" -" s_612))" +" s_609)))" +" s_610))" "((els290_0)" -"(let-values(((s_613)" +"(let-values(((s_611)" "(cdr" +" s_609)))" +"(let-values(((s_612)" +"(if(syntax?$1" +" s_611)" +"(syntax-e$1" +" s_611)" " s_611)))" -"(let-values(((s_614)" -"(if(syntax?$1" -" s_613)" -"(syntax-e$1" -" s_613)" -" s_613)))" "(if(pair?" -" s_614)" +" s_612)" "(let-values(((els291_0)" -"(let-values(((s_615)" +"(let-values(((s_613)" "(car" -" s_614)))" -" s_615))" +" s_612)))" +" s_613))" "(()" -"(let-values(((s_616)" +"(let-values(((s_614)" "(cdr" -" s_614)))" -"(let-values(((s_617)" +" s_612)))" +"(let-values(((s_615)" "(if(syntax?$1" -" s_616)" +" s_614)" "(syntax-e$1" -" s_616)" -" s_616)))" +" s_614)" +" s_614)))" "(if(null?" -" s_617)" +" s_615)" "(values)" "(raise-syntax-error$1" " #f" @@ -67186,7 +67200,7 @@ static const char *startup_source = "(let-values(((expr-ctx292_0) expr-ctx_2)((ctx293_0) ctx_90))" "(as-tail-context23.1 ctx293_0 expr-ctx292_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx294_0) ctx_90)((s295_0) s_588))" +"(let-values(((ctx294_0) ctx_90)((s295_0) s_586))" "(keep-as-needed85.1 #f #f #f #f #f #f ctx294_0 s295_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp296_0) tst279_0)((expr-ctx297_0) expr-ctx_2))" @@ -67219,7 +67233,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_618 ctx_91)" +"(lambda(s_616 ctx_91)" "(let-values((()" "(begin" "(let-values(((obs_108)(expand-context-observer ctx_91)))" @@ -67227,65 +67241,65 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_108 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_618)))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_616)))" "(let-values(((ok?_48 with-continuation-mark304_0 key305_0 val306_0 body307_0)" -"(let-values(((s_619) disarmed-s_14))" -"(let-values(((orig-s_54) s_619))" +"(let-values(((s_617) disarmed-s_14))" +"(let-values(((orig-s_54) s_617))" "(let-values(((with-continuation-mark304_1 key305_1 val306_1 body307_1)" -"(let-values(((s_620)(if(syntax?$1 s_619)(syntax-e$1 s_619) s_619)))" -"(if(pair? s_620)" +"(let-values(((s_618)(if(syntax?$1 s_617)(syntax-e$1 s_617) s_617)))" +"(if(pair? s_618)" "(let-values(((with-continuation-mark308_0)" -"(let-values(((s_621)(car s_620))) s_621))" +"(let-values(((s_619)(car s_618))) s_619))" "((key309_0 val310_0 body311_0)" -"(let-values(((s_622)(cdr s_620)))" -"(let-values(((s_623)" -"(if(syntax?$1 s_622)" -"(syntax-e$1 s_622)" -" s_622)))" -"(if(pair? s_623)" +"(let-values(((s_620)(cdr s_618)))" +"(let-values(((s_621)" +"(if(syntax?$1 s_620)" +"(syntax-e$1 s_620)" +" s_620)))" +"(if(pair? s_621)" "(let-values(((key312_0)" -"(let-values(((s_624)(car s_623)))" -" s_624))" +"(let-values(((s_622)(car s_621)))" +" s_622))" "((val313_0 body314_0)" -"(let-values(((s_625)(cdr s_623)))" -"(let-values(((s_626)" -"(if(syntax?$1 s_625)" -"(syntax-e$1 s_625)" -" s_625)))" -"(if(pair? s_626)" +"(let-values(((s_623)(cdr s_621)))" +"(let-values(((s_624)" +"(if(syntax?$1 s_623)" +"(syntax-e$1 s_623)" +" s_623)))" +"(if(pair? s_624)" "(let-values(((val315_0)" -"(let-values(((s_627)" +"(let-values(((s_625)" "(car" -" s_626)))" -" s_627))" +" s_624)))" +" s_625))" "((body316_0)" -"(let-values(((s_628)" +"(let-values(((s_626)" "(cdr" +" s_624)))" +"(let-values(((s_627)" +"(if(syntax?$1" +" s_626)" +"(syntax-e$1" +" s_626)" " s_626)))" -"(let-values(((s_629)" -"(if(syntax?$1" -" s_628)" -"(syntax-e$1" -" s_628)" -" s_628)))" -"(if(pair? s_629)" +"(if(pair? s_627)" "(let-values(((body317_0)" -"(let-values(((s_630)" +"(let-values(((s_628)" "(car" -" s_629)))" -" s_630))" +" s_627)))" +" s_628))" "(()" -"(let-values(((s_631)" +"(let-values(((s_629)" "(cdr" -" s_629)))" -"(let-values(((s_632)" +" s_627)))" +"(let-values(((s_630)" "(if(syntax?$1" -" s_631)" +" s_629)" "(syntax-e$1" -" s_631)" -" s_631)))" +" s_629)" +" s_629)))" "(if(null?" -" s_632)" +" s_630)" "(values)" "(raise-syntax-error$1" " #f" @@ -67309,7 +67323,7 @@ static const char *startup_source = "(values #t with-continuation-mark304_1 key305_1 val306_1 body307_1))))))" "(let-values(((expr-ctx_3)(as-expression-context ctx_91)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx318_0) ctx_91)((s319_0) s_618))" +"(let-values(((ctx318_0) ctx_91)((s319_0) s_616))" "(keep-as-needed85.1 #f #f #f #f #f #f ctx318_0 s319_0))))" "(let-values(((exp-key_0)" "(let-values(((temp320_0) key305_0)((expr-ctx321_0) expr-ctx_3))" @@ -67352,7 +67366,7 @@ static const char *startup_source = "(let-values(((list-start-index_0) list-start-index14_0))" "(let-values(((last-is-tail?_0) last-is-tail?15_0))" "(let-values()" -"(lambda(s_633 ctx_92)" +"(lambda(s_631 ctx_92)" "(let-values((()" "(begin" "(let-values(((obs_111)(expand-context-observer ctx_92)))" @@ -67360,24 +67374,24 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_111 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_633)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_631)))" "(let-values(((ok?_49 begin330_0 e331_0)" -"(let-values(((s_634) disarmed-s_15))" -"(let-values(((orig-s_55) s_634))" +"(let-values(((s_632) disarmed-s_15))" +"(let-values(((orig-s_55) s_632))" "(let-values(((begin330_1 e331_1)" -"(let-values(((s_635)" -"(if(syntax?$1 s_634)(syntax-e$1 s_634) s_634)))" -"(if(pair? s_635)" +"(let-values(((s_633)" +"(if(syntax?$1 s_632)(syntax-e$1 s_632) s_632)))" +"(if(pair? s_633)" "(let-values(((begin332_0)" -"(let-values(((s_636)(car s_635))) s_636))" +"(let-values(((s_634)(car s_633))) s_634))" "((e333_0)" -"(let-values(((s_637)(cdr s_635)))" -"(let-values(((s_638)" -"(if(syntax?$1 s_637)" -"(syntax-e$1 s_637)" -" s_637)))" +"(let-values(((s_635)(cdr s_633)))" +"(let-values(((s_636)" +"(if(syntax?$1 s_635)" +"(syntax-e$1 s_635)" +" s_635)))" "(let-values(((flat-s_41)" -"(to-syntax-list.1 s_638)))" +"(to-syntax-list.1 s_636)))" "(if(not flat-s_41)" "(let-values()" "(raise-syntax-error$1" @@ -67399,7 +67413,7 @@ static const char *startup_source = "(as-begin-expression-context ctx_92)" "(as-expression-context ctx_92))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx334_0) ctx_92)((s335_0) s_633))" +"(let-values(((ctx334_0) ctx_92)((s335_0) s_631))" "(keep-as-needed85.1 #f #f #f #f #f #f ctx334_0 s335_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_123)" @@ -67485,39 +67499,39 @@ static const char *startup_source = "((temp344_0) 0)" "((temp345_0) #t))" "(make-begin20.1 temp345_0 temp344_0 temp342_0 parsed-begin343_0))))" -"(lambda(s_639 ctx_93)" +"(lambda(s_637 ctx_93)" "(let-values(((context_24)(expand-context-context ctx_93)))" "(if(let-values(((or-part_386)(eq? context_24 'top-level)))" "(if or-part_386 or-part_386(eq? context_24 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_639)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_637)))" "(let-values(((ok?_50 begin346_0)" -"(let-values(((s_640) disarmed-s_16))" -"(if(let-values(((s_641)(if(syntax?$1 s_640)(syntax-e$1 s_640) s_640)))" -"(if(pair? s_641)" -"(if(let-values(((s_642)(car s_641))) #t)" -"(let-values(((s_643)(cdr s_641)))" -"(let-values(((s_644)(if(syntax?$1 s_643)(syntax-e$1 s_643) s_643)))" -"(null? s_644)))" +"(let-values(((s_638) disarmed-s_16))" +"(if(let-values(((s_639)(if(syntax?$1 s_638)(syntax-e$1 s_638) s_638)))" +"(if(pair? s_639)" +"(if(let-values(((s_640)(car s_639))) #t)" +"(let-values(((s_641)(cdr s_639)))" +"(let-values(((s_642)(if(syntax?$1 s_641)(syntax-e$1 s_641) s_641)))" +"(null? s_642)))" " #f)" " #f))" "(let-values()" "(let-values(((begin346_1)" -"(let-values(((s_645)(if(syntax?$1 s_640)(syntax-e$1 s_640) s_640)))" +"(let-values(((s_643)(if(syntax?$1 s_638)(syntax-e$1 s_638) s_638)))" "(let-values(((begin347_0)" -"(let-values(((s_646)(car s_645))) s_646))" +"(let-values(((s_644)(car s_643))) s_644))" "(()" -"(let-values(((s_647)(cdr s_645)))" -"(let-values(((s_648)" -"(if(syntax?$1 s_647)" -"(syntax-e$1 s_647)" -" s_647)))" +"(let-values(((s_645)(cdr s_643)))" +"(let-values(((s_646)" +"(if(syntax?$1 s_645)" +"(syntax-e$1 s_645)" +" s_645)))" "(values)))))" "(values begin347_0)))))" "(values #t begin346_1)))" "(values #f #f)))))" -"(if ok?_50 s_639(nonempty-begin_0 s_639 ctx_93)))))" -"(let-values()(nonempty-begin_0 s_639 ctx_93))))))))" +"(if ok?_50 s_637(nonempty-begin_0 s_637 ctx_93)))))" +"(let-values()(nonempty-begin_0 s_637 ctx_93))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -67544,7 +67558,7 @@ static const char *startup_source = "(lambda(s354_0 ctx355_0 implicit-omitted?352_0 implicit-omitted?353_0)" "(begin" " 'core356" -"(let-values(((s_649) s354_0))" +"(let-values(((s_647) s354_0))" "(let-values(((ctx_95) ctx355_0))" "(let-values(((implicit-omitted?_0)(if implicit-omitted?353_0 implicit-omitted?352_0 #f)))" "(let-values()" @@ -67556,46 +67570,46 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_115 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_649)))" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_647)))" "(let-values(((id_128)" "(if implicit-omitted?_0" -"(let-values() s_649)" +"(let-values() s_647)" "(let-values()" "(let-values(((ok?_51 #%top358_0 id359_0)" -"(let-values(((s_650) disarmed-s_17))" -"(let-values(((orig-s_56) s_650))" +"(let-values(((s_648) disarmed-s_17))" +"(let-values(((orig-s_56) s_648))" "(let-values(((#%top358_1 id359_1)" -"(let-values(((s_651)" -"(if(syntax?$1 s_650)" -"(syntax-e$1 s_650)" -" s_650)))" -"(if(pair? s_651)" +"(let-values(((s_649)" +"(if(syntax?$1 s_648)" +"(syntax-e$1 s_648)" +" s_648)))" +"(if(pair? s_649)" "(let-values(((#%top360_0)" -"(let-values(((s_652)" +"(let-values(((s_650)" "(car" -" s_651)))" -" s_652))" +" s_649)))" +" s_650))" "((id361_0)" -"(let-values(((s_653)" +"(let-values(((s_651)" "(cdr" -" s_651)))" +" s_649)))" "(if(let-values(((or-part_387)" "(if(syntax?$1" -" s_653)" +" s_651)" "(symbol?" "(syntax-e$1" -" s_653))" +" s_651))" " #f)))" "(if or-part_387" " or-part_387" "(symbol?" -" s_653)))" -" s_653" +" s_651)))" +" s_651" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_56" -" s_653)))))" +" s_651)))))" "(values #%top360_0 id361_0))" "(raise-syntax-error$1" " #f" @@ -67631,7 +67645,7 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_95)" "(parsed-id2.1 id_128 b_89 #f)" "(if(top-level-module-path-index?(module-binding-module b_89))" -"(let-values() s_649)" +"(let-values() s_647)" "(let-values() id_128))))" "(if(register-eventual-variable!? id_128 ctx_95)" "(let-values()" @@ -67676,42 +67690,42 @@ static const char *startup_source = "(let-values() id_128)" "(let-values()" "(let-values(((ok?_52 #%top367_0 id368_0)" -"(let-values(((s_654) disarmed-s_17))" -"(let-values(((orig-s_57) s_654))" +"(let-values(((s_652) disarmed-s_17))" +"(let-values(((orig-s_57) s_652))" "(let-values(((#%top367_1 id368_1)" -"(let-values(((s_655)" +"(let-values(((s_653)" "(if(syntax?$1" -" s_654)" +" s_652)" "(syntax-e$1" -" s_654)" -" s_654)))" -"(if(pair? s_655)" +" s_652)" +" s_652)))" +"(if(pair? s_653)" "(let-values(((#%top369_0)" -"(let-values(((s_656)" +"(let-values(((s_654)" "(car" -" s_655)))" -" s_656))" +" s_653)))" +" s_654))" "((id370_0)" -"(let-values(((s_657)" +"(let-values(((s_655)" "(cdr" -" s_655)))" +" s_653)))" "(if(let-values(((or-part_388)" "(if(syntax?$1" -" s_657)" +" s_655)" "(symbol?" "(syntax-e$1" -" s_657))" +" s_655))" " #f)))" "(if or-part_388" " or-part_388" "(symbol?" -" s_657)))" -" s_657" +" s_655)))" +" s_655" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_57" -" s_657)))))" +" s_655)))))" "(values" " #%top369_0" " id370_0))" @@ -67720,80 +67734,80 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_57)))))" "(values #t #%top367_1 id368_1))))))" -"(let-values(((s371_0) s_649)" +"(let-values(((s371_0) s_647)" "((temp372_0)(cons #%top367_0 id_128)))" "(rebuild5.1 #f #f s371_0 temp372_0)))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_95)" "(parsed-top-id4.1 id_128 b_89 #f)" -" s_649)))))))))))))))))))))))" +" s_647)))))))))))))))))))))))" "(case-lambda" -"((s_658 ctx_96)(core356_0 s_658 ctx_96 #f #f))" -"((s_659 ctx_97 implicit-omitted?352_1)(core356_0 s_659 ctx_97 implicit-omitted?352_1 #t))))))" +"((s_656 ctx_96)(core356_0 s_656 ctx_96 #f #f))" +"((s_657 ctx_97 implicit-omitted?352_1)(core356_0 s_657 ctx_97 implicit-omitted?352_1 #t))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_660 ctx_98)" +"(lambda(s_658 ctx_98)" "(let-values((()" "(begin" "(let-values(((obs_116)(expand-context-observer ctx_98)))" "(if obs_116(let-values()(let-values()(call-expand-observe obs_116 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_660)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_658)))" "(let-values(((ok?_53 set!373_0 id374_0 rhs375_0)" -"(let-values(((s_661) disarmed-s_18))" -"(let-values(((orig-s_58) s_661))" +"(let-values(((s_659) disarmed-s_18))" +"(let-values(((orig-s_58) s_659))" "(let-values(((set!373_1 id374_1 rhs375_1)" -"(let-values(((s_662)(if(syntax?$1 s_661)(syntax-e$1 s_661) s_661)))" -"(if(pair? s_662)" -"(let-values(((set!376_0)(let-values(((s_663)(car s_662))) s_663))" +"(let-values(((s_660)(if(syntax?$1 s_659)(syntax-e$1 s_659) s_659)))" +"(if(pair? s_660)" +"(let-values(((set!376_0)(let-values(((s_661)(car s_660))) s_661))" "((id377_0 rhs378_0)" -"(let-values(((s_664)(cdr s_662)))" -"(let-values(((s_665)" -"(if(syntax?$1 s_664)" -"(syntax-e$1 s_664)" -" s_664)))" -"(if(pair? s_665)" +"(let-values(((s_662)(cdr s_660)))" +"(let-values(((s_663)" +"(if(syntax?$1 s_662)" +"(syntax-e$1 s_662)" +" s_662)))" +"(if(pair? s_663)" "(let-values(((id379_0)" -"(let-values(((s_666)(car s_665)))" +"(let-values(((s_664)(car s_663)))" "(if(let-values(((or-part_389)" -"(if(syntax?$1 s_666)" +"(if(syntax?$1 s_664)" "(symbol?" "(syntax-e$1" -" s_666))" +" s_664))" " #f)))" "(if or-part_389" " or-part_389" -"(symbol? s_666)))" -" s_666" +"(symbol? s_664)))" +" s_664" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_58" -" s_666))))" +" s_664))))" "((rhs380_0)" -"(let-values(((s_667)(cdr s_665)))" -"(let-values(((s_668)" -"(if(syntax?$1 s_667)" -"(syntax-e$1 s_667)" -" s_667)))" -"(if(pair? s_668)" +"(let-values(((s_665)(cdr s_663)))" +"(let-values(((s_666)" +"(if(syntax?$1 s_665)" +"(syntax-e$1 s_665)" +" s_665)))" +"(if(pair? s_666)" "(let-values(((rhs381_0)" -"(let-values(((s_669)" +"(let-values(((s_667)" "(car" -" s_668)))" -" s_669))" +" s_666)))" +" s_667))" "(()" -"(let-values(((s_670)" +"(let-values(((s_668)" "(cdr" -" s_668)))" -"(let-values(((s_671)" +" s_666)))" +"(let-values(((s_669)" "(if(syntax?$1" -" s_670)" +" s_668)" "(syntax-e$1" -" s_670)" -" s_670)))" -"(if(null? s_671)" +" s_668)" +" s_668)))" +"(if(null? s_669)" "(values)" "(raise-syntax-error$1" " #f" @@ -67842,7 +67856,7 @@ static const char *startup_source = "(if binding_30" "(let-values(((binding386_0) binding_30)" "((ctx387_0) ctx_98)" -"((s388_0) s_660))" +"((s388_0) s_658))" "(lookup28.1 #f #f #f #f binding386_0 ctx387_0 s388_0))" "(values #f #f #f #f))))" "(begin" @@ -67874,7 +67888,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_660" +" s_658" " id_129))" "(void))" "(values))))" @@ -67893,7 +67907,7 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_30)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx389_0) ctx_98)((s390_0) s_660))" +"(let-values(((ctx389_0) ctx_98)((s390_0) s_658))" "(keep-as-needed85.1" " #f" " #f" @@ -67934,7 +67948,7 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_660" +" s_658" " id_129" " null" "(syntax-debug-info-string id_129 ctx_98)))" @@ -67945,7 +67959,7 @@ static const char *startup_source = "(let-values(((temp398_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_660" +" s_658" " disarmed-s_18" " set!373_0" " rhs375_0" @@ -67960,7 +67974,7 @@ static const char *startup_source = "(let-values(((exp-s_14 re-ctx_1)" "(let-values(((t400_0) t_58)" "((insp401_0) insp_24)" -"((s402_0) s_660)" +"((s402_0) s_658)" "((orig-id403_0) orig-id_1)" "((ctx404_0) ctx_98)" "((binding405_0) binding_30)" @@ -67987,7 +68001,7 @@ static const char *startup_source = "(let-values(((temp409_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_660" +" s_658" " disarmed-s_18" " set!373_0" " rhs375_0" @@ -68010,7 +68024,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_660" +" s_658" " id_129))))))))))))))" " rename-loop_0)" " orig-id_1" @@ -68021,7 +68035,7 @@ static const char *startup_source = "(lambda(s25_0 disarmed-s26_0 set!-id27_0 id28_0 rhs-s29_0 from-rename?30_0 ctx31_0 t23_0 t24_0)" "(begin" " 'substitute-set!-rename32" -"(let-values(((s_672) s25_0))" +"(let-values(((s_670) s25_0))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" "(let-values(((id_130) id28_0))" @@ -68043,17 +68057,17 @@ static const char *startup_source = "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_672)))" -"(let-values() s_672)))))))))))))))" +" s_670)))" +"(let-values() s_670)))))))))))))))" "(case-lambda" -"((s_673 disarmed-s_20 set!-id_1 id_131 rhs-s_1 from-rename?_2 ctx_100)" -"(begin(substitute-set!-rename32_0 s_673 disarmed-s_20 set!-id_1 id_131 rhs-s_1 from-rename?_2 ctx_100 #f #f)))" -"((s_674 disarmed-s_21 set!-id_2 id_132 rhs-s_2 from-rename?_3 ctx_101 t23_1)" -"(substitute-set!-rename32_0 s_674 disarmed-s_21 set!-id_2 id_132 rhs-s_2 from-rename?_3 ctx_101 t23_1 #t)))))" +"((s_671 disarmed-s_20 set!-id_1 id_131 rhs-s_1 from-rename?_2 ctx_100)" +"(begin(substitute-set!-rename32_0 s_671 disarmed-s_20 set!-id_1 id_131 rhs-s_1 from-rename?_2 ctx_100 #f #f)))" +"((s_672 disarmed-s_21 set!-id_2 id_132 rhs-s_2 from-rename?_3 ctx_101 t23_1)" +"(substitute-set!-rename32_0 s_672 disarmed-s_21 set!-id_2 id_132 rhs-s_2 from-rename?_3 ctx_101 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_675 ctx_102)" +"(lambda(s_673 ctx_102)" "(let-values((()" "(begin" "(let-values(((obs_119)(expand-context-observer ctx_102)))" @@ -68061,75 +68075,75 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_119 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_675)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_673)))" "(let-values(((ok?_54 #%variable-reference411_0 id412_0)" -"(let-values(((s_676) disarmed-s_22))" -"(if(let-values(((s_677)(if(syntax?$1 s_676)(syntax-e$1 s_676) s_676)))" -"(if(pair? s_677)" -"(if(let-values(((s_678)(car s_677))) #t)" -"(let-values(((s_679)(cdr s_677)))" -"(let-values(((s_680)(if(syntax?$1 s_679)(syntax-e$1 s_679) s_679)))" -"(if(pair? s_680)" -"(if(let-values(((s_681)(car s_680)))" +"(let-values(((s_674) disarmed-s_22))" +"(if(let-values(((s_675)(if(syntax?$1 s_674)(syntax-e$1 s_674) s_674)))" +"(if(pair? s_675)" +"(if(let-values(((s_676)(car s_675))) #t)" +"(let-values(((s_677)(cdr s_675)))" +"(let-values(((s_678)(if(syntax?$1 s_677)(syntax-e$1 s_677) s_677)))" +"(if(pair? s_678)" +"(if(let-values(((s_679)(car s_678)))" "(let-values(((or-part_393)" -"(if(syntax?$1 s_681)(symbol?(syntax-e$1 s_681)) #f)))" -"(if or-part_393 or-part_393(symbol? s_681))))" -"(let-values(((s_682)(cdr s_680)))" -"(let-values(((s_683)(if(syntax?$1 s_682)(syntax-e$1 s_682) s_682)))" -"(null? s_683)))" +"(if(syntax?$1 s_679)(symbol?(syntax-e$1 s_679)) #f)))" +"(if or-part_393 or-part_393(symbol? s_679))))" +"(let-values(((s_680)(cdr s_678)))" +"(let-values(((s_681)(if(syntax?$1 s_680)(syntax-e$1 s_680) s_680)))" +"(null? s_681)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference411_1 id412_1)" -"(let-values(((s_684)(if(syntax?$1 s_676)(syntax-e$1 s_676) s_676)))" +"(let-values(((s_682)(if(syntax?$1 s_674)(syntax-e$1 s_674) s_674)))" "(let-values(((#%variable-reference413_0)" -"(let-values(((s_685)(car s_684))) s_685))" +"(let-values(((s_683)(car s_682))) s_683))" "((id414_0)" -"(let-values(((s_686)(cdr s_684)))" -"(let-values(((s_687)" -"(if(syntax?$1 s_686)" -"(syntax-e$1 s_686)" -" s_686)))" +"(let-values(((s_684)(cdr s_682)))" +"(let-values(((s_685)" +"(if(syntax?$1 s_684)" +"(syntax-e$1 s_684)" +" s_684)))" "(let-values(((id415_0)" -"(let-values(((s_688)(car s_687))) s_688))" +"(let-values(((s_686)(car s_685))) s_686))" "(()" -"(let-values(((s_689)(cdr s_687)))" -"(let-values(((s_690)" -"(if(syntax?$1 s_689)" -"(syntax-e$1 s_689)" -" s_689)))" +"(let-values(((s_687)(cdr s_685)))" +"(let-values(((s_688)" +"(if(syntax?$1 s_687)" +"(syntax-e$1 s_687)" +" s_687)))" "(values)))))" "(values id415_0))))))" "(values #%variable-reference413_0 id414_0)))))" "(values #t #%variable-reference411_1 id412_1)))" "(values #f #f #f)))))" "(let-values(((ok?_55 #%variable-reference416_0 #%top417_0 id418_0)" -"(let-values(((s_691) disarmed-s_22))" +"(let-values(((s_689) disarmed-s_22))" "(if(if(not ok?_54)" -"(let-values(((s_692)(if(syntax?$1 s_691)(syntax-e$1 s_691) s_691)))" -"(if(pair? s_692)" -"(if(let-values(((s_693)(car s_692))) #t)" -"(let-values(((s_694)(cdr s_692)))" -"(let-values(((s_695)(if(syntax?$1 s_694)(syntax-e$1 s_694) s_694)))" +"(let-values(((s_690)(if(syntax?$1 s_689)(syntax-e$1 s_689) s_689)))" +"(if(pair? s_690)" +"(if(let-values(((s_691)(car s_690))) #t)" +"(let-values(((s_692)(cdr s_690)))" +"(let-values(((s_693)(if(syntax?$1 s_692)(syntax-e$1 s_692) s_692)))" +"(if(pair? s_693)" +"(if(let-values(((s_694)(car s_693)))" +"(let-values(((s_695)" +"(if(syntax?$1 s_694)(syntax-e$1 s_694) s_694)))" "(if(pair? s_695)" -"(if(let-values(((s_696)(car s_695)))" -"(let-values(((s_697)" -"(if(syntax?$1 s_696)(syntax-e$1 s_696) s_696)))" -"(if(pair? s_697)" -"(if(let-values(((s_698)(car s_697))) #t)" -"(let-values(((s_699)(cdr s_697)))" +"(if(let-values(((s_696)(car s_695))) #t)" +"(let-values(((s_697)(cdr s_695)))" "(let-values(((or-part_394)" -"(if(syntax?$1 s_699)" -"(symbol?(syntax-e$1 s_699))" +"(if(syntax?$1 s_697)" +"(symbol?(syntax-e$1 s_697))" " #f)))" -"(if or-part_394 or-part_394(symbol? s_699))))" +"(if or-part_394 or-part_394(symbol? s_697))))" " #f)" " #f)))" -"(let-values(((s_700)(cdr s_695)))" -"(let-values(((s_701)(if(syntax?$1 s_700)(syntax-e$1 s_700) s_700)))" -"(null? s_701)))" +"(let-values(((s_698)(cdr s_693)))" +"(let-values(((s_699)(if(syntax?$1 s_698)(syntax-e$1 s_698) s_698)))" +"(null? s_699)))" " #f)" " #f)))" " #f)" @@ -68137,61 +68151,61 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference416_1 #%top417_1 id418_1)" -"(let-values(((s_702)(if(syntax?$1 s_691)(syntax-e$1 s_691) s_691)))" +"(let-values(((s_700)(if(syntax?$1 s_689)(syntax-e$1 s_689) s_689)))" "(let-values(((#%variable-reference419_0)" -"(let-values(((s_703)(car s_702))) s_703))" +"(let-values(((s_701)(car s_700))) s_701))" "((#%top420_0 id421_0)" -"(let-values(((s_704)(cdr s_702)))" +"(let-values(((s_702)(cdr s_700)))" +"(let-values(((s_703)" +"(if(syntax?$1 s_702)" +"(syntax-e$1 s_702)" +" s_702)))" +"(let-values(((#%top422_0 id423_0)" +"(let-values(((s_704)(car s_703)))" "(let-values(((s_705)" "(if(syntax?$1 s_704)" "(syntax-e$1 s_704)" " s_704)))" -"(let-values(((#%top422_0 id423_0)" -"(let-values(((s_706)(car s_705)))" -"(let-values(((s_707)" -"(if(syntax?$1 s_706)" -"(syntax-e$1 s_706)" -" s_706)))" "(let-values(((#%top424_0)" -"(let-values(((s_708)" +"(let-values(((s_706)" "(car" -" s_707)))" -" s_708))" +" s_705)))" +" s_706))" "((id425_0)" -"(let-values(((s_709)" +"(let-values(((s_707)" "(cdr" +" s_705)))" " s_707)))" -" s_709)))" "(values #%top424_0 id425_0)))))" "(()" -"(let-values(((s_710)(cdr s_705)))" -"(let-values(((s_711)" -"(if(syntax?$1 s_710)" -"(syntax-e$1 s_710)" -" s_710)))" +"(let-values(((s_708)(cdr s_703)))" +"(let-values(((s_709)" +"(if(syntax?$1 s_708)" +"(syntax-e$1 s_708)" +" s_708)))" "(values)))))" "(values #%top422_0 id423_0))))))" "(values #%variable-reference419_0 #%top420_0 id421_0)))))" "(values #t #%variable-reference416_1 #%top417_1 id418_1)))" "(values #f #f #f #f)))))" "(let-values(((ok?_56 #%variable-reference426_0)" -"(let-values(((s_712) disarmed-s_22))" +"(let-values(((s_710) disarmed-s_22))" "(if(if(not(let-values(((or-part_395) ok?_54))(if or-part_395 or-part_395 ok?_55)))" " #t" " #f)" -"(let-values(((orig-s_59) s_712))" +"(let-values(((orig-s_59) s_710))" "(let-values(((#%variable-reference426_1)" -"(let-values(((s_713)(if(syntax?$1 s_712)(syntax-e$1 s_712) s_712)))" -"(if(pair? s_713)" +"(let-values(((s_711)(if(syntax?$1 s_710)(syntax-e$1 s_710) s_710)))" +"(if(pair? s_711)" "(let-values(((#%variable-reference427_0)" -"(let-values(((s_714)(car s_713))) s_714))" +"(let-values(((s_712)(car s_711))) s_712))" "(()" -"(let-values(((s_715)(cdr s_713)))" -"(let-values(((s_716)" -"(if(syntax?$1 s_715)" -"(syntax-e$1 s_715)" -" s_715)))" -"(if(null? s_716)" +"(let-values(((s_713)(cdr s_711)))" +"(let-values(((s_714)" +"(if(syntax?$1 s_713)" +"(syntax-e$1 s_713)" +" s_713)))" +"(if(null? s_714)" "(values)" "(raise-syntax-error$1" " #f" @@ -68224,7 +68238,7 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_675" +" s_673" " var-id_0" " null" "(syntax-debug-info-string var-id_0 ctx_102))))" @@ -68234,30 +68248,30 @@ static const char *startup_source = "(let-values(((binding431_0) binding_31)" "((ctx432_0) ctx_102)" "((var-id433_0) var-id_0)" -"((s434_0) s_675)" +"((s434_0) s_673)" "((temp435_0)(expand-context-in-local-expand? ctx_102)))" "(lookup28.1 s434_0 #t temp435_0 #t binding431_0 ctx432_0 var-id433_0))" "(values #f #f #f #f))))" "(begin" "(if(if t_60(not(variable? t_60)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_675))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_673))" "(void))" "(if(expand-context-to-parsed? ctx_102)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_675)" +"(keep-properties-only~ s_673)" "(if ok?_55" "(let-values()(parsed-top-id4.1 var-id_0 binding_31 #f))" "(let-values()(parsed-id2.1 var-id_0 binding_31 #f))))" -" s_675))))))))" +" s_673))))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_102)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_675) #f)" -" s_675)))))))))))" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_673) #f)" +" s_673)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_717 ctx_103)" +"(lambda(s_715 ctx_103)" "(let-values((()" "(begin" "(let-values(((obs_120)(expand-context-observer ctx_103)))" @@ -68265,32 +68279,32 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_120 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_717)))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_715)))" "(let-values(((ok?_57 #%expression436_0 e437_0)" -"(let-values(((s_718) disarmed-s_23))" -"(let-values(((orig-s_60) s_718))" +"(let-values(((s_716) disarmed-s_23))" +"(let-values(((orig-s_60) s_716))" "(let-values(((#%expression436_1 e437_1)" -"(let-values(((s_719)(if(syntax?$1 s_718)(syntax-e$1 s_718) s_718)))" -"(if(pair? s_719)" +"(let-values(((s_717)(if(syntax?$1 s_716)(syntax-e$1 s_716) s_716)))" +"(if(pair? s_717)" "(let-values(((#%expression438_0)" -"(let-values(((s_720)(car s_719))) s_720))" +"(let-values(((s_718)(car s_717))) s_718))" "((e439_0)" -"(let-values(((s_721)(cdr s_719)))" -"(let-values(((s_722)" -"(if(syntax?$1 s_721)" -"(syntax-e$1 s_721)" -" s_721)))" -"(if(pair? s_722)" +"(let-values(((s_719)(cdr s_717)))" +"(let-values(((s_720)" +"(if(syntax?$1 s_719)" +"(syntax-e$1 s_719)" +" s_719)))" +"(if(pair? s_720)" "(let-values(((e440_0)" -"(let-values(((s_723)(car s_722)))" -" s_723))" +"(let-values(((s_721)(car s_720)))" +" s_721))" "(()" -"(let-values(((s_724)(cdr s_722)))" -"(let-values(((s_725)" -"(if(syntax?$1 s_724)" -"(syntax-e$1 s_724)" -" s_724)))" -"(if(null? s_725)" +"(let-values(((s_722)(cdr s_720)))" +"(let-values(((s_723)" +"(if(syntax?$1 s_722)" +"(syntax-e$1 s_722)" +" s_722)))" +"(if(null? s_723)" "(values)" "(raise-syntax-error$1" " #f" @@ -68302,7 +68316,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))" "(values #t #%expression436_1 e437_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((ctx441_0) ctx_103)((s442_0) s_717)((temp443_0) #t))" +"(let-values(((ctx441_0) ctx_103)((s442_0) s_715)((temp443_0) #t))" "(keep-as-needed85.1 temp443_0 #t #f #f #f #f ctx441_0 s442_0))))" "(let-values(((exp-e_0)" "(let-values(((temp444_0) e437_0)" @@ -68329,16 +68343,16 @@ static const char *startup_source = "(let-values()" "(let-values(((rebuild-s448_0) rebuild-s_13)((temp449_0)(list #%expression436_0 exp-e_0)))" "(rebuild5.1 #f #f rebuild-s448_0 temp449_0))))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_726 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_726))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_727 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_727))))" +" (void (add-core-form!* 'unquote (lambda (s_724 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_724))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_725 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_725))))" "(define-values" "(binding-for-transformer?)" -"(lambda(b_41 id_133 at-phase_12 ns_122)" +"(lambda(b_41 id_133 at-phase_12 ns_123)" "(begin" "(if(not at-phase_12)" "(let-values()" "(let-values(((m_30)" -"(namespace->module ns_122(1/module-path-index-resolve(module-binding-nominal-module b_41)))))" +"(namespace->module ns_123(1/module-path-index-resolve(module-binding-nominal-module b_41)))))" "(let-values(((b/p_4)" "(hash-ref" "(hash-ref(module-provides m_30)(module-binding-nominal-phase b_41) '#hasheq())" @@ -68350,10 +68364,10 @@ static const char *startup_source = "(let-values(((b1_8) b_41)" "((empty-env2_0) empty-env)" "((null3_0) null)" -"((ns4_0) ns_122)" +"((ns4_1) ns_123)" "((at-phase5_0) at-phase_12)" "((id6_0) id_133))" -"(binding-lookup50.1 #f #f #f #f b1_8 empty-env2_0 null3_0 ns4_0 at-phase5_0 id6_0))))" +"(binding-lookup50.1 #f #f #f #f b1_8 empty-env2_0 null3_0 ns4_1 at-phase5_0 id6_0))))" "(not(variable? val_14))))))))" "(define-values(layers) '(raw phaseless id))" "(define-values(provide-form-name) 'provide)" @@ -68361,19 +68375,19 @@ static const char *startup_source = "(parse-and-expand-provides!)" "(lambda(specs_0 orig-s_61 rp_1 self_30 phase_44 ctx_106)" "(begin" -"(let-values(((ns_124)(expand-context-namespace ctx_106)))" +"(let-values(((ns_125)(expand-context-namespace ctx_106)))" "((letrec-values(((loop_112)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" " 'loop" "(let-values(((track-stxess_0 exp-specss_0)" "(let-values(((track-stxes_0 exp-specs_0)" -"(let-values(((lst_78) specs_1))" +"(let-values(((lst_79) specs_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" +"(let-values()(check-list lst_79)))" "((letrec-values(((for-loop_96)" "(lambda(track-stxes_1" " exp-specs_1" @@ -68502,7 +68516,7 @@ static const char *startup_source = "(syntax-e$1" " spec_0)" " at-phase_13" -" ns_124" +" ns_125" " rp_1" " protected?_15)" "(values" @@ -68525,57 +68539,57 @@ static const char *startup_source = " for-meta3_0" " phase-level4_0" " spec5_0)" -"(let-values(((s_305)" +"(let-values(((s_303)" " disarmed-spec_0))" "(let-values(((orig-s_62)" -" s_305))" +" s_303))" "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_306)" +"(let-values(((s_304)" "(if(syntax?$1" -" s_305)" +" s_303)" "(syntax-e$1" -" s_305)" -" s_305)))" +" s_303)" +" s_303)))" "(if(pair?" -" s_306)" +" s_304)" "(let-values(((for-meta6_0)" -"(let-values(((s_180)" +"(let-values(((s_178)" "(car" -" s_306)))" -" s_180))" +" s_304)))" +" s_178))" "((phase-level7_0" " spec8_0)" -"(let-values(((s_81)" +"(let-values(((s_80)" "(cdr" -" s_306)))" -"(let-values(((s_728)" +" s_304)))" +"(let-values(((s_726)" "(if(syntax?$1" -" s_81)" +" s_80)" "(syntax-e$1" -" s_81)" -" s_81)))" +" s_80)" +" s_80)))" "(if(pair?" -" s_728)" +" s_726)" "(let-values(((phase-level9_0)" -"(let-values(((s_182)" +"(let-values(((s_180)" "(car" -" s_728)))" -" s_182))" +" s_726)))" +" s_180))" "((spec10_0)" -"(let-values(((s_462)" +"(let-values(((s_460)" "(cdr" -" s_728)))" -"(let-values(((s_468)" +" s_726)))" +"(let-values(((s_466)" "(if(syntax?$1" -" s_462)" +" s_460)" "(syntax-e$1" -" s_462)" -" s_462)))" +" s_460)" +" s_460)))" "(let-values(((flat-s_42)" "(to-syntax-list.1" -" s_468)))" +" s_466)))" "(if(not" " flat-s_42)" "(let-values()" @@ -68673,15 +68687,15 @@ static const char *startup_source = "(if(pair?" " s_23)" "(let-values(((for-syntax15_0)" -"(let-values(((s_429)" +"(let-values(((s_427)" "(car" " s_23)))" -" s_429))" +" s_427))" "((spec16_0)" "(let-values(((s_25)" "(cdr" " s_23)))" -"(let-values(((s_729)" +"(let-values(((s_727)" "(if(syntax?$1" " s_25)" "(syntax-e$1" @@ -68689,7 +68703,7 @@ static const char *startup_source = " s_25)))" "(let-values(((flat-s_43)" "(to-syntax-list.1" -" s_729)))" +" s_727)))" "(if(not" " flat-s_43)" "(let-values()" @@ -68753,24 +68767,24 @@ static const char *startup_source = " s_44))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_480)" +"(let-values(((s_478)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(pair?" -" s_480)" +" s_478)" "(let-values(((for-label21_0)" -"(let-values(((s_477)" +"(let-values(((s_475)" "(car" -" s_480)))" -" s_477))" +" s_478)))" +" s_475))" "((spec22_0)" "(let-values(((s_45)" "(cdr" -" s_480)))" -"(let-values(((s_307)" +" s_478)))" +"(let-values(((s_305)" "(if(syntax?$1" " s_45)" "(syntax-e$1" @@ -68778,7 +68792,7 @@ static const char *startup_source = " s_45)))" "(let-values(((flat-s_44)" "(to-syntax-list.1" -" s_307)))" +" s_305)))" "(if(not" " flat-s_44)" "(let-values()" @@ -68845,38 +68859,38 @@ static const char *startup_source = "(let-values(((ok?_61" " protect25_0" " p-spec26_0)" -"(let-values(((s_730)" +"(let-values(((s_728)" " disarmed-spec_0))" "(let-values(((orig-s_65)" -" s_730))" +" s_728))" "(let-values(((protect25_1" " p-spec26_1)" "(let-values(((s_31)" "(if(syntax?$1" -" s_730)" +" s_728)" "(syntax-e$1" -" s_730)" -" s_730)))" +" s_728)" +" s_728)))" "(if(pair?" " s_31)" "(let-values(((protect27_0)" -"(let-values(((s_89)" +"(let-values(((s_88)" "(car" " s_31)))" -" s_89))" +" s_88))" "((p-spec28_0)" -"(let-values(((s_309)" +"(let-values(((s_307)" "(cdr" " s_31)))" -"(let-values(((s_483)" +"(let-values(((s_481)" "(if(syntax?$1" -" s_309)" +" s_307)" "(syntax-e$1" -" s_309)" -" s_309)))" +" s_307)" +" s_307)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" -" s_483)))" +" s_481)))" "(if(not" " flat-s_45)" "(let-values()" @@ -68930,43 +68944,43 @@ static const char *startup_source = " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_731)" +"(let-values(((s_729)" " disarmed-spec_0))" "(let-values(((orig-s_66)" -" s_731))" +" s_729))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_486)" +"(let-values(((s_484)" "(if(syntax?$1" -" s_731)" +" s_729)" "(syntax-e$1" -" s_731)" -" s_731)))" +" s_729)" +" s_729)))" "(if(pair?" -" s_486)" +" s_484)" "(let-values(((rename34_0)" -"(let-values(((s_315)" +"(let-values(((s_313)" "(car" -" s_486)))" -" s_315))" +" s_484)))" +" s_313))" "((id:from35_0" " id:to36_0)" -"(let-values(((s_732)" +"(let-values(((s_730)" "(cdr" -" s_486)))" -"(let-values(((s_316)" +" s_484)))" +"(let-values(((s_314)" "(if(syntax?$1" -" s_732)" +" s_730)" "(syntax-e$1" -" s_732)" -" s_732)))" +" s_730)" +" s_730)))" "(if(pair?" -" s_316)" +" s_314)" "(let-values(((id:from37_0)" "(let-values(((s_33)" "(car" -" s_316)))" +" s_314)))" "(if(let-values(((or-part_216)" "(if(syntax?$1" " s_33)" @@ -68985,50 +68999,50 @@ static const char *startup_source = " orig-s_66" " s_33))))" "((id:to38_0)" -"(let-values(((s_399)" +"(let-values(((s_397)" "(cdr" -" s_316)))" -"(let-values(((s_733)" +" s_314)))" +"(let-values(((s_731)" "(if(syntax?$1" -" s_399)" +" s_397)" "(syntax-e$1" -" s_399)" -" s_399)))" +" s_397)" +" s_397)))" "(if(pair?" -" s_733)" +" s_731)" "(let-values(((id:to39_0)" -"(let-values(((s_433)" +"(let-values(((s_431)" "(car" -" s_733)))" +" s_731)))" "(if(let-values(((or-part_57)" "(if(syntax?$1" -" s_433)" +" s_431)" "(symbol?" "(syntax-e$1" -" s_433))" +" s_431))" " #f)))" "(if or-part_57" " or-part_57" "(symbol?" -" s_433)))" -" s_433" +" s_431)))" +" s_431" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_66" -" s_433))))" +" s_431))))" "(()" -"(let-values(((s_734)" +"(let-values(((s_732)" "(cdr" -" s_733)))" -"(let-values(((s_386)" +" s_731)))" +"(let-values(((s_384)" "(if(syntax?$1" -" s_734)" +" s_732)" "(syntax-e$1" -" s_734)" -" s_734)))" +" s_732)" +" s_732)))" "(if(null?" -" s_386)" +" s_384)" "(values)" "(raise-syntax-error$1" " #f" @@ -69067,7 +69081,7 @@ static const char *startup_source = "(syntax-e$1" " id:to33_0)" " at-phase_13" -" ns_124" +" ns_125" " rp_1" " protected?_15)" "(values" @@ -69090,85 +69104,85 @@ static const char *startup_source = " struct40_0" " id:struct41_0" " id:field42_0)" -"(let-values(((s_503)" +"(let-values(((s_501)" " disarmed-spec_0))" "(let-values(((orig-s_67)" -" s_503))" +" s_501))" "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" -"(let-values(((s_36)" +"(let-values(((s_502)" "(if(syntax?$1" -" s_503)" +" s_501)" "(syntax-e$1" -" s_503)" -" s_503)))" +" s_501)" +" s_501)))" "(if(pair?" -" s_36)" +" s_502)" "(let-values(((struct43_0)" -"(let-values(((s_203)" +"(let-values(((s_201)" "(car" -" s_36)))" -" s_203))" +" s_502)))" +" s_201))" "((id:struct44_0" " id:field45_0)" -"(let-values(((s_735)" +"(let-values(((s_733)" "(cdr" -" s_36)))" -"(let-values(((s_736)" +" s_502)))" +"(let-values(((s_734)" "(if(syntax?$1" -" s_735)" +" s_733)" "(syntax-e$1" -" s_735)" -" s_735)))" +" s_733)" +" s_733)))" "(if(pair?" -" s_736)" +" s_734)" "(let-values(((id:struct46_0)" -"(let-values(((s_737)" +"(let-values(((s_735)" "(car" -" s_736)))" +" s_734)))" "(if(let-values(((or-part_364)" "(if(syntax?$1" -" s_737)" +" s_735)" "(symbol?" "(syntax-e$1" -" s_737))" +" s_735))" " #f)))" "(if or-part_364" " or-part_364" "(symbol?" -" s_737)))" -" s_737" +" s_735)))" +" s_735" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_737))))" +" s_735))))" "((id:field47_0)" -"(let-values(((s_738)" +"(let-values(((s_736)" "(cdr" +" s_734)))" +"(let-values(((s_391)" +"(if(syntax?$1" +" s_736)" +"(syntax-e$1" +" s_736)" " s_736)))" -"(let-values(((s_393)" -"(if(syntax?$1" -" s_738)" -"(syntax-e$1" -" s_738)" -" s_738)))" "(if(pair?" -" s_393)" +" s_391)" "(let-values(((id:field48_0)" -"(let-values(((s_62)" +"(let-values(((s_37)" "(car" -" s_393)))" -"(let-values(((s_412)" +" s_391)))" +"(let-values(((s_410)" "(if(syntax?$1" -" s_62)" +" s_37)" "(syntax-e$1" -" s_62)" -" s_62)))" +" s_37)" +" s_37)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" -" s_412)))" +" s_410)))" "(if(not" " flat-s_46)" "(let-values()" @@ -69194,7 +69208,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_407)" -"(let-values(((s_65)" +"(let-values(((s_64)" "(unsafe-car" " lst_407))" "((rest_235)" @@ -69209,21 +69223,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_398)" "(if(syntax?$1" -" s_65)" +" s_64)" "(symbol?" "(syntax-e$1" -" s_65))" +" s_64))" " #f)))" "(if or-part_398" " or-part_398" "(symbol?" -" s_65)))" -" s_65" +" s_64)))" +" s_64" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_65)))))" +" s_64)))))" "(cons" " id:field49_0" " id:field_3)))))" @@ -69242,17 +69256,17 @@ static const char *startup_source = "(reverse$1" " id:field_0))))))))" "(()" -"(let-values(((s_206)" +"(let-values(((s_204)" "(cdr" -" s_393)))" -"(let-values(((s_739)" +" s_391)))" +"(let-values(((s_737)" "(if(syntax?$1" -" s_206)" +" s_204)" "(syntax-e$1" -" s_206)" -" s_206)))" +" s_204)" +" s_204)))" "(if(null?" -" s_739)" +" s_737)" "(values)" "(raise-syntax-error$1" " #f" @@ -69290,7 +69304,7 @@ static const char *startup_source = " orig-s_61" " id:field42_0" " at-phase_13" -" ns_124" +" ns_125" " rp_1" " protected?_15)" "(values" @@ -69309,54 +69323,54 @@ static const char *startup_source = "(let-values(((ok?_64" " all-from50_0" " mod-path51_0)" -"(let-values(((s_740)" +"(let-values(((s_738)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_740))" +" s_738))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_741)" +"(let-values(((s_739)" "(if(syntax?$1" -" s_740)" +" s_738)" "(syntax-e$1" -" s_740)" -" s_740)))" +" s_738)" +" s_738)))" "(if(pair?" -" s_741)" +" s_739)" "(let-values(((all-from52_0)" -"(let-values(((s_742)" +"(let-values(((s_740)" "(car" -" s_741)))" -" s_742))" +" s_739)))" +" s_740))" "((mod-path53_0)" -"(let-values(((s_209)" +"(let-values(((s_207)" "(cdr" -" s_741)))" -"(let-values(((s_210)" +" s_739)))" +"(let-values(((s_208)" "(if(syntax?$1" -" s_209)" +" s_207)" "(syntax-e$1" -" s_209)" -" s_209)))" +" s_207)" +" s_207)))" "(if(pair?" -" s_210)" +" s_208)" "(let-values(((mod-path54_0)" -"(let-values(((s_743)" +"(let-values(((s_741)" "(car" -" s_210)))" -" s_743))" +" s_208)))" +" s_741))" "(()" -"(let-values(((s_94)" +"(let-values(((s_93)" "(cdr" -" s_210)))" -"(let-values(((s_322)" +" s_208)))" +"(let-values(((s_320)" "(if(syntax?$1" -" s_94)" +" s_93)" "(syntax-e$1" -" s_94)" -" s_94)))" +" s_93)" +" s_93)))" "(if(null?" -" s_322)" +" s_320)" "(values)" "(raise-syntax-error$1" " #f" @@ -69386,7 +69400,7 @@ static const char *startup_source = " self_30" " null" " at-phase_13" -" ns_124" +" ns_125" " rp_1" " protected?_15" " ctx_106)" @@ -69404,57 +69418,57 @@ static const char *startup_source = " all-from-except55_0" " mod-path56_0" " id57_0)" -"(let-values(((s_97)" +"(let-values(((s_96)" " disarmed-spec_0))" "(let-values(((orig-s_69)" -" s_97))" +" s_96))" "(let-values(((all-from-except55_1" " mod-path56_1" " id57_1)" -"(let-values(((s_213)" +"(let-values(((s_211)" "(if(syntax?$1" -" s_97)" +" s_96)" "(syntax-e$1" -" s_97)" -" s_97)))" +" s_96)" +" s_96)))" "(if(pair?" -" s_213)" +" s_211)" "(let-values(((all-from-except58_0)" -"(let-values(((s_417)" +"(let-values(((s_415)" "(car" -" s_213)))" -" s_417))" +" s_211)))" +" s_415))" "((mod-path59_0" " id60_0)" -"(let-values(((s_163)" +"(let-values(((s_161)" "(cdr" -" s_213)))" -"(let-values(((s_490)" +" s_211)))" +"(let-values(((s_488)" "(if(syntax?$1" -" s_163)" +" s_161)" "(syntax-e$1" -" s_163)" -" s_163)))" +" s_161)" +" s_161)))" "(if(pair?" -" s_490)" +" s_488)" "(let-values(((mod-path61_0)" -"(let-values(((s_744)" +"(let-values(((s_742)" "(car" -" s_490)))" -" s_744))" +" s_488)))" +" s_742))" "((id62_0)" -"(let-values(((s_745)" +"(let-values(((s_743)" "(cdr" -" s_490)))" -"(let-values(((s_746)" +" s_488)))" +"(let-values(((s_744)" "(if(syntax?$1" -" s_745)" +" s_743)" "(syntax-e$1" -" s_745)" -" s_745)))" +" s_743)" +" s_743)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_746)))" +" s_744)))" "(if(not" " flat-s_47)" "(let-values()" @@ -69480,7 +69494,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_44)" -"(let-values(((s_493)" +"(let-values(((s_491)" "(unsafe-car" " lst_44))" "((rest_18)" @@ -69495,21 +69509,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_399)" "(if(syntax?$1" -" s_493)" +" s_491)" "(symbol?" "(syntax-e$1" -" s_493))" +" s_491))" " #f)))" "(if or-part_399" " or-part_399" "(symbol?" -" s_493)))" -" s_493" +" s_491)))" +" s_491" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_69" -" s_493)))))" +" s_491)))))" "(cons" " id63_0" " id_136)))))" @@ -69554,7 +69568,7 @@ static const char *startup_source = " self_30" " id57_0" " at-phase_13" -" ns_124" +" ns_125" " rp_1" " protected?_15" " ctx_106)" @@ -69576,36 +69590,36 @@ static const char *startup_source = "(values))))" "(let-values(((ok?_66" " all-defined64_0)" -"(let-values(((s_218)" +"(let-values(((s_216)" " disarmed-spec_0))" "(let-values(((orig-s_70)" -" s_218))" +" s_216))" "(let-values(((all-defined64_1)" -"(let-values(((s_395)" +"(let-values(((s_393)" "(if(syntax?$1" -" s_218)" +" s_216)" "(syntax-e$1" -" s_218)" -" s_218)))" +" s_216)" +" s_216)))" "(if(pair?" -" s_395)" +" s_393)" "(let-values(((all-defined65_0)" -"(let-values(((s_109)" +"(let-values(((s_108)" "(car" -" s_395)))" -" s_109))" +" s_393)))" +" s_108))" "(()" -"(let-values(((s_747)" +"(let-values(((s_745)" "(cdr" -" s_395)))" -"(let-values(((s_748)" +" s_393)))" +"(let-values(((s_746)" "(if(syntax?$1" -" s_747)" +" s_745)" "(syntax-e$1" -" s_747)" -" s_747)))" +" s_745)" +" s_745)))" "(if(null?" -" s_748)" +" s_746)" "(values)" "(raise-syntax-error$1" " #f" @@ -69628,7 +69642,7 @@ static const char *startup_source = " null" " #f" " at-phase_13" -" ns_124" +" ns_125" " rp_1" " protected?_15)" "(values" @@ -69644,38 +69658,38 @@ static const char *startup_source = "(let-values(((ok?_67" " all-defined-except66_0" " id67_0)" -"(let-values(((s_749)" +"(let-values(((s_747)" " disarmed-spec_0))" "(let-values(((orig-s_71)" -" s_749))" +" s_747))" "(let-values(((all-defined-except66_1" " id67_1)" +"(let-values(((s_218)" +"(if(syntax?$1" +" s_747)" +"(syntax-e$1" +" s_747)" +" s_747)))" +"(if(pair?" +" s_218)" +"(let-values(((all-defined-except68_0)" +"(let-values(((s_416)" +"(car" +" s_218)))" +" s_416))" +"((id69_0)" +"(let-values(((s_219)" +"(cdr" +" s_218)))" "(let-values(((s_220)" "(if(syntax?$1" -" s_749)" +" s_219)" "(syntax-e$1" -" s_749)" -" s_749)))" -"(if(pair?" -" s_220)" -"(let-values(((all-defined-except68_0)" -"(let-values(((s_418)" -"(car" -" s_220)))" -" s_418))" -"((id69_0)" -"(let-values(((s_221)" -"(cdr" -" s_220)))" -"(let-values(((s_222)" -"(if(syntax?$1" -" s_221)" -"(syntax-e$1" -" s_221)" -" s_221)))" +" s_219)" +" s_219)))" "(let-values(((flat-s_48)" "(to-syntax-list.1" -" s_222)))" +" s_220)))" "(if(not" " flat-s_48)" "(let-values()" @@ -69701,7 +69715,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_409)" -"(let-values(((s_120)" +"(let-values(((s_119)" "(unsafe-car" " lst_409))" "((rest_236)" @@ -69716,21 +69730,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_186)" "(if(syntax?$1" -" s_120)" +" s_119)" "(symbol?" "(syntax-e$1" -" s_120))" +" s_119))" " #f)))" "(if or-part_186" " or-part_186" "(symbol?" -" s_120)))" -" s_120" +" s_119)))" +" s_119" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_71" -" s_120)))))" +" s_119)))))" "(cons" " id70_0" " id_141)))))" @@ -69767,7 +69781,7 @@ static const char *startup_source = " id67_0" " #f" " at-phase_13" -" ns_124" +" ns_125" " rp_1" " protected?_15)" "(values" @@ -69786,70 +69800,70 @@ static const char *startup_source = "(let-values(((ok?_68" " prefix-all-defined71_0" " id:prefix72_0)" -"(let-values(((s_750)" +"(let-values(((s_748)" " disarmed-spec_0))" "(let-values(((orig-s_72)" -" s_750))" +" s_748))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" -"(let-values(((s_751)" +"(let-values(((s_749)" "(if(syntax?$1" -" s_750)" +" s_748)" "(syntax-e$1" -" s_750)" -" s_750)))" +" s_748)" +" s_748)))" "(if(pair?" -" s_751)" +" s_749)" "(let-values(((prefix-all-defined73_0)" -"(let-values(((s_752)" +"(let-values(((s_750)" "(car" -" s_751)))" -" s_752))" +" s_749)))" +" s_750))" "((id:prefix74_0)" -"(let-values(((s_753)" +"(let-values(((s_751)" "(cdr" -" s_751)))" -"(let-values(((s_509)" +" s_749)))" +"(let-values(((s_507)" "(if(syntax?$1" -" s_753)" +" s_751)" "(syntax-e$1" -" s_753)" -" s_753)))" +" s_751)" +" s_751)))" "(if(pair?" -" s_509)" +" s_507)" "(let-values(((id:prefix75_0)" -"(let-values(((s_510)" +"(let-values(((s_508)" "(car" -" s_509)))" +" s_507)))" "(if(let-values(((or-part_400)" "(if(syntax?$1" -" s_510)" +" s_508)" "(symbol?" "(syntax-e$1" -" s_510))" +" s_508))" " #f)))" "(if or-part_400" " or-part_400" "(symbol?" -" s_510)))" -" s_510" +" s_508)))" +" s_508" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_72" -" s_510))))" +" s_508))))" "(()" -"(let-values(((s_754)" +"(let-values(((s_752)" "(cdr" -" s_509)))" -"(let-values(((s_127)" +" s_507)))" +"(let-values(((s_126)" "(if(syntax?$1" -" s_754)" +" s_752)" "(syntax-e$1" -" s_754)" -" s_754)))" +" s_752)" +" s_752)))" "(if(null?" -" s_127)" +" s_126)" "(values)" "(raise-syntax-error$1" " #f" @@ -69881,7 +69895,7 @@ static const char *startup_source = "(syntax-e$1" " id:prefix72_0)" " at-phase_13" -" ns_124" +" ns_125" " rp_1" " protected?_15)" "(values" @@ -69901,73 +69915,73 @@ static const char *startup_source = " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_233)" +"(let-values(((s_231)" " disarmed-spec_0))" "(let-values(((orig-s_73)" -" s_233))" +" s_231))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" -"(let-values(((s_334)" +"(let-values(((s_332)" "(if(syntax?$1" -" s_233)" +" s_231)" "(syntax-e$1" -" s_233)" -" s_233)))" +" s_231)" +" s_231)))" "(if(pair?" -" s_334)" +" s_332)" "(let-values(((prefix-all-defined-except79_0)" -"(let-values(((s_337)" +"(let-values(((s_335)" "(car" -" s_334)))" -" s_337))" +" s_332)))" +" s_335))" "((id:prefix80_0" " id81_0)" -"(let-values(((s_338)" +"(let-values(((s_336)" "(cdr" -" s_334)))" -"(let-values(((s_339)" +" s_332)))" +"(let-values(((s_337)" "(if(syntax?$1" -" s_338)" +" s_336)" "(syntax-e$1" -" s_338)" -" s_338)))" +" s_336)" +" s_336)))" "(if(pair?" -" s_339)" +" s_337)" "(let-values(((id:prefix82_0)" -"(let-values(((s_342)" +"(let-values(((s_340)" "(car" -" s_339)))" +" s_337)))" "(if(let-values(((or-part_401)" "(if(syntax?$1" -" s_342)" +" s_340)" "(symbol?" "(syntax-e$1" -" s_342))" +" s_340))" " #f)))" "(if or-part_401" " or-part_401" "(symbol?" -" s_342)))" -" s_342" +" s_340)))" +" s_340" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_73" -" s_342))))" +" s_340))))" "((id83_0)" -"(let-values(((s_344)" +"(let-values(((s_342)" "(cdr" -" s_339)))" -"(let-values(((s_514)" +" s_337)))" +"(let-values(((s_512)" "(if(syntax?$1" -" s_344)" +" s_342)" "(syntax-e$1" -" s_344)" -" s_344)))" +" s_342)" +" s_342)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" -" s_514)))" +" s_512)))" "(if(not" " flat-s_49)" "(let-values()" @@ -69993,7 +70007,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_410)" -"(let-values(((s_515)" +"(let-values(((s_513)" "(unsafe-car" " lst_410))" "((rest_191)" @@ -70008,21 +70022,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_290)" "(if(syntax?$1" -" s_515)" +" s_513)" "(symbol?" "(syntax-e$1" -" s_515))" +" s_513))" " #f)))" "(if or-part_290" " or-part_290" "(symbol?" -" s_515)))" -" s_515" +" s_513)))" +" s_513" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_73" -" s_515)))))" +" s_513)))))" "(cons" " id84_2" " id_145)))))" @@ -70069,7 +70083,7 @@ static const char *startup_source = "(syntax-e$1" " id:prefix77_0)" " at-phase_13" -" ns_124" +" ns_125" " rp_1" " protected?_15)" "(values" @@ -70081,78 +70095,78 @@ static const char *startup_source = " expand85_0" " id86_0" " datum87_0)" -"(let-values(((s_521)" +"(let-values(((s_519)" " disarmed-spec_0))" "(let-values(((orig-s_74)" -" s_521))" +" s_519))" "(let-values(((expand85_1" " id86_1" " datum87_1)" -"(let-values(((s_247)" +"(let-values(((s_245)" "(if(syntax?$1" -" s_521)" +" s_519)" "(syntax-e$1" -" s_521)" -" s_521)))" +" s_519)" +" s_519)))" "(if(pair?" -" s_247)" +" s_245)" "(let-values(((expand88_0)" -"(let-values(((s_248)" +"(let-values(((s_246)" "(car" -" s_247)))" -" s_248))" +" s_245)))" +" s_246))" "((id89_1" " datum90_0)" -"(let-values(((s_755)" +"(let-values(((s_753)" "(cdr" +" s_245)))" +"(let-values(((s_247)" +"(if(syntax?$1" +" s_753)" +"(syntax-e$1" +" s_753)" +" s_753)))" +"(if(pair?" +" s_247)" +"(let-values(((id91_0" +" datum92_0)" +"(let-values(((s_754)" +"(car" " s_247)))" "(let-values(((s_249)" "(if(syntax?$1" -" s_755)" +" s_754)" "(syntax-e$1" -" s_755)" -" s_755)))" +" s_754)" +" s_754)))" "(if(pair?" " s_249)" -"(let-values(((id91_0" -" datum92_0)" -"(let-values(((s_756)" +"(let-values(((id93_1)" +"(let-values(((s_523)" "(car" " s_249)))" -"(let-values(((s_251)" -"(if(syntax?$1" -" s_756)" -"(syntax-e$1" -" s_756)" -" s_756)))" -"(if(pair?" -" s_251)" -"(let-values(((id93_1)" -"(let-values(((s_525)" -"(car" -" s_251)))" "(if(let-values(((or-part_402)" "(if(syntax?$1" -" s_525)" +" s_523)" "(symbol?" "(syntax-e$1" -" s_525))" +" s_523))" " #f)))" "(if or-part_402" " or-part_402" "(symbol?" -" s_525)))" -" s_525" +" s_523)))" +" s_523" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_525))))" +" s_523))))" "((datum94_0)" -"(let-values(((s_449)" +"(let-values(((s_447)" "(cdr" -" s_251)))" -" s_449)))" +" s_249)))" +" s_447)))" "(values" " id93_1" " datum94_0))" @@ -70161,17 +70175,17 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_74)))))" "(()" -"(let-values(((s_450)" +"(let-values(((s_448)" "(cdr" -" s_249)))" -"(let-values(((s_362)" +" s_247)))" +"(let-values(((s_360)" "(if(syntax?$1" -" s_450)" +" s_448)" "(syntax-e$1" -" s_450)" -" s_450)))" +" s_448)" +" s_448)))" "(if(null?" -" s_362)" +" s_360)" "(values)" "(raise-syntax-error$1" " #f" @@ -70200,54 +70214,54 @@ static const char *startup_source = "(let-values(((ok?_71" " expand95_0" " form96_0)" -"(let-values(((s_363)" +"(let-values(((s_361)" " disarmed-spec_0))" "(let-values(((orig-s_75)" -" s_363))" +" s_361))" "(let-values(((expand95_1" " form96_1)" -"(let-values(((s_366)" +"(let-values(((s_364)" "(if(syntax?$1" -" s_363)" +" s_361)" "(syntax-e$1" -" s_363)" -" s_363)))" +" s_361)" +" s_361)))" "(if(pair?" -" s_366)" +" s_364)" "(let-values(((expand97_0)" -"(let-values(((s_369)" +"(let-values(((s_367)" "(car" -" s_366)))" -" s_369))" +" s_364)))" +" s_367))" "((form98_0)" -"(let-values(((s_370)" +"(let-values(((s_368)" "(cdr" -" s_366)))" -"(let-values(((s_371)" +" s_364)))" +"(let-values(((s_369)" "(if(syntax?$1" -" s_370)" +" s_368)" "(syntax-e$1" -" s_370)" -" s_370)))" +" s_368)" +" s_368)))" "(if(pair?" -" s_371)" +" s_369)" "(let-values(((form99_0)" -"(let-values(((s_373)" +"(let-values(((s_371)" "(car" -" s_371)))" -" s_373))" +" s_369)))" +" s_371))" "(()" -"(let-values(((s_374)" +"(let-values(((s_372)" "(cdr" -" s_371)))" -"(let-values(((s_757)" +" s_369)))" +"(let-values(((s_755)" "(if(syntax?$1" -" s_374)" +" s_372)" "(syntax-e$1" -" s_374)" -" s_374)))" +" s_372)" +" s_372)))" "(if(null?" -" s_757)" +" s_755)" "(values)" "(raise-syntax-error$1" " #f" @@ -70417,38 +70431,38 @@ static const char *startup_source = "(let-values(((ok?_72" " begin100_0" " spec101_0)" -"(let-values(((s_758)" +"(let-values(((s_756)" " exp-spec_0))" "(let-values(((orig-s_76)" -" s_758))" +" s_756))" "(let-values(((begin100_1" " spec101_1)" -"(let-values(((s_759)" +"(let-values(((s_757)" "(if(syntax?$1" -" s_758)" +" s_756)" "(syntax-e$1" -" s_758)" -" s_758)))" +" s_756)" +" s_756)))" "(if(pair?" -" s_759)" +" s_757)" "(let-values(((begin102_0)" -"(let-values(((s_379)" +"(let-values(((s_377)" "(car" -" s_759)))" -" s_379))" +" s_757)))" +" s_377))" "((spec103_0)" -"(let-values(((s_380)" +"(let-values(((s_378)" "(cdr" -" s_759)))" -"(let-values(((s_381)" +" s_757)))" +"(let-values(((s_379)" "(if(syntax?$1" -" s_380)" +" s_378)" "(syntax-e$1" -" s_380)" -" s_380)))" +" s_378)" +" s_378)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_381)))" +" s_379)))" "(if(not" " flat-s_50)" "(let-values()" @@ -70506,7 +70520,7 @@ static const char *startup_source = " for-loop_96)" " null" " null" -" lst_78)))))" +" lst_79)))))" "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" " loop_112)" @@ -70516,9 +70530,9 @@ static const char *startup_source = " 'raw)))))" "(define-values" "(parse-identifier!)" -"(lambda(spec_1 orig-s_77 sym_101 at-phase_5 ns_125 rp_2 protected?_16)" +"(lambda(spec_1 orig-s_77 sym_101 at-phase_5 ns_126 rp_2 protected?_16)" "(begin" -"(let-values(((b_90)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_125)))" +"(let-values(((b_90)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_126)))" "(let-values((()" "(begin" "(if b_90" @@ -70530,7 +70544,7 @@ static const char *startup_source = " orig-s_77" " spec_1)))" "(values))))" -"(let-values(((as-transformer?_6)(binding-for-transformer? b_90 spec_1 at-phase_5 ns_125)))" +"(let-values(((as-transformer?_6)(binding-for-transformer? b_90 spec_1 at-phase_5 ns_126)))" "(let-values(((immed-b_0)" "(let-values(((spec118_0) spec_1)((at-phase119_0) at-phase_5)((temp120_5) #t))" "(resolve+shift30.1 #f #f #f #f #f #f temp120_5 #t #f #f spec118_0 at-phase119_0))))" @@ -70555,7 +70569,7 @@ static const char *startup_source = " orig-s115_0)))))))))" "(define-values" "(parse-struct!)" -"(lambda(id:struct_0 orig-s_78 fields_0 at-phase_14 ns_126 rp_3 protected?_17)" +"(lambda(id:struct_0 orig-s_78 fields_0 at-phase_14 ns_127 rp_3 protected?_17)" "(begin" "(let-values(((mk_0)" "(lambda(fmt_1)" @@ -70572,11 +70586,11 @@ static const char *startup_source = "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" "(datum->syntax$1 id:struct_0 sym_102 id:struct_0))))))" "(begin" -" (let-values (((lst_122) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_123) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_122)))" +"(let-values()(check-list lst_123)))" "((letrec-values(((for-loop_326)" "(lambda(lst_411)" "(begin" @@ -70595,7 +70609,7 @@ static const char *startup_source = " orig-s_78" "(syntax-e$1 id_147)" " at-phase_14" -" ns_126" +" ns_127" " rp_3" " protected?_17)))" "(values)))))" @@ -70603,7 +70617,7 @@ static const char *startup_source = "(if(not #f)(for-loop_326 rest_237)(values))))" "(values))))))" " for-loop_326)" -" lst_122)))" +" lst_123)))" "(void)" "(let-values(((lst_360) fields_0))" "(begin" @@ -70634,7 +70648,7 @@ static const char *startup_source = " orig-s_78" "(syntax-e$1 get-id_0)" " at-phase_14" -" ns_126" +" ns_127" " rp_3" " protected?_17)" "(parse-identifier!" @@ -70642,7 +70656,7 @@ static const char *startup_source = " orig-s_78" "(syntax-e$1 set-id_0)" " at-phase_14" -" ns_126" +" ns_127" " rp_3" " protected?_17)))))" "(values)))))" @@ -70654,7 +70668,7 @@ static const char *startup_source = "(void)))))))" "(define-values" "(parse-all-from)" -"(lambda(mod-path-stx_0 orig-s_79 self_31 except-ids_0 at-phase_15 ns_127 rp_4 protected?_18 ctx_107)" +"(lambda(mod-path-stx_0 orig-s_79 self_31 except-ids_0 at-phase_15 ns_128 rp_4 protected?_18 ctx_107)" "(begin" "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))" "(let-values((()" @@ -70664,13 +70678,13 @@ static const char *startup_source = "(let-values()" " (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_79 mod-path-stx_0)))" "(values))))" -"(let-values(((mpi_54)(module-path->mpi/context mod-path_33 ctx_107)))" -"(parse-all-from-module mpi_54 #f orig-s_79 except-ids_0 #f at-phase_15 ns_127 rp_4 protected?_18)))))))" +"(let-values(((mpi_57)(module-path->mpi/context mod-path_33 ctx_107)))" +"(parse-all-from-module mpi_57 #f orig-s_79 except-ids_0 #f at-phase_15 ns_128 rp_4 protected?_18)))))))" "(define-values" "(parse-all-from-module)" -"(lambda(mpi_55 matching-stx_0 orig-s_80 except-ids_1 prefix-sym_0 at-phase_16 ns_128 rp_5 protected?_19)" +"(lambda(mpi_58 matching-stx_0 orig-s_80 except-ids_1 prefix-sym_0 at-phase_16 ns_129 rp_5 protected?_19)" "(begin" -"(let-values(((requireds_2)(extract-module-requires rp_5 mpi_55 at-phase_16)))" +"(let-values(((requireds_2)(extract-module-requires rp_5 mpi_58 at-phase_16)))" "(let-values(((phase-desc_0)" "(lambda()" "(begin" @@ -70698,11 +70712,11 @@ static const char *startup_source = " (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_103)) sym_103)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_240) requireds_2))" +"(let-values(((lst_239) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_240)))" +"(let-values()(check-list lst_239)))" "((letrec-values(((for-loop_328)" "(lambda(lst_413)" "(begin" @@ -70799,7 +70813,7 @@ static const char *startup_source = "(resolve+shift/extra-inspector" " id_148" " phase_150" -" ns_128)))" +" ns_129)))" "(let-values(((immed-b_1)" "(let-values(((id130_0)" " id_148)" @@ -70856,24 +70870,24 @@ static const char *startup_source = "(if(not #f)(for-loop_328 rest_239)(values))))" "(values))))))" " for-loop_328)" -" lst_240)))" +" lst_239)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_145) except-ids_1))" +"(let-values(((lst_146) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_145)))" +"(let-values()(check-list lst_146)))" "((letrec-values(((for-loop_172)" -"(lambda(lst_124)" +"(lambda(lst_125)" "(begin" " 'for-loop" -"(if(pair? lst_124)" -"(let-values(((except-id_1)(unsafe-car lst_124))" -"((rest_62)(unsafe-cdr lst_124)))" +"(if(pair? lst_125)" +"(let-values(((except-id_1)(unsafe-car lst_125))" +"((rest_62)(unsafe-cdr lst_125)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -70958,7 +70972,7 @@ static const char *startup_source = "(if(not #f)(for-loop_172 rest_62)(values))))" "(values))))))" " for-loop_172)" -" lst_145)))" +" lst_146)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -70975,12 +70989,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_418)))" "((letrec-values(((for-loop_330)" -"(lambda(lst_85)" +"(lambda(lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((body_21)(unsafe-car lst_85))" -"((rest_40)(unsafe-cdr lst_85)))" +"(if(pair? lst_86)" +"(let-values(((body_21)(unsafe-car lst_86))" +"((rest_40)(unsafe-cdr lst_86)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71046,18 +71060,18 @@ static const char *startup_source = "(let-values()" "(let-values(((rands_1)(parsed-app-rands e_93)))" "(begin" -"(let-values(((lst_79) rands_1))" +"(let-values(((lst_80) rands_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" +"(let-values()(check-list lst_80)))" "((letrec-values(((for-loop_81)" -"(lambda(lst_86)" +"(lambda(lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((rand_0)(unsafe-car lst_86))" -"((rest_242)(unsafe-cdr lst_86)))" +"(if(pair? lst_87)" +"(let-values(((rand_0)(unsafe-car lst_87))" +"((rest_242)(unsafe-cdr lst_87)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71073,7 +71087,7 @@ static const char *startup_source = "(if(not #f)(for-loop_81 rest_242)(values))))" "(values))))))" " for-loop_81)" -" lst_79)))" +" lst_80)))" "(void)" "(let-values(((tmp_66)(cross-phase-primitive-name(parsed-app-rator e_93))))" "(if(if(equal? tmp_66 'cons) #t(equal? tmp_66 'list))" @@ -71108,11 +71122,11 @@ static const char *startup_source = "(if(parsed-case-lambda? e_39)" "(let-values()" "(begin" -"(let-values(((lst_270)(parsed-case-lambda-clauses e_39)))" +"(let-values(((lst_269)(parsed-case-lambda-clauses e_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_270)))" +"(let-values()(check-list lst_269)))" "((letrec-values(((for-loop_241)" "(lambda(lst_419)" "(begin" @@ -71133,24 +71147,24 @@ static const char *startup_source = "(if(not #f)(for-loop_241 rest_243)(values))))" "(values))))))" " for-loop_241)" -" lst_270)))" +" lst_269)))" "(void)))" "(if(parsed-app? e_39)" "(let-values()" "(begin" "(check-no-disallowed-expr_0(parsed-app-rator e_39))" -"(let-values(((lst_222)(parsed-app-rands e_39)))" +"(let-values(((lst_221)(parsed-app-rands e_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_222)))" +"(let-values()(check-list lst_221)))" "((letrec-values(((for-loop_106)" -"(lambda(lst_266)" +"(lambda(lst_265)" "(begin" " 'for-loop" -"(if(pair? lst_266)" -"(let-values(((e_94)(unsafe-car lst_266))" -"((rest_194)(unsafe-cdr lst_266)))" +"(if(pair? lst_265)" +"(let-values(((e_94)(unsafe-car lst_265))" +"((rest_194)(unsafe-cdr lst_265)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71164,7 +71178,7 @@ static const char *startup_source = "(if(not #f)(for-loop_106 rest_194)(values))))" "(values))))))" " for-loop_106)" -" lst_222)))" +" lst_221)))" "(void)))" "(if(parsed-if? e_39)" "(let-values()" @@ -71207,15 +71221,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_254)" -"(lambda(lst_90)" +"((letrec-values(((for-loop_253)" +"(lambda(lst_91)" "(begin" " 'for-loop" -"(if(pair? lst_90)" +"(if(pair? lst_91)" "(let-values(((clause_5)" -"(unsafe-car lst_90))" +"(unsafe-car lst_91))" "((rest_150)" -"(unsafe-cdr lst_90)))" +"(unsafe-cdr lst_91)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71228,10 +71242,10 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_254 rest_150)" +"(for-loop_253 rest_150)" "(values))))" "(values))))))" -" for-loop_254)" +" for-loop_253)" " lst_24)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_39))))" @@ -71244,18 +71258,18 @@ static const char *startup_source = "(begin" " 'check-body-no-disallowed-expr" "(begin" -"(let-values(((lst_82) l_48))" +"(let-values(((lst_83) l_48))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_82)))" +"(let-values()(check-list lst_83)))" "((letrec-values(((for-loop_331)" -"(lambda(lst_272)" +"(lambda(lst_271)" "(begin" " 'for-loop" -"(if(pair? lst_272)" -"(let-values(((e_95)(unsafe-car lst_272))" -"((rest_146)(unsafe-cdr lst_272)))" +"(if(pair? lst_271)" +"(let-values(((e_95)(unsafe-car lst_271))" +"((rest_146)(unsafe-cdr lst_271)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71269,7 +71283,7 @@ static const char *startup_source = "(if(not #f)(for-loop_331 rest_146)(values))))" "(values))))))" " for-loop_331)" -" lst_82)))" +" lst_83)))" "(void))))))" "(check-body_0 bodys_13)))))" "(define-values" @@ -71322,7 +71336,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_185 ctx_108)" +"(lambda(s_183 ctx_108)" "(begin" "(if(eq?(expand-context-context ctx_108) 'top-level)" "(void)" @@ -71330,33 +71344,33 @@ static const char *startup_source = "(begin" "(let-values(((obs_122)(expand-context-observer ctx_108)))" "(if obs_122(let-values()(let-values()(call-expand-observe obs_122 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"allowed only at the top level\" s_185))))" +" (raise-syntax-error$1 #f \"allowed only at the top level\" s_183))))" "(let-values()" -"(let-values(((s223_0) s_185)((ctx224_0) ctx_108)((temp225_1) #f))" +"(let-values(((s223_0) s_183)((ctx224_0) ctx_108)((temp225_1) #f))" "(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_0 ctx224_0 temp225_1)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_305 ctx_109)" +"(lambda(s_303 ctx_109)" "(begin" "(let-values(((obs_123)(expand-context-observer ctx_109)))" "(if obs_123(let-values()(let-values()(call-expand-observe obs_123 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_305)))))" +" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_303)))))" "(void" "(add-core-form!*" " '#%module-begin" -"(lambda(s_86 ctx_110)" +"(lambda(s_85 ctx_110)" "(begin" "(let-values(((obs_124)(expand-context-observer ctx_110)))" "(if obs_124(let-values()(let-values()(call-expand-observe obs_124 'prim-module-begin)))(void)))" "(if(eq?(expand-context-context ctx_110) 'module-begin)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_86)))" +" (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_85)))" "(if(expand-context-module-begin-k ctx_110)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_86)))" +" (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_85)))" "((expand-context-module-begin-k ctx_110)" -" s_86" +" s_85" "(let-values(((v_262) ctx_110))" "(let-values(((the-struct_98) v_262))" "(if(expand-context/outer? the-struct_98)" @@ -71411,11 +71425,11 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_728 ctx_111)" +"(lambda(s_726 ctx_111)" "(begin" "(let-values(((obs_125)(expand-context-observer ctx_111)))" "(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-declare)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_728)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_726)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -71466,81 +71480,81 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_24)(syntax-disarm$1 s_16)))" "(let-values(((ok?_73 module228_0 id:module-name229_0 initial-require230_0 body231_0)" -"(let-values(((s_500) disarmed-s_24))" -"(let-values(((orig-s_81) s_500))" +"(let-values(((s_498) disarmed-s_24))" +"(let-values(((orig-s_81) s_498))" "(let-values(((module228_1" " id:module-name229_1" " initial-require230_1" " body231_1)" -"(let-values(((s_312)" -"(if(syntax?$1 s_500)" -"(syntax-e$1 s_500)" -" s_500)))" -"(if(pair? s_312)" +"(let-values(((s_310)" +"(if(syntax?$1 s_498)" +"(syntax-e$1 s_498)" +" s_498)))" +"(if(pair? s_310)" "(let-values(((module232_0)" -"(let-values(((s_501)(car s_312)))" -" s_501))" +"(let-values(((s_499)(car s_310)))" +" s_499))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_731)(cdr s_312)))" -"(let-values(((s_760)" -"(if(syntax?$1 s_731)" -"(syntax-e$1 s_731)" -" s_731)))" -"(if(pair? s_760)" +"(let-values(((s_729)(cdr s_310)))" +"(let-values(((s_758)" +"(if(syntax?$1 s_729)" +"(syntax-e$1 s_729)" +" s_729)))" +"(if(pair? s_758)" "(let-values(((id:module-name236_0)" -"(let-values(((s_486)" +"(let-values(((s_484)" "(car" -" s_760)))" +" s_758)))" "(if(let-values(((or-part_379)" "(if(syntax?$1" -" s_486)" +" s_484)" "(symbol?" "(syntax-e$1" -" s_486))" +" s_484))" " #f)))" "(if or-part_379" " or-part_379" "(symbol?" -" s_486)))" -" s_486" +" s_484)))" +" s_484" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_81" -" s_486))))" +" s_484))))" "((initial-require237_0" " body238_0)" "(let-values(((s_54)" "(cdr" -" s_760)))" -"(let-values(((s_314)" +" s_758)))" +"(let-values(((s_312)" "(if(syntax?$1" " s_54)" "(syntax-e$1" " s_54)" " s_54)))" "(if(pair?" -" s_314)" +" s_312)" "(let-values(((initial-require239_0)" -"(let-values(((s_316)" +"(let-values(((s_314)" "(car" -" s_314)))" -" s_316))" +" s_312)))" +" s_314))" "((body240_0)" -"(let-values(((s_317)" +"(let-values(((s_315)" "(cdr" -" s_314)))" -"(let-values(((s_318)" +" s_312)))" +"(let-values(((s_316)" "(if(syntax?$1" -" s_317)" +" s_315)" "(syntax-e$1" -" s_317)" -" s_317)))" +" s_315)" +" s_315)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_318)))" +" s_316)))" "(if(not" " flat-s_51)" "(let-values()" @@ -71687,7 +71701,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" @@ -71696,7 +71710,7 @@ static const char *startup_source = " #f))))" "(let-values()" "(let-values(((ns262_0)" -" ns_120)" +" ns_121)" "((self263_0)" " self_32)" "((root-ctx264_0)" @@ -71836,77 +71850,77 @@ static const char *startup_source = " _274_1" " _275_1" " body276_0)" -"(let-values(((s_761)" +"(let-values(((s_759)" " scoped-s_0))" "(let-values(((orig-s_82)" -" s_761))" +" s_759))" "(let-values(((_273_2" " _274_2" " _275_2" " body276_1)" -"(let-values(((s_408)" +"(let-values(((s_406)" "(if(syntax?$1" -" s_761)" +" s_759)" "(syntax-e$1" -" s_761)" -" s_761)))" +" s_759)" +" s_759)))" "(if(pair?" -" s_408)" +" s_406)" "(let-values(((_277_1)" -"(let-values(((s_741)" +"(let-values(((s_739)" "(car" -" s_408)))" -" s_741))" +" s_406)))" +" s_739))" "((_278_0" " _279_0" " body280_0)" -"(let-values(((s_208)" +"(let-values(((s_206)" "(cdr" -" s_408)))" -"(let-values(((s_394)" +" s_406)))" +"(let-values(((s_392)" "(if(syntax?$1" -" s_208)" +" s_206)" "(syntax-e$1" -" s_208)" -" s_208)))" +" s_206)" +" s_206)))" "(if(pair?" -" s_394)" +" s_392)" "(let-values(((_281_0)" -"(let-values(((s_211)" +"(let-values(((s_209)" "(car" -" s_394)))" -" s_211))" +" s_392)))" +" s_209))" "((_282_0" " body283_0)" -"(let-values(((s_743)" +"(let-values(((s_741)" "(cdr" -" s_394)))" -"(let-values(((s_94)" +" s_392)))" +"(let-values(((s_93)" "(if(syntax?$1" -" s_743)" +" s_741)" "(syntax-e$1" -" s_743)" -" s_743)))" +" s_741)" +" s_741)))" "(if(pair?" -" s_94)" +" s_93)" "(let-values(((_284_0)" -"(let-values(((s_68)" +"(let-values(((s_67)" "(car" -" s_94)))" -" s_68))" +" s_93)))" +" s_67))" "((body285_0)" -"(let-values(((s_323)" +"(let-values(((s_321)" "(cdr" -" s_94)))" -"(let-values(((s_324)" +" s_93)))" +"(let-values(((s_322)" "(if(syntax?$1" -" s_323)" +" s_321)" "(syntax-e$1" -" s_323)" -" s_323)))" +" s_321)" +" s_321)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_324)))" +" s_322)))" "(if(not" " flat-s_52)" "(let-values()" @@ -72093,7 +72107,7 @@ static const char *startup_source = "(if(expand-context/inner?" " the-struct_103)" "(let-values(((module-begin-k307_0)" -"(lambda(s_302" +"(lambda(s_300" " ctx_114)" "(begin" " 'module-begin-k307" @@ -72130,7 +72144,7 @@ static const char *startup_source = " compiled-module-box313_0)))" "(lambda()" "(module-begin-k_1" -" s_302" +" s_300" " ctx_114))" "(lambda()" "(begin" @@ -72252,38 +72266,38 @@ static const char *startup_source = "(let-values(((ok?_75" " #%module-begin301_0" " body302_0)" -"(let-values(((s_222)" +"(let-values(((s_220)" " disarmed-mb-s_0))" "(let-values(((orig-s_83)" -" s_222))" +" s_220))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_223)" +"(let-values(((s_221)" "(if(syntax?$1" -" s_222)" +" s_220)" "(syntax-e$1" -" s_222)" -" s_222)))" +" s_220)" +" s_220)))" "(if(pair?" -" s_223)" +" s_221)" "(let-values(((#%module-begin303_0)" -"(let-values(((s_120)" +"(let-values(((s_119)" "(car" -" s_223)))" -" s_120))" +" s_221)))" +" s_119))" "((body304_0)" -"(let-values(((s_121)" +"(let-values(((s_120)" "(cdr" -" s_223)))" -"(let-values(((s_762)" +" s_221)))" +"(let-values(((s_760)" "(if(syntax?$1" -" s_121)" +" s_120)" "(syntax-e$1" -" s_121)" -" s_121)))" +" s_120)" +" s_120)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_762)))" +" s_760)))" "(if(not" " flat-s_53)" "(let-values()" @@ -73215,7 +73229,7 @@ static const char *startup_source = "(begin" "(imitate-generic-module-path-index!" " self_32)" -"(let-values(((lst_143)" +"(let-values(((lst_144)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -73224,14 +73238,14 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_143)))" +" lst_144)))" "((letrec-values(((for-loop_140)" "(lambda(lst_420)" "(begin" " 'for-loop" "(if(pair?" " lst_420)" -"(let-values(((mpi_56)" +"(let-values(((mpi_59)" "(unsafe-car" " lst_420))" "((rest_244)" @@ -73244,7 +73258,7 @@ static const char *startup_source = "(begin" "(let-values()" "(imitate-generic-module-path-index!" -" mpi_56))" +" mpi_59))" "(values)))))" "(values)))))" "(if(not" @@ -73254,7 +73268,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_140)" -" lst_143)))" +" lst_144)))" "(void)" "(let-values(((result-s_15)" "(let-values(((rebuild-s423_0)" @@ -73337,7 +73351,7 @@ static const char *startup_source = "(let-values(((ctx_115) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" "(let-values(((phase_154) phase26_3))" -"(let-values(((s_763) s27_2))" +"(let-values(((s_761) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" @@ -73401,7 +73415,7 @@ static const char *startup_source = "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp434_0)(list partly-expanded-body_0))" -"((s435_0) s_763)" +"((s435_0) s_761)" "((scopes-s436_0) scopes-s_0)" "((phase437_0) phase_154)" "((module-name-sym438_0) module-name-sym_1)" @@ -73418,7 +73432,7 @@ static const char *startup_source = " temp439_0)))))))))" "(let-values()" "(let-values(((bodys441_0) bodys_18)" -"((s442_1) s_763)" +"((s442_1) s_761)" "((scopes-s443_0) scopes-s_0)" "((phase444_0) phase_154)" "((module-name-sym445_0) module-name-sym_1)" @@ -73446,7 +73460,7 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_139) s42_0))" +"(let-values(((s_138) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" "(let-values(((phase_155) phase44_1))" "(let-values(((module-name-sym_2) module-name-sym45_0))" @@ -73464,10 +73478,10 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_139)))" +" s_138)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_139 s_139)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_138 s_138)))" "(let-values((()" "(begin" "(let-values(((obs_132)(expand-context-observer mb-ctx_1)))" @@ -73503,7 +73517,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_139" +" s_138" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -73519,13 +73533,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_764)" +"(lambda(s_762)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_764" +" s_762" "(remove-use-site-scopes" -"(remove-scopes s_764(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_762(root-expand-context-module-scopes init-ctx_1))" " init-ctx_1))))" "(let-values(((s-with-edges_0)" "(add-scope(add-scope s-without-enclosing_0 outside-scope_2) inside-scope_1)))" @@ -73716,38 +73730,38 @@ static const char *startup_source = "(let-values(((ok?_76" " begin460_0" " e461_0)" -"(let-values(((s_765)" +"(let-values(((s_763)" " disarmed-exp-body_1))" "(let-values(((orig-s_84)" -" s_765))" +" s_763))" "(let-values(((begin460_1" " e461_1)" -"(let-values(((s_766)" +"(let-values(((s_764)" "(if(syntax?$1" -" s_765)" +" s_763)" "(syntax-e$1" -" s_765)" -" s_765)))" +" s_763)" +" s_763)))" "(if(pair?" -" s_766)" +" s_764)" "(let-values(((begin462_0)" -"(let-values(((s_767)" +"(let-values(((s_765)" "(car" -" s_766)))" -" s_767))" +" s_764)))" +" s_765))" "((e463_0)" -"(let-values(((s_768)" +"(let-values(((s_766)" "(cdr" -" s_766)))" -"(let-values(((s_769)" +" s_764)))" +"(let-values(((s_767)" "(if(syntax?$1" -" s_768)" +" s_766)" "(syntax-e$1" -" s_768)" -" s_768)))" +" s_766)" +" s_766)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" -" s_769)))" +" s_767)))" "(if(not" " flat-s_54)" "(let-values()" @@ -73847,38 +73861,38 @@ static const char *startup_source = "(let-values(((ok?_77" " begin-for-syntax464_0" " e465_0)" -"(let-values(((s_770)" +"(let-values(((s_768)" " disarmed-exp-body_1))" "(let-values(((orig-s_85)" -" s_770))" +" s_768))" "(let-values(((begin-for-syntax464_1" " e465_1)" -"(let-values(((s_771)" +"(let-values(((s_769)" "(if(syntax?$1" -" s_770)" +" s_768)" "(syntax-e$1" -" s_770)" -" s_770)))" +" s_768)" +" s_768)))" "(if(pair?" -" s_771)" +" s_769)" "(let-values(((begin-for-syntax466_0)" -"(let-values(((s_772)" +"(let-values(((s_770)" "(car" -" s_771)))" -" s_772))" +" s_769)))" +" s_770))" "((e467_0)" -"(let-values(((s_773)" +"(let-values(((s_771)" "(cdr" -" s_771)))" -"(let-values(((s_774)" +" s_769)))" +"(let-values(((s_772)" "(if(syntax?$1" -" s_773)" +" s_771)" "(syntax-e$1" -" s_773)" -" s_773)))" +" s_771)" +" s_771)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_774)))" +" s_772)))" "(if(not" " flat-s_55)" "(let-values()" @@ -74024,52 +74038,52 @@ static const char *startup_source = " define-values468_0" " id469_0" " rhs470_0)" -"(let-values(((s_775)" +"(let-values(((s_773)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" -" s_775))" +" s_773))" "(let-values(((define-values468_1" " id469_1" " rhs470_1)" +"(let-values(((s_774)" +"(if(syntax?$1" +" s_773)" +"(syntax-e$1" +" s_773)" +" s_773)))" +"(if(pair?" +" s_774)" +"(let-values(((define-values471_0)" +"(let-values(((s_775)" +"(car" +" s_774)))" +" s_775))" +"((id472_0" +" rhs473_0)" +"(let-values(((s_193)" +"(cdr" +" s_774)))" "(let-values(((s_776)" "(if(syntax?$1" -" s_775)" +" s_193)" "(syntax-e$1" -" s_775)" -" s_775)))" +" s_193)" +" s_193)))" "(if(pair?" " s_776)" -"(let-values(((define-values471_0)" +"(let-values(((id474_0)" "(let-values(((s_777)" "(car" " s_776)))" -" s_777))" -"((id472_0" -" rhs473_0)" -"(let-values(((s_195)" -"(cdr" -" s_776)))" "(let-values(((s_778)" "(if(syntax?$1" -" s_195)" +" s_777)" "(syntax-e$1" -" s_195)" -" s_195)))" -"(if(pair?" -" s_778)" -"(let-values(((id474_0)" -"(let-values(((s_779)" -"(car" -" s_778)))" -"(let-values(((s_780)" -"(if(syntax?$1" -" s_779)" -"(syntax-e$1" -" s_779)" -" s_779)))" +" s_777)" +" s_777)))" "(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_780)))" +" s_778)))" "(if(not" " flat-s_56)" "(let-values()" @@ -74095,7 +74109,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_424)" -"(let-values(((s_781)" +"(let-values(((s_779)" "(unsafe-car" " lst_424))" "((rest_246)" @@ -74110,21 +74124,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_405)" "(if(syntax?$1" -" s_781)" +" s_779)" "(symbol?" "(syntax-e$1" -" s_781))" +" s_779))" " #f)))" "(if or-part_405" " or-part_405" "(symbol?" -" s_781)))" -" s_781" +" s_779)))" +" s_779" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_86" -" s_781)))))" +" s_779)))))" "(cons" " id484_0" " id_154)))))" @@ -74143,34 +74157,34 @@ static const char *startup_source = "(reverse$1" " id_151))))))))" "((rhs475_0)" -"(let-values(((s_782)" +"(let-values(((s_780)" "(cdr" -" s_778)))" -"(let-values(((s_783)" +" s_776)))" +"(let-values(((s_781)" "(if(syntax?$1" -" s_782)" +" s_780)" "(syntax-e$1" -" s_782)" -" s_782)))" +" s_780)" +" s_780)))" "(if(pair?" -" s_783)" +" s_781)" "(let-values(((rhs476_0)" -"(let-values(((s_784)" +"(let-values(((s_782)" "(car" -" s_783)))" -" s_784))" +" s_781)))" +" s_782))" "(()" -"(let-values(((s_785)" +"(let-values(((s_783)" "(cdr" -" s_783)))" -"(let-values(((s_786)" +" s_781)))" +"(let-values(((s_784)" "(if(syntax?$1" -" s_785)" +" s_783)" "(syntax-e$1" -" s_785)" -" s_785)))" +" s_783)" +" s_783)))" "(if(null?" -" s_786)" +" s_784)" "(values)" "(raise-syntax-error$1" " #f" @@ -74349,52 +74363,52 @@ static const char *startup_source = " define-syntaxes493_0" " id494_0" " rhs495_0)" -"(let-values(((s_787)" +"(let-values(((s_785)" " disarmed-exp-body_1))" "(let-values(((orig-s_87)" -" s_787))" +" s_785))" "(let-values(((define-syntaxes493_1" " id494_1" " rhs495_1)" -"(let-values(((s_788)" +"(let-values(((s_786)" "(if(syntax?$1" -" s_787)" +" s_785)" "(syntax-e$1" -" s_787)" -" s_787)))" +" s_785)" +" s_785)))" "(if(pair?" -" s_788)" +" s_786)" "(let-values(((define-syntaxes496_0)" -"(let-values(((s_789)" +"(let-values(((s_787)" "(car" -" s_788)))" -" s_789))" +" s_786)))" +" s_787))" "((id497_0" " rhs498_0)" -"(let-values(((s_790)" +"(let-values(((s_788)" "(cdr" +" s_786)))" +"(let-values(((s_535)" +"(if(syntax?$1" +" s_788)" +"(syntax-e$1" +" s_788)" " s_788)))" -"(let-values(((s_537)" -"(if(syntax?$1" -" s_790)" -"(syntax-e$1" -" s_790)" -" s_790)))" "(if(pair?" -" s_537)" +" s_535)" "(let-values(((id499_0)" -"(let-values(((s_791)" +"(let-values(((s_789)" "(car" -" s_537)))" -"(let-values(((s_538)" +" s_535)))" +"(let-values(((s_536)" "(if(syntax?$1" -" s_791)" +" s_789)" "(syntax-e$1" -" s_791)" -" s_791)))" +" s_789)" +" s_789)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_538)))" +" s_536)))" "(if(not" " flat-s_57)" "(let-values()" @@ -74420,7 +74434,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_426)" -"(let-values(((s_541)" +"(let-values(((s_539)" "(unsafe-car" " lst_426))" "((rest_247)" @@ -74435,21 +74449,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_406)" "(if(syntax?$1" -" s_541)" +" s_539)" "(symbol?" "(syntax-e$1" -" s_541))" +" s_539))" " #f)))" "(if or-part_406" " or-part_406" "(symbol?" -" s_541)))" -" s_541" +" s_539)))" +" s_539" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_87" -" s_541)))))" +" s_539)))))" "(cons" " id509_0" " id_159)))))" @@ -74468,34 +74482,34 @@ static const char *startup_source = "(reverse$1" " id_156))))))))" "((rhs500_0)" -"(let-values(((s_792)" +"(let-values(((s_790)" "(cdr" -" s_537)))" -"(let-values(((s_793)" +" s_535)))" +"(let-values(((s_791)" "(if(syntax?$1" -" s_792)" +" s_790)" "(syntax-e$1" -" s_792)" -" s_792)))" +" s_790)" +" s_790)))" "(if(pair?" -" s_793)" +" s_791)" "(let-values(((rhs501_0)" -"(let-values(((s_794)" +"(let-values(((s_792)" "(car" -" s_793)))" -" s_794))" +" s_791)))" +" s_792))" "(()" -"(let-values(((s_795)" +"(let-values(((s_793)" "(cdr" -" s_793)))" -"(let-values(((s_796)" +" s_791)))" +"(let-values(((s_794)" "(if(syntax?$1" -" s_795)" +" s_793)" "(syntax-e$1" -" s_795)" -" s_795)))" +" s_793)" +" s_793)))" "(if(null?" -" s_796)" +" s_794)" "(values)" "(raise-syntax-error$1" " #f" @@ -74894,38 +74908,38 @@ static const char *startup_source = "(let-values(((ok?_80" " #%require530_0" " req531_0)" -"(let-values(((s_797)" +"(let-values(((s_795)" " ready-body_0))" "(let-values(((orig-s_88)" -" s_797))" +" s_795))" "(let-values(((#%require530_1" " req531_1)" -"(let-values(((s_798)" +"(let-values(((s_796)" "(if(syntax?$1" -" s_797)" +" s_795)" "(syntax-e$1" -" s_797)" -" s_797)))" +" s_795)" +" s_795)))" "(if(pair?" -" s_798)" +" s_796)" "(let-values(((#%require532_0)" -"(let-values(((s_799)" +"(let-values(((s_797)" "(car" -" s_798)))" -" s_799))" +" s_796)))" +" s_797))" "((req533_0)" -"(let-values(((s_800)" +"(let-values(((s_798)" "(cdr" -" s_798)))" -"(let-values(((s_801)" +" s_796)))" +"(let-values(((s_799)" "(if(syntax?$1" -" s_800)" +" s_798)" "(syntax-e$1" -" s_800)" -" s_800)))" +" s_798)" +" s_798)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_801)))" +" s_799)))" "(if(not" " flat-s_58)" "(let-values()" @@ -75098,38 +75112,38 @@ static const char *startup_source = "(let-values(((ok?_81" " #%declare551_0" " kw552_0)" -"(let-values(((s_802)" +"(let-values(((s_800)" " disarmed-exp-body_1))" "(let-values(((orig-s_89)" -" s_802))" +" s_800))" "(let-values(((#%declare551_1" " kw552_1)" -"(let-values(((s_803)" +"(let-values(((s_801)" "(if(syntax?$1" -" s_802)" +" s_800)" "(syntax-e$1" -" s_802)" -" s_802)))" +" s_800)" +" s_800)))" "(if(pair?" -" s_803)" +" s_801)" "(let-values(((#%declare553_0)" -"(let-values(((s_804)" +"(let-values(((s_802)" "(car" -" s_803)))" -" s_804))" +" s_801)))" +" s_802))" "((kw554_0)" -"(let-values(((s_557)" +"(let-values(((s_555)" "(cdr" -" s_803)))" -"(let-values(((s_558)" +" s_801)))" +"(let-values(((s_556)" "(if(syntax?$1" -" s_557)" +" s_555)" "(syntax-e$1" -" s_557)" -" s_557)))" +" s_555)" +" s_555)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_558)))" +" s_556)))" "(if(not" " flat-s_59)" "(let-values()" @@ -75329,7 +75343,7 @@ static const char *startup_source = " self557_0" " phase558_0" " all-scopes-stx559_0))))" -"(let-values(((s_805)" +"(let-values(((s_803)" "(add-scope" "(datum->syntax$1" " #f" @@ -75338,7 +75352,7 @@ static const char *startup_source = " scoped-ids_0" " rhs_24))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_805 syms_26 scoped-ids_0 rhs_24)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_803 syms_26 scoped-ids_0 rhs_24)))))))))" "(define-values" "(add-post-expansion-scope)" "(lambda(bodys_23 ctx_116)" @@ -75474,86 +75488,86 @@ static const char *startup_source = "(let-values(((syms_27)" "(semi-parsed-define-values-syms" " body_24)))" -"(let-values(((s_806)" +"(let-values(((s_804)" "(semi-parsed-define-values-s" " body_24)))" "(let-values(((ok?_82" " define-values562_0" " _563_0" " _564_0)" -"(let-values(((s_807)" +"(let-values(((s_805)" "(syntax-disarm$1" -" s_806)))" +" s_804)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_90)" -" s_807))" +" s_805))" "(let-values(((define-values562_1" " _563_1" " _564_1)" -"(let-values(((s_808)" +"(let-values(((s_806)" "(if(syntax?$1" -" s_807)" +" s_805)" "(syntax-e$1" -" s_807)" -" s_807)))" +" s_805)" +" s_805)))" "(if(pair?" -" s_808)" +" s_806)" "(let-values(((define-values565_0)" -"(let-values(((s_809)" +"(let-values(((s_807)" "(car" -" s_808)))" -" s_809))" +" s_806)))" +" s_807))" "((_566_0" " _567_0)" -"(let-values(((s_615)" +"(let-values(((s_613)" "(cdr" -" s_808)))" -"(let-values(((s_616)" +" s_806)))" +"(let-values(((s_614)" "(if(syntax?$1" -" s_615)" +" s_613)" "(syntax-e$1" -" s_615)" -" s_615)))" +" s_613)" +" s_613)))" "(if(pair?" -" s_616)" +" s_614)" "(let-values(((_568_0)" -"(let-values(((s_810)" +"(let-values(((s_808)" "(car" -" s_616)))" -" s_810))" +" s_614)))" +" s_808))" "((_569_0)" -"(let-values(((s_811)" +"(let-values(((s_809)" "(cdr" -" s_616)))" -"(let-values(((s_812)" +" s_614)))" +"(let-values(((s_810)" "(if(syntax?$1" -" s_811)" +" s_809)" "(syntax-e$1" -" s_811)" -" s_811)))" +" s_809)" +" s_809)))" "(if(pair?" -" s_812)" +" s_810)" "(let-values(((_570_0)" -"(let-values(((s_813)" +"(let-values(((s_811)" "(car" -" s_812)))" -" s_813))" +" s_810)))" +" s_811))" "(()" -"(let-values(((s_814)" +"(let-values(((s_812)" "(cdr" -" s_812)))" -"(let-values(((s_815)" +" s_810)))" +"(let-values(((s_813)" "(if(syntax?$1" -" s_814)" +" s_812)" "(syntax-e$1" -" s_814)" -" s_814)))" +" s_812)" +" s_812)))" "(if(null?" -" s_815)" +" s_813)" "(values)" "(raise-syntax-error$1" " #f" @@ -75594,7 +75608,7 @@ static const char *startup_source = "(let-values(((rhs-ctx571_0)" " rhs-ctx_2)" "((s572_0)" -" s_806)" +" s_804)" "((temp573_0)" " #t))" "(keep-as-needed85.1" @@ -75984,35 +75998,35 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_83 #%provide595_0 spec596_0)" -"(let-values(((s_637) disarmed-body_1))" -"(let-values(((orig-s_91) s_637))" +"(let-values(((s_635) disarmed-body_1))" +"(let-values(((orig-s_91) s_635))" "(let-values(((#%provide595_1" " spec596_1)" -"(let-values(((s_816)" +"(let-values(((s_814)" "(if(syntax?$1" -" s_637)" +" s_635)" "(syntax-e$1" -" s_637)" -" s_637)))" -"(if(pair? s_816)" +" s_635)" +" s_635)))" +"(if(pair? s_814)" "(let-values(((#%provide597_0)" -"(let-values(((s_817)" +"(let-values(((s_815)" "(car" -" s_816)))" -" s_817))" +" s_814)))" +" s_815))" "((spec598_0)" -"(let-values(((s_818)" +"(let-values(((s_816)" "(cdr" -" s_816)))" -"(let-values(((s_819)" +" s_814)))" +"(let-values(((s_817)" "(if(syntax?$1" -" s_818)" +" s_816)" "(syntax-e$1" -" s_818)" -" s_818)))" +" s_816)" +" s_816)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_819)))" +" s_817)))" "(if(not" " flat-s_60)" "(let-values()" @@ -76300,16 +76314,16 @@ static const char *startup_source = " compiled-module615_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_659 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_657 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_820)" -"(syntax-property$1 s_659 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_821)" +"(let-values(((s_818)" +"(syntax-property$1 s_657 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_819)" "(syntax-property$1" -" s_820" +" s_818" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_821)))))" +" s_819)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -76354,37 +76368,37 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-s" " body_25)))" "(let-values(((ok?_84 begin-for-syntax617_0 _618_0)" -"(let-values(((s_822)" +"(let-values(((s_820)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_92) s_822))" +"(let-values(((orig-s_92) s_820))" "(let-values(((begin-for-syntax617_1" " _618_1)" -"(let-values(((s_823)" +"(let-values(((s_821)" "(if(syntax?$1" -" s_822)" +" s_820)" "(syntax-e$1" -" s_822)" -" s_822)))" -"(if(pair? s_823)" +" s_820)" +" s_820)))" +"(if(pair? s_821)" "(let-values(((begin-for-syntax619_0)" -"(let-values(((s_824)" +"(let-values(((s_822)" "(car" -" s_823)))" -" s_824))" +" s_821)))" +" s_822))" "((_620_0)" -"(let-values(((s_825)" +"(let-values(((s_823)" "(cdr" -" s_823)))" -"(let-values(((s_826)" +" s_821)))" +"(let-values(((s_824)" "(if(syntax?$1" -" s_825)" +" s_823)" "(syntax-e$1" -" s_825)" -" s_825)))" +" s_823)" +" s_823)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_826)))" +" s_824)))" "(if(not" " flat-s_61)" "(let-values()" @@ -76475,60 +76489,60 @@ static const char *startup_source = " module*625_0" " name626_0" " _627_0)" -"(let-values(((s_827)" +"(let-values(((s_825)" " disarmed-body_2))" -"(if(let-values(((s_828)" +"(if(let-values(((s_826)" "(if(syntax?$1" -" s_827)" +" s_825)" "(syntax-e$1" -" s_827)" -" s_827)))" -"(if(pair? s_828)" -"(if(let-values(((s_829)" +" s_825)" +" s_825)))" +"(if(pair? s_826)" +"(if(let-values(((s_827)" "(car" -" s_828)))" +" s_826)))" " #t)" -"(let-values(((s_830)" +"(let-values(((s_828)" "(cdr" -" s_828)))" -"(let-values(((s_831)" +" s_826)))" +"(let-values(((s_829)" "(if(syntax?$1" -" s_830)" +" s_828)" "(syntax-e$1" -" s_830)" -" s_830)))" +" s_828)" +" s_828)))" "(if(pair?" -" s_831)" -"(if(let-values(((s_832)" +" s_829)" +"(if(let-values(((s_830)" "(car" -" s_831)))" +" s_829)))" " #t)" -"(let-values(((s_833)" +"(let-values(((s_831)" "(cdr" +" s_829)))" +"(let-values(((s_832)" +"(if(syntax?$1" +" s_831)" +"(syntax-e$1" +" s_831)" " s_831)))" +"(if(pair?" +" s_832)" +"(if(let-values(((s_833)" +"(car" +" s_832)))" "(let-values(((s_834)" "(if(syntax?$1" " s_833)" "(syntax-e$1" " s_833)" " s_833)))" -"(if(pair?" -" s_834)" -"(if(let-values(((s_835)" -"(car" -" s_834)))" -"(let-values(((s_836)" -"(if(syntax?$1" -" s_835)" -"(syntax-e$1" -" s_835)" -" s_835)))" "(eq?" " #f" -" s_836)))" -"(let-values(((s_837)" -"(cdr" " s_834)))" +"(let-values(((s_835)" +"(cdr" +" s_832)))" " #t)" " #f)" " #f)))" @@ -76540,59 +76554,59 @@ static const char *startup_source = "(let-values(((module*625_1" " name626_1" " _627_1)" -"(let-values(((s_838)" +"(let-values(((s_836)" "(if(syntax?$1" -" s_827)" +" s_825)" "(syntax-e$1" -" s_827)" -" s_827)))" +" s_825)" +" s_825)))" "(let-values(((module*628_0)" -"(let-values(((s_839)" +"(let-values(((s_837)" "(car" -" s_838)))" -" s_839))" +" s_836)))" +" s_837))" "((name629_0" " _630_0)" -"(let-values(((s_840)" +"(let-values(((s_838)" "(cdr" -" s_838)))" -"(let-values(((s_841)" +" s_836)))" +"(let-values(((s_839)" "(if(syntax?$1" -" s_840)" +" s_838)" "(syntax-e$1" -" s_840)" -" s_840)))" +" s_838)" +" s_838)))" "(let-values(((name631_0)" -"(let-values(((s_842)" +"(let-values(((s_840)" "(car" -" s_841)))" -" s_842))" +" s_839)))" +" s_840))" "((_632_0)" -"(let-values(((s_843)" +"(let-values(((s_841)" "(cdr" +" s_839)))" +"(let-values(((s_842)" +"(if(syntax?$1" +" s_841)" +"(syntax-e$1" +" s_841)" " s_841)))" -"(let-values(((s_844)" +"(let-values((()" +"(let-values(((s_843)" +"(car" +" s_842)))" +"(let-values(((s_672)" "(if(syntax?$1" " s_843)" "(syntax-e$1" " s_843)" " s_843)))" -"(let-values((()" -"(let-values(((s_845)" -"(car" -" s_844)))" -"(let-values(((s_674)" -"(if(syntax?$1" -" s_845)" -"(syntax-e$1" -" s_845)" -" s_845)))" "(values))))" "((_633_0)" -"(let-values(((s_846)" +"(let-values(((s_844)" "(cdr" +" s_842)))" " s_844)))" -" s_846)))" "(values" " _633_0))))))" "(values" @@ -76757,7 +76771,7 @@ static const char *startup_source = "(let-values(((ids_47) ids170_0))" "(let-values(((phase_164) phase171_1))" "(let-values(((requires+provides_12) requires+provides172_0))" -"(let-values(((s_705) in168_0))" +"(let-values(((s_703) in168_0))" "(let-values()" "(begin" "(let-values(((lst_441) ids_47))" @@ -76783,7 +76797,7 @@ static const char *startup_source = "((id656_0) id_164)" "((phase657_0)" " phase_164)" -"((s658_0) s_705)" +"((s658_0) s_703)" "((temp659_0) 'module))" "(check-not-defined95.1" " #f" @@ -77001,7 +77015,7 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_847) s194_0))" +"(let-values(((s_845) s194_0))" "(let-values(((self_42) self195_0))" "(let-values(((ctx_122) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" @@ -77030,42 +77044,42 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_158 'enter-prim s_847)" +"(call-expand-observe obs_158 'enter-prim s_845)" "(call-expand-observe" " obs_158" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" "(let-values(((ok?_86 module662_0 name663_0 _664_0)" -"(let-values(((s_848) s_847))" -"(let-values(((orig-s_93) s_848))" +"(let-values(((s_846) s_845))" +"(let-values(((orig-s_93) s_846))" "(let-values(((module662_1 name663_1 _664_1)" -"(let-values(((s_849)" -"(if(syntax?$1 s_848)" -"(syntax-e$1 s_848)" -" s_848)))" -"(if(pair? s_849)" +"(let-values(((s_847)" +"(if(syntax?$1 s_846)" +"(syntax-e$1 s_846)" +" s_846)))" +"(if(pair? s_847)" "(let-values(((module665_0)" -"(let-values(((s_850)(car s_849)))" -" s_850))" +"(let-values(((s_848)(car s_847)))" +" s_848))" "((name666_0 _667_0)" -"(let-values(((s_851)(cdr s_849)))" -"(let-values(((s_852)" +"(let-values(((s_849)(cdr s_847)))" +"(let-values(((s_850)" "(if(syntax?$1" -" s_851)" -"(syntax-e$1 s_851)" -" s_851)))" -"(if(pair? s_852)" +" s_849)" +"(syntax-e$1 s_849)" +" s_849)))" +"(if(pair? s_850)" "(let-values(((name668_0)" -"(let-values(((s_853)" +"(let-values(((s_851)" "(car" -" s_852)))" -" s_853))" +" s_850)))" +" s_851))" "((_669_0)" -"(let-values(((s_854)" +"(let-values(((s_852)" "(cdr" +" s_850)))" " s_852)))" -" s_854)))" "(values name668_0 _669_0))" "(raise-syntax-error$1" " #f" @@ -77085,7 +77099,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_847" +" s_845" " name_80))" "(void))" "(values))))" @@ -77102,11 +77116,11 @@ static const char *startup_source = "(if obs_159" "(let-values()" "(let-values()" -"(call-expand-observe obs_159 'enter-prim s_847)))" +"(call-expand-observe obs_159 'enter-prim s_845)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s670_0) s_847)" +"(let-values(((s670_0) s_845)" "((temp671_0)" "(let-values(((v_271) ctx_122))" "(let-values(((the-struct_118) v_271))" @@ -77251,7 +77265,7 @@ static const char *startup_source = "(extract-syntax submod_5))))" "(void)))" "(values))))" -"(let-values(((ns_129)(expand-context-namespace ctx_122)))" +"(let-values(((ns_130)(expand-context-namespace ctx_122)))" "(let-values(((module-name_3)(1/module-path-index-resolve self_42)))" "(let-values(((root-module-name_1)" "(resolved-module-path-root-name module-name_3)))" @@ -77261,7 +77275,7 @@ static const char *startup_source = "(expanded+parsed-parsed submod_5)" " submod_5))" "((temp685_0)" -"(let-values(((ns690_0) ns_129)" +"(let-values(((ns690_0) ns_130)" "((self691_0) self_42)" "((temp692_0)" "(1/resolved-module-path-name" @@ -77309,7 +77323,7 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -" ns_129" +" ns_130" " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_1))" "(let-values()" @@ -77502,37 +77516,37 @@ static const char *startup_source = "(let-values(((requires+provides_13) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_855 phase_167)" +"(lambda(s_853 phase_167)" "(let-values(((ok?_87 #%require706_0 req707_0)" -"(let-values(((s_856)(syntax-disarm$1 s_855)))" -"(let-values(((orig-s_94) s_856))" +"(let-values(((s_854)(syntax-disarm$1 s_853)))" +"(let-values(((orig-s_94) s_854))" "(let-values(((#%require706_1 req707_1)" -"(let-values(((s_857)" -"(if(syntax?$1 s_856)(syntax-e$1 s_856) s_856)))" -"(if(pair? s_857)" +"(let-values(((s_855)" +"(if(syntax?$1 s_854)(syntax-e$1 s_854) s_854)))" +"(if(pair? s_855)" "(let-values(((#%require708_0)" -"(let-values(((s_858)(car s_857))) s_858))" +"(let-values(((s_856)(car s_855))) s_856))" "((req709_0)" -"(let-values(((s_859)(cdr s_857)))" -"(let-values(((s_860)" -"(if(syntax?$1 s_859)" -"(syntax-e$1 s_859)" -" s_859)))" -"(if(pair? s_860)" +"(let-values(((s_857)(cdr s_855)))" +"(let-values(((s_858)" +"(if(syntax?$1 s_857)" +"(syntax-e$1 s_857)" +" s_857)))" +"(if(pair? s_858)" "(let-values(((req710_0)" -"(let-values(((s_861)" -"(car s_860)))" -" s_861))" +"(let-values(((s_859)" +"(car s_858)))" +" s_859))" "(()" -"(let-values(((s_862)" -"(cdr s_860)))" -"(let-values(((s_863)" +"(let-values(((s_860)" +"(cdr s_858)))" +"(let-values(((s_861)" "(if(syntax?$1" -" s_862)" +" s_860)" "(syntax-e$1" -" s_862)" -" s_862)))" -"(if(null? s_863)" +" s_860)" +" s_860)))" +"(if(null? s_861)" "(values)" "(raise-syntax-error$1" " #f" @@ -77547,7 +77561,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_94)))))" "(values #t #%require706_1 req707_1))))))" "(let-values(((temp711_0)(list req707_0))" -"((s712_0) s_855)" +"((s712_0) s_853)" "((self713_0) self_44)" "((m-ns714_0) m-ns_23)" "((phase715_0) phase_167)" @@ -77653,38 +77667,38 @@ static const char *startup_source = "(let-values(((ok?_88" " define-values724_0" " _725_0)" -"(let-values(((s_864)" +"(let-values(((s_862)" " s-lifted-defn_0))" "(let-values(((orig-s_95)" -" s_864))" +" s_862))" "(let-values(((define-values724_1" " _725_1)" -"(let-values(((s_865)" +"(let-values(((s_863)" "(if(syntax?$1" -" s_864)" +" s_862)" "(syntax-e$1" -" s_864)" -" s_864)))" +" s_862)" +" s_862)))" "(if(pair?" -" s_865)" +" s_863)" "(let-values(((define-values726_0)" -"(let-values(((s_866)" +"(let-values(((s_864)" "(car" -" s_865)))" -" s_866))" +" s_863)))" +" s_864))" "((_727_0)" -"(let-values(((s_867)" +"(let-values(((s_865)" "(cdr" -" s_865)))" -"(let-values(((s_868)" +" s_863)))" +"(let-values(((s_866)" "(if(syntax?$1" -" s_867)" +" s_865)" "(syntax-e$1" -" s_867)" -" s_867)))" +" s_865)" +" s_865)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_868)))" +" s_866)))" "(if(not" " flat-s_62)" "(let-values()" @@ -77756,16 +77770,16 @@ static const char *startup_source = "(values))))" "(let-values()" "(let-values(((ok?_89 form-id720_0 _721_0)" -"(let-values(((s_869) exp-body_10))" -"(let-values(((orig-s_96) s_869))" +"(let-values(((s_867) exp-body_10))" +"(let-values(((orig-s_96) s_867))" "(let-values(((form-id720_1 _721_1)" -"(let-values(((s_870)" -"(if(syntax?$1 s_869)(syntax-e$1 s_869) s_869)))" -"(if(pair? s_870)" +"(let-values(((s_868)" +"(if(syntax?$1 s_867)(syntax-e$1 s_867) s_867)))" +"(if(pair? s_868)" "(let-values(((form-id722_0)" -"(let-values(((s_871)(car s_870))) s_871))" +"(let-values(((s_869)(car s_868))) s_869))" "((_723_0)" -"(let-values(((s_872)(cdr s_870))) s_872)))" +"(let-values(((s_870)(cdr s_868))) s_870)))" "(values form-id722_0 _723_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" "(values #t form-id720_1 _721_1))))))" @@ -77787,20 +77801,20 @@ static const char *startup_source = "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" "(let-values(((ok?_90 define-values728_0 _729_0)" -"(let-values(((s_873) s-defn_0))" -"(let-values(((orig-s_97) s_873))" +"(let-values(((s_871) s-defn_0))" +"(let-values(((orig-s_97) s_871))" "(let-values(((define-values728_1 _729_1)" -"(let-values(((s_874)(if(syntax?$1 s_873)(syntax-e$1 s_873) s_873)))" -"(if(pair? s_874)" +"(let-values(((s_872)(if(syntax?$1 s_871)(syntax-e$1 s_871) s_871)))" +"(if(pair? s_872)" "(let-values(((define-values730_0)" -"(let-values(((s_875)(car s_874))) s_875))" +"(let-values(((s_873)(car s_872))) s_873))" "((_731_0)" -"(let-values(((s_876)(cdr s_874)))" -"(let-values(((s_877)" -"(if(syntax?$1 s_876)" -"(syntax-e$1 s_876)" -" s_876)))" -"(let-values(((flat-s_63)(to-syntax-list.1 s_877)))" +"(let-values(((s_874)(cdr s_872)))" +"(let-values(((s_875)" +"(if(syntax?$1 s_874)" +"(syntax-e$1 s_874)" +" s_874)))" +"(let-values(((flat-s_63)(to-syntax-list.1 s_875)))" "(if(not flat-s_63)" "(let-values()" "(raise-syntax-error$1" @@ -77833,7 +77847,7 @@ static const char *startup_source = "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_49 s_69 ctx_126)" +"(lambda(ids_49 s_68 ctx_126)" "(begin" "(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_126)))" "(let-values(((tl-ids_2)" @@ -77844,12 +77858,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_6)))" "((letrec-values(((for-loop_104)" -"(lambda(fold-var_406 lst_85)" +"(lambda(fold-var_406 lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((id_166)(unsafe-car lst_85))" -"((rest_40)(unsafe-cdr lst_85)))" +"(if(pair? lst_86)" +"(let-values(((id_166)(unsafe-car lst_86))" +"((rest_40)(unsafe-cdr lst_86)))" "(let-values(((fold-var_61)" "(let-values(((fold-var_62) fold-var_406))" "(let-values(((fold-var_407)" @@ -77868,23 +77882,23 @@ static const char *startup_source = " lst_6))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_126))((s3_4) s_69))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_126))((s3_4) s_68))" "(check-no-duplicate-ids8.1 #f #f tl-ids1_0 temp2_9 s3_4 #f #f))" "(values))))" "(let-values(((tmp-bind-ids_0)" "(reverse$1" -"(let-values(((lst_100) tl-ids_2))" +"(let-values(((lst_101) tl-ids_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_100)))" +"(let-values()(check-list lst_101)))" "((letrec-values(((for-loop_347)" -"(lambda(fold-var_217 lst_86)" +"(lambda(fold-var_217 lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((id_167)(unsafe-car lst_86))" -"((rest_242)(unsafe-cdr lst_86)))" +"(if(pair? lst_87)" +"(let-values(((id_167)(unsafe-car lst_87))" +"((rest_242)(unsafe-cdr lst_87)))" "(let-values(((fold-var_26)" "(let-values(((fold-var_152) fold-var_217))" "(let-values(((fold-var_220)" @@ -77902,7 +77916,7 @@ static const char *startup_source = " fold-var_217)))))" " for-loop_347)" " null" -" lst_100))))))" +" lst_101))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_126)))))))))" "(void" "(add-core-form!*" @@ -77923,25 +77937,25 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_24 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_173) s_0))" -"(let-values(((orig-s_98) s_173))" +"(let-values(((s_171) s_0))" +"(let-values(((orig-s_98) s_171))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_40)(if(syntax?$1 s_173)(syntax-e$1 s_173) s_173)))" +"(let-values(((s_40)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" "(if(pair? s_40)" -"(let-values(((define-values4_0)(let-values(((s_73)(car s_40))) s_73))" +"(let-values(((define-values4_0)(let-values(((s_72)(car s_40))) s_72))" "((id5_0 rhs6_0)" "(let-values(((s_41)(cdr s_40)))" -"(let-values(((s_175)" +"(let-values(((s_173)" "(if(syntax?$1 s_41)" "(syntax-e$1 s_41)" " s_41)))" -"(if(pair? s_175)" +"(if(pair? s_173)" "(let-values(((id7_0)" -"(let-values(((s_160)(car s_175)))" +"(let-values(((s_158)(car s_173)))" "(let-values(((s_5)" -"(if(syntax?$1 s_160)" -"(syntax-e$1 s_160)" -" s_160)))" +"(if(syntax?$1 s_158)" +"(syntax-e$1 s_158)" +" s_158)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" " s_5)))" @@ -77962,19 +77976,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_24)))" -"((letrec-values(((for-loop_254)" +"((letrec-values(((for-loop_253)" "(lambda(id_6" -" lst_80)" +" lst_81)" "(begin" " 'for-loop" "(if(pair?" -" lst_80)" -"(let-values(((s_184)" +" lst_81)" +"(let-values(((s_182)" "(unsafe-car" -" lst_80))" +" lst_81))" "((rest_141)" "(unsafe-cdr" -" lst_80)))" +" lst_81)))" "(let-values(((id_169)" "(let-values(((id_52)" " id_6))" @@ -77984,21 +77998,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_53)" "(if(syntax?$1" -" s_184)" +" s_182)" "(symbol?" "(syntax-e$1" -" s_184))" +" s_182))" " #f)))" "(if or-part_53" " or-part_53" "(symbol?" -" s_184)))" -" s_184" +" s_182)))" +" s_182" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_98" -" s_184)))))" +" s_182)))))" "(cons" " id10_1" " id_52)))))" @@ -78006,37 +78020,37 @@ static const char *startup_source = " id_170)))))" "(if(not" " #f)" -"(for-loop_254" +"(for-loop_253" " id_169" " rest_141)" " id_169)))" " id_6)))))" -" for-loop_254)" +" for-loop_253)" " null" " lst_24)))))" "(reverse$1 id_168))))))))" "((rhs8_0)" -"(let-values(((s_85)(cdr s_175)))" -"(let-values(((s_385)" -"(if(syntax?$1 s_85)" -"(syntax-e$1 s_85)" -" s_85)))" -"(if(pair? s_385)" +"(let-values(((s_84)(cdr s_173)))" +"(let-values(((s_383)" +"(if(syntax?$1 s_84)" +"(syntax-e$1 s_84)" +" s_84)))" +"(if(pair? s_383)" "(let-values(((rhs9_0)" "(let-values(((s_43)" "(car" -" s_385)))" +" s_383)))" " s_43))" "(()" -"(let-values(((s_305)" +"(let-values(((s_303)" "(cdr" -" s_385)))" +" s_383)))" "(let-values(((s_35)" "(if(syntax?$1" -" s_305)" +" s_303)" "(syntax-e$1" -" s_305)" -" s_305)))" +" s_303)" +" s_303)))" "(if(null?" " s_35)" "(values)" @@ -78066,7 +78080,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_878 ctx_127)" +"(lambda(s_876 ctx_127)" "(let-values((()" "(begin" "(let-values(((obs_166)(expand-context-observer ctx_127)))" @@ -78083,33 +78097,33 @@ static const char *startup_source = "(begin" "(if(eq?(expand-context-context ctx_127) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_878)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_876)))" "(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_878)))" +"(let-values(((disarmed-s_26)(syntax-disarm$1 s_876)))" "(let-values(((ok?_91 define-syntaxes15_0 id16_1 rhs17_0)" -"(let-values(((s_428) disarmed-s_26))" -"(let-values(((orig-s_99) s_428))" +"(let-values(((s_426) disarmed-s_26))" +"(let-values(((orig-s_99) s_426))" "(let-values(((define-syntaxes15_1 id16_2 rhs17_1)" -"(let-values(((s_20)(if(syntax?$1 s_428)(syntax-e$1 s_428) s_428)))" +"(let-values(((s_20)(if(syntax?$1 s_426)(syntax-e$1 s_426) s_426)))" "(if(pair? s_20)" "(let-values(((define-syntaxes18_0)" "(let-values(((s_23)(car s_20))) s_23))" "((id19_1 rhs20_0)" -"(let-values(((s_463)(cdr s_20)))" +"(let-values(((s_461)(cdr s_20)))" "(let-values(((s_24)" -"(if(syntax?$1 s_463)" -"(syntax-e$1 s_463)" -" s_463)))" +"(if(syntax?$1 s_461)" +"(syntax-e$1 s_461)" +" s_461)))" "(if(pair? s_24)" "(let-values(((id21_0)" -"(let-values(((s_729)(car s_24)))" -"(let-values(((s_470)" -"(if(syntax?$1 s_729)" -"(syntax-e$1 s_729)" -" s_729)))" +"(let-values(((s_727)(car s_24)))" +"(let-values(((s_468)" +"(if(syntax?$1 s_727)" +"(syntax-e$1 s_727)" +" s_727)))" "(let-values(((flat-s_65)" "(to-syntax-list.1" -" s_470)))" +" s_468)))" "(if(not flat-s_65)" "(let-values()" "(raise-syntax-error$1" @@ -78134,7 +78148,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_457)" -"(let-values(((s_150)" +"(let-values(((s_149)" "(unsafe-car" " lst_457))" "((rest_262)" @@ -78149,21 +78163,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_362)" "(if(syntax?$1" -" s_150)" +" s_149)" "(symbol?" "(syntax-e$1" -" s_150))" +" s_149))" " #f)))" "(if or-part_362" " or-part_362" "(symbol?" -" s_150)))" -" s_150" +" s_149)))" +" s_149" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_99" -" s_150)))))" +" s_149)))))" "(cons" " id24_1" " id_97)))))" @@ -78181,29 +78195,29 @@ static const char *startup_source = " lst_180)))))" "(reverse$1 id_171))))))))" "((rhs22_0)" -"(let-values(((s_497)(cdr s_24)))" -"(let-values(((s_478)" -"(if(syntax?$1 s_497)" -"(syntax-e$1 s_497)" -" s_497)))" -"(if(pair? s_478)" +"(let-values(((s_495)(cdr s_24)))" +"(let-values(((s_476)" +"(if(syntax?$1 s_495)" +"(syntax-e$1 s_495)" +" s_495)))" +"(if(pair? s_476)" "(let-values(((rhs23_2)" -"(let-values(((s_169)" +"(let-values(((s_167)" "(car" -" s_478)))" -" s_169))" +" s_476)))" +" s_167))" "(()" "(let-values(((s_44)" "(cdr" -" s_478)))" -"(let-values(((s_479)" +" s_476)))" +"(let-values(((s_477)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(null?" -" s_479)" +" s_477)" "(values)" "(raise-syntax-error$1" " #f" @@ -78222,37 +78236,37 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_1 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_99)))))" "(values #t define-syntaxes15_1 id16_2 rhs17_1))))))" -"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_1 s_878 ctx_127)))" +"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_1 s_876 ctx_127)))" "(let-values(((exp-rhs_10)" "(let-values(((temp25_7) rhs17_0)((temp26_6)(as-named-context ctx_127 ids_51)))" "(expand-transformer58.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_7 temp26_6))))" "(if(expand-context-to-parsed? ctx_127)" -"(parsed-define-syntaxes20.1 s_878 ids_51 syms_29 exp-rhs_10)" -"(let-values(((s27_3) s_878)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_10)))" +"(parsed-define-syntaxes20.1 s_876 ids_51 syms_29 exp-rhs_10)" +"(let-values(((s27_3) s_876)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_10)))" "(rebuild5.1 #f #f s27_3 temp28_7)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_482 ctx_10)" +"(lambda(s_480 ctx_10)" "(let-values((()" "(begin" "(if(eq?(expand-context-context ctx_10) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_482)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_480)))" "(values))))" "(let-values(((ok?_92 begin-for-syntax29_0 form30_0)" -"(let-values(((s_423) s_482))" -"(let-values(((orig-s_100) s_423))" +"(let-values(((s_421) s_480))" +"(let-values(((orig-s_100) s_421))" "(let-values(((begin-for-syntax29_1 form30_1)" -"(let-values(((s_424)(if(syntax?$1 s_423)(syntax-e$1 s_423) s_423)))" -"(if(pair? s_424)" +"(let-values(((s_422)(if(syntax?$1 s_421)(syntax-e$1 s_421) s_421)))" +"(if(pair? s_422)" "(let-values(((begin-for-syntax31_0)" -"(let-values(((s_31)(car s_424))) s_31))" +"(let-values(((s_31)(car s_422))) s_31))" "((form32_0)" -"(let-values(((s_46)(cdr s_424)))" -"(let-values(((s_151)" +"(let-values(((s_46)(cdr s_422)))" +"(let-values(((s_150)" "(if(syntax?$1 s_46)(syntax-e$1 s_46) s_46)))" -"(let-values(((flat-s_66)(to-syntax-list.1 s_151)))" +"(let-values(((flat-s_66)(to-syntax-list.1 s_150)))" "(if(not flat-s_66)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_100))" @@ -78354,7 +78368,7 @@ static const char *startup_source = "(call-expand-observe" " obs_16" " 'enter-list" -"(datum->syntax$1 #f form30_0 s_482))))" +"(datum->syntax$1 #f form30_0 s_480))))" "(void)))" "(values))))" "(let-values(((exp-forms_0)" @@ -78380,7 +78394,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" " forms_2" -" s_482))))" +" s_480))))" "(void)))" " forms_2)))" "(let-values()" @@ -78461,8 +78475,8 @@ static const char *startup_source = " loop_87)" " form30_0)))" "(if(expand-context-to-parsed? ctx_10)" -"(parsed-begin-for-syntax21.1 s_482 all-exp-forms_0)" -"(let-values(((s45_0) s_482)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" +"(parsed-begin-for-syntax21.1 s_480 all-exp-forms_0)" +"(let-values(((s45_0) s_480)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" "(rebuild5.1 #f #f s45_0 temp46_4))))))))))))))" "(void" "(add-core-form!*" @@ -78481,19 +78495,19 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_27)(syntax-disarm$1 s_33)))" "(let-values(((ok?_93 #%require47_0 req48_0)" -"(let-values(((s_198) disarmed-s_27))" -"(let-values(((orig-s_4) s_198))" +"(let-values(((s_196) disarmed-s_27))" +"(let-values(((orig-s_4) s_196))" "(let-values(((#%require47_1 req48_1)" -"(let-values(((s_58)(if(syntax?$1 s_198)(syntax-e$1 s_198) s_198)))" +"(let-values(((s_58)(if(syntax?$1 s_196)(syntax-e$1 s_196) s_196)))" "(if(pair? s_58)" -"(let-values(((#%require49_0)(let-values(((s_503)(car s_58))) s_503))" +"(let-values(((#%require49_0)(let-values(((s_501)(car s_58))) s_501))" "((req50_0)" -"(let-values(((s_879)(cdr s_58)))" -"(let-values(((s_200)" -"(if(syntax?$1 s_879)" -"(syntax-e$1 s_879)" -" s_879)))" -"(let-values(((flat-s_67)(to-syntax-list.1 s_200)))" +"(let-values(((s_877)(cdr s_58)))" +"(let-values(((s_198)" +"(if(syntax?$1 s_877)" +"(syntax-e$1 s_877)" +" s_877)))" +"(let-values(((flat-s_67)(to-syntax-list.1 s_198)))" "(if(not flat-s_67)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_4))" @@ -78511,12 +78525,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_458)))" "((letrec-values(((for-loop_349)" -"(lambda(fold-var_295 lst_151)" +"(lambda(fold-var_295 lst_152)" "(begin" " 'for-loop" -"(if(pair? lst_151)" -"(let-values(((req_20)(unsafe-car lst_151))" -"((rest_263)(unsafe-cdr lst_151)))" +"(if(pair? lst_152)" +"(let-values(((req_20)(unsafe-car lst_152))" +"((rest_263)(unsafe-cdr lst_152)))" "(let-values(((fold-var_408)" "(let-values(((fold-var_298) fold-var_295))" "(let-values(((fold-var_409)" @@ -78571,11 +78585,11 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_320 ctx_129)" +"(lambda(s_318 ctx_129)" "(begin" "(let-values(((obs_171)(expand-context-observer ctx_129)))" "(if obs_171(let-values()(let-values()(call-expand-observe obs_171 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_320)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_318)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" @@ -78735,5 +78749,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_11 #t temp33_4 temp34_6))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_880)(begin(1/datum->syntax core-stx s_880)))))" +"(define-values(datum->kernel-syntax)(lambda(s_878)(begin(1/datum->syntax core-stx s_878)))))" ;