From b4f04992568c400c261ae8df820ca39fe8294ec7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 28 Feb 2018 17:14:06 -0700 Subject: [PATCH] expander: add 'protected property to protected references As documented and as implemented by the old expander. --- pkgs/racket-test-core/tests/racket/stx.rktl | 15 + .../expand/binding-for-transformer.rkt | 3 +- racket/src/expander/expand/env.rkt | 9 +- racket/src/expander/expand/expr.rkt | 10 +- racket/src/expander/expand/main.rkt | 34 +- racket/src/expander/expand/protect.rkt | 60 +- racket/src/expander/expand/syntax-local.rkt | 3 +- racket/src/expander/namespace/api.rkt | 2 +- racket/src/racket/src/startup.inc | 15775 ++++++++-------- 9 files changed, 7977 insertions(+), 7934 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/stx.rktl b/pkgs/racket-test-core/tests/racket/stx.rktl index ee44fb98ed..101b6956ee 100644 --- a/pkgs/racket-test-core/tests/racket/stx.rktl +++ b/pkgs/racket-test-core/tests/racket/stx.rktl @@ -238,6 +238,21 @@ (define-define-stx stx-with-property) (test 'y syntax-property stx-with-property 'x) +;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; Check that protected references are annotated with a 'protected property + +(module exports-macros-that-expand-to-protected-references racket/base + (provide emtetpr-m1 emtetpr-m2 (protect-out x1)) + (define x1 1) + (define x2 2) + (define-syntax-rule (emtetpr-m1) x1) + (define-syntax-rule (emtetpr-m2) x2)) + +(require 'exports-macros-that-expand-to-protected-references) + +(test #t syntax-property (expand #'(emtetpr-m1)) 'protected) +(test #t syntax-property (expand #'(emtetpr-m2)) 'protected) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Check immutability diff --git a/racket/src/expander/expand/binding-for-transformer.rkt b/racket/src/expander/expand/binding-for-transformer.rkt index 8e69431530..844c1689ef 100644 --- a/racket/src/expander/expand/binding-for-transformer.rkt +++ b/racket/src/expander/expand/binding-for-transformer.rkt @@ -25,5 +25,6 @@ [else ;; Use `binding-lookup` to both check for taints and determine whether the ;; binding is a transformer or variable binding - (define-values (val primitive? insp) (binding-lookup b empty-env null ns at-phase id)) + (define-values (val primitive? insp protected?) + (binding-lookup b empty-env null ns at-phase id)) (not (variable? val))])) diff --git a/racket/src/expander/expand/env.rkt b/racket/src/expander/expand/env.rkt index 1c50a37f46..694ced6113 100644 --- a/racket/src/expander/expand/env.rkt +++ b/racket/src/expander/expand/env.rkt @@ -107,6 +107,7 @@ ;; Returns: `variable` or a compile-time value ;; #f or #t indicating whether the binding is to a primitive ;; #f or (for a transformer) an inspector for the defining module +;; #f or #t for a protected binding ;; A binding provided to `binding-lookup` should be obtained either by ;; passing `#:immediate? #t` to `resolve+shift` or by using `resolve+shift/extra-inspector`, ;; where the latter checks protected access for `free-identifier=?` equivalence @@ -125,9 +126,10 @@ (check-taint id) (define t (namespace-get-transformer m-ns (module-binding-phase b) (module-binding-sym b) variable)) - (when mi (check-access b mi id in-s (if (variable? t) "variable" "transformer"))) + (define protected? + (and mi (check-access b mi id in-s (if (variable? t) "variable" "transformer")))) (define insp (and mi (module-instance-module mi) (module-inspector (module-instance-module mi)))) - (values t primitive? insp)] + (values t primitive? insp protected?)] [(local-binding? b) (define t (hash-ref env (local-binding-key b) missing)) (cond @@ -140,10 +142,11 @@ variable (error "identifier used out of context:" id))) #f + #f #f)] [else (check-taint id) - (values t #f #f)])] + (values t #f #f #f)])] [else (error "internal error: unknown binding for lookup:" b)])) ;; Check for taints on a variable reference diff --git a/racket/src/expander/expand/expr.rkt b/racket/src/expander/expand/expr.rkt index 4aaf6ebccd..18828d3bf3 100644 --- a/racket/src/expander/expand/expr.rkt +++ b/racket/src/expander/expand/expr.rkt @@ -627,9 +627,9 @@ #:immediate? #t)) (when (eq? binding 'ambiguous) (raise-ambiguous-error id ctx)) - (define-values (t primitive? insp) (if binding - (lookup binding ctx s) - (values #f #f #f))) + (define-values (t primitive? insp protected?) (if binding + (lookup binding ctx s) + (values #f #f #f #f))) (log-expand ctx 'resolve id) (cond [(or (variable? t) @@ -703,12 +703,12 @@ (expand-context-allow-unbound? ctx)) (raise-unbound-syntax-error #f "unbound identifier" s var-id null (syntax-debug-info-string var-id ctx))) - (define-values (t primitive? insp-of-t) + (define-values (t primitive? insp-of-t protected?) (if binding (lookup binding ctx var-id #:in s #:out-of-context-as-variable? (expand-context-in-local-expand? ctx)) - (values #f #f #f))) + (values #f #f #f #f))) (when (and t (not (variable? t))) (raise-syntax-error #f "identifier does not refer to a variable" var-id s)) (if (expand-context-to-parsed? ctx) diff --git a/racket/src/expander/expand/main.rkt b/racket/src/expander/expand/main.rkt index c9cbe969ef..4b27f439f1 100644 --- a/racket/src/expander/expand/main.rkt +++ b/racket/src/expander/expand/main.rkt @@ -105,10 +105,11 @@ (expand-implicit '#%top (substitute-alternate-id s alternate-id) ctx s)] [else ;; Variable or form as identifier macro - (define-values (t primitive? insp-of-t) (lookup binding ctx id - #:in (and alternate-id s) - #:out-of-context-as-variable? (expand-context-in-local-expand? ctx))) - (dispatch t insp-of-t s id ctx binding primitive?)]))) + (define-values (t primitive? insp-of-t protected?) + (lookup binding ctx id + #:in (and alternate-id s) + #:out-of-context-as-variable? (expand-context-in-local-expand? ctx))) + (dispatch t insp-of-t s id ctx binding primitive? protected?)]))) ;; An "application" form that starts with an identifier (define (expand-id-application-form s ctx alternate-id) @@ -127,16 +128,17 @@ (expand-implicit '#%app (substitute-alternate-id s alternate-id) ctx id)] [else ;; Find out whether it's bound as a variable, syntax, or core form - (define-values (t primitive? insp-of-t) (lookup binding ctx id - #:in (and alternate-id (car (syntax-e/no-taint s))) - #:out-of-context-as-variable? (expand-context-in-local-expand? ctx))) + (define-values (t primitive? insp-of-t protected?) + (lookup binding ctx id + #:in (and alternate-id (car (syntax-e/no-taint s))) + #:out-of-context-as-variable? (expand-context-in-local-expand? ctx))) (cond [(variable? t) ;; Not as syntax or core form, so use implicit `#%app` (expand-implicit '#%app (substitute-alternate-id s alternate-id) ctx id)] [else ;; Syntax or core form as "application" - (dispatch t insp-of-t s id ctx binding primitive?)])]))) + (dispatch t insp-of-t s id ctx binding primitive? protected?)])]))) ;; Handle an implicit: `#%app`, `#%top`, or `#%datum`; this is similar ;; to handling an id-application form, but there are several little @@ -160,7 +162,8 @@ [(eq? b 'ambiguous) (raise-ambiguous-error id ctx)] [else - (define-values (t primitive? insp-of-t) (if b (lookup b ctx id) (values #f #f #f))) + (define-values (t primitive? insp-of-t protected?) + (if b (lookup b ctx id) (values #f #f #f #f))) (cond [(transformer? t) (dispatch-transformer t insp-of-t (make-explicit ctx sym s disarmed-s) id ctx b)] @@ -226,14 +229,14 @@ ;; other compile-time value (which is an error), or a token ;; indicating that the binding is a run-time variable; note that ;; `s` is not disarmed -(define (dispatch t insp-of-t s id ctx binding primitive?) +(define (dispatch t insp-of-t s id ctx binding primitive? protected?) (cond [(core-form? t) (dispatch-core-form t s ctx)] [(transformer? t) (dispatch-transformer t insp-of-t s id ctx binding)] [(variable? t) - (dispatch-variable t s id ctx binding primitive?)] + (dispatch-variable t s id ctx binding primitive? protected?)] [else ;; Some other compile-time value: (raise-syntax-error #f "illegal use of syntax" s)])) @@ -301,7 +304,7 @@ (rename-transformer? t)))])])) ;; Handle the expansion of a variable to itself -(define (dispatch-variable t s id ctx binding primitive?) +(define (dispatch-variable t s id ctx binding primitive? protected?) (cond [(expand-context-only-immediate? ctx) (log-expand* ctx ['exit-check s]) @@ -321,8 +324,11 @@ (parsed-primitive-id prop-s binding insp) (parsed-id prop-s binding insp))] [else - (log-expand ctx 'return result-s) - result-s])])) + (define protected-result-s (if protected? + (syntax-property result-s 'protected #t) + result-s)) + (log-expand ctx 'return protected-result-s) + protected-result-s])])) ;; ---------------------------------------- diff --git a/racket/src/expander/expand/protect.rkt b/racket/src/expander/expand/protect.rkt index e098983fcd..be21c4abf9 100644 --- a/racket/src/expander/expand/protect.rkt +++ b/racket/src/expander/expand/protect.rkt @@ -13,35 +13,41 @@ ;; Check inspector-based access to a module's definitions; a suitable inspector ;; might be provided by `id`, or the binding might carry an extra inspector ;; (put there via a provide of a rename transformer, where the extra inspector -;; was attached to the identifier in the rename transformer) +;; was attached to the identifier in the rename transformer). Return #t if +;; the binding is protected. (define (check-access b mi id in-s what) (define m (module-instance-module mi)) - (when (and m (not (module-no-protected? m))) - (define access (or (module-access m) (module-compute-access! m))) - (define a (hash-ref (hash-ref access (module-binding-phase b) #hasheq()) - (module-binding-sym b) - 'unexported)) - (when (or (eq? a 'unexported) ; not provided => implicitly protected - (eq? a 'protected)) - (unless (or (inspector-superior? (or (syntax-inspector id) (current-code-inspector)) - (namespace-inspector (module-instance-namespace mi))) - (and (module-binding-extra-inspector b) - (inspector-superior? (module-binding-extra-inspector b) - (namespace-inspector (module-instance-namespace mi))))) - ;; In the error message, use the original expression `in-s` or - ;; the symbol protected or defined in the target module --- - ;; but only if that name is different from `id`, which we'll - ;; certainly include in the error - (define complain-id (let ([c-id (or in-s (module-binding-sym b))]) - (and (not (eq? (if (syntax? c-id) (syntax-content c-id) c-id) - (syntax-content id))) - c-id))) - (raise-syntax-error #f - (format "access disallowed by code inspector to ~a ~a\n from module: ~a" - a - what - (module-path-index-resolve (namespace-mpi (module-instance-namespace mi)))) - complain-id id null))))) + (cond + [(and m (not (module-no-protected? m))) + (define access (or (module-access m) (module-compute-access! m))) + (define a (hash-ref (hash-ref access (module-binding-phase b) #hasheq()) + (module-binding-sym b) + 'unexported)) + (cond + [(or (eq? a 'unexported) ; not provided => implicitly protected + (eq? a 'protected)) + (unless (or (inspector-superior? (or (syntax-inspector id) (current-code-inspector)) + (namespace-inspector (module-instance-namespace mi))) + (and (module-binding-extra-inspector b) + (inspector-superior? (module-binding-extra-inspector b) + (namespace-inspector (module-instance-namespace mi))))) + ;; In the error message, use the original expression `in-s` or + ;; the symbol protected or defined in the target module --- + ;; but only if that name is different from `id`, which we'll + ;; certainly include in the error + (define complain-id (let ([c-id (or in-s (module-binding-sym b))]) + (and (not (eq? (if (syntax? c-id) (syntax-content c-id) c-id) + (syntax-content id))) + c-id))) + (raise-syntax-error #f + (format "access disallowed by code inspector to ~a ~a\n from module: ~a" + a + what + (module-path-index-resolve (namespace-mpi (module-instance-namespace mi)))) + complain-id id null)) + #t] + [else #f])] + [else #f])) ;; Like `resolve+shift`, but follow `free-identifier=?` chains to ;; attach an inspector at the last step in the chain to the diff --git a/racket/src/expander/expand/syntax-local.rkt b/racket/src/expander/expand/syntax-local.rkt index fc23d2610e..655b102872 100644 --- a/racket/src/expander/expand/syntax-local.rkt +++ b/racket/src/expander/expand/syntax-local.rkt @@ -188,7 +188,8 @@ (failure-thunk) (error 'syntax-local-value "unbound identifier: ~v" id))] [else - (define-values (v primitive? insp) (lookup b ctx id #:out-of-context-as-variable? #t)) + (define-values (v primitive? insp protected?) + (lookup b ctx id #:out-of-context-as-variable? #t)) (cond [(or (variable? v) (core-form? v)) (log-expand ctx 'local-value-result #f) diff --git a/racket/src/expander/namespace/api.rkt b/racket/src/expander/namespace/api.rkt index 39f175e504..77840344d9 100644 --- a/racket/src/expander/namespace/api.rkt +++ b/racket/src/expander/namespace/api.rkt @@ -180,7 +180,7 @@ (namespace-phase ns) ns)) (when b (namespace-visit-available-modules! ns)) - (define-values (v primitive? extra-inspector) + (define-values (v primitive? extra-inspector protected?) (if b (binding-lookup b empty-env null ns (namespace-phase ns) id) (values variable #f #f))) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 453bae31f8..925c815003 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -14381,6 +14381,7 @@ static const char *startup_source = "(if(let-values(((or-part_10)(eq? a_41 'unexported)))" "(if or-part_10 or-part_10(eq? a_41 'protected)))" "(let-values()" +"(begin" "(if(let-values(((or-part_165)" "(inspector-superior?" "(let-values(((or-part_12)(syntax-inspector id_11)))" @@ -14408,15 +14409,16 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" "(format" -" \"access disallowed by code inspector to ~a ~a\\n from module: ~a\"" +" \"access disallowed by code inspector to ~a ~a\\n from module: ~a\"" " a_41" " what_0" "(1/module-path-index-resolve(namespace-mpi(module-instance-namespace mi_13))))" " complain-id_0" " id_11" -" null)))))" -"(void)))))" -"(void))))))" +" null))))" +" #t))" +"(let-values() #f)))))" +"(let-values() #f))))))" "(define-values" "(resolve+shift/extra-inspector)" "(lambda(id_12 phase_32 ns_42)" @@ -14770,46 +14772,43 @@ static const char *startup_source = "(module-binding-phase b_59)" "(module-binding-sym b_59)" " variable)))" -"(let-values((()" -"(begin" +"(let-values(((protected?_1)" "(if mi_15" -"(let-values()" "(check-access" " b_59" " mi_15" " id_18" " in-s_6" -" (if (variable? t_39) \"variable\" \"transformer\")))" -"(void))" -"(values))))" -"(let-values(((insp_6)" +" (if (variable? t_39) \"variable\" \"transformer\"))" +" #f)))" +"(let-values(((insp_4)" "(if mi_15" "(if(module-instance-module mi_15)" "(module-inspector(module-instance-module mi_15))" " #f)" " #f)))" -"(values t_39 primitive?_1 insp_6)))))))))))" +"(values t_39 primitive?_1 insp_4 protected?_1)))))))))))" "(if(local-binding? b_59)" "(let-values()" "(let-values(((t_40)(hash-ref env_1(local-binding-key b_59) missing)))" "(if(eq? t_40 missing)" "(let-values()" "(values" -"(let-values(((or-part_101)" +"(let-values(((or-part_168)" "(let-values(((lst_70) lift-envs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_70)))" "((letrec-values(((for-loop_90)" -"(lambda(result_57 lst_32)" +"(lambda(result_57 lst_71)" "(begin" " 'for-loop" -"(if(pair? lst_32)" +"(if(pair? lst_71)" "(let-values(((lift-env_0)" -"(unsafe-car lst_32))" +"(unsafe-car lst_71))" "((rest_32)" -"(unsafe-cdr lst_32)))" +"(unsafe-cdr lst_71)))" "(let-values(((result_58)" "(let-values()" "(let-values(((result_59)" @@ -14834,14 +14833,15 @@ static const char *startup_source = " for-loop_90)" " #f" " lst_70)))))" -"(if or-part_101" -" or-part_101" +"(if or-part_168" +" or-part_168" "(if out-of-context-as-variable?_0" " variable" " (error \"identifier used out of context:\" id_18))))" " #f" +" #f" " #f))" -"(let-values()(begin(check-taint id_18)(values t_40 #f #f))))))" +"(let-values()(begin(check-taint id_18)(values t_40 #f #f #f))))))" " (let-values () (error \"internal error: unknown binding for lookup:\" b_59))))))))))))))))" "(define-values" "(check-taint)" @@ -14855,15 +14855,15 @@ static const char *startup_source = "(free-id-set)" "(lambda(phase_37 ids_0)" "(begin" -"(let-values(((lst_71) ids_0))" +"(let-values(((lst_72) ids_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_71)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_72)))" "((letrec-values(((for-loop_91)" -"(lambda(ht_70 lst_72)" +"(lambda(ht_70 lst_73)" "(begin" " 'for-loop" -"(if(pair? lst_72)" -"(let-values(((id_20)(unsafe-car lst_72))((rest_33)(unsafe-cdr lst_72)))" +"(if(pair? lst_73)" +"(let-values(((id_20)(unsafe-car lst_73))((rest_33)(unsafe-cdr lst_73)))" "(let-values(((ht_71)" "(let-values(((ht_72) ht_70))" "(let-values(((ht_73)" @@ -14883,7 +14883,7 @@ static const char *startup_source = " ht_70)))))" " for-loop_91)" " '#hasheq()" -" lst_71))))))" +" lst_72))))))" "(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" @@ -14892,16 +14892,16 @@ static const char *startup_source = "(begin" "(if(zero?(hash-count fs_1))" " #f" -"(let-values(((lst_73)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_15) null)))" +"(let-values(((lst_74)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_15) null)))" "(begin" "(void)" "((letrec-values(((for-loop_92)" -"(lambda(result_3 lst_74)" +"(lambda(result_3 lst_75)" "(begin" " 'for-loop" -"(if(not(null? lst_74))" -"(let-values(((id_21)(if(pair? lst_74)(car lst_74) lst_74))" -"((rest_34)(if(pair? lst_74)(cdr lst_74) null)))" +"(if(not(null? lst_75))" +"(let-values(((id_21)(if(pair? lst_75)(car lst_75) lst_75))" +"((rest_34)(if(pair? lst_75)(cdr lst_75) null)))" "(let-values(((result_60)" "(let-values()" "(let-values(((result_61)" @@ -14919,7 +14919,7 @@ static const char *startup_source = " result_3)))))" " for-loop_92)" " #f" -" lst_73)))))))" +" lst_74)))))))" "(define-values" "(free-id-set-empty-or-just-module*?)" "(lambda(fs_2)(begin(let-values(((c_17)(hash-count fs_2)))(<= c_17 1)))))" @@ -15309,9 +15309,9 @@ static const char *startup_source = "(let-values(((who_9)(if who16_0 who15_0 'unexpected)))" "(let-values(((fail-ok?_0)(if fail-ok?14_0 fail-ok?13_0 #f)))" "(let-values()" -"(let-values(((or-part_168)(force(current-expand-context))))" -"(if or-part_168" -" or-part_168" +"(let-values(((or-part_169)(force(current-expand-context))))" +"(if or-part_169" +" or-part_169" " (if fail-ok?_0 #f (raise-arguments-error who_9 \"not currently expanding\"))))))))))" "(define-values" "(current-expand-observe)" @@ -15319,8 +15319,8 @@ static const char *startup_source = " #f" "(lambda(v_127)" "(begin" -"(if(let-values(((or-part_169)(not v_127)))" -"(if or-part_169 or-part_169(if(procedure? v_127)(procedure-arity-includes? v_127 2) #f)))" +"(if(let-values(((or-part_170)(not v_127)))" +"(if or-part_170 or-part_170(if(procedure? v_127)(procedure-arity-includes? v_127 2) #f)))" "(void)" "(let-values()" " (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_127)))" @@ -15591,23 +15591,23 @@ static const char *startup_source = "((temp14_1)" "(hasheqv" " 0" -"(let-values(((lst_75)(list core-primitives core-forms))((lst_76) '(#f #t)))" +"(let-values(((lst_76)(list core-primitives core-forms))((lst_77) '(#f #t)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_75)))" -"(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_93)" -"(lambda(table_98 lst_77 lst_78)" +"(lambda(table_98 lst_78 lst_79)" "(begin" " 'for-loop" -"(if(if(pair? lst_77)(pair? lst_78) #f)" -"(let-values(((syms_12)(unsafe-car lst_77))" -"((rest_35)(unsafe-cdr lst_77))" -"((syntax?_2)(unsafe-car lst_78))" -"((rest_36)(unsafe-cdr lst_78)))" +"(if(if(pair? lst_78)(pair? lst_79) #f)" +"(let-values(((syms_12)(unsafe-car lst_78))" +"((rest_35)(unsafe-cdr lst_78))" +"((syntax?_2)(unsafe-car lst_79))" +"((rest_36)(unsafe-cdr lst_79)))" "(let-values(((table_99)" "(let-values(((table_100) table_98))" "(let-values(((ht_74) syms_12))" @@ -15696,10 +15696,10 @@ static const char *startup_source = " table_98)))))" " for-loop_93)" " '#hasheq()" -" lst_75" -" lst_76)))))" +" lst_76" +" lst_77)))))" "((temp15_1)" -"(lambda(phase-level_14 ns_46 insp_7)" +"(lambda(phase-level_14 ns_46 insp_6)" "(if(zero? phase-level_14)" "(let-values(((ns_47)" "(let-values(((ns20_0) ns_46)" @@ -15726,7 +15726,7 @@ static const char *startup_source = " phase-level_15" " self_7" " bulk-binding-registry_4" -" insp_8)" +" insp_7)" "(let-values(((tmp_15) phase-level_15))" "(if(equal? tmp_15 0)" "(let-values()" @@ -15849,8 +15849,8 @@ static const char *startup_source = "(if(let-values(((s_163)(if(syntax?$1 s_162)(syntax-e$1 s_162) s_162)))" "(if(pair? s_163)" "(if(let-values(((s_68)(car s_163)))" -"(let-values(((or-part_170)(if(syntax?$1 s_68)(symbol?(syntax-e$1 s_68)) #f)))" -"(if or-part_170 or-part_170(symbol? s_68))))" +"(let-values(((or-part_171)(if(syntax?$1 s_68)(symbol?(syntax-e$1 s_68)) #f)))" +"(if or-part_171 or-part_171(symbol? s_68))))" "(let-values(((s_164)(cdr s_163))) #t)" " #f)" " #f))" @@ -15939,11 +15939,11 @@ static const char *startup_source = " #t" "(cdr s_171)" " depth_8))))" -"(if(let-values(((or-part_171)" +"(if(let-values(((or-part_172)" "(symbol?" " s_171)))" -"(if or-part_171" -" or-part_171" +"(if or-part_172" +" or-part_172" "(let-values(((or-part_82)" "(boolean?" " s_171)))" @@ -16007,9 +16007,9 @@ static const char *startup_source = "(cons" "(loop_36(car d_19) 'transparent)" "(let-values(((s_174)" -"(let-values(((or-part_172)" +"(let-values(((or-part_173)" "(syntax->list$1(cdr d_19))))" -"(if or-part_172 or-part_172(cdr d_19))))" +"(if or-part_173 or-part_173(cdr d_19))))" "((f_7)(lambda(tail?_44 d_20)(begin 'f d_20)))" "((s->_4)" "(lambda(s_175)" @@ -16058,30 +16058,30 @@ static const char *startup_source = " #t" "(cdr s_176)" " depth_9))))" -"(if(let-values(((or-part_173)" +"(if(let-values(((or-part_174)" "(symbol?" " s_176)))" -"(if or-part_173" -" or-part_173" -"(let-values(((or-part_174)" -"(boolean?" -" s_176)))" "(if or-part_174" " or-part_174" +"(let-values(((or-part_175)" +"(boolean?" +" s_176)))" +"(if or-part_175" +" or-part_175" "(number?" " s_176)))))" "(let-values()" "(f_8 #f s_176))" -"(if(let-values(((or-part_175)" +"(if(let-values(((or-part_176)" "(vector?" " s_176)))" -"(if or-part_175" -" or-part_175" -"(let-values(((or-part_176)" -"(box?" -" s_176)))" "(if or-part_176" " or-part_176" +"(let-values(((or-part_177)" +"(box?" +" s_176)))" +"(if or-part_177" +" or-part_177" "(let-values(((or-part_39)" "(prefab-struct-key" " s_176)))" @@ -16134,8 +16134,8 @@ static const char *startup_source = "(syntax-taint-mode-property)" "(lambda(s_179)" "(begin" -"(let-values(((or-part_177)(syntax-property$1 s_179 'taint-mode)))" -"(if or-part_177 or-part_177(syntax-property$1 s_179 'certify-mode))))))" +"(let-values(((or-part_178)(syntax-property$1 s_179 'taint-mode)))" +"(if or-part_178 or-part_178(syntax-property$1 s_179 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" "(lambda(s_180)(begin(syntax-property-remove(syntax-property-remove s_180 'taint-mode) 'certify-mode))))" @@ -16147,18 +16147,18 @@ static const char *startup_source = " 'syntax-debug-info" "(let-values(((hts_0)" "(reverse$1" -"(let-values(((lst_72)(fallback->list(syntax-shifted-multi-scopes s_0))))" +"(let-values(((lst_73)(fallback->list(syntax-shifted-multi-scopes s_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_72)))" +"(let-values()(check-list lst_73)))" "((letrec-values(((for-loop_96)" -"(lambda(fold-var_58 lst_79)" +"(lambda(fold-var_58 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_79)" -"(let-values(((smss_26)(unsafe-car lst_79))" -"((rest_37)(unsafe-cdr lst_79)))" +"(if(pair? lst_80)" +"(let-values(((smss_26)(unsafe-car lst_80))" +"((rest_37)(unsafe-cdr lst_80)))" "(let-values(((fold-var_59)" "(let-values(((fold-var_60) fold-var_58))" "(let-values(((fold-var_61)" @@ -16424,7 +16424,7 @@ static const char *startup_source = " fold-var_58)))))" " for-loop_96)" " null" -" lst_72))))))" +" lst_73))))))" "(let-values(((ht_70)(car hts_0)))(if(null?(cdr hts_0)) ht_70(hash-set ht_70 'fallbacks(cdr hts_0))))))))" "(define-values" "(scope-set->context)" @@ -16499,12 +16499,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_6)))" "((letrec-values(((for-loop_99)" -"(lambda(result_62 lst_80)" +"(lambda(result_62 lst_81)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((fb-info_0)(unsafe-car lst_80))" -"((rest_38)(unsafe-cdr lst_80)))" +"(if(pair? lst_81)" +"(let-values(((fb-info_0)(unsafe-car lst_81))" +"((rest_38)(unsafe-cdr lst_81)))" "(let-values(((result_1)" "(let-values()" "(let-values(((result_63)" @@ -16535,19 +16535,19 @@ static const char *startup_source = "(cons" "(hash-ref info_4 'context)" "(reverse$1" -"(let-values(((lst_81)(hash-ref info_4 'bindings null)))" +"(let-values(((lst_82)(hash-ref info_4 'bindings null)))" "(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_100)" -"(lambda(fold-var_62 lst_82)" +"(lambda(fold-var_62 lst_83)" "(begin" " 'for-loop" -"(if(pair? lst_82)" -"(let-values(((b_26)(unsafe-car lst_82))" +"(if(pair? lst_83)" +"(let-values(((b_26)(unsafe-car lst_83))" "((rest_39)" -"(unsafe-cdr lst_82)))" +"(unsafe-cdr lst_83)))" "(let-values(((fold-var_33)" "(let-values(((fold-var_34)" " fold-var_62))" @@ -16567,26 +16567,26 @@ static const char *startup_source = " fold-var_62)))))" " for-loop_100)" " null" -" lst_81)))))" +" lst_82)))))" "(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))" "(reverse$1" -"(let-values(((lst_83) fallbacks_0)((start_14)(add1 layer_0)))" +"(let-values(((lst_84) fallbacks_0)((start_14)(add1 layer_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_83)))" +"(let-values()(check-list lst_84)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_14)))" "((letrec-values(((for-loop_101)" -"(lambda(fold-var_64 lst_84 pos_11)" +"(lambda(fold-var_64 lst_85 pos_11)" "(begin" " 'for-loop" -"(if(if(pair? lst_84) #t #f)" +"(if(if(pair? lst_85) #t #f)" "(let-values(((fallback_0)" -"(unsafe-car lst_84))" +"(unsafe-car lst_85))" "((rest_40)" -"(unsafe-cdr lst_84))" +"(unsafe-cdr lst_85))" "((layer_1) pos_11))" "(let-values(((fold-var_9)" "(let-values(((fold-var_65)" @@ -16610,7 +16610,7 @@ static const char *startup_source = " fold-var_64)))))" " for-loop_101)" " null" -" lst_83" +" lst_84" " start_14))))))))))" " loop_79)" " info_3" @@ -16618,18 +16618,18 @@ static const char *startup_source = "(let-values(((common-scopes_0)" "(if(null? relevant-scope-sets_0)" "(set)" -"(let-values(((lst_75) relevant-scope-sets_0))" +"(let-values(((lst_76) relevant-scope-sets_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_75)))" +"(let-values()(check-list lst_76)))" "((letrec-values(((for-loop_102)" -"(lambda(s_182 lst_85)" +"(lambda(s_182 lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((l_48)(unsafe-car lst_85))" -"((rest_41)(unsafe-cdr lst_85)))" +"(if(pair? lst_86)" +"(let-values(((l_48)(unsafe-car lst_86))" +"((rest_41)(unsafe-cdr lst_86)))" "(let-values(((s_81)" "(let-values(((s_183) s_182))" "(let-values(((s_184)" @@ -16642,7 +16642,7 @@ static const char *startup_source = " s_182)))))" " for-loop_102)" "(list->set(car relevant-scope-sets_0))" -" lst_75))))))" +" lst_76))))))" "(string-append" "((letrec-values(((loop_80)" "(lambda(info_5 layer_2)" @@ -16656,7 +16656,7 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_86)" +"(let-values(((lst_87)" "(let-values(((temp1_2)(hash-ref info_5 'bindings null))" "((temp2_2)" "(lambda(a_43 b_64)" @@ -16669,14 +16669,14 @@ static const char *startup_source = "(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_103)" -"(lambda(fold-var_67 lst_87)" +"(lambda(fold-var_67 lst_88)" "(begin" " 'for-loop" -"(if(pair? lst_87)" -"(let-values(((b_23)(unsafe-car lst_87))" -"((rest_42)(unsafe-cdr lst_87)))" +"(if(pair? lst_88)" +"(let-values(((b_23)(unsafe-car lst_88))" +"((rest_42)(unsafe-cdr lst_88)))" "(let-values(((fold-var_20)" "(let-values(((fold-var_68)" " fold-var_67))" @@ -16721,26 +16721,26 @@ static const char *startup_source = " fold-var_67)))))" " for-loop_103)" " null" -" lst_86)))))" +" lst_87)))))" "(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))" "(apply" " string-append" "(reverse$1" -"(let-values(((lst_88) fallbacks_1)((start_15)(add1 layer_2)))" +"(let-values(((lst_89) fallbacks_1)((start_15)(add1 layer_2)))" "(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_15)))" "((letrec-values(((for-loop_104)" -"(lambda(fold-var_70 lst_89 pos_12)" +"(lambda(fold-var_70 lst_90 pos_12)" "(begin" " 'for-loop" -"(if(if(pair? lst_89) #t #f)" -"(let-values(((fallback_1)(unsafe-car lst_89))" -"((rest_0)(unsafe-cdr lst_89))" +"(if(if(pair? lst_90) #t #f)" +"(let-values(((fallback_1)(unsafe-car lst_90))" +"((rest_0)(unsafe-cdr lst_90))" "((layer_3) pos_12))" "(let-values(((fold-var_71)" "(let-values(((fold-var_72)" @@ -16763,7 +16763,7 @@ static const char *startup_source = " fold-var_70)))))" " for-loop_104)" " null" -" lst_88" +" lst_89" " start_15)))))))))))" " loop_80)" " info_3" @@ -16829,18 +16829,18 @@ static const char *startup_source = " scopes_19" "(append" "(reverse$1" -"(let-values(((lst_90) scopes_19))" +"(let-values(((lst_91) scopes_19))" "(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_105)" -"(lambda(fold-var_77 lst_91)" +"(lambda(fold-var_77 lst_92)" "(begin" " 'for-loop" -"(if(pair? lst_91)" -"(let-values(((s_186)(unsafe-car lst_91))" -"((rest_43)(unsafe-cdr lst_91)))" +"(if(pair? lst_92)" +"(let-values(((s_186)(unsafe-car lst_92))" +"((rest_43)(unsafe-cdr lst_92)))" "(let-values(((fold-var_78)" "(let-values(((fold-var_79) fold-var_77))" "(if(not(set-member? common-scopes_1 s_186))" @@ -16856,7 +16856,7 @@ static const char *startup_source = " fold-var_77)))))" " for-loop_105)" " null" -" lst_90))))" +" lst_91))))" " (list \"[common scopes]\"))))))" "(if(null? strs_0)" " (let-values () \"\\n [empty]\")" @@ -16864,17 +16864,17 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_92) strs_0))" +"(let-values(((lst_93) strs_0))" "(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_106)" -"(lambda(fold-var_82 lst_93)" +"(lambda(fold-var_82 lst_94)" "(begin" " 'for-loop" -"(if(pair? lst_93)" -"(let-values(((str_4)(unsafe-car lst_93))((rest_44)(unsafe-cdr lst_93)))" +"(if(pair? lst_94)" +"(let-values(((str_4)(unsafe-car lst_94))((rest_44)(unsafe-cdr lst_94)))" "(let-values(((fold-var_83)" "(let-values(((fold-var_84) fold-var_82))" "(let-values(((fold-var_14)" @@ -16888,7 +16888,7 @@ static const char *startup_source = " fold-var_82)))))" " for-loop_106)" " null" -" lst_92)))))))))))" +" lst_93)))))))))))" " (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,19 +16950,19 @@ static const char *startup_source = "(let-values()" "(let-values(((l_7)(hash-ref ht_80(syntax-e$1 v_134) null)))" "(begin" -"(let-values(((lst_73) l_7))" +"(let-values(((lst_74) l_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_73)))" +"(let-values()(check-list lst_74)))" "((letrec-values(((for-loop_92)" -"(lambda(lst_94)" +"(lambda(lst_95)" "(begin" " 'for-loop" -"(if(pair? lst_94)" -"(let-values(((id_13)(unsafe-car lst_94))" +"(if(pair? lst_95)" +"(let-values(((id_13)(unsafe-car lst_95))" "((rest_45)" -"(unsafe-cdr lst_94)))" +"(unsafe-cdr lst_95)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -16989,7 +16989,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_92)" -" lst_73)))" +" lst_74)))" "(void)" "(hash-set ht_80(syntax-e$1 v_134)(cons v_134 l_7)))))" "(if(pair? v_134)" @@ -17007,11 +17007,11 @@ static const char *startup_source = "(if(syntax?$1 s_0)" "(remove-scopes s_0(unbox use-sites_0))" "(reverse$1" -"(let-values(((lst_95) s_0))" +"(let-values(((lst_96) s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_95)))" +"(let-values()(check-list lst_96)))" "((letrec-values(((for-loop_107)" "(lambda(fold-var_85 lst_6)" "(begin" @@ -17031,7 +17031,7 @@ static const char *startup_source = " fold-var_85)))))" " for-loop_107)" " null" -" lst_95)))))" +" lst_96)))))" " s_0)))))" "(define-values" "(struct:compile-context" @@ -17632,15 +17632,15 @@ static const char *startup_source = "(lambda(mus_0 mpis_4)" "(begin" "(reverse$1" -"(let-values(((lst_96) mus_0))" +"(let-values(((lst_97) mus_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_96)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_97)))" "((letrec-values(((for-loop_6)" -"(lambda(fold-var_0 lst_97)" +"(lambda(fold-var_0 lst_98)" "(begin" " 'for-loop" -"(if(pair? lst_97)" -"(let-values(((mu_1)(unsafe-car lst_97))((rest_47)(unsafe-cdr lst_97)))" +"(if(pair? lst_98)" +"(let-values(((mu_1)(unsafe-car lst_98))((rest_47)(unsafe-cdr lst_98)))" "(let-values(((fold-var_2)" "(let-values(((fold-var_3) fold-var_0))" "(let-values(((fold-var_88)" @@ -17659,26 +17659,26 @@ static const char *startup_source = " fold-var_0)))))" " for-loop_6)" " null" -" lst_96)))))))" +" lst_97)))))))" "(define-values" "(interned-literal?)" "(lambda(v_41)" "(begin" -"(let-values(((or-part_178)(null? v_41)))" -"(if or-part_178" -" or-part_178" -"(let-values(((or-part_179)(boolean? v_41)))" +"(let-values(((or-part_179)(null? v_41)))" "(if or-part_179" " or-part_179" +"(let-values(((or-part_180)(boolean? v_41)))" +"(if or-part_180" +" or-part_180" "(let-values(((or-part_145)" "(if(fixnum? v_41)(if(< v_41(sub1(expt 2 30)))(> v_41(-(expt 2 30))) #f) #f)))" "(if or-part_145" " or-part_145" -"(let-values(((or-part_180)(symbol? v_41)))" -"(if or-part_180" -" or-part_180" -"(let-values(((or-part_181)(char? v_41)))" -"(if or-part_181 or-part_181(keyword? v_41))))))))))))))" +"(let-values(((or-part_181)(symbol? v_41)))" +"(if or-part_181" +" or-part_181" +"(let-values(((or-part_182)(char? v_41)))" +"(if or-part_182 or-part_182(keyword? v_41))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" "(lambda(phase-to-link-module-uses_0 mpis_5)" @@ -17691,15 +17691,15 @@ static const char *startup_source = "(apply" " append" "(reverse$1" -"(let-values(((lst_98) phases-in-order_0))" +"(let-values(((lst_99) phases-in-order_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_98)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_99)))" "((letrec-values(((for-loop_114)" -"(lambda(fold-var_38 lst_99)" +"(lambda(fold-var_38 lst_100)" "(begin" " 'for-loop" -"(if(pair? lst_99)" -"(let-values(((phase_44)(unsafe-car lst_99))((rest_48)(unsafe-cdr lst_99)))" +"(if(pair? lst_100)" +"(let-values(((phase_44)(unsafe-car lst_100))((rest_48)(unsafe-cdr lst_100)))" "(let-values(((fold-var_89)" "(let-values(((fold-var_90) fold-var_38))" "(let-values(((fold-var_91)" @@ -17721,7 +17721,7 @@ static const char *startup_source = " fold-var_38)))))" " for-loop_114)" " null" -" lst_98))))))))))" +" lst_99))))))))))" "(define-values" "(generate-deserialize6.1)" "(lambda(syntax-support?2_0 syntax-support?3_0 v4_0 mpis5_0)" @@ -17753,11 +17753,11 @@ static const char *startup_source = "(lambda(v_97)" "(begin" " 'loop" -"(if(let-values(((or-part_182)" +"(if(let-values(((or-part_183)" "(interned-literal?" " v_97)))" -"(if or-part_182" -" or-part_182" +"(if or-part_183" +" or-part_183" "(1/module-path-index?" " v_97)))" "(let-values()(void))" @@ -17948,7 +17948,7 @@ static const char *startup_source = "(if(immutable?" " v_97)" "(begin" -"(let-values(((lst_100)" +"(let-values(((lst_101)" "(sorted-hash-keys" " v_97)))" "(begin" @@ -17957,19 +17957,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_100)))" +" lst_101)))" "((letrec-values(((for-loop_117)" -"(lambda(lst_101)" +"(lambda(lst_102)" "(begin" " 'for-loop" "(if(pair?" -" lst_101)" +" lst_102)" "(let-values(((k_20)" "(unsafe-car" -" lst_101))" +" lst_102))" "((rest_49)" "(unsafe-cdr" -" lst_101)))" +" lst_102)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17992,7 +17992,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_117)" -" lst_100)))" +" lst_101)))" "(void))" "(begin" "(hash-set!" @@ -18001,7 +18001,7 @@ static const char *startup_source = "(hash-count" " mutables_0))" "(begin" -"(let-values(((lst_102)" +"(let-values(((lst_103)" "(sorted-hash-keys" " v_97)))" "(begin" @@ -18010,19 +18010,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_102)))" +" lst_103)))" "((letrec-values(((for-loop_118)" -"(lambda(lst_103)" +"(lambda(lst_104)" "(begin" " 'for-loop" "(if(pair?" -" lst_103)" +" lst_104)" "(let-values(((k_21)" "(unsafe-car" -" lst_103))" +" lst_104))" "((rest_50)" "(unsafe-cdr" -" lst_103)))" +" lst_104)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18045,7 +18045,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_118)" -" lst_102)))" +" lst_103)))" "(void)))))" "(if(prefab-struct-key" " v_97)" @@ -18176,25 +18176,25 @@ static const char *startup_source = "(let-values(((l_49) frontier_0))" "(begin" "(set! frontier_0 null)" -"(let-values(((lst_104) l_49))" +"(let-values(((lst_105) l_49))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_104)))" +"(check-list lst_105)))" "((letrec-values(((for-loop_120)" -"(lambda(lst_105)" +"(lambda(lst_106)" "(begin" " 'for-loop" "(if(pair?" -" lst_105)" +" lst_106)" "(let-values(((v_141)" "(unsafe-car" -" lst_105))" +" lst_106))" "((rest_51)" "(unsafe-cdr" -" lst_105)))" +" lst_106)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18212,7 +18212,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_120)" -" lst_104)))" +" lst_105)))" "(void))))))))))" " frontier-loop_0)" " v_138)" @@ -18260,7 +18260,7 @@ static const char *startup_source = " for-loop_121)" " null" "(hash-iterate-first ht_84)))))))" -"(let-values(((lst_106)" +"(let-values(((lst_107)" "(let-values(((share-steps12_0) share-steps_0)" "((<13_0) <))" "(sort7.1 #f #f #f #f share-steps12_0 <13_0)))" @@ -18268,19 +18268,19 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_106)))" +"(let-values()(check-list lst_107)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" "((letrec-values(((for-loop_122)" -"(lambda(table_110 lst_107 pos_24)" +"(lambda(table_110 lst_108 pos_24)" "(begin" " 'for-loop" -"(if(if(pair? lst_107) #t #f)" +"(if(if(pair? lst_108) #t #f)" "(let-values(((step_3)" -"(unsafe-car lst_107))" +"(unsafe-car lst_108))" "((rest_52)" -"(unsafe-cdr lst_107))" +"(unsafe-cdr lst_108))" "((pos_25) pos_24))" "(let-values(((table_111)" "(let-values(((table_112)" @@ -18307,7 +18307,7 @@ static const char *startup_source = " table_110)))))" " for-loop_122)" " '#hasheqv()" -" lst_106" +" lst_107" " start_20))))))" "(let-values(((stream_0) null))" "(let-values(((stream-size_0) 0))" @@ -18321,8 +18321,8 @@ static const char *startup_source = "(list-ref" " stream_0" "(- stream-size_0(add1 pos_26)))))" -"(let-values(((or-part_183)(not(keyword? v_142))))" -"(if or-part_183 or-part_183(eq? '#:quote v_142))))))))" +"(let-values(((or-part_184)(not(keyword? v_142))))" +"(if or-part_184 or-part_184(eq? '#:quote v_142))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_27)" "(begin" @@ -18440,7 +18440,7 @@ static const char *startup_source = "(length v_145))" "(values))))" "(let-values(((all-quoted?_0)" -"(let-values(((lst_108)" +"(let-values(((lst_109)" " v_145))" "(begin" "(if(variable-reference-from-unsafe?" @@ -18448,7 +18448,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_108)))" +" lst_109)))" "((letrec-values(((for-loop_123)" "(lambda(all-quoted?_1" " lst_42)" @@ -18487,7 +18487,7 @@ static const char *startup_source = " all-quoted?_1)))))" " for-loop_123)" " #t" -" lst_108)))))" +" lst_109)))))" "(if all-quoted?_0" "(let-values()" "(begin" @@ -18725,7 +18725,7 @@ static const char *startup_source = "(sorted-hash-keys" " v_145)))" "(let-values(((all-quoted?_10)" -"(let-values(((lst_109)" +"(let-values(((lst_110)" " ks_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -18733,20 +18733,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_109)))" +" lst_110)))" "((letrec-values(((for-loop_126)" "(lambda(all-quoted?_11" -" lst_110)" +" lst_111)" "(begin" " 'for-loop" "(if(pair?" -" lst_110)" +" lst_111)" "(let-values(((k_22)" "(unsafe-car" -" lst_110))" +" lst_111))" "((rest_54)" "(unsafe-cdr" -" lst_110)))" +" lst_111)))" "(let-values(((all-quoted?_12)" "(let-values(((all-quoted?_13)" " all-quoted?_11))" @@ -18772,10 +18772,10 @@ static const char *startup_source = "(if all-quoted?_13" "(if(quoted?_0" " k-pos_0)" -"(let-values(((or-part_184)" +"(let-values(((or-part_185)" " as-set?_0))" -"(if or-part_184" -" or-part_184" +"(if or-part_185" +" or-part_185" "(quoted?_0" " v-pos_1)))" " #f)" @@ -18791,7 +18791,7 @@ static const char *startup_source = " all-quoted?_11)))))" " for-loop_126)" " #t" -" lst_109)))))" +" lst_110)))))" "(if all-quoted?_10" "(let-values()" "(begin" @@ -19043,25 +19043,25 @@ static const char *startup_source = "(sorted-hash-keys" " v_147)))" "(begin" -"(let-values(((lst_111) ks_1))" +"(let-values(((lst_112) ks_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_111)))" +"(check-list lst_112)))" "((letrec-values(((for-loop_129)" -"(lambda(lst_112)" +"(lambda(lst_113)" "(begin" " 'for-loop" "(if(pair?" -" lst_112)" +" lst_113)" "(let-values(((k_24)" "(unsafe-car" -" lst_112))" +" lst_113))" "((rest_55)" "(unsafe-cdr" -" lst_112)))" +" lst_113)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -19084,7 +19084,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_129)" -" lst_111)))" +" lst_112)))" "(void))))))" "(let-values()" "(error" @@ -20293,7 +20293,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((protected?_1 next-pos_64)" +"(let-values(((protected?_2 next-pos_64)" "(decode" " vec_45" " next-pos_63" @@ -20310,7 +20310,7 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(deserialize-provided binding_11 protected?_1 syntax?_3)" +"(deserialize-provided binding_11 protected?_2 syntax?_3)" " next-pos_65)))))))))))))))))" "(define-values" "(decode-fill!)" @@ -20447,20 +20447,20 @@ static const char *startup_source = "(values))))" "(let-values(((l_50)(hash-ref scope-triggers_0 v_158 null)))" "(begin" -"(let-values(((lst_113) l_50))" +"(let-values(((lst_114) l_50))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_113)))" +"(let-values()(check-list lst_114)))" "((letrec-values(((for-loop_144)" -"(lambda(lst_114)" +"(lambda(lst_115)" "(begin" " 'for-loop" -"(if(pair? lst_114)" +"(if(pair? lst_115)" "(let-values(((v_159)" -"(unsafe-car lst_114))" +"(unsafe-car lst_115))" "((rest_56)" -"(unsafe-cdr lst_114)))" +"(unsafe-cdr lst_115)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20476,7 +20476,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_144)" -" lst_113)))" +" lst_114)))" "(void)" "((scope-with-bindings-ref v_158)" " v_158" @@ -21623,11 +21623,11 @@ static const char *startup_source = " out-sym_0))))))" "(begin" "(if(if check-and-remove?_0" -"(let-values(((or-part_185)" +"(let-values(((or-part_186)" "(not" " shortcut-table_0)))" -"(if or-part_185" -" or-part_185" +"(if or-part_186" +" or-part_186" "(hash-ref" " shortcut-table_0" " sym_31" @@ -21794,28 +21794,28 @@ static const char *startup_source = " ht_6" " i_129)))" "(let-values((()" -"(let-values(((lst_115)" +"(let-values(((lst_116)" " reqds_0))" "(begin" "(void)" "((letrec-values(((for-loop_151)" -"(lambda(lst_116)" +"(lambda(lst_117)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_116))" +" lst_117))" "(let-values(((reqd/maybe-bulk_0)" "(if(pair?" -" lst_116)" +" lst_117)" "(car" -" lst_116)" -" lst_116))" +" lst_117)" +" lst_117))" "((rest_57)" "(if(pair?" -" lst_116)" +" lst_117)" "(cdr" -" lst_116)" +" lst_117)" " null)))" "(let-values((()" "(let-values()" @@ -21879,7 +21879,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_151)" -" lst_115)))))" +" lst_116)))))" "(if(not" " #f)" "(for-loop_150" @@ -21960,16 +21960,16 @@ static const char *startup_source = "(lambda(reqds_1 id_26 phase_56 mpi_32 nominal-phase_5 sym_36)" "(begin" "(reverse$1" -"(let-values(((lst_117) reqds_1))" +"(let-values(((lst_118) reqds_1))" "(begin" "(void)" "((letrec-values(((for-loop_152)" -"(lambda(fold-var_96 lst_118)" +"(lambda(fold-var_96 lst_119)" "(begin" " 'for-loop" -"(if(not(null? lst_118))" -"(let-values(((r_36)(if(pair? lst_118)(car lst_118) lst_118))" -"((rest_58)(if(pair? lst_118)(cdr lst_118) null)))" +"(if(not(null? lst_119))" +"(let-values(((r_36)(if(pair? lst_119)(car lst_119) lst_119))" +"((rest_58)(if(pair? lst_119)(cdr lst_119) null)))" "(let-values(((fold-var_97)" "(let-values(((r_37)" "(normalize-required" @@ -22015,7 +22015,7 @@ static const char *startup_source = " fold-var_96)))))" " for-loop_152)" " null" -" lst_117)))))))" +" lst_118)))))))" "(define-values" "(check-not-defined93.1)" "(lambda(accum-update-nominals82_0" @@ -22147,23 +22147,23 @@ static const char *startup_source = "(syntax-e$1 id_27)" " null)))" "(begin" -"(let-values(((lst_119) reqds_2))" +"(let-values(((lst_120) reqds_2))" "(begin" "(void)" "((letrec-values(((for-loop_62)" -"(lambda(lst_120)" +"(lambda(lst_121)" "(begin" " 'for-loop" -"(if(not(null? lst_120))" +"(if(not(null? lst_121))" "(let-values(((r_38)" "(if(pair?" -" lst_120)" -"(car lst_120)" -" lst_120))" +" lst_121)" +"(car lst_121)" +" lst_121))" "((rest_59)" "(if(pair?" -" lst_120)" -"(cdr lst_120)" +" lst_121)" +"(cdr lst_121)" " null)))" "(let-values((()" "(let-values()" @@ -22215,7 +22215,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_62)" -" lst_119)))" +" lst_120)))" "(void)" "(if(if remove-shadowed!?_0(not(null? reqds_2)) #f)" "(let-values()" @@ -22237,18 +22237,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_58 '#hasheq())))" "(let-values(((new-defined-syms_0)" -"(let-values(((lst_121) syms_18))" +"(let-values(((lst_122) syms_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_121)))" +"(let-values()(check-list lst_122)))" "((letrec-values(((for-loop_154)" -"(lambda(defined-syms_3 lst_122)" +"(lambda(defined-syms_3 lst_123)" "(begin" " 'for-loop" -"(if(pair? lst_122)" -"(let-values(((sym_37)(unsafe-car lst_122))" -"((rest_60)(unsafe-cdr lst_122)))" +"(if(pair? lst_123)" +"(let-values(((sym_37)(unsafe-car lst_123))" +"((rest_60)(unsafe-cdr lst_123)))" "(let-values(((defined-syms_4)" "(let-values(((defined-syms_5) defined-syms_3))" "(let-values(((defined-syms_6)" @@ -22264,7 +22264,7 @@ static const char *startup_source = " defined-syms_3)))))" " for-loop_154)" " defined-syms_2" -" lst_121)))))" +" lst_122)))))" "(hash-set! phase-to-defined-syms_0 phase_58 new-defined-syms_0)))))))" "(define-values" "(extract-module-requires)" @@ -22286,21 +22286,21 @@ static const char *startup_source = "(if i_130" "(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_98 i_130)))" "(let-values(((fold-var_104)" -"(let-values(((lst_123) reqds_3))" +"(let-values(((lst_124) reqds_3))" "(begin" "(void)" "((letrec-values(((for-loop_156)" -"(lambda(fold-var_105 lst_124)" +"(lambda(fold-var_105 lst_125)" "(begin" " 'for-loop" -"(if(not(null? lst_124))" +"(if(not(null? lst_125))" "(let-values(((reqd_1)" -"(if(pair? lst_124)" -"(car lst_124)" -" lst_124))" +"(if(pair? lst_125)" +"(car lst_125)" +" lst_125))" "((rest_61)" -"(if(pair? lst_124)" -"(cdr lst_124)" +"(if(pair? lst_125)" +"(cdr lst_125)" " null)))" "(let-values(((fold-var_106)" "(let-values(((fold-var_107)" @@ -22325,7 +22325,7 @@ static const char *startup_source = " fold-var_105)))))" " for-loop_156)" " fold-var_103" -" lst_123)))))" +" lst_124)))))" "(if(not #f)" "(for-loop_155 fold-var_104(hash-iterate-next ht_98 i_130))" " fold-var_104)))" @@ -22338,8 +22338,8 @@ static const char *startup_source = "(extract-module-definitions)" "(lambda(r+p_11)" "(begin" -"(let-values(((or-part_186)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" -"(if or-part_186 or-part_186 null)))))" +"(let-values(((or-part_187)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" +"(if or-part_187 or-part_187 null)))))" "(define-values" "(extract-all-module-requires)" "(lambda(r+p_12 mod-name_12 phase_60)" @@ -22349,18 +22349,18 @@ static const char *startup_source = "(call/ec" "(lambda(esc_0)" "(reverse$1" -"(let-values(((lst_125)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" +"(let-values(((lst_126)(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_125)))" +"(let-values()(check-list lst_126)))" "((letrec-values(((for-loop_141)" -"(lambda(fold-var_109 lst_126)" +"(lambda(fold-var_109 lst_127)" "(begin" " 'for-loop" -"(if(pair? lst_126)" -"(let-values(((mod-name_13)(unsafe-car lst_126))" -"((rest_62)(unsafe-cdr lst_126)))" +"(if(pair? lst_127)" +"(let-values(((mod-name_13)(unsafe-car lst_127))" +"((rest_62)(unsafe-cdr lst_127)))" "(let-values(((fold-var_110)" "(let-values(((fold-var_111) fold-var_109))" "(if(eq? mod-name_13 self_12)" @@ -22378,7 +22378,7 @@ static const char *startup_source = " 'for-loop" "(let-values()" "(let-values(((fold-var_113)" -"(let-values(((lst_127)" +"(let-values(((lst_128)" "(if(eq?" " phase_60" " 'all)" @@ -22392,20 +22392,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_127)))" +" lst_128)))" "((letrec-values(((for-loop_158)" "(lambda(fold-var_114" -" lst_128)" +" lst_129)" "(begin" " 'for-loop" "(if(pair?" -" lst_128)" +" lst_129)" "(let-values(((phase_61)" "(unsafe-car" -" lst_128))" +" lst_129))" "((rest_63)" "(unsafe-cdr" -" lst_128)))" +" lst_129)))" "(let-values(((fold-var_115)" "(let-values(((ht_99)" "(hash-ref" @@ -22433,29 +22433,29 @@ static const char *startup_source = " ht_99" " i_131)))" "(let-values(((fold-var_117)" -"(let-values(((lst_129)" +"(let-values(((lst_130)" " reqds_4))" "(begin" "(void)" "((letrec-values(((for-loop_160)" "(lambda(fold-var_118" -" lst_130)" +" lst_131)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_130))" +" lst_131))" "(let-values(((reqd_2)" "(if(pair?" -" lst_130)" +" lst_131)" "(car" -" lst_130)" -" lst_130))" +" lst_131)" +" lst_131))" "((rest_64)" "(if(pair?" -" lst_130)" +" lst_131)" "(cdr" -" lst_130)" +" lst_131)" " null)))" "(let-values(((fold-var_119)" "(let-values(((fold-var_120)" @@ -22481,7 +22481,7 @@ static const char *startup_source = " fold-var_118)))))" " for-loop_160)" " fold-var_116" -" lst_129)))))" +" lst_130)))))" "(if(not" " #f)" "(for-loop_159" @@ -22504,7 +22504,7 @@ static const char *startup_source = " fold-var_114)))))" " for-loop_158)" " fold-var_112" -" lst_127)))))" +" lst_128)))))" " fold-var_113))))))" " for-loop_157)" " fold-var_111)))))))" @@ -22512,7 +22512,7 @@ static const char *startup_source = " fold-var_109)))))" " for-loop_141)" " null" -" lst_125)))))))))))" +" lst_126)))))))))))" "(define-values" "(add-provide!107.1)" "(lambda(as-protected?96_0" @@ -22582,8 +22582,8 @@ static const char *startup_source = "(hash-set" " at-phase_9" " sym_40" -"(if(let-values(((or-part_187) as-protected?_0))" -"(if or-part_187 or-part_187 as-transformer?_2))" +"(if(let-values(((or-part_188) as-protected?_0))" +"(if or-part_188 or-part_188 as-transformer?_2))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_2)" " plain-binding_0))))" "(if(same-binding? b_68 binding_14)" @@ -22609,18 +22609,18 @@ static const char *startup_source = "((phasesym-set)" "(lambda(ids_3)" "(begin" -"(let-values(((lst_141) ids_3))" +"(let-values(((lst_142) ids_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_141)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_142)))" "((letrec-values(((for-loop_168)" -"(lambda(table_131 lst_142)" +"(lambda(table_131 lst_143)" "(begin" " 'for-loop" -"(if(pair? lst_142)" -"(let-values(((id_44)(unsafe-car lst_142))((rest_71)(unsafe-cdr lst_142)))" +"(if(pair? lst_143)" +"(let-values(((id_44)(unsafe-car lst_143))((rest_71)(unsafe-cdr lst_143)))" "(let-values(((table_132)" "(let-values(((table_133) table_131))" "(let-values(((table_134)" @@ -24555,7 +24555,7 @@ static const char *startup_source = " table_131)))))" " for-loop_168)" " '#hash()" -" lst_141))))))" +" lst_142))))))" "(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)" @@ -24737,10 +24737,10 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(not" -"(let-values(((or-part_206)" +"(let-values(((or-part_207)" " visit?_2))" -"(if or-part_206" -" or-part_206" +"(if or-part_207" +" or-part_207" " run?_2)))" "(let-values()" "(let-values(((run-phase260_0)" @@ -24754,15 +24754,15 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((can-bulk-bind?_0)" -"(if(let-values(((or-part_207)" +"(if(let-values(((or-part_208)" "(not adjust_1)))" -"(if or-part_207" -" or-part_207" -"(let-values(((or-part_208)" -"(adjust-prefix?" -" adjust_1)))" "(if or-part_208" " or-part_208" +"(let-values(((or-part_209)" +"(adjust-prefix?" +" adjust_1)))" +"(if or-part_209" +" or-part_209" "(adjust-all-except?" " adjust_1)))))" "(not skip-variable-phase-level_1)" @@ -24873,11 +24873,11 @@ static const char *startup_source = " #f)" " #f))" "((temp248_0)" -"(if(let-values(((or-part_209)" +"(if(let-values(((or-part_210)" "(not" " can-bulk-bind?_0)))" -"(if or-part_209" -" or-part_209" +"(if or-part_210" +" or-part_210" " copy-variable-phase-level_1))" "(lambda(binding_17" " as-transformer?_3)" @@ -25066,7 +25066,7 @@ static const char *startup_source = "(if update-nominals-box_0" "(let-values()" "(begin" -"(let-values(((lst_143)" +"(let-values(((lst_144)" "(unbox" " update-nominals-box_0)))" "(begin" @@ -25075,19 +25075,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_143)))" +" lst_144)))" "((letrec-values(((for-loop_169)" -"(lambda(lst_144)" +"(lambda(lst_145)" "(begin" " 'for-loop" "(if(pair?" -" lst_144)" +" lst_145)" "(let-values(((update!_1)" "(unsafe-car" -" lst_144))" +" lst_145))" "((rest_72)" "(unsafe-cdr" -" lst_144)))" +" lst_145)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25104,7 +25104,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_169)" -" lst_143)))" +" lst_144)))" "(void)))" "(void))" "(values))))" @@ -25237,12 +25237,12 @@ static const char *startup_source = " i_134)))" "(let-values((()" "(let-values()" -"(if(let-values(((or-part_210)" +"(if(let-values(((or-part_211)" "(eq?" " just-meta_2" " 'all)))" -"(if or-part_210" -" or-part_210" +"(if or-part_211" +" or-part_211" "(eqv?" " just-meta_2" " provide-phase-level_5)))" @@ -25268,11 +25268,11 @@ static const char *startup_source = "(if filter_0" "(let-values()" "(begin" -"(let-values(((lst_145)" -"(let-values(((or-part_211)" +"(let-values(((lst_146)" +"(let-values(((or-part_212)" " only-syms_0))" -"(if or-part_211" -" or-part_211" +"(if or-part_212" +" or-part_212" "(hash-keys" " provides_7)))))" "(begin" @@ -25281,19 +25281,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_145)))" +" lst_146)))" "((letrec-values(((for-loop_171)" -"(lambda(lst_146)" +"(lambda(lst_147)" "(begin" " 'for-loop" "(if(pair?" -" lst_146)" +" lst_147)" "(let-values(((sym_44)" "(unsafe-car" -" lst_146))" +" lst_147))" "((rest_73)" "(unsafe-cdr" -" lst_146)))" +" lst_147)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25360,7 +25360,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_171)" -" lst_145)))" +" lst_146)))" "(void)))" "(void))" "(if can-bulk?_0" @@ -25370,7 +25370,7 @@ static const char *startup_source = " ns_49)))" "(let-values(((temp300_0)" "(bulk-binding14.1" -"(let-values(((or-part_212)" +"(let-values(((or-part_213)" "(if(not" " bulk-prefix_2)" "(if(zero?" @@ -25379,8 +25379,8 @@ static const char *startup_source = " provides_7" " #f)" " #f)))" -"(if or-part_212" -" or-part_212" +"(if or-part_213" +" or-part_213" "(if(not" "(registered-bulk-provide?" " bulk-binding-registry_10" @@ -26279,18 +26279,18 @@ static const char *startup_source = "(lambda(header_5 phase_66 cctx_0 cross-linklet-inlining?_0)" "(begin" "(let-values(((mod-use-ht_0)" -"(let-values(((lst_147)(header-require-vars-in-order header_5)))" +"(let-values(((lst_148)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_147)))" +"(let-values()(check-list lst_148)))" "((letrec-values(((for-loop_173)" -"(lambda(ht_103 lst_148)" +"(lambda(ht_103 lst_149)" "(begin" " 'for-loop" -"(if(pair? lst_148)" -"(let-values(((vu_0)(unsafe-car lst_148))" -"((rest_74)(unsafe-cdr lst_148)))" +"(if(pair? lst_149)" +"(let-values(((vu_0)(unsafe-car lst_149))" +"((rest_74)(unsafe-cdr lst_149)))" "(let-values(((ht_104)" "(let-values(((ht_105) ht_103))" "(let-values(((ht_106)" @@ -26298,21 +26298,21 @@ static const char *startup_source = "(let-values(((mu_2)" "(variable-use-module-use" " vu_0)))" -"(if(let-values(((or-part_213)" +"(if(let-values(((or-part_214)" "(hash-ref" " ht_105" " mu_2" " #f)))" -"(if or-part_213" -" or-part_213" -"(let-values(((or-part_214)" +"(if or-part_214" +" or-part_214" +"(let-values(((or-part_215)" "(eq?" "(module-use-module" " mu_2)" "(compile-context-self" " cctx_0))))" -"(if or-part_214" -" or-part_214" +"(if or-part_215" +" or-part_215" "(top-level-module-path-index?" "(module-use-module" " mu_2))))))" @@ -26323,22 +26323,22 @@ static const char *startup_source = " ht_103)))))" " for-loop_173)" " '#hash()" -" lst_147)))))" +" lst_148)))))" "(let-values(((link-mod-uses_0)(hash-keys mod-use-ht_0)))" "(values" " link-mod-uses_0" "(reverse$1" -"(let-values(((lst_102) link-mod-uses_0))" +"(let-values(((lst_103) link-mod-uses_0))" "(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_118)" -"(lambda(fold-var_25 lst_149)" +"(lambda(fold-var_25 lst_150)" "(begin" " 'for-loop" -"(if(pair? lst_149)" -"(let-values(((mu_3)(unsafe-car lst_149))((rest_75)(unsafe-cdr lst_149)))" +"(if(pair? lst_150)" +"(let-values(((mu_3)(unsafe-car lst_150))((rest_75)(unsafe-cdr lst_150)))" "(let-values(((fold-var_131)" "(let-values(((fold-var_132) fold-var_25))" "(let-values(((fold-var_133)" @@ -26356,17 +26356,17 @@ static const char *startup_source = "(let-values()(check-list lst_50)))" "((letrec-values(((for-loop_44)" "(lambda(fold-var_134" -" lst_150)" +" lst_151)" "(begin" " 'for-loop" "(if(pair?" -" lst_150)" +" lst_151)" "(let-values(((vu_1)" "(unsafe-car" -" lst_150))" +" lst_151))" "((rest_76)" "(unsafe-cdr" -" lst_150)))" +" lst_151)))" "(let-values(((fold-var_135)" "(let-values(((fold-var_136)" " fold-var_134))" @@ -26415,19 +26415,19 @@ static const char *startup_source = " fold-var_25)))))" " for-loop_118)" " null" -" lst_102))))" +" lst_103))))" "(reverse$1" -"(let-values(((lst_151) link-mod-uses_0))" +"(let-values(((lst_152) link-mod-uses_0))" "(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_174)" -"(lambda(fold-var_139 lst_104)" +"(lambda(fold-var_139 lst_105)" "(begin" " 'for-loop" -"(if(pair? lst_104)" -"(let-values(((mu_4)(unsafe-car lst_104))((rest_77)(unsafe-cdr lst_104)))" +"(if(pair? lst_105)" +"(let-values(((mu_4)(unsafe-car lst_105))((rest_77)(unsafe-cdr lst_105)))" "(let-values(((fold-var_140)" "(let-values(((fold-var_141) fold-var_139))" "(let-values(((fold-var_142)" @@ -26435,7 +26435,7 @@ static const char *startup_source = "(cons" "(let-values()" "(let-values(((extra-inspectorss_0)" -"(let-values(((lst_152)" +"(let-values(((lst_153)" "(header-require-vars-in-order" " header_5)))" "(begin" @@ -26444,20 +26444,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_152)))" +" lst_153)))" "((letrec-values(((for-loop_175)" "(lambda(table_135" -" lst_153)" +" lst_154)" "(begin" " 'for-loop" "(if(pair?" -" lst_153)" +" lst_154)" "(let-values(((vu_2)" "(unsafe-car" -" lst_153))" +" lst_154))" "((rest_78)" "(unsafe-cdr" -" lst_153)))" +" lst_154)))" "(let-values(((table_136)" "(let-values(((table_137)" " table_135))" @@ -26494,10 +26494,10 @@ static const char *startup_source = "(let-values(((table_31)" "(let-values(((table_32)" " table_30))" -"(if(let-values(((or-part_215)" +"(if(let-values(((or-part_216)" " extra-inspectors_1))" -"(if or-part_215" -" or-part_215" +"(if or-part_216" +" or-part_216" " cross-linklet-inlining?_0))" "(let-values(((table_111)" " table_32))" @@ -26532,7 +26532,7 @@ static const char *startup_source = " table_135)))))" " for-loop_175)" " '#hash()" -" lst_152)))))" +" lst_153)))))" "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" @@ -26542,28 +26542,28 @@ static const char *startup_source = " fold-var_139)))))" " for-loop_174)" " null" -" lst_151))))" +" lst_152))))" "(reverse$1" "(let-values(((lst_41)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_41)))" "((letrec-values(((for-loop_177)" -"(lambda(fold-var_143 lst_154)" +"(lambda(fold-var_143 lst_155)" "(begin" " 'for-loop" -"(if(pair? lst_154)" -"(let-values(((vu_3)(unsafe-car lst_154))((rest_79)(unsafe-cdr lst_154)))" +"(if(pair? lst_155)" +"(let-values(((vu_3)(unsafe-car lst_155))((rest_79)(unsafe-cdr lst_155)))" "(let-values(((fold-var_144)" "(let-values(((fold-var_145) fold-var_143))" "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" -"(let-values(((or-part_216)" +"(let-values(((or-part_217)" "(eq?" " mod_2" "(compile-context-self cctx_0))))" -"(if or-part_216" -" or-part_216" +"(if or-part_217" +" or-part_217" "(top-level-module-path-index? mod_2))))" "(let-values(((fold-var_146) fold-var_145))" "(let-values(((fold-var_147)" @@ -26806,20 +26806,20 @@ static const char *startup_source = "(list*" " 'case-lambda" "(reverse$1" -"(let-values(((lst_155)(parsed-case-lambda-clauses p_38)))" +"(let-values(((lst_156)(parsed-case-lambda-clauses p_38)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_155)))" +"(let-values()(check-list lst_156)))" "((letrec-values(((for-loop_178)" -"(lambda(fold-var_31 lst_156)" +"(lambda(fold-var_31 lst_157)" "(begin" " 'for-loop" -"(if(pair? lst_156)" +"(if(pair? lst_157)" "(let-values(((clause_0)" -"(unsafe-car lst_156))" +"(unsafe-car lst_157))" "((rest_80)" -"(unsafe-cdr lst_156)))" +"(unsafe-cdr lst_157)))" "(let-values(((fold-var_63)" "(let-values(((fold-var_148)" " fold-var_31))" @@ -26842,7 +26842,7 @@ static const char *startup_source = " fold-var_31)))))" " for-loop_178)" " null" -" lst_155))))))" +" lst_156))))))" " name_39" " s_10))" "(let-values()(correlate~ s_10 ''unused-case-lambda))))" @@ -26860,13 +26860,13 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_39)))" "((letrec-values(((for-loop_179)" -"(lambda(fold-var_150 lst_157)" +"(lambda(fold-var_150 lst_158)" "(begin" " 'for-loop" -"(if(pair? lst_157)" -"(let-values(((r_40)(unsafe-car lst_157))" +"(if(pair? lst_158)" +"(let-values(((r_40)(unsafe-car lst_158))" "((rest_40)" -"(unsafe-cdr lst_157)))" +"(unsafe-cdr lst_158)))" "(let-values(((fold-var_151)" "(let-values(((fold-var_9)" " fold-var_150))" @@ -26925,20 +26925,20 @@ static const char *startup_source = " 'begin0" "(compile_0(car(parsed-begin0-body p_38)) name_39 result-used?_0)" "(reverse$1" -"(let-values(((lst_75)(cdr(parsed-begin0-body p_38))))" +"(let-values(((lst_76)(cdr(parsed-begin0-body p_38))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_75)))" +"(let-values()(check-list lst_76)))" "((letrec-values(((for-loop_102)" -"(lambda(fold-var_11 lst_85)" +"(lambda(fold-var_11 lst_86)" "(begin" " 'for-loop" -"(if(pair? lst_85)" +"(if(pair? lst_86)" "(let-values(((e_32)" -"(unsafe-car lst_85))" +"(unsafe-car lst_86))" "((rest_41)" -"(unsafe-cdr lst_85)))" +"(unsafe-cdr lst_86)))" "(let-values(((fold-var_152)" "(let-values(((fold-var_153)" " fold-var_11))" @@ -26961,7 +26961,7 @@ static const char *startup_source = " fold-var_11)))))" " for-loop_102)" " null" -" lst_75)))))))" +" lst_76)))))))" "(if(parsed-begin? p_38)" "(let-values()" "(correlate~" @@ -27068,19 +27068,19 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_158) es_0)((start_33) 0))" +"(let-values(((lst_159) es_0)((start_33) 0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_158)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_159)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_33)))" "((letrec-values(((for-loop_180)" -"(lambda(fold-var_76 lst_159 pos_90)" +"(lambda(fold-var_76 lst_160 pos_90)" "(begin" " 'for-loop" -"(if(if(pair? lst_159) #t #f)" -"(let-values(((e_33)(unsafe-car lst_159))" -"((rest_81)(unsafe-cdr lst_159))" +"(if(if(pair? lst_160) #t #f)" +"(let-values(((e_33)(unsafe-car lst_160))" +"((rest_81)(unsafe-cdr lst_160))" "((i_135) pos_90))" "(let-values(((fold-var_155)" "(let-values(((fold-var_156) fold-var_76))" @@ -27101,7 +27101,7 @@ static const char *startup_source = " fold-var_76)))))" " for-loop_180)" " null" -" lst_158" +" lst_159" " start_33)))))))))" "(define-values" "(add-lambda-properties)" @@ -27117,17 +27117,17 @@ static const char *startup_source = "(let-values(((n2_0)(simplify-name_0(cdr v_50))))(if(eq? n1_0 n2_0) n1_0 v_50))))" "(let-values() v_50))))))" "(let-values(((name_44)" -"(let-values(((or-part_217)" +"(let-values(((or-part_218)" "(let-values(((v_43)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_218)(symbol? v_43)))" -"(if or-part_218" -" or-part_218" -"(let-values(((or-part_219)(syntax?$1 v_43)))" -"(if or-part_219 or-part_219(void? v_43)))))" +"(if(let-values(((or-part_219)(symbol? v_43)))" +"(if or-part_219" +" or-part_219" +"(let-values(((or-part_220)(syntax?$1 v_43)))" +"(if or-part_220 or-part_220(void? v_43)))))" " v_43" " #f))))" -"(if or-part_217 or-part_217 inferred-name_0))))" +"(if or-part_218 or-part_218 inferred-name_0))))" "(let-values(((named-s_0)" "(if name_44" "(correlated-property" @@ -27156,24 +27156,24 @@ static const char *startup_source = "(list" "(if rec?_0 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_160)(parsed-let_-values-clauses p_30))" -"((lst_161)(parsed-let_-values-idss p_30)))" +"(let-values(((lst_161)(parsed-let_-values-clauses p_30))" +"((lst_162)(parsed-let_-values-idss p_30)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_160)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_161)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_162)))" "((letrec-values(((for-loop_34)" -"(lambda(fold-var_158 lst_162 lst_163)" +"(lambda(fold-var_158 lst_163 lst_164)" "(begin" " 'for-loop" -"(if(if(pair? lst_162)(pair? lst_163) #f)" -"(let-values(((clause_1)(unsafe-car lst_162))" -"((rest_82)(unsafe-cdr lst_162))" -"((ids_4)(unsafe-car lst_163))" -"((rest_83)(unsafe-cdr lst_163)))" +"(if(if(pair? lst_163)(pair? lst_164) #f)" +"(let-values(((clause_1)(unsafe-car lst_163))" +"((rest_82)(unsafe-cdr lst_163))" +"((ids_4)(unsafe-car lst_164))" +"((rest_83)(unsafe-cdr lst_164)))" "(let-values(((fold-var_159)" "(let-values(((fold-var_160) fold-var_158))" "(let-values(((fold-var_161)" @@ -27183,10 +27183,10 @@ static const char *startup_source = "(list" "(if rec?_0" "(reverse$1" -"(let-values(((lst_164)" +"(let-values(((lst_165)" "(car" " clause_1))" -"((lst_165)" +"((lst_166)" " ids_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -27194,36 +27194,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_164)))" +" lst_165)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_165)))" +" lst_166)))" "((letrec-values(((for-loop_181)" "(lambda(fold-var_162" -" lst_166" -" lst_167)" +" lst_167" +" lst_168)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_166)" -"(pair?" " lst_167)" +"(pair?" +" lst_168)" " #f)" "(let-values(((sym_50)" "(unsafe-car" -" lst_166))" +" lst_167))" "((rest_84)" "(unsafe-cdr" -" lst_166))" +" lst_167))" "((id_46)" "(unsafe-car" -" lst_167))" +" lst_168))" "((rest_85)" "(unsafe-cdr" -" lst_167)))" +" lst_168)))" "(let-values(((fold-var_163)" "(let-values(((fold-var_1)" " fold-var_162))" @@ -27247,8 +27247,8 @@ static const char *startup_source = " fold-var_162)))))" " for-loop_181)" " null" -" lst_164" -" lst_165))))" +" lst_165" +" lst_166))))" "(car clause_1))" "(compile$2" "(cadr clause_1)" @@ -27264,8 +27264,8 @@ static const char *startup_source = " fold-var_158)))))" " for-loop_34)" " null" -" lst_160" -" lst_161))))" +" lst_161" +" lst_162))))" "(compile-sequence body_0 cctx_8 name_45 result-used?_4)))))))))))))" "(define-values" "(add-undefined-error-name-property)" @@ -27289,9 +27289,9 @@ static const char *startup_source = "(let-values()" "(let-values(((normal-b_0)(parsed-id-binding p_43)))" "(let-values(((b_71)" -"(let-values(((or-part_220) normal-b_0))" -"(if or-part_220" -" or-part_220" +"(let-values(((or-part_221) normal-b_0))" +"(if or-part_221" +" or-part_221" "(let-values(((temp45_0)(compile-context-self cctx_9))" "((temp46_0)(compile-context-phase cctx_9))" "((temp47_0)(syntax-e$1(parsed-s p_43))))" @@ -27356,10 +27356,10 @@ static const char *startup_source = "(module-binding-extra-inspector b_71)))" "(if or-part_102" " or-part_102" -"(let-values(((or-part_221)" +"(let-values(((or-part_222)" "(parsed-id-inspector p_43)))" -"(if or-part_221" -" or-part_221" +"(if or-part_222" +" or-part_222" "(if(parsed-s p_43)" "(syntax-inspector(parsed-s p_43))" " #f)))))))" @@ -27431,8 +27431,8 @@ static const char *startup_source = "(extra-inspectors-merge)" "(lambda(extra-inspectors-1_0 extra-inspectors-2_0)" "(begin" -"(if(let-values(((or-part_222)(not extra-inspectors-1_0)))" -"(if or-part_222 or-part_222(not extra-inspectors-2_0)))" +"(if(let-values(((or-part_223)(not extra-inspectors-1_0)))" +"(if or-part_223 or-part_223(not extra-inspectors-2_0)))" "(let-values() #f)" "(if(if(set? extra-inspectors-1_0)(set? extra-inspectors-2_0) #f)" "(let-values()(set-union extra-inspectors-1_0 extra-inspectors-2_0))" @@ -27479,19 +27479,19 @@ static const char *startup_source = "(if extra-inspectorsss_0" "(let-values()" "(reverse$1" -"(let-values(((lst_168) mus_1)((lst_75) extra-inspectorsss_0))" +"(let-values(((lst_169) mus_1)((lst_76) extra-inspectorsss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_168)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_75)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_169)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_76)))" "((letrec-values(((for-loop_102)" -"(lambda(fold-var_11 lst_85 lst_77)" +"(lambda(fold-var_11 lst_86 lst_78)" "(begin" " 'for-loop" -"(if(if(pair? lst_85)(pair? lst_77) #f)" -"(let-values(((mu_5)(unsafe-car lst_85))" -"((rest_86)(unsafe-cdr lst_85))" -"((extra-inspectorss_1)(unsafe-car lst_77))" -"((rest_87)(unsafe-cdr lst_77)))" +"(if(if(pair? lst_86)(pair? lst_78) #f)" +"(let-values(((mu_5)(unsafe-car lst_86))" +"((rest_86)(unsafe-cdr lst_86))" +"((extra-inspectorss_1)(unsafe-car lst_78))" +"((rest_87)(unsafe-cdr lst_78)))" "(let-values(((fold-var_164)" "(let-values(((fold-var_165) fold-var_11))" "(let-values(((fold-var_166)" @@ -27509,19 +27509,19 @@ static const char *startup_source = " fold-var_11)))))" " for-loop_102)" " null" -" lst_168" -" lst_75)))))" +" lst_169" +" lst_76)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_86) mus_1))" +"(let-values(((lst_87) mus_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_86)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_87)))" "((letrec-values(((for-loop_94)" -"(lambda(fold-var_167 lst_169)" +"(lambda(fold-var_167 lst_170)" "(begin" " 'for-loop" -"(if(pair? lst_169)" -"(let-values(((mu_6)(unsafe-car lst_169))((rest_88)(unsafe-cdr lst_169)))" +"(if(pair? lst_170)" +"(let-values(((mu_6)(unsafe-car lst_170))((rest_88)(unsafe-cdr lst_170)))" "(let-values(((fold-var_67)" "(let-values(((fold-var_168) fold-var_167))" "(let-values(((fold-var_18)" @@ -27539,21 +27539,21 @@ static const char *startup_source = " fold-var_167)))))" " for-loop_94)" " null" -" lst_86)))))))))" +" lst_87)))))))))" "(define-values" "(module-uses-strip-extra-inspectorsss)" "(lambda(mu*s_0)" "(begin" "(reverse$1" -"(let-values(((lst_170) mu*s_0))" +"(let-values(((lst_171) mu*s_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_170)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_171)))" "((letrec-values(((for-loop_182)" -"(lambda(fold-var_69 lst_171)" +"(lambda(fold-var_69 lst_172)" "(begin" " 'for-loop" -"(if(pair? lst_171)" -"(let-values(((mu*_0)(unsafe-car lst_171))((rest_89)(unsafe-cdr lst_171)))" +"(if(pair? lst_172)" +"(let-values(((mu*_0)(unsafe-car lst_172))((rest_89)(unsafe-cdr lst_172)))" "(let-values(((fold-var_169)" "(let-values(((fold-var_70) fold-var_69))" "(let-values(((fold-var_170)" @@ -27569,7 +27569,7 @@ static const char *startup_source = " fold-var_69)))))" " for-loop_182)" " null" -" lst_170)))))))" +" lst_171)))))))" "(define-values" "(module-uses-extract-extra-inspectorsss)" "(lambda(mu*s_1 linklet_0 check-inlined-reference?_0 skip-n_0)" @@ -27577,9 +27577,9 @@ static const char *startup_source = "(if(not check-inlined-reference?_0)" "(let-values()" "(reverse$1" -"(let-values(((lst_172) mu*s_1))" +"(let-values(((lst_173) mu*s_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_172)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_173)))" "((letrec-values(((for-loop_183)" "(lambda(fold-var_73 lst_9)" "(begin" @@ -27599,22 +27599,22 @@ static const char *startup_source = " fold-var_73)))))" " for-loop_183)" " null" -" lst_172)))))" +" lst_173)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_173) mu*s_1)((lst_174)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" +"(let-values(((lst_174) mu*s_1)((lst_175)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_173)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" "((letrec-values(((for-loop_30)" -"(lambda(fold-var_6 lst_175 lst_176)" +"(lambda(fold-var_6 lst_176 lst_177)" "(begin" " 'for-loop" -"(if(if(pair? lst_175)(pair? lst_176) #f)" -"(let-values(((mu*_2)(unsafe-car lst_175))" -"((rest_91)(unsafe-cdr lst_175))" -"((imports_0)(unsafe-car lst_176))" -"((rest_92)(unsafe-cdr lst_176)))" +"(if(if(pair? lst_176)(pair? lst_177) #f)" +"(let-values(((mu*_2)(unsafe-car lst_176))" +"((rest_91)(unsafe-cdr lst_176))" +"((imports_0)(unsafe-car lst_177))" +"((rest_92)(unsafe-cdr lst_177)))" "(let-values(((fold-var_173)" "(let-values(((fold-var_174) fold-var_6))" "(let-values(((fold-var_175)" @@ -27624,25 +27624,25 @@ static const char *startup_source = "(let-values(((extra-inspectorss_2)" "(module-use*-extra-inspectorss" " mu*_2)))" -"(let-values(((lst_91) imports_0))" +"(let-values(((lst_92) imports_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_91)))" +"(let-values()(check-list lst_92)))" "((letrec-values(((for-loop_19)" "(lambda(extra-inspectorss_3" -" lst_177)" +" lst_178)" "(begin" " 'for-loop" "(if(pair?" -" lst_177)" +" lst_178)" "(let-values(((import_0)" "(unsafe-car" -" lst_177))" +" lst_178))" "((rest_93)" "(unsafe-cdr" -" lst_177)))" +" lst_178)))" "(let-values(((extra-inspectorss_4)" "(let-values(((extra-inspectorss_5)" " extra-inspectorss_3))" @@ -27674,18 +27674,18 @@ static const char *startup_source = " extra-inspectorss_3)))))" " for-loop_19)" " extra-inspectorss_2" -" lst_91)))))" +" lst_92)))))" " fold-var_174))))" "(values fold-var_175)))))" "(if(not #f)(for-loop_30 fold-var_173 rest_91 rest_92) fold-var_173)))" " fold-var_6)))))" " for-loop_30)" " null" -" lst_173" -" lst_174)))))))))" +" lst_174" +" lst_175)))))))))" "(define-values" "(module-use*-declaration-inspector!)" -"(lambda(mu*_3 insp_9)(begin(set-module-use*-self-inspector! mu*_3 insp_9))))" +"(lambda(mu*_3 insp_8)(begin(set-module-use*-self-inspector! mu*_3 insp_8))))" "(define-values" "(module-use+extra-inspectors)" "(lambda(mpi_42 phase_67 imports_1 inspector_12 extra-inspector_5 extra-inspectorss_7)" @@ -27695,20 +27695,20 @@ static const char *startup_source = "(let-values(((add-extra-insp?_0)" "(if extra-inspector_5(inspector-superior? extra-inspector_5 now-inspector_0) #f)))" "(let-values(((new-extra-inspectorss_0)" -"(if(let-values(((or-part_223) add-insp?_0))(if or-part_223 or-part_223 add-extra-insp?_0))" +"(if(let-values(((or-part_224) add-insp?_0))(if or-part_224 or-part_224 add-extra-insp?_0))" "(let-values()" -"(let-values(((lst_178) imports_1))" +"(let-values(((lst_179) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_178)))" +"(let-values()(check-list lst_179)))" "((letrec-values(((for-loop_112)" -"(lambda(table_139 lst_179)" +"(lambda(table_139 lst_180)" "(begin" " 'for-loop" -"(if(pair? lst_179)" -"(let-values(((import_1)(unsafe-car lst_179))" -"((rest_94)(unsafe-cdr lst_179)))" +"(if(pair? lst_180)" +"(let-values(((import_1)(unsafe-car lst_180))" +"((rest_94)(unsafe-cdr lst_180)))" "(let-values(((table_140)" "(let-values(((table_141) table_139))" "(let-values(((table_142)" @@ -27726,22 +27726,22 @@ static const char *startup_source = " #f)" " #f)))" "(lambda(guard-insp_2)" -"(let-values(((or-part_224)" +"(let-values(((or-part_225)" "(if add-insp?_0" "(inspector-superior?" " inspector_12" " guard-insp_2)" " #f)))" -"(if or-part_224" -" or-part_224" -"(let-values(((or-part_225)" +"(if or-part_225" +" or-part_225" +"(let-values(((or-part_226)" "(if add-extra-insp?_0" "(inspector-superior?" " extra-inspector_5" " guard-insp_2)" " #f)))" -"(if or-part_225" -" or-part_225" +"(if or-part_226" +" or-part_226" "(extra-inspectors-allow?" " extra-inspectors_3" " guard-insp_2)))))))))))" @@ -27754,20 +27754,20 @@ static const char *startup_source = " table_139)))))" " for-loop_112)" " '#hash()" -" lst_178))))" +" lst_179))))" "(let-values()" -"(let-values(((lst_163) imports_1))" +"(let-values(((lst_164) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_163)))" +"(let-values()(check-list lst_164)))" "((letrec-values(((for-loop_184)" -"(lambda(extra-inspectorss_8 lst_180)" +"(lambda(extra-inspectorss_8 lst_181)" "(begin" " 'for-loop" -"(if(pair? lst_180)" -"(let-values(((import_2)(unsafe-car lst_180))" -"((rest_95)(unsafe-cdr lst_180)))" +"(if(pair? lst_181)" +"(let-values(((import_2)(unsafe-car lst_181))" +"((rest_95)(unsafe-cdr lst_181)))" "(let-values(((extra-inspectorss_9)" "(let-values(((extra-inspectorss_10)" " extra-inspectorss_8))" @@ -27788,9 +27788,9 @@ static const char *startup_source = " extra-inspectorss_9)))" " extra-inspectorss_8)))))" " for-loop_184)" -"(let-values(((or-part_226) extra-inspectorss_7))" -"(if or-part_226 or-part_226(seteq)))" -" lst_163)))))))" +"(let-values(((or-part_227) extra-inspectorss_7))" +"(if or-part_227 or-part_227(seteq)))" +" lst_164)))))))" "(module-use*1.1 mpi_42 phase_67 new-extra-inspectorss_0 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" @@ -27950,23 +27950,23 @@ static const char *startup_source = " header_7))))))))" "(let-values((()" "(begin" -"(let-values(((lst_181) force-phases_0))" +"(let-values(((lst_182) force-phases_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_181)))" +"(let-values()(check-list lst_182)))" "((letrec-values(((for-loop_186)" -"(lambda(lst_182)" +"(lambda(lst_183)" "(begin" " 'for-loop" -"(if(pair? lst_182)" +"(if(pair? lst_183)" "(let-values(((phase_70)" "(unsafe-car" -" lst_182))" +" lst_183))" "((rest_96)" "(unsafe-cdr" -" lst_182)))" +" lst_183)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -27987,7 +27987,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_186)" -" lst_181)))" +" lst_182)))" "(values))))" "(let-values()" "(let-values(((saw-define-syntaxes?_0) #f))" @@ -28002,7 +28002,7 @@ static const char *startup_source = "(begin" " 'loop!" "(begin" -"(let-values(((lst_183)" +"(let-values(((lst_184)" " bodys_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28010,19 +28010,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_183)))" +" lst_184)))" "((letrec-values(((for-loop_187)" -"(lambda(lst_184)" +"(lambda(lst_185)" "(begin" " 'for-loop" "(if(pair?" -" lst_184)" +" lst_185)" "(let-values(((body_2)" "(unsafe-car" -" lst_184))" +" lst_185))" "((rest_97)" "(unsafe-cdr" -" lst_184)))" +" lst_185)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28033,7 +28033,7 @@ static const char *startup_source = " body_2)" "(let-values()" "(begin" -"(let-values(((lst_160)" +"(let-values(((lst_161)" "(parsed-define-values-syms" " body_2)))" "(begin" @@ -28042,19 +28042,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_160)))" +" lst_161)))" "((letrec-values(((for-loop_11)" -"(lambda(lst_185)" +"(lambda(lst_186)" "(begin" " 'for-loop" "(if(pair?" -" lst_185)" +" lst_186)" "(let-values(((sym_54)" "(unsafe-car" -" lst_185))" +" lst_186))" "((rest_98)" "(unsafe-cdr" -" lst_185)))" +" lst_186)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28089,7 +28089,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_11)" -" lst_160)))" +" lst_161)))" "(void)))" "(if(parsed-begin-for-syntax?" " body_2)" @@ -28112,7 +28112,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_187)" -" lst_183)))" +" lst_184)))" "(void))))))" " loop!_0)" " bodys_2" @@ -28138,7 +28138,7 @@ static const char *startup_source = "(begin" " 'loop!" "(begin" -"(let-values(((lst_186)" +"(let-values(((lst_187)" " bodys_4)" "((start_34)" " 0))" @@ -28148,7 +28148,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_186)))" +" lst_187)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -28156,20 +28156,20 @@ static const char *startup_source = "(check-naturals" " start_34)))" "((letrec-values(((for-loop_188)" -"(lambda(lst_187" +"(lambda(lst_188" " pos_91)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_187)" +" lst_188)" " #t" " #f)" "(let-values(((body_3)" "(unsafe-car" -" lst_187))" +" lst_188))" "((rest_99)" "(unsafe-cdr" -" lst_187))" +" lst_188))" "((i_138)" " pos_91))" "(let-values((()" @@ -28192,7 +28192,7 @@ static const char *startup_source = " cctx_11)" "(let-values()" "(reverse$1" -"(let-values(((lst_188)" +"(let-values(((lst_189)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28200,20 +28200,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_188)))" +" lst_189)))" "((letrec-values(((for-loop_189)" "(lambda(fold-var_3" -" lst_189)" +" lst_190)" "(begin" " 'for-loop" "(if(pair?" -" lst_189)" +" lst_190)" "(let-values(((binding-sym_0)" "(unsafe-car" -" lst_189))" +" lst_190))" "((rest_100)" "(unsafe-cdr" -" lst_189)))" +" lst_190)))" "(let-values(((fold-var_176)" "(let-values(((fold-var_177)" " fold-var_3))" @@ -28237,7 +28237,7 @@ static const char *startup_source = " fold-var_3)))))" " for-loop_189)" " null" -" lst_188)))))" +" lst_189)))))" "(let-values()" "(reverse$1" "(let-values(((lst_48)" @@ -28358,11 +28358,11 @@ static const char *startup_source = " rhs_1))" "(parsed-s" " body_3)))" -"(if(let-values(((or-part_227)" +"(if(let-values(((or-part_228)" "(compile-context-module-self" " cctx_11)))" -"(if or-part_227" -" or-part_227" +"(if or-part_228" +" or-part_228" "(null?" " ids_5)))" "(void)" @@ -28376,7 +28376,7 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_190)" +"(let-values(((lst_191)" " def-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28384,20 +28384,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_190)))" +" lst_191)))" "((letrec-values(((for-loop_190)" "(lambda(fold-var_179" -" lst_191)" +" lst_192)" "(begin" " 'for-loop" "(if(pair?" -" lst_191)" +" lst_192)" "(let-values(((def-sym_2)" "(unsafe-car" -" lst_191))" +" lst_192))" "((rest_101)" "(unsafe-cdr" -" lst_191)))" +" lst_192)))" "(let-values(((fold-var_180)" "(let-values(((fold-var_181)" " fold-var_179))" @@ -28421,7 +28421,7 @@ static const char *startup_source = " fold-var_179)))))" " for-loop_190)" " null" -" lst_190)))))" +" lst_191)))))" " '((void))))" "(add-body!_0" " phase_72" @@ -28469,7 +28469,7 @@ static const char *startup_source = " phase_72))))" "(let-values(((gen-syms_0)" "(reverse$1" -"(let-values(((lst_192)" +"(let-values(((lst_193)" " binding-syms_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28477,20 +28477,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_192)))" +" lst_193)))" "((letrec-values(((for-loop_191)" "(lambda(fold-var_183" -" lst_193)" +" lst_194)" "(begin" " 'for-loop" "(if(pair?" -" lst_193)" +" lst_194)" "(let-values(((binding-sym_2)" "(unsafe-car" -" lst_193))" +" lst_194))" "((rest_102)" "(unsafe-cdr" -" lst_193)))" +" lst_194)))" "(let-values(((fold-var_184)" "(let-values(((fold-var_185)" " fold-var_183))" @@ -28519,7 +28519,7 @@ static const char *startup_source = " fold-var_183)))))" " for-loop_191)" " null" -" lst_192))))))" +" lst_193))))))" "(let-values(((rhs_2)" "(compile$2" "(parsed-define-syntaxes-rhs" @@ -28567,9 +28567,9 @@ static const char *startup_source = "(values))))" "(let-values(((transformer-set!s_0)" "(reverse$1" -"(let-values(((lst_194)" +"(let-values(((lst_195)" " binding-syms_1)" -"((lst_195)" +"((lst_196)" " gen-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28577,36 +28577,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_194)))" +" lst_195)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_195)))" +" lst_196)))" "((letrec-values(((for-loop_41)" "(lambda(fold-var_187" -" lst_196" -" lst_197)" +" lst_197" +" lst_198)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_196)" -"(pair?" " lst_197)" +"(pair?" +" lst_198)" " #f)" "(let-values(((binding-sym_3)" "(unsafe-car" -" lst_196))" +" lst_197))" "((rest_103)" "(unsafe-cdr" -" lst_196))" +" lst_197))" "((gen-sym_1)" "(unsafe-car" -" lst_197))" +" lst_198))" "((rest_104)" "(unsafe-cdr" -" lst_197)))" +" lst_198)))" "(let-values(((fold-var_188)" "(let-values(((fold-var_189)" " fold-var_187))" @@ -28633,8 +28633,8 @@ static const char *startup_source = " fold-var_187)))))" " for-loop_41)" " null" -" lst_194" -" lst_195))))))" +" lst_195" +" lst_196))))))" "(begin" "(if(compile-context-module-self" " cctx_11)" @@ -28703,16 +28703,16 @@ static const char *startup_source = "(find-or-create-header!_0" "(add1" " phase_72))))" -"(if(let-values(((or-part_228)" +"(if(let-values(((or-part_229)" "(parsed-#%declare?" " body_3)))" -"(if or-part_228" -" or-part_228" -"(let-values(((or-part_229)" -"(parsed-module?" -" body_3)))" "(if or-part_229" " or-part_229" +"(let-values(((or-part_230)" +"(parsed-module?" +" body_3)))" +"(if or-part_230" +" or-part_230" "(parsed-require?" " body_3)))))" "(let-values()" @@ -28812,7 +28812,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_188)" -" lst_186" +" lst_187" " start_34)))" "(void))))))" " loop!_1)" @@ -28862,27 +28862,27 @@ static const char *startup_source = " phases-in-order_2))" " phase_68)))" "(let-values(((phase-to-link-info_0)" -"(let-values(((lst_102)" +"(let-values(((lst_103)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_102)))" +"(check-list lst_103)))" "((letrec-values(((for-loop_118)" "(lambda(table_143" -" lst_149)" +" lst_150)" "(begin" " 'for-loop" "(if(pair?" -" lst_149)" +" lst_150)" "(let-values(((phase_49)" "(unsafe-car" -" lst_149))" +" lst_150))" "((rest_75)" "(unsafe-cdr" -" lst_149)))" +" lst_150)))" "(let-values(((table_144)" "(let-values(((table_145)" " table_143))" @@ -28927,9 +28927,9 @@ static const char *startup_source = " table_143)))))" " for-loop_118)" " '#hash()" -" lst_102)))))" +" lst_103)))))" "(let-values(((body-linklets+module-use*s_0)" -"(let-values(((lst_198)" +"(let-values(((lst_199)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28937,20 +28937,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_198)))" +" lst_199)))" "((letrec-values(((for-loop_192)" "(lambda(table_147" -" lst_199)" +" lst_200)" "(begin" " 'for-loop" "(if(pair?" -" lst_199)" +" lst_200)" "(let-values(((phase_73)" "(unsafe-car" -" lst_199))" +" lst_200))" "((rest_105)" "(unsafe-cdr" -" lst_199)))" +" lst_200)))" "(let-values(((table_148)" "(let-values(((table_149)" " table_147))" @@ -29009,7 +29009,7 @@ static const char *startup_source = "(link-info-def-decls" " li_0)" "(reverse$1" -"(let-values(((lst_200)" +"(let-values(((lst_201)" "(header-binding-syms-in-order" "(hash-ref" " phase-to-header_0" @@ -29020,20 +29020,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_200)))" +" lst_201)))" "((letrec-values(((for-loop_122)" "(lambda(fold-var_191" -" lst_107)" +" lst_108)" "(begin" " 'for-loop" "(if(pair?" -" lst_107)" +" lst_108)" "(let-values(((binding-sym_4)" "(unsafe-car" -" lst_107))" +" lst_108))" "((rest_106)" "(unsafe-cdr" -" lst_107)))" +" lst_108)))" "(let-values(((fold-var_192)" "(let-values(((fold-var_193)" " fold-var_191))" @@ -29064,7 +29064,7 @@ static const char *startup_source = " fold-var_191)))))" " for-loop_122)" " null" -" lst_200)))))" +" lst_201)))))" "(qq-append" "(reverse$1" " bodys_5)" @@ -29104,7 +29104,7 @@ static const char *startup_source = " table_147)))))" " for-loop_192)" " '#hasheq()" -" lst_198)))))" +" lst_199)))))" "(let-values(((body-linklets_0)" "(let-values(((ht_109)" " body-linklets+module-use*s_0))" @@ -29313,25 +29313,25 @@ static const char *startup_source = "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_201) ids_7)" -"((lst_202) binding-syms_2)" -"((lst_203)" +"(let-values(((lst_202) ids_7)" +"((lst_203) binding-syms_2)" +"((lst_204)" "(let-values(((or-part_20) trans-exprs_0))" "(if or-part_20" " or-part_20" "(reverse$1" -"(let-values(((lst_204) ids_7))" +"(let-values(((lst_205) ids_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_204)))" +"(let-values()(check-list lst_205)))" "((letrec-values(((for-loop_197)" -"(lambda(fold-var_195 lst_205)" +"(lambda(fold-var_195 lst_206)" "(begin" " 'for-loop" -"(if(pair? lst_205)" -"(let-values(((id_48)(unsafe-car lst_205))" -"((rest_107)(unsafe-cdr lst_205)))" +"(if(pair? lst_206)" +"(let-values(((id_48)(unsafe-car lst_206))" +"((rest_107)(unsafe-cdr lst_206)))" "(let-values(((fold-var_196)" "(let-values(((fold-var_197)" " fold-var_195))" @@ -29348,28 +29348,28 @@ static const char *startup_source = " fold-var_195)))))" " for-loop_197)" " null" -" lst_204))))))))" +" lst_205))))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_201)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_202)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_203)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_204)))" "((letrec-values(((for-loop_198)" -"(lambda(fold-var_199 lst_2 lst_206 lst_207)" +"(lambda(fold-var_199 lst_2 lst_207 lst_208)" "(begin" " 'for-loop" -"(if(if(pair? lst_2)(if(pair? lst_206)(pair? lst_207) #f) #f)" +"(if(if(pair? lst_2)(if(pair? lst_207)(pair? lst_208) #f) #f)" "(let-values(((id_49)(unsafe-car lst_2))" "((rest_108)(unsafe-cdr lst_2))" -"((binding-sym_5)(unsafe-car lst_206))" -"((rest_109)(unsafe-cdr lst_206))" -"((trans-expr_0)(unsafe-car lst_207))" -"((rest_110)(unsafe-cdr lst_207)))" +"((binding-sym_5)(unsafe-car lst_207))" +"((rest_109)(unsafe-cdr lst_207))" +"((trans-expr_0)(unsafe-car lst_208))" +"((rest_110)(unsafe-cdr lst_208)))" "(let-values(((fold-var_200)" "(let-values(((fold-var_201) fold-var_199))" "(let-values(((fold-var_202)" @@ -29400,9 +29400,9 @@ static const char *startup_source = " fold-var_199)))))" " for-loop_198)" " null" -" lst_201" " lst_202" -" lst_203))))))))))))))" +" lst_203" +" lst_204))))))))))))))" "(define-values" "(generate-top-level-define-syntaxes)" "(lambda(gen-syms_1 rhs_3 transformer-set!s_1 finish_1)" @@ -29423,17 +29423,17 @@ static const char *startup_source = "(list*" " 'values" "(reverse$1" -"(let-values(((lst_208) gen-syms_1))" +"(let-values(((lst_209) gen-syms_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_208)))" +"(let-values()(check-list lst_209)))" "((letrec-values(((for-loop_199)" -"(lambda(fold-var_203 lst_209)" +"(lambda(fold-var_203 lst_210)" "(begin" " 'for-loop" -"(if(pair? lst_209)" -"(let-values(((s_235)(unsafe-car lst_209))((rest_111)(unsafe-cdr lst_209)))" +"(if(pair? lst_210)" +"(let-values(((s_235)(unsafe-car lst_210))((rest_111)(unsafe-cdr lst_210)))" "(let-values(((fold-var_204)" "(let-values(((fold-var_205) fold-var_203))" "(let-values(((fold-var_206)" @@ -29444,7 +29444,7 @@ static const char *startup_source = " fold-var_203)))))" " for-loop_199)" " null" -" lst_208)))))))" +" lst_209)))))))" "(list* 'begin finish_1 '((void)))))" "(list 'args(list* 'let-values(list(list* gen-syms_1 '((apply values args)))) '((void)))))))))" "(define-values" @@ -29473,17 +29473,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_210) init-mu*s_0))" +"(let-values(((lst_211) init-mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_210)))" +"(let-values()(check-list lst_211)))" "((letrec-values(((for-loop_200)" -"(lambda(lst_137)" +"(lambda(lst_138)" "(begin" " 'for-loop" -"(if(pair? lst_137)" -"(let-values(((mu*_6)(unsafe-car lst_137))((rest_112)(unsafe-cdr lst_137)))" +"(if(pair? lst_138)" +"(let-values(((mu*_6)(unsafe-car lst_138))((rest_112)(unsafe-cdr lst_138)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -29495,7 +29495,7 @@ static const char *startup_source = "(if(not #f)(for-loop_200 rest_112)(values))))" "(values))))))" " for-loop_200)" -" lst_210)))" +" lst_211)))" "(void)" "(lambda(mu*-or-instance_0)" "(if(1/instance? mu*-or-instance_0)" @@ -29507,10 +29507,10 @@ static const char *startup_source = "(let-values(((mu*_7) mu*-or-instance_0))" "(let-values(((mod-name_16)(1/module-path-index-resolve(module-use-module mu*_7))))" "(let-values(((mli_0)" -"(let-values(((or-part_230)" +"(let-values(((or-part_231)" "(get-module-linklet-info_1 mod-name_16(module-use-phase mu*_7))))" -"(if or-part_230" -" or-part_230" +"(if or-part_231" +" or-part_231" "(namespace->module-linklet-info" " ns_56" " mod-name_16" @@ -29531,37 +29531,37 @@ static const char *startup_source = "((extra-inspectorsss_3)" "(module-linklet-info-extra-inspectorsss mli_0)))" "(reverse$1" -"(let-values(((lst_211) mus_2)" -"((lst_212)" +"(let-values(((lst_212) mus_2)" +"((lst_213)" "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" -"((lst_213)" -"(let-values(((or-part_231) extra-inspectorsss_3))" -"(if or-part_231 or-part_231 mus_2))))" +"((lst_214)" +"(let-values(((or-part_232) extra-inspectorsss_3))" +"(if or-part_232 or-part_232 mus_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_211)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_212)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_213)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_214)))" "((letrec-values(((for-loop_201)" -"(lambda(fold-var_207 lst_214 lst_215 lst_216)" +"(lambda(fold-var_207 lst_215 lst_216 lst_217)" "(begin" " 'for-loop" -"(if(if(pair? lst_214)" -"(if(pair? lst_215)(pair? lst_216) #f)" +"(if(if(pair? lst_215)" +"(if(pair? lst_216)(pair? lst_217) #f)" " #f)" -"(let-values(((sub-mu_0)(unsafe-car lst_214))" -"((rest_113)(unsafe-cdr lst_214))" -"((imports_3)(unsafe-car lst_215))" -"((rest_114)(unsafe-cdr lst_215))" +"(let-values(((sub-mu_0)(unsafe-car lst_215))" +"((rest_113)(unsafe-cdr lst_215))" +"((imports_3)(unsafe-car lst_216))" +"((rest_114)(unsafe-cdr lst_216))" "((extra-inspectorss_13)" -"(unsafe-car lst_216))" -"((rest_115)(unsafe-cdr lst_216)))" +"(unsafe-car lst_217))" +"((rest_115)(unsafe-cdr lst_217)))" "(let-values(((fold-var_208)" "(let-values(((fold-var_209)" " fold-var_207))" @@ -29600,9 +29600,9 @@ static const char *startup_source = " fold-var_207)))))" " for-loop_201)" " null" -" lst_211" " lst_212" -" lst_213)))))))" +" lst_213" +" lst_214)))))))" " #f))" "(values #f #f)))))))" "(let-values()(values #f #f))))))))))))" @@ -29695,19 +29695,19 @@ static const char *startup_source = "(list*" " 'vector" "(reverse$1" -"(let-values(((lst_217)(reverse$1 module-uses-tables_0)))" +"(let-values(((lst_218)(reverse$1 module-uses-tables_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_217)))" +"(let-values()(check-list lst_218)))" "((letrec-values(((for-loop_101)" -"(lambda(fold-var_64 lst_84)" +"(lambda(fold-var_64 lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_84)" +"(if(pair? lst_85)" "(let-values(((phase-to-link-module-uses_2)" -"(unsafe-car lst_84))" -"((rest_116)(unsafe-cdr lst_84)))" +"(unsafe-car lst_85))" +"((rest_116)(unsafe-cdr lst_85)))" "(let-values(((fold-var_29)" "(let-values(((fold-var_151)" " fold-var_64))" @@ -29726,7 +29726,7 @@ static const char *startup_source = " fold-var_64)))))" " for-loop_101)" " null" -" lst_217)))))))" +" lst_218)))))))" "(1/compile-linklet" "(list" " 'linklet" @@ -29759,18 +29759,18 @@ static const char *startup_source = "(begin" " 'loop" "(reverse$1" -"(let-values(((lst_218) cims_2))" +"(let-values(((lst_219) cims_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_218)))" +"(let-values()(check-list lst_219)))" "((letrec-values(((for-loop_202)" -"(lambda(fold-var_211 lst_78)" +"(lambda(fold-var_211 lst_79)" "(begin" " 'for-loop" -"(if(pair? lst_78)" -"(let-values(((cim_4)(unsafe-car lst_78))" -"((rest_35)(unsafe-cdr lst_78)))" +"(if(pair? lst_79)" +"(let-values(((cim_4)(unsafe-car lst_79))" +"((rest_35)(unsafe-cdr lst_79)))" "(let-values(((fold-var_154)" "(let-values(((fold-var_164) fold-var_211))" "(let-values(((fold-var_165)" @@ -29793,7 +29793,7 @@ static const char *startup_source = " fold-var_211)))))" " for-loop_202)" " null" -" lst_218))))))))" +" lst_219))))))))" " loop_41)" " cims_1))))" "(define-values" @@ -29817,21 +29817,21 @@ static const char *startup_source = "(let-values()(car cims_3))" "(let-values()" "(let-values(((sequence-ht_0)" -"(let-values(((lst_219) cims_3)((start_35) 0))" +"(let-values(((lst_220) cims_3)((start_35) 0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_219)))" +"(let-values()(check-list lst_220)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" "((letrec-values(((for-loop_203)" -"(lambda(table_166 lst_94 pos_94)" +"(lambda(table_166 lst_95 pos_94)" "(begin" " 'for-loop" -"(if(if(pair? lst_94) #t #f)" -"(let-values(((cim_5)(unsafe-car lst_94))" -"((rest_34)(unsafe-cdr lst_94))" +"(if(if(pair? lst_95) #t #f)" +"(let-values(((cim_5)(unsafe-car lst_95))" +"((rest_34)(unsafe-cdr lst_95))" "((i_74) pos_94))" "(let-values(((table_167)" "(let-values(((table_168) table_166))" @@ -29859,7 +29859,7 @@ static const char *startup_source = " table_166)))))" " for-loop_203)" " '#hasheq()" -" lst_219" +" lst_220" " start_35)))))" "(let-values(((ht_112)" "(if merge-serialization?_0" @@ -30111,9 +30111,9 @@ static const char *startup_source = "(if(unsafe-fx< index_1 1)" "(let-values()" "(let-values(((v_34)(correlated-e e_38)))" -"(if(let-values(((or-part_171)(string? v_34)))" -"(if or-part_171" -" or-part_171" +"(if(let-values(((or-part_172)(string? v_34)))" +"(if or-part_172" +" or-part_172" "(let-values(((or-part_82)" "(number? v_34)))" "(if or-part_82" @@ -30204,7 +30204,7 @@ static const char *startup_source = " e18_1))))))" "(let-values(((n-args_0)" "(length e18_0)))" -"(if(let-values(((or-part_177)" +"(if(let-values(((or-part_178)" "(if(let-values(((or-part_106)" "(if(known-struct-op?" " d_30)" @@ -30281,8 +30281,8 @@ static const char *startup_source = " #t" " lst_7)))" " #f)))" -"(if or-part_177" -" or-part_177" +"(if or-part_178" +" or-part_178" "(if(known-function-of-satisfying?" " d_30)" "(if(=" @@ -30292,7 +30292,7 @@ static const char *startup_source = " d_30)))" "(let-values(((lst_9)" " e18_0)" -"((lst_220)" +"((lst_221)" "(known-function-of-satisfying-arg-predicate-keys" " d_30)))" "(begin" @@ -30307,24 +30307,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_220)))" +" lst_221)))" "((letrec-values(((for-loop_205)" "(lambda(result_76" -" lst_158" +" lst_159" " lst_22)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_158)" +" lst_159)" "(pair?" " lst_22)" " #f)" "(let-values(((e_40)" "(unsafe-car" -" lst_158))" +" lst_159))" "((rest_7)" "(unsafe-cdr" -" lst_158))" +" lst_159))" "((key_62)" "(unsafe-car" " lst_22))" @@ -30372,37 +30372,37 @@ static const char *startup_source = " for-loop_205)" " #t" " lst_9" -" lst_220)))" +" lst_221)))" " #f)" " #f)))" " 1" " #f))))" " c1_24)" "(let-values()" -"(if(let-values(((or-part_232)" +"(if(let-values(((or-part_233)" "(self-quoting-in-linklet?" " v_34)))" -"(if or-part_232" -" or-part_232" +"(if or-part_233" +" or-part_233" "(if(symbol? v_34)" -"(let-values(((or-part_233)" +"(let-values(((or-part_234)" "(hash-ref" " locals_2" " v_34" " #f)))" -"(if or-part_233" -" or-part_233" -"(let-values(((or-part_234)" -"(lookup-defn" -" defns_1" -" v_34)))" "(if or-part_234" " or-part_234" "(let-values(((or-part_235)" -"(built-in-symbol?" +"(lookup-defn" +" defns_1" " v_34)))" "(if or-part_235" " or-part_235" +"(let-values(((or-part_236)" +"(built-in-symbol?" +" v_34)))" +"(if or-part_236" +" or-part_236" "(ready-variable?_0" " v_34)))))))" " #f)))" @@ -30476,7 +30476,7 @@ static const char *startup_source = "(let-values()" "(let-values(((ids_8" " rhs_4)" -"(let-values(((lst_165)" +"(let-values(((lst_166)" " flat-s_14))" "(begin" "(if(variable-reference-from-unsafe?" @@ -30484,21 +30484,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_165)))" +" lst_166)))" "((letrec-values(((for-loop_181)" "(lambda(ids_9" " rhs_5" -" lst_167)" +" lst_168)" "(begin" " 'for-loop" "(if(pair?" -" lst_167)" +" lst_168)" "(let-values(((s_46)" "(unsafe-car" -" lst_167))" +" lst_168))" "((rest_84)" "(unsafe-cdr" -" lst_167)))" +" lst_168)))" "(let-values(((ids_10" " rhs_6)" "(let-values(((ids_11)" @@ -30608,7 +30608,7 @@ static const char *startup_source = " for-loop_181)" " null" " null" -" lst_165)))))" +" lst_166)))))" "(values" "(reverse$1" " ids_8)" @@ -30694,40 +30694,40 @@ static const char *startup_source = " rhs23_1" " body24_1))))))" "(if(not" -"(let-values(((lst_221) ids22_0)" -"((lst_222) rhs23_0))" +"(let-values(((lst_222) ids22_0)" +"((lst_223) rhs23_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_221)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" "(let-values()(check-list lst_222)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_223)))" "((letrec-values(((for-loop_206)" "(lambda(result_78" -" lst_223" -" lst_224)" +" lst_224" +" lst_225)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_223)" -"(pair?" " lst_224)" +"(pair?" +" lst_225)" " #f)" "(let-values(((ids_13)" "(unsafe-car" -" lst_223))" +" lst_224))" "((rest_118)" "(unsafe-cdr" -" lst_223))" +" lst_224))" "((rhs_9)" "(unsafe-car" -" lst_224))" +" lst_225))" "((rest_119)" "(unsafe-cdr" -" lst_224)))" +" lst_225)))" "(let-values(((result_79)" "(let-values()" "(let-values(((result_80)" @@ -30760,8 +30760,8 @@ static const char *startup_source = " result_78)))))" " for-loop_206)" " #f" -" lst_221" -" lst_222))))" +" lst_222" +" lst_223))))" "(loop_91" " body24_0" "(add-binding-info locals_2 ids22_0 rhs23_0))" @@ -30823,25 +30823,25 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_25)))))" "(values #t _38_1 e39_1))))))" -"(if(let-values(((lst_225) e39_0))" +"(if(let-values(((lst_226) e39_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_225)))" +"(let-values()(check-list lst_226)))" "((letrec-values(((for-loop_207)" "(lambda(result_81" -" lst_226)" +" lst_227)" "(begin" " 'for-loop" "(if(pair?" -" lst_226)" +" lst_227)" "(let-values(((e_50)" "(unsafe-car" -" lst_226))" +" lst_227))" "((rest_120)" "(unsafe-cdr" -" lst_226)))" +" lst_227)))" "(let-values(((result_82)" "(let-values()" "(let-values(((result_83)" @@ -30869,7 +30869,7 @@ static const char *startup_source = " result_81)))))" " for-loop_207)" " #t" -" lst_225)))" +" lst_226)))" "(length e39_0)" " #f)))" "(let-values()" @@ -30927,12 +30927,12 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_26)))))" "(values #t _42_1 e43_1))))))" -"(if(let-values(((lst_227) e43_0))" +"(if(let-values(((lst_228) e43_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_227)))" +"(let-values()(check-list lst_228)))" "((letrec-values(((for-loop_208)" "(lambda(result_84" " lst_40)" @@ -30972,7 +30972,7 @@ static const char *startup_source = " result_84)))))" " for-loop_208)" " #t" -" lst_227)))" +" lst_228)))" " 1" " #f))))))" "(if(unsafe-fx< index_1 8)" @@ -31146,25 +31146,25 @@ static const char *startup_source = " _50_1" " e051_1" " e52_1))))))" -"(if(let-values(((lst_228) e52_0))" +"(if(let-values(((lst_229) e52_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_228)))" +"(let-values()(check-list lst_229)))" "((letrec-values(((for-loop_209)" "(lambda(result_87" -" lst_229)" +" lst_230)" "(begin" " 'for-loop" "(if(pair?" -" lst_229)" +" lst_230)" "(let-values(((e_59)" "(unsafe-car" -" lst_229))" +" lst_230))" "((rest_122)" "(unsafe-cdr" -" lst_229)))" +" lst_230)))" "(let-values(((result_88)" "(let-values()" "(let-values(((result_89)" @@ -31192,7 +31192,7 @@ static const char *startup_source = " result_87)))))" " for-loop_209)" " #t" -" lst_228)))" +" lst_229)))" "(loop_91 e051_0 locals_2)" " #f)))" "(let-values()" @@ -31268,15 +31268,15 @@ static const char *startup_source = "(if(let-values(((s_232)" "(car" " s_336)))" -"(let-values(((or-part_236)" +"(let-values(((or-part_237)" "(if(1/syntax?" " s_232)" "(symbol?" "(syntax-e$2" " s_232))" " #f)))" -"(if or-part_236" -" or-part_236" +"(if or-part_237" +" or-part_237" "(symbol?" " s_232))))" "(let-values(((s_234)" @@ -31293,15 +31293,15 @@ static const char *startup_source = "(if(let-values(((s_338)" "(car" " s_337)))" -"(let-values(((or-part_237)" +"(let-values(((or-part_238)" "(if(1/syntax?" " s_338)" "(symbol?" "(syntax-e$2" " s_338))" " #f)))" -"(if or-part_237" -" or-part_237" +"(if or-part_238" +" or-part_238" "(symbol?" " s_338))))" "(let-values(((s_339)" @@ -31514,13 +31514,13 @@ static const char *startup_source = "(if ok?_23" "(let-values()" "(let-values(((c2_2)" -"(let-values(((or-part_238)" +"(let-values(((or-part_239)" "(hash-ref" " locals_2" " id:rator59_0" " #f)))" -"(if or-part_238" -" or-part_238" +"(if or-part_239" +" or-part_239" "(lookup-defn" " defns_1" " id:rator59_0)))))" @@ -31742,34 +31742,34 @@ static const char *startup_source = " locals_0)))" "(not" "(if actual-results_0" -"(let-values(((or-part_239)(not expected-results_0)))" -"(if or-part_239 or-part_239(= actual-results_0 expected-results_0)))" +"(let-values(((or-part_240)(not expected-results_0)))" +"(if or-part_240 or-part_240(= actual-results_0 expected-results_0)))" " #f)))))))))))))" "(define-values" "(satisfies?)" "(lambda(e_60 key_63 defns_2 locals_3)" "(begin" "(let-values(((d_32)" -"(let-values(((or-part_240)(hash-ref locals_3 e_60 #f)))" -"(if or-part_240 or-part_240(lookup-defn defns_2 e_60)))))" +"(let-values(((or-part_241)(hash-ref locals_3 e_60 #f)))" +"(if or-part_241 or-part_241(lookup-defn defns_2 e_60)))))" "(if d_32(if(known-satisfies? d_32)(eq? key_63(known-satisfies-predicate-key d_32)) #f) #f)))))" "(define-values" "(add-binding-info)" "(lambda(locals_4 idss_0 rhss_0)" "(begin" -"(let-values(((lst_230) idss_0)((lst_231) rhss_0))" +"(let-values(((lst_231) idss_0)((lst_232) rhss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_230)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_231)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_232)))" "((letrec-values(((for-loop_210)" -"(lambda(locals_5 lst_232 lst_233)" +"(lambda(locals_5 lst_233 lst_234)" "(begin" " 'for-loop" -"(if(if(pair? lst_232)(pair? lst_233) #f)" -"(let-values(((ids_14)(unsafe-car lst_232))" -"((rest_123)(unsafe-cdr lst_232))" -"((rhs_10)(unsafe-car lst_233))" -"((rest_124)(unsafe-cdr lst_233)))" +"(if(if(pair? lst_233)(pair? lst_234) #f)" +"(let-values(((ids_14)(unsafe-car lst_233))" +"((rest_123)(unsafe-cdr lst_233))" +"((rhs_10)(unsafe-car lst_234))" +"((rest_124)(unsafe-cdr lst_234)))" "(let-values(((locals_6)" "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" @@ -31794,10 +31794,10 @@ static const char *startup_source = "(let-values(((field-count_0)" "(extract-struct-field-count-lower-bound" " rhs_11)))" -"(let-values(((lst_234)" +"(let-values(((lst_235)" "(correlated->list" " ids_14))" -"((lst_235)" +"((lst_236)" " '(struct-type" " constructor" " predicate" @@ -31809,36 +31809,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_234)))" +" lst_235)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_235)))" +" lst_236)))" "((letrec-values(((for-loop_211)" "(lambda(locals_9" -" lst_236" -" lst_237)" +" lst_237" +" lst_238)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_236)" -"(pair?" " lst_237)" +"(pair?" +" lst_238)" " #f)" "(let-values(((id_50)" "(unsafe-car" -" lst_236))" +" lst_237))" "((rest_125)" "(unsafe-cdr" -" lst_236))" +" lst_237))" "((type_0)" "(unsafe-car" -" lst_237))" +" lst_238))" "((rest_126)" "(unsafe-cdr" -" lst_237)))" +" lst_238)))" "(let-values(((locals_10)" "(let-values(((locals_11)" " locals_9))" @@ -31863,8 +31863,8 @@ static const char *startup_source = " locals_9)))))" " for-loop_211)" " locals_7" -" lst_234" -" lst_235)))))" +" lst_235" +" lst_236)))))" "(if(equal?" " tmp_28" " 'let-values)" @@ -31879,7 +31879,7 @@ static const char *startup_source = " rhs_11)))" "(loop_92 #f)))" "(let-values()" -"(let-values(((lst_238)" +"(let-values(((lst_239)" "(correlated->list" " ids_14)))" "(begin" @@ -31888,20 +31888,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_238)))" +" lst_239)))" "((letrec-values(((for-loop_212)" "(lambda(locals_13" -" lst_239)" +" lst_240)" "(begin" " 'for-loop" "(if(pair?" -" lst_239)" +" lst_240)" "(let-values(((id_51)" "(unsafe-car" -" lst_239))" +" lst_240))" "((rest_127)" "(unsafe-cdr" -" lst_239)))" +" lst_240)))" "(let-values(((locals_14)" "(let-values(((locals_15)" " locals_13))" @@ -31923,7 +31923,7 @@ static const char *startup_source = " locals_13)))))" " for-loop_212)" " locals_7" -" lst_238)))))))))))" +" lst_239)))))))))))" " loop_92)" " rhs_10))))" "(values locals_8)))))" @@ -31931,16 +31931,16 @@ static const char *startup_source = " locals_5)))))" " for-loop_210)" " locals_4" -" lst_230" -" lst_231))))))" +" lst_231" +" lst_232))))))" "(define-values" "(ok-make-struct-type-property?)" "(lambda(e_61 defns_3)" "(begin" "(let-values(((l_58)(correlated->list e_61)))" "(if(<= 2(length l_58) 5)" -"(let-values(((lst_240)(cdr l_58))" -"((lst_241)" +"(let-values(((lst_241)(cdr l_58))" +"((lst_242)" "(list" "(lambda(v_162)(quoted? symbol? v_162))" "(lambda(v_163)(is-lambda? v_163 2 defns_3))" @@ -31949,17 +31949,17 @@ static const char *startup_source = "(let-values(((temp93_1) 1)((defns94_0) defns_3))" "(any-side-effects?9.1 defns94_0 #t #f #f #f #f v_165 temp93_1))))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_240)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_241)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_242)))" "((letrec-values(((for-loop_139)" -"(lambda(result_90 lst_242 lst_243)" +"(lambda(result_90 lst_243 lst_244)" "(begin" " 'for-loop" -"(if(if(pair? lst_242)(pair? lst_243) #f)" -"(let-values(((arg_0)(unsafe-car lst_242))" -"((rest_128)(unsafe-cdr lst_242))" -"((pred_1)(unsafe-car lst_243))" -"((rest_129)(unsafe-cdr lst_243)))" +"(if(if(pair? lst_243)(pair? lst_244) #f)" +"(let-values(((arg_0)(unsafe-car lst_243))" +"((rest_128)(unsafe-cdr lst_243))" +"((pred_1)(unsafe-car lst_244))" +"((rest_129)(unsafe-cdr lst_244)))" "(let-values(((result_91)" "(let-values()" "(let-values(((result_92)" @@ -31973,33 +31973,33 @@ static const char *startup_source = " result_90)))))" " for-loop_139)" " #t" -" lst_240" -" lst_241)))" +" lst_241" +" lst_242)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" "(lambda(v_154 defns_4)" "(begin" -"(let-values(((or-part_241)(quoted? null? v_154)))" -"(if or-part_241" -" or-part_241" +"(let-values(((or-part_242)(quoted? null? v_154)))" +"(if or-part_242" +" or-part_242" "(let-values(((or-part_25)(eq? 'null(correlated-e v_154))))" "(if or-part_25" " or-part_25" "(if(pair?(correlated-e v_154))" "(if(eq?(correlated-e(car(correlated-e v_154))) 'list)" -"(if(let-values(((lst_244)(cdr(correlated->list v_154))))" +"(if(let-values(((lst_245)(cdr(correlated->list v_154))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_244)))" +"(let-values()(check-list lst_245)))" "((letrec-values(((for-loop_213)" -"(lambda(result_93 lst_245)" +"(lambda(result_93 lst_246)" "(begin" " 'for-loop" -"(if(pair? lst_245)" -"(let-values(((prop+val_0)(unsafe-car lst_245))" -"((rest_130)(unsafe-cdr lst_245)))" +"(if(pair? lst_246)" +"(let-values(((prop+val_0)(unsafe-car lst_246))" +"((rest_130)(unsafe-cdr lst_246)))" "(let-values(((result_94)" "(let-values()" "(let-values(((result_95)" @@ -32016,7 +32016,7 @@ static const char *startup_source = " 'cons" "(correlated-e" "(car prop+val_1)))" -"(if(let-values(((or-part_242)" +"(if(let-values(((or-part_243)" "(memq" "(correlated-e" "(list-ref" @@ -32025,8 +32025,8 @@ static const char *startup_source = " '(prop:procedure" " prop:equal+hash" " prop:custom-write))))" -"(if or-part_242" -" or-part_242" +"(if or-part_243" +" or-part_243" "(known-property?" "(lookup-defn" " defns_4" @@ -32064,22 +32064,22 @@ static const char *startup_source = " result_93)))))" " for-loop_213)" " #t" -" lst_244)))" +" lst_245)))" "(=" "(sub1(correlated-length v_154))" "(set-count" -"(let-values(((lst_246)(cdr(correlated->list v_154))))" +"(let-values(((lst_247)(cdr(correlated->list v_154))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_246)))" +"(let-values()(check-list lst_247)))" "((letrec-values(((for-loop_64)" -"(lambda(table_170 lst_247)" +"(lambda(table_170 lst_248)" "(begin" " 'for-loop" -"(if(pair? lst_247)" -"(let-values(((prop+val_2)(unsafe-car lst_247))" -"((rest_131)(unsafe-cdr lst_247)))" +"(if(pair? lst_248)" +"(let-values(((prop+val_2)(unsafe-car lst_248))" +"((rest_131)(unsafe-cdr lst_248)))" "(let-values(((table_171)" "(let-values(((table_172) table_170))" "(let-values(((table_173)" @@ -32103,7 +32103,7 @@ static const char *startup_source = " table_170)))))" " for-loop_64)" " '#hash()" -" lst_246)))))" +" lst_247)))))" " #f)" " #f)" " #f))))))))" @@ -32119,13 +32119,13 @@ static const char *startup_source = "(field-count-expr-to-field-count init-field-count-expr_0)" "(field-count-expr-to-field-count auto-field-count-expr_0))))" "(let-values(((immutables-expr_0)" -"(let-values(((or-part_243)(if(>(length l_59) 9)(list-ref l_59 9) #f)))" -"(if or-part_243 or-part_243 'null))))" +"(let-values(((or-part_244)(if(>(length l_59) 9)(list-ref l_59 9) #f)))" +"(if or-part_244 or-part_244 'null))))" "(let-values(((super-expr_0)(if(>(length l_59) 2)(list-ref l_59 2) #f)))" "(if(>=(length l_59) 5)" "(if(<=(length l_59) 12)" -"(let-values(((lst_248)(cdr l_59))" -"((lst_249)" +"(let-values(((lst_249)(cdr l_59))" +"((lst_250)" "(list" "(lambda(v_155)(quoted? symbol? v_155))" "(lambda(v_166)(super-ok? v_166 defns_5))" @@ -32153,19 +32153,19 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_248)))" +"(let-values()(check-list lst_249)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_249)))" +"(let-values()(check-list lst_250)))" "((letrec-values(((for-loop_214)" -"(lambda(result_96 lst_129 lst_250)" +"(lambda(result_96 lst_130 lst_251)" "(begin" " 'for-loop" -"(if(if(pair? lst_129)(pair? lst_250) #f)" -"(let-values(((arg_1)(unsafe-car lst_129))" -"((rest_132)(unsafe-cdr lst_129))" -"((pred_2)(unsafe-car lst_250))" -"((rest_64)(unsafe-cdr lst_250)))" +"(if(if(pair? lst_130)(pair? lst_251) #f)" +"(let-values(((arg_1)(unsafe-car lst_130))" +"((rest_132)(unsafe-cdr lst_130))" +"((pred_2)(unsafe-car lst_251))" +"((rest_64)(unsafe-cdr lst_251)))" "(let-values(((result_97)" "(let-values()" "(let-values(((result_98)" @@ -32182,17 +32182,17 @@ static const char *startup_source = " result_96)))))" " for-loop_214)" " #t" -" lst_248" -" lst_249)))" +" lst_249" +" lst_250)))" " #f)" " #f))))))))))" "(define-values" "(super-ok?)" "(lambda(e_63 defns_6)" "(begin" -"(let-values(((or-part_244)(quoted? false? e_63)))" -"(if or-part_244" -" or-part_244" +"(let-values(((or-part_245)(quoted? false? e_63)))" +"(if or-part_245" +" or-part_245" "(let-values(((o_0)(lookup-defn defns_6(correlated-e e_63))))" "(if o_0(if(known-struct-op? o_0)(eq? 'struct-type(known-struct-op-type o_0)) #f) #f)))))))" "(define-values" @@ -32205,13 +32205,13 @@ static const char *startup_source = "(quoted?)" "(lambda(val?_0 v_174)" "(begin" -"(let-values(((or-part_245)" +"(let-values(((or-part_246)" "(if(pair?(correlated-e v_174))" "(if(eq?(correlated-e(car(correlated-e v_174))) 'quote)" "(val?_0(correlated-e(correlated-cadr v_174)))" " #f)" " #f)))" -"(if or-part_245 or-part_245(val?_0(correlated-e v_174)))))))" +"(if or-part_246 or-part_246(val?_0(correlated-e v_174)))))))" "(define-values" "(quoted-value)" "(lambda(v_175)" @@ -32224,12 +32224,12 @@ static const char *startup_source = "(inspector-or-false?)" "(lambda(v_178)" "(begin" -"(let-values(((or-part_246)(quoted? false? v_178)))" -"(if or-part_246" -" or-part_246" -"(let-values(((or-part_247)(if(quoted? symbol? v_178)(eq? 'prefab(quoted-value v_178)) #f)))" +"(let-values(((or-part_247)(quoted? false? v_178)))" "(if or-part_247" " or-part_247" +"(let-values(((or-part_248)(if(quoted? symbol? v_178)(eq? 'prefab(quoted-value v_178)) #f)))" +"(if or-part_248" +" or-part_248" "(if(= 1(correlated-length v_178))" "(eq? 'current-inspector(correlated-e(car(correlated-e v_178))))" " #f))))))))" @@ -32237,26 +32237,26 @@ static const char *startup_source = "(known-good-struct-properties?)" "(lambda(v_179 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_248)(quoted? null? v_179)))" -"(if or-part_248" -" or-part_248" -"(let-values(((or-part_249)(eq? 'null(correlated-e v_179))))" +"(let-values(((or-part_249)(quoted? null? v_179)))" "(if or-part_249" " or-part_249" +"(let-values(((or-part_250)(eq? 'null(correlated-e v_179))))" +"(if or-part_250" +" or-part_250" "(if(pair?(correlated-e v_179))" "(if(eq?(correlated-e(car(correlated-e v_179))) 'list)" -"(if(let-values(((lst_251)(cdr(correlated->list v_179))))" +"(if(let-values(((lst_252)(cdr(correlated->list v_179))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_251)))" +"(let-values()(check-list lst_252)))" "((letrec-values(((for-loop_215)" -"(lambda(result_99 lst_252)" +"(lambda(result_99 lst_253)" "(begin" " 'for-loop" -"(if(pair? lst_252)" -"(let-values(((prop+val_3)(unsafe-car lst_252))" -"((rest_133)(unsafe-cdr lst_252)))" +"(if(pair? lst_253)" +"(let-values(((prop+val_3)(unsafe-car lst_253))" +"((rest_133)(unsafe-cdr lst_253)))" "(let-values(((result_100)" "(let-values()" "(let-values(((result_101)" @@ -32290,22 +32290,22 @@ static const char *startup_source = " result_99)))))" " for-loop_215)" " #t" -" lst_251)))" +" lst_252)))" "(=" "(sub1(correlated-length v_179))" "(set-count" -"(let-values(((lst_253)(cdr(correlated->list v_179))))" +"(let-values(((lst_254)(cdr(correlated->list v_179))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_253)))" +"(let-values()(check-list lst_254)))" "((letrec-values(((for-loop_216)" -"(lambda(table_174 lst_254)" +"(lambda(table_174 lst_255)" "(begin" " 'for-loop" -"(if(pair? lst_254)" -"(let-values(((prop+val_5)(unsafe-car lst_254))" -"((rest_134)(unsafe-cdr lst_254)))" +"(if(pair? lst_255)" +"(let-values(((prop+val_5)(unsafe-car lst_255))" +"((rest_134)(unsafe-cdr lst_255)))" "(let-values(((table_175)" "(let-values(((table_176) table_174))" "(let-values(((table_177)" @@ -32329,7 +32329,7 @@ static const char *startup_source = " table_174)))))" " for-loop_216)" " '#hash()" -" lst_253)))))" +" lst_254)))))" " #f)" " #f)" " #f))))))))" @@ -32341,12 +32341,12 @@ static const char *startup_source = "(let-values(((tmp_29) prop-name_0))" "(if(equal? tmp_29 'prop:evt)" "(let-values()" -"(let-values(((or-part_250)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_250 or-part_250(immutable-field? val-expr_0 immutables-expr_2))))" -"(if(equal? tmp_29 'prop:procedure)" -"(let-values()" "(let-values(((or-part_251)(is-lambda? val-expr_0 1 defns_8)))" "(if or-part_251 or-part_251(immutable-field? val-expr_0 immutables-expr_2))))" +"(if(equal? tmp_29 'prop:procedure)" +"(let-values()" +"(let-values(((or-part_252)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_252 or-part_252(immutable-field? val-expr_0 immutables-expr_2))))" "(if(equal? tmp_29 'prop:custom-write)" "(let-values()(is-lambda? val-expr_0 3 defns_8))" "(if(equal? tmp_29 'prop:equal+hash)" @@ -32382,26 +32382,26 @@ static const char *startup_source = "(lambda(expr_9 arity_0 defns_9)" "(begin" "(let-values(((lookup_0)(lookup-defn defns_9 expr_9)))" -"(let-values(((or-part_252)" +"(let-values(((or-part_253)" "(if lookup_0" "(if(known-function? lookup_0)" -"(let-values(((or-part_206)(not arity_0)))" -"(if or-part_206 or-part_206(arity-includes?(known-function-arity lookup_0) arity_0)))" +"(let-values(((or-part_207)(not arity_0)))" +"(if or-part_207 or-part_207(arity-includes?(known-function-arity lookup_0) arity_0)))" " #f)" " #f)))" -"(if or-part_252" -" or-part_252" -"(let-values(((or-part_253)" -"(if(pair?(correlated-e expr_9))" -"(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" -" #f)))" "(if or-part_253" " or-part_253" +"(let-values(((or-part_254)" +"(if(pair?(correlated-e expr_9))" +"(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" +" #f)))" +"(if or-part_254" +" or-part_254" "(if(pair?(correlated-e expr_9))" "(if(eq? 'lambda(car(correlated-e expr_9)))" -"(let-values(((or-part_207)(not arity_0)))" -"(if or-part_207" -" or-part_207" +"(let-values(((or-part_208)(not arity_0)))" +"(if or-part_208" +" or-part_208" "((letrec-values(((loop_93)" "(lambda(args_7 arity_1)" "(begin" @@ -32422,21 +32422,21 @@ static const char *startup_source = "(arity-includes?)" "(lambda(a_46 n_27)" "(begin" -"(let-values(((or-part_254)(equal? a_46 n_27)))" -"(if or-part_254" -" or-part_254" +"(let-values(((or-part_255)(equal? a_46 n_27)))" +"(if or-part_255" +" or-part_255" "(if(list? a_46)" -"(let-values(((lst_255) a_46))" +"(let-values(((lst_256) a_46))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_255)))" +"(let-values()(check-list lst_256)))" "((letrec-values(((for-loop_217)" -"(lambda(result_102 lst_256)" +"(lambda(result_102 lst_257)" "(begin" " 'for-loop" -"(if(pair? lst_256)" -"(let-values(((a_47)(unsafe-car lst_256))((rest_135)(unsafe-cdr lst_256)))" +"(if(pair? lst_257)" +"(let-values(((a_47)(unsafe-car lst_257))((rest_135)(unsafe-cdr lst_257)))" "(let-values(((result_103)" "(let-values()" "(let-values(((result_104)" @@ -32449,7 +32449,7 @@ static const char *startup_source = " result_102)))))" " for-loop_217)" " #f" -" lst_255)))" +" lst_256)))" " #f))))))" "(define-values" "(immutable-field?)" @@ -32466,27 +32466,27 @@ static const char *startup_source = "(if(equal? tmp_30 'quote)" "(let-values()" "(let-values(((v_180)(correlated-cadr e_65)))" -"(let-values(((or-part_255)" +"(let-values(((or-part_256)" "(if(correlated-length v_180)" "(let-values(((l_62)(map2 correlated-e(correlated->list v_180))))" "(if(andmap2 exact-nonnegative-integer? l_62)" "(if(=(length l_62)(set-count(list->set l_62))) l_62 #f)" " #f))" " #f)))" -"(if or-part_255 or-part_255 fail-v_0))))" +"(if or-part_256 or-part_256 fail-v_0))))" "(let-values() fail-v_0))))))" "(define-values" "(procedure-spec?)" "(lambda(e_66 field-count_1)" "(begin" -"(let-values(((or-part_256)(quoted? false? e_66)))" -"(if or-part_256" -" or-part_256" -"(let-values(((or-part_257)" +"(let-values(((or-part_257)(quoted? false? e_66)))" +"(if or-part_257" +" or-part_257" +"(let-values(((or-part_258)" "(if(quoted? exact-nonnegative-integer? e_66)" "(if field-count_1(<(quoted-value e_66) field-count_1) #f)" " #f)))" -"(if or-part_257 or-part_257(is-lambda? e_66 #f '#hasheq()))))))))" +"(if or-part_258 or-part_258(is-lambda? e_66 #f '#hasheq()))))))))" "(define-values" "(immutables-ok?)" "(lambda(e_67 init-field-count-expr_1)" @@ -32494,17 +32494,17 @@ static const char *startup_source = "(let-values(((l_63)(immutables-expr-to-immutables e_67 #f)))" "(let-values(((c_24)(field-count-expr-to-field-count init-field-count-expr_1)))" "(if l_63" -"(let-values(((lst_257) l_63))" +"(let-values(((lst_258) l_63))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_257)))" +"(let-values()(check-list lst_258)))" "((letrec-values(((for-loop_218)" -"(lambda(result_105 lst_258)" +"(lambda(result_105 lst_259)" "(begin" " 'for-loop" -"(if(pair? lst_258)" -"(let-values(((n_28)(unsafe-car lst_258))((rest_136)(unsafe-cdr lst_258)))" +"(if(pair? lst_259)" +"(let-values(((n_28)(unsafe-car lst_259))((rest_136)(unsafe-cdr lst_259)))" "(let-values(((result_106)" "(let-values()" "(let-values(((result_107)" @@ -32516,7 +32516,7 @@ static const char *startup_source = " result_105)))))" " for-loop_218)" " #t" -" lst_257)))" +" lst_258)))" " #f))))))" "(define-values" "(ok-make-struct-field-accessor/mutator?)" @@ -32524,16 +32524,16 @@ static const char *startup_source = "(begin" "(let-values(((l_64)(correlated->list e_68)))" "(let-values(((a_48)" -"(if(let-values(((or-part_258)(=(length l_64) 3)))" -"(if or-part_258 or-part_258(=(length l_64) 4)))" -"(let-values(((or-part_259)(hash-ref locals_17(correlated-e(list-ref l_64 1)) #f)))" -"(if or-part_259 or-part_259(lookup-defn defns_10(correlated-e(list-ref l_64 1)))))" +"(if(let-values(((or-part_259)(=(length l_64) 3)))" +"(if or-part_259 or-part_259(=(length l_64) 4)))" +"(let-values(((or-part_260)(hash-ref locals_17(correlated-e(list-ref l_64 1)) #f)))" +"(if or-part_260 or-part_260(lookup-defn defns_10(correlated-e(list-ref l_64 1)))))" " #f)))" "(if(known-struct-op? a_48)" "(if(eq?(known-struct-op-type a_48) type_1)" "(if(<(field-count-expr-to-field-count(list-ref l_64 2))(known-struct-op-field-count a_48))" -"(let-values(((or-part_260)(=(length l_64) 3)))" -"(if or-part_260 or-part_260(quoted? symbol?(list-ref l_64 3))))" +"(let-values(((or-part_261)(=(length l_64) 3)))" +"(if or-part_261 or-part_261(quoted? symbol?(list-ref l_64 3))))" " #f)" " #f)" " #f))))))" @@ -32759,24 +32759,24 @@ static const char *startup_source = "(let-values(((as-transformer?_4)(if as-transformer?10_0 as-transformer?5_0 #f)))" "(let-values()" "(let-values(((defined-syms-at-phase_0)" -"(let-values(((or-part_261)(hash-ref defined-syms_7 phase_81 #f)))" -"(if or-part_261" -" or-part_261" +"(let-values(((or-part_262)(hash-ref defined-syms_7 phase_81 #f)))" +"(if or-part_262" +" or-part_262" "(let-values(((ht_116)(make-hasheq)))" "(begin(hash-set! defined-syms_7 phase_81 ht_116) ht_116))))))" "(reverse$1" -"(let-values(((lst_76) ids_15))" +"(let-values(((lst_77) ids_15))" "(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_93)" -"(lambda(fold-var_12 lst_77)" +"(lambda(fold-var_12 lst_78)" "(begin" " 'for-loop" -"(if(pair? lst_77)" -"(let-values(((id_52)(unsafe-car lst_77))" -"((rest_86)(unsafe-cdr lst_77)))" +"(if(pair? lst_78)" +"(let-values(((id_52)(unsafe-car lst_78))" +"((rest_86)(unsafe-cdr lst_78)))" "(let-values(((fold-var_153)" "(let-values(((fold-var_154) fold-var_12))" "(let-values(((fold-var_164)" @@ -32907,7 +32907,7 @@ static const char *startup_source = " fold-var_12)))))" " for-loop_93)" " null" -" lst_76)))))))))))))))))))" +" lst_77)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" "(lambda(id_53 all-scopes-stx_4 top-level-bind-scope_4 phase_82)" @@ -32925,9 +32925,9 @@ static const char *startup_source = "(begin" "(if prev-id_0" "(if(not(bound-identifier=?$1 prev-id_0 id_54 phase_83))" -"(let-values(((or-part_262)(not top-level-bind-scope_5)))" -"(if or-part_262" -" or-part_262" +"(let-values(((or-part_263)(not top-level-bind-scope_5)))" +"(if or-part_263" +" or-part_263" "(not" "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" @@ -32965,9 +32965,9 @@ static const char *startup_source = "(lambda(defined-syms_8 phase_84 sym_57 id_55)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_263)(hash-ref defined-syms_8 phase_84 #f)))" -"(if or-part_263" -" or-part_263" +"(let-values(((or-part_264)(hash-ref defined-syms_8 phase_84 #f)))" +"(if or-part_264" +" or-part_264" "(let-values(((ht_31)(make-hasheq)))" "(begin(hash-set! defined-syms_8 phase_84 ht_31) ht_31))))))" "(hash-set! defined-syms-at-phase_1 sym_57 id_55)))))" @@ -32988,12 +32988,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_15)))" "((letrec-values(((for-loop_9)" -"(lambda(lst_259)" +"(lambda(lst_260)" "(begin" " 'for-loop" -"(if(pair? lst_259)" -"(let-values(((phase+reqs_0)(unsafe-car lst_259))" -"((rest_137)(unsafe-cdr lst_259)))" +"(if(pair? lst_260)" +"(let-values(((phase+reqs_0)(unsafe-car lst_260))" +"((rest_137)(unsafe-cdr lst_260)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33004,7 +33004,7 @@ static const char *startup_source = "(car" " phase+reqs_0)))" "(begin" -"(let-values(((lst_73)" +"(let-values(((lst_74)" "(cdr" " phase+reqs_0)))" "(begin" @@ -33013,19 +33013,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_73)))" +" lst_74)))" "((letrec-values(((for-loop_92)" -"(lambda(lst_94)" +"(lambda(lst_95)" "(begin" " 'for-loop" "(if(pair?" -" lst_94)" +" lst_95)" "(let-values(((req_8)" "(unsafe-car" -" lst_94))" +" lst_95))" "((rest_45)" "(unsafe-cdr" -" lst_94)))" +" lst_95)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33085,7 +33085,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_92)" -" lst_73)))" +" lst_74)))" "(void))))" "(values)))))" "(values)))))" @@ -33126,17 +33126,17 @@ static const char *startup_source = "(let-values()" "(check-list lst_38)))" "((letrec-values(((for-loop_51)" -"(lambda(lst_217)" +"(lambda(lst_218)" "(begin" " 'for-loop" "(if(pair?" -" lst_217)" +" lst_218)" "(let-values(((sym_58)" "(unsafe-car" -" lst_217))" +" lst_218))" "((rest_138)" "(unsafe-cdr" -" lst_217)))" +" lst_218)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33271,15 +33271,15 @@ static const char *startup_source = "(let-values(((skip-num-imports_0) skip-imports1_0))" "(let-values(((import-module-uses_0) import-module-uses4_0))" "(let-values(((import-module-instances_0) import-module-instances5_0))" -"(let-values(((insp_10) insp6_0))" +"(let-values(((insp_9) insp6_0))" "(let-values(((extra-inspector_0) extra-inspector7_0))" "(let-values(((extra-inspectorsss_4) extra-inspectorsss8_0))" "(let-values()" "(begin" "(let-values(((lst_39)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" -"((lst_260) import-module-uses_0)" -"((lst_84) import-module-instances_0)" -"((lst_157)" +"((lst_261) import-module-uses_0)" +"((lst_85) import-module-instances_0)" +"((lst_158)" "(let-values(((or-part_77) extra-inspectorsss_4))" "(if or-part_77 or-part_77 import-module-uses_0))))" "(begin" @@ -33288,28 +33288,28 @@ static const char *startup_source = "(let-values()(check-list lst_39)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_260)))" +"(let-values()(check-list lst_261)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_84)))" +"(let-values()(check-list lst_85)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_157)))" +"(let-values()(check-list lst_158)))" "((letrec-values(((for-loop_220)" -"(lambda(lst_261 lst_262 lst_24 lst_168)" +"(lambda(lst_262 lst_263 lst_24 lst_169)" "(begin" " 'for-loop" -"(if(if(pair? lst_261)" -"(if(pair? lst_262)(if(pair? lst_24)(pair? lst_168) #f) #f)" +"(if(if(pair? lst_262)" +"(if(pair? lst_263)(if(pair? lst_24)(pair? lst_169) #f) #f)" " #f)" -"(let-values(((import-syms_0)(unsafe-car lst_261))" -"((rest_139)(unsafe-cdr lst_261))" -"((mu_7)(unsafe-car lst_262))" -"((rest_140)(unsafe-cdr lst_262))" +"(let-values(((import-syms_0)(unsafe-car lst_262))" +"((rest_139)(unsafe-cdr lst_262))" +"((mu_7)(unsafe-car lst_263))" +"((rest_140)(unsafe-cdr lst_263))" "((mi_16)(unsafe-car lst_24))" "((rest_41)(unsafe-cdr lst_24))" -"((extra-inspectorss_14)(unsafe-car lst_168))" -"((rest_35)(unsafe-cdr lst_168)))" +"((extra-inspectorss_14)(unsafe-car lst_169))" +"((rest_35)(unsafe-cdr lst_169)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33368,12 +33368,12 @@ static const char *startup_source = " '#hasheq())" " import-sym_0" " 'unexported)))" -"(if(let-values(((or-part_174)" +"(if(let-values(((or-part_175)" "(eq?" " a_49" " 'unexported)))" -"(if or-part_174" -" or-part_174" +"(if or-part_175" +" or-part_175" "(eq?" " a_49" " 'protected)))" @@ -33382,12 +33382,12 @@ static const char *startup_source = "(namespace-inspector" "(module-instance-namespace" " mi_16))))" -"(if(let-values(((or-part_176)" +"(if(let-values(((or-part_177)" "(inspector-superior?" -" insp_10" +" insp_9" " guard-insp_3)))" -"(if or-part_176" -" or-part_176" +"(if or-part_177" +" or-part_177" "(let-values(((or-part_39)" "(if extra-inspector_0" "(inspector-superior?" @@ -33440,13 +33440,13 @@ static const char *startup_source = "(values))))))" " for-loop_220)" " lst_39" -" lst_260" -" lst_84" -" lst_157)))" +" lst_261" +" lst_85" +" lst_158)))" "(void)))))))))))))" "(define-values" "(check-single-require-access)" -"(lambda(mi_17 phase_87 sym_59 insp_11)" +"(lambda(mi_17 phase_87 sym_59 insp_10)" "(begin" "(let-values(((m_16)(module-instance-module mi_17)))" "(if(module-no-protected? m_16)" @@ -33460,8 +33460,8 @@ static const char *startup_source = "(if or-part_42 or-part_42(eq? a_50 'protected)))" "(let-values()" "(let-values(((guard-insp_4)(namespace-inspector(module-instance-namespace mi_17))))" -"(let-values(((or-part_264)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" -"(if or-part_264 or-part_264(inspector-superior?(current-code-inspector) guard-insp_4)))))" +"(let-values(((or-part_265)(if insp_10(inspector-superior? insp_10 guard-insp_4) #f)))" +"(if or-part_265 or-part_265(inspector-superior?(current-code-inspector) guard-insp_4)))))" "(let-values() #t))))))))))" "(define-values(module-cache)(make-weak-hash))" "(define-values" @@ -33623,17 +33623,17 @@ static const char *startup_source = "(let-values()" "(check-list lst_20)))" "((letrec-values(((for-loop_223)" -"(lambda(lst_87)" +"(lambda(lst_88)" "(begin" " 'for-loop" "(if(pair?" -" lst_87)" +" lst_88)" "(let-values(((c_25)" "(unsafe-car" -" lst_87))" +" lst_88))" "((rest_42)" "(unsafe-cdr" -" lst_87)))" +" lst_88)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33664,25 +33664,25 @@ static const char *startup_source = " lst_20)))" "(void))" "(begin" -"(let-values(((lst_263) names_0))" +"(let-values(((lst_264) names_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_263)))" +"(check-list lst_264)))" "((letrec-values(((for-loop_224)" -"(lambda(lst_88)" +"(lambda(lst_89)" "(begin" " 'for-loop" "(if(pair?" -" lst_88)" +" lst_89)" "(let-values(((name_48)" "(unsafe-car" -" lst_88))" +" lst_89))" "((rest_141)" "(unsafe-cdr" -" lst_88)))" +" lst_89)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33722,7 +33722,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_224)" -" lst_263)))" +" lst_264)))" "(void)))))" " void)))" "(let-values(((declare-this-module_0)" @@ -33761,7 +33761,7 @@ static const char *startup_source = "((temp34_0)" "(lambda(phase-level_18" " ns_62" -" insp_12)" +" insp_11)" "(module-linklet-info2.1" "(hash-ref" " phases-h_0" @@ -33772,7 +33772,7 @@ static const char *startup_source = " phase-level_18" " #f)" " original-self_1" -" insp_12" +" insp_11" " extra-inspector_6" "(hash-ref" " phase-to-link-extra-inspectorsss_1" @@ -33789,7 +33789,7 @@ static const char *startup_source = " phase-shift_15" " self_23" " bulk-binding-registry_14" -" insp_13)" +" insp_12)" "(if(unbox" " data-box_2)" "(void)" @@ -33805,7 +33805,7 @@ static const char *startup_source = " original-self_1" " self_23" " bulk-binding-registry_14" -" insp_13" +" insp_12" " create-root-expand-context-from-module_0)))))" "((temp37_0)" "(lambda(data-box_3" @@ -33814,7 +33814,7 @@ static const char *startup_source = " phase-level_19" " self_24" " bulk-binding-registry_15" -" insp_14)" +" insp_13)" "(let-values()" "(let-values(((syntax-literals-instance_0)" "(instance-data-syntax-literals-instance" @@ -33835,7 +33835,7 @@ static const char *startup_source = " import-instances_0)" "(let-values(((mis_1" " is_0)" -"(let-values(((lst_264)" +"(let-values(((lst_265)" " module-uses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -33843,21 +33843,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_264)))" +" lst_265)))" "((letrec-values(((for-loop_225)" "(lambda(mis_2" " is_1" -" lst_265)" +" lst_266)" "(begin" " 'for-loop" "(if(pair?" -" lst_265)" +" lst_266)" "(let-values(((mu_8)" "(unsafe-car" -" lst_265))" +" lst_266))" "((rest_142)" "(unsafe-cdr" -" lst_265)))" +" lst_266)))" "(let-values(((mis_3" " is_2)" "(let-values(((mis_4)" @@ -33914,7 +33914,7 @@ static const char *startup_source = " for-loop_225)" " null" " null" -" lst_264)))))" +" lst_265)))))" "(values" "(reverse$1" " mis_1)" @@ -33929,7 +33929,7 @@ static const char *startup_source = "((import-module-instances41_0)" " import-module-instances_1)" "((insp42_0)" -" insp_14)" +" insp_13)" "((extra-inspector43_0)" " extra-inspector_6)" "((temp44_0)" @@ -34021,7 +34021,7 @@ static const char *startup_source = " 1/current-namespace" " ns_64" " current-module-code-inspector" -" insp_14)" +" insp_13)" "(let-values()" "(instantiate-body_0))))))))))))" "(void))))))))" @@ -34120,7 +34120,7 @@ static const char *startup_source = " original-self_2" " self_25" " bulk-binding-registry_16" -" insp_15" +" insp_14" " create-root-expand-context-from-module_1)" "(begin" "(let-values((()" @@ -34138,7 +34138,7 @@ static const char *startup_source = "(let-values(((ns55_1) ns_12)" "((phase-shift56_1) phase-shift_17)" "((self57_0) self_25)" -"((insp58_0) insp_15)" +"((insp58_0) insp_14)" "((bulk-binding-registry59_0) bulk-binding-registry_16)" "((temp60_1)" " (lambda (name_50 val_60) (error \"shouldn't get here for the root-ctx linklet\"))))" @@ -34385,7 +34385,7 @@ static const char *startup_source = " null)" "(let-values()" "(reverse$1" -"(let-values(((lst_82)" +"(let-values(((lst_83)" "(cons" " b_73" "(module-binding-extra-nominal-bindings" @@ -34396,20 +34396,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_82)))" +" lst_83)))" "((letrec-values(((for-loop_228)" "(lambda(fold-var_32" -" lst_266)" +" lst_267)" "(begin" " 'for-loop" "(if(pair?" -" lst_266)" +" lst_267)" "(let-values(((b_74)" "(unsafe-car" -" lst_266))" +" lst_267))" "((rest_143)" "(unsafe-cdr" -" lst_266)))" +" lst_267)))" "(let-values(((fold-var_148)" "(let-values(((fold-var_149)" " fold-var_32))" @@ -34451,7 +34451,7 @@ static const char *startup_source = " fold-var_32)))))" " for-loop_228)" " null" -" lst_82)))))))))" +" lst_83)))))))))" " fold-var_30))))" "(values" " fold-var_218)))" @@ -34544,26 +34544,26 @@ static const char *startup_source = " phase_90" " '#hasheq())))" "(reverse$1" -"(let-values(((lst_86) vars_0))" +"(let-values(((lst_87) vars_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_86)))" +"(check-list lst_87)))" "((letrec-values(((for-loop_94)" "(lambda(fold-var_167" -" lst_169)" +" lst_170)" "(begin" " 'for-loop" "(if(pair?" -" lst_169)" +" lst_170)" "(let-values(((var-sym_5)" "(unsafe-car" -" lst_169))" +" lst_170))" "((rest_88)" "(unsafe-cdr" -" lst_169)))" +" lst_170)))" "(let-values(((fold-var_67)" "(let-values(((fold-var_168)" " fold-var_167))" @@ -34591,7 +34591,7 @@ static const char *startup_source = " fold-var_167)))))" " for-loop_94)" " null" -" lst_86)))))))" +" lst_87)))))))" "(begin" " #t" "((letrec-values(((for-loop_204)" @@ -34766,18 +34766,18 @@ static const char *startup_source = " main_0" "(1/hash->linklet-directory" "(hash-set" -"(let-values(((lst_85) submods_0))" +"(let-values(((lst_86) submods_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_85)))" +"(let-values()(check-list lst_86)))" "((letrec-values(((for-loop_222)" -"(lambda(ht_113 lst_267)" +"(lambda(ht_113 lst_268)" "(begin" " 'for-loop" -"(if(pair? lst_267)" -"(let-values(((submod_1)(unsafe-car lst_267))" -"((rest_87)(unsafe-cdr lst_267)))" +"(if(pair? lst_268)" +"(let-values(((submod_1)(unsafe-car lst_268))" +"((rest_87)(unsafe-cdr lst_268)))" "(let-values(((ht_122)" "(let-values(((ht_123) ht_113))" "(let-values(((ht_124)" @@ -34803,7 +34803,7 @@ static const char *startup_source = " ht_113)))))" " for-loop_222)" " '#hasheq()" -" lst_85)))" +" lst_86)))" " #f" " main_0))))))))))" "(define-values" @@ -34890,18 +34890,18 @@ static const char *startup_source = "(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_125 #f))))" "(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))" "(reverse$1" -"(let-values(((lst_74) names_1))" +"(let-values(((lst_75) names_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_74)))" +"(let-values()(check-list lst_75)))" "((letrec-values(((for-loop_70)" -"(lambda(fold-var_30 lst_268)" +"(lambda(fold-var_30 lst_269)" "(begin" " 'for-loop" -"(if(pair? lst_268)" -"(let-values(((name_55)(unsafe-car lst_268))" -"((rest_144)(unsafe-cdr lst_268)))" +"(if(pair? lst_269)" +"(let-values(((name_55)(unsafe-car lst_269))" +"((rest_144)(unsafe-cdr lst_269)))" "(let-values(((fold-var_31)" "(let-values(((fold-var_32) fold-var_30))" "(let-values(((fold-var_33)" @@ -34915,7 +34915,7 @@ static const char *startup_source = " fold-var_30)))))" " for-loop_70)" " null" -" lst_74))))))))" +" lst_75))))))))" "(let-values() null)))))))" "((c_38 non-star?_1 submods_1)" "(begin" @@ -35465,7 +35465,7 @@ static const char *startup_source = " _69_1" " kw70_1))))))" "(begin" -"(let-values(((lst_221)" +"(let-values(((lst_222)" " kw70_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -35473,19 +35473,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_221)))" +" lst_222)))" "((letrec-values(((for-loop_230)" -"(lambda(lst_269)" +"(lambda(lst_270)" "(begin" " 'for-loop" "(if(pair?" -" lst_269)" +" lst_270)" "(let-values(((kw_1)" "(unsafe-car" -" lst_269))" +" lst_270))" "((rest_145)" "(unsafe-cdr" -" lst_269)))" +" lst_270)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -35522,7 +35522,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_230)" -" lst_221)))" +" lst_222)))" "(void)" " #f)))" "(let-values() #f))))" @@ -35821,10 +35821,10 @@ static const char *startup_source = "(hash-set" " bundle_2" " 'decl" -"(let-values(((or-part_265)" +"(let-values(((or-part_266)" " declaration-linklet_0))" -"(if or-part_265" -" or-part_265" +"(if or-part_266" +" or-part_266" " 'in-memory)))))" "(let-values(((bundle_4)" "(if data-linklet_0" @@ -35938,7 +35938,7 @@ static const char *startup_source = "((if to-source?_4" " values" " 1/hash->linklet-directory)" -"(let-values(((lst_270)" +"(let-values(((lst_271)" "(append" " pre-submodules_1" " post-submodules_1)))" @@ -35948,20 +35948,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_270)))" +" lst_271)))" "((letrec-values(((for-loop_232)" "(lambda(ht_129" -" lst_225)" +" lst_226)" "(begin" " 'for-loop" "(if(pair?" -" lst_225)" +" lst_226)" "(let-values(((sm_0)" "(unsafe-car" -" lst_225))" +" lst_226))" "((rest_146)" "(unsafe-cdr" -" lst_225)))" +" lst_226)))" "(let-values(((ht_130)" "(let-values(((ht_131)" " ht_129))" @@ -35987,7 +35987,7 @@ static const char *startup_source = " ht_129)))))" " for-loop_232)" "(hasheq #f bundle_1)" -" lst_270))))))))" +" lst_271))))))))" "(if to-source?_4" "(let-values() ld_4)" "(let-values()" @@ -36019,15 +36019,15 @@ static const char *startup_source = "(lambda(modules-being-compiled_2 pre-submodules_2 self_28)" "(begin" "(begin" -"(let-values(((lst_154) pre-submodules_2))" +"(let-values(((lst_155) pre-submodules_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_154)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_155)))" "((letrec-values(((for-loop_233)" -"(lambda(lst_271)" +"(lambda(lst_272)" "(begin" " 'for-loop" -"(if(pair? lst_271)" -"(let-values(((s_101)(unsafe-car lst_271))((rest_147)(unsafe-cdr lst_271)))" +"(if(pair? lst_272)" +"(let-values(((s_101)(unsafe-car lst_272))((rest_147)(unsafe-cdr lst_272)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -36138,7 +36138,7 @@ static const char *startup_source = "(if(not #f)(for-loop_233 rest_147)(values))))" "(values))))))" " for-loop_233)" -" lst_154)))" +" lst_155)))" "(void)))))" "(define-values" "(filter-language-info)" @@ -36293,15 +36293,15 @@ static const char *startup_source = " 'map-construct-compiled-in-memory" "(reverse$1" "(let-values(((lst_39) l_66)" -"((lst_260)" +"((lst_261)" "(vector-ref" " mpi-vector-tree_0" " vec-pos_0))" -"((lst_84)" +"((lst_85)" "(vector-ref" " phase-to-link-modules-tree_0" " vec-pos_0))" -"((lst_157)" +"((lst_158)" "(vector-ref" " syntax-literals-tree_0" " vec-pos_0)))" @@ -36313,46 +36313,46 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_260)))" +"(let-values()(check-list lst_261)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_84)))" +"(let-values()(check-list lst_85)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_157)))" +"(let-values()(check-list lst_158)))" "((letrec-values(((for-loop_237)" "(lambda(fold-var_29" -" lst_261" " lst_262" +" lst_263" " lst_24" -" lst_168)" +" lst_169)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_261)" -"(if(pair?" " lst_262)" "(if(pair?" +" lst_263)" +"(if(pair?" " lst_24)" "(pair?" -" lst_168)" +" lst_169)" " #f)" " #f)" " #f)" "(let-values(((sub-ld_0)" "(unsafe-car" -" lst_261))" +" lst_262))" "((rest_139)" "(unsafe-cdr" -" lst_261))" +" lst_262))" "((mpi-vector-tree_1)" "(unsafe-car" -" lst_262))" +" lst_263))" "((rest_140)" "(unsafe-cdr" -" lst_262))" +" lst_263))" "((phase-to-link-modules-tree_1)" "(unsafe-car" " lst_24))" @@ -36361,10 +36361,10 @@ static const char *startup_source = " lst_24))" "((syntax-literals-tree_1)" "(unsafe-car" -" lst_168))" +" lst_169))" "((rest_35)" "(unsafe-cdr" -" lst_168)))" +" lst_169)))" "(let-values(((fold-var_154)" "(let-values(((fold-var_164)" " fold-var_29))" @@ -36392,9 +36392,9 @@ static const char *startup_source = " for-loop_237)" " null" " lst_39" -" lst_260" -" lst_84" -" lst_157))))))))" +" lst_261" +" lst_85" +" lst_158))))))))" "(compiled-in-memory1.1" " ld_6" " #f" @@ -36580,12 +36580,12 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_22)))" "((letrec-values(((for-loop_180)" -"(lambda(fold-var_76 lst_159)" +"(lambda(fold-var_76 lst_160)" "(begin" " 'for-loop" -"(if(pair? lst_159)" -"(let-values(((name_61)(unsafe-car lst_159))" -"((rest_148)(unsafe-cdr lst_159)))" +"(if(pair? lst_160)" +"(let-values(((name_61)(unsafe-car lst_160))" +"((rest_148)(unsafe-cdr lst_160)))" "(let-values(((fold-var_8)" "(let-values(((fold-var_219) fold-var_76))" "(let-values(((fold-var_155)" @@ -36762,17 +36762,17 @@ static const char *startup_source = "((letrec-values(((for-loop_1)" "(lambda(mis_7" " is_6" -" lst_158)" +" lst_159)" "(begin" " 'for-loop" "(if(pair?" -" lst_158)" +" lst_159)" "(let-values(((mu_9)" "(unsafe-car" -" lst_158))" +" lst_159))" "((rest_149)" "(unsafe-cdr" -" lst_158)))" +" lst_159)))" "(let-values(((mis_8" " is_7)" "(let-values(((mis_9)" @@ -37076,9 +37076,9 @@ static const char *startup_source = "(if(parsed-app? p_45)" "(let-values()" "(if(can-direct-eval?(parsed-app-rator p_45) ns_41 self-mpi_3)" -"(let-values(((lst_95)(parsed-app-rands p_45)))" +"(let-values(((lst_96)(parsed-app-rands p_45)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_95)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_96)))" "((letrec-values(((for-loop_107)" "(lambda(result_108 lst_6)" "(begin" @@ -37098,7 +37098,7 @@ static const char *startup_source = " result_108)))))" " for-loop_107)" " #t" -" lst_95)))" +" lst_96)))" " #f))" "(if(parsed-id? p_45)" "(let-values()(not(eq?(get-id-value p_45 ns_41 self-mpi_3) not-available)))" @@ -37114,15 +37114,15 @@ static const char *startup_source = "(apply" "(direct-eval(parsed-app-rator p_47) ns_71 self-mpi_4)" "(reverse$1" -"(let-values(((lst_73)(parsed-app-rands p_47)))" +"(let-values(((lst_74)(parsed-app-rands p_47)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_73)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_74)))" "((letrec-values(((for-loop_92)" -"(lambda(fold-var_220 lst_74)" +"(lambda(fold-var_220 lst_75)" "(begin" " 'for-loop" -"(if(pair? lst_74)" -"(let-values(((r_8)(unsafe-car lst_74))((rest_34)(unsafe-cdr lst_74)))" +"(if(pair? lst_75)" +"(let-values(((r_8)(unsafe-car lst_75))((rest_34)(unsafe-cdr lst_75)))" "(let-values(((fold-var_218)" "(let-values(((fold-var_62) fold-var_220))" "(let-values(((fold-var_221)" @@ -37136,7 +37136,7 @@ static const char *startup_source = " fold-var_220)))))" " for-loop_92)" " null" -" lst_73))))))" +" lst_74))))))" "(if(parsed-id? p_47)" "(let-values()(get-id-value p_47 ns_71 self-mpi_4))" "(if(parsed-quote? p_47)" @@ -37277,18 +37277,18 @@ static const char *startup_source = "(lambda(ids_17 rhs_13 phase_97)" "(let-values(((keys_2)" "(reverse$1" -"(let-values(((lst_272) ids_17))" +"(let-values(((lst_273) ids_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_272)))" +"(let-values()(check-list lst_273)))" "((letrec-values(((for-loop_238)" -"(lambda(fold-var_222 lst_273)" +"(lambda(fold-var_222 lst_274)" "(begin" " 'for-loop" -"(if(pair? lst_273)" -"(let-values(((id_54)(unsafe-car lst_273))" -"((rest_150)(unsafe-cdr lst_273)))" +"(if(pair? lst_274)" +"(let-values(((id_54)(unsafe-car lst_274))" +"((rest_150)(unsafe-cdr lst_274)))" "(let-values(((fold-var_80)" "(let-values(((fold-var_81) fold-var_222))" "(let-values(((fold-var_223)" @@ -37324,7 +37324,7 @@ static const char *startup_source = " fold-var_222)))))" " for-loop_238)" " null" -" lst_272))))))" +" lst_273))))))" "(values ids_17(lifted-bind2.1 ids_17 keys_2 rhs_13)))))))" "(define-values" "(make-top-level-lift)" @@ -37336,18 +37336,18 @@ 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_264) ids_18))" +"(let-values(((lst_265) ids_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_264)))" +"(let-values()(check-list lst_265)))" "((letrec-values(((for-loop_225)" -"(lambda(fold-var_224 lst_178)" +"(lambda(fold-var_224 lst_179)" "(begin" " 'for-loop" -"(if(pair? lst_178)" -"(let-values(((id_57)(unsafe-car lst_178))" -"((rest_151)(unsafe-cdr lst_178)))" +"(if(pair? lst_179)" +"(let-values(((id_57)(unsafe-car lst_179))" +"((rest_151)(unsafe-cdr lst_179)))" "(let-values(((fold-var_225)" "(let-values(((fold-var_226) fold-var_224))" "(let-values(((fold-var_227)" @@ -37365,7 +37365,7 @@ static const char *startup_source = " fold-var_224)))))" " for-loop_225)" " null" -" lst_264))))))" +" lst_265))))))" "(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" @@ -37374,15 +37374,15 @@ static const char *startup_source = "(begin" "(datum->syntax$1" " #f" -"(let-values(((lst_274)(reverse$1 lifts_3)))" +"(let-values(((lst_275)(reverse$1 lifts_3)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_274)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_275)))" "((letrec-values(((for-loop_239)" -"(lambda(body_6 lst_185)" +"(lambda(body_6 lst_186)" "(begin" " 'for-loop" -"(if(pair? lst_185)" -"(let-values(((lift_0)(unsafe-car lst_185))((rest_98)(unsafe-cdr lst_185)))" +"(if(pair? lst_186)" +"(let-values(((lift_0)(unsafe-car lst_186))((rest_98)(unsafe-cdr lst_186)))" "(let-values(((body_7)" "(let-values(((body_8) body_6))" "(let-values(((body_9)" @@ -37406,7 +37406,7 @@ static const char *startup_source = " body_6)))))" " for-loop_239)" " body_5" -" lst_274)))))))" +" lst_275)))))))" "(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)" @@ -37424,18 +37424,18 @@ static const char *startup_source = "(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_98) 'begin)" "(append" "(reverse$1" -"(let-values(((lst_275) lifts_4))" +"(let-values(((lst_276) lifts_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_275)))" +"(let-values()(check-list lst_276)))" "((letrec-values(((for-loop_185)" -"(lambda(fold-var_228 lst_276)" +"(lambda(fold-var_228 lst_277)" "(begin" " 'for-loop" -"(if(pair? lst_276)" -"(let-values(((lift_1)(unsafe-car lst_276))" -"((rest_152)(unsafe-cdr lst_276)))" +"(if(pair? lst_277)" +"(let-values(((lift_1)(unsafe-car lst_277))" +"((rest_152)(unsafe-cdr lst_277)))" "(let-values(((fold-var_3)" "(let-values(((fold-var_88) fold-var_228))" "(let-values(((fold-var_229)" @@ -37463,22 +37463,22 @@ static const char *startup_source = " fold-var_228)))))" " for-loop_185)" " null" -" lst_275))))" +" lst_276))))" "(list(adjust-body_0 body_10))))))))))))))" "(define-values" "(get-lifts-as-lists)" "(lambda(lifts_5)" "(begin" "(reverse$1" -"(let-values(((lst_277) lifts_5))" +"(let-values(((lst_278) lifts_5))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_277)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_278)))" "((letrec-values(((for-loop_240)" -"(lambda(fold-var_181 lst_278)" +"(lambda(fold-var_181 lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_278)" -"(let-values(((lift_2)(unsafe-car lst_278))((rest_153)(unsafe-cdr lst_278)))" +"(if(pair? lst_279)" +"(let-values(((lift_2)(unsafe-car lst_279))((rest_153)(unsafe-cdr lst_279)))" "(let-values(((fold-var_230)" "(let-values(((fold-var_231) fold-var_181))" "(let-values(((fold-var_232)" @@ -37495,7 +37495,7 @@ static const char *startup_source = " fold-var_181)))))" " for-loop_240)" " null" -" lst_277)))))))" +" lst_278)))))))" "(define-values" "(struct:module-lift-context" " module-lift-context19.1" @@ -37536,12 +37536,12 @@ static const char *startup_source = "(lambda(module-lifts_2 s_395 phase_100)" "(begin" "(begin" -"(if(let-values(((or-part_266)" +"(if(let-values(((or-part_267)" "(if(module-lift-context? module-lifts_2)" "(module-lift-context-module*-ok? module-lifts_2)" " #f)))" -"(if or-part_266" -" or-part_266" +"(if or-part_267" +" or-part_267" "(if(lift-context? module-lifts_2)(lift-context-module*-ok? module-lifts_2) #f)))" "(void)" "(let-values()" @@ -37710,17 +37710,17 @@ static const char *startup_source = "(lambda(v_29 info_1)" "(begin" "(if(if(list? v_29)" -"(let-values(((lst_71) v_29))" +"(let-values(((lst_72) v_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_71)))" +"(let-values()(check-list lst_72)))" "((letrec-values(((for-loop_91)" -"(lambda(result_70 lst_72)" +"(lambda(result_70 lst_73)" "(begin" " 'for-loop" -"(if(pair? lst_72)" -"(let-values(((s_2)(unsafe-car lst_72))((rest_33)(unsafe-cdr lst_72)))" +"(if(pair? lst_73)" +"(let-values(((s_2)(unsafe-car lst_73))((rest_33)(unsafe-cdr lst_73)))" "(let-values(((result_62)" "(let-values()" "(let-values(((result_110)" @@ -37740,7 +37740,7 @@ static const char *startup_source = " result_70)))))" " for-loop_91)" " #t" -" lst_71)))" +" lst_72)))" " #f)" "(void)" "(let-values()" @@ -37829,11 +37829,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_39)))" "((letrec-values(((for-loop_179)" -"(lambda(lst_84)" +"(lambda(lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_84)" -"(let-values(((rr_1)(unsafe-car lst_84))((rest_116)(unsafe-cdr lst_84)))" +"(if(pair? lst_85)" +"(let-values(((rr_1)(unsafe-car lst_85))((rest_116)(unsafe-cdr lst_85)))" "(let-values(((post-guard-var_0)(lambda()(begin 'post-guard-var #t))))" "(let-values()" "(if(reference-record-all-referenced? rr_1)" @@ -37861,11 +37861,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_24)))" "((letrec-values(((for-loop_241)" -"(lambda(ab_3 lst_76)" +"(lambda(ab_3 lst_77)" "(begin" " 'for-loop" -"(if(pair? lst_76)" -"(let-values(((key_78)(unsafe-car lst_76))((rest_140)(unsafe-cdr lst_76)))" +"(if(pair? lst_77)" +"(let-values(((key_78)(unsafe-car lst_77))((rest_140)(unsafe-cdr lst_77)))" "(let-values(((ab_4)" "(let-values(((ab_5) ab_3))" "(let-values(((ab_6)(let-values()(set-add ab_5 key_78))))" @@ -37899,8 +37899,8 @@ static const char *startup_source = "(reference-record-forward-references?)" "(lambda(rr_3)" "(begin" -"(let-values(((or-part_174)(reference-record-all-referenced? rr_3)))" -"(if or-part_174 or-part_174(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" +"(let-values(((or-part_175)(reference-record-all-referenced? rr_3)))" +"(if or-part_175 or-part_175(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" "(define-values" "(reference-record-clear!)" "(lambda(rr_4)" @@ -38102,23 +38102,23 @@ static const char *startup_source = "(lambda(l_69)" "(begin" "(reverse$1" -"(let-values(((lst_173) l_69))" +"(let-values(((lst_174) l_69))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_173)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" "((letrec-values(((for-loop_242)" -"(lambda(fold-var_5 lst_279)" +"(lambda(fold-var_5 lst_280)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((i_27)(unsafe-car lst_279))((rest_81)(unsafe-cdr lst_279)))" +"(if(pair? lst_280)" +"(let-values(((i_27)(unsafe-car lst_280))((rest_81)(unsafe-cdr lst_280)))" "(let-values(((fold-var_219)" "(let-values(((fold-var_155) fold-var_5))" "(if(let-values(((or-part_75)(parsed? i_27)))" "(if or-part_75" " or-part_75" -"(let-values(((or-part_232)(expanded+parsed? i_27)))" -"(if or-part_232" -" or-part_232" +"(let-values(((or-part_233)(expanded+parsed? i_27)))" +"(if or-part_233" +" or-part_233" "(semi-parsed-begin-for-syntax? i_27)))))" "(let-values(((fold-var_173) fold-var_155))" "(let-values(((fold-var_174)" @@ -38143,29 +38143,29 @@ static const char *startup_source = " fold-var_5)))))" " for-loop_242)" " null" -" lst_173)))))))" +" lst_174)))))))" "(define-values" "(syntax-only)" "(lambda(l_70)" "(begin" "(reverse$1" -"(let-values(((lst_272) l_70))" +"(let-values(((lst_273) l_70))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_272)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_273)))" "((letrec-values(((for-loop_238)" -"(lambda(fold-var_222 lst_273)" +"(lambda(fold-var_222 lst_274)" "(begin" " 'for-loop" -"(if(pair? lst_273)" -"(let-values(((i_35)(unsafe-car lst_273))((rest_150)(unsafe-cdr lst_273)))" +"(if(pair? lst_274)" +"(let-values(((i_35)(unsafe-car lst_274))((rest_150)(unsafe-cdr lst_274)))" "(let-values(((fold-var_80)" "(let-values(((fold-var_81) fold-var_222))" -"(if(let-values(((or-part_217)(syntax?$1 i_35)))" -"(if or-part_217" -" or-part_217" -"(let-values(((or-part_267)(expanded+parsed? i_35)))" -"(if or-part_267" -" or-part_267" +"(if(let-values(((or-part_218)(syntax?$1 i_35)))" +"(if or-part_218" +" or-part_218" +"(let-values(((or-part_268)(expanded+parsed? i_35)))" +"(if or-part_268" +" or-part_268" "(semi-parsed-begin-for-syntax? i_35)))))" "(let-values(((fold-var_82) fold-var_81))" "(let-values(((fold-var_233)" @@ -38259,7 +38259,7 @@ static const char *startup_source = " fold-var_222)))))" " for-loop_238)" " null" -" lst_272)))))))" +" lst_273)))))))" "(define-values" "(expand7.1)" "(lambda(alternate-id1_0 alternate-id3_0 skip-log?2_0 skip-log?4_0 s5_0 ctx6_0)" @@ -38296,7 +38296,7 @@ static const char *startup_source = "(expand-identifier)" "(lambda(s_43 ctx_15 alternate-id_1)" "(begin" -"(let-values(((id_58)(let-values(((or-part_173) alternate-id_1))(if or-part_173 or-part_173 s_43))))" +"(let-values(((id_58)(let-values(((or-part_174) alternate-id_1))(if or-part_174 or-part_174 s_43))))" "(if(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_58)" "(let-values()" "(begin" @@ -38333,18 +38333,18 @@ static const char *startup_source = "(if(not binding_19)" "(let-values()(expand-implicit '#%top(substitute-alternate-id s_43 alternate-id_1) ctx_15 s_43))" "(let-values()" -"(let-values(((t_44 primitive?_2 insp-of-t_0)" +"(let-values(((t_44 primitive?_2 insp-of-t_0 protected?_3)" "(let-values(((temp84_0)(if alternate-id_1 s_43 #f))" "((temp85_0)(expand-context-in-local-expand? ctx_15)))" "(lookup17.1 temp84_0 #t temp85_0 #t binding_19 ctx_15 id_58))))" -"(dispatch t_44 insp-of-t_0 s_43 id_58 ctx_15 binding_19 primitive?_2)))))))))))))" +"(dispatch t_44 insp-of-t_0 s_43 id_58 ctx_15 binding_19 primitive?_2 protected?_3)))))))))))))" "(define-values" "(expand-id-application-form)" -"(lambda(s_400 ctx_16 alternate-id_2)" +"(lambda(s_148 ctx_16 alternate-id_2)" "(begin" "(let-values(((id_59)" -"(let-values(((or-part_268) alternate-id_2))" -"(if or-part_268 or-part_268(car(syntax-e/no-taint s_400))))))" +"(let-values(((or-part_71) alternate-id_2))" +"(if or-part_71 or-part_71(car(syntax-e/no-taint s_148))))))" "(if(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_59)" "(let-values()" "(begin" @@ -38355,13 +38355,13 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_4 'resolve id_59)" -"(call-expand-observe obs_4 'enter-prim s_400)" +"(call-expand-observe obs_4 'enter-prim s_148)" "(call-expand-observe obs_4 'prim-stop)" -"(call-expand-observe obs_4 'exit-prim s_400)" -"(call-expand-observe obs_4 'return s_400)))" +"(call-expand-observe obs_4 'exit-prim s_148)" +"(call-expand-observe obs_4 'return s_148)))" "(void)))" "(void)))" -" s_400))" +" s_148))" "(let-values()" "(let-values(((binding_20)" "(let-values(((temp87_1)(expand-context-phase ctx_16))" @@ -38379,31 +38379,39 @@ static const char *startup_source = "(if(eq? binding_20 'ambiguous)" "(let-values()(raise-ambiguous-error id_59 ctx_16))" "(if(not binding_20)" -"(let-values()(expand-implicit '#%app(substitute-alternate-id s_400 alternate-id_2) ctx_16 id_59))" +"(let-values()(expand-implicit '#%app(substitute-alternate-id s_148 alternate-id_2) ctx_16 id_59))" "(let-values()" -"(let-values(((t_45 primitive?_3 insp-of-t_1)" -"(let-values(((temp93_2)(if alternate-id_2(car(syntax-e/no-taint s_400)) #f))" +"(let-values(((t_45 primitive?_3 insp-of-t_1 protected?_4)" +"(let-values(((temp93_2)(if alternate-id_2(car(syntax-e/no-taint s_148)) #f))" "((temp94_1)(expand-context-in-local-expand? ctx_16)))" "(lookup17.1 temp93_2 #t temp94_1 #t binding_20 ctx_16 id_59))))" "(if(variable? t_45)" "(let-values()" -"(expand-implicit '#%app(substitute-alternate-id s_400 alternate-id_2) ctx_16 id_59))" +"(expand-implicit '#%app(substitute-alternate-id s_148 alternate-id_2) ctx_16 id_59))" "(let-values()" -"(dispatch t_45 insp-of-t_1 s_400 id_59 ctx_16 binding_20 primitive?_3)))))))))))))))" +"(dispatch" +" t_45" +" insp-of-t_1" +" s_148" +" id_59" +" ctx_16" +" binding_20" +" primitive?_3" +" protected?_4)))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_25 s_17 ctx_17 trigger-id_1)" +"(lambda(sym_63 s_19 ctx_17 trigger-id_1)" "(begin" "(if(expand-context-only-immediate? ctx_17)" "(let-values()" "(begin" "(let-values(((obs_6)(expand-context-observer ctx_17)))" -"(if obs_6(let-values()(let-values()(call-expand-observe obs_6 'exit-check s_17)))(void)))" -" s_17))" +"(if obs_6(let-values()(let-values()(call-expand-observe obs_6 'exit-check s_19)))(void)))" +" s_19))" "(let-values()" -"(let-values(((disarmed-s_1)(syntax-disarm$1 s_17)))" -"(let-values(((id_15)(datum->syntax$1 disarmed-s_1 sym_25)))" -"(if(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_15)" +"(let-values(((disarmed-s_1)(syntax-disarm$1 s_19)))" +"(let-values(((id_60)(datum->syntax$1 disarmed-s_1 sym_63)))" +"(if(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_60)" "(let-values()" "(begin" "(let-values(((obs_7)(expand-context-observer ctx_17)))" @@ -38412,62 +38420,62 @@ static const char *startup_source = "(if(not(expand-context-only-immediate? ctx_17))" "(let-values()" "(begin" -"(call-expand-observe obs_7 'resolve id_15)" -"(call-expand-observe obs_7 'enter-prim s_17)" +"(call-expand-observe obs_7 'resolve id_60)" +"(call-expand-observe obs_7 'enter-prim s_19)" "(call-expand-observe obs_7 'prim-stop)" -"(call-expand-observe obs_7 'exit-prim s_17)" -"(call-expand-observe obs_7 'return s_17)))" +"(call-expand-observe obs_7 'exit-prim s_19)" +"(call-expand-observe obs_7 'return s_19)))" "(void)))" "(void)))" -" s_17))" +" s_19))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_8)(expand-context-observer ctx_17)))" "(if obs_8" -"(let-values()(let-values()(call-expand-observe obs_8 'resolve id_15)))" +"(let-values()(let-values()(call-expand-observe obs_8 'resolve id_60)))" "(void)))" "(values))))" "(let-values(((b_78)" "(let-values(((temp96_2)(expand-context-phase ctx_17))" "((temp97_1) 'ambiguous)" "((temp98_1) #t))" -"(resolve+shift30.1 temp97_1 #t #f #f #f #f temp98_1 #t #f #f id_15 temp96_2))))" +"(resolve+shift30.1 temp97_1 #t #f #f #f #f temp98_1 #t #f #f id_60 temp96_2))))" "(if(eq? b_78 'ambiguous)" -"(let-values()(raise-ambiguous-error id_15 ctx_17))" +"(let-values()(raise-ambiguous-error id_60 ctx_17))" "(let-values()" -"(let-values(((t_46 primitive?_4 insp-of-t_2)" +"(let-values(((t_24 primitive?_4 insp-of-t_2 protected?_5)" "(if b_78" -"(let-values(((b99_0) b_78)((ctx100_0) ctx_17)((id101_0) id_15))" +"(let-values(((b99_0) b_78)((ctx100_0) ctx_17)((id101_0) id_60))" "(lookup17.1 #f #f #f #f b99_0 ctx100_0 id101_0))" -"(values #f #f #f))))" -"(if(transformer? t_46)" +"(values #f #f #f #f))))" +"(if(transformer? t_24)" "(let-values()" "(dispatch-transformer" -" t_46" +" t_24" " insp-of-t_2" -"(make-explicit ctx_17 sym_25 s_17 disarmed-s_1)" -" id_15" +"(make-explicit ctx_17 sym_63 s_19 disarmed-s_1)" +" id_60" " ctx_17" " b_78))" -"(if(core-form? t_46)" +"(if(core-form? t_24)" "(let-values()" -"(if(if(eq? sym_25 '#%top)" -"(if(eq?(core-form-name t_46) '#%top)" +"(if(if(eq? sym_63 '#%top)" +"(if(eq?(core-form-name t_24) '#%top)" "(expand-context-in-local-expand? ctx_17)" " #f)" " #f)" -"(let-values()(dispatch-implicit-#%top-core-form t_46 s_17 ctx_17))" +"(let-values()(dispatch-implicit-#%top-core-form t_24 s_19 ctx_17))" "(let-values()" "(dispatch-core-form" -" t_46" -"(make-explicit ctx_17 sym_25 s_17 disarmed-s_1)" +" t_24" +"(make-explicit ctx_17 sym_63 s_19 disarmed-s_1)" " ctx_17))))" "(let-values()" "(let-values(((tl-id_0)" -"(if(eq? sym_25 '#%top)" +"(if(eq? sym_63 '#%top)" "(if(root-expand-context-top-level-bind-scope ctx_17)" -"(add-scope s_17(root-expand-context-top-level-bind-scope ctx_17))" +"(add-scope s_19(root-expand-context-top-level-bind-scope ctx_17))" " #f)" " #f)))" "(let-values(((tl-b_0)" @@ -38485,25 +38493,25 @@ static const char *startup_source = " tl-id_0))" "(let-values()" "(raise-syntax-implicit-error" -" s_17" -" sym_25" +" s_19" +" sym_63" " trigger-id_1" " ctx_17))))))))))))))))))))))" "(define-values" "(expand-already-expanded)" -"(lambda(s_163 ctx_18)" +"(lambda(s_164 ctx_18)" "(begin" -"(let-values(((ae_0)(syntax-e$1 s_163)))" +"(let-values(((ae_0)(syntax-e$1 s_164)))" "(let-values(((exp-s_0)(already-expanded-s ae_0)))" "(begin" -"(if(let-values(((or-part_269)(syntax-any-macro-scopes? s_163)))" -"(if or-part_269" -" or-part_269" -"(let-values(((or-part_270)" +"(if(let-values(((or-part_141)(syntax-any-macro-scopes? s_164)))" +"(if or-part_141" +" or-part_141" +"(let-values(((or-part_269)" "(not" "(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))" -"(if or-part_270" -" or-part_270" +"(if or-part_269" +" or-part_269" "(if(parsed? exp-s_0)" "(not" "(if(expand-context-to-parsed? ctx_18)" @@ -38521,7 +38529,7 @@ static const char *startup_source = "(if(parsed? exp-s_0)" "(let-values() exp-s_0)" "(let-values()" -"(let-values(((result-s_1)(syntax-track-origin$1 exp-s_0 s_163)))" +"(let-values(((result-s_1)(syntax-track-origin$1 exp-s_0 s_164)))" "(begin" "(let-values(((obs_9)(expand-context-observer ctx_18)))" "(if obs_9" @@ -38533,45 +38541,45 @@ static const char *startup_source = " result-s_1)))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_63 s_77 disarmed-s_2)" +"(lambda(ctx_19 sym_64 s_307 disarmed-s_2)" "(begin" "(let-values(((new-s_0)" -"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_63 disarmed-s_2) s_77 s_77) s_77)))" +"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_64 disarmed-s_2) s_307 s_307) s_307)))" "(begin" "(let-values(((obs_10)(expand-context-observer ctx_19)))" "(if obs_10(let-values()(let-values()(call-expand-observe obs_10 'tag new-s_0)))(void)))" " new-s_0)))))" "(define-values" "(dispatch)" -"(lambda(t_31 insp-of-t_3 s_398 id_60 ctx_20 binding_21 primitive?_5)" +"(lambda(t_46 insp-of-t_3 s_309 id_61 ctx_20 binding_10 primitive?_5 protected?_6)" "(begin" -"(if(core-form? t_31)" -"(let-values()(dispatch-core-form t_31 s_398 ctx_20))" -"(if(transformer? t_31)" -"(let-values()(dispatch-transformer t_31 insp-of-t_3 s_398 id_60 ctx_20 binding_21))" -"(if(variable? t_31)" -"(let-values()(dispatch-variable t_31 s_398 id_60 ctx_20 binding_21 primitive?_5))" -" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_398))))))))" +"(if(core-form? t_46)" +"(let-values()(dispatch-core-form t_46 s_309 ctx_20))" +"(if(transformer? t_46)" +"(let-values()(dispatch-transformer t_46 insp-of-t_3 s_309 id_61 ctx_20 binding_10))" +"(if(variable? t_46)" +"(let-values()(dispatch-variable t_46 s_309 id_61 ctx_20 binding_10 primitive?_5 protected?_6))" +" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_309))))))))" "(define-values" "(dispatch-core-form)" -"(lambda(t_47 s_29 ctx_21)" +"(lambda(t_47 s_84 ctx_21)" "(begin" "(if(expand-context-only-immediate? ctx_21)" "(let-values()" "(begin" "(let-values(((obs_11)(expand-context-observer ctx_21)))" -"(if obs_11(let-values()(let-values()(call-expand-observe obs_11 'exit-check s_29)))(void)))" -" s_29))" +"(if obs_11(let-values()(let-values()(call-expand-observe obs_11 'exit-check s_84)))(void)))" +" s_84))" "(if(expand-context-observer ctx_21)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_12)(expand-context-observer ctx_21)))" "(if obs_12" -"(let-values()(let-values()(call-expand-observe obs_12 'enter-prim s_29)))" +"(let-values()(let-values()(call-expand-observe obs_12 'enter-prim s_84)))" "(void)))" "(values))))" -"(let-values(((result-s_2)((core-form-expander t_47) s_29 ctx_21)))" +"(let-values(((result-s_2)((core-form-expander t_47) s_84 ctx_21)))" "(begin" "(let-values(((obs_13)(expand-context-observer ctx_21)))" "(if obs_13" @@ -38582,19 +38590,19 @@ static const char *startup_source = "(call-expand-observe obs_13 'return(extract-syntax result-s_2)))))" "(void)))" " result-s_2))))" -"(let-values()((core-form-expander t_47) s_29 ctx_21)))))))" +"(let-values()((core-form-expander t_47) s_84 ctx_21)))))))" "(define-values" "(dispatch-implicit-#%top-core-form)" -"(lambda(t_48 s_401 ctx_22)" +"(lambda(t_48 s_400 ctx_22)" "(begin" "(let-values((()" "(begin" "(let-values(((obs_14)(expand-context-observer ctx_22)))" "(if obs_14" -"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_401)))" +"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_400)))" "(void)))" "(values))))" -"(let-values(((result-s_3)((core-form-expander t_48) s_401 ctx_22 #t)))" +"(let-values(((result-s_3)((core-form-expander t_48) s_400 ctx_22 #t)))" "(begin" "(let-values(((obs_15)(expand-context-observer ctx_22)))" "(if obs_15" @@ -38607,7 +38615,7 @@ static const char *startup_source = " result-s_3))))))" "(define-values" "(dispatch-transformer)" -"(lambda(t_49 insp-of-t_4 s_402 id_61 ctx_23 binding_22)" +"(lambda(t_49 insp-of-t_4 s_46 id_62 ctx_23 binding_21)" "(begin" "(if(not-in-this-expand-context? t_49 ctx_23)" "(let-values()" @@ -38615,18 +38623,18 @@ static const char *startup_source = "(begin" "(let-values(((obs_16)(expand-context-observer ctx_23)))" "(if obs_16" -"(let-values()(let-values()(call-expand-observe obs_16 'enter-macro s_402)))" +"(let-values()(let-values()(call-expand-observe obs_16 'enter-macro s_46)))" "(void)))" "(values))))" -"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_402 id_61) t_49 ctx_23)))" +"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_46 id_62) t_49 ctx_23)))" "(begin" "(let-values(((obs_17)(expand-context-observer ctx_23)))" -"(if obs_17(let-values()(let-values()(call-expand-observe obs_17 'exit-macro s_402)))(void)))" +"(if obs_17(let-values()(let-values()(call-expand-observe obs_17 'exit-macro s_46)))(void)))" "(let-values(((adj-s106_0) adj-s_0)((ctx107_0) ctx_23))" "(expand7.1 #f #f #f #f adj-s106_0 ctx107_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_402))" +" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_46))" "(let-values()" "(let-values((()" "(begin" @@ -38636,15 +38644,15 @@ static const char *startup_source = "(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_49)) #f)" "(let-values()" "(begin" -"(call-expand-observe obs_18 'visit s_402)" -"(call-expand-observe obs_18 'resolve id_61)))" +"(call-expand-observe obs_18 'visit s_46)" +"(call-expand-observe obs_18 'resolve id_62)))" "(void)))" "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" "(if(1/rename-transformer? t_49)" -"(values s_402 ctx_23)" -"(apply-transformer t_49 insp-of-t_4 s_402 id_61 ctx_23 binding_22))))" +"(values s_46 ctx_23)" +"(apply-transformer t_49 insp-of-t_4 s_46 id_62 ctx_23 binding_21))))" "(begin" "(let-values(((obs_19)(expand-context-observer ctx_23)))" "(if obs_19" @@ -38659,67 +38667,69 @@ static const char *startup_source = "(let-values(((temp110_0)" "(if(1/rename-transformer? t_49)" "(syntax-track-origin$1" -"(transfer-srcloc(rename-transformer-target-in-context t_49 ctx_23) id_61)" -" id_61" -" id_61)" +"(transfer-srcloc(rename-transformer-target-in-context t_49 ctx_23) id_62)" +" id_62" +" id_62)" " #f))" "((temp111_0)" -"(let-values(((or-part_179)(expand-context-only-immediate? ctx_23)))" -"(if or-part_179 or-part_179(1/rename-transformer? t_49)))))" +"(let-values(((or-part_146)(expand-context-only-immediate? ctx_23)))" +"(if or-part_146 or-part_146(1/rename-transformer? t_49)))))" "(expand7.1 temp110_0 #t temp111_0 #t exp-s_1 re-ctx_0)))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_50 s_311 id_62 ctx_24 binding_23 primitive?_6)" +"(lambda(t_50 s_314 id_63 ctx_24 binding_22 primitive?_6 protected?_7)" "(begin" "(if(expand-context-only-immediate? ctx_24)" "(let-values()" "(begin" "(let-values(((obs_20)(expand-context-observer ctx_24)))" -"(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_311)))(void)))" -" id_62))" +"(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_314)))(void)))" +" id_63))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_21)(expand-context-observer ctx_24)))" "(if obs_21" -"(let-values()(let-values()(call-expand-observe obs_21 'variable s_311 id_62)))" +"(let-values()(let-values()(call-expand-observe obs_21 'variable s_314 id_63)))" "(void)))" "(values))))" -"(let-values((()(begin(register-variable-referenced-if-local! binding_23)(values))))" +"(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" "(let-values(((result-s_4)" "(let-values(((temp114_0)" "(free-id-set-empty-or-just-module*?(expand-context-stops ctx_24))))" -"(substitute-variable6.1 temp114_0 id_62 t_50))))" +"(substitute-variable6.1 temp114_0 id_63 t_50))))" "(if(if(expand-context-to-parsed? ctx_24)(free-id-set-empty?(expand-context-stops ctx_24)) #f)" "(let-values()" "(let-values(((prop-s_0)(keep-properties-only~ result-s_4)))" -"(let-values(((insp_16)(syntax-inspector result-s_4)))" +"(let-values(((insp_15)(syntax-inspector result-s_4)))" "(if primitive?_6" -"(parsed-primitive-id3.1 prop-s_0 binding_23 insp_16)" -"(parsed-id2.1 prop-s_0 binding_23 insp_16)))))" +"(parsed-primitive-id3.1 prop-s_0 binding_22 insp_15)" +"(parsed-id2.1 prop-s_0 binding_22 insp_15)))))" "(let-values()" +"(let-values(((protected-result-s_0)" +"(if protected?_7(syntax-property$1 result-s_4 'protected #t) result-s_4)))" "(begin" "(let-values(((obs_22)(expand-context-observer ctx_24)))" "(if obs_22" -"(let-values()(let-values()(call-expand-observe obs_22 'return result-s_4)))" +"(let-values()(let-values()(call-expand-observe obs_22 'return protected-result-s_0)))" "(void)))" -" result-s_4)))))))))))" +" protected-result-s_0))))))))))))" "(define-values" "(apply-transformer)" -"(lambda(t_51 insp-of-t_5 s_54 id_63 ctx_25 binding_24)" +"(lambda(t_51 insp-of-t_5 s_318 id_64 ctx_25 binding_23)" "(begin" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_23)(expand-context-observer ctx_25)))" "(if obs_23" -"(let-values()(let-values()(call-expand-observe obs_23 'enter-macro s_54)))" +"(let-values()(let-values()(call-expand-observe obs_23 'enter-macro s_318)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_3)(syntax-disarm$1 s_54)))" +"(let-values(((disarmed-s_3)(syntax-disarm$1 s_318)))" "(let-values(((intro-scope_0)(new-scope 'macro)))" "(let-values(((intro-s_0)(flip-scope disarmed-s_3 intro-scope_0)))" -"(let-values(((use-s_0 use-scopes_0)(maybe-add-use-site-scope intro-s_0 ctx_25 binding_24)))" +"(let-values(((use-s_0 use-scopes_0)(maybe-add-use-site-scope intro-s_0 ctx_25 binding_23)))" "(let-values(((cleaned-s_0)(syntax-remove-taint-dispatch-properties use-s_0)))" "(let-values(((def-ctx-scopes_1)(box null)))" "(let-values(((transformed-s_0)" @@ -38731,14 +38741,14 @@ static const char *startup_source = " intro-scope_0" " use-scopes_0" " def-ctx-scopes_1" -" id_63)))" +" id_64)))" "(let-values(((result-s_5)(flip-scope transformed-s_0 intro-scope_0)))" "(let-values(((post-s_0)(maybe-add-post-expansion-scope result-s_5 ctx_25)))" -"(let-values(((tracked-s_0)(syntax-track-origin$1 post-s_0 cleaned-s_0 id_63)))" +"(let-values(((tracked-s_0)(syntax-track-origin$1 post-s_0 cleaned-s_0 id_64)))" "(let-values(((rearmed-s_0)" "(taint-dispatch" " tracked-s_0" -"(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_54))" +"(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_318))" "(expand-context-phase ctx_25))))" "(begin" "(let-values(((obs_24)(expand-context-observer ctx_25)))" @@ -38751,7 +38761,7 @@ static const char *startup_source = "(accumulate-def-ctx-scopes ctx_25 def-ctx-scopes_1)))))))))))))))))))" "(define-values" "(apply-transformer-in-context)" -"(lambda(t_52 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_64)" +"(lambda(t_52 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_65)" "(begin" "(let-values((()" "(begin" @@ -38762,9 +38772,9 @@ static const char *startup_source = "(values))))" "(let-values(((confine-def-ctx-scopes?_0)" "(not" -"(let-values(((or-part_271)(expand-context-only-immediate? ctx_26)))" -"(if or-part_271" -" or-part_271" +"(let-values(((or-part_270)(expand-context-only-immediate? ctx_26)))" +"(if or-part_270" +" or-part_270" "(not(free-id-set-empty-or-just-module*?(expand-context-stops ctx_26))))))))" "(let-values(((accum-ctx_0)" "(if(if confine-def-ctx-scopes?_0" @@ -38775,15 +38785,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_185) accum-ctx_0))" -"(let-values(((the-struct_61) v_185))" +"(let-values(((v_140) accum-ctx_0))" +"(let-values(((the-struct_61) v_140))" "(if(expand-context/outer? the-struct_61)" "(let-values(((current-introduction-scopes115_0)(cons intro-scope_1 use-scopes_1))" "((def-ctx-scopes116_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" "(expand-context-def-ctx-scopes ctx_26)))" -"((inner117_0)(root-expand-context/outer-inner v_185)))" +"((inner117_0)(root-expand-context/outer-inner v_140)))" "(expand-context/outer1.1" " inner117_0" "(root-expand-context/outer-post-expansion-scope the-struct_61)" @@ -38813,8 +38823,8 @@ static const char *startup_source = "(expand-context-namespace ctx_26)" "(add1(expand-context-phase ctx_26)))" " current-module-code-inspector" -"(let-values(((or-part_272) insp-of-t_6))" -"(if or-part_272 or-part_272(current-module-code-inspector))))" +"(let-values(((or-part_271) insp-of-t_6))" +"(if or-part_271 or-part_271(current-module-code-inspector))))" "(let-values()" "(call-with-continuation-barrier" "(lambda()((transformer->procedure t_52) cleaned-s_1)))))))" @@ -38828,67 +38838,67 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-arguments-error" -"(syntax-e$1 id_64)" +"(syntax-e$1 id_65)" " \"received value from syntax expander was not syntax\"" " \"received\"" " transformed-s_1)))" " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_61 ctx_27 binding_1)" +"(lambda(s_37 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_1))" +"(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_24))" " #f)" "(let-values()" "(let-values(((sc_26)(new-scope 'use-site)))" "(let-values(((b_79)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_79(cons sc_26(unbox b_79)))(values(add-scope s_61 sc_26)(list sc_26))))))" -"(let-values()(values s_61 null))))))" +"(begin(set-box! b_79(cons sc_26(unbox b_79)))(values(add-scope s_37 sc_26)(list sc_26))))))" +"(let-values()(values s_37 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" "(begin" "(if current-frame-id_0" -"(let-values(((or-part_99)(eq? current-frame-id_0 bind-frame-id_0)))" -"(if or-part_99 or-part_99(eq? current-frame-id_0 'all)))" +"(let-values(((or-part_230)(eq? current-frame-id_0 bind-frame-id_0)))" +"(if or-part_230 or-part_230(eq? current-frame-id_0 'all)))" " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" -"(lambda(s_320 ctx_28)" +"(lambda(s_401 ctx_28)" "(begin" "(if(root-expand-context-post-expansion-scope ctx_28)" "(let-values()" -"((expand-context-post-expansion-scope-action ctx_28) s_320(root-expand-context-post-expansion-scope ctx_28)))" -"(let-values() s_320)))))" +"((expand-context-post-expansion-scope-action ctx_28) s_401(root-expand-context-post-expansion-scope ctx_28)))" +"(let-values() s_401)))))" "(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_108) ctx_29))" -"(let-values(((the-struct_62) v_108))" -"(if(expand-context/outer? the-struct_62)" +"(let-values(((v_114) ctx_29))" +"(let-values(((the-struct_55) v_114))" +"(if(expand-context/outer? the-struct_55)" "(let-values(((scopes118_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner119_0)(root-expand-context/outer-inner v_108)))" +"((inner119_0)(root-expand-context/outer-inner v_114)))" "(expand-context/outer1.1" " inner119_0" -"(root-expand-context/outer-post-expansion-scope the-struct_62)" -"(root-expand-context/outer-use-site-scopes the-struct_62)" -"(root-expand-context/outer-frame-id the-struct_62)" -"(expand-context/outer-context the-struct_62)" -"(expand-context/outer-env the-struct_62)" -"(expand-context/outer-post-expansion-scope-action the-struct_62)" +"(root-expand-context/outer-post-expansion-scope the-struct_55)" +"(root-expand-context/outer-use-site-scopes the-struct_55)" +"(root-expand-context/outer-frame-id the-struct_55)" +"(expand-context/outer-context the-struct_55)" +"(expand-context/outer-env the-struct_55)" +"(expand-context/outer-post-expansion-scope-action the-struct_55)" " scopes118_0" -"(expand-context/outer-def-ctx-scopes the-struct_62)" -"(expand-context/outer-binding-layer the-struct_62)" -"(expand-context/outer-reference-records the-struct_62)" -"(expand-context/outer-only-immediate? the-struct_62)" -"(expand-context/outer-need-eventually-defined the-struct_62)" -"(expand-context/outer-current-introduction-scopes the-struct_62)" -"(expand-context/outer-name the-struct_62)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_62))))))))" +"(expand-context/outer-def-ctx-scopes the-struct_55)" +"(expand-context/outer-binding-layer the-struct_55)" +"(expand-context/outer-reference-records the-struct_55)" +"(expand-context/outer-only-immediate? the-struct_55)" +"(expand-context/outer-need-eventually-defined the-struct_55)" +"(expand-context/outer-current-introduction-scopes the-struct_55)" +"(expand-context/outer-name the-struct_55)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_55))))))))" "(define-values" "(lookup17.1)" "(lambda(in10_1 in12_1 out-of-context-as-variable?11_0 out-of-context-as-variable?13_0 b14_0 ctx15_0 id16_1)" @@ -38896,7 +38906,7 @@ static const char *startup_source = " 'lookup17" "(let-values(((b_80) b14_0))" "(let-values(((ctx_30) ctx15_0))" -"(let-values(((id_65) id16_1))" +"(let-values(((id_66) id16_1))" "(let-values(((in-s_7)(if in12_1 in10_1 #f)))" "(let-values(((out-of-context-as-variable?_1)" "(if out-of-context-as-variable?13_0 out-of-context-as-variable?11_0 #f)))" @@ -38905,7 +38915,7 @@ static const char *startup_source = "((temp122_0)(expand-context-lift-envs ctx_30))" "((temp123_1)(expand-context-namespace ctx_30))" "((temp124_0)(expand-context-phase ctx_30))" -"((id125_0) id_65)" +"((id125_0) id_66)" "((in-s126_0) in-s_7)" "((out-of-context-as-variable?127_0) out-of-context-as-variable?_1))" "(binding-lookup48.1" @@ -38921,19 +38931,19 @@ static const char *startup_source = " id125_0)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_95 alternate-id_3)" +"(lambda(s_402 alternate-id_3)" "(begin" "(if(not alternate-id_3)" -"(let-values() s_95)" -"(if(identifier? s_95)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_95) s_95))" +"(let-values() s_402)" +"(if(identifier? s_402)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_402) s_402))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_95)))" +"(let-values(((disarmed-s_4)(syntax-disarm$1 s_402)))" "(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_95)" -" s_95)" -" s_95))))))))" +"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_402)" +" s_402)" +" s_402))))))))" "(define-values" "(register-variable-referenced-if-local!)" "(lambda(binding_25)" @@ -38955,7 +38965,7 @@ static const char *startup_source = " ctx29_0)" "(begin" " 'expand/capture-lifts30" -"(let-values(((s_209) s28_1))" +"(let-values(((s_99) s28_1))" "(let-values(((ctx_31) ctx29_0))" "(let-values(((expand-lifts?_0)(if expand-lifts?24_0 expand-lifts?20_0 #f)))" "(let-values(((begin-form?_0)(if begin-form?25_0 begin-form?21_0 #f)))" @@ -38966,7 +38976,7 @@ static const char *startup_source = "(let-values(((phase_104)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" "((letrec-values(((loop_96)" -"(lambda(s_102 always-wrap?_1 ctx_32)" +"(lambda(s_403 always-wrap?_1 ctx_32)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" @@ -38983,15 +38993,15 @@ static const char *startup_source = " #f)))" "(make-lift-context6.1 temp129_0 #t temp128_0))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_186) ctx_32))" -"(let-values(((the-struct_63) v_186))" -"(if(expand-context/outer? the-struct_63)" +"(let-values(((v_185) ctx_32))" +"(let-values(((the-struct_62) v_185))" +"(if(expand-context/outer? the-struct_62)" "(let-values(((inner130_0)" -"(let-values(((the-struct_64)" +"(let-values(((the-struct_63)" "(root-expand-context/outer-inner" -" v_186)))" +" v_185)))" "(if(expand-context/inner?" -" the-struct_64)" +" the-struct_63)" "(let-values(((lift-key131_0)" " lift-key_2)" "((lifts132_0)" @@ -39005,10 +39015,10 @@ static const char *startup_source = "(expand-context-lift-envs" " ctx_32)))" "((module-lifts134_0)" -"(if(let-values(((or-part_273)" +"(if(let-values(((or-part_272)" " local?_0))" -"(if or-part_273" -" or-part_273" +"(if or-part_272" +" or-part_272" "(not" "(memq" " context_6" @@ -39019,88 +39029,88 @@ static const char *startup_source = " lift-ctx_0)))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_64)" +" the-struct_63)" "(root-expand-context/inner-module-scopes" -" the-struct_64)" +" the-struct_63)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_64)" +" the-struct_63)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_64)" +" the-struct_63)" "(root-expand-context/inner-defined-syms" -" the-struct_64)" +" the-struct_63)" "(root-expand-context/inner-counter" -" the-struct_64)" +" the-struct_63)" " lift-key131_0" "(expand-context/inner-to-parsed?" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-phase" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-namespace" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-just-once?" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-module-begin-k" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-allow-unbound?" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-in-local-expand?" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-stops" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-declared-submodule-names" -" the-struct_64)" +" the-struct_63)" " lifts132_0" " lift-envs133_0" " module-lifts134_0" "(expand-context/inner-require-lifts" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-to-module-lifts" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-requires+provides" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-observer" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-for-serializable?" -" the-struct_64)" +" the-struct_63)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_64)))" +" the-struct_63)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_64)))))" +" the-struct_63)))))" "(expand-context/outer1.1" " inner130_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_63)" +" the-struct_62)" "(root-expand-context/outer-use-site-scopes" -" the-struct_63)" +" the-struct_62)" "(root-expand-context/outer-frame-id" -" the-struct_63)" -"(expand-context/outer-context the-struct_63)" -"(expand-context/outer-env the-struct_63)" +" the-struct_62)" +"(expand-context/outer-context the-struct_62)" +"(expand-context/outer-env the-struct_62)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_63)" -"(expand-context/outer-scopes the-struct_63)" +" the-struct_62)" +"(expand-context/outer-scopes the-struct_62)" "(expand-context/outer-def-ctx-scopes" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-binding-layer" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-reference-records" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-only-immediate?" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-need-eventually-defined" -" the-struct_63)" +" the-struct_62)" "(expand-context/outer-current-introduction-scopes" -" the-struct_63)" -"(expand-context/outer-name the-struct_63)))" +" the-struct_62)" +"(expand-context/outer-name the-struct_62)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_63))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_102)))" +" the-struct_62))))))" +"(let-values(((rebuild-s_0)(keep-properties-only s_403)))" "(let-values(((exp-s_2)" -"(let-values(((s135_0) s_102)" +"(let-values(((s135_0) s_403)" "((capture-ctx136_0) capture-ctx_0))" "(expand7.1" " #f" @@ -39113,10 +39123,10 @@ static const char *startup_source = "(get-and-clear-lifts!" "(expand-context-lifts capture-ctx_0))))" "(let-values(((with-lifts-s_0)" -"(if(let-values(((or-part_274)" +"(if(let-values(((or-part_273)" "(pair? lifts_6)))" -"(if or-part_274" -" or-part_274" +"(if or-part_273" +" or-part_273" " always-wrap?_1))" "(let-values()" "(if(expand-context-to-parsed? ctx_32)" @@ -39153,12 +39163,12 @@ static const char *startup_source = " exp-s_2" " phase_104)))))" "(let-values() exp-s_2))))" -"(if(let-values(((or-part_275)(not expand-lifts?_0)))" +"(if(let-values(((or-part_274)(not expand-lifts?_0)))" +"(if or-part_274" +" or-part_274" +"(let-values(((or-part_275)(null? lifts_6)))" "(if or-part_275" " or-part_275" -"(let-values(((or-part_276)(null? lifts_6)))" -"(if or-part_276" -" or-part_276" "(expand-context-to-parsed? ctx_32)))))" "(let-values() with-lifts-s_0)" "(let-values()" @@ -39175,7 +39185,7 @@ static const char *startup_source = "(void)))" "(loop_96 with-lifts-s_0 #f ctx_32)))))))))))))))" " loop_96)" -" s_209" +" s_99" " always-wrap?_0" " ctx_31))))))))))))))" "(define-values" @@ -39196,7 +39206,7 @@ static const char *startup_source = " ctx46_0)" "(begin" " 'expand-transformer47" -"(let-values(((s_122) s45_0))" +"(let-values(((s_404) s45_0))" "(let-values(((ctx_33) ctx46_0))" "(let-values(((context_7)(if context39_0 context33_0 'expression)))" "(let-values(((begin-form?_1)(if begin-form?40_0 begin-form?34_0 #f)))" @@ -39222,7 +39232,7 @@ static const char *startup_source = " #t" " lift-key144_0" " #t" -" s_122" +" s_404" " trans-ctx_0))))))))))))))))" "(define-values" "(context->transformer-context55.1)" @@ -39237,9 +39247,9 @@ static const char *startup_source = "(let-values(((ns_72)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_105)))" "(begin" "(namespace-visit-available-modules! ns_72 phase_105)" -"(let-values(((v_187) ctx_34))" -"(let-values(((the-struct_65) v_187))" -"(if(expand-context/outer? the-struct_65)" +"(let-values(((v_186) ctx_34))" +"(let-values(((the-struct_64) v_186))" +"(if(expand-context/outer? the-struct_64)" "(let-values(((context149_0) context_8)" "((scopes150_0) null)" "((env151_0) empty-env)" @@ -39248,8 +39258,8 @@ static const char *startup_source = "((def-ctx-scopes153_0) #f)" "((post-expansion-scope154_0) #f)" "((inner155_0)" -"(let-values(((the-struct_66)(root-expand-context/outer-inner v_187)))" -"(if(expand-context/inner? the-struct_66)" +"(let-values(((the-struct_65)(root-expand-context/outer-inner v_186)))" +"(if(expand-context/inner? the-struct_65)" "(let-values(((phase156_0) phase_105)" "((namespace157_0) ns_72)" "((stops158_0)" @@ -39257,52 +39267,52 @@ static const char *startup_source = "(expand-context-stops ctx_34)" " empty-free-id-set)))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_66)" -"(root-expand-context/inner-module-scopes the-struct_66)" -"(root-expand-context/inner-top-level-bind-scope the-struct_66)" -"(root-expand-context/inner-all-scopes-stx the-struct_66)" -"(root-expand-context/inner-defined-syms the-struct_66)" -"(root-expand-context/inner-counter the-struct_66)" -"(root-expand-context/inner-lift-key the-struct_66)" -"(expand-context/inner-to-parsed? the-struct_66)" +"(root-expand-context/inner-self-mpi the-struct_65)" +"(root-expand-context/inner-module-scopes the-struct_65)" +"(root-expand-context/inner-top-level-bind-scope the-struct_65)" +"(root-expand-context/inner-all-scopes-stx the-struct_65)" +"(root-expand-context/inner-defined-syms the-struct_65)" +"(root-expand-context/inner-counter the-struct_65)" +"(root-expand-context/inner-lift-key the-struct_65)" +"(expand-context/inner-to-parsed? the-struct_65)" " phase156_0" " namespace157_0" -"(expand-context/inner-just-once? the-struct_66)" -"(expand-context/inner-module-begin-k the-struct_66)" -"(expand-context/inner-allow-unbound? the-struct_66)" -"(expand-context/inner-in-local-expand? the-struct_66)" +"(expand-context/inner-just-once? the-struct_65)" +"(expand-context/inner-module-begin-k the-struct_65)" +"(expand-context/inner-allow-unbound? the-struct_65)" +"(expand-context/inner-in-local-expand? the-struct_65)" " stops158_0" -"(expand-context/inner-declared-submodule-names the-struct_66)" -"(expand-context/inner-lifts the-struct_66)" -"(expand-context/inner-lift-envs the-struct_66)" -"(expand-context/inner-module-lifts the-struct_66)" -"(expand-context/inner-require-lifts the-struct_66)" -"(expand-context/inner-to-module-lifts the-struct_66)" -"(expand-context/inner-requires+provides the-struct_66)" -"(expand-context/inner-observer the-struct_66)" -"(expand-context/inner-for-serializable? the-struct_66)" -"(expand-context/inner-should-not-encounter-macros? the-struct_66)))" +"(expand-context/inner-declared-submodule-names the-struct_65)" +"(expand-context/inner-lifts the-struct_65)" +"(expand-context/inner-lift-envs the-struct_65)" +"(expand-context/inner-module-lifts the-struct_65)" +"(expand-context/inner-require-lifts the-struct_65)" +"(expand-context/inner-to-module-lifts the-struct_65)" +"(expand-context/inner-requires+provides the-struct_65)" +"(expand-context/inner-observer the-struct_65)" +"(expand-context/inner-for-serializable? the-struct_65)" +"(expand-context/inner-should-not-encounter-macros? the-struct_65)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_66)))))" +" the-struct_65)))))" "(expand-context/outer1.1" " inner155_0" " post-expansion-scope154_0" -"(root-expand-context/outer-use-site-scopes the-struct_65)" -"(root-expand-context/outer-frame-id the-struct_65)" +"(root-expand-context/outer-use-site-scopes the-struct_64)" +"(root-expand-context/outer-frame-id the-struct_64)" " context149_0" " env151_0" -"(expand-context/outer-post-expansion-scope-action the-struct_65)" +"(expand-context/outer-post-expansion-scope-action the-struct_64)" " scopes150_0" " def-ctx-scopes153_0" -"(expand-context/outer-binding-layer the-struct_65)" -"(expand-context/outer-reference-records the-struct_65)" +"(expand-context/outer-binding-layer the-struct_64)" +"(expand-context/outer-reference-records the-struct_64)" " only-immediate?152_0" -"(expand-context/outer-need-eventually-defined the-struct_65)" -"(expand-context/outer-current-introduction-scopes the-struct_65)" -"(expand-context/outer-name the-struct_65)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_65))))))))))))))" +"(expand-context/outer-need-eventually-defined the-struct_64)" +"(expand-context/outer-current-introduction-scopes the-struct_64)" +"(expand-context/outer-name the-struct_64)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_64))))))))))))))" "(define-values" "(expand+eval-for-syntaxes-binding63.1)" "(lambda(log-next?58_0 log-next?59_0 rhs60_0 ids61_0 ctx62_0)" @@ -39382,8 +39392,8 @@ static const char *startup_source = "(void)" " (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_48)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_381)(begin(datum->syntax$1 #f 'props s_381 s_381))))" -"(define-values(keep-properties-only~)(lambda(s_382)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_384)(begin(datum->syntax$1 #f 'props s_384 s_384))))" +"(define-values(keep-properties-only~)(lambda(s_385)(begin #f)))" "(define-values" "(keep-as-needed74.1)" "(lambda(for-track?66_0" @@ -39397,12 +39407,12 @@ static const char *startup_source = "(begin" " 'keep-as-needed74" "(let-values(((ctx_38) ctx72_0))" -"(let-values(((s_388) s73_0))" +"(let-values(((s_405) s73_0))" "(let-values()" "(let-values(((keep-for-parsed?_0)(if keep-for-parsed?70_0 keep-for-parsed?67_0 #f)))" "(let-values(((keep-for-error?_0)(if keep-for-error?71_0 keep-for-error?68_0 #f)))" "(let-values()" -"(let-values(((d_33)(syntax-e$1 s_388)))" +"(let-values(((d_33)(syntax-e$1 s_405)))" "(let-values(((keep-e_0)" "(if(symbol? d_33)" "(let-values() d_33)" @@ -39411,28 +39421,28 @@ static const char *startup_source = "(let-values() #f)))))" "(if(expand-context-to-parsed? ctx_38)" "(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_388 s_388)" +"(if(let-values(((or-part_276) keep-for-parsed?_0))" +"(if or-part_276 or-part_276 keep-for-error?_0))" +"(datum->syntax$1 #f keep-e_0 s_405 s_405)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_388) keep-e_0 s_388 s_388)" -" s_388))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_405) keep-e_0 s_405 s_405)" +" s_405))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_403 trans-idss_0)" +"(lambda(s_406 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_403)" +"(let-values() s_406)" "(let-values()" "(syntax-property$1" -" s_403" +" s_406" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_278)(syntax-property$1 s_403 'disappeared-binding)))" -"(if or-part_278 or-part_278 null)))))))))" +"(let-values(((or-part_277)(syntax-property$1 s_406 'disappeared-binding)))" +"(if or-part_277 or-part_277 null)))))))))" "(define-values" "(increment-binding-layer)" "(lambda(ids_22 ctx_39 layer-val_0)" @@ -39441,12 +39451,12 @@ static const char *startup_source = "(lambda(ids_23)" "(begin" " 'loop" -"(let-values(((or-part_279)(identifier? ids_23)))" -"(if or-part_279" -" or-part_279" +"(let-values(((or-part_125)(identifier? ids_23)))" +"(if or-part_125" +" or-part_125" "(if(pair? ids_23)" -"(let-values(((or-part_280)(loop_97(car ids_23))))" -"(if or-part_280 or-part_280(loop_97(cdr ids_23))))" +"(let-values(((or-part_126)(loop_97(car ids_23))))" +"(if or-part_126 or-part_126(loop_97(cdr ids_23))))" " #f)))))))" " loop_97)" " ids_22)" @@ -39475,39 +39485,39 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_188) rhs-ctx_1))" -"(let-values(((the-struct_67) v_188))" -"(if(expand-context/outer? the-struct_67)" +"(let-values(((v_187) rhs-ctx_1))" +"(let-values(((the-struct_66) v_187))" +"(if(expand-context/outer? the-struct_66)" "(let-values(((env169_0)" -"(let-values(((lst_280) ids_24)((lst_119) keys_4))" +"(let-values(((lst_235) ids_24)((lst_236) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_280)))" +"(let-values()(check-list lst_235)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_119)))" -"((letrec-values(((for-loop_62)" -"(lambda(env_3 lst_281 lst_282)" +"(let-values()(check-list lst_236)))" +"((letrec-values(((for-loop_211)" +"(lambda(env_3 lst_237 lst_238)" "(begin" " 'for-loop" -"(if(if(pair? lst_281)" -"(pair? lst_282)" +"(if(if(pair? lst_237)" +"(pair? lst_238)" " #f)" -"(let-values(((id_66)" +"(let-values(((id_50)" "(unsafe-car" -" lst_281))" -"((rest_154)" +" lst_237))" +"((rest_125)" "(unsafe-cdr" -" lst_281))" +" lst_237))" "((key_81)" "(unsafe-car" -" lst_282))" -"((rest_155)" +" lst_238))" +"((rest_126)" "(unsafe-cdr" -" lst_282)))" +" lst_238)))" "(let-values(((env_4)" "(let-values(((env_5)" " env_3))" @@ -39517,41 +39527,41 @@ static const char *startup_source = " env_5" " key_81" "(local-variable1.1" -" id_66)))))" +" id_50)))))" "(values" " env_6)))))" "(if(not #f)" -"(for-loop_62" +"(for-loop_211" " env_4" -" rest_154" -" rest_155)" +" rest_125" +" rest_126)" " env_4)))" " env_3)))))" -" for-loop_62)" +" for-loop_211)" "(expand-context-env rhs-ctx_1)" -" lst_280" -" lst_119))))" -"((inner170_0)(root-expand-context/outer-inner v_188)))" +" lst_235" +" lst_236))))" +"((inner170_0)(root-expand-context/outer-inner v_187)))" "(expand-context/outer1.1" " inner170_0" -"(root-expand-context/outer-post-expansion-scope the-struct_67)" -"(root-expand-context/outer-use-site-scopes the-struct_67)" -"(root-expand-context/outer-frame-id the-struct_67)" -"(expand-context/outer-context the-struct_67)" +"(root-expand-context/outer-post-expansion-scope the-struct_66)" +"(root-expand-context/outer-use-site-scopes the-struct_66)" +"(root-expand-context/outer-frame-id the-struct_66)" +"(expand-context/outer-context the-struct_66)" " env169_0" -"(expand-context/outer-post-expansion-scope-action the-struct_67)" -"(expand-context/outer-scopes the-struct_67)" -"(expand-context/outer-def-ctx-scopes the-struct_67)" -"(expand-context/outer-binding-layer the-struct_67)" -"(expand-context/outer-reference-records the-struct_67)" -"(expand-context/outer-only-immediate? the-struct_67)" -"(expand-context/outer-need-eventually-defined the-struct_67)" -"(expand-context/outer-current-introduction-scopes the-struct_67)" -"(expand-context/outer-name the-struct_67)))" +"(expand-context/outer-post-expansion-scope-action the-struct_66)" +"(expand-context/outer-scopes the-struct_66)" +"(expand-context/outer-def-ctx-scopes the-struct_66)" +"(expand-context/outer-binding-layer the-struct_66)" +"(expand-context/outer-reference-records the-struct_66)" +"(expand-context/outer-only-immediate? the-struct_66)" +"(expand-context/outer-need-eventually-defined the-struct_66)" +"(expand-context/outer-current-introduction-scopes the-struct_66)" +"(expand-context/outer-name the-struct_66)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_67)))))))))))))))))" +" the-struct_66)))))))))))))))))" " lets-loop_0)" " idss+keyss+rhss_0" " ctx_40)))))" @@ -39580,19 +39590,19 @@ static const char *startup_source = "(begin" "(let-values(((srcloc_7)(syntax-srcloc old-s_0)))" "(if srcloc_7" -"(let-values(((the-struct_68) new-s_1))" -"(if(syntax?$1 the-struct_68)" +"(let-values(((the-struct_67) new-s_1))" +"(if(syntax?$1 the-struct_67)" "(let-values(((srcloc171_0) srcloc_7))" "(syntax1.1" -"(syntax-content the-struct_68)" -"(syntax-scopes the-struct_68)" -"(syntax-shifted-multi-scopes the-struct_68)" -"(syntax-scope-propagations+tamper the-struct_68)" -"(syntax-mpi-shifts the-struct_68)" +"(syntax-content the-struct_67)" +"(syntax-scopes the-struct_67)" +"(syntax-shifted-multi-scopes the-struct_67)" +"(syntax-scope-propagations+tamper the-struct_67)" +"(syntax-mpi-shifts the-struct_67)" " srcloc171_0" -"(syntax-props the-struct_68)" -"(syntax-inspector the-struct_68)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_68)))" +"(syntax-props the-struct_67)" +"(syntax-inspector the-struct_67)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_67)))" " new-s_1)))))" "(define-values" "(stop-ids->all-stop-ids)" @@ -39610,17 +39620,17 @@ static const char *startup_source = "(append" " stop-ids_0" "(reverse$1" -"(let-values(((lst_95) auto-stop-syms))" +"(let-values(((lst_96) auto-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_95)))" +"(let-values()(check-list lst_96)))" "((letrec-values(((for-loop_107)" "(lambda(fold-var_85 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((sym_64)(unsafe-car lst_6))((rest_46)(unsafe-cdr lst_6)))" +"(let-values(((sym_65)(unsafe-car lst_6))((rest_46)(unsafe-cdr lst_6)))" "(let-values(((fold-var_86)" "(let-values(((fold-var_87) fold-var_85))" "(let-values(((fold-var_59)" @@ -39629,14 +39639,14 @@ static const char *startup_source = "(let-values()" "(datum->syntax$1" " p-core-stx_0" -" sym_64))" +" sym_65))" " fold-var_87))))" "(values fold-var_59)))))" "(if(not #f)(for-loop_107 fold-var_86 rest_46) fold-var_86)))" " fold-var_85)))))" " for-loop_107)" " null" -" lst_95)))))))))))))" +" lst_96)))))))))))))" "(define-values" "(auto-stop-syms)" " '(begin" @@ -39660,15 +39670,15 @@ static const char *startup_source = "(begin" "(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_109)))" "(reverse$1" -"(let-values(((lst_219) module-stop-syms))" +"(let-values(((lst_220) module-stop-syms))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_219)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_220)))" "((letrec-values(((for-loop_243)" -"(lambda(fold-var_234 lst_283)" +"(lambda(fold-var_234 lst_281)" "(begin" " 'for-loop" -"(if(pair? lst_283)" -"(let-values(((sym_17)(unsafe-car lst_283))((rest_156)(unsafe-cdr lst_283)))" +"(if(pair? lst_281)" +"(let-values(((sym_17)(unsafe-car lst_281))((rest_154)(unsafe-cdr lst_281)))" "(let-values(((fold-var_217)" "(let-values(((fold-var_30) fold-var_234))" "(let-values(((fold-var_218)" @@ -39678,11 +39688,11 @@ static const char *startup_source = "(datum->syntax$1 p-core-stx_1 sym_17))" " fold-var_30))))" "(values fold-var_218)))))" -"(if(not #f)(for-loop_243 fold-var_217 rest_156) fold-var_217)))" +"(if(not #f)(for-loop_243 fold-var_217 rest_154) fold-var_217)))" " fold-var_234)))))" " for-loop_243)" " null" -" lst_219))))))))" +" lst_220))))))))" "(define-values" "(module-stop-syms)" "(append" @@ -39744,9 +39754,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_232)(not parent-ctx_0)))" -"(if or-part_232" -" or-part_232" +"(if(let-values(((or-part_233)(not parent-ctx_0)))" +"(if or-part_233" +" or-part_233" "(1/internal-definition-context? parent-ctx_0)))" "(void)" "(let-values()" @@ -39759,14 +39769,14 @@ static const char *startup_source = "(let-values(((temp42_1) 'syntax-local-make-definition-context))" "(get-current-expand-context17.1 #f #f temp42_1 #t))))" "(let-values(((frame-id_8)" -"(let-values(((or-part_234)(root-expand-context-frame-id ctx_43)))" -"(if or-part_234" -" or-part_234" -"(let-values(((or-part_235)" +"(let-values(((or-part_235)(root-expand-context-frame-id ctx_43)))" +"(if or-part_235" +" or-part_235" +"(let-values(((or-part_236)" "(if parent-ctx_0" "(internal-definition-context-frame-id parent-ctx_0)" " #f)))" -"(if or-part_235 or-part_235(gensym)))))))" +"(if or-part_236 or-part_236(gensym)))))))" "(let-values(((sc_27)(new-scope 'intdef)))" "(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" @@ -39786,7 +39796,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_404 intdef_0)" +"(lambda(ids_25 s_407 intdef_0)" "(begin" " 'syntax-local-bind-syntaxes" "(let-values((()" @@ -39798,9 +39808,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_281)(not s_404)))(if or-part_281 or-part_281(syntax?$1 s_404)))" +"(if(let-values(((or-part_278)(not s_407)))(if or-part_278 or-part_278(syntax?$1 s_407)))" "(void)" -" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_404)))" +" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_407)))" "(values))))" "(let-values((()" "(begin" @@ -39825,18 +39835,18 @@ 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_284) ids_25))" +"(let-values(((lst_282) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_284)))" +"(let-values()(check-list lst_282)))" "((letrec-values(((for-loop_172)" -"(lambda(fold-var_16 lst_181)" +"(lambda(fold-var_16 lst_182)" "(begin" " 'for-loop" -"(if(pair? lst_181)" -"(let-values(((id_68)(unsafe-car lst_181))" -"((rest_157)(unsafe-cdr lst_181)))" +"(if(pair? lst_182)" +"(let-values(((id_68)(unsafe-car lst_182))" +"((rest_155)(unsafe-cdr lst_182)))" "(let-values(((fold-var_224)" "(let-values(((fold-var_235)" " fold-var_16))" @@ -39862,12 +39872,12 @@ static const char *startup_source = " fold-var_235))))" "(values fold-var_236)))))" "(if(not #f)" -"(for-loop_172 fold-var_224 rest_157)" +"(for-loop_172 fold-var_224 rest_155)" " fold-var_224)))" " fold-var_16)))))" " for-loop_172)" " null" -" lst_284))))))" +" lst_282))))))" "(let-values((()" "(begin" "(let-values(((obs_30)(expand-context-observer ctx_44)))" @@ -39878,18 +39888,18 @@ static const char *startup_source = "(values))))" "(let-values(((syms_21)" "(reverse$1" -"(let-values(((lst_183) intdef-ids_0))" +"(let-values(((lst_184) intdef-ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_183)))" +"(let-values()(check-list lst_184)))" "((letrec-values(((for-loop_187)" -"(lambda(fold-var_237 lst_285)" +"(lambda(fold-var_237 lst_283)" "(begin" " 'for-loop" -"(if(pair? lst_285)" -"(let-values(((intdef-id_0)(unsafe-car lst_285))" -"((rest_158)(unsafe-cdr lst_285)))" +"(if(pair? lst_283)" +"(let-values(((intdef-id_0)(unsafe-car lst_283))" +"((rest_156)(unsafe-cdr lst_283)))" "(let-values(((fold-var_238)" "(let-values(((fold-var_239)" " fold-var_237))" @@ -39914,38 +39924,38 @@ static const char *startup_source = " fold-var_239))))" "(values fold-var_158)))))" "(if(not #f)" -"(for-loop_187 fold-var_238 rest_158)" +"(for-loop_187 fold-var_238 rest_156)" " fold-var_238)))" " fold-var_237)))))" " for-loop_187)" " null" -" lst_183))))))" +" lst_184))))))" "(let-values(((vals_5)" -"(if s_404" +"(if s_407" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" "(let-values(((temp53_2) #t))" -"(add-intdef-scopes21.1 #f #f temp53_2 #t s_404 intdef_0))" +"(add-intdef-scopes21.1 #f #f temp53_2 #t s_407 intdef_0))" " ctx_44)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_286) syms_21))" +"(let-values(((lst_284) syms_21))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_286)))" +"(let-values()(check-list lst_284)))" "((letrec-values(((for-loop_35)" -"(lambda(env_7 lst_164)" +"(lambda(env_7 lst_165)" "(begin" " 'for-loop" -"(if(pair? lst_164)" +"(if(pair? lst_165)" "(let-values(((sym_2)" "(unsafe-car" -" lst_164))" -"((rest_159)" +" lst_165))" +"((rest_157)" "(unsafe-cdr" -" lst_164)))" +" lst_165)))" "(let-values(((env_8)" "(let-values(((env_9)" " env_7))" @@ -39960,12 +39970,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_35" " env_8" -" rest_159)" +" rest_157)" " env_8)))" " env_7)))))" " for-loop_35)" " intdef-env_0" -" lst_286)))))" +" lst_284)))))" "(let-values((()" "(begin" "(let-values(((obs_31)" @@ -39981,47 +39991,47 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp54_1)" -"(let-values(((v_189) ctx_44))" -"(let-values(((the-struct_69) v_189))" +"(let-values(((v_188) ctx_44))" +"(let-values(((the-struct_68) v_188))" "(if(expand-context/outer?" -" the-struct_69)" +" the-struct_68)" "(let-values(((env57_0) tmp-env_0)" "((inner58_0)" "(root-expand-context/outer-inner" -" v_189)))" +" v_188)))" "(expand-context/outer1.1" " inner58_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_69)" +" the-struct_68)" "(root-expand-context/outer-use-site-scopes" -" the-struct_69)" +" the-struct_68)" "(root-expand-context/outer-frame-id" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-context" -" the-struct_69)" +" the-struct_68)" " env57_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-scopes" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-def-ctx-scopes" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-binding-layer" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-reference-records" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-only-immediate?" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-need-eventually-defined" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-current-introduction-scopes" -" the-struct_69)" +" the-struct_68)" "(expand-context/outer-name" -" the-struct_69)))" +" the-struct_68)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_69)))))" +" the-struct_68)))))" "((temp55_1) 'expression)" "((intdef56_0) intdef_0))" "(make-local-expand-context37.1" @@ -40037,10 +40047,10 @@ static const char *startup_source = " #f" " temp54_1)))))" "(begin" -"(let-values(((obs_19)(expand-context-observer ctx_44)))" -"(if obs_19" +"(let-values(((obs_32)(expand-context-observer ctx_44)))" +"(if obs_32" "(let-values()" -"(let-values()(call-expand-observe obs_19 'exit-bind)))" +"(let-values()(call-expand-observe obs_32 'exit-bind)))" "(void)))" " vals_6))))))" "(let-values()" @@ -40080,30 +40090,30 @@ static const char *startup_source = " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_135) intdef-ids_0)((lst_287) syms_21)((lst_98) vals_5))" +"(let-values(((lst_136) intdef-ids_0)((lst_285) syms_21)((lst_99) vals_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_135)))" +"(let-values()(check-list lst_136)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_287)))" +"(let-values()(check-list lst_285)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_98)))" +"(let-values()(check-list lst_99)))" "((letrec-values(((for-loop_114)" -"(lambda(fold-var_38 lst_99 lst_14 lst_288)" +"(lambda(fold-var_38 lst_100 lst_14 lst_286)" "(begin" " 'for-loop" -"(if(if(pair? lst_99)" -"(if(pair? lst_14)(pair? lst_288) #f)" +"(if(if(pair? lst_100)" +"(if(pair? lst_14)(pair? lst_286) #f)" " #f)" -"(let-values(((intdef-id_1)(unsafe-car lst_99))" -"((rest_160)(unsafe-cdr lst_99))" -"((sym_65)(unsafe-car lst_14))" -"((rest_161)(unsafe-cdr lst_14))" -"((val_9)(unsafe-car lst_288))" -"((rest_162)(unsafe-cdr lst_288)))" +"(let-values(((intdef-id_1)(unsafe-car lst_100))" +"((rest_158)(unsafe-cdr lst_100))" +"((sym_66)(unsafe-car lst_14))" +"((rest_159)(unsafe-cdr lst_14))" +"((val_9)(unsafe-car lst_286))" +"((rest_160)(unsafe-cdr lst_286)))" "(let-values(((fold-var_242)" "(let-values(((fold-var_243)" " fold-var_38))" @@ -40119,7 +40129,7 @@ static const char *startup_source = " ctx_44)" "(env-mixin2.1" " intdef-id_1" -" sym_65" +" sym_66" " val_9" "(make-weak-hasheq))))" " fold-var_243))))" @@ -40127,20 +40137,20 @@ static const char *startup_source = "(if(not #f)" "(for-loop_114" " fold-var_242" -" rest_160" -" rest_161" -" rest_162)" +" rest_158" +" rest_159" +" rest_160)" " fold-var_242)))" " fold-var_38)))))" " for-loop_114)" " null" -" lst_135" -" lst_287" -" lst_98))))" +" lst_136" +" lst_285" +" lst_99))))" "(unbox env-mixins_0)))" -"(let-values(((obs_32)(expand-context-observer ctx_44)))" -"(if obs_32" -"(let-values()(let-values()(call-expand-observe obs_32 'exit-local-bind)))" +"(let-values(((obs_33)(expand-context-observer ctx_44)))" +"(if obs_33" +"(let-values()(let-values()(call-expand-observe obs_33 'exit-local-bind)))" "(void)))))))))))))))))))" "(define-values" "(1/internal-definition-context-binding-identifiers)" @@ -40156,16 +40166,16 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_1)))" "(reverse$1" -"(let-values(((lst_277)(unbox(internal-definition-context-env-mixins intdef_1))))" +"(let-values(((lst_278)(unbox(internal-definition-context-env-mixins intdef_1))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_277)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_278)))" "((letrec-values(((for-loop_240)" -"(lambda(fold-var_181 lst_278)" +"(lambda(fold-var_181 lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_278)" -"(let-values(((env-mixin_0)(unsafe-car lst_278))" -"((rest_153)(unsafe-cdr lst_278)))" +"(if(pair? lst_279)" +"(let-values(((env-mixin_0)(unsafe-car lst_279))" +"((rest_153)(unsafe-cdr lst_279)))" "(let-values(((fold-var_230)" "(let-values(((fold-var_231) fold-var_181))" "(let-values(((fold-var_232)" @@ -40178,7 +40188,7 @@ static const char *startup_source = " fold-var_181)))))" " for-loop_240)" " null" -" lst_277))))))))" +" lst_278))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce13_0)" @@ -40186,7 +40196,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce13" "(let-values(((intdef_2) intdef11_0))" -"(let-values(((s_405) s12_1))" +"(let-values(((s_408) s12_1))" "(let-values(((mode_12)(if mode10_0 mode9_0 'flip)))" "(let-values()" "(begin" @@ -40197,10 +40207,10 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_2)))" -"(if(syntax?$1 s_405)" +"(if(syntax?$1 s_408)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_405)))" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_408)))" "(let-values(((temp61_1)" "(let-values(((tmp_33) mode_12))" "(if(equal? tmp_33 'add)" @@ -40214,10 +40224,10 @@ static const char *startup_source = " 1/internal-definition-context-introduce" " \"(or/c 'add 'remove 'flip)\"" " mode_12))))))))" -"(add-intdef-scopes21.1 temp61_1 #t #f #f s_405 intdef_2)))))))))))" +"(add-intdef-scopes21.1 temp61_1 #t #f #f s_408 intdef_2)))))))))))" "(case-lambda" -"((intdef_3 s_406)" -"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_406 #f #f)))" +"((intdef_3 s_409)" +"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_409 #f #f)))" "((intdef_4 s_59 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_59 mode9_1 #t)))))" "(define-values" "(1/internal-definition-context-seal)" @@ -40239,8 +40249,8 @@ static const char *startup_source = "(if(identifier? id_8)" "(void)" " (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_8)))" -"(if(let-values(((or-part_282)(1/internal-definition-context? intdef_6)))" -"(if or-part_282 or-part_282(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" +"(if(let-values(((or-part_279)(1/internal-definition-context? intdef_6)))" +"(if or-part_279 or-part_279(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" "(void)" "(let-values()" "(raise-argument-error" @@ -40285,7 +40295,7 @@ static const char *startup_source = "(if(not a_53)(let-values() null)(let-values()(list a_53)))))))" "(begin" " #t" -"((letrec-values(((for-loop_90)" +"((letrec-values(((for-loop_245)" "(lambda(env_12 a_54)" "(begin" " 'for-loop" @@ -40309,14 +40319,14 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_214)" +"(let-values(((or-part_215)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_214" -" or-part_214" +"(if or-part_215" +" or-part_215" "(let-values(((new-env_0)" "(env-extend" "(loop_98" @@ -40338,9 +40348,9 @@ static const char *startup_source = " env_14" " env-mixins_1)))))" "(values env_15)))))" -"(if(not #f)(for-loop_90 env_13(cdr a_54)) env_13)))" +"(if(not #f)(for-loop_245 env_13(cdr a_54)) env_13)))" " env_12)))))" -" for-loop_90)" +" for-loop_245)" " env_11" " x_78))))))" "(define-values" @@ -40348,7 +40358,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_407) s19_0))" +"(let-values(((s_410) 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)))" @@ -40360,32 +40370,32 @@ static const char *startup_source = "(if(not a_55)(let-values() null)(let-values()(list a_55)))))))" "(begin" " #t" -"((letrec-values(((for-loop_245)" -"(lambda(s_408 a_56)" +"((letrec-values(((for-loop_246)" +"(lambda(s_411 a_56)" "(begin" " 'for-loop" "(if(pair? a_56)" "(let-values(((intdef_9)(car a_56)))" -"(let-values(((s_409)" -"(let-values(((s_152) s_408))" -"(if(let-values(((or-part_283) always?_0))" -"(if or-part_283" -" or-part_283" +"(let-values(((s_412)" +"(let-values(((s_152) s_411))" +"(if(let-values(((or-part_280) always?_0))" +"(if or-part_280" +" or-part_280" "(internal-definition-context-add-scope?" " intdef_9)))" "(let-values(((s_90) s_152))" -"(let-values(((s_410)" +"(let-values(((s_413)" "(let-values()" "(action_0" " s_90" "(internal-definition-context-scope" " intdef_9)))))" -"(values s_410)))" +"(values s_413)))" " s_152))))" -"(if(not #f)(for-loop_245 s_409(cdr a_56)) s_409)))" -" s_408)))))" -" for-loop_245)" -" s_407" +"(if(not #f)(for-loop_246 s_412(cdr a_56)) s_412)))" +" s_411)))))" +" for-loop_246)" +" s_410" " x_79)))))))))))" "(define-values" "(make-local-expand-context37.1)" @@ -40411,9 +40421,9 @@ static const char *startup_source = "(let-values(((track-to-be-defined?_0)(if track-to-be-defined?35_0 track-to-be-defined?29_0 #f)))" "(let-values()" "(let-values(((same-kind?_0)" -"(let-values(((or-part_284)(eq? context_9(expand-context-context ctx_45))))" -"(if or-part_284" -" or-part_284" +"(let-values(((or-part_281)(eq? context_9(expand-context-context ctx_45))))" +"(if or-part_281" +" or-part_281" "(if(list? context_9)(list?(expand-context-context ctx_45)) #f)))))" "(let-values(((all-stop-ids_0)" "(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_111) #f)))" @@ -40421,20 +40431,20 @@ 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_190) ctx_45))" -"(let-values(((the-struct_70) v_190))" -"(if(expand-context/outer? the-struct_70)" +"(let-values(((v_189) ctx_45))" +"(let-values(((the-struct_69) v_189))" +"(if(expand-context/outer? the-struct_69)" "(let-values(((context62_0) context_9)" "((env63_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" "((use-site-scopes64_0)" -"(if(let-values(((or-part_274)(eq? context_9 'module)))" -"(if or-part_274" -" or-part_274" -"(let-values(((or-part_285)(eq? context_9 'module-begin)))" -"(if or-part_285 or-part_285(list? context_9)))))" -"(let-values(((or-part_169)" +"(if(let-values(((or-part_282)(eq? context_9 'module)))" +"(if or-part_282" +" or-part_282" +"(let-values(((or-part_283)(eq? context_9 'module-begin)))" +"(if or-part_283 or-part_283(list? context_9)))))" +"(let-values(((or-part_170)" "(root-expand-context-use-site-scopes ctx_45)))" -"(if or-part_169 or-part_169(box null)))" +"(if or-part_170 or-part_170(box null)))" " #f))" "((frame-id65_0)" "(let-values(((x_3)" @@ -40446,7 +40456,7 @@ static const char *startup_source = "(let-values()(list a_57)))))))" "(begin" " #t" -"((letrec-values(((for-loop_246)" +"((letrec-values(((for-loop_247)" "(lambda(frame-id_9 a_58)" "(begin" " 'for-loop" @@ -40471,17 +40481,17 @@ static const char *startup_source = "(let-values()" " 'all)" "(let-values()" -"(let-values(((or-part_286)" +"(let-values(((or-part_275)" " frame-id_11))" -"(if or-part_286" -" or-part_286" +"(if or-part_275" +" or-part_275" " i-frame-id_0))))))))" "(values frame-id_12)))))" "(if(not #f)" -"(for-loop_246 frame-id_10(cdr a_58))" +"(for-loop_247 frame-id_10(cdr a_58))" " frame-id_10)))" " frame-id_9)))))" -" for-loop_246)" +" for-loop_247)" "(root-expand-context-frame-id ctx_45)" " x_3))))" "((post-expansion-scope66_0)" @@ -40509,8 +40519,8 @@ static const char *startup_source = "(let-values() ht_135)" "(if ht_135(let-values()(make-hasheqv))(let-values() #f)))))" "((inner72_0)" -"(let-values(((the-struct_71)(root-expand-context/outer-inner v_190)))" -"(if(expand-context/inner? the-struct_71)" +"(let-values(((the-struct_70)(root-expand-context/outer-inner v_189)))" +"(if(expand-context/inner? the-struct_70)" "(let-values(((to-parsed?75_0)" "(if to-parsed-ok?_0" "(expand-context-to-parsed? ctx_45)" @@ -40520,39 +40530,39 @@ static const char *startup_source = "((stops78_0)" "(free-id-set" " phase_111" -"(let-values(((or-part_287) all-stop-ids_0))" -"(if or-part_287 or-part_287 null)))))" +"(let-values(((or-part_284) all-stop-ids_0))" +"(if or-part_284 or-part_284 null)))))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_71)" -"(root-expand-context/inner-module-scopes the-struct_71)" -"(root-expand-context/inner-top-level-bind-scope the-struct_71)" -"(root-expand-context/inner-all-scopes-stx the-struct_71)" -"(root-expand-context/inner-defined-syms the-struct_71)" -"(root-expand-context/inner-counter the-struct_71)" -"(root-expand-context/inner-lift-key the-struct_71)" +"(root-expand-context/inner-self-mpi the-struct_70)" +"(root-expand-context/inner-module-scopes the-struct_70)" +"(root-expand-context/inner-top-level-bind-scope the-struct_70)" +"(root-expand-context/inner-all-scopes-stx the-struct_70)" +"(root-expand-context/inner-defined-syms the-struct_70)" +"(root-expand-context/inner-counter the-struct_70)" +"(root-expand-context/inner-lift-key the-struct_70)" " to-parsed?75_0" -"(expand-context/inner-phase the-struct_71)" -"(expand-context/inner-namespace the-struct_71)" +"(expand-context/inner-phase the-struct_70)" +"(expand-context/inner-namespace the-struct_70)" " just-once?76_0" -"(expand-context/inner-module-begin-k the-struct_71)" -"(expand-context/inner-allow-unbound? the-struct_71)" +"(expand-context/inner-module-begin-k the-struct_70)" +"(expand-context/inner-allow-unbound? the-struct_70)" " in-local-expand?77_0" " stops78_0" -"(expand-context/inner-declared-submodule-names the-struct_71)" -"(expand-context/inner-lifts the-struct_71)" -"(expand-context/inner-lift-envs the-struct_71)" -"(expand-context/inner-module-lifts the-struct_71)" -"(expand-context/inner-require-lifts the-struct_71)" -"(expand-context/inner-to-module-lifts the-struct_71)" -"(expand-context/inner-requires+provides the-struct_71)" -"(expand-context/inner-observer the-struct_71)" -"(expand-context/inner-for-serializable? the-struct_71)" +"(expand-context/inner-declared-submodule-names the-struct_70)" +"(expand-context/inner-lifts the-struct_70)" +"(expand-context/inner-lift-envs the-struct_70)" +"(expand-context/inner-module-lifts the-struct_70)" +"(expand-context/inner-require-lifts the-struct_70)" +"(expand-context/inner-to-module-lifts the-struct_70)" +"(expand-context/inner-requires+provides the-struct_70)" +"(expand-context/inner-observer the-struct_70)" +"(expand-context/inner-for-serializable? the-struct_70)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_71)))" +" the-struct_70)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_71)))))" +" the-struct_70)))))" "(expand-context/outer1.1" " inner72_0" " post-expansion-scope66_0" @@ -40562,20 +40572,20 @@ static const char *startup_source = " env63_0" " post-expansion-scope-action67_0" " scopes68_0" -"(expand-context/outer-def-ctx-scopes the-struct_70)" -"(expand-context/outer-binding-layer the-struct_70)" -"(expand-context/outer-reference-records the-struct_70)" +"(expand-context/outer-def-ctx-scopes the-struct_69)" +"(expand-context/outer-binding-layer the-struct_69)" +"(expand-context/outer-reference-records the-struct_69)" " only-immediate?69_0" " need-eventually-defined71_0" " current-introduction-scopes70_0" -"(expand-context/outer-name the-struct_70)))" +"(expand-context/outer-name the-struct_69)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_70))))))))))))))))))" +" the-struct_69))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_411 ctx_46)(begin(flip-scopes s_411(expand-context-current-introduction-scopes ctx_46)))))" +"(lambda(s_414 ctx_46)(begin(flip-scopes s_414(expand-context-current-introduction-scopes ctx_46)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" @@ -40614,19 +40624,19 @@ static const char *startup_source = "(expand-context-context ctx_13)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_412)" +"(lambda(s_415)" "(begin" " 'syntax-local-introduce" "(let-values((()" "(begin" -"(if(syntax?$1 s_412)" +"(if(syntax?$1 s_415)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_412)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_415)))" "(values))))" "(let-values(((ctx_49)" "(let-values(((temp67_0) 'syntax-local-introduce))" "(get-current-expand-context17.1 #f #f temp67_0 #t))))" -"(flip-introduction-scopes s_412 ctx_49))))))" +"(flip-introduction-scopes s_415 ctx_49))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" "(lambda(id_3)" @@ -40716,8 +40726,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_173)(syntax?$1 base-s_0)))" -"(if or-part_173 or-part_173(not base-s_0)))" +"(if(let-values(((or-part_174)(syntax?$1 base-s_0)))" +"(if or-part_174 or-part_174(not base-s_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -40738,13 +40748,13 @@ static const char *startup_source = "(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_112)))" "(let-values(((base-scs_0)" "(syntax-scope-set" -"(let-values(((or-part_174) base-s_0))" -"(if or-part_174 or-part_174 empty-syntax))" +"(let-values(((or-part_175) base-s_0))" +"(if or-part_175 or-part_175 empty-syntax))" " phase_112)))" "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" " base-scs_0" -"(let-values(((or-part_175)" +"(let-values(((or-part_176)" "(if(identifier? base-s_0)" "(let-values(((temp78_2) #t))" "(resolve33.1" @@ -40759,7 +40769,7 @@ static const char *startup_source = " base-s_0" " phase_112))" " #f)))" -"(if or-part_175 or-part_175(seteq))))))" +"(if or-part_176 or-part_176(seteq))))))" "(let-values(((delta-scs_0)" "(set->list(set-subtract ext-scs_0 use-base-scs_0))))" "(let-values(((maybe-taint_0)" @@ -40768,19 +40778,19 @@ static const char *startup_source = "(lambda(s81_0 mode79_0 mode80_0)" "(begin" " 'core82" -"(let-values(((s_413) s81_0))" +"(let-values(((s_416) s81_0))" "(let-values(((mode_14)(if mode80_0 mode79_0 'add)))" "(let-values()" "(maybe-taint_0" "(let-values(((tmp_35) mode_14))" "(if(equal? tmp_35 'add)" -"(let-values()(add-scopes s_413 delta-scs_0))" +"(let-values()(add-scopes s_416 delta-scs_0))" "(if(equal? tmp_35 'remove)" "(let-values()" -"(remove-scopes s_413 delta-scs_0))" +"(remove-scopes s_416 delta-scs_0))" "(if(equal? tmp_35 'flip)" "(let-values()" -"(flip-scopes s_413 delta-scs_0))" +"(flip-scopes s_416 delta-scs_0))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -40788,7 +40798,7 @@ static const char *startup_source = " mode_14))))))))))))))" "(case-lambda" "((s_180)(core82_0 s_180 #f #f))" -"((s_400 mode79_1)(core82_0 s_400 mode79_1 #t))))))))))))))))))))" +"((s_417 mode79_1)(core82_0 s_417 mode79_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_1)(make-syntax-delta-introducer9_0 ext-s_2 base-s_2 phase5_1 #t)))))" @@ -40811,16 +40821,16 @@ static const char *startup_source = "(begin" " 'do-syntax-local-value17" "(let-values(((who_15) who13_0))" -"(let-values(((id_74) id14_1))" +"(let-values(((id_60) id14_1))" "(let-values(((intdef_11) intdef15_0))" "(let-values(((failure-thunk_0) failure-thunk16_0))" "(let-values(((immediate?_1) immediate?11_0))" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_74)" +"(if(identifier? id_60)" "(void)" -" (let-values () (raise-argument-error who_15 \"identifier?\" id_74)))" +" (let-values () (raise-argument-error who_15 \"identifier?\" id_60)))" "(values))))" "(let-values((()" "(begin" @@ -40854,8 +40864,8 @@ static const char *startup_source = "(let-values(((ctx_52)" "(if intdef_11" "(let-values(((v_50) current-ctx_0))" -"(let-values(((the-struct_72) v_50))" -"(if(expand-context/outer? the-struct_72)" +"(let-values(((the-struct_71) v_50))" +"(if(expand-context/outer? the-struct_71)" "(let-values(((env85_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" @@ -40863,36 +40873,36 @@ static const char *startup_source = "((inner86_0)(root-expand-context/outer-inner v_50)))" "(expand-context/outer1.1" " inner86_0" -"(root-expand-context/outer-post-expansion-scope the-struct_72)" -"(root-expand-context/outer-use-site-scopes the-struct_72)" -"(root-expand-context/outer-frame-id the-struct_72)" -"(expand-context/outer-context the-struct_72)" +"(root-expand-context/outer-post-expansion-scope the-struct_71)" +"(root-expand-context/outer-use-site-scopes the-struct_71)" +"(root-expand-context/outer-frame-id the-struct_71)" +"(expand-context/outer-context the-struct_71)" " env85_0" -"(expand-context/outer-post-expansion-scope-action the-struct_72)" -"(expand-context/outer-scopes the-struct_72)" -"(expand-context/outer-def-ctx-scopes the-struct_72)" -"(expand-context/outer-binding-layer the-struct_72)" -"(expand-context/outer-reference-records the-struct_72)" -"(expand-context/outer-only-immediate? the-struct_72)" -"(expand-context/outer-need-eventually-defined the-struct_72)" -"(expand-context/outer-current-introduction-scopes the-struct_72)" -"(expand-context/outer-name the-struct_72)))" +"(expand-context/outer-post-expansion-scope-action the-struct_71)" +"(expand-context/outer-scopes the-struct_71)" +"(expand-context/outer-def-ctx-scopes the-struct_71)" +"(expand-context/outer-binding-layer the-struct_71)" +"(expand-context/outer-reference-records the-struct_71)" +"(expand-context/outer-only-immediate? the-struct_71)" +"(expand-context/outer-need-eventually-defined the-struct_71)" +"(expand-context/outer-current-introduction-scopes the-struct_71)" +"(expand-context/outer-name the-struct_71)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_72))))" +" the-struct_71))))" " current-ctx_0)))" "(let-values((()" "(begin" -"(let-values(((obs_33)(expand-context-observer ctx_52)))" -"(if obs_33" +"(let-values(((obs_34)(expand-context-observer ctx_52)))" +"(if obs_34" "(let-values()" -"(let-values()(call-expand-observe obs_33 'local-value id_74)))" +"(let-values()(call-expand-observe obs_34 'local-value id_60)))" "(void)))" "(values))))" "(let-values(((phase_113)(expand-context-phase ctx_52)))" "((letrec-values(((loop_99)" -"(lambda(id_75)" +"(lambda(id_74)" "(begin" " 'loop" "(let-values(((b_54)" @@ -40909,18 +40919,18 @@ static const char *startup_source = " #t" " #f" " #f" -" id_75" +" id_74" " phase_113))" "(resolve+shift/extra-inspector" -" id_75" +" id_74" " phase_113" "(expand-context-namespace ctx_52)))))" "(begin" -"(let-values(((obs_34)(expand-context-observer ctx_52)))" -"(if obs_34" +"(let-values(((obs_35)(expand-context-observer ctx_52)))" +"(if obs_35" "(let-values()" "(let-values()" -"(call-expand-observe obs_34 'resolve id_75)))" +"(call-expand-observe obs_35 'resolve id_74)))" "(void)))" "(if(not b_54)" "(let-values()" @@ -40940,9 +40950,9 @@ static const char *startup_source = "(error" " 'syntax-local-value" " \"unbound identifier: ~v\"" -" id_75))))" +" id_74))))" "(let-values()" -"(let-values(((v_54 primitive?_7 insp_17)" +"(let-values(((v_54 primitive?_7 insp_16 protected?_8)" "(let-values(((temp93_3) #t))" "(lookup17.1" " #f" @@ -40951,18 +40961,18 @@ static const char *startup_source = " #t" " b_54" " ctx_52" -" id_75))))" -"(if(let-values(((or-part_288)(variable? v_54)))" -"(if or-part_288 or-part_288(core-form? v_54)))" +" id_74))))" +"(if(let-values(((or-part_264)(variable? v_54)))" +"(if or-part_264 or-part_264(core-form? v_54)))" "(let-values()" "(begin" -"(let-values(((obs_35)" +"(let-values(((obs_36)" "(expand-context-observer ctx_52)))" -"(if obs_35" +"(if obs_36" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_35" +" obs_36" " 'local-value-result" " #f)))" "(void)))" @@ -40971,12 +40981,12 @@ static const char *startup_source = "(error" " 'syntax-local-value" " \"identifier is not bound to syntax: ~v\"" -" id_75))))" +" id_74))))" "(let-values()" "(begin" -"(let-values(((obs_36)" +"(let-values(((obs_37)" "(expand-context-observer ctx_52)))" -"(if obs_36" +"(if obs_37" "(let-values()" "(if(not" "(if(1/rename-transformer? v_54)" @@ -40984,7 +40994,7 @@ static const char *startup_source = " #f))" "(let-values()" "(call-expand-observe" -" obs_36" +" obs_37" " 'local-value-result" " #t))" "(void)))" @@ -41001,40 +41011,40 @@ static const char *startup_source = "(let-values()(values v_54 #f))" "(let-values() v_54)))))))))))))))" " loop_99)" -"(flip-introduction-scopes id_74 ctx_52))))))))))))))))))" +"(flip-introduction-scopes id_60 ctx_52))))))))))))))))))" "(define-values" "(1/syntax-local-value)" "(let-values(((syntax-local-value25_0)" "(lambda(id24_0 failure-thunk20_0 intdef21_0 failure-thunk22_0 intdef23_0)" "(begin" " 'syntax-local-value25" -"(let-values(((id_76) id24_0))" +"(let-values(((id_75) id24_0))" "(let-values(((failure-thunk_1)(if failure-thunk22_0 failure-thunk20_0 #f)))" "(let-values(((intdef_12)(if intdef23_0 intdef21_0 #f)))" "(let-values()" "(let-values(((temp94_2) 'syntax-local-value)" "((temp95_1) #f)" -"((id96_0) id_76)" +"((id96_0) id_75)" "((intdef97_0) intdef_12)" "((failure-thunk98_0) failure-thunk_1))" "(do-syntax-local-value17.1 temp95_1 temp94_2 id96_0 intdef97_0 failure-thunk98_0))))))))))" "(case-lambda" -"((id_77)(begin 'syntax-local-value(syntax-local-value25_0 id_77 #f #f #f #f)))" -"((id_46 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_46 failure-thunk_2 intdef21_1 #t #t))" -"((id_78 failure-thunk20_1)(syntax-local-value25_0 id_78 failure-thunk20_1 #f #t #f)))))" +"((id_46)(begin 'syntax-local-value(syntax-local-value25_0 id_46 #f #f #f #f)))" +"((id_76 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_76 failure-thunk_2 intdef21_1 #t #t))" +"((id_77 failure-thunk20_1)(syntax-local-value25_0 id_77 failure-thunk20_1 #f #t #f)))))" "(define-values" "(1/syntax-local-value/immediate)" "(let-values(((syntax-local-value/immediate32_0)" "(lambda(id31_1 failure-thunk27_0 intdef28_0 failure-thunk29_0 intdef30_0)" "(begin" " 'syntax-local-value/immediate32" -"(let-values(((id_69) id31_1))" +"(let-values(((id_78) id31_1))" "(let-values(((failure-thunk_3)(if failure-thunk29_0 failure-thunk27_0 #f)))" "(let-values(((intdef_13)(if intdef30_0 intdef28_0 #f)))" "(let-values()" "(let-values(((temp99_1) 'syntax-local-value/immediate)" "((temp100_0) #t)" -"((id101_1) id_69)" +"((id101_1) id_78)" "((intdef102_0) intdef_13)" "((failure-thunk103_0) failure-thunk_3))" "(do-syntax-local-value17.1" @@ -41046,14 +41056,14 @@ static const char *startup_source = "(case-lambda" "((id_79)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_79 #f #f #f #f)))" "((id_80 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_80 failure-thunk_4 intdef28_1 #t #t))" -"((id_47 failure-thunk27_1)(syntax-local-value/immediate32_0 id_47 failure-thunk27_1 #f #t #f)))))" +"((id_81 failure-thunk27_1)(syntax-local-value/immediate32_0 id_81 failure-thunk27_1 #f #t #f)))))" "(define-values" "(do-lift-values-expression)" -"(lambda(who_16 n_30 s_316)" +"(lambda(who_16 n_30 s_33)" "(begin" "(let-values((()" "(begin" -" (if (syntax?$1 s_316) (void) (let-values () (raise-argument-error who_16 \"syntax?\" s_316)))" +" (if (syntax?$1 s_33) (void) (let-values () (raise-argument-error who_16 \"syntax?\" s_33)))" "(values))))" "(let-values((()" "(begin" @@ -41075,15 +41085,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_40 end_29 inc_23)))" -"((letrec-values(((for-loop_240)" -"(lambda(fold-var_181 pos_102)" +"((letrec-values(((for-loop_248)" +"(lambda(fold-var_182 pos_102)" "(begin" " 'for-loop" "(if(< pos_102 end_29)" "(let-values()" -"(let-values(((fold-var_244)" -"(let-values(((fold-var_230) fold-var_181))" -"(let-values(((fold-var_231)" +"(let-values(((fold-var_230)" +"(let-values(((fold-var_231) fold-var_182))" +"(let-values(((fold-var_232)" "(let-values()" "(cons" "(let-values()" @@ -41107,37 +41117,37 @@ static const char *startup_source = " name_63)" "(new-scope" " 'macro)))))" -" fold-var_230))))" -"(values fold-var_231)))))" +" fold-var_231))))" +"(values fold-var_232)))))" "(if(not #f)" -"(for-loop_240 fold-var_244(+ pos_102 inc_23))" -" fold-var_244)))" -" fold-var_181)))))" -" for-loop_240)" +"(for-loop_248 fold-var_230(+ pos_102 inc_23))" +" fold-var_230)))" +" fold-var_182)))))" +" for-loop_248)" " null" " start_40))))))" "(begin" -"(let-values(((obs_37)(expand-context-observer ctx_53)))" -"(if obs_37" -"(let-values()(let-values()(call-expand-observe obs_37 'lift-expr ids_26 s_316)))" +"(let-values(((obs_38)(expand-context-observer ctx_53)))" +"(if obs_38" +"(let-values()(let-values()(call-expand-observe obs_38 'lift-expr ids_26 s_33)))" "(void)))" "(map2" -"(lambda(id_81)(flip-introduction-scopes id_81 ctx_53))" +"(lambda(id_17)(flip-introduction-scopes id_17 ctx_53))" "(add-lifted!" " lifts_8" " ids_26" -"(flip-introduction-scopes s_316 ctx_53)" +"(flip-introduction-scopes s_33 ctx_53)" "(expand-context-phase ctx_53))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" -"(lambda(s_414)" -"(begin 'syntax-local-lift-expression(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_414)))))" +"(lambda(s_418)" +"(begin 'syntax-local-lift-expression(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_418)))))" "(define-values" "(1/syntax-local-lift-values-expression)" -"(lambda(n_31 s_415)" +"(lambda(n_31 s_419)" "(begin" " 'syntax-local-lift-values-expression" -"(do-lift-values-expression 'syntax-local-lift-values-expression n_31 s_415))))" +"(do-lift-values-expression 'syntax-local-lift-values-expression n_31 s_419))))" "(define-values" "(1/syntax-local-lift-context)" "(lambda()" @@ -41149,39 +41159,39 @@ static const char *startup_source = "(root-expand-context-lift-key ctx_54)))))" "(define-values" "(1/syntax-local-lift-module)" -"(lambda(s_58)" +"(lambda(s_420)" "(begin" " 'syntax-local-lift-module" "(let-values((()" "(begin" -"(if(syntax?$1 s_58)" +"(if(syntax?$1 s_420)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_58)))" +" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_420)))" "(values))))" "(let-values(((ctx_55)" "(let-values(((temp106_1) 'syntax-local-lift-module))" "(get-current-expand-context17.1 #f #f temp106_1 #t))))" "(let-values(((phase_114)(expand-context-phase ctx_55)))" "(begin" -"(let-values(((tmp_36)(core-form-sym s_58 phase_114)))" +"(let-values(((tmp_36)(core-form-sym s_420 phase_114)))" "(if(if(equal? tmp_36 'module) #t(equal? tmp_36 'module*))" "(let-values()" -"(let-values(((lifts_0)(expand-context-module-lifts ctx_55)))" +"(let-values(((lifts_9)(expand-context-module-lifts ctx_55)))" "(begin" -"(if lifts_0" +"(if lifts_9" "(void)" "(let-values()" "(raise-arguments-error" " 'syntax-local-lift-module" " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" -" s_58)))" -"(add-lifted-module! lifts_0(flip-introduction-scopes s_58 ctx_55) phase_114))))" +" s_420)))" +"(add-lifted-module! lifts_9(flip-introduction-scopes s_420 ctx_55) phase_114))))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_58))))" -"(let-values(((obs_38)(expand-context-observer ctx_55)))" -"(if obs_38" -"(let-values()(let-values()(call-expand-observe obs_38 'lift-statement s_58)))" +" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_420))))" +"(let-values(((obs_39)(expand-context-observer ctx_55)))" +"(if obs_39" +"(let-values()(let-values()(call-expand-observe obs_39 'lift-statement s_420)))" "(void))))))))))" "(define-values" "(do-local-lift-to-module54.1)" @@ -41204,7 +41214,7 @@ static const char *startup_source = "(begin" " 'do-local-lift-to-module54" "(let-values(((who_17) who52_0))" -"(let-values(((s_322) s53_1))" +"(let-values(((s_38) 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)))" @@ -41214,21 +41224,21 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_416 phase_115 lift-ctx_1)(begin 'pre-wrap s_416)))))" +"(lambda(s_200 phase_115 lift-ctx_1)(begin 'pre-wrap s_200)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" -"(lambda(s_201 phase_116 lift-ctx_2)(begin 'shift-wrap s_201)))))" +"(lambda(s_202 phase_116 lift-ctx_2)(begin 'shift-wrap s_202)))))" "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" -"(lambda(s_417 phase_117 lift-ctx_3)(begin 'post-wrap s_417)))))" +"(lambda(s_421 phase_117 lift-ctx_3)(begin 'post-wrap s_421)))))" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_322)" +"(if(syntax?$1 s_38)" "(void)" -" (let-values () (raise-argument-error who_17 \"syntax?\" s_322)))" +" (let-values () (raise-argument-error who_17 \"syntax?\" s_38)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" "(let-values(((ctx_56)" @@ -41244,12 +41254,12 @@ static const char *startup_source = " who_17" " no-target-msg_0" " \"form to lift\"" -" s_322)))" +" s_38)))" "(values))))" "(let-values(((phase_118)(expand-context-phase ctx_56)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" -"(if intro?_0(flip-introduction-scopes s_322 ctx_56) s_322)))" +"(if intro?_0(flip-introduction-scopes s_38 ctx_56) s_38)))" "(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_118 lift-ctx_4)))" "(let-values(((shift-s_0)" "(let-values(((start_41) phase_118)" @@ -41261,32 +41271,32 @@ static const char *startup_source = "(void)" "(let-values()" "(check-range start_41 end_30 inc_24)))" -"((letrec-values(((for-loop_247)" -"(lambda(s_91 pos_103)" +"((letrec-values(((for-loop_249)" +"(lambda(s_422 pos_103)" "(begin" " 'for-loop" "(if(> pos_103 end_30)" "(let-values(((phase_119)" " pos_103))" -"(let-values(((s_39)" -"(let-values(((s_418)" -" s_91))" +"(let-values(((s_423)" "(let-values(((s_206)" +" s_422))" +"(let-values(((s_207)" "(let-values()" "(shift-wrap_0" -" s_418" +" s_206" "(sub1" " phase_119)" " lift-ctx_4))))" "(values" -" s_206)))))" +" s_207)))))" "(if(not #f)" -"(for-loop_247" -" s_39" +"(for-loop_249" +" s_423" "(+ pos_103 inc_24))" -" s_39)))" -" s_91)))))" -" for-loop_247)" +" s_423)))" +" s_422)))))" +" for-loop_249)" " pre-s_0" " start_41)))))" "(let-values(((post-s_1)" @@ -41296,13 +41306,13 @@ static const char *startup_source = "(values ctx_56 post-s_1))))))))))))))))))))))))))))" "(define-values" "(1/syntax-local-lift-require)" -"(lambda(s_325 use-s_1)" +"(lambda(s_424 use-s_1)" "(begin" " 'syntax-local-lift-require" "(let-values(((sc_29)(new-scope 'macro)))" "(let-values(((ctx_57 added-s_1)" "(let-values(((temp108_0) 'syntax-local-lift-require)" -"((temp109_0)(datum->syntax$1 #f s_325))" +"((temp109_0)(datum->syntax$1 #f s_424))" " ((temp110_1) \"could not find target context\")" "((temp111_1) #f)" "((temp112_0)" @@ -41315,10 +41325,10 @@ static const char *startup_source = "((require-lift-context-wrt-phase114_0) require-lift-context-wrt-phase)" "((add-lifted-require!115_0) add-lifted-require!)" "((temp116_0)" -"(lambda(s_211 phase_120 require-lift-ctx_0)(require-spec-shift-for-syntax s_211)))" +"(lambda(s_110 phase_120 require-lift-ctx_0)(require-spec-shift-for-syntax s_110)))" "((temp117_1)" -"(lambda(s_419 phase_121 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_419 sc_29) phase_121))))" +"(lambda(s_212 phase_121 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_212 sc_29) phase_121))))" "(do-local-lift-to-module54.1" " add-lifted-require!115_0" " expand-context-require-lifts113_0" @@ -41344,29 +41354,29 @@ static const char *startup_source = "(values))))" "(let-values(((result-s_6)(add-scope use-s_1 sc_29)))" "(begin" -"(let-values(((obs_27)(expand-context-observer ctx_57)))" -"(if obs_27" +"(let-values(((obs_40)(expand-context-observer ctx_57)))" +"(if obs_40" "(let-values()" -"(let-values()(call-expand-observe obs_27 'lift-require added-s_1 use-s_1 result-s_6)))" +"(let-values()(call-expand-observe obs_40 'lift-require added-s_1 use-s_1 result-s_6)))" "(void)))" " result-s_6))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_420)" +"(lambda(s_396)" "(begin" " 'syntax-local-lift-provide" -"(let-values(((ctx_3 result-s_7)" +"(let-values(((ctx_58 result-s_7)" "(let-values(((temp118_1) 'syntax-local-lift-provide)" -"((s119_0) s_420)" +"((s119_0) s_396)" " ((temp120_0) \"not expanding in a module run-time body\")" "((expand-context-to-module-lifts121_0) expand-context-to-module-lifts)" "((to-module-lift-context-wrt-phase122_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!123_0) add-lifted-to-module-provide!)" "((temp124_1)" -"(lambda(s_421 phase_122 to-module-lift-ctx_0)(wrap-form 'for-syntax s_421 #f)))" +"(lambda(s_425 phase_122 to-module-lift-ctx_0)(wrap-form 'for-syntax s_425 #f)))" "((temp125_0)" -"(lambda(s_114 phase_123 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_114 phase_123))))" +"(lambda(s_115 phase_123 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_115 phase_123))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-provide!123_0" " expand-context-to-module-lifts121_0" @@ -41384,28 +41394,28 @@ static const char *startup_source = " #t" " temp118_1" " s119_0))))" -"(let-values(((obs_39)(expand-context-observer ctx_3)))" -"(if obs_39(let-values()(let-values()(call-expand-observe obs_39 'lift-provide result-s_7)))(void)))))))" +"(let-values(((obs_41)(expand-context-observer ctx_58)))" +"(if obs_41(let-values()(let-values()(call-expand-observe obs_41 'lift-provide result-s_7)))(void)))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" -"(lambda(s_215)" +"(lambda(s_426)" "(begin" " 'syntax-local-lift-module-end-declaration" -"(let-values(((ctx_58 also-s_0)" +"(let-values(((ctx_59 also-s_0)" "(let-values(((temp126_1) 'syntax-local-lift-module-end-declaration)" -"((s127_0) s_215)" +"((s127_0) s_426)" " ((temp128_1) \"not currently transforming an expression within a module declaration\")" "((expand-context-to-module-lifts129_0) expand-context-to-module-lifts)" "((temp130_0)(lambda(lift-ctx_5) 0))" "((add-lifted-to-module-end!131_0) add-lifted-to-module-end!)" "((temp132_0)" -"(lambda(orig-s_0 phase_124 to-module-lift-ctx_2)" +"(lambda(orig-s_33 phase_124 to-module-lift-ctx_2)" "(if(to-module-lift-context-end-as-expressions? to-module-lift-ctx_2)" -"(wrap-form '#%expression orig-s_0 phase_124)" -" orig-s_0)))" +"(wrap-form '#%expression orig-s_33 phase_124)" +" orig-s_33)))" "((temp133_0)" -"(lambda(s_221 phase_125 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_221 phase_125))))" +"(lambda(s_222 phase_51 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_222 phase_51))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-end!131_0" " expand-context-to-module-lifts129_0" @@ -41423,15 +41433,15 @@ static const char *startup_source = " #t" " temp126_1" " s127_0))))" -"(let-values(((obs_40)(expand-context-observer ctx_58)))" -"(if obs_40(let-values()(let-values()(call-expand-observe obs_40 'lift-statement s_215)))(void)))))))" +"(let-values(((obs_42)(expand-context-observer ctx_59)))" +"(if obs_42(let-values()(let-values()(call-expand-observe obs_42 'lift-statement s_426)))(void)))))))" "(define-values" "(wrap-form)" -"(lambda(sym_66 s_120 phase_126)" +"(lambda(sym_67 s_427 phase_125)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_126(syntax-shift-phase-level$1 core-stx phase_126) #f) sym_66) s_120)))))" +"(list(datum->syntax$1(if phase_125(syntax-shift-phase-level$1 core-stx phase_125) #f) sym_67) s_427)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -41446,10 +41456,10 @@ static const char *startup_source = " 'syntax-local-module-defined-identifiers" " \"not currently transforming module provides\")))" "(values))))" -"(let-values(((ctx_59)" +"(let-values(((ctx_60)" "(let-values(((temp134_0) 'syntax-local-module-defined-identifiers))" "(get-current-expand-context17.1 #f #f temp134_0 #t))))" -"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_59))))))))" +"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_60))))))))" "(define-values" "(1/syntax-local-module-required-identifiers)" "(lambda(mod-path_8 phase-level_21)" @@ -41457,8 +41467,8 @@ static const char *startup_source = " 'syntax-local-module-required-identifiers" "(let-values((()" "(begin" -"(if(let-values(((or-part_185)(not mod-path_8)))" -"(if or-part_185 or-part_185(1/module-path? mod-path_8)))" +"(if(let-values(((or-part_285)(not mod-path_8)))" +"(if or-part_285 or-part_285(1/module-path? mod-path_8)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41468,8 +41478,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_289)(eq? phase-level_21 #t)))" -"(if or-part_289 or-part_289(phase? phase-level_21)))" +"(if(let-values(((or-part_114)(eq? phase-level_21 #t)))" +"(if or-part_114 or-part_114(phase? phase-level_21)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41486,11 +41496,11 @@ static const char *startup_source = " 'syntax-local-module-required-identifiers" " \"not currently transforming module provides\")))" "(values))))" -"(let-values(((ctx_60)" +"(let-values(((ctx_46)" "(let-values(((temp135_0) 'syntax-local-module-required-identifiers))" "(get-current-expand-context17.1 #f #f temp135_0 #t))))" -"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_60)))" -"(let-values(((mpi_44)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_60) #f)))" +"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_46)))" +"(let-values(((mpi_44)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_46) #f)))" "(let-values(((requireds_0)" "(extract-all-module-requires" " requires+provides_5" @@ -41503,27 +41513,27 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_136)))" -"((letrec-values(((for-loop_248)" -"(lambda(fold-var_245 i_166)" +"((letrec-values(((for-loop_250)" +"(lambda(fold-var_244 i_166)" "(begin" " 'for-loop" "(if i_166" -"(let-values(((phase_127 ids_7)" +"(let-values(((phase_126 ids_27)" "(hash-iterate-key+value ht_136 i_166)))" -"(let-values(((fold-var_246)" -"(let-values(((fold-var_247) fold-var_245))" -"(let-values(((fold-var_248)" +"(let-values(((fold-var_245)" +"(let-values(((fold-var_246) fold-var_244))" +"(let-values(((fold-var_247)" "(let-values()" "(cons" "(let-values()" -"(cons phase_127 ids_7))" -" fold-var_247))))" -"(values fold-var_248)))))" +"(cons phase_126 ids_27))" +" fold-var_246))))" +"(values fold-var_247)))))" "(if(not #f)" -"(for-loop_248 fold-var_246(hash-iterate-next ht_136 i_166))" -" fold-var_246)))" -" fold-var_245)))))" -" for-loop_248)" +"(for-loop_250 fold-var_245(hash-iterate-next ht_136 i_166))" +" fold-var_245)))" +" fold-var_244)))))" +" for-loop_250)" " null" "(hash-iterate-first ht_136)))))" " #f)))))))))))" @@ -41531,30 +41541,30 @@ static const char *startup_source = "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_112) requireds_1))" +"(let-values(((lst_287) requireds_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_112)))" -"((letrec-values(((for-loop_249)" -"(lambda(ht_137 lst_289)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_287)))" +"((letrec-values(((for-loop_251)" +"(lambda(ht_86 lst_288)" "(begin" " 'for-loop" -"(if(pair? lst_289)" -"(let-values(((r_43)(unsafe-car lst_289))((rest_163)(unsafe-cdr lst_289)))" -"(let-values(((ht_138)" -"(let-values(((ht_139) ht_137))" -"(let-values(((ht_140)" +"(if(pair? lst_288)" +"(let-values(((r_43)(unsafe-car lst_288))((rest_161)(unsafe-cdr lst_288)))" +"(let-values(((ht_137)" +"(let-values(((ht_138) ht_86))" +"(let-values(((ht_139)" "(let-values()" "(hash-update" -" ht_139" +" ht_138" "(required-phase r_43)" "(lambda(l_71)(cons(required-id r_43) l_71))" " null))))" -"(values ht_140)))))" -"(if(not #f)(for-loop_249 ht_138 rest_163) ht_138)))" -" ht_137)))))" -" for-loop_249)" +"(values ht_139)))))" +"(if(not #f)(for-loop_251 ht_137 rest_161) ht_137)))" +" ht_86)))))" +" for-loop_251)" "(hasheqv)" -" lst_112))))))" +" lst_287))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" @@ -41562,9 +41572,9 @@ static const char *startup_source = " 'syntax-local-module-exports" "(let-values((()" "(begin" -"(if(let-values(((or-part_290)(1/module-path? mod-path_9)))" -"(if or-part_290" -" or-part_290" +"(if(let-values(((or-part_286)(1/module-path? mod-path_9)))" +"(if or-part_286" +" or-part_286" "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))" "(void)" "(let-values()" @@ -41587,81 +41597,81 @@ static const char *startup_source = "(if(syntax?$1 mod-path_9)(syntax->datum$1 mod-path_9) mod-path_9)" " ctx_61)" " #t)))" -"(let-values(((m_19)(namespace->module ns_74 mod-name_18)))" +"(let-values(((m_2)(namespace->module ns_74 mod-name_18)))" "(begin" -"(if m_19(void)(let-values()(raise-unknown-module-error 'syntax-local-module-exports mod-name_18)))" +"(if m_2(void)(let-values()(raise-unknown-module-error 'syntax-local-module-exports mod-name_18)))" "(reverse$1" -"(let-values(((ht_141)(module-provides m_19)))" +"(let-values(((ht_140)(module-provides m_2)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_141)))" -"((letrec-values(((for-loop_198)" -"(lambda(fold-var_199 i_167)" +"(let-values()(check-in-hash ht_140)))" +"((letrec-values(((for-loop_252)" +"(lambda(fold-var_248 i_167)" "(begin" " 'for-loop" "(if i_167" -"(let-values(((phase_128 syms_22)(hash-iterate-key+value ht_141 i_167)))" +"(let-values(((phase_127 syms_22)(hash-iterate-key+value ht_140 i_167)))" "(let-values(((fold-var_249)" -"(let-values(((fold-var_250) fold-var_199))" +"(let-values(((fold-var_250) fold-var_248))" "(let-values(((fold-var_251)" "(let-values()" "(cons" "(let-values()" "(cons" -" phase_128" +" phase_127" "(reverse$1" -"(let-values(((ht_142) syms_22))" +"(let-values(((ht_141) syms_22))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash-keys" -" ht_142)))" -"((letrec-values(((for-loop_250)" -"(lambda(fold-var_252" +" ht_141)))" +"((letrec-values(((for-loop_253)" +"(lambda(fold-var_200" " i_168)" "(begin" " 'for-loop" "(if i_168" -"(let-values(((sym_67)" +"(let-values(((sym_68)" "(hash-iterate-key" -" ht_142" +" ht_141" " i_168)))" -"(let-values(((fold-var_202)" +"(let-values(((fold-var_252)" "(let-values(((fold-var_253)" -" fold-var_252))" +" fold-var_200))" "(let-values(((fold-var_254)" "(let-values()" "(cons" "(let-values()" -" sym_67)" +" sym_68)" " fold-var_253))))" "(values" " fold-var_254)))))" "(if(not" " #f)" -"(for-loop_250" -" fold-var_202" +"(for-loop_253" +" fold-var_252" "(hash-iterate-next" -" ht_142" +" ht_141" " i_168))" -" fold-var_202)))" -" fold-var_252)))))" -" for-loop_250)" +" fold-var_252)))" +" fold-var_200)))))" +" for-loop_253)" " null" "(hash-iterate-first" -" ht_142)))))))" +" ht_141)))))))" " fold-var_250))))" "(values fold-var_251)))))" "(if(not #f)" -"(for-loop_198 fold-var_249(hash-iterate-next ht_141 i_167))" +"(for-loop_252 fold-var_249(hash-iterate-next ht_140 i_167))" " fold-var_249)))" -" fold-var_199)))))" -" for-loop_198)" +" fold-var_248)))))" +" for-loop_252)" " null" -"(hash-iterate-first ht_141))))))))))))))" +"(hash-iterate-first ht_140))))))))))))))" "(define-values" "(1/syntax-local-submodules)" "(lambda()" @@ -41672,35 +41682,35 @@ static const char *startup_source = "(get-current-expand-context17.1 #f #f temp137_1 #t))))" "(let-values(((submods_3)(expand-context-declared-submodule-names ctx_62)))" "(reverse$1" -"(let-values(((ht_143) submods_3))" +"(let-values(((ht_142) submods_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_143)))" -"((letrec-values(((for-loop_251)" -"(lambda(fold-var_255 i_169)" +"(let-values()(check-in-hash ht_142)))" +"((letrec-values(((for-loop_134)" +"(lambda(fold-var_255 i_113)" "(begin" " 'for-loop" -"(if i_169" -"(let-values(((name_64 kind_8)(hash-iterate-key+value ht_143 i_169)))" +"(if i_113" +"(let-values(((name_64 kind_8)(hash-iterate-key+value ht_142 i_113)))" "(let-values(((fold-var_256)" -"(let-values(((fold-var_257) fold-var_255))" +"(let-values(((fold-var_204) fold-var_255))" "(if(eq? kind_8 'module)" -"(let-values(((fold-var_204) fold-var_257))" -"(let-values(((fold-var_205)" +"(let-values(((fold-var_205) fold-var_204))" +"(let-values(((fold-var_206)" "(let-values()" "(cons" "(let-values() name_64)" +" fold-var_205))))" +"(values fold-var_206)))" " fold-var_204))))" -"(values fold-var_205)))" -" fold-var_257))))" "(if(not #f)" -"(for-loop_251 fold-var_256(hash-iterate-next ht_143 i_169))" +"(for-loop_134 fold-var_256(hash-iterate-next ht_142 i_113))" " fold-var_256)))" " fold-var_255)))))" -" for-loop_251)" +" for-loop_134)" " null" -"(hash-iterate-first ht_143))))))))))" +"(hash-iterate-first ht_142))))))))))" "(define-values" "(1/syntax-local-get-shadower)" "(let-values(((syntax-local-get-shadower60_0)" @@ -41750,8 +41760,8 @@ static const char *startup_source = "(srcloc-vector?)" "(lambda(v_71)" "(begin" -"(if(let-values(((or-part_291)(not(vector-ref v_71 1))))" -"(if or-part_291 or-part_291(exact-positive-integer?(vector-ref v_71 1))))" +"(if(let-values(((or-part_287)(not(vector-ref v_71 1))))" +"(if or-part_287 or-part_287(exact-positive-integer?(vector-ref v_71 1))))" "(if(let-values(((or-part_33)(not(vector-ref v_71 2))))" "(if or-part_33 or-part_33(exact-nonnegative-integer?(vector-ref v_71 2))))" "(if(let-values(((or-part_10)(not(vector-ref v_71 3))))" @@ -41763,36 +41773,36 @@ static const char *startup_source = " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_191)" +"(lambda(v_190)" "(begin" -"(if(srcloc? v_191)" +"(if(srcloc? v_190)" "(let-values()" -"(let-values(((the-struct_73) empty-syntax))" -"(if(syntax?$1 the-struct_73)" -"(let-values(((srcloc1_2) v_191))" +"(let-values(((the-struct_72) empty-syntax))" +"(if(syntax?$1 the-struct_72)" +"(let-values(((srcloc1_2) v_190))" "(syntax1.1" -"(syntax-content the-struct_73)" -"(syntax-scopes the-struct_73)" -"(syntax-shifted-multi-scopes the-struct_73)" -"(syntax-scope-propagations+tamper the-struct_73)" -"(syntax-mpi-shifts the-struct_73)" +"(syntax-content the-struct_72)" +"(syntax-scopes the-struct_72)" +"(syntax-shifted-multi-scopes the-struct_72)" +"(syntax-scope-propagations+tamper the-struct_72)" +"(syntax-mpi-shifts the-struct_72)" " srcloc1_2" -"(syntax-props the-struct_73)" -"(syntax-inspector the-struct_73)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_73))))" -"(if(pair? v_191)" -"(let-values()(to-srcloc-stx(list->vector v_191)))" -"(if(vector? v_191)" +"(syntax-props the-struct_72)" +"(syntax-inspector the-struct_72)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_72))))" +"(if(pair? v_190)" +"(let-values()(to-srcloc-stx(list->vector v_190)))" +"(if(vector? v_190)" "(let-values()" "(let-values(((the-struct_29) empty-syntax))" "(if(syntax?$1 the-struct_29)" "(let-values(((srcloc2_1)" "(srcloc" -"(vector-ref v_191 0)" -"(vector-ref v_191 1)" -"(vector-ref v_191 2)" -"(vector-ref v_191 3)" -"(vector-ref v_191 4))))" +"(vector-ref v_190 0)" +"(vector-ref v_190 1)" +"(vector-ref v_190 2)" +"(vector-ref v_190 3)" +"(vector-ref v_190 4))))" "(syntax1.1" "(syntax-content the-struct_29)" "(syntax-scopes the-struct_29)" @@ -41803,7 +41813,7 @@ static const char *startup_source = "(syntax-props the-struct_29)" "(syntax-inspector the-struct_29)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_29))))" -"(let-values() v_191)))))))" +"(let-values() v_190)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -41828,7 +41838,7 @@ static const char *startup_source = "(begin" " 'datum->syntax9" "(let-values(((stx-c_4) stx-c7_0))" -"(let-values(((s_422) s8_0))" +"(let-values(((s_428) 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()" @@ -41838,9 +41848,9 @@ static const char *startup_source = "(if or-part_6 or-part_6(syntax?$1 stx-c_4)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))" -"(if(let-values(((or-part_292)(not stx-l_2)))" -"(if or-part_292" -" or-part_292" +"(if(let-values(((or-part_288)(not stx-l_2)))" +"(if or-part_288" +" or-part_288" "(let-values(((or-part_34)(syntax?$1 stx-l_2)))" "(if or-part_34 or-part_34(encoded-srcloc? stx-l_2)))))" "(void)" @@ -41860,11 +41870,11 @@ static const char *startup_source = " \" (or/c exact-positive-integer? #f)\\n\"" " \" (or/c exact-nonnegative-integer? #f)))\")" " stx-l_2)))" -"(if(let-values(((or-part_293)(not stx-p_1)))" -"(if or-part_293 or-part_293(syntax?$1 stx-p_1)))" +"(if(let-values(((or-part_289)(not stx-p_1)))" +"(if or-part_289 or-part_289(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_422(to-srcloc-stx stx-l_2) stx-p_1))))))))))))" +"(datum->syntax$1 stx-c_4 s_428(to-srcloc-stx stx-l_2) stx-p_1))))))))))))" "(case-lambda" "((stx-c_5 s_71)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_71 #f #f #f #f #f #f)))" "((stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" @@ -41872,20 +41882,20 @@ static const char *startup_source = "((stx-c_8 s_41 stx-l1_1)(datum->syntax9_0 stx-c_8 s_41 stx-l1_1 #f #f #t #f #f)))))" "(define-values" "(1/syntax->list)" -"(lambda(s_423)" +"(lambda(s_429)" "(begin" " 'syntax->list" "(begin" -" (if (syntax?$1 s_423) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_423)))" -"(syntax->list$1 s_423)))))" +" (if (syntax?$1 s_429) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_429)))" +"(syntax->list$1 s_429)))))" "(define-values" "(1/syntax-original?)" -"(lambda(s_424)" +"(lambda(s_430)" "(begin" " 'syntax-original?" "(begin" -" (if (syntax?$1 s_424) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_424)))" -"(if(syntax-property$1 s_424 original-property-sym)(not(syntax-any-macro-scopes? s_424)) #f)))))" +" (if (syntax?$1 s_430) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_430)))" +"(if(syntax-property$1 s_430 original-property-sym)(not(syntax-any-macro-scopes? s_430)) #f)))))" "(define-values" "(1/bound-identifier=?)" "(let-values(((bound-identifier=?15_0)" @@ -41894,7 +41904,7 @@ static const char *startup_source = " 'bound-identifier=?15" "(let-values(((a_59) a13_0))" "(let-values(((b_48) b14_1))" -"(let-values(((phase_129)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" +"(let-values(((phase_128)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" "(let-values()" "(begin" "(if(identifier? a_59)" @@ -41903,10 +41913,10 @@ static const char *startup_source = "(if(identifier? b_48)" "(void)" " (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_48)))" -"(if(phase? phase_129)" +"(if(phase? phase_128)" "(void)" -"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_129)))" -"(bound-identifier=?$1 a_59 b_48 phase_129))))))))))" +"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_128)))" +"(bound-identifier=?$1 a_59 b_48 phase_128))))))))))" "(case-lambda" "((a_60 b_81)(begin 'bound-identifier=?(bound-identifier=?15_0 a_60 b_81 #f #f)))" "((a_61 b_82 phase11_1)(bound-identifier=?15_0 a_61 b_82 phase11_1 #t)))))" @@ -41956,8 +41966,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_86)))" "(values))))" -"(let-values(((phase_130)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_66 b_86 phase_130 phase_130)))))))" +"(let-values(((phase_129)(add1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_66 b_86 phase_129 phase_129)))))))" "(define-values" "(1/free-template-identifier=?)" "(lambda(a_67 b_87)" @@ -41975,8 +41985,8 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_87)))" "(values))))" -"(let-values(((phase_131)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_67 b_87 phase_131 phase_131)))))))" +"(let-values(((phase_130)(sub1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_67 b_87 phase_130 phase_130)))))))" "(define-values" "(1/free-label-identifier=?)" "(lambda(a_68 b_88)" @@ -42010,7 +42020,7 @@ static const char *startup_source = "(identifier-binding$1 id_85 phase_87 top-level-symbol?_1))))))))))" "(case-lambda" "((id_86)(begin 'identifier-binding(identifier-binding30_0 id_86 #f #f #f #f)))" -"((id_87 phase_132 top-level-symbol?26_1)(identifier-binding30_0 id_87 phase_132 top-level-symbol?26_1 #t #t))" +"((id_87 phase_131 top-level-symbol?26_1)(identifier-binding30_0 id_87 phase_131 top-level-symbol?26_1 #t #t))" "((id_88 phase25_2)(identifier-binding30_0 id_88 phase25_2 #f #t #f)))))" "(define-values" "(1/identifier-transformer-binding)" @@ -42057,19 +42067,19 @@ static const char *startup_source = "(begin" " 'identifier-binding-symbol40" "(let-values(((id_93) id39_0))" -"(let-values(((phase_133)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" +"(let-values(((phase_132)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" "(let-values()" "(begin" "(if(identifier? id_93)" "(void)" " (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_93)))" -"(if(phase? phase_133)" +"(if(phase? phase_132)" "(void)" -"(let-values()(raise-argument-error 'identifier-binding-symbol phase?-string phase_133)))" -"(identifier-binding-symbol$1 id_93 phase_133)))))))))" +"(let-values()(raise-argument-error 'identifier-binding-symbol phase?-string phase_132)))" +"(identifier-binding-symbol$1 id_93 phase_132)))))))))" "(case-lambda" "((id_94)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_94 #f #f)))" -"((id_75 phase37_3)(identifier-binding-symbol40_0 id_75 phase37_3 #t)))))" +"((id_74 phase37_3)(identifier-binding-symbol40_0 id_74 phase37_3 #t)))))" "(define-values" "(1/identifier-prune-lexical-context)" "(let-values(((identifier-prune-lexical-context45_0)" @@ -42112,7 +42122,7 @@ static const char *startup_source = "(syntax-debug-info$1 s_398 phase_12 all-bindings?_1))))))))))" "(case-lambda" "((s_309)(begin 'syntax-debug-info(syntax-debug-info52_0 s_309 #f #f #f #f)))" -"((s_27 phase_134 all-bindings?48_1)(syntax-debug-info52_0 s_27 phase_134 all-bindings?48_1 #t #t))" +"((s_27 phase_133 all-bindings?48_1)(syntax-debug-info52_0 s_27 phase_133 all-bindings?48_1 #t #t))" "((s_30 phase47_3)(syntax-debug-info52_0 s_30 phase47_3 #f #t #f)))))" "(define-values" "(1/syntax-shift-phase-level)" @@ -42148,17 +42158,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_96)))" "(values))))" -"(let-values(((s_425)(syntax-track-origin$1 new-stx_8 old-stx_4 id_96)))" +"(let-values(((s_431)(syntax-track-origin$1 new-stx_8 old-stx_4 id_96)))" "(let-values(((ctx_64)(let-values(((temp54_2) #t))(get-current-expand-context17.1 temp54_2 #t #f #f))))" "(begin" "(if ctx_64" "(let-values()" -"(let-values(((obs_15)(expand-context-observer ctx_64)))" -"(if obs_15" -"(let-values()(let-values()(call-expand-observe obs_15 'track-origin new-stx_8 s_425)))" +"(let-values(((obs_43)(expand-context-observer ctx_64)))" +"(if obs_43" +"(let-values()(let-values()(call-expand-observe obs_43 'track-origin new-stx_8 s_431)))" "(void))))" "(void))" -" s_425)))))))))" +" s_431)))))))))" "(define-values" "(1/namespace-attach-module)" "(let-values(((namespace-attach-module5_0)" @@ -42251,17 +42261,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_18 \"namespace?\" dest-namespace_2)))" "(values))))" -"(let-values(((phase_135)(namespace-phase src-namespace_6)))" +"(let-values(((phase_134)(namespace-phase src-namespace_6)))" "(let-values((()" "(begin" -"(if(eqv? phase_135(namespace-phase dest-namespace_2))" +"(if(eqv? phase_134(namespace-phase dest-namespace_2))" "(void)" "(let-values()" "(raise-arguments-error" " who_18" " \"source and destination namespace phases do not match\"" " \"source phase\"" -" phase_135" +" phase_134" " \"destination phase\"" "(namespace-phase dest-namespace_2))))" "(values))))" @@ -42300,20 +42310,20 @@ static const char *startup_source = " '#hasheqv())" " phase_0" " missing_0)))" -"(if(let-values(((or-part_174)" +"(if(let-values(((or-part_175)" "(eq? missing_0 m-ns_12)))" -"(if or-part_174" -" or-part_174" +"(if or-part_175" +" or-part_175" "(if attach-this-instance?_0" "(not m-ns_12)" " #f)))" "(let-values()" -"(let-values(((m_20)" +"(let-values(((m_19)" "(namespace->module" " src-namespace_6" " mod-name_19)))" "(begin" -"(if m_20" +"(if m_19" "(void)" "(let-values()" "(raise-arguments-error" @@ -42322,7 +42332,7 @@ static const char *startup_source = " \"module name\"" " mod-name_19)))" "(if(if(module-cross-phase-persistent?" -" m_20)" +" m_19)" "(if(not" "(label-phase? phase_0))" "(not(zero-phase? phase_0))" @@ -42345,7 +42355,7 @@ static const char *startup_source = "(not" "(eq?" " already-m_0" -" m_20))" +" m_19))" " #f)" "(let-values()" "(raise-arguments-error" @@ -42357,12 +42367,12 @@ static const char *startup_source = "(values))))" "(let-values(((m-ns_13" " already?_0)" -"(if(let-values(((or-part_294)" +"(if(let-values(((or-part_290)" " attach-this-instance?_0))" -"(if or-part_294" -" or-part_294" +"(if or-part_290" +" or-part_290" "(module-cross-phase-persistent?" -" m_20)))" +" m_19)))" "(let-values()" "(let-values(((m-ns_14)" "(let-values(((src-namespace32_0)" @@ -42495,9 +42505,9 @@ static const char *startup_source = "(hash-update!" " todo_0" " mod-name_19" -"(lambda(ht_144)" +"(lambda(ht_143)" "(hash-set" -" ht_144" +" ht_143" " phase_0" " m-ns_13))" " '#hasheqv())" @@ -42507,7 +42517,7 @@ static const char *startup_source = "(begin" "(let-values(((lst_9)" "(module-requires" -" m_20)))" +" m_19)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -42524,7 +42534,7 @@ static const char *startup_source = "(let-values(((phase+reqs_1)" "(unsafe-car" " lst_21))" -"((rest_164)" +"((rest_162)" "(unsafe-cdr" " lst_21)))" "(let-values((()" @@ -42539,17 +42549,17 @@ static const char *startup_source = "(check-list" " lst_22)))" "((letrec-values(((for-loop_180)" -"(lambda(lst_174)" +"(lambda(lst_175)" "(begin" " 'for-loop" "(if(pair?" -" lst_174)" +" lst_175)" "(let-values(((req_9)" "(unsafe-car" -" lst_174))" +" lst_175))" "((rest_117)" "(unsafe-cdr" -" lst_174)))" +" lst_175)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -42560,7 +42570,7 @@ static const char *startup_source = "(module-path-index-shift" " req_9" "(module-self" -" m_20)" +" m_19)" " mpi_45)" "(phase+" " phase_0" @@ -42581,34 +42591,34 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_1" -" rest_164)" +" rest_162)" "(values))))" "(values))))))" " for-loop_1)" " lst_9)))" "(void)" -"(let-values(((lst_175)" +"(let-values(((lst_176)" "(module-submodule-names" -" m_20)))" +" m_19)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_175)))" -"((letrec-values(((for-loop_252)" -"(lambda(lst_290)" +" lst_176)))" +"((letrec-values(((for-loop_254)" +"(lambda(lst_289)" "(begin" " 'for-loop" "(if(pair?" -" lst_290)" +" lst_289)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_290))" -"((rest_165)" +" lst_289))" +"((rest_163)" "(unsafe-cdr" -" lst_290)))" +" lst_289)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -42629,15 +42639,15 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_252" -" rest_165)" +"(for-loop_254" +" rest_163)" "(values))))" "(values))))))" -" for-loop_252)" -" lst_175)))" +" for-loop_254)" +" lst_176)))" "(void)" "(if(module-supermodule-name" -" m_20)" +" m_19)" "(let-values()" "(loop_80" "(1/module-path-index-join" @@ -42655,26 +42665,26 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_16)" " mod-path_16)" " #f)" -" phase_135" +" phase_134" " attach-instances?_0" -" phase_135)" +" phase_134)" "(values))))" "(let-values((()" "(begin" -"(let-values(((ht_145) todo_0))" +"(let-values(((ht_144) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_145)))" -"((letrec-values(((for-loop_253)" -"(lambda(i_170)" +"(let-values()(check-in-hash ht_144)))" +"((letrec-values(((for-loop_255)" +"(lambda(i_169)" "(begin" " 'for-loop" -"(if i_170" +"(if i_169" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" -" ht_145" -" i_170)))" +" ht_144" +" i_169)))" "(let-values((()" "(let-values(((ht_24)" " phases_0))" @@ -42690,7 +42700,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_99" -"(let-values(((phase_136" +"(let-values(((phase_135" " m-ns_15)" "(hash-iterate-key+value" " ht_24" @@ -42701,13 +42711,13 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((m_21)" +"(let-values(((m_20)" "(namespace->module" " src-namespace_6" " mod-name_20)))" "(begin" "(module-force-bulk-binding!" -" m_21" +" m_20" " src-namespace_6)" "(with-continuation-mark" " parameterization-key" @@ -42721,7 +42731,7 @@ static const char *startup_source = "(let-values(((dest-namespace44_0)" " dest-namespace_2)" "((m45_0)" -" m_21)" +" m_20)" "((mod-name46_0)" " mod-name_20))" "(declare-module!58.1" @@ -42736,14 +42746,14 @@ static const char *startup_source = "(namespace-record-module-instance-attached!" " src-namespace_6" " mod-name_20" -" phase_136)" -"(let-values(((or-part_218)" +" phase_135)" +"(let-values(((or-part_219)" "(let-values(((dest-namespace47_0)" " dest-namespace_2)" "((mod-name48_0)" " mod-name_20)" "((phase49_2)" -" phase_136))" +" phase_135))" "(namespace->module-namespace82.1" " #f" " #f" @@ -42754,13 +42764,13 @@ static const char *startup_source = " dest-namespace47_0" " mod-name48_0" " phase49_2))))" -"(if or-part_218" -" or-part_218" +"(if or-part_219" +" or-part_219" "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" -" phase_136" -" m_21" +" phase_135" +" m_20" " m-ns_15)))))" "(void)))))" "(values)))))" @@ -42777,12 +42787,12 @@ static const char *startup_source = "(hash-iterate-first" " ht_24))))))" "(if(not #f)" -"(for-loop_253" -"(hash-iterate-next ht_145 i_170))" +"(for-loop_255" +"(hash-iterate-next ht_144 i_169))" "(values))))" "(values))))))" -" for-loop_253)" -"(hash-iterate-first ht_145))))" +" for-loop_255)" +"(hash-iterate-first ht_144))))" "(values))))" "(let-values()" "(let-values(((mnr_0)(1/current-module-name-resolver)))" @@ -42800,12 +42810,12 @@ static const char *startup_source = "(void)" "(let-values()(check-in-hash-keys ht_47)))" "((letrec-values(((for-loop_49)" -"(lambda(i_171)" +"(lambda(i_170)" "(begin" " 'for-loop" -"(if i_171" +"(if i_170" "(let-values(((mod-name_21)" -"(hash-iterate-key ht_47 i_171)))" +"(hash-iterate-key ht_47 i_170)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -42819,7 +42829,7 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_49" -"(hash-iterate-next ht_47 i_171))" +"(hash-iterate-next ht_47 i_170))" "(values))))" "(values))))))" " for-loop_49)" @@ -42873,14 +42883,14 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_80)))" "((letrec-values(((for-loop_243)" -"(lambda(fold-var_234 i_172)" +"(lambda(fold-var_234 i_171)" "(begin" " 'for-loop" -"(if i_172" +"(if i_171" "(let-values(((sc_30)" "(unsafe-immutable-hash-iterate-key" " ht_80" -" i_172)))" +" i_171)))" "(let-values(((fold-var_216)" "(let-values(((fold-var_217)" " fold-var_234))" @@ -42903,7 +42913,7 @@ static const char *startup_source = " fold-var_216" "(unsafe-immutable-hash-iterate-next" " ht_80" -" i_172))" +" i_171))" " fold-var_216)))" " fold-var_234)))))" " for-loop_243)" @@ -42920,11 +42930,11 @@ static const char *startup_source = "((temp79_1)" "(root-expand-context-all-scopes-stx root-ctx_5))" "((temp80_2)" -"(let-values(((or-part_171)" +"(let-values(((or-part_172)" "(namespace-declaration-inspector" " ns_59)))" -"(if or-part_171" -" or-part_171" +"(if or-part_172" +" or-part_172" "(current-code-inspector))))" "((temp81_0) #t))" "(syntax-transfer-shifts39.1" @@ -42955,7 +42965,7 @@ static const char *startup_source = "(let-values()(add-ns-scopes_0 s_3)))))))))))))))))" "(case-lambda" "((s_72)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_72 #f #f)))" -"((s_426 ns1_3)(namespace-syntax-introduce4_0 s_426 ns1_3 #t)))))" +"((s_432 ns1_3)(namespace-syntax-introduce4_0 s_432 ns1_3 #t)))))" "(define-values" "(1/namespace-module-identifier)" "(let-values(((namespace-module-identifier8_0)" @@ -42983,14 +42993,14 @@ static const char *startup_source = "((where6_1)(namespace-module-identifier8_0 where6_1 #t)))))" "(define-values" "(1/namespace-symbol->identifier)" -"(lambda(sym_68)" +"(lambda(sym_69)" "(begin" " 'namespace-symbol->identifier" "(begin" -"(if(symbol? sym_68)" +"(if(symbol? sym_69)" "(void)" -" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_68)))" -"(1/namespace-syntax-introduce(1/datum->syntax #f sym_68))))))" +" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_69)))" +"(1/namespace-syntax-introduce(1/datum->syntax #f sym_69))))))" "(define-values" "(do-namespace-require23.1)" "(lambda(copy-variable-as-constant?13_0" @@ -43030,8 +43040,8 @@ static const char *startup_source = "(add-scopes" " empty-syntax" "(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_60)))))" -"(if(let-values(((or-part_175)(1/module-path-index? req_10)))" -"(if or-part_175 or-part_175(1/module-path? req_10)))" +"(if(let-values(((or-part_176)(1/module-path-index? req_10)))" +"(if or-part_176 or-part_176(1/module-path? req_10)))" "(let-values()" "(let-values(((temp82_1)" "(if(1/module-path-index? req_10)" @@ -43273,7 +43283,10 @@ static const char *startup_source = " ns_10))" "(void))" "(values))))" -"(let-values(((v_192 primitive?_8 extra-inspector_8)" +"(let-values(((v_191" +" primitive?_8" +" extra-inspector_8" +" protected?_9)" "(if b_89" "(let-values(((b123_0) b_89)" "((empty-env124_0) empty-env)" @@ -43295,13 +43308,13 @@ static const char *startup_source = " id128_0))" "(values variable #f #f))))" "(begin" -"(if(variable? v_192)" +"(if(variable? v_191)" "(void)" "(let-values()" "(escape_0" -"(let-values(((or-part_295) failure-thunk_5))" -"(if or-part_295" -" or-part_295" +"(let-values(((or-part_291) failure-thunk_5))" +"(if or-part_291" +" or-part_291" "(lambda()" "(raise" "(make-exn:fail:syntax$1" @@ -43334,9 +43347,9 @@ static const char *startup_source = " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_296) failure-thunk_5))" -"(if or-part_296" -" or-part_296" +"(let-values(((or-part_292) failure-thunk_5))" +"(if or-part_292" +" or-part_292" "(raise" "(exn:fail:contract:variable" "(format" @@ -43348,32 +43361,32 @@ static const char *startup_source = " sym_52)))))))))" "(lambda() val_10))))))))))))))))" "(case-lambda" -"((sym_69)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_69 #f #f #f #f #f #f)))" -"((sym_70 use-mapping?_1 failure-thunk_6 ns48_1)" -"(namespace-variable-value53_0 sym_70 use-mapping?_1 failure-thunk_6 ns48_1 #t #t #t))" -"((sym_71 use-mapping?_2 failure-thunk47_1)" -"(namespace-variable-value53_0 sym_71 use-mapping?_2 failure-thunk47_1 #f #t #t #f))" -"((sym_72 use-mapping?46_1)(namespace-variable-value53_0 sym_72 use-mapping?46_1 #f #f #t #f #f)))))" +"((sym_70)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_70 #f #f #f #f #f #f)))" +"((sym_71 use-mapping?_1 failure-thunk_6 ns48_1)" +"(namespace-variable-value53_0 sym_71 use-mapping?_1 failure-thunk_6 ns48_1 #t #t #t))" +"((sym_72 use-mapping?_2 failure-thunk47_1)" +"(namespace-variable-value53_0 sym_72 use-mapping?_2 failure-thunk47_1 #f #t #t #f))" +"((sym_73 use-mapping?46_1)(namespace-variable-value53_0 sym_73 use-mapping?46_1 #f #f #t #f #f)))))" "(define-values" "(1/namespace-set-variable-value!)" "(let-values(((namespace-set-variable-value!63_0)" "(lambda(sym61_0 val62_0 map?55_0 ns56_0 as-constant?57_0 map?58_0 ns59_0 as-constant?60_0)" "(begin" " 'namespace-set-variable-value!63" -"(let-values(((sym_73) sym61_0))" -"(let-values(((val_69) val62_0))" +"(let-values(((sym_74) sym61_0))" +"(let-values(((val_12) val62_0))" "(let-values(((map?_0)(if map?58_0 map?55_0 #f)))" "(let-values(((ns_79)(if ns59_0 ns56_0(1/current-namespace))))" "(let-values(((as-constant?_2)(if as-constant?60_0 as-constant?57_0 #f)))" "(let-values()" "(begin" -"(if(symbol? sym_73)" +"(if(symbol? sym_74)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_73)))" +" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_74)))" "(if(1/namespace? ns_79)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_79)))" -"(namespace-set-variable! ns_79(namespace-phase ns_79) sym_73 val_69 as-constant?_2)" +"(namespace-set-variable! ns_79(namespace-phase ns_79) sym_74 val_12 as-constant?_2)" "(if map?_0" "(let-values()" "(let-values((()" @@ -43381,14 +43394,14 @@ static const char *startup_source = "(namespace-unset-transformer!" " ns_79" "(namespace-phase ns_79)" -" sym_73)" +" sym_74)" "(values))))" -"(let-values(((id_98)(1/datum->syntax #f sym_73)))" +"(let-values(((id_98)(1/datum->syntax #f sym_74)))" "(let-values(((temp129_1)(1/namespace-syntax-introduce id_98 ns_79))" "((temp130_1)" "(let-values(((temp132_1)(namespace-mpi ns_79))" "((temp133_1)(namespace-phase ns_79))" -"((sym134_0) sym_73))" +"((sym134_0) sym_74))" "(make-module-binding22.1" " #f" " #f" @@ -43415,32 +43428,32 @@ static const char *startup_source = "(add-binding!17.1 #f #f #f #f temp129_1 temp130_1 temp131_0)))))" "(void)))))))))))))" "(case-lambda" -"((sym_74 val_70)" -"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_74 val_70 #f #f #f #f #f #f)))" -"((sym_75 val_71 map?_1 ns_80 as-constant?57_1)" -"(namespace-set-variable-value!63_0 sym_75 val_71 map?_1 ns_80 as-constant?57_1 #t #t #t))" -"((sym_76 val_50 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_76 val_50 map?_2 ns56_1 #f #t #t #f))" -"((sym_77 val_72 map?55_1)(namespace-set-variable-value!63_0 sym_77 val_72 map?55_1 #f #f #t #f #f)))))" +"((sym_75 val_69)" +"(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_75 val_69 #f #f #f #f #f #f)))" +"((sym_76 val_70 map?_1 ns_80 as-constant?57_1)" +"(namespace-set-variable-value!63_0 sym_76 val_70 map?_1 ns_80 as-constant?57_1 #t #t #t))" +"((sym_77 val_71 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_77 val_71 map?_2 ns56_1 #f #t #t #f))" +"((sym_78 val_72 map?55_1)(namespace-set-variable-value!63_0 sym_78 val_72 map?55_1 #f #f #t #f #f)))))" "(define-values" "(1/namespace-undefine-variable!)" "(let-values(((namespace-undefine-variable!68_0)" "(lambda(sym67_0 ns65_0 ns66_0)" "(begin" " 'namespace-undefine-variable!68" -"(let-values(((sym_78) sym67_0))" +"(let-values(((sym_79) sym67_0))" "(let-values(((ns_81)(if ns66_0 ns65_0(1/current-namespace))))" "(let-values()" "(begin" -"(if(symbol? sym_78)" +"(if(symbol? sym_79)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_78)))" +" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_79)))" "(if(1/namespace? ns_81)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_81)))" -"(namespace-unset-variable! ns_81(namespace-phase ns_81) sym_78)))))))))" +"(namespace-unset-variable! ns_81(namespace-phase ns_81) sym_79)))))))))" "(case-lambda" -"((sym_79)(begin 'namespace-undefine-variable!(namespace-undefine-variable!68_0 sym_79 #f #f)))" -"((sym_80 ns65_1)(namespace-undefine-variable!68_0 sym_80 ns65_1 #t)))))" +"((sym_80)(begin 'namespace-undefine-variable!(namespace-undefine-variable!68_0 sym_80 #f #f)))" +"((sym_81 ns65_1)(namespace-undefine-variable!68_0 sym_81 ns65_1 #t)))))" "(define-values" "(1/namespace-mapped-symbols)" "(let-values(((namespace-mapped-symbols72_0)" @@ -43489,20 +43502,20 @@ static const char *startup_source = "(let-values(((compile_1)" "(if compile4_0" " compile2_0" -"(lambda(s_412 ns_66)(begin 'compile(1/compile s_412 ns_66 #f))))))" +"(lambda(s_415 ns_66)(begin 'compile(1/compile s_415 ns_66 #f))))))" "(let-values()" -"(if(let-values(((or-part_297)(compiled-in-memory? s_146)))" -"(if or-part_297" -" or-part_297" -"(let-values(((or-part_298)(1/linklet-directory? s_146)))" -"(if or-part_298 or-part_298(1/linklet-bundle? s_146)))))" +"(if(let-values(((or-part_293)(compiled-in-memory? s_146)))" +"(if or-part_293" +" or-part_293" +"(let-values(((or-part_294)(1/linklet-directory? s_146)))" +"(if or-part_294 or-part_294(1/linklet-bundle? s_146)))))" "(let-values()(eval-compiled s_146 ns_42))" "(if(if(syntax?$1 s_146)" -"(let-values(((or-part_299)(compiled-in-memory?(1/syntax-e s_146))))" -"(if or-part_299" -" or-part_299" -"(let-values(((or-part_300)(1/linklet-directory?(1/syntax-e s_146))))" -"(if or-part_300 or-part_300(1/linklet-bundle?(1/syntax-e s_146))))))" +"(let-values(((or-part_295)(compiled-in-memory?(1/syntax-e s_146))))" +"(if or-part_295" +" or-part_295" +"(let-values(((or-part_296)(1/linklet-directory?(1/syntax-e s_146))))" +"(if or-part_296 or-part_296(1/linklet-bundle?(1/syntax-e s_146))))))" " #f)" "(let-values()(eval-compiled(1/syntax->datum s_146) ns_42))" "(let-values()" @@ -43526,8 +43539,8 @@ static const char *startup_source = " s_146" " ns_42)))))))))))))" "(case-lambda" -"((s_426)(begin 'eval(eval6_0 s_426 #f #f #f #f)))" -"((s_427 ns_45 compile2_1)(eval6_0 s_427 ns_45 compile2_1 #t #t))" +"((s_432)(begin 'eval(eval6_0 s_432 #f #f #f #f)))" +"((s_433 ns_45 compile2_1)(eval6_0 s_433 ns_45 compile2_1 #t #t))" "((s_173 ns1_5)(eval6_0 s_173 ns1_5 #f #t #f)))))" "(define-values" "(eval-compiled)" @@ -43575,10 +43588,10 @@ static const char *startup_source = "(let-values()(list(1/syntax-e s_161)))" "(let-values()" "(let-values(((temp88_2)" -"(lambda(s_428 ns_46 as-tail?_4)" +"(lambda(s_434 ns_46 as-tail?_4)" "(list" "(compile-single$1" -" s_428" +" s_434" " ns_46" " expand_0" " serializable?_4" @@ -43614,9 +43627,9 @@ static const char *startup_source = " #t" " cs_0))))))))))))))" "(case-lambda" -"((s_429)(begin 'compile(compile23_0 s_429 #f #f #f #f #f #f #f #f)))" -"((s_430 ns_48 serializable?_5 expand_1 to-source?17_1)" -"(compile23_0 s_430 ns_48 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" +"((s_435)(begin 'compile(compile23_0 s_435 #f #f #f #f #f #f #f #f)))" +"((s_436 ns_48 serializable?_5 expand_1 to-source?17_1)" +"(compile23_0 s_436 ns_48 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" "((s_149 ns_89 serializable?_6 expand16_1)(compile23_0 s_149 ns_89 serializable?_6 expand16_1 #f #t #t #t #f))" "((s_185 ns_90 serializable?15_1)(compile23_0 s_185 ns_90 serializable?15_1 #f #f #t #t #f #f))" "((s_17 ns14_3)(compile23_0 s_17 ns14_3 #f #f #f #t #f #f #f)))))" @@ -43630,7 +43643,7 @@ static const char *startup_source = "(let-values(((ns_62)(if ns26_2 ns25_0(1/current-namespace))))" "(let-values()(1/compile s_22 ns_62 #t expand$1 #t))))))))" "(case-lambda" -"((s_431)(begin(compile-to-linklets28_0 s_431 #f #f)))" +"((s_437)(begin(compile-to-linklets28_0 s_437 #f #f)))" "((s_24 ns25_1)(compile-to-linklets28_0 s_24 ns25_1 #t)))))" "(define-values" "(struct:lifted-parsed-begin" @@ -43661,10 +43674,10 @@ static const char *startup_source = "(make-struct-field-accessor -ref_73 1 'last))))" "(define-values" "(compile-single$1)" -"(lambda(s_432 ns_91 expand_2 serializable?_7 to-source?_6)" +"(lambda(s_438 ns_91 expand_2 serializable?_7 to-source?_6)" "(begin" " 'compile-single" -"(let-values(((exp-s_4)(expand_2 s_432 ns_91 #f #t serializable?_7)))" +"(let-values(((exp-s_4)(expand_2 s_438 ns_91 #f #t serializable?_7)))" "((letrec-values(((loop_100)" "(lambda(exp-s_5)" "(begin" @@ -43693,27 +43706,27 @@ static const char *startup_source = "(let-values()" "(let-values(((temp101_1)" "(reverse$1" -"(let-values(((lst_163)" +"(let-values(((lst_164)" "(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_163)))" +"(let-values()(check-list lst_164)))" "((letrec-values(((for-loop_184)" -"(lambda(fold-var_258 lst_180)" +"(lambda(fold-var_257 lst_181)" "(begin" " 'for-loop" -"(if(pair? lst_180)" +"(if(pair? lst_181)" "(let-values(((e_72)" -"(unsafe-car lst_180))" +"(unsafe-car lst_181))" "((rest_95)" -"(unsafe-cdr lst_180)))" +"(unsafe-cdr lst_181)))" "(let-values(((fold-var_160)" "(let-values(((fold-var_161)" -" fold-var_258))" -"(let-values(((fold-var_259)" +" fold-var_257))" +"(let-values(((fold-var_258)" "(let-values()" "(cons" "(let-values()" @@ -43721,14 +43734,14 @@ static const char *startup_source = " e_72))" " fold-var_161))))" "(values" -" fold-var_259)))))" +" fold-var_258)))))" "(if(not #f)" "(for-loop_184 fold-var_160 rest_95)" " fold-var_160)))" -" fold-var_258)))))" +" fold-var_257)))))" " for-loop_184)" " null" -" lst_163)))))" +" lst_164)))))" "((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()" @@ -43817,44 +43830,44 @@ static const char *startup_source = " s_50" " ns_5))))))))))))))))" "(case-lambda" -"((s_433)(begin 'expand(expand40_0 s_433 #f #f #f #f #f #f #f #f)))" -"((s_434 ns_93 observable?_1 to-parsed?_3 serializable?34_1)" -"(expand40_0 s_434 ns_93 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_435 ns_94 observable?_2 to-parsed?33_1)(expand40_0 s_435 ns_94 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_439)(begin 'expand(expand40_0 s_439 #f #f #f #f #f #f #f #f)))" +"((s_440 ns_93 observable?_1 to-parsed?_3 serializable?34_1)" +"(expand40_0 s_440 ns_93 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" +"((s_441 ns_94 observable?_2 to-parsed?33_1)(expand40_0 s_441 ns_94 observable?_2 to-parsed?33_1 #f #t #t #t #f))" "((s_317 ns_95 observable?32_1)(expand40_0 s_317 ns_95 observable?32_1 #f #f #t #t #f #f))" -"((s_436 ns31_3)(expand40_0 s_436 ns31_3 #f #f #f #t #f #f #f)))))" +"((s_442 ns31_3)(expand40_0 s_442 ns31_3 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" -"(lambda(s_437 ns_96 observer_3 to-parsed?_4 serializable?_9)" +"(lambda(s_443 ns_96 observer_3 to-parsed?_4 serializable?_9)" "(begin" -"(let-values(((rebuild-s_2)(keep-properties-only s_437)))" +"(let-values(((rebuild-s_2)(keep-properties-only s_443)))" "(let-values(((ctx_65)" "(let-values(((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 ns_96))))" -"(let-values(((require-lifts_3 lifts_9 exp-s_6)(expand-capturing-lifts s_437 ctx_65)))" -"(if(if(null? require-lifts_3)(null? lifts_9) #f)" +"(let-values(((require-lifts_3 lifts_10 exp-s_6)(expand-capturing-lifts s_443 ctx_65)))" +"(if(if(null? require-lifts_3)(null? lifts_10) #f)" "(let-values() exp-s_6)" "(if to-parsed?_4" "(let-values()" "(let-values(((temp122_2)" "(lambda(form_0)(expand-single form_0 ns_96 observer_3 to-parsed?_4 serializable?_9))))" -"(wrap-lifts-as-lifted-parsed-begin77.1 temp122_2 require-lifts_3 lifts_9 exp-s_6 rebuild-s_2)))" +"(wrap-lifts-as-lifted-parsed-begin77.1 temp122_2 require-lifts_3 lifts_10 exp-s_6 rebuild-s_2)))" "(let-values()" "(let-values((()" "(begin" -"(log-top-lift-begin-before ctx_65 require-lifts_3 lifts_9 exp-s_6 ns_96)" +"(log-top-lift-begin-before ctx_65 require-lifts_3 lifts_10 exp-s_6 ns_96)" "(values))))" "(let-values(((new-s_2)" -"(let-values(((temp123_2)(append require-lifts_3 lifts_9))" +"(let-values(((temp123_2)(append require-lifts_3 lifts_10))" "((temp124_2)" "(lambda(form_1)" "(begin" -"(let-values(((obs_38)(expand-context-observer ctx_65)))" -"(if obs_38" +"(let-values(((obs_44)(expand-context-observer ctx_65)))" +"(if obs_44" "(let-values()" -"(let-values()(call-expand-observe obs_38 'next)))" +"(let-values()(call-expand-observe obs_44 'next)))" "(void)))" "(expand-single" " form_1" @@ -43868,10 +43881,10 @@ static const char *startup_source = "(let-values() form_2)" "(let-values()" "(begin" -"(let-values(((obs_41)(expand-context-observer ctx_65)))" -"(if obs_41" +"(let-values(((obs_45)(expand-context-observer ctx_65)))" +"(if obs_45" "(let-values()" -"(let-values()(call-expand-observe obs_41 'next)))" +"(let-values()(call-expand-observe obs_45 'next)))" "(void)))" "(expand-single" " form_2" @@ -43920,13 +43933,13 @@ static const char *startup_source = " s_197" " ns_97)))))))))" "(case-lambda" -"((s_438)(begin 'expand-once(expand-once45_0 s_438 #f #f)))" -"((s_439 ns42_2)(expand-once45_0 s_439 ns42_2 #t)))))" +"((s_444)(begin 'expand-once(expand-once45_0 s_444 #f #f)))" +"((s_445 ns42_2)(expand-once45_0 s_445 ns42_2 #t)))))" "(define-values" "(expand-single-once)" "(lambda(s_321 ns_98)" "(begin" -"(let-values(((require-lifts_4 lifts_10 exp-s_7)" +"(let-values(((require-lifts_4 lifts_11 exp-s_7)" "(expand-capturing-lifts" " s_321" "(let-values(((v_113)" @@ -43935,39 +43948,39 @@ static const char *startup_source = "(let-values(((the-struct_55) v_113))" "(if(expand-context/outer? the-struct_55)" "(let-values(((inner136_0)" -"(let-values(((the-struct_74)(root-expand-context/outer-inner v_113)))" -"(if(expand-context/inner? the-struct_74)" +"(let-values(((the-struct_73)(root-expand-context/outer-inner v_113)))" +"(if(expand-context/inner? the-struct_73)" "(let-values(((just-once?137_0) #t))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_74)" -"(root-expand-context/inner-module-scopes the-struct_74)" -"(root-expand-context/inner-top-level-bind-scope the-struct_74)" -"(root-expand-context/inner-all-scopes-stx the-struct_74)" -"(root-expand-context/inner-defined-syms the-struct_74)" -"(root-expand-context/inner-counter the-struct_74)" -"(root-expand-context/inner-lift-key the-struct_74)" -"(expand-context/inner-to-parsed? the-struct_74)" -"(expand-context/inner-phase the-struct_74)" -"(expand-context/inner-namespace the-struct_74)" +"(root-expand-context/inner-self-mpi the-struct_73)" +"(root-expand-context/inner-module-scopes the-struct_73)" +"(root-expand-context/inner-top-level-bind-scope the-struct_73)" +"(root-expand-context/inner-all-scopes-stx the-struct_73)" +"(root-expand-context/inner-defined-syms the-struct_73)" +"(root-expand-context/inner-counter the-struct_73)" +"(root-expand-context/inner-lift-key the-struct_73)" +"(expand-context/inner-to-parsed? the-struct_73)" +"(expand-context/inner-phase the-struct_73)" +"(expand-context/inner-namespace the-struct_73)" " just-once?137_0" -"(expand-context/inner-module-begin-k the-struct_74)" -"(expand-context/inner-allow-unbound? the-struct_74)" -"(expand-context/inner-in-local-expand? the-struct_74)" -"(expand-context/inner-stops the-struct_74)" -"(expand-context/inner-declared-submodule-names the-struct_74)" -"(expand-context/inner-lifts the-struct_74)" -"(expand-context/inner-lift-envs the-struct_74)" -"(expand-context/inner-module-lifts the-struct_74)" -"(expand-context/inner-require-lifts the-struct_74)" -"(expand-context/inner-to-module-lifts the-struct_74)" -"(expand-context/inner-requires+provides the-struct_74)" -"(expand-context/inner-observer the-struct_74)" -"(expand-context/inner-for-serializable? the-struct_74)" -"(expand-context/inner-should-not-encounter-macros? the-struct_74)))" +"(expand-context/inner-module-begin-k the-struct_73)" +"(expand-context/inner-allow-unbound? the-struct_73)" +"(expand-context/inner-in-local-expand? the-struct_73)" +"(expand-context/inner-stops the-struct_73)" +"(expand-context/inner-declared-submodule-names the-struct_73)" +"(expand-context/inner-lifts the-struct_73)" +"(expand-context/inner-lift-envs the-struct_73)" +"(expand-context/inner-module-lifts the-struct_73)" +"(expand-context/inner-require-lifts the-struct_73)" +"(expand-context/inner-to-module-lifts the-struct_73)" +"(expand-context/inner-requires+provides the-struct_73)" +"(expand-context/inner-observer the-struct_73)" +"(expand-context/inner-for-serializable? the-struct_73)" +"(expand-context/inner-should-not-encounter-macros? the-struct_73)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_74)))))" +" the-struct_73)))))" "(expand-context/outer1.1" " inner136_0" "(root-expand-context/outer-post-expansion-scope the-struct_55)" @@ -43985,10 +43998,10 @@ static const char *startup_source = "(expand-context/outer-current-introduction-scopes the-struct_55)" "(expand-context/outer-name the-struct_55)))" " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_55)))))))" -"(if(if(null? require-lifts_4)(null? lifts_10) #f)" +"(if(if(null? require-lifts_4)(null? lifts_11) #f)" "(let-values() exp-s_7)" "(let-values()" -"(let-values(((temp138_2)(append require-lifts_4 lifts_10))" +"(let-values(((temp138_2)(append require-lifts_4 lifts_11))" "((exp-s139_0) exp-s_7)" "((temp140_0)(namespace-phase ns_98)))" "(wrap-lifts-as-begin16.1 #f #f #f #f temp138_2 exp-s139_0 temp140_0))))))))" @@ -43999,7 +44012,7 @@ static const char *startup_source = "(begin" " 'expand-to-top-form50" "(let-values(((s_203) s49_0))" -"(let-values(((ns_80)(if ns48_2 ns47_0(1/current-namespace))))" +"(let-values(((ns_99)(if ns48_2 ns47_0(1/current-namespace))))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" "(begin" @@ -44026,7 +44039,7 @@ static const char *startup_source = " #f" " #f" " s_203" -" ns_80)))))))))))))" +" ns_99)))))))))))))" "(case-lambda" "((s_151)(begin 'expand-to-top-form(expand-to-top-form50_0 s_151 #f #f)))" "((s_89 ns47_1)(expand-to-top-form50_0 s_89 ns47_1 #t)))))" @@ -44049,7 +44062,7 @@ static const char *startup_source = "(begin" " 'per-top-level68" "(let-values(((given-s_0) given-s66_0))" -"(let-values(((ns_99) ns67_1))" +"(let-values(((ns_100) ns67_1))" "(let-values(((single_0) single52_0))" "(let-values(((combine_0)(if combine60_0 combine53_0 #f)))" "(let-values(((wrap_2)(if wrap61_0 wrap54_0 #f)))" @@ -44058,133 +44071,133 @@ 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_440)(maybe-intro given-s_0 ns_99)))" +"(let-values(((s_446)(maybe-intro given-s_0 ns_100)))" "(let-values(((ctx_66)" "(let-values(((observer147_0) observer_5))" -"(make-expand-context10.1 #f #f observer147_0 #t #f #f ns_99))))" -"(let-values(((phase_137)(namespace-phase ns_99)))" +"(make-expand-context10.1 #f #f observer147_0 #t #f #f ns_100))))" +"(let-values(((phase_136)(namespace-phase ns_100)))" "((letrec-values(((loop_101)" -"(lambda(s_441 phase_138 ns_100 as-tail?_7)" +"(lambda(s_447 phase_137 ns_101 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_193) ctx_66))" -"(let-values(((the-struct_75) v_193))" -"(if(expand-context/outer? the-struct_75)" +"(let-values(((v_192) ctx_66))" +"(let-values(((the-struct_74) v_192))" +"(if(expand-context/outer? the-struct_74)" "(let-values(((inner148_0)" -"(let-values(((the-struct_76)" +"(let-values(((the-struct_75)" "(root-expand-context/outer-inner" -" v_193)))" +" v_192)))" "(if(expand-context/inner?" -" the-struct_76)" +" the-struct_75)" "(let-values(((phase149_0)" -" phase_138)" +" phase_137)" "((namespace150_0)" -" ns_100)" +" ns_101)" "((just-once?151_0)" " just-once?_1)" "((for-serializable?152_0)" " serializable?_10))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_76)" +" the-struct_75)" "(root-expand-context/inner-module-scopes" -" the-struct_76)" +" the-struct_75)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_76)" +" the-struct_75)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_76)" +" the-struct_75)" "(root-expand-context/inner-defined-syms" -" the-struct_76)" +" the-struct_75)" "(root-expand-context/inner-counter" -" the-struct_76)" +" the-struct_75)" "(root-expand-context/inner-lift-key" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-to-parsed?" -" the-struct_76)" +" the-struct_75)" " phase149_0" " namespace150_0" " just-once?151_0" "(expand-context/inner-module-begin-k" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-allow-unbound?" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-in-local-expand?" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-stops" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-declared-submodule-names" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-lifts" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-lift-envs" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-module-lifts" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-require-lifts" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-to-module-lifts" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-requires+provides" -" the-struct_76)" +" the-struct_75)" "(expand-context/inner-observer" -" the-struct_76)" +" the-struct_75)" " for-serializable?152_0" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_76)))" +" the-struct_75)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_76)))))" +" the-struct_75)))))" "(expand-context/outer1.1" " inner148_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_75)" +" the-struct_74)" "(root-expand-context/outer-use-site-scopes" -" the-struct_75)" +" the-struct_74)" "(root-expand-context/outer-frame-id" -" the-struct_75)" +" the-struct_74)" "(expand-context/outer-context" -" the-struct_75)" -"(expand-context/outer-env the-struct_75)" +" the-struct_74)" +"(expand-context/outer-env the-struct_74)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_75)" -"(expand-context/outer-scopes the-struct_75)" +" the-struct_74)" +"(expand-context/outer-scopes the-struct_74)" "(expand-context/outer-def-ctx-scopes" -" the-struct_75)" +" the-struct_74)" "(expand-context/outer-binding-layer" -" the-struct_75)" +" the-struct_74)" "(expand-context/outer-reference-records" -" the-struct_75)" +" the-struct_74)" "(expand-context/outer-only-immediate?" -" the-struct_75)" +" the-struct_74)" "(expand-context/outer-need-eventually-defined" -" the-struct_75)" +" the-struct_74)" "(expand-context/outer-current-introduction-scopes" -" the-struct_75)" -"(expand-context/outer-name the-struct_75)))" +" the-struct_74)" +"(expand-context/outer-name the-struct_74)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_75))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_441 #f)))" +" the-struct_74))))))" +"(let-values(((wb-s_0)(if just-once?_1 s_447 #f)))" "(let-values((()" "(begin" -"(let-values(((obs_42)" +"(let-values(((obs_46)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_42" +"(if obs_46" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_42" +" obs_46" " 'visit" -" s_441)))" +" s_447)))" "(void)))" "(values))))" -"(let-values(((require-lifts_5 lifts_11 exp-s_8)" +"(let-values(((require-lifts_5 lifts_12 exp-s_8)" "(expand-capturing-lifts" -" s_441" +" s_447" "(let-values(((v_145) tl-ctx_0))" "(let-values(((the-struct_16) v_145))" "(if(expand-context/outer? the-struct_16)" @@ -44193,68 +44206,68 @@ static const char *startup_source = "((def-ctx-scopes154_0)" "(box null))" "((inner155_1)" -"(let-values(((the-struct_77)" +"(let-values(((the-struct_76)" "(root-expand-context/outer-inner" " v_145)))" "(if(expand-context/inner?" -" the-struct_77)" +" the-struct_76)" "(let-values(((phase156_1)" -" phase_138)" +" phase_137)" "((namespace157_1)" -" ns_100))" +" ns_101))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_77)" +" the-struct_76)" "(root-expand-context/inner-module-scopes" -" the-struct_77)" +" the-struct_76)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_77)" +" the-struct_76)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_77)" +" the-struct_76)" "(root-expand-context/inner-defined-syms" -" the-struct_77)" +" the-struct_76)" "(root-expand-context/inner-counter" -" the-struct_77)" +" the-struct_76)" "(root-expand-context/inner-lift-key" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-to-parsed?" -" the-struct_77)" +" the-struct_76)" " phase156_1" " namespace157_1" "(expand-context/inner-just-once?" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-module-begin-k" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-allow-unbound?" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-in-local-expand?" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-stops" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-declared-submodule-names" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-lifts" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-lift-envs" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-module-lifts" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-require-lifts" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-to-module-lifts" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-requires+provides" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-observer" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-for-serializable?" -" the-struct_77)" +" the-struct_76)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_77)))" +" the-struct_76)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_77)))))" +" the-struct_76)))))" "(expand-context/outer1.1" " inner155_1" "(root-expand-context/outer-post-expansion-scope" @@ -44289,17 +44302,17 @@ static const char *startup_source = " the-struct_16)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_8)))" -"(if(let-values(((or-part_301)" +"(if(let-values(((or-part_297)" "(pair? require-lifts_5)))" -"(if or-part_301 or-part_301(pair? lifts_11)))" +"(if or-part_297 or-part_297(pair? lifts_12)))" "(let-values()" "(let-values(((new-s_3)" "(let-values(((temp158_0)" "(append" " require-lifts_5" -" lifts_11))" +" lifts_12))" "((exp-s159_0) exp-s_8)" -"((phase160_0) phase_138))" +"((phase160_0) phase_137))" "(wrap-lifts-as-begin16.1" " #f" " #f" @@ -44309,14 +44322,14 @@ static const char *startup_source = " exp-s159_0" " phase160_0))))" "(begin" -"(let-values(((obs_43)" +"(let-values(((obs_47)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_43" +"(if obs_47" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_43" +" obs_47" " 'lift-loop" " new-s_3)))" "(void)))" @@ -44324,20 +44337,20 @@ static const char *startup_source = " new-s_3" "(loop_101" " new-s_3" -" phase_138" -" ns_100" +" phase_137" +" ns_101" " as-tail?_7)))))" "(if(not single_0)" "(let-values()" "(begin" -"(let-values(((obs_44)" +"(let-values(((obs_48)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_44" +"(if obs_48" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_44" +" obs_48" " 'return" " exp-s_8)))" "(void)))" @@ -44348,46 +44361,46 @@ static const char *startup_source = "(let-values(((tmp_37)" "(core-form-sym" " disarmed-exp-s_0" -" phase_138)))" +" phase_137)))" "(if(equal? tmp_37 'begin)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_45)" +"(let-values(((obs_27)" "(expand-context-observer" " ctx_66)))" -"(if obs_45" +"(if obs_27" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_45" +" obs_27" " 'prim-begin)))" "(void)))" "(values))))" "(let-values(((ok?_28 begin161_0 e162_0)" -"(let-values(((s_442)" +"(let-values(((s_448)" " disarmed-exp-s_0))" -"(let-values(((orig-s_33)" -" s_442))" +"(let-values(((orig-s_34)" +" s_448))" "(let-values(((begin161_1" " e162_1)" -"(let-values(((s_443)" +"(let-values(((s_449)" "(if(syntax?$1" -" s_442)" +" s_448)" "(syntax-e$1" -" s_442)" -" s_442)))" +" s_448)" +" s_448)))" "(if(pair?" -" s_443)" +" s_449)" "(let-values(((begin163_0)" "(let-values(((s_113)" "(car" -" s_443)))" +" s_449)))" " s_113))" "((e164_0)" "(let-values(((s_114)" "(cdr" -" s_443)))" +" s_449)))" "(let-values(((s_115)" "(if(syntax?$1" " s_114)" @@ -44403,7 +44416,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_33))" +" orig-s_34))" "(let-values()" " flat-s_20)))))))" "(values" @@ -44412,7 +44425,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_33)))))" +" orig-s_34)))))" "(values" " #t" " begin161_1" @@ -44435,20 +44448,20 @@ static const char *startup_source = "(let-values()" "(loop_101" "(car es_2)" -" phase_138" -" ns_100" +" phase_137" +" ns_101" " as-tail?_7))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_46)" +"(let-values(((obs_49)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_46" +"(if obs_49" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_46" +" obs_49" " 'next)))" "(void)))" "(values))))" @@ -44457,15 +44470,15 @@ static const char *startup_source = "(loop_101" "(car" " es_2)" -" phase_138" -" ns_100" +" phase_137" +" ns_101" " #f)" "(begin" "(loop_101" "(car" " es_2)" -" phase_138" -" ns_100" +" phase_137" +" ns_101" " #f)" "(void)))))" "(if combine_0" @@ -44486,14 +44499,14 @@ static const char *startup_source = "(begin-loop_0" " e162_0))))" "(begin" -"(let-values(((obs_47)" +"(let-values(((obs_50)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_47" +"(if obs_50" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_47" +" obs_50" " 'return" " new-s_4)))" "(void)))" @@ -44504,59 +44517,59 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_48)" +"(let-values(((obs_51)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_48" +"(if obs_51" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_48" +" obs_51" " 'prim-begin-for-syntax)))" "(void)))" "(values))))" "(let-values(((ok?_29" " begin-for-syntax165_0" " e166_0)" -"(let-values(((s_444)" +"(let-values(((s_427)" " disarmed-exp-s_0))" -"(let-values(((orig-s_34)" -" s_444))" +"(let-values(((orig-s_35)" +" s_427))" "(let-values(((begin-for-syntax165_1" " e166_1)" -"(let-values(((s_445)" +"(let-values(((s_450)" "(if(syntax?$1" -" s_444)" +" s_427)" "(syntax-e$1" -" s_444)" -" s_444)))" +" s_427)" +" s_427)))" "(if(pair?" -" s_445)" +" s_450)" "(let-values(((begin-for-syntax167_0)" -"(let-values(((s_446)" +"(let-values(((s_451)" "(car" -" s_445)))" -" s_446))" +" s_450)))" +" s_451))" "((e168_0)" -"(let-values(((s_447)" +"(let-values(((s_452)" "(cdr" -" s_445)))" -"(let-values(((s_448)" +" s_450)))" +"(let-values(((s_453)" "(if(syntax?$1" -" s_447)" +" s_452)" "(syntax-e$1" -" s_447)" -" s_447)))" +" s_452)" +" s_452)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_448)))" +" s_453)))" "(if(not" " flat-s_21)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_34))" +" orig-s_35))" "(let-values()" " flat-s_21)))))))" "(values" @@ -44565,27 +44578,27 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_34)))))" +" orig-s_35)))))" "(values" " #t" " begin-for-syntax165_1" " e166_1))))))" "(let-values(((next-phase_0)" -"(add1 phase_138)))" +"(add1 phase_137)))" "(let-values(((next-ns_0)" "(namespace->namespace-at-phase" -" ns_100" +" ns_101" " next-phase_0)))" "(let-values((()" "(begin" -"(let-values(((obs_49)" +"(let-values(((obs_52)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_49" +"(if obs_52" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_49" +" obs_52" " 'prepare-env)))" "(void)))" "(values))))" @@ -44594,7 +44607,7 @@ static const char *startup_source = "(if quick-immediate?_0" "(let-values()" "(namespace-visit-available-modules!" -" ns_100))" +" ns_101))" "(void))" "(values))))" "(let-values((()" @@ -44604,7 +44617,7 @@ static const char *startup_source = "(values))))" "(let-values(((l_72)" "(reverse$1" -"(let-values(((lst_291)" +"(let-values(((lst_290)" " e166_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -44612,56 +44625,56 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_291)))" -"((letrec-values(((for-loop_248)" -"(lambda(fold-var_245" -" lst_292)" +" lst_290)))" +"((letrec-values(((for-loop_256)" +"(lambda(fold-var_259" +" lst_291)" "(begin" " 'for-loop" "(if(pair?" -" lst_292)" -"(let-values(((s_449)" +" lst_291)" +"(let-values(((s_404)" "(unsafe-car" -" lst_292))" -"((rest_166)" +" lst_291))" +"((rest_164)" "(unsafe-cdr" -" lst_292)))" +" lst_291)))" +"(let-values(((fold-var_260)" +"(let-values(((fold-var_245)" +" fold-var_259))" "(let-values(((fold-var_246)" -"(let-values(((fold-var_247)" -" fold-var_245))" -"(let-values(((fold-var_248)" "(let-values()" "(cons" "(let-values()" "(begin" -"(let-values(((obs_50)" +"(let-values(((obs_53)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_50" +"(if obs_53" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_50" +" obs_53" " 'next)))" "(void)))" "(loop_101" -" s_449" +" s_404" " next-phase_0" " next-ns_0" " #f)))" -" fold-var_247))))" +" fold-var_245))))" "(values" -" fold-var_248)))))" +" fold-var_246)))))" "(if(not" " #f)" -"(for-loop_248" -" fold-var_246" -" rest_166)" -" fold-var_246)))" -" fold-var_245)))))" -" for-loop_248)" +"(for-loop_256" +" fold-var_260" +" rest_164)" +" fold-var_260)))" +" fold-var_259)))))" +" for-loop_256)" " null" -" lst_291))))))" +" lst_290))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_5)" @@ -44670,14 +44683,14 @@ static const char *startup_source = " exp-s_8" " l_72)))" "(begin" -"(let-values(((obs_51)" +"(let-values(((obs_54)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_51" +"(if obs_54" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_51" +" obs_54" " 'return" " new-s_5)))" "(void)))" @@ -44689,113 +44702,113 @@ static const char *startup_source = "(let-values()" "(single_0" " exp-s_8" -" ns_100" +" ns_101" " as-tail?_7))))))))))))))))))" " loop_101)" -" s_440" -" phase_137" -" ns_99" +" s_446" +" phase_136" +" ns_100" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_346 ns_101)" -"(begin(if(syntax?$1 s_346) s_346(1/namespace-syntax-introduce(1/datum->syntax #f s_346) ns_101)))))" +"(lambda(s_346 ns_102)" +"(begin(if(syntax?$1 s_346) s_346(1/namespace-syntax-introduce(1/datum->syntax #f s_346) ns_102)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_450 r_44)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_450)(cons form-id_0 r_44) s_450 s_450) s_450))))" +"(lambda(form-id_0 s_454 r_44)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_454)(cons form-id_0 r_44) s_454 s_454) s_454))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_451 ctx_67)" +"(lambda(s_455 ctx_67)" "(begin" "(let-values()" -"(let-values(((ns_102)(expand-context-namespace ctx_67)))" -"(let-values((()(begin(namespace-visit-available-modules! ns_102)(values))))" +"(let-values(((ns_103)(expand-context-namespace ctx_67)))" +"(let-values((()(begin(namespace-visit-available-modules! ns_103)(values))))" "(let-values(((lift-ctx_6)" "(let-values(((temp169_0)(make-top-level-lift ctx_67)))" "(make-lift-context6.1 #f #f temp169_0))))" "(let-values(((require-lift-ctx_2)" "(make-require-lift-context" -"(namespace-phase ns_102)" -"(make-parse-top-lifted-require ns_102))))" +"(namespace-phase ns_103)" +"(make-parse-top-lifted-require ns_103))))" "(let-values(((exp-s_9)" -"(let-values(((s170_0) s_451)" +"(let-values(((s170_0) s_455)" "((temp171_0)" "(let-values(((v_161) ctx_67))" -"(let-values(((the-struct_78) v_161))" -"(if(expand-context/outer? the-struct_78)" +"(let-values(((the-struct_77) v_161))" +"(if(expand-context/outer? the-struct_77)" "(let-values(((inner172_0)" -"(let-values(((the-struct_79)" +"(let-values(((the-struct_78)" "(root-expand-context/outer-inner v_161)))" -"(if(expand-context/inner? the-struct_79)" +"(if(expand-context/inner? the-struct_78)" "(let-values(((lifts173_0) lift-ctx_6)" "((module-lifts174_0) lift-ctx_6)" "((require-lifts175_0)" " require-lift-ctx_2))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_79)" +" the-struct_78)" "(root-expand-context/inner-module-scopes" -" the-struct_79)" +" the-struct_78)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_79)" +" the-struct_78)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_79)" +" the-struct_78)" "(root-expand-context/inner-defined-syms" -" the-struct_79)" -"(root-expand-context/inner-counter the-struct_79)" +" the-struct_78)" +"(root-expand-context/inner-counter the-struct_78)" "(root-expand-context/inner-lift-key" -" the-struct_79)" -"(expand-context/inner-to-parsed? the-struct_79)" -"(expand-context/inner-phase the-struct_79)" -"(expand-context/inner-namespace the-struct_79)" -"(expand-context/inner-just-once? the-struct_79)" +" the-struct_78)" +"(expand-context/inner-to-parsed? the-struct_78)" +"(expand-context/inner-phase the-struct_78)" +"(expand-context/inner-namespace the-struct_78)" +"(expand-context/inner-just-once? the-struct_78)" "(expand-context/inner-module-begin-k" -" the-struct_79)" +" the-struct_78)" "(expand-context/inner-allow-unbound?" -" the-struct_79)" +" the-struct_78)" "(expand-context/inner-in-local-expand?" -" the-struct_79)" -"(expand-context/inner-stops the-struct_79)" +" the-struct_78)" +"(expand-context/inner-stops the-struct_78)" "(expand-context/inner-declared-submodule-names" -" the-struct_79)" +" the-struct_78)" " lifts173_0" -"(expand-context/inner-lift-envs the-struct_79)" +"(expand-context/inner-lift-envs the-struct_78)" " module-lifts174_0" " require-lifts175_0" "(expand-context/inner-to-module-lifts" -" the-struct_79)" +" the-struct_78)" "(expand-context/inner-requires+provides" -" the-struct_79)" -"(expand-context/inner-observer the-struct_79)" +" the-struct_78)" +"(expand-context/inner-observer the-struct_78)" "(expand-context/inner-for-serializable?" -" the-struct_79)" +" the-struct_78)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_79)))" +" the-struct_78)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_79)))))" +" the-struct_78)))))" "(expand-context/outer1.1" " inner172_0" -"(root-expand-context/outer-post-expansion-scope the-struct_78)" -"(root-expand-context/outer-use-site-scopes the-struct_78)" -"(root-expand-context/outer-frame-id the-struct_78)" -"(expand-context/outer-context the-struct_78)" -"(expand-context/outer-env the-struct_78)" -"(expand-context/outer-post-expansion-scope-action the-struct_78)" -"(expand-context/outer-scopes the-struct_78)" -"(expand-context/outer-def-ctx-scopes the-struct_78)" -"(expand-context/outer-binding-layer the-struct_78)" -"(expand-context/outer-reference-records the-struct_78)" -"(expand-context/outer-only-immediate? the-struct_78)" -"(expand-context/outer-need-eventually-defined the-struct_78)" -"(expand-context/outer-current-introduction-scopes the-struct_78)" -"(expand-context/outer-name the-struct_78)))" +"(root-expand-context/outer-post-expansion-scope the-struct_77)" +"(root-expand-context/outer-use-site-scopes the-struct_77)" +"(root-expand-context/outer-frame-id the-struct_77)" +"(expand-context/outer-context the-struct_77)" +"(expand-context/outer-env the-struct_77)" +"(expand-context/outer-post-expansion-scope-action the-struct_77)" +"(expand-context/outer-scopes the-struct_77)" +"(expand-context/outer-def-ctx-scopes the-struct_77)" +"(expand-context/outer-binding-layer the-struct_77)" +"(expand-context/outer-reference-records the-struct_77)" +"(expand-context/outer-only-immediate? the-struct_77)" +"(expand-context/outer-need-eventually-defined the-struct_77)" +"(expand-context/outer-current-introduction-scopes the-struct_77)" +"(expand-context/outer-name the-struct_77)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_78))))))" +" the-struct_77))))))" "(expand7.1 #f #f #f #f s170_0 temp171_0))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" @@ -44803,48 +44816,48 @@ static const char *startup_source = " exp-s_9))))))))))" "(define-values" "(make-parse-top-lifted-require)" -"(lambda(ns_103)" +"(lambda(ns_104)" "(begin" -"(lambda(s_241 phase_139)" +"(lambda(s_241 phase_138)" "(let-values(((ok?_30 #%require176_0 req177_0)" -"(let-values(((s_452)(syntax-disarm$1 s_241)))" -"(let-values(((orig-s_35) s_452))" +"(let-values(((s_456)(syntax-disarm$1 s_241)))" +"(let-values(((orig-s_36) s_456))" "(let-values(((#%require176_1 req177_1)" -"(let-values(((s_453)(if(syntax?$1 s_452)(syntax-e$1 s_452) s_452)))" -"(if(pair? s_453)" -"(let-values(((#%require178_0)(let-values(((s_359)(car s_453))) s_359))" +"(let-values(((s_457)(if(syntax?$1 s_456)(syntax-e$1 s_456) s_456)))" +"(if(pair? s_457)" +"(let-values(((#%require178_0)(let-values(((s_359)(car s_457))) s_359))" "((req179_0)" -"(let-values(((s_360)(cdr s_453)))" -"(let-values(((s_454)" +"(let-values(((s_360)(cdr s_457)))" +"(let-values(((s_458)" "(if(syntax?$1 s_360)" "(syntax-e$1 s_360)" " s_360)))" -"(if(pair? s_454)" +"(if(pair? s_458)" "(let-values(((req180_0)" -"(let-values(((s_362)(car s_454)))" +"(let-values(((s_362)(car s_458)))" " s_362))" "(()" -"(let-values(((s_363)(cdr s_454)))" -"(let-values(((s_455)" +"(let-values(((s_363)(cdr s_458)))" +"(let-values(((s_459)" "(if(syntax?$1 s_363)" "(syntax-e$1 s_363)" " s_363)))" -"(if(null? s_455)" +"(if(null? s_459)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_35))))))" +" orig-s_36))))))" "(values req180_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_35))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_36))))))" "(values #%require178_0 req179_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_36)))))" "(values #t #%require176_1 req177_1))))))" "(let-values(((temp181_0)(list req177_0))" "((s182_0) s_241)" -"((ns183_0) ns_103)" -"((phase184_1) phase_139)" -"((phase185_0) phase_139)" +"((ns183_0) ns_104)" +"((phase184_1) phase_138)" +"((phase185_0) phase_138)" "((temp186_0)(let-values(((temp188_0) #f))(make-requires+provides8.1 #f #f temp188_0)))" "((temp187_0) 'require))" "(parse-and-perform-requires!30.1" @@ -44878,7 +44891,7 @@ static const char *startup_source = "(begin" " 'wrap-lifts-as-lifted-parsed-begin77" "(let-values(((require-lifts_6) require-lifts73_0))" -"(let-values(((lifts_12) lifts74_0))" +"(let-values(((lifts_13) lifts74_0))" "(let-values(((exp-s_10) exp-s75_0))" "(let-values(((rebuild-s_3) rebuild-s76_0))" "(let-values(((adjust-form_1) adjust-form71_0))" @@ -44886,48 +44899,48 @@ static const char *startup_source = "(lifted-parsed-begin30.1" "(append" "(reverse$1" -"(let-values(((lst_293) require-lifts_6))" +"(let-values(((lst_292) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_293)))" -"((letrec-values(((for-loop_254)" -"(lambda(fold-var_260 lst_294)" +"(let-values()(check-list lst_292)))" +"((letrec-values(((for-loop_257)" +"(lambda(fold-var_261 lst_293)" "(begin" " 'for-loop" -"(if(pair? lst_294)" -"(let-values(((req_23)(unsafe-car lst_294))" -"((rest_167)(unsafe-cdr lst_294)))" -"(let-values(((fold-var_261)" -"(let-values(((fold-var_262) fold-var_260))" -"(let-values(((fold-var_263)" +"(if(pair? lst_293)" +"(let-values(((req_23)(unsafe-car lst_293))" +"((rest_165)(unsafe-cdr lst_293)))" +"(let-values(((fold-var_262)" +"(let-values(((fold-var_263) fold-var_261))" +"(let-values(((fold-var_264)" "(let-values()" "(cons" "(let-values()" "(parsed-require23.1 req_23))" -" fold-var_262))))" -"(values fold-var_263)))))" -"(if(not #f)(for-loop_254 fold-var_261 rest_167) fold-var_261)))" -" fold-var_260)))))" -" for-loop_254)" +" fold-var_263))))" +"(values fold-var_264)))))" +"(if(not #f)(for-loop_257 fold-var_262 rest_165) fold-var_262)))" +" fold-var_261)))))" +" for-loop_257)" " null" -" lst_293))))" +" lst_292))))" "(reverse$1" -"(let-values(((lst_140)(get-lifts-as-lists lifts_12)))" +"(let-values(((lst_141)(get-lifts-as-lists lifts_13)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_140)))" -"((letrec-values(((for-loop_255)" -"(lambda(fold-var_264 lst_295)" +"(let-values()(check-list lst_141)))" +"((letrec-values(((for-loop_258)" +"(lambda(fold-var_265 lst_294)" "(begin" " 'for-loop" -"(if(pair? lst_295)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_295))" -"((rest_168)(unsafe-cdr lst_295)))" -"(let-values(((fold-var_265)" -"(let-values(((fold-var_266) fold-var_264))" -"(let-values(((fold-var_267)" +"(if(pair? lst_294)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_294))" +"((rest_166)(unsafe-cdr lst_294)))" +"(let-values(((fold-var_266)" +"(let-values(((fold-var_267) fold-var_265))" +"(let-values(((fold-var_268)" "(let-values()" "(cons" "(let-values()" @@ -44951,120 +44964,120 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_3)" -"(let-values(((the-struct_80)" +"(let-values(((the-struct_79)" " exp-rhs_3))" "(if(lifted-parsed-begin?" -" the-struct_80)" +" the-struct_79)" "(let-values(((last189_0)" " dv_0))" "(lifted-parsed-begin30.1" "(lifted-parsed-begin-seq" -" the-struct_80)" +" the-struct_79)" " last189_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_80)))" +" the-struct_79)))" " dv_0)))))" -" fold-var_266))))" -"(values fold-var_267)))))" -"(if(not #f)(for-loop_255 fold-var_265 rest_168) fold-var_265)))" -" fold-var_264)))))" -" for-loop_255)" +" fold-var_267))))" +"(values fold-var_268)))))" +"(if(not #f)(for-loop_258 fold-var_266 rest_166) fold-var_266)))" +" fold-var_265)))))" +" for-loop_258)" " null" -" lst_140)))))" +" lst_141)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" -"(lambda(ctx_68 require-lifts_7 lifts_13 exp-s_11 ns_104)" +"(lambda(ctx_68 require-lifts_7 lifts_14 exp-s_11 ns_105)" "(begin" -"(let-values(((obs_52)(expand-context-observer ctx_68)))" -"(if obs_52" +"(let-values(((obs_55)(expand-context-observer ctx_68)))" +"(if obs_55" "(let-values()" "(let-values(((new-s_6)" -"(let-values(((temp190_0)(append require-lifts_7 lifts_13))" +"(let-values(((temp190_0)(append require-lifts_7 lifts_14))" "((exp-s191_0) exp-s_11)" -"((temp192_0)(namespace-phase ns_104)))" +"((temp192_0)(namespace-phase ns_105)))" "(wrap-lifts-as-begin16.1 #f #f #f #f temp190_0 exp-s191_0 temp192_0))))" -"(begin(call-expand-observe obs_52 'lift-loop new-s_6)(log-top-begin-before ctx_68 new-s_6))))" +"(begin(call-expand-observe obs_55 'lift-loop new-s_6)(log-top-begin-before ctx_68 new-s_6))))" "(void))))))" "(define-values" "(log-top-begin-before)" "(lambda(ctx_69 new-s_7)" "(begin" -"(let-values(((obs_53)(expand-context-observer ctx_69)))" -"(if obs_53" +"(let-values(((obs_56)(expand-context-observer ctx_69)))" +"(if obs_56" "(let-values()" "(let-values(((ok?_31 begin193_0 e194_0)" -"(let-values(((s_456) new-s_7))" -"(let-values(((orig-s_36) s_456))" +"(let-values(((s_460) new-s_7))" +"(let-values(((orig-s_37) s_460))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_457)(if(syntax?$1 s_456)(syntax-e$1 s_456) s_456)))" -"(if(pair? s_457)" -"(let-values(((begin195_0)(let-values(((s_458)(car s_457))) s_458))" +"(let-values(((s_461)(if(syntax?$1 s_460)(syntax-e$1 s_460) s_460)))" +"(if(pair? s_461)" +"(let-values(((begin195_0)(let-values(((s_462)(car s_461))) s_462))" "((e196_0)" -"(let-values(((s_459)(cdr s_457)))" -"(let-values(((s_460)" -"(if(syntax?$1 s_459)" -"(syntax-e$1 s_459)" -" s_459)))" -"(let-values(((flat-s_22)(to-syntax-list.1 s_460)))" +"(let-values(((s_463)(cdr s_461)))" +"(let-values(((s_464)" +"(if(syntax?$1 s_463)" +"(syntax-e$1 s_463)" +" s_463)))" +"(let-values(((flat-s_22)(to-syntax-list.1 s_464)))" "(if(not flat-s_22)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_36))" +" orig-s_37))" "(let-values() flat-s_22)))))))" "(values begin195_0 e196_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_36)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_37)))))" "(values #t begin193_1 e194_1))))))" "(begin" -"(call-expand-observe obs_53 'visit new-s_7)" -"(call-expand-observe obs_53 'resolve begin193_0)" -"(call-expand-observe obs_53 'enter-prim new-s_7)" -"(call-expand-observe obs_53 'prim-begin)" -"(call-expand-observe obs_53 'enter-list(1/datum->syntax #f e194_0 new-s_7)))))" +"(call-expand-observe obs_56 'visit new-s_7)" +"(call-expand-observe obs_56 'resolve begin193_0)" +"(call-expand-observe obs_56 'enter-prim new-s_7)" +"(call-expand-observe obs_56 'prim-begin)" +"(call-expand-observe obs_56 'enter-list(1/datum->syntax #f e194_0 new-s_7)))))" "(void))))))" "(define-values" "(log-top-begin-after)" "(lambda(ctx_70 new-s_8)" "(begin" -"(let-values(((obs_54)(expand-context-observer ctx_70)))" -"(if obs_54" +"(let-values(((obs_57)(expand-context-observer ctx_70)))" +"(if obs_57" "(let-values()" "(let-values(((ok?_32 begin197_0 e198_0)" -"(let-values(((s_461) new-s_8))" -"(let-values(((orig-s_37) s_461))" +"(let-values(((s_465) new-s_8))" +"(let-values(((orig-s_38) s_465))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_462)(if(syntax?$1 s_461)(syntax-e$1 s_461) s_461)))" -"(if(pair? s_462)" -"(let-values(((begin199_0)(let-values(((s_463)(car s_462))) s_463))" +"(let-values(((s_466)(if(syntax?$1 s_465)(syntax-e$1 s_465) s_465)))" +"(if(pair? s_466)" +"(let-values(((begin199_0)(let-values(((s_467)(car s_466))) s_467))" "((e200_0)" -"(let-values(((s_464)(cdr s_462)))" -"(let-values(((s_465)" -"(if(syntax?$1 s_464)" -"(syntax-e$1 s_464)" -" s_464)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_465)))" +"(let-values(((s_468)(cdr s_466)))" +"(let-values(((s_469)" +"(if(syntax?$1 s_468)" +"(syntax-e$1 s_468)" +" s_468)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_469)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_37))" +" orig-s_38))" "(let-values() flat-s_23)))))))" "(values begin199_0 e200_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_37)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_38)))))" "(values #t begin197_1 e198_1))))))" -"(let-values(((obs_55)(expand-context-observer ctx_70)))" -"(if obs_55" +"(let-values(((obs_58)(expand-context-observer ctx_70)))" +"(if obs_58" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_55 'exit-list(1/datum->syntax #f e198_0 new-s_8))" -"(call-expand-observe obs_55 'exit-prim new-s_8)" -"(call-expand-observe obs_55 'return new-s_8))))" +"(call-expand-observe obs_58 'exit-list(1/datum->syntax #f e198_0 new-s_8))" +"(call-expand-observe obs_58 'exit-prim new-s_8)" +"(call-expand-observe obs_58 'return new-s_8))))" "(void)))))" "(void))))))" "(define-values" @@ -45075,7 +45088,7 @@ static const char *startup_source = " 'do-dynamic-require6" "(let-values(((who_20) who3_0))" "(let-values(((mod-path_5) mod-path4_0))" -"(let-values(((sym_81) sym5_0))" +"(let-values(((sym_82) sym5_0))" "(let-values(((fail-k_2)(if fail-k2_0 fail-k1_0 default-dynamic-require-fail-thunk)))" "(let-values()" "(let-values((()" @@ -45094,17 +45107,17 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_5)(symbol? sym_81)))" +"(if(let-values(((or-part_5)(symbol? sym_82)))" "(if or-part_5" " or-part_5" -"(let-values(((or-part_6)(not sym_81)))" +"(let-values(((or-part_6)(not sym_82)))" "(if or-part_6" " or-part_6" -"(let-values(((or-part_292)(equal? sym_81 0)))" -"(if or-part_292 or-part_292(void? sym_81)))))))" +"(let-values(((or-part_288)(equal? sym_82 0)))" +"(if or-part_288 or-part_288(void? sym_82)))))))" "(void)" "(let-values()" -" (raise-argument-error who_20 \"(or/c symbol? #f 0 void?)\" sym_81)))" +" (raise-argument-error who_20 \"(or/c symbol? #f 0 void?)\" sym_82)))" "(values))))" "(let-values((()" "(begin" @@ -45125,10 +45138,10 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_5)" " #f))))))" "(let-values(((mod-name_22)(1/module-path-index-resolve mpi_46 #t)))" -"(let-values(((phase_140)(namespace-phase ns_57)))" -"(if(not sym_81)" +"(let-values(((phase_139)(namespace-phase ns_57)))" +"(if(not sym_82)" "(let-values()" -"(let-values(((phase23_1) phase_140)((temp24_5) #f))" +"(let-values(((phase23_1) phase_139)((temp24_5) #f))" "(namespace-module-instantiate!96.1" " temp24_5" " #t" @@ -45140,10 +45153,10 @@ static const char *startup_source = " #f" " ns_57" " mpi_46" -" phase_140)))" -"(if(equal? sym_81 0)" +" phase_139)))" +"(if(equal? sym_82 0)" "(let-values()" -"(let-values(((phase28_1) phase_140))" +"(let-values(((phase28_1) phase_139))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -45155,21 +45168,21 @@ static const char *startup_source = " #f" " ns_57" " mpi_46" -" phase_140)))" -"(if(void? sym_81)" +" phase_139)))" +"(if(void? sym_82)" "(let-values()" -"(let-values(((phase32_4) phase_140))" +"(let-values(((phase32_4) phase_139))" "(namespace-module-visit!104.1" " phase32_4" " #t" " ns_57" " mpi_46" -" phase_140)))" +" phase_139)))" "(let-values()" -"(let-values(((m_22)(namespace->module ns_57 mod-name_22)))" +"(let-values(((m_21)(namespace->module ns_57 mod-name_22)))" "(let-values((()" "(begin" -"(if m_22" +"(if m_21" "(void)" "(let-values()" "(raise-unknown-module-error" @@ -45178,8 +45191,8 @@ static const char *startup_source = "(values))))" "(let-values(((binding/p_5)" "(hash-ref" -"(hash-ref(module-provides m_22) 0 '#hasheq())" -" sym_81" +"(hash-ref(module-provides m_21) 0 '#hasheq())" +" sym_82" " #f)))" "(if(not binding/p_5)" "(let-values()" @@ -45188,7 +45201,7 @@ static const char *startup_source = " 'dynamic-require" " \"name is not provided\"" " \"name\"" -" sym_81" +" sym_82" " \"module\"" " mod-name_22)" "(fail-k_2)))" @@ -45202,7 +45215,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((phase36_0)" -" phase_140))" +" phase_139))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -45214,18 +45227,18 @@ static const char *startup_source = " #f" " ns_57" " mpi_46" -" phase_140))" +" phase_139))" "(values))))" "(let-values(((ex-mod-name_0)" "(1/module-path-index-resolve" "(module-path-index-shift" "(module-binding-module binding_26)" -"(module-self m_22)" +"(module-self m_21)" " mpi_46))))" "(let-values(((m-ns_16)" "(let-values(((temp39_4)" "(phase-" -" phase_140" +" phase_139" " ex-phase_0))" "((temp40_2) #t))" "(namespace->module-namespace82.1" @@ -45283,7 +45296,7 @@ static const char *startup_source = " 'dynamic-require" " \"name is protected\"" " \"name\"" -" sym_81" +" sym_82" " \"module\"" " mod-name_22))" "(void))" @@ -45299,7 +45312,7 @@ static const char *startup_source = " 'dynamic-require" " \"name's binding is missing\"" " \"name\"" -" sym_81" +" sym_82" " \"module\"" " mod-name_22)" "(fail-k_2))))))" @@ -45318,13 +45331,13 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((phase44_0)" -" phase_140))" +" phase_139))" "(namespace-module-visit!104.1" " phase44_0" " #t" " ns_57" " mpi_46" -" phase_140))" +" phase_139))" "(values))))" "(let-values(((t_54)" "(namespace-get-transformer" @@ -45362,11 +45375,11 @@ static const char *startup_source = " tmp-ns_0)" "(let-values()" "(1/eval" -" sym_81" +" sym_82" " tmp-ns_0))))))))))))))))))))))))))))))))))))))))))))))))" "(case-lambda" -"((who_21 mod-path_16 sym_82)(begin(do-dynamic-require6_0 who_21 mod-path_16 sym_82 #f #f)))" -"((who_22 mod-path_18 sym_83 fail-k1_1)(do-dynamic-require6_0 who_22 mod-path_18 sym_83 fail-k1_1 #t)))))" +"((who_21 mod-path_16 sym_83)(begin(do-dynamic-require6_0 who_21 mod-path_16 sym_83 #f #f)))" +"((who_22 mod-path_18 sym_84 fail-k1_1)(do-dynamic-require6_0 who_22 mod-path_18 sym_84 fail-k1_1 #t)))))" " (define-values (default-dynamic-require-fail-thunk) (lambda () (begin (error \"failed\"))))" "(define-values" "(1/dynamic-require)" @@ -45375,12 +45388,12 @@ static const char *startup_source = "(begin" " 'dynamic-require12" "(let-values(((mod-path_19) mod-path10_2))" -"(let-values(((sym_84) sym11_0))" +"(let-values(((sym_85) sym11_0))" "(let-values(((fail-k_3)(if fail-k9_0 fail-k8_0 default-dynamic-require-fail-thunk)))" -"(let-values()(do-dynamic-require 'dynamic-require mod-path_19 sym_84 fail-k_3)))))))))" +"(let-values()(do-dynamic-require 'dynamic-require mod-path_19 sym_85 fail-k_3)))))))))" "(case-lambda" "((mod-path_20 sym_10)(begin 'dynamic-require(dynamic-require12_0 mod-path_20 sym_10 #f #f)))" -"((mod-path_21 sym_85 fail-k8_1)(dynamic-require12_0 mod-path_21 sym_85 fail-k8_1 #t)))))" +"((mod-path_21 sym_86 fail-k8_1)(dynamic-require12_0 mod-path_21 sym_86 fail-k8_1 #t)))))" "(define-values" "(1/dynamic-require-for-syntax)" "(let-values(((dynamic-require-for-syntax18_0)" @@ -45388,7 +45401,7 @@ static const char *startup_source = "(begin" " 'dynamic-require-for-syntax18" "(let-values(((mod-path_22) mod-path16_0))" -"(let-values(((sym_86) sym17_1))" +"(let-values(((sym_87) sym17_1))" "(let-values(((fail-k_4)(if fail-k15_0 fail-k14_0 default-dynamic-require-fail-thunk)))" "(let-values()" "(with-continuation-mark" @@ -45396,14 +45409,14 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -"(let-values(((ns_105)(1/current-namespace)))" -"(namespace->namespace-at-phase ns_105(add1(namespace-phase ns_105)))))" +"(let-values(((ns_106)(1/current-namespace)))" +"(namespace->namespace-at-phase ns_106(add1(namespace-phase ns_106)))))" "(let-values()" -"(do-dynamic-require 'dynamic-require-for-syntax mod-path_22 sym_86 fail-k_4)))))))))))" +"(do-dynamic-require 'dynamic-require-for-syntax mod-path_22 sym_87 fail-k_4)))))))))))" "(case-lambda" -"((mod-path_23 sym_87)" -"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax18_0 mod-path_23 sym_87 #f #f)))" -"((mod-path_24 sym_88 fail-k14_1)(dynamic-require-for-syntax18_0 mod-path_24 sym_88 fail-k14_1 #t)))))" +"((mod-path_23 sym_88)" +"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax18_0 mod-path_23 sym_88 #f #f)))" +"((mod-path_24 sym_89 fail-k14_1)(dynamic-require-for-syntax18_0 mod-path_24 sym_89 fail-k14_1 #t)))))" " (define-values (replace-me) (lambda (who_0) (begin (lambda args_9 (error who_0 \"this stub must be replaced\")))))" "(define-values" "(1/current-eval)" @@ -45481,25 +45494,25 @@ static const char *startup_source = "(if(list? l_8)" "(andmap2" "(lambda(p_54)" -"(let-values(((or-part_297)(not p_54)))" -"(if or-part_297" -" or-part_297" -"(let-values(((or-part_298)(complete-path-string? p_54)))" -"(if or-part_298" -" or-part_298" +"(let-values(((or-part_293)(not p_54)))" +"(if or-part_293" +" or-part_293" +"(let-values(((or-part_294)(complete-path-string? p_54)))" +"(if or-part_294" +" or-part_294" "(if(hash? p_54)" -"(let-values(((ht_146) p_54))" +"(let-values(((ht_145) p_54))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_146)))" +"(let-values()(check-in-hash ht_145)))" "((letrec-values(((for-loop_178)" "(lambda(result_111 i_86)" "(begin" " 'for-loop" "(if i_86" "(let-values(((k_34 v_3)" -"(hash-iterate-key+value ht_146 i_86)))" +"(hash-iterate-key+value ht_145 i_86)))" "(let-values(((result_112)" "(let-values()" "(let-values(((result_113)" @@ -45527,12 +45540,12 @@ static const char *startup_source = " #f)" "(for-loop_178" " result_112" -"(hash-iterate-next ht_146 i_86))" +"(hash-iterate-next ht_145 i_86))" " result_112)))" " result_111)))))" " for-loop_178)" " #t" -"(hash-iterate-first ht_146))))" +"(hash-iterate-first ht_145))))" " #f))))))" " l_8)" " #f))" @@ -45556,17 +45569,17 @@ static const char *startup_source = "(if(string? p_7)" "(let-values()(string->path p_7))" "(let-values()" -"(let-values(((ht_147) p_7))" +"(let-values(((ht_146) p_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_147)))" -"((letrec-values(((for-loop_256)" +"(let-values()(check-in-hash ht_146)))" +"((letrec-values(((for-loop_259)" "(lambda(table_203 i_87)" "(begin" " 'for-loop" "(if i_87" -"(let-values(((k_35 v_194)(hash-iterate-key+value ht_147 i_87)))" +"(let-values(((k_35 v_193)(hash-iterate-key+value ht_146 i_87)))" "(let-values(((table_204)" "(let-values(((table_106) table_203))" "(let-values(((table_205)" @@ -45575,19 +45588,19 @@ static const char *startup_source = "(let-values()" "(values" " k_35" -"(to-path v_194)))))" +"(to-path v_193)))))" "(hash-set" " table_106" " key_82" " val_73)))))" "(values table_205)))))" "(if(not #f)" -"(for-loop_256 table_204(hash-iterate-next ht_147 i_87))" +"(for-loop_259 table_204(hash-iterate-next ht_146 i_87))" " table_204)))" " table_203)))))" -" for-loop_256)" +" for-loop_259)" " '#hash()" -"(hash-iterate-first ht_147)))))))))" +"(hash-iterate-first ht_146)))))))))" " l_74)))))))" "(define-values" "(1/use-compiled-file-paths)" @@ -45638,7 +45651,7 @@ static const char *startup_source = " (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_182)))" " v_182))))))" "(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_79)(if v_79 #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_194)(if v_194 #t #f))))" "(define-values(complete-path-string?)(lambda(p_24)(begin(if(path-string? p_24)(complete-path? p_24) #f))))" "(define-values" "(relative-path-string?$1)" @@ -45701,8 +45714,8 @@ static const char *startup_source = "(let-values(((or-part_34)(1/string->number start_42)))" "(if or-part_34 or-part_34 0))))" "(let-values(((end_32)" -"(let-values(((or-part_297)(1/string->number end_31)))" -"(if or-part_297 or-part_297 0))))" +"(let-values(((or-part_293)(1/string->number end_31)))" +"(if or-part_293 or-part_293 0))))" "(let-values(((exe4_0) exe_0)" "((temp5_6)" "(lambda()" @@ -45819,7 +45832,7 @@ static const char *startup_source = "(lambda(d_34)" "(begin" " (let-values (((p_60) (if d_34 (build-path d_34 \"config.rktd\") #f)))" -"(let-values(((or-part_293)" +"(let-values(((or-part_289)" "(if p_60" "(if(file-exists? p_60)" "(let-values(((p9_0) p_60)" @@ -45832,7 +45845,7 @@ static const char *startup_source = "(with-input-from-file45.1 #f #f p9_0 temp10_3))" " #f)" " #f)))" -"(if or-part_293 or-part_293 '#hash()))))))" +"(if or-part_289 or-part_289 '#hash()))))))" "(define-values" "(get-installation-name)" "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))" @@ -45857,9 +45870,9 @@ static const char *startup_source = "(let-values(((or-part_166)(find-main-collects)))(if or-part_166 or-part_166(current-directory)))))))))" "(define-values" "(add-config-search)" -"(lambda(ht_148 key_83 orig-l_9)" +"(lambda(ht_147 key_83 orig-l_9)" "(begin" -"(let-values(((l_66)(hash-ref ht_148 key_83 #f)))" +"(let-values(((l_66)(hash-ref ht_147 key_83 #f)))" "(if l_66" "((letrec-values(((loop_102)" "(lambda(l_67)" @@ -45878,22 +45891,22 @@ static const char *startup_source = "(lambda()" "(begin" " 'find-library-collection-links" -"(let-values(((ht_149)(get-config-table(find-main-config))))" +"(let-values(((ht_148)(get-config-table(find-main-config))))" "(let-values(((lf_0)" "(coerce-to-path" -"(let-values(((or-part_76)(hash-ref ht_149 'links-file #f)))" +"(let-values(((or-part_76)(hash-ref ht_148 'links-file #f)))" "(if or-part_76" " or-part_76" "(build-path" -"(let-values(((or-part_77)(hash-ref ht_149 'share-dir #f)))" +"(let-values(((or-part_77)(hash-ref ht_148 'share-dir #f)))" " (if or-part_77 or-part_77 (build-path 'up \"share\")))" " \"links.rktd\"))))))" "(append" "(list #f)" "(if(if(1/use-user-specific-search-paths)(1/use-collection-link-paths) #f)" -" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_149) \"links.rktd\"))" +" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_148) \"links.rktd\"))" " null)" -"(if(1/use-collection-link-paths)(add-config-search ht_149 'links-search-files(list lf_0)) null)))))))" +"(if(1/use-collection-link-paths)(add-config-search ht_148 'links-search-files(list lf_0)) null)))))))" "(define-values(links-cache)(make-weak-hash))" "(define-values(stamp-prompt-tag)(make-continuation-prompt-tag 'stamp))" "(define-values" @@ -46031,13 +46044,13 @@ static const char *startup_source = "(if(list? p_64)" "(if(let-values(((or-part_70)(= 2(length p_64))))" "(if or-part_70 or-part_70(= 3(length p_64))))" -"(if(let-values(((or-part_302)(string?(car p_64))))" -"(if or-part_302" -" or-part_302" -"(let-values(((or-part_268)" +"(if(let-values(((or-part_298)(string?(car p_64))))" +"(if or-part_298" +" or-part_298" +"(let-values(((or-part_299)" "(eq? 'root(car p_64))))" -"(if or-part_268" -" or-part_268" +"(if or-part_299" +" or-part_299" "(eq? 'static-root(car p_64))))))" "(if(path-string?(cadr p_64))" "(let-values(((or-part_71)(null?(cddr p_64))))" @@ -46051,7 +46064,7 @@ static const char *startup_source = "(void)" " (let-values () (error \"ill-formed content\")))" "(values))))" -"(let-values(((ht_150)(make-hasheq)))" +"(let-values(((ht_149)(make-hasheq)))" "(let-values(((dir_0)" "(let-values(((base_20 name_42 dir?_5)(split-path links-path_0)))" " base_20)))" @@ -46071,48 +46084,48 @@ static const char *startup_source = "(let-values()" "(let-values(((k_36)(string->symbol(path->string sub_1))))" "(hash-set!" -" ht_150" +" ht_149" " k_36" -"(cons dir_1(hash-ref ht_150 k_36 null)))))" +"(cons dir_1(hash-ref ht_149 k_36 null)))))" "(void)))" "(directory-list dir_1)))" "(if(eq?(car p_65) 'root)" "(let-values()" "(begin" -"(if(hash-ref ht_150 #f #f)" +"(if(hash-ref ht_149 #f #f)" "(void)" -"(let-values()(hash-set! ht_150 #f null)))" +"(let-values()(hash-set! ht_149 #f null)))" "(hash-for-each" -" ht_150" -"(lambda(k_37 v_196)" -"(hash-set! ht_150 k_37(cons dir_1 v_196))))))" +" ht_149" +"(lambda(k_37 v_195)" +"(hash-set! ht_149 k_37(cons dir_1 v_195))))))" "(let-values()" "(let-values(((s_16)(string->symbol(car p_65))))" "(hash-set!" -" ht_150" +" ht_149" " s_16" -"(cons(box dir_1)(hash-ref ht_150 s_16 null)))))))))" +"(cons(box dir_1)(hash-ref ht_149 s_16 null)))))))))" "(void)))" " v_133)" "(hash-for-each" -" ht_150" -"(lambda(k_38 v_197)(hash-set! ht_150 k_38(reverse$1 v_197))))" -"(hash-set! links-cache links-path_0(cons ts_1 ht_150))" -" ht_150))))))))))))))))))))))" +" ht_149" +"(lambda(k_38 v_196)(hash-set! ht_149 k_38(reverse$1 v_196))))" +"(hash-set! links-cache links-path_0(cons ts_1 ht_149))" +" ht_149))))))))))))))))))))))" "(define-values" "(normalize-collection-reference)" "(lambda(collection_2 collection-path_2)" "(begin" "(if(string? collection_2)" "(let-values()" -" (let-values (((m_23) (regexp-match-positions '#rx\"/+\" collection_2)))" -"(if m_23" -"(if(=(caar m_23)(sub1(string-length collection_2)))" -"(let-values()(values(substring collection_2 0(caar m_23)) collection-path_2))" +" (let-values (((m_22) (regexp-match-positions '#rx\"/+\" collection_2)))" +"(if m_22" +"(if(=(caar m_22)(sub1(string-length collection_2)))" +"(let-values()(values(substring collection_2 0(caar m_22)) collection-path_2))" "(let-values()" "(values" -"(substring collection_2 0(caar m_23))" -"(cons(substring collection_2(cdar m_23)) collection-path_2))))" +"(substring collection_2 0(caar m_22))" +"(cons(substring collection_2(cdar m_22)) collection-path_2))))" "(values collection_2 collection-path_2))))" "(let-values()" "(let-values(((base_21 name_67 dir?_6)(split-path collection_2)))" @@ -46126,7 +46139,7 @@ static const char *startup_source = "(let-values(((collection_3 collection-path_3)" "(normalize-collection-reference collection-in_0 collection-path-in_0)))" "(let-values(((all-paths_0)" -"(let-values(((sym_89)" +"(let-values(((sym_90)" "(string->symbol" "(if(path? collection_3)(path->string collection_3) collection_3))))" "((letrec-values(((loop_104)" @@ -46141,14 +46154,14 @@ static const char *startup_source = "(if(hash?(car l_79))" "(let-values()" "(append" -"(map2 box(hash-ref(car l_79) sym_89 null))" +"(map2 box(hash-ref(car l_79) sym_90 null))" "(hash-ref(car l_79) #f null)" "(loop_104(cdr l_79))))" "(let-values()" -"(let-values(((ht_151)(get-linked-collections(car l_79))))" +"(let-values(((ht_150)(get-linked-collections(car l_79))))" "(append" -"(hash-ref ht_151 sym_89 null)" -"(hash-ref ht_151 #f null)" +"(hash-ref ht_150 sym_90 null)" +"(hash-ref ht_150 #f null)" "(loop_104(cdr l_79))))))))))))" " loop_104)" "(1/current-library-collection-links)))))" @@ -46267,8 +46280,8 @@ static const char *startup_source = "(done_1 cpath_0)" "(cloop_0" "(cdr paths_1)" -"(let-values(((or-part_225) found-col_0))" -"(if or-part_225 or-part_225 cpath_0))))" +"(let-values(((or-part_226) found-col_0))" +"(if or-part_226 or-part_226 cpath_0))))" "(done_1 cpath_0))" "(cloop_0(cdr paths_1) found-col_0)))" "(cloop_0(cdr paths_1) found-col_0))))))))" @@ -46338,13 +46351,13 @@ static const char *startup_source = "(if(null? l_80)" " null" "(let-values(((collects-path_1)(car l_80)))" -"(let-values(((v_198)" +"(let-values(((v_197)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_198" +"(if v_197" "(cons" "(simplify-path" -"(path->complete-path v_198(current-directory)))" +"(path->complete-path v_197(current-directory)))" "(loop_86(cdr l_80)))" "(loop_86(cdr l_80))))))))))" " loop_86)" @@ -46494,43 +46507,43 @@ static const char *startup_source = " indentations_0" " keep-comment?_0))))" "(define-values(read-config-wrap)(lambda(v_184)(begin(read-config/outer-wrap v_184))))" -"(define-values(read-config-line)(lambda(v_199)(begin(read-config/outer-line v_199))))" -"(define-values(read-config-col)(lambda(v_200)(begin(read-config/outer-col v_200))))" -"(define-values(read-config-pos)(lambda(v_201)(begin(read-config/outer-pos v_201))))" -"(define-values(read-config-indentations)(lambda(v_202)(begin(read-config/outer-indentations v_202))))" -"(define-values(read-config-keep-comment?)(lambda(v_203)(begin(read-config/outer-keep-comment? v_203))))" +"(define-values(read-config-line)(lambda(v_198)(begin(read-config/outer-line v_198))))" +"(define-values(read-config-col)(lambda(v_199)(begin(read-config/outer-col v_199))))" +"(define-values(read-config-pos)(lambda(v_200)(begin(read-config/outer-pos v_200))))" +"(define-values(read-config-indentations)(lambda(v_201)(begin(read-config/outer-indentations v_201))))" +"(define-values(read-config-keep-comment?)(lambda(v_202)(begin(read-config/outer-keep-comment? v_202))))" "(define-values" "(read-config-readtable)" -"(lambda(v_204)(begin(read-config/inner-readtable(read-config/outer-inner v_204)))))" +"(lambda(v_203)(begin(read-config/inner-readtable(read-config/outer-inner v_203)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_189)(begin(read-config/inner-next-readtable(read-config/outer-inner v_189)))))" +"(lambda(v_188)(begin(read-config/inner-next-readtable(read-config/outer-inner v_188)))))" "(define-values" "(read-config-for-syntax?)" "(lambda(v_94)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_94)))))" "(define-values(read-config-source)(lambda(v_74)(begin(read-config/inner-source(read-config/outer-inner v_74)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_205)(begin(read-config/inner-read-compiled(read-config/outer-inner v_205)))))" +"(lambda(v_204)(begin(read-config/inner-read-compiled(read-config/outer-inner v_204)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_206)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_206)))))" +"(lambda(v_205)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_205)))))" "(define-values" "(read-config-module-declared?)" "(lambda(v_41)(begin(read-config/inner-module-declared?(read-config/outer-inner v_41)))))" "(define-values" "(read-config-coerce)" -"(lambda(v_207)(begin(read-config/inner-coerce(read-config/outer-inner v_207)))))" +"(lambda(v_206)(begin(read-config/inner-coerce(read-config/outer-inner v_206)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_208)(begin(read-config/inner-coerce-key(read-config/outer-inner v_208)))))" +"(lambda(v_207)(begin(read-config/inner-coerce-key(read-config/outer-inner v_207)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_198)(begin(read-config/inner-parameter-override(read-config/outer-inner v_198)))))" +"(lambda(v_197)(begin(read-config/inner-parameter-override(read-config/outer-inner v_197)))))" "(define-values" "(read-config-parameter-cache)" -"(lambda(v_209)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_209)))))" -"(define-values(read-config-st)(lambda(v_210)(begin(read-config/inner-st(read-config/outer-inner v_210)))))" +"(lambda(v_208)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_208)))))" +"(define-values(read-config-st)(lambda(v_209)(begin(read-config/inner-st(read-config/outer-inner v_209)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -46612,16 +46625,16 @@ static const char *startup_source = "(let-values(((or-part_100) dynamic-require_1))" "(if or-part_100" " or-part_100" -"(lambda(mod-path_25 sym_90 failure-k_0)" +"(lambda(mod-path_25 sym_91 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_228) module-declared?_1))" -"(if or-part_228" -" or-part_228" +"(let-values(((or-part_229) module-declared?_1))" +"(if or-part_229" +" or-part_229" " (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))" -"(let-values(((or-part_303) coerce_1))" -"(if or-part_303 or-part_303(lambda(for-syntax?_2 v_112 srcloc_9) v_112)))" -"(let-values(((or-part_304) coerce-key_1))" -"(if or-part_304 or-part_304(lambda(for-syntax?_3 v_116) v_116)))" +"(let-values(((or-part_300) coerce_1))" +"(if or-part_300 or-part_300(lambda(for-syntax?_2 v_112 srcloc_9) v_112)))" +"(let-values(((or-part_301) coerce-key_1))" +"(if or-part_301 or-part_301(lambda(for-syntax?_3 v_116) v_116)))" " #f" " #f" " #f" @@ -46651,14 +46664,14 @@ 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_211) config_0))" -"(let-values(((the-struct_81) v_211))" -"(if(read-config/outer? the-struct_81)" +"(let-values(((v_210) config_0))" +"(let-values(((the-struct_80) v_210))" +"(if(read-config/outer? the-struct_80)" "(let-values(((wrap48_0) wrap_5)" "((keep-comment?49_0) keep-comment?_2)" "((inner50_1)" -"(let-values(((the-struct_82)(read-config/outer-inner v_211)))" -"(if(read-config/inner? the-struct_82)" +"(let-values(((the-struct_81)(read-config/outer-inner v_210)))" +"(if(read-config/inner? the-struct_81)" "(let-values(((for-syntax?51_0) for-syntax?_4)" "((readtable52_0) readtable_2)" "((next-readtable53_0) next-readtable_2)" @@ -46670,25 +46683,25 @@ static const char *startup_source = " readtable52_0" " next-readtable53_0" " for-syntax?51_0" -"(read-config/inner-source the-struct_82)" -"(read-config/inner-read-compiled the-struct_82)" -"(read-config/inner-dynamic-require the-struct_82)" -"(read-config/inner-module-declared? the-struct_82)" -"(read-config/inner-coerce the-struct_82)" -"(read-config/inner-coerce-key the-struct_82)" -"(read-config/inner-parameter-override the-struct_82)" -"(read-config/inner-parameter-cache the-struct_82)" +"(read-config/inner-source the-struct_81)" +"(read-config/inner-read-compiled the-struct_81)" +"(read-config/inner-dynamic-require the-struct_81)" +"(read-config/inner-module-declared? the-struct_81)" +"(read-config/inner-coerce the-struct_81)" +"(read-config/inner-coerce-key the-struct_81)" +"(read-config/inner-parameter-override the-struct_81)" +"(read-config/inner-parameter-cache the-struct_81)" " st54_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_82)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_81)))))" "(read-config/outer1.1" " inner50_1" " wrap48_0" -"(read-config/outer-line the-struct_81)" -"(read-config/outer-col the-struct_81)" -"(read-config/outer-pos the-struct_81)" -"(read-config/outer-indentations the-struct_81)" +"(read-config/outer-line the-struct_80)" +"(read-config/outer-col the-struct_80)" +"(read-config/outer-pos the-struct_80)" +"(read-config/outer-indentations the-struct_80)" " keep-comment?49_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))))))))))" "(define-values" "(port+config->srcloc)" "(lambda(in_1 config_1)" @@ -46704,56 +46717,56 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_105)" "(begin" -"(let-values(((v_212) config_2))" -"(let-values(((the-struct_83) v_212))" -"(if(read-config/outer? the-struct_83)" +"(let-values(((v_211) config_2))" +"(let-values(((the-struct_82) v_211))" +"(if(read-config/outer? the-struct_82)" "(let-values(((line55_0) line_2)" "((col56_0) col_1)" "((pos57_0) pos_105)" -"((inner58_1)(read-config/outer-inner v_212)))" +"((inner58_1)(read-config/outer-inner v_211)))" "(read-config/outer1.1" " inner58_1" -"(read-config/outer-wrap the-struct_83)" +"(read-config/outer-wrap the-struct_82)" " line55_0" " col56_0" " pos57_0" -"(read-config/outer-indentations the-struct_83)" -"(read-config/outer-keep-comment? the-struct_83)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))" +"(read-config/outer-indentations the-struct_82)" +"(read-config/outer-keep-comment? the-struct_82)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))" "(define-values" "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_213) config_3))" -"(let-values(((the-struct_84) v_213))" -"(if(read-config/outer? the-struct_84)" -"(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_213)))" +"(let-values(((v_212) config_3))" +"(let-values(((the-struct_83) v_212))" +"(if(read-config/outer? the-struct_83)" +"(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_212)))" "(read-config/outer1.1" " inner60_0" " wrap59_0" -"(read-config/outer-line the-struct_84)" -"(read-config/outer-col the-struct_84)" -"(read-config/outer-pos the-struct_84)" -"(read-config/outer-indentations the-struct_84)" -"(read-config/outer-keep-comment? the-struct_84)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))" +"(read-config/outer-line the-struct_83)" +"(read-config/outer-col the-struct_83)" +"(read-config/outer-pos the-struct_83)" +"(read-config/outer-indentations the-struct_83)" +"(read-config/outer-keep-comment? the-struct_83)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))" "(define-values" "(keep-comment)" "(lambda(config_4)" "(begin" "(let-values(((v_146) config_4))" -"(let-values(((the-struct_85) v_146))" -"(if(read-config/outer? the-struct_85)" +"(let-values(((the-struct_84) v_146))" +"(if(read-config/outer? the-struct_84)" "(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_146)))" "(read-config/outer1.1" " inner62_0" -"(read-config/outer-wrap the-struct_85)" -"(read-config/outer-line the-struct_85)" -"(read-config/outer-col the-struct_85)" -"(read-config/outer-pos the-struct_85)" -"(read-config/outer-indentations the-struct_85)" +"(read-config/outer-wrap the-struct_84)" +"(read-config/outer-line the-struct_84)" +"(read-config/outer-col the-struct_84)" +"(read-config/outer-pos the-struct_84)" +"(read-config/outer-indentations the-struct_84)" " keep-comment?61_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_85)))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))" "(define-values" "(discard-comment)" "(lambda(config_5)" @@ -46761,19 +46774,19 @@ static const char *startup_source = "(if(not(read-config-keep-comment? config_5))" "(let-values() config_5)" "(let-values()" -"(let-values(((v_214) config_5))" -"(let-values(((the-struct_86) v_214))" -"(if(read-config/outer? the-struct_86)" -"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_214)))" +"(let-values(((v_213) config_5))" +"(let-values(((the-struct_85) v_213))" +"(if(read-config/outer? the-struct_85)" +"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_213)))" "(read-config/outer1.1" " inner64_0" -"(read-config/outer-wrap the-struct_86)" -"(read-config/outer-line the-struct_86)" -"(read-config/outer-col the-struct_86)" -"(read-config/outer-pos the-struct_86)" -"(read-config/outer-indentations the-struct_86)" +"(read-config/outer-wrap the-struct_85)" +"(read-config/outer-line the-struct_85)" +"(read-config/outer-col the-struct_85)" +"(read-config/outer-pos the-struct_85)" +"(read-config/outer-indentations the-struct_85)" " keep-comment?63_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_86)))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_85)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -46781,36 +46794,36 @@ 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_215) config_6))" -"(let-values(((the-struct_87) v_215))" -"(if(read-config/outer? the-struct_87)" +"(let-values(((v_214) config_6))" +"(let-values(((the-struct_86) v_214))" +"(if(read-config/outer? the-struct_86)" "(let-values(((inner65_0)" -"(let-values(((the-struct_88)(read-config/outer-inner v_215)))" -"(if(read-config/inner? the-struct_88)" +"(let-values(((the-struct_87)(read-config/outer-inner v_214)))" +"(if(read-config/inner? the-struct_87)" "(let-values(((readtable66_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" " readtable66_0" -"(read-config/inner-next-readtable the-struct_88)" -"(read-config/inner-for-syntax? the-struct_88)" -"(read-config/inner-source the-struct_88)" -"(read-config/inner-read-compiled the-struct_88)" -"(read-config/inner-dynamic-require the-struct_88)" -"(read-config/inner-module-declared? the-struct_88)" -"(read-config/inner-coerce the-struct_88)" -"(read-config/inner-coerce-key the-struct_88)" -"(read-config/inner-parameter-override the-struct_88)" -"(read-config/inner-parameter-cache the-struct_88)" -"(read-config/inner-st the-struct_88)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_88)))))" +"(read-config/inner-next-readtable the-struct_87)" +"(read-config/inner-for-syntax? the-struct_87)" +"(read-config/inner-source the-struct_87)" +"(read-config/inner-read-compiled the-struct_87)" +"(read-config/inner-dynamic-require the-struct_87)" +"(read-config/inner-module-declared? the-struct_87)" +"(read-config/inner-coerce the-struct_87)" +"(read-config/inner-coerce-key the-struct_87)" +"(read-config/inner-parameter-override the-struct_87)" +"(read-config/inner-parameter-cache the-struct_87)" +"(read-config/inner-st the-struct_87)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_87)))))" "(read-config/outer1.1" " inner65_0" -"(read-config/outer-wrap the-struct_87)" -"(read-config/outer-line the-struct_87)" -"(read-config/outer-col the-struct_87)" -"(read-config/outer-pos the-struct_87)" -"(read-config/outer-indentations the-struct_87)" -"(read-config/outer-keep-comment? the-struct_87)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_87)))))))))" +"(read-config/outer-wrap the-struct_86)" +"(read-config/outer-line the-struct_86)" +"(read-config/outer-col the-struct_86)" +"(read-config/outer-pos the-struct_86)" +"(read-config/outer-indentations the-struct_86)" +"(read-config/outer-keep-comment? the-struct_86)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_86)))))))))" "(define-values" "(coerce)" "(lambda(val_74 in_2 config_7)" @@ -46820,20 +46833,20 @@ static const char *startup_source = " for-syntax?_5" " val_74" "(if for-syntax?_5(port+config->srcloc in_2 config_7) #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_216)(begin 'default-reader-guard v_216)))" +"(define-values(default-reader-guard$1)(lambda(v_215)(begin 'default-reader-guard v_215)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_217)" +"(lambda(v_216)" "(begin" -"(if(if(procedure? v_217)(procedure-arity-includes? v_217 1) #f)" +"(if(if(procedure? v_216)(procedure-arity-includes? v_216 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_217)))" -" v_217))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_216)))" +" v_216))))" "(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_218)(if v_218 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_219)(if v_219 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_217)(if v_217 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_218)(if v_218 #t #f))))" "(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_65)(if v_65 #t #f))))" "(define-values(1/read-cdot)(make-parameter #f(lambda(v_32)(if v_32 #t #f))))" "(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_66)(if v_66 #t #f))))" @@ -46861,36 +46874,36 @@ static const char *startup_source = "(lambda(param_1 config_9 v_31)" "(begin" "(let-values(((v_95) config_9))" -"(let-values(((the-struct_89) v_95))" -"(if(read-config/outer? the-struct_89)" +"(let-values(((the-struct_88) v_95))" +"(if(read-config/outer? the-struct_88)" "(let-values(((inner1_0)" -"(let-values(((the-struct_90)(read-config/outer-inner v_95)))" -"(if(read-config/inner? the-struct_90)" +"(let-values(((the-struct_89)(read-config/outer-inner v_95)))" +"(if(read-config/inner? the-struct_89)" "(let-values(((parameter-override2_0)" "(hash-set(read-config-parameter-override config_9) param_1 v_31)))" "(read-config/inner2.1" -"(read-config/inner-readtable the-struct_90)" -"(read-config/inner-next-readtable the-struct_90)" -"(read-config/inner-for-syntax? the-struct_90)" -"(read-config/inner-source the-struct_90)" -"(read-config/inner-read-compiled the-struct_90)" -"(read-config/inner-dynamic-require the-struct_90)" -"(read-config/inner-module-declared? the-struct_90)" -"(read-config/inner-coerce the-struct_90)" -"(read-config/inner-coerce-key the-struct_90)" +"(read-config/inner-readtable the-struct_89)" +"(read-config/inner-next-readtable the-struct_89)" +"(read-config/inner-for-syntax? the-struct_89)" +"(read-config/inner-source the-struct_89)" +"(read-config/inner-read-compiled the-struct_89)" +"(read-config/inner-dynamic-require the-struct_89)" +"(read-config/inner-module-declared? the-struct_89)" +"(read-config/inner-coerce the-struct_89)" +"(read-config/inner-coerce-key the-struct_89)" " parameter-override2_0" -"(read-config/inner-parameter-cache the-struct_90)" -"(read-config/inner-st the-struct_90)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_90)))))" +"(read-config/inner-parameter-cache the-struct_89)" +"(read-config/inner-st the-struct_89)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_89)))))" "(read-config/outer1.1" " inner1_0" -"(read-config/outer-wrap the-struct_89)" -"(read-config/outer-line the-struct_89)" -"(read-config/outer-col the-struct_89)" -"(read-config/outer-pos the-struct_89)" -"(read-config/outer-indentations the-struct_89)" -"(read-config/outer-keep-comment? the-struct_89)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_89)))))))" +"(read-config/outer-wrap the-struct_88)" +"(read-config/outer-line the-struct_88)" +"(read-config/outer-col the-struct_88)" +"(read-config/outer-pos the-struct_88)" +"(read-config/outer-indentations the-struct_88)" +"(read-config/outer-keep-comment? the-struct_88)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_88)))))))" "(define-values" "(force-parameters!)" "(lambda(config_10)" @@ -46985,8 +46998,8 @@ static const char *startup_source = "(let-values(((key_84)(car args_11)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_175)(not key_84)))" -"(if or-part_175 or-part_175(char? key_84)))" +"(if(let-values(((or-part_176)(not key_84)))" +"(if or-part_176 or-part_176(char? key_84)))" "(void)" "(let-values()" "(raise-argument-error" @@ -47018,20 +47031,20 @@ static const char *startup_source = "(begin" "(if key_84" "(let-values()" -"(if(let-values(((or-part_176)" +"(if(let-values(((or-part_177)" "(eq? mode_16 'terminating-macro)))" -"(if or-part_176" -" or-part_176" +"(if or-part_177" +" or-part_177" "(let-values(((or-part_39)" "(eq?" " mode_16" " 'non-terminating-macro)))" "(if or-part_39" " or-part_39" -"(let-values(((or-part_305)" +"(let-values(((or-part_302)" "(eq? mode_16 'dispatch-macro)))" -"(if or-part_305" -" or-part_305" +"(if or-part_302" +" or-part_302" "(char? mode_16)))))))" "(void)" "(let-values()" @@ -47115,14 +47128,14 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((actual-target_0)" -"(let-values(((or-part_177)" +"(let-values(((or-part_178)" "(if target_0" "(hash-ref" "(readtable-char-ht target_0)" " mode_16" " #f)" " #f)))" -"(if or-part_177 or-part_177 mode_16))))" +"(if or-part_178 or-part_178 mode_16))))" "(let-values(((new-char-ht_0)" "(if actual-target_0" "(hash-set" @@ -47215,7 +47228,7 @@ static const char *startup_source = "(lambda(handler_0 c_59 in_3 config_14 line_3 col_2 pos_106)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_220)" +"(let-values(((v_219)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -47237,7 +47250,7 @@ static const char *startup_source = " config_14)" "(let-values()" "(handler_0 c_59 in_3(read-config-source config_14) line_3 col_2 pos_106)))))))" -"(if(1/special-comment? v_220) v_220(coerce v_220 in_3 config_14)))))))" +"(if(1/special-comment? v_219) v_219(coerce v_219 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_60)" @@ -47255,7 +47268,7 @@ static const char *startup_source = "(values))))" "(let-values(((handler_1)(hash-ref(readtable-char-ht rt_5) c_60 #f)))" "(values" -"(let-values(((or-part_235)" +"(let-values(((or-part_236)" "(if handler_1" "(if(char? handler_1)" "(let-values() handler_1)" @@ -47263,29 +47276,29 @@ static const char *startup_source = "(let-values() 'terminating-macro)" "(let-values() 'non-terminating-macro)))" " #f)))" -"(if or-part_235 or-part_235 c_60))" +"(if or-part_236 or-part_236 c_60))" "(if(char? handler_1) #f handler_1)" "(hash-ref(readtable-dispatch-ht rt_5) c_60 #f))))))))" "(define-values" "(readtable-equivalent-chars)" "(lambda(rt_6 c_61)" "(begin" -"(let-values(((ht_152)(readtable-char-ht rt_6)))" +"(let-values(((ht_151)(readtable-char-ht rt_6)))" "(append" -"(if(hash-ref ht_152 c_61 #f) null(list c_61))" +"(if(hash-ref ht_151 c_61 #f) null(list c_61))" "(reverse$1" -"(let-values(((ht_153) ht_152))" +"(let-values(((ht_152) ht_151))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_153)))" -"((letrec-values(((for-loop_257)" -"(lambda(fold-var_79 i_173)" +"(let-values()(check-in-hash ht_152)))" +"((letrec-values(((for-loop_260)" +"(lambda(fold-var_79 i_172)" "(begin" " 'for-loop" -"(if i_173" -"(let-values(((k_39 v_90)(hash-iterate-key+value ht_153 i_173)))" -"(let-values(((fold-var_268)" +"(if i_172" +"(let-values(((k_39 v_90)(hash-iterate-key+value ht_152 i_172)))" +"(let-values(((fold-var_269)" "(let-values(((fold-var_82) fold-var_79))" "(if(eqv? v_90 c_61)" "(let-values(((fold-var_233) fold-var_82))" @@ -47295,12 +47308,12 @@ static const char *startup_source = "(values fold-var_13)))" " fold-var_82))))" "(if(not #f)" -"(for-loop_257 fold-var_268(hash-iterate-next ht_153 i_173))" -" fold-var_268)))" +"(for-loop_260 fold-var_269(hash-iterate-next ht_152 i_172))" +" fold-var_269)))" " fold-var_79)))))" -" for-loop_257)" +" for-loop_260)" " null" -"(hash-iterate-first ht_153))))))))))" +"(hash-iterate-first ht_152))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" "(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" @@ -47378,8 +47391,8 @@ static const char *startup_source = " 'with-handlers-handler27" " (let-values (((temp30_2) \"~a\")" "((temp31_4)" -"(let-values(((s_466)(exn-message exn_2)))" -" (regexp-replace \"^[a-z-]*: \" s_466 \"\")))" +"(let-values(((s_470)(exn-message exn_2)))" +" (regexp-replace \"^[a-z-]*: \" s_470 \"\")))" "((temp32_2)(exn-continuation-marks exn_2)))" "(reader-error10.1 temp32_2 #t #f #f #f #f in_8 config_18 temp30_2(list temp31_4)))))))" "(let-values(((bpz_3)(continuation-mark-set-first #f break-enabled-key)))" @@ -47445,10 +47458,10 @@ static const char *startup_source = " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_299)" +"(if(let-values(((or-part_295)" "(eof-object? c_48)))" -"(if or-part_299" -" or-part_299" +"(if or-part_295" +" or-part_295" "(eqv?" " '#\\newline" "(effective-char c_48 config_15))))" @@ -47626,12 +47639,12 @@ static const char *startup_source = "(let-values(((or-part_32)(char-whitespace? dc_0)))" "(if or-part_32" " or-part_32" -"(let-values(((or-part_306)(char=? dc_0 '#\\()))" -"(if or-part_306" -" or-part_306" -"(let-values(((or-part_291)(char=? dc_0 '#\\))))" -"(if or-part_291" -" or-part_291" +"(let-values(((or-part_303)(char=? dc_0 '#\\()))" +"(if or-part_303" +" or-part_303" +"(let-values(((or-part_287)(char=? dc_0 '#\\))))" +"(if or-part_287" +" or-part_287" "(let-values(((or-part_33)(char=? dc_0 '#\\[)))" "(if or-part_33" " or-part_33" @@ -47647,9 +47660,9 @@ static const char *startup_source = "(let-values(((or-part_13)(char=? dc_0 '#\\')))" "(if or-part_13" " or-part_13" -"(let-values(((or-part_222)(char=? dc_0 '#\\`)))" -"(if or-part_222" -" or-part_222" +"(let-values(((or-part_223)(char=? dc_0 '#\\`)))" +"(if or-part_223" +" or-part_223" "(let-values(((or-part_3)(char=? dc_0 '#\\,)))" "(if or-part_3" " or-part_3" @@ -47727,9 +47740,9 @@ static const char *startup_source = "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" "(if(if s_10 c_49 #f)" " (let-values () (format \"~a, ~a, or ~a\" p_60 s_10 c_49))" -"(if(let-values(((or-part_298) s_10))(if or-part_298 or-part_298 c_49))" +"(if(let-values(((or-part_294) s_10))(if or-part_294 or-part_294 c_49))" "(let-values()" -" (format \"~a or ~a\" p_60 (let-values (((or-part_299) s_10)) (if or-part_299 or-part_299 c_49))))" +" (format \"~a or ~a\" p_60 (let-values (((or-part_295) s_10)) (if or-part_295 or-part_295 c_49))))" "(let-values() p_60)))))))))" "(define-values" "(struct:accum-string" @@ -47911,20 +47924,20 @@ static const char *startup_source = " (let-values () (format \"unexpected `~a`\" c_43))" "(let-values()" "(let-values(((missing_2)" -"(let-values(((or-part_268)" -"(let-values(((lst_296)(cdr indts_1)))" +"(let-values(((or-part_299)" +"(let-values(((lst_295)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_296)))" -"((letrec-values(((for-loop_258)" -"(lambda(result_37 lst_297)" +"(let-values()(check-list lst_295)))" +"((letrec-values(((for-loop_261)" +"(lambda(result_37 lst_296)" "(begin" " 'for-loop" -"(if(pair? lst_297)" -"(let-values(((indt_3)(unsafe-car lst_297))" -"((rest_169)" -"(unsafe-cdr lst_297)))" +"(if(pair? lst_296)" +"(let-values(((indt_3)(unsafe-car lst_296))" +"((rest_167)" +"(unsafe-cdr lst_296)))" "(let-values(((result_114)" "(let-values()" "(let-values(((result_76)" @@ -47942,13 +47955,13 @@ static const char *startup_source = " indt_3))" "(not #f)" " #f)" -"(for-loop_258 result_114 rest_169)" +"(for-loop_261 result_114 rest_167)" " result_114)))" " result_37)))))" -" for-loop_258)" +" for-loop_261)" " #f" -" lst_296)))))" -" (if or-part_268 or-part_268 \"expected\"))))" +" lst_295)))))" +" (if or-part_299 or-part_299 \"expected\"))))" "(let-values(((opener-str_0)(opener-name(closer->opener(indentation-closer indt_2)) config_33)))" "(format" " \"~a ~a to close ~a, found instead `~a`\"" @@ -48139,7 +48152,7 @@ static const char *startup_source = " temp31_5" "(list)))))" "(values))))" -"(let-values(((v_221)" +"(let-values(((v_220)" "(read-one/not-eof_0" " #f" " first-read-one_1" @@ -48160,11 +48173,11 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_221" +" v_220" "(append" "(reverse$1" " accum_0)" -" v_221)))" +" v_220)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" @@ -48203,7 +48216,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_221))" +" v_220))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -48288,12 +48301,12 @@ static const char *startup_source = " temp39_5" "(list)))))))))))))" "(let-values()" -"(let-values(((v_196)" +"(let-values(((v_195)" "(read-one/not-eof_0" " c_67" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_196)" +"(if(1/special-comment? v_195)" "(let-values()" "(loop_109" " depth_11" @@ -48305,13 +48318,13 @@ static const char *startup_source = "(let-values()" "(loop_109" " depth_11" -"(cons v_196 accum_0)" +"(cons v_195 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_196" +" v_195" "(loop_109" "(add1 depth_11)" " null" @@ -48340,10 +48353,10 @@ static const char *startup_source = "(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_35) '#%braces #f))" "(let-values() #f))))))" "(if tag_0(cons(wrap tag_0 in_22 config_35 #f) seq_1) seq_1)))))" -" (define-values (not-an-fX.1) (lambda (who_26 v_222) (begin 'not-an-fX (raise-argument-error who_26 \"fixnum?\" v_222))))" +" (define-values (not-an-fX.1) (lambda (who_26 v_221) (begin 'not-an-fX (raise-argument-error who_26 \"fixnum?\" v_221))))" "(define-values" "(not-an-fX.1$1)" -" (lambda (who_26 v_222) (begin 'not-an-fX (raise-argument-error who_26 \"flonum?\" v_222))))" +" (lambda (who_26 v_221) (begin 'not-an-fX (raise-argument-error who_26 \"flonum?\" v_221))))" "(define-values" "(read-digits13.1)" "(lambda(base1_0" @@ -48379,11 +48392,11 @@ static const char *startup_source = "(consume-char in_12 c_69)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_69))(void))" "((letrec-values(((loop_65)" -"(lambda(v_223 max-count_1)" +"(lambda(v_222 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_223)" +"(let-values() v_222)" "(let-values()" "(let-values(((c_39)" "(let-values(((in_24) in_12)" @@ -48407,9 +48420,9 @@ static const char *startup_source = "(let-values()(accum-string-add! accum-str_0 c_39))" "(void))" "(loop_65" -"(+(digit->number c_39)(* v_223 base_22))" +"(+(digit->number c_39)(* v_222 base_22))" "(sub1 max-count_1))))" -"(let-values() v_223)))))))))" +"(let-values() v_222)))))))))" " loop_65)" "(+(digit->number c_69)(* init-v_0 base_22))" "(sub1 max-count_0))))" @@ -48432,9 +48445,9 @@ static const char *startup_source = "(hex-digit?)" "(lambda(c_74)" "(begin" -"(let-values(((or-part_307)(if(char>=? c_74 '#\\0)(char<=? c_74 '#\\9) #f)))" -"(if or-part_307" -" or-part_307" +"(let-values(((or-part_304)(if(char>=? c_74 '#\\0)(char<=? c_74 '#\\9) #f)))" +"(if or-part_304" +" or-part_304" "(let-values(((or-part_108)(if(char>=? c_74 '#\\A)(char<=? c_74 '#\\F) #f)))" "(if or-part_108 or-part_108(if(char>=? c_74 '#\\a)(char<=? c_74 '#\\f) #f))))))))" "(define-values" @@ -48508,11 +48521,11 @@ static const char *startup_source = " decimal-mode74_0" " convert-mode75_0))))))))))))))" "(case-lambda" -"((s_467)(begin 'string->number(string->number8_0 s_467 #f #f #f #f #f #f)))" -"((s_468 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_468 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_471)(begin 'string->number(string->number8_0 s_471 #f #f #f #f #f #f)))" +"((s_472 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_472 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" "((s_78 radix_2 convert-mode2_1)(string->number8_0 s_78 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_428 radix1_1)(string->number8_0 s_428 radix1_1 #f #f #t #f #f)))))" +"((s_434 radix1_1)(string->number8_0 s_434 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -48631,8 +48644,8 @@ static const char *startup_source = "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" -"(if(let-values(((or-part_267)(exactness-set? exactness_0)))" -"(if or-part_267 or-part_267 in-complex_0))" +"(if(let-values(((or-part_268)(exactness-set? exactness_0)))" +"(if or-part_268 or-part_268 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" @@ -48646,10 +48659,10 @@ static const char *startup_source = "((radix79_0) radix_3)" "((radix-set?80_0) radix-set?_0)" "((temp81_1)" -"(if(let-values(((or-part_308)" +"(if(let-values(((or-part_305)" "(char=? i_35 '#\\e)))" -"(if or-part_308" -" or-part_308" +"(if or-part_305" +" or-part_305" "(char=? i_35 '#\\E)))" " 'exact" " 'inexact))" @@ -48717,13 +48730,13 @@ static const char *startup_source = "(read-special-number s_22 start_44 end_33 convert-mode_2)" " #f)))" "(if c1_28" -"((lambda(v_224)" +"((lambda(v_223)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_224))" +" (let-values () (format \"no exact representation for `~a`\" v_223))" "(let-values() #f)))" -"(let-values() v_224)))" +"(let-values() v_223)))" " c1_28)" "(let-values(((c2_3)" "(if(char-sign? c_75)" @@ -48742,17 +48755,17 @@ static const char *startup_source = " #f)" " #f)))" "(if c2_3" -"((lambda(v_225)" +"((lambda(v_224)" "(let-values(((temp91_0)(+ start_44 6))" "((temp92_1)(sub1 end_33))" "((radix93_0) radix_3)" "((exactness94_0) exactness_0)" "((convert-mode95_0) convert-mode_2)" "((temp96_3) 'i)" -"((v97_0) v_225)" +"((v97_0) v_224)" "((temp98_3)" -"(lambda(v_226 v2_1)" -"(begin 'temp98(make-rectangular v_226 v2_1)))))" +"(lambda(v_225 v2_1)" +"(begin 'temp98(make-rectangular v_225 v2_1)))))" "(read-for-special-compound65.1" " temp96_3" " #f" @@ -48793,8 +48806,8 @@ static const char *startup_source = "((temp106_2) #t)" "((v2107_0) v2_2)" "((temp108_2)" -"(lambda(v2_3 v_200)" -"(begin 'temp108(make-rectangular v_200 v2_3)))))" +"(lambda(v2_3 v_199)" +"(begin 'temp108(make-rectangular v_199 v2_3)))))" "(read-for-special-compound65.1" " temp105_2" " temp106_2" @@ -48823,17 +48836,17 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_202)" +"((lambda(v_201)" "(let-values(((temp110_4)(+ start_44 7))" "((end111_0) end_33)" "((radix112_0) radix_3)" "((exactness113_0) exactness_0)" "((convert-mode114_0) convert-mode_2)" "((temp115_0) '@)" -"((v116_0) v_202)" +"((v116_0) v_201)" "((temp117_3)" -"(lambda(v_207 v2_4)" -"(begin 'temp117(make-polar v_207 v2_4)))))" +"(lambda(v_206 v2_4)" +"(begin 'temp117(make-polar v_206 v2_4)))))" "(read-for-special-compound65.1" " temp115_0" " #f" @@ -48869,8 +48882,8 @@ static const char *startup_source = "((temp125_2) #t)" "((v2126_0) v2_5)" "((temp127_3)" -"(lambda(v2_6 v_227)" -"(begin 'temp127(make-polar v_227 v2_6)))))" +"(lambda(v2_6 v_226)" +"(begin 'temp127(make-polar v_226 v2_6)))))" "(read-for-special-compound65.1" " temp124_3" " temp125_2" @@ -48922,7 +48935,7 @@ static const char *startup_source = "(let-values(((convert-mode_3) convert-mode32_0))" "(let-values()" "((letrec-values(((loop_110)" -"(lambda(i_174" +"(lambda(i_173" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -48934,7 +48947,7 @@ static const char *startup_source = " must-i?_0)" "(begin" " 'loop" -"(if(= i_174 end_34)" +"(if(= i_173 end_34)" "(let-values()" "(if(if(not any-digits?_0)(not i-pos_3) #f)" "(let-values()" @@ -48953,10 +48966,10 @@ static const char *startup_source = "(substring s_86 start_45 end_34)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_309)" +"(let-values(((or-part_306)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_309" -" or-part_309" +"(if or-part_306" +" or-part_306" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -49026,11 +49039,11 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_76)(string-ref s_86 i_174)))" +"(let-values(((c_76)(string-ref s_86 i_173)))" "(if(digit? c_76 radix_5)" "(let-values()" "(loop_110" -"(add1 i_174)" +"(add1 i_173)" " #t" " any-hashes?_0" " i-pos_3" @@ -49043,7 +49056,7 @@ static const char *startup_source = "(if(char=? c_76 '#\\#)" "(let-values()" "(loop_110" -"(add1 i_174)" +"(add1 i_173)" " #t" " #t" " i-pos_3" @@ -49065,37 +49078,37 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_110" -"(add1 i_174)" +"(add1 i_173)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" -" i_174" +" i_173" " dot-pos_1" " slash-pos_0" " #f" -"(if(> i_174 start_45)" -"(let-values(((or-part_310)(not @-pos_0)))" -"(if or-part_310" -" or-part_310" -"(> i_174(add1 @-pos_0))))" +"(if(> i_173 start_45)" +"(let-values(((or-part_307)(not @-pos_0)))" +"(if or-part_307" +" or-part_307" +"(> i_173(add1 @-pos_0))))" " #f)))))" "(if(char=? c_76 '#\\.)" "(let-values()" -"(if(let-values(((or-part_311)" +"(if(let-values(((or-part_308)" "(if exp-pos_0" -"(let-values(((or-part_312)" +"(let-values(((or-part_309)" "(not sign-pos_0)))" -"(if or-part_312" -" or-part_312" +"(if or-part_309" +" or-part_309" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_311" -" or-part_311" +"(if or-part_308" +" or-part_308" "(if dot-pos_1" -"(let-values(((or-part_313)(not sign-pos_0)))" -"(if or-part_313" -" or-part_313" +"(let-values(((or-part_310)(not sign-pos_0)))" +"(if or-part_310" +" or-part_310" "(> dot-pos_1 sign-pos_0)))" " #f)))" "(let-values()" @@ -49120,13 +49133,13 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_110" -"(add1 i_174)" +"(add1 i_173)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" -" i_174" +" i_173" " #f" " #f" " must-i?_0)))))" @@ -49171,68 +49184,68 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_110" -"(add1 i_174)" +"(add1 i_173)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" " #f" -" i_174" +" i_173" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_314)(char=? c_76 '#\\e)))" +"(if(let-values(((or-part_311)(char=? c_76 '#\\e)))" +"(if or-part_311" +" or-part_311" +"(let-values(((or-part_312)(char=? c_76 '#\\E)))" +"(if or-part_312" +" or-part_312" +"(let-values(((or-part_313)" +"(char=? c_76 '#\\f)))" +"(if or-part_313" +" or-part_313" +"(let-values(((or-part_190)" +"(char=? c_76 '#\\F)))" +"(if or-part_190" +" or-part_190" +"(let-values(((or-part_314)" +"(char=? c_76 '#\\d)))" "(if or-part_314" " or-part_314" -"(let-values(((or-part_315)(char=? c_76 '#\\E)))" +"(let-values(((or-part_315)" +"(char=? c_76 '#\\D)))" "(if or-part_315" " or-part_315" "(let-values(((or-part_316)" -"(char=? c_76 '#\\f)))" +"(char=?" +" c_76" +" '#\\s)))" "(if or-part_316" " or-part_316" -"(let-values(((or-part_189)" -"(char=? c_76 '#\\F)))" -"(if or-part_189" -" or-part_189" "(let-values(((or-part_317)" -"(char=? c_76 '#\\d)))" +"(char=?" +" c_76" +" '#\\S)))" "(if or-part_317" " or-part_317" "(let-values(((or-part_318)" -"(char=? c_76 '#\\D)))" +"(char=?" +" c_76" +" '#\\l)))" "(if or-part_318" " or-part_318" "(let-values(((or-part_319)" "(char=?" " c_76" -" '#\\s)))" +" '#\\L)))" "(if or-part_319" " or-part_319" "(let-values(((or-part_320)" "(char=?" " c_76" -" '#\\S)))" +" '#\\t)))" "(if or-part_320" " or-part_320" -"(let-values(((or-part_321)" -"(char=?" -" c_76" -" '#\\l)))" -"(if or-part_321" -" or-part_321" -"(let-values(((or-part_322)" -"(char=?" -" c_76" -" '#\\L)))" -"(if or-part_322" -" or-part_322" -"(let-values(((or-part_323)" -"(char=?" -" c_76" -" '#\\t)))" -"(if or-part_323" -" or-part_323" "(char=?" " c_76" " '#\\T)))))))))))))))))))))))" @@ -49246,12 +49259,12 @@ static const char *startup_source = " c_76" "(substring s_86 start_45 end_34)))" "(let-values() #f)))" -"(if(if(<(add1 i_174) end_34)" -"(char-sign?(string-ref s_86(add1 i_174)))" +"(if(if(<(add1 i_173) end_34)" +"(char-sign?(string-ref s_86(add1 i_173)))" " #f)" "(let-values()" "(loop_110" -"(+ i_174 2)" +"(+ i_173 2)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49259,12 +49272,12 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_324) exp-pos_0))" -"(if or-part_324 or-part_324 i_174))" +"(let-values(((or-part_321) exp-pos_0))" +"(if or-part_321 or-part_321 i_173))" " must-i?_0))" "(let-values()" "(loop_110" -"(+ i_174 1)" +"(+ i_173 1)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49272,8 +49285,8 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_325) exp-pos_0))" -"(if or-part_325 or-part_325 i_174))" +"(let-values(((or-part_322) exp-pos_0))" +"(if or-part_322 or-part_322 i_173))" " must-i?_0)))))" "(if(char=? c_76 '#\\@)" "(let-values()" @@ -49285,9 +49298,9 @@ static const char *startup_source = " \"cannot mix `@` and `i` in `~.a`\"" "(substring s_86 start_45 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_326) @-pos_0))" -"(if or-part_326" -" or-part_326" +"(if(let-values(((or-part_323) @-pos_0))" +"(if or-part_323" +" or-part_323" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -49296,7 +49309,7 @@ static const char *startup_source = " \"too many `@`s in `~.a`\"" "(substring s_86 start_45 end_34)))" "(let-values() #f)))" -"(if(= i_174 start_45)" +"(if(= i_173 start_45)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" @@ -49314,27 +49327,27 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_110" -"(add1 i_174)" +"(add1 i_173)" " any-digits?_0" " any-hashes?_0" " i-pos_3" -" i_174" +" i_173" " #f" " #f" " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_327)" +"(if(if(let-values(((or-part_324)" "(char=? c_76 '#\\i)))" -"(if or-part_327" -" or-part_327" +"(if or-part_324" +" or-part_324" "(char=? c_76 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_328) @-pos_0))" -"(if or-part_328" -" or-part_328" +"(if(let-values(((or-part_325) @-pos_0))" +"(if or-part_325" +" or-part_325" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -49343,10 +49356,10 @@ static const char *startup_source = " \"cannot mix `@` and `i` in `~.a`\"" "(substring s_86 start_45 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_329)" -"(<(add1 i_174) end_34)))" -"(if or-part_329" -" or-part_329" +"(if(let-values(((or-part_326)" +"(<(add1 i_173) end_34)))" +"(if or-part_326" +" or-part_326" "(eq? in-complex_1 'i)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" @@ -49357,10 +49370,10 @@ static const char *startup_source = "(let-values() #f)))" "(let-values()" "(loop_110" -"(add1 i_174)" +"(add1 i_173)" " any-digits?_0" " any-hashes?_0" -" i_174" +" i_173" " @-pos_0" " sign-pos_0" " #f" @@ -49406,7 +49419,7 @@ static const char *startup_source = " convert-mode49_0)" "(begin" " 'string->complex-number50" -"(let-values(((s_421) s40_0))" +"(let-values(((s_473) s40_0))" "(let-values(((start1_0) start141_0))" "(let-values(((end1_0) end142_0))" "(let-values(((start2_0) start243_0))" @@ -49431,7 +49444,7 @@ static const char *startup_source = " in-complex166_0" " #t" " radix-set?164_0" -" s_421" +" s_473" " start1_0" " end1_0" " radix_6" @@ -49440,7 +49453,7 @@ static const char *startup_source = "(let-values(((v2_7)" "(if(if(eq? in-complex_2 'i)(=(- end2_0 start2_0) 1) #f)" "(let-values()" -"(let-values(((neg?_0)(char=?(string-ref s_421 start2_0) '#\\-)))" +"(let-values(((neg?_0)(char=?(string-ref s_473 start2_0) '#\\-)))" "(if(eq? exactness_2 'inexact)" "(let-values()(if neg?_0 -1.0 1.0))" "(let-values()(if neg?_0 -1 1)))))" @@ -49453,17 +49466,17 @@ static const char *startup_source = " in-complex174_0" " #t" " radix-set?172_0" -" s_421" +" s_473" " start2_0" " end2_0" " radix_6" " exactness173_0" " convert-mode175_0))))))" -"(if(let-values(((or-part_330)(not v1_0)))" -"(if or-part_330 or-part_330(not v2_7)))" +"(if(let-values(((or-part_327)(not v1_0)))" +"(if or-part_327 or-part_327(not v2_7)))" "(let-values() #f)" -"(if(if(let-values(((or-part_331)(extflonum? v1_0)))" -"(if or-part_331 or-part_331(extflonum? v2_7)))" +"(if(if(let-values(((or-part_328)(extflonum? v1_0)))" +"(if or-part_328 or-part_328(extflonum? v2_7)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -49484,33 +49497,33 @@ static const char *startup_source = " p_72))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_469 start_46 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" +"(lambda(s_474 start_46 end_35 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_469 exp-pos_1)) '#\\t)))))" +"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_474 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" -"(if(let-values(((or-part_332)(eq? exactness_3 'inexact)))" -"(if or-part_332" -" or-part_332" -"(let-values(((or-part_333)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_333 or-part_333(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_334)(not exp-pos_1)))" -"(if or-part_334" -" or-part_334" -"(let-values(((or-part_236)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_236 or-part_236(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_469 start_46 end_35) #f))" +"(if(let-values(((or-part_329)(eq? exactness_3 'inexact)))" +"(if or-part_329" +" or-part_329" +"(let-values(((or-part_330)(eq? exactness_3 'decimal-as-inexact)))" +"(if or-part_330 or-part_330(if(not dot-pos_2)(not exp-pos_1) #f)))))" +"(if(let-values(((or-part_331)(not exp-pos_1)))" +"(if or-part_331" +" or-part_331" +"(let-values(((or-part_237)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_237 or-part_237(not(extfl-mark?_0))))))" +"(not(if any-hashes?_1(hashes? s_474 start_46 end_35) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_35 start_46)(char-sign?(string-ref s_469 start_46)) #f)))" +"(let-values(((has-sign?_0)(if(> end_35 start_46)(char-sign?(string-ref s_474 start_46)) #f)))" "(if(=(- end_35 start_46)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))" "(let-values()" "(if(= end_35 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_469 start_46 end_35)))" +" (let-values () (format \"missing digits in `~.a`\" (substring s_474 start_46 end_35)))" "(let-values() #f))))" "(if simple?_0" "(let-values()" @@ -49522,37 +49535,37 @@ 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_469 start_46 end_35)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_474 start_46 end_35)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_335)(= exp-pos_1(sub1 end_35))))" -"(if or-part_335" -" or-part_335" -"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_469(sub1 end_35))) #f)))" +"(let-values(((or-part_332)(= exp-pos_1(sub1 end_35))))" +"(if or-part_332" +" or-part_332" +"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_474(sub1 end_35))) #f)))" " #f)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits after exponent marker in `~.a`\" (substring s_469 start_46 end_35)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_474 start_46 end_35)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_32)" "(string->number$1" -"(maybe-substring s_469 start_46 end_35)" +"(maybe-substring s_474 start_46 end_35)" " radix_7" -"(if(let-values(((or-part_336)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_336" -" or-part_336" -"(let-values(((or-part_237)(not exp-pos_1)))" -"(if or-part_237 or-part_237(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_333)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_333" +" or-part_333" +"(let-values(((or-part_238)(not exp-pos_1)))" +"(if or-part_238 or-part_238(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_337)(not n_32)))(if or-part_337 or-part_337(string? n_32)))" +"(if(let-values(((or-part_334)(not n_32)))(if or-part_334 or-part_334(string? n_32)))" "(let-values()" "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_469 start_46 end_35)))" +"(substring s_474 start_46 end_35)))" "(if(eq? exactness_3 'inexact)" "(let-values()" "(if(extflonum? n_32)" @@ -49561,9 +49574,9 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_469 start_46 end_35)))" +"(substring s_474 start_46 end_35)))" "(let-values() #f)))" -"(if(if(eqv? n_32 0)(char=?(string-ref s_469 start_46) '#\\-) #f)" +"(if(if(eqv? n_32 0)(char=?(string-ref s_474 start_46) '#\\-) #f)" "(let-values() -0.0)" "(let-values()(exact->inexact n_32)))))" "(let-values() n_32))))))))" @@ -49571,7 +49584,7 @@ static const char *startup_source = "(let-values()" "(let-values(((m-v_0)" "(string->real-number" -" s_469" +" s_474" " start_46" " exp-pos_1" " dot-pos_2" @@ -49582,12 +49595,12 @@ static const char *startup_source = " 'exact" " convert-mode_5)))" "(let-values(((e-v_0)" -"(string->exact-integer-number s_469(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" +"(string->exact-integer-number s_474(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" "(lambda(r_46)" "(begin" " 'real->precision-inexact" -"(let-values(((tmp_42)(string-ref s_469 exp-pos_1)))" +"(let-values(((tmp_42)(string-ref s_474 exp-pos_1)))" "(if(if(equal? tmp_42 '#\\s)" " #t" "(if(equal? tmp_42 '#\\S)" @@ -49599,12 +49612,12 @@ static const char *startup_source = "(if(extflonum-available?)" "(real->extfl r_46)" "(string->number$1" -"(replace-hashes s_469 start_46 end_35)" +"(replace-hashes s_474 start_46 end_35)" " radix_7" " 'read)))" "(let-values()(real->double-flonum r_46)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" -"(if(let-values(((or-part_338)(not m-v_0)))(if or-part_338 or-part_338(not e-v_0)))" +"(if(let-values(((or-part_335)(not m-v_0)))(if or-part_335 or-part_335(not e-v_0)))" "(let-values() #f)" "(if(string? m-v_0)" "(let-values() m-v_0)" @@ -49612,14 +49625,14 @@ static const char *startup_source = "(let-values() e-v_0)" "(if(if(eq? convert-mode_5 'number-or-false) get-extfl?_0 #f)" "(let-values() #f)" -"(if(if(let-values(((or-part_339)(eq? exactness_3 'inexact)))" -"(if or-part_339 or-part_339(eq? exactness_3 'decimal-as-inexact)))" +"(if(if(let-values(((or-part_336)(eq? exactness_3 'inexact)))" +"(if or-part_336 or-part_336(eq? exactness_3 'decimal-as-inexact)))" "(>(abs e-v_0)(if get-extfl?_0 6000 400))" " #f)" "(let-values()" "(real->precision-inexact_0" "(if(eqv? m-v_0 0)" -"(let-values()(if(char=?(string-ref s_469 start_46) '#\\-) -0.0 0.0))" +"(let-values()(if(char=?(string-ref s_474 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))))))" @@ -49629,24 +49642,24 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_469 start_46 end_35)" +"(substring s_474 start_46 end_35)" " exactness_3))" "(let-values() #f)))" "(let-values()" "(let-values(((n_33)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" -"(let-values(((or-part_340)(eq? exactness_3 'exact)))" -"(if or-part_340 or-part_340(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((or-part_337)(eq? exactness_3 'exact)))" +"(if or-part_337 or-part_337(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_33)" -"(if(if(eqv? n_33 0)(char=?(string-ref s_469 start_46) '#\\-) #f)" +"(if(if(eqv? n_33 0)(char=?(string-ref s_474 start_46) '#\\-) #f)" "(let-values()(real->precision-inexact_0 -0.0))" "(let-values()(real->precision-inexact_0 n_33)))))))))))))))))" "(if slash-pos_1" "(let-values()" "(let-values(((n-v_0)" "(string->real-number" -" s_469" +" s_474" " start_46" " slash-pos_1" " #f" @@ -49658,7 +49671,7 @@ static const char *startup_source = " convert-mode_5)))" "(let-values(((d-v_0)" "(string->real-number" -" s_469" +" s_474" "(add1 slash-pos_1)" " end_35" " #f" @@ -49672,13 +49685,13 @@ static const char *startup_source = "(lambda(from-pos_0)" "(begin" " 'get-inexact?" -"(let-values(((or-part_341)(eq? exactness_3 'inexact)))" -"(if or-part_341" -" or-part_341" +"(let-values(((or-part_338)(eq? exactness_3 'inexact)))" +"(if or-part_338" +" or-part_338" "(if(not(eq? exactness_3 'exact))" -"(hashes? s_469 from-pos_0 end_35)" +"(hashes? s_474 from-pos_0 end_35)" " #f)))))))" -"(if(let-values(((or-part_342)(not n-v_0)))(if or-part_342 or-part_342(not d-v_0)))" +"(if(let-values(((or-part_339)(not n-v_0)))(if or-part_339 or-part_339(not d-v_0)))" "(let-values() #f)" "(if(string? n-v_0)" "(let-values() n-v_0)" @@ -49691,14 +49704,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_469 start_46 end_35)))" +" (format \"division by zero in `~.a`\" (substring s_474 start_46 end_35)))" "(let-values() #f)))))" "(let-values()" "(let-values(((n_34)(/ n-v_0 d-v_0)))" "(if(get-inexact?_0 start_46)(exact->inexact n_34) n_34)))))))))))" "(let-values()" "(string->decimal-number" -" s_469" +" s_474" " start_46" " end_35" " dot-pos_2" @@ -49707,80 +49720,80 @@ static const char *startup_source = " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_470 start_47 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_475 start_47 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_343)(eq? exactness_4 'exact)))" -"(if or-part_343 or-part_343(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((or-part_340)(eq? exactness_4 'exact)))" +"(if or-part_340 or-part_340(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_36 start_47(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" "((letrec-values(((loop_111)" -"(lambda(i_175 j_3 hashes-pos_0)" +"(lambda(i_174 j_3 hashes-pos_0)" "(begin" " 'loop" -"(if(< i_175 start_47)" +"(if(< i_174 start_47)" "(let-values()" "(if(= hashes-pos_0 start_47)" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_470 start_47 end_36)))" +" (format \"misplaced `#` in `~.a`\" (substring s_475 start_47 end_36)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_35)(string->number$1 new-str_0 radix_8)))" "(if(not n_35)" -"(let-values()(fail-bad-number convert-mode_6 s_470 start_47 end_36))" +"(let-values()(fail-bad-number convert-mode_6 s_475 start_47 end_36))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_35 0)(char=?(string-ref s_470 start_47) '#\\-) #f)" +"(if(if(eqv? n_35 0)(char=?(string-ref s_475 start_47) '#\\-) #f)" " -0.0" "(exact->inexact n_35)))" "(if(if dot-pos_3 get-exact?_0 #f)" "(let-values()(/ n_35(expt 10(- end_36 dot-pos_3 1))))" "(let-values() n_35))))))))" "(let-values()" -"(let-values(((c_77)(string-ref s_470 i_175)))" +"(let-values(((c_77)(string-ref s_475 i_174)))" "(if(char=? c_77 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" "(loop_111" -"(sub1 i_175)" +"(sub1 i_174)" " j_3" -"(if(= hashes-pos_0(add1 i_175)) i_175 hashes-pos_0)))" +"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_77)" "(loop_111" -"(sub1 i_175)" +"(sub1 i_174)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_175)) i_175 hashes-pos_0))))))" -"(if(let-values(((or-part_344)(char=? c_77 '#\\-)))" -"(if or-part_344 or-part_344(char=? c_77 '#\\+)))" +"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0))))))" +"(if(let-values(((or-part_341)(char=? c_77 '#\\-)))" +"(if or-part_341 or-part_341(char=? c_77 '#\\+)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_77)" "(loop_111" -"(sub1 i_175)" +"(sub1 i_174)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_175)) i_175 hashes-pos_0))))" +"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0))))" "(if(char=? c_77 '#\\#)" "(let-values()" -"(if(= hashes-pos_0(add1 i_175))" +"(if(= hashes-pos_0(add1 i_174))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_111(sub1 i_175)(sub1 j_3) i_175)))" +"(loop_111(sub1 i_174)(sub1 j_3) i_174)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_470 start_47 end_36)))" +"(substring s_475 start_47 end_36)))" "(let-values() #f)))))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_77)" -"(loop_111(sub1 i_175)(sub1 j_3) hashes-pos_0)))))))))))))" +"(loop_111(sub1 i_174)(sub1 j_3) hashes-pos_0)))))))))))))" " loop_111)" "(sub1 end_36)" "(sub1(string-length new-str_0))" @@ -49804,52 +49817,52 @@ static const char *startup_source = "(let-values() n_36))))))))" "(define-values" "(read-special-number)" -"(lambda(s_471 start_49 end_38 convert-mode_8)" +"(lambda(s_476 start_49 end_38 convert-mode_8)" "(begin" "(if(=(- end_38 start_49) 6)" -"(if(let-values(((or-part_345)(char=?(string-ref s_471 start_49) '#\\+)))" -"(if or-part_345 or-part_345(char=?(string-ref s_471 start_49) '#\\-)))" -"(let-values(((or-part_231)" -"(if(char=?(char-downcase(string-ref s_471(+ start_49 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_471(+ start_49 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_471(+ start_49 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_471(+ start_49 4))) '#\\.)" -"(let-values(((or-part_346)" -"(if(char=?(char-downcase(string-ref s_471(+ start_49 5))) '#\\0)" -"(if(char=?(string-ref s_471 start_49) '#\\+) +inf.0 -inf.0)" +"(if(let-values(((or-part_342)(char=?(string-ref s_476 start_49) '#\\+)))" +"(if or-part_342 or-part_342(char=?(string-ref s_476 start_49) '#\\-)))" +"(let-values(((or-part_232)" +"(if(char=?(char-downcase(string-ref s_476(+ start_49 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_476(+ start_49 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_476(+ start_49 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_476(+ start_49 4))) '#\\.)" +"(let-values(((or-part_343)" +"(if(char=?(char-downcase(string-ref s_476(+ start_49 5))) '#\\0)" +"(if(char=?(string-ref s_476 start_49) '#\\+) +inf.0 -inf.0)" " #f)))" -"(if or-part_346" -" or-part_346" -"(let-values(((or-part_347)" -"(if(char=?(char-downcase(string-ref s_471(+ start_49 5))) '#\\f)" -"(if(char=?(string-ref s_471 start_49) '#\\+) +inf.f -inf.f)" +"(if or-part_343" +" or-part_343" +"(let-values(((or-part_344)" +"(if(char=?(char-downcase(string-ref s_476(+ start_49 5))) '#\\f)" +"(if(char=?(string-ref s_476 start_49) '#\\+) +inf.f -inf.f)" " #f)))" -"(if or-part_347" -" or-part_347" -"(if(char=?(char-downcase(string-ref s_471(+ start_49 5))) '#\\t)" +"(if or-part_344" +" or-part_344" +"(if(char=?(char-downcase(string-ref s_476(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_471 start_49) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_476 start_49) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" " #f)" " #f)" " #f)))" -"(if or-part_231" -" or-part_231" -"(if(char=?(char-downcase(string-ref s_471(+ start_49 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_471(+ start_49 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_471(+ start_49 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_471(+ start_49 4))) '#\\.)" -"(let-values(((or-part_348)" -"(if(char=?(char-downcase(string-ref s_471(+ start_49 5))) '#\\0) +nan.0 #f)))" -"(if or-part_348" -" or-part_348" -"(let-values(((or-part_349)" -"(if(char=?(char-downcase(string-ref s_471(+ start_49 5))) '#\\f) +nan.f #f)))" -"(if or-part_349" -" or-part_349" -"(if(char=?(char-downcase(string-ref s_471(+ start_49 5))) '#\\t)" +"(if or-part_232" +" or-part_232" +"(if(char=?(char-downcase(string-ref s_476(+ start_49 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_476(+ start_49 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_476(+ start_49 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_476(+ start_49 4))) '#\\.)" +"(let-values(((or-part_345)" +"(if(char=?(char-downcase(string-ref s_476(+ start_49 5))) '#\\0) +nan.0 #f)))" +"(if or-part_345" +" or-part_345" +"(let-values(((or-part_346)" +"(if(char=?(char-downcase(string-ref s_476(+ start_49 5))) '#\\f) +nan.f #f)))" +"(if or-part_346" +" or-part_346" +"(if(char=?(char-downcase(string-ref s_476(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -49860,10 +49873,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_228)" +"(lambda(convert-mode_9 v_227)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_228))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_227))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound65.1)" @@ -49880,7 +49893,7 @@ static const char *startup_source = " combine64_0)" "(begin" " 'read-for-special-compound65" -"(let-values(((s_472) s57_0))" +"(let-values(((s_477) s57_0))" "(let-values(((start_50) start58_0))" "(let-values(((end_39) end59_0))" "(let-values(((radix_10) radix60_0))" @@ -49888,19 +49901,19 @@ 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_229) v63_0))" +"(let-values(((v_228) 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_229))" +" (let-values () (format \"no exact representation for `~a`\" v_228))" "(let-values() #f)))" -"(if(if(extflonum? v_229)" -"(let-values(((or-part_350)(not reading-first?_0)))" -"(if or-part_350 or-part_350(not(eq? convert-mode_10 'must-read))))" +"(if(if(extflonum? v_228)" +"(let-values(((or-part_347)(not reading-first?_0)))" +"(if or-part_347 or-part_347(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_229))" +"(let-values()(fail-extflonum convert-mode_10 v_228))" "(let-values()" "(let-values(((v2_8)" "(let-values(((temp180_0) #t)" @@ -49911,7 +49924,7 @@ static const char *startup_source = " in-complex182_0" " #t" " temp180_0" -" s_472" +" s_477" " start_50" " end_39" " radix_10" @@ -49921,12 +49934,12 @@ static const char *startup_source = "(let-values() v2_8)" "(if(not v2_8)" "(let-values() v2_8)" -"(if(extflonum? v_229)" -"(let-values()(fail-extflonum convert-mode_10 v_229))" -"(let-values()(combine_1 v_229 v2_8)))))))))))))))))))))))" +"(if(extflonum? v_228)" +"(let-values()(fail-extflonum convert-mode_10 v_228))" +"(let-values()(combine_1 v_228 v2_8)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_473 start_51 end_40)" +"(lambda(s_478 start_51 end_40)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" @@ -49934,13 +49947,13 @@ static const char *startup_source = " \"string\"" "(lambda(x_82)(string? x_82))" "(lambda(x_83)(unsafe-string-length x_83))" -" s_473" +" s_478" " start_51" " end_40" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_259)" +"((letrec-values(((for-loop_262)" "(lambda(result_115 idx_5)" "(begin" " 'for-loop" @@ -49952,10 +49965,10 @@ static const char *startup_source = "(let-values()(let-values()(char=? c_78 '#\\#)))))" "(values result_117)))))" "(if(if(not((lambda x_84 result_116) c_78))(not #f) #f)" -"(for-loop_259 result_116(unsafe-fx+ idx_5 1))" +"(for-loop_262 result_116(unsafe-fx+ idx_5 1))" " result_116)))" " result_115)))))" -" for-loop_259)" +" for-loop_262)" " #f" " start*_5))))))" "(define-values" @@ -49980,12 +49993,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_53)))" -"((letrec-values(((for-loop_260)" +"((letrec-values(((for-loop_263)" "(lambda(idx_6 pos_111)" "(begin" " 'for-loop" "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)" -"(let-values(((c_79)(string-ref v*_7 idx_6))((i_176) pos_111))" +"(let-values(((c_79)(string-ref v*_7 idx_6))((i_175) pos_111))" "(let-values((()" "(let-values()" "(let-values((()" @@ -49993,52 +50006,52 @@ static const char *startup_source = "(begin" "(let-values()" "(if(char=? c_79 '#\\#)" -"(string-set! new-s_9 i_176 '#\\0)" -"(string-set! new-s_9 i_176 c_79)))" +"(string-set! new-s_9 i_175 '#\\0)" +"(string-set! new-s_9 i_175 c_79)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_260(unsafe-fx+ idx_6 1)(+ pos_111 1))(values))))" +"(if(not #f)(for-loop_263(unsafe-fx+ idx_6 1)(+ pos_111 1))(values))))" "(values))))))" -" for-loop_260)" +" for-loop_263)" " start*_6" " start_53)))" "(void)" " new-s_9)))))" "(define-values" "(maybe-substring)" -"(lambda(s_458 start_54 end_42)" -"(begin(if(if(= 0 start_54)(= end_42(string-length s_458)) #f) s_458(substring s_458 start_54 end_42)))))" +"(lambda(s_462 start_54 end_42)" +"(begin(if(if(= 0 start_54)(= end_42(string-length s_462)) #f) s_462(substring s_462 start_54 end_42)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_351)(eq? exactness_6 'exact)))(if or-part_351 or-part_351(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_348)(eq? exactness_6 'exact)))(if or-part_348 or-part_348(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" "(lambda(c_80)" -"(begin(let-values(((or-part_352)(char=? c_80 '#\\-)))(if or-part_352 or-part_352(char=? c_80 '#\\+))))))" +"(begin(let-values(((or-part_349)(char=? c_80 '#\\-)))(if or-part_349 or-part_349(char=? c_80 '#\\+))))))" "(define-values" "(digit?)" "(lambda(c_81 radix_11)" "(begin" -"(let-values(((v_230)(char->integer c_81)))" -"(let-values(((or-part_353)" -"(if(>= v_230(char->integer '#\\0))(<(- v_230(char->integer '#\\0)) radix_11) #f)))" -"(if or-part_353" -" or-part_353" +"(let-values(((v_229)(char->integer c_81)))" +"(let-values(((or-part_350)" +"(if(>= v_229(char->integer '#\\0))(<(- v_229(char->integer '#\\0)) radix_11) #f)))" +"(if or-part_350" +" or-part_350" "(if(> radix_11 10)" -"(let-values(((or-part_354)" -"(if(>= v_230(char->integer '#\\a))(<(- v_230(-(char->integer '#\\a) 10)) radix_11) #f)))" -"(if or-part_354" -" or-part_354" -"(if(>= v_230(char->integer '#\\A))(<(- v_230(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(let-values(((or-part_351)" +"(if(>= v_229(char->integer '#\\a))(<(- v_229(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if or-part_351" +" or-part_351" +"(if(>= v_229(char->integer '#\\A))(<(- v_229(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_474 start_55 end_43)" +"(lambda(convert-mode_11 s_479 start_55 end_43)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_474 start_55 end_43)))" +" (let-values () (format \"bad number `~.a`\" (substring s_479 start_55 end_43)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -50146,11 +50159,11 @@ static const char *startup_source = "(let-values(((ec_4)" "(let-values(((rt_12) rt_11)" "((c_46) c_83))" -"(if(let-values(((or-part_355)" +"(if(let-values(((or-part_352)" "(not" " rt_12)))" -"(if or-part_355" -" or-part_355" +"(if or-part_352" +" or-part_352" "(not" "(char? c_46))))" "(let-values() c_46)" @@ -50330,9 +50343,9 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((num_0)" -"(if(let-values(((or-part_356)" +"(if(let-values(((or-part_353)" "(eq? mode_17 'symbol-or-number)))" -"(if or-part_356 or-part_356(string? mode_17)))" +"(if or-part_353 or-part_353(string? mode_17)))" "(if(not quoted-ever?_0)" "(1/string->number" "(if(string? mode_17)" @@ -50383,14 +50396,14 @@ static const char *startup_source = "(list temp30_4))))" "(void))" "(wrap" -"(let-values(((or-part_305) num_0))" -"(if or-part_305" -" or-part_305" -"(let-values(((or-part_294)" +"(let-values(((or-part_302) num_0))" +"(if or-part_302" +" or-part_302" +"(let-values(((or-part_290)" "(if(eq? mode_17 'keyword)" "(string->keyword str_29)" " #f)))" -"(if or-part_294 or-part_294(string->symbol str_29)))))" +"(if or-part_290 or-part_290(string->symbol str_29)))))" " in_25" " config_24" " str_29)))))))))))))))))))))))))" @@ -50509,24 +50522,24 @@ static const char *startup_source = "(if(zero? len_37)" "(void)" "(let-values()" -"(let-values(((lst_260) seq_2))" +"(let-values(((lst_261) seq_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_260)))" +"(let-values()(check-list lst_261)))" "((letrec-values(((for-loop_98)" -"(lambda(i_1 lst_298)" +"(lambda(i_1 lst_297)" "(begin" " 'for-loop" -"(if(pair? lst_298)" +"(if(pair? lst_297)" "(let-values(((e_75)" "(unsafe-car" -" lst_298))" -"((rest_170)" +" lst_297))" +"((rest_168)" "(unsafe-cdr" -" lst_298)))" -"(let-values(((i_177)" +" lst_297)))" +"(let-values(((i_176)" "(let-values(((i_3)" " i_1))" "(let-values(((i_36)" @@ -50552,19 +50565,19 @@ static const char *startup_source = "(if(if(not" "((lambda x_87" "(unsafe-fx=" -" i_177" +" i_176" " len_37))" " e_75))" "(not #f)" " #f)" "(for-loop_98" -" i_177" -" rest_170)" -" i_177)))" +" i_176" +" rest_168)" +" i_176)))" " i_1)))))" " for-loop_98)" " 0" -" lst_260)))))" +" lst_261)))))" " v_86))))))" "(if(equal? tmp_43 'flonum)" "(let-values()" @@ -50578,18 +50591,18 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_38)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_231)(make-flvector len_38 fill_1)))" +"(let-values(((v_230)(make-flvector len_38 fill_1)))" "(begin" "(if(zero? len_38)" "(void)" "(let-values()" -"(let-values(((lst_78) seq_2))" +"(let-values(((lst_79) seq_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_261)" +"(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_264)" "(lambda(i_56 lst_54)" "(begin" " 'for-loop" @@ -50597,11 +50610,11 @@ static const char *startup_source = "(let-values(((e_76)" "(unsafe-car" " lst_54))" -"((rest_171)" +"((rest_169)" "(unsafe-cdr" " lst_54)))" +"(let-values(((i_177)" "(let-values(((i_178)" -"(let-values(((i_179)" " i_56))" "(let-values(((i_90)" "(let-values()" @@ -50612,34 +50625,34 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_231" -" i_179" +" v_230" +" i_178" " elem_1)" "(not-an-fX.1$1" " 'for*/vector" " elem_1)))" "(unsafe-fx+" " 1" -" i_179)))))" +" i_178)))))" "(values" " i_90)))))" "(if(if(not" "((lambda x_24" "(unsafe-fx=" -" i_178" +" i_177" " len_38))" " e_76))" "(not #f)" " #f)" -"(for-loop_261" -" i_178" -" rest_171)" -" i_178)))" +"(for-loop_264" +" i_177" +" rest_169)" +" i_177)))" " i_56)))))" -" for-loop_261)" +" for-loop_264)" " 0" -" lst_78)))))" -" v_231))))))" +" lst_79)))))" +" v_230))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_39)(length seq_2)))" @@ -50675,11 +50688,11 @@ static const char *startup_source = "(list temp25_7 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_232)" +"(lambda(v_231)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_232 in_28 config_39 #f)" +"(wrap v_231 in_28 config_39 #f)" "((letrec-values(((loop_113)" "(lambda(seq_3)" "(begin" @@ -50734,18 +50747,18 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_17)))" "((letrec-values(((for-loop_16)" -"(lambda(lst_299 pos_113)" +"(lambda(lst_298 pos_113)" "(begin" " 'for-loop" -"(if(if(pair? lst_299)" +"(if(if(pair? lst_298)" " #t" " #f)" "(let-values(((e_77)" "(unsafe-car" -" lst_299))" -"((rest_172)" +" lst_298))" +"((rest_170)" "(unsafe-cdr" -" lst_299))" +" lst_298))" "((i_93)" " pos_113))" "(let-values((()" @@ -50762,7 +50775,7 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_16" -" rest_172" +" rest_170" "(+ pos_113 1))" "(values))))" "(values))))))" @@ -50773,31 +50786,31 @@ static const char *startup_source = "(if(equal? tmp_46 'fixnum)" "(let-values()" "(begin" -"(let-values(((lst_220) seq_2)((start_56) 0))" +"(let-values(((lst_221) seq_2)((start_56) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_220)))" +"(let-values()(check-list lst_221)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-naturals start_56)))" "((letrec-values(((for-loop_17)" -"(lambda(lst_158 pos_114)" +"(lambda(lst_159 pos_114)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_158)" +" lst_159)" " #t" " #f)" "(let-values(((e_40)" "(unsafe-car" -" lst_158))" +" lst_159))" "((rest_7)" "(unsafe-cdr" -" lst_158))" -"((i_180)" +" lst_159))" +"((i_179)" " pos_114))" "(let-values((()" "(let-values()" @@ -50807,7 +50820,7 @@ static const char *startup_source = "(let-values()" "(fxvector-set!" " vec_65" -" i_180" +" i_179" " e_40))" "(values)))))" "(values)))))" @@ -50820,38 +50833,38 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_17)" -" lst_220" +" lst_221" " start_56)))" "(void)))" "(if(equal? tmp_46 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_279) seq_2)((start_57) 0))" +"(let-values(((lst_280) seq_2)((start_57) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_279)))" +"(let-values()(check-list lst_280)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_57)))" -"((letrec-values(((for-loop_252)" -"(lambda(lst_290" +"((letrec-values(((for-loop_254)" +"(lambda(lst_289" " pos_115)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_290)" +" lst_289)" " #t" " #f)" "(let-values(((e_78)" "(unsafe-car" -" lst_290))" +" lst_289))" "((rest_92)" "(unsafe-cdr" -" lst_290))" +" lst_289))" "((i_96)" " pos_115))" "(let-values((()" @@ -50867,15 +50880,15 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_252" +"(for-loop_254" " rest_92" "(+" " pos_115" " 1))" "(values))))" "(values))))))" -" for-loop_252)" -" lst_279" +" for-loop_254)" +" lst_280" " start_57)))" "(void)))" "(let-values()(void))))))" @@ -51004,7 +51017,7 @@ static const char *startup_source = "(let-values(((accum-str_2)(accum-string-init! config_43)))" "(let-values((()(begin(accum-string-add! accum-str_2 init-c_9)(values))))" "(let-values(((init-v_1)(digit->number init-c_9)))" -"(let-values(((v_233)" +"(let-values(((v_232)" "(let-values(((temp72_0) 10)" "((temp73_1) +inf.0)" "((init-v74_0) init-v_1)" @@ -51021,7 +51034,7 @@ static const char *startup_source = " accum-str_2" " #t))))" "(values" -" v_233" +" v_232" "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_43))" "(accum-string-get!6.1 #f #f accum-str76_0 config77_0))" "(let-values(((in_34) in_33)((source_20)(read-config-source config_43)))" @@ -51280,9 +51293,9 @@ static const char *startup_source = "(if(if(equal? tmp_7 '#\\=) #t(equal? tmp_7 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_294)(read-config-for-syntax? config_45)))" -"(if or-part_294" -" or-part_294" +"(if(let-values(((or-part_290)(read-config-for-syntax? config_45)))" +"(if or-part_290" +" or-part_290" "(not(check-parameter 1/read-accept-graph config_45))))" "(let-values()" "(let-values(((in37_0) in_36)" @@ -51332,10 +51345,10 @@ static const char *startup_source = "(if(equal? tmp_50 '#\\=)" "(let-values()" "(let-values(((ph_1)(make-placeholder 'placeholder)))" -"(let-values(((ht_154)(get-graph-hash config_45)))" +"(let-values(((ht_153)(get-graph-hash config_45)))" "(let-values((()" "(begin" -"(if(hash-ref ht_154 v_31 #f)" +"(if(hash-ref ht_153 v_31 #f)" "(let-values()" "(let-values(((in50_0) in_36)" "((config51_0) config_45)" @@ -51365,7 +51378,7 @@ static const char *startup_source = "(list dispatch-c53_0 temp54_4 c55_0))))" "(void))" "(values))))" -"(let-values((()(begin(hash-set! ht_154 v_31 ph_1)(values))))" +"(let-values((()(begin(hash-set! ht_153 v_31 ph_1)(values))))" "(let-values(((result-v_0)" "(read-one_3 #f in_36(next-readtable config_45))))" "(begin" @@ -51403,9 +51416,9 @@ static const char *startup_source = "(let-values()" "(begin0" "(hash-ref" -"(let-values(((or-part_234)" +"(let-values(((or-part_235)" "(read-config-state-graph(read-config-st config_45))))" -"(if or-part_234 or-part_234 '#hash()))" +"(if or-part_235 or-part_235 '#hash()))" " v_31" "(lambda()" "(let-values(((in67_0) in_36)" @@ -51456,10 +51469,10 @@ static const char *startup_source = "(lambda(config_46)" "(begin" "(let-values(((st_3)(read-config-st config_46)))" -"(let-values(((or-part_269)(read-config-state-graph st_3)))" -"(if or-part_269" -" or-part_269" -"(let-values(((ht_155)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_155) ht_155))))))))" +"(let-values(((or-part_354)(read-config-state-graph st_3)))" +"(if or-part_354" +" or-part_354" +"(let-values(((ht_154)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_154) ht_154))))))))" "(define-values" "(coerce-key)" "(lambda(key_85 config_8)" @@ -51799,8 +51812,8 @@ static const char *startup_source = "((temp63_3)(indentation-unexpected-closer-message ec_8 c_88 config_47)))" "(reader-error10.1 #f #f #f #f #f #f in60_0 temp61_4 temp62_1(list temp63_3))))" "(let-values()" -"(let-values(((v_234)(read-one_8 c_88 in_38(keep-comment elem-config_1))))" -"(if(1/special-comment? v_234)" +"(let-values(((v_233)(read-one_8 c_88 in_38(keep-comment elem-config_1))))" +"(if(1/special-comment? v_233)" "(let-values()" "((make-read-one-key+value read-one_8 overall-opener-c_0 overall-closer-ec_0)" " #f" @@ -52283,7 +52296,7 @@ static const char *startup_source = "(let-values(((pos_117)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_195)" +"(let-values(((v_194)" "(let-values(((temp42_3)" " 16)" "((temp43_4)" @@ -52300,13 +52313,13 @@ static const char *startup_source = " accum-str_4" " #t))))" "(begin" -"(if(integer? v_195)" +"(if(integer? v_194)" "(void)" "(let-values()" "(no-hex-digits" " in_40" " config_22" -" v_195" +" v_194" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" @@ -52315,7 +52328,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_195))))))" +" v_194))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -52330,7 +52343,7 @@ static const char *startup_source = "(let-values(((pos_99)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_221)" +"(let-values(((v_220)" "(let-values(((temp47_1)" " 16)" "((temp48_1)" @@ -52347,23 +52360,23 @@ static const char *startup_source = " accum-str_4" " #t))))" "(begin" -"(if(integer? v_221)" +"(if(integer? v_220)" "(void)" "(let-values()" "(no-hex-digits" " in_40" " config_22" -" v_221" +" v_220" " escaping-c_0" " escaped-c_0)))" "(if(let-values(((or-part_28)" "(<" -" v_221" +" v_220" " 55296)))" "(if or-part_28" " or-part_28" "(>" -" v_221" +" v_220" " 57343)))" "(let-values()" "(begin" @@ -52373,7 +52386,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_221))))" +" v_220))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" @@ -52451,7 +52464,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_221" +" v_220" " 55296)" " 10)" "(-" @@ -52541,7 +52554,7 @@ static const char *startup_source = "(let-values(((pos_90)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_235)" +"(let-values(((v_234)" "(let-values(((temp74_1)" " 16)" "((temp75_1)" @@ -52558,26 +52571,26 @@ static const char *startup_source = " accum-str_4" " #t))))" "(begin" -"(if(integer? v_235)" +"(if(integer? v_234)" "(void)" "(let-values()" "(no-hex-digits" " in_40" " config_22" -" v_235" +" v_234" " escaping-c_0" " escaped-c_0)))" -"(if(if(let-values(((or-part_264)" +"(if(if(let-values(((or-part_265)" "(<" -" v_235" +" v_234" " 55296)))" -"(if or-part_264" -" or-part_264" +"(if or-part_265" +" or-part_265" "(>" -" v_235" +" v_234" " 57343)))" "(<=" -" v_235" +" v_234" " 1114111)" " #f)" "(let-values()" @@ -52588,7 +52601,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_235))))" +" v_234))))" "(let-values()" "(let-values(((in76_0)" " in_40)" @@ -52770,24 +52783,24 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_275)" +"(let-values(((lst_276)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_275)))" +"(let-values()(check-list lst_276)))" "((letrec-values(((for-loop_185)" -"(lambda(lst_97)" +"(lambda(lst_98)" "(begin" " 'for-loop" -"(if(pair? lst_97)" +"(if(pair? lst_98)" "(let-values(((c_94)" "(unsafe-car" -" lst_97))" +" lst_98))" "((rest_47)" "(unsafe-cdr" -" lst_97)))" +" lst_98)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -52805,7 +52818,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_185)" -" lst_275)))" +" lst_276)))" "(void))))" "(if(char=? c_93 '#\\newline)" "(let-values()" @@ -52869,7 +52882,7 @@ static const char *startup_source = "(let-values(((in_41) in_4)" "((source_27)(read-config-source config_8)))" "(read-char-or-special in_41 special1.1 source_27))))" -"(let-values(((v_218)" +"(let-values(((v_217)" "(if(if(char? c3_5)(octal-digit? c3_5) #f)" "(let-values()" "(+" @@ -52878,7 +52891,7 @@ static const char *startup_source = "(digit->number c3_5)))" "(let-values() #f))))" "(begin" -"(if(if v_218(<= v_218 255) #f)" +"(if(if v_217(<= v_217 255) #f)" "(void)" "(let-values()" "(let-values(((c311_0) c3_5)" @@ -52897,7 +52910,7 @@ static const char *startup_source = " config_8" " temp12_1" "(list c13_2 c214_0 temp15_7)))))" -"(integer->char v_218))))))" +"(integer->char v_217))))))" "(let-values() c_96))))" "(if(let-values(((or-part_166)(char=? c_96 '#\\u)))" "(if or-part_166 or-part_166(char=? c_96 '#\\U)))" @@ -53491,10 +53504,10 @@ static const char *startup_source = "(list extend-str96_0)))))" "(if(char-whitespace? c_98)" "(let-values()(void))" -"(if(let-values(((or-part_357)" +"(if(let-values(((or-part_355)" "(char-lang-nonsep? c_98)))" -"(if or-part_357" -" or-part_357" +"(if or-part_355" +" or-part_355" "(char=? '#\\/ c_98)))" "(let-values()" "(begin" @@ -53628,17 +53641,17 @@ static const char *startup_source = "(lambda(c_99)" "(begin" "(if(<(char->integer c_99) 128)" -"(let-values(((or-part_295)(char-alphabetic? c_99)))" -"(if or-part_295" -" or-part_295" -"(let-values(((or-part_296)(char-numeric? c_99)))" -"(if or-part_296" -" or-part_296" -"(let-values(((or-part_358)(char=? '#\\- c_99)))" -"(if or-part_358" -" or-part_358" -"(let-values(((or-part_359)(char=? '#\\+ c_99)))" -"(if or-part_359 or-part_359(char=? '#\\_ c_99)))))))))" +"(let-values(((or-part_356)(char-alphabetic? c_99)))" +"(if or-part_356" +" or-part_356" +"(let-values(((or-part_291)(char-numeric? c_99)))" +"(if or-part_291" +" or-part_291" +"(let-values(((or-part_292)(char=? '#\\- c_99)))" +"(if or-part_292" +" or-part_292" +"(let-values(((or-part_357)(char=? '#\\+ c_99)))" +"(if or-part_357 or-part_357(char=? '#\\_ c_99)))))))))" " #f))))" "(define-values" "(read-extension-prefix)" @@ -53650,11 +53663,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_30)))" "((letrec-values(((for-loop_24)" -"(lambda(lst_300)" +"(lambda(lst_299)" "(begin" " 'for-loop" -"(if(pair? lst_300)" -"(let-values(((c_100)(unsafe-car lst_300))((rest_173)(unsafe-cdr lst_300)))" +"(if(pair? lst_299)" +"(let-values(((c_100)(unsafe-car lst_299))((rest_171)(unsafe-cdr lst_299)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -53664,7 +53677,7 @@ static const char *startup_source = "(accum-string-add! accum-str_11 c_100))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_24 rest_173)(values))))" +"(if(not #f)(for-loop_24 rest_171)(values))))" "(values))))))" " for-loop_24)" " lst_30)))" @@ -53727,7 +53740,7 @@ static const char *startup_source = "(let-values((()(begin(force-parameters! config_53)(values))))" "(let-values(((guard_0)(1/current-reader-guard)))" "(let-values(((mod-path_27)" -"(let-values(((or-part_310)" +"(let-values(((or-part_307)" "(if try-first-mod-path_0" "(let-values(((mod-path_28)(guard_0 try-first-mod-path_0)))" "(if((read-config-module-declared? config_53)" @@ -53735,7 +53748,7 @@ static const char *startup_source = " mod-path_28" " #f))" " #f)))" -"(if or-part_310 or-part_310(guard_0 mod-path-datum_0)))))" +"(if or-part_307 or-part_307(guard_0 mod-path-datum_0)))))" "(let-values(((for-syntax?_8)(read-config-for-syntax? config_53)))" "(let-values(((dynamic-require_2)(read-config-dynamic-require config_53)))" "(let-values(((no-value_0)(gensym)))" @@ -53994,8 +54007,8 @@ static const char *startup_source = " wrap63_0" " #t)))))))" "(let-values(((v_135)(read-one init-c_5 in_12 config_54)))" -"(if(if(let-values(((or-part_294)(not recursive?_0)))" -"(if or-part_294 or-part_294 local-graph?_1))" +"(if(if(let-values(((or-part_290)(not recursive?_0)))" +"(if or-part_290 or-part_290 local-graph?_1))" "(read-config-state-graph(read-config-st config_54))" " #f)" "(let-values()" @@ -54087,12 +54100,12 @@ static const char *startup_source = "(if(check-parameter 1/read-cdot config_57)" "(let-values()" "(let-values(((line_10 col_9 pos_98)(port-next-location in_61)))" -"(let-values(((v_236)(read-undotted init-c_14 in_61 config_57)))" -"(if(1/special-comment? v_236)" -"(let-values() v_236)" +"(let-values(((v_235)(read-undotted init-c_14 in_61 config_57)))" +"(if(1/special-comment? v_235)" +"(let-values() v_235)" "(let-values()" "((letrec-values(((loop_121)" -"(lambda(v_237)" +"(lambda(v_236)" "(begin" " 'loop" "(let-values(((c_102)" @@ -54108,9 +54121,9 @@ static const char *startup_source = "(if(eq? c_103 'special)(special1.1 'special) c_103)))))" "(let-values(((ec_9)(effective-char c_102 config_57)))" "(if(not(char? ec_9))" -"(let-values() v_237)" +"(let-values() v_236)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_61 c_102)(loop_121 v_237)))" +"(let-values()(begin(consume-char in_61 c_102)(loop_121 v_236)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" @@ -54130,13 +54143,13 @@ static const char *startup_source = "(read-undotted #f in_61 config_57)))" "(loop_121" "(wrap" -"(list cdot_0 v_237 post-v_0)" +"(list cdot_0 v_236 post-v_0)" " in_61" "(reading-at config_57 line_10 col_9 pos_98)" " '#\\.)))))))" -"(let-values() v_237))))))))))" +"(let-values() v_236))))))))))" " loop_121)" -" v_236))))))" +" v_235))))))" "(void))))))" "(define-values" "(read-undotted)" @@ -54148,15 +54161,15 @@ static const char *startup_source = "(let-values() eof)" "(if(not(char? c_104))" "(let-values()" -"(let-values(((v_238)(special-value c_104)))" -"(if(1/special-comment? v_238)" -"(let-values()(if(read-config-keep-comment? config_58) v_238(read-undotted #f in_63 config_58)))" -"(let-values()(coerce v_238 in_63(reading-at config_58 line_11 col_10 pos_118))))))" +"(let-values(((v_237)(special-value c_104)))" +"(if(1/special-comment? v_237)" +"(let-values()(if(read-config-keep-comment? config_58) v_237(read-undotted #f in_63 config_58)))" +"(let-values()(coerce v_237 in_63(reading-at config_58 line_11 col_10 pos_118))))))" "(let-values(((c2_7)(readtable-handler config_58 c_104)))" "(if c2_7" "((lambda(handler_3)" -"(let-values(((v_239)(readtable-apply handler_3 c_104 in_63 config_58 line_11 col_10 pos_118)))" -"(retry-special-comment v_239 in_63 config_58)))" +"(let-values(((v_238)(readtable-apply handler_3 c_104 in_63 config_58 line_11 col_10 pos_118)))" +"(retry-special-comment v_238 in_63 config_58)))" " c2_7)" "(let-values()" "(let-values(((ec_10)(effective-char c_104 config_58)))" @@ -54225,11 +54238,11 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_193)" +"(let-values(((v_192)" "(let-values(((temp82_4)" -"(if(let-values(((or-part_360)(eq? c_104 ec_10)))" -"(if or-part_360" -" or-part_360" +"(if(let-values(((or-part_358)(eq? c_104 ec_10)))" +"(if or-part_358" +" or-part_358" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -54243,7 +54256,7 @@ static const char *startup_source = " c_104" " in_63" " r-config_0))))" -"(retry-special-comment v_193 in_63 config_58)))" +"(retry-special-comment v_192 in_63 config_58)))" "(let-values()(read-dispatch c_104 in_63 r-config_0 config_58)))" "(if(unsafe-fx< index_4 3)" " (let-values () (read-quote read-one 'quote \"quoting '\" c_104 in_63 r-config_0))" @@ -54360,10 +54373,10 @@ static const char *startup_source = "(list temp101_3))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_285)" +"(if(let-values(((or-part_283)" "(check-parameter 1/read-square-bracket-as-paren config_58)))" -"(if or-part_285" -" or-part_285" +"(if or-part_283" +" or-part_283" "(check-parameter 1/read-square-bracket-with-tag config_58)))" "(let-values()" "(wrap" @@ -54409,10 +54422,10 @@ static const char *startup_source = " temp111_2" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_361)" +"(if(let-values(((or-part_359)" "(check-parameter 1/read-square-bracket-as-paren config_58)))" -"(if or-part_361" -" or-part_361" +"(if or-part_359" +" or-part_359" "(check-parameter 1/read-square-bracket-with-tag config_58)))" "(let-values()" "(let-values(((in113_0) in_63)" @@ -54452,10 +54465,10 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_362)" +"(if(let-values(((or-part_360)" "(check-parameter 1/read-curly-brace-as-paren config_58)))" -"(if or-part_362" -" or-part_362" +"(if or-part_360" +" or-part_360" "(check-parameter 1/read-curly-brace-with-tag config_58)))" "(let-values()" "(wrap" @@ -54502,10 +54515,10 @@ static const char *startup_source = "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_363)" +"(if(let-values(((or-part_361)" "(check-parameter 1/read-curly-brace-as-paren config_58)))" -"(if or-part_363" -" or-part_363" +"(if or-part_361" +" or-part_361" "(check-parameter 1/read-curly-brace-with-tag config_58)))" "(let-values()" "(let-values(((in132_0) in_63)" @@ -54578,9 +54591,9 @@ static const char *startup_source = "(let-values(((line_12)(read-config-line config_59)))" "(let-values(((col_11)(read-config-col config_59)))" "(let-values(((pos_119)(read-config-pos config_59)))" -"(let-values(((v_240)" +"(let-values(((v_239)" "(readtable-apply handler_4 c_106 in_65 config_59 line_12 col_11 pos_119)))" -"(retry-special-comment v_240 in_65 orig-config_0))))))" +"(retry-special-comment v_239 in_65 orig-config_0))))))" " c3_8)" "(let-values()" "(let-values()" @@ -54904,8 +54917,8 @@ static const char *startup_source = "(if(eq? c_110 'special)(special1.1 'special) c_110)))))" "(if(char-delimiter? c2_11 config_59)" "(let-values()(wrap #f in_65 config_59 c_106))" -"(if(let-values(((or-part_347)(char=? c2_11 '#\\x)))" -"(if or-part_347 or-part_347(char=? c2_11 '#\\l)))" +"(if(let-values(((or-part_344)(char=? c2_11 '#\\x)))" +"(if or-part_344 or-part_344(char=? c2_11 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" @@ -55167,11 +55180,11 @@ static const char *startup_source = "(list dispatch-c279_0)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_241 in_74 config_60)" +"(lambda(v_240 in_74 config_60)" "(begin" -"(if(1/special-comment? v_241)" -"(let-values()(if(read-config-keep-comment? config_60) v_241(read-undotted #f in_74 config_60)))" -"(let-values() v_241)))))" +"(if(1/special-comment? v_240)" +"(let-values()(if(read-config-keep-comment? config_60) v_240(read-undotted #f in_74 config_60)))" +"(let-values() v_240)))))" "(define-values" "(1/module-declared?)" "(let-values(((module-declared?4_0)" @@ -55188,11 +55201,11 @@ static const char *startup_source = "(let-values()" "(raise-argument-error 'module-declared? module-reference-str mod_4)))" "(values))))" -"(let-values(((ns_106)(1/current-namespace)))" +"(let-values(((ns_107)(1/current-namespace)))" "(let-values(((name_69)" "(let-values(((load?36_0) load?_3))" "(reference->resolved-module-path32.1 load?36_0 mod_4))))" -"(if(namespace->module ns_106 name_69) #t #f)))))))))))" +"(if(namespace->module ns_107 name_69) #t #f)))))))))))" "(case-lambda" "((mod_5)(begin 'module-declared?(module-declared?4_0 mod_5 #f #f)))" "((mod_6 load?1_1)(module-declared?4_0 mod_6 load?1_1 #t)))))" @@ -55209,7 +55222,7 @@ static const char *startup_source = "(values))))" "(let-values(((ns_54)(1/current-namespace)))" "(let-values(((name_0)(let-values(((temp38_2) #f))(reference->resolved-module-path32.1 temp38_2 mod_7))))" -"(let-values(((m_24)(namespace->module ns_54 name_0)))(if m_24(module-is-predefined? m_24) #f))))))))" +"(let-values(((m_23)(namespace->module ns_54 name_0)))(if m_23(module-is-predefined? m_23) #f))))))))" "(define-values" "(module->)" "(let-values(((module->11_0)" @@ -55228,13 +55241,13 @@ static const char *startup_source = "(let-values()" "(raise-argument-error who_29 module-reference-str mod_8)))" "(values))))" -"(let-values(((m_25)" +"(let-values(((m_24)" "(namespace->module/complain" " who_29" "(1/current-namespace)" "(let-values(((load?40_0) load?_4))" "(reference->resolved-module-path32.1 load?40_0 mod_8)))))" -"(extract_1 m_25))))))))))))" +"(extract_1 m_24))))))))))))" "(case-lambda" "((extract_2 who_30 mod_9)(begin(module->11_0 extract_2 who_30 mod_9 #f #f)))" "((extract_3 who_31 mod_10 load?6_1)(module->11_0 extract_3 who_31 mod_10 load?6_1 #t)))))" @@ -55260,7 +55273,7 @@ static const char *startup_source = " 'module->exports" "(let-values(((provides_12 self_29)" "(module->" -"(lambda(m_26)(values(module-provides m_26)(module-self m_26)))" +"(lambda(m_25)(values(module-provides m_25)(module-self m_25)))" " 'module->exports" " mod_15)))" "(provides->api-provides provides_12 self_29)))))" @@ -55270,18 +55283,18 @@ static const char *startup_source = "(begin" " 'module->indirect-exports" "(module->" -"(lambda(m_27)(variables->api-nonprovides(module-provides m_27)((module-get-all-variables m_27))))" +"(lambda(m_26)(variables->api-nonprovides(module-provides m_26)((module-get-all-variables m_26))))" " 'module->indirect-exports" " mod_16))))" "(define-values" "(1/module-provide-protected?)" -"(lambda(mod_17 sym_91)" +"(lambda(mod_17 sym_92)" "(begin" " 'module-provide-protected?" "(module->" -"(lambda(m_28)" -"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_91 #f)))" -"(let-values(((or-part_175)(not b/p_3)))(if or-part_175 or-part_175(provided-as-protected? b/p_3)))))" +"(lambda(m_27)" +"(let-values(((b/p_3)(hash-ref(module-provides m_27) sym_92 #f)))" +"(let-values(((or-part_176)(not b/p_3)))(if or-part_176 or-part_176(provided-as-protected? b/p_3)))))" " 'module-provide-protected?" " mod_17))))" "(define-values" @@ -55291,7 +55304,7 @@ static const char *startup_source = "(begin" " 'module->namespace21" "(let-values(((mod_18) mod20_0))" -"(let-values(((ns_107)(if ns19_0 ns18_1(1/current-namespace))))" +"(let-values(((ns_108)(if ns19_0 ns18_1(1/current-namespace))))" "(let-values()" "(let-values((()" "(begin" @@ -55302,17 +55315,17 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? ns_107)" +"(if(1/namespace? ns_108)" "(void)" "(let-values()" -" (raise-argument-error 'module->namespace \"namespace?\" ns_107)))" +" (raise-argument-error 'module->namespace \"namespace?\" ns_108)))" "(values))))" "(let-values(((name_41)" "(let-values(((temp45_1) #t))" "(reference->resolved-module-path32.1 temp45_1 mod_18))))" -"(let-values(((phase_95)(namespace-phase ns_107)))" +"(let-values(((phase_95)(namespace-phase ns_108)))" "(let-values(((m-ns_17)" -"(let-values(((ns46_0) ns_107)" +"(let-values(((ns46_0) ns_108)" "((name47_0) name_41)" "((phase48_0) phase_95))" "(namespace->module-namespace82.1" @@ -55330,7 +55343,7 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(namespace->module/complain 'module->namespace ns_107 name_41)" +"(namespace->module/complain 'module->namespace ns_108 name_41)" "(raise-arguments-error" " 'module->namespace" " \"module not instantiated in the current namespace\"" @@ -55351,7 +55364,7 @@ static const char *startup_source = " m-ns_17" "(let-values(((temp49_2)(namespace-mpi m-ns_17)))" "(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp49_2)))))" -"(let-values(((ns41_2) ns_107)" +"(let-values(((ns41_2) ns_108)" "((temp42_4)(namespace-mpi m-ns_17))" "((phase43_2) phase_95))" "(namespace-module-make-available!112.1 #f #f ns41_2 temp42_4 phase43_2))" @@ -55365,19 +55378,19 @@ static const char *startup_source = "(lambda(insp25_0 mod26_0 ns23_0 ns24_1)" "(begin" " 'namespace-unprotect-module27" -"(let-values(((insp_11) insp25_0))" +"(let-values(((insp_10) insp25_0))" "(let-values(((mod_21) mod26_0))" -"(let-values(((ns_108)(if ns24_1 ns23_0(1/current-namespace))))" +"(let-values(((ns_109)(if ns24_1 ns23_0(1/current-namespace))))" "(let-values()" "(let-values((()" "(begin" -"(if(inspector? insp_11)" +"(if(inspector? insp_10)" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-unprotect-module" " \"inspector?\"" -" insp_11)))" +" insp_10)))" "(values))))" "(let-values((()" "(begin" @@ -55391,22 +55404,22 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? ns_108)" +"(if(1/namespace? ns_109)" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-unprotect-module" " \"namespace?\"" -" ns_108)))" +" ns_109)))" "(values))))" "(let-values(((name_61)" "(let-values(((temp51_3) #f))" "(reference->resolved-module-path32.1 temp51_3 mod_21))))" -"(let-values(((phase_141)(namespace-phase ns_108)))" +"(let-values(((phase_140)(namespace-phase ns_109)))" "(let-values(((m-ns_18)" -"(let-values(((ns52_0) ns_108)" +"(let-values(((ns52_0) ns_109)" "((name53_0) name_61)" -"((phase54_0) phase_141))" +"((phase54_0) phase_140))" "(namespace->module-namespace82.1" " #f" " #f" @@ -55426,20 +55439,20 @@ static const char *startup_source = " \"module not instantiated\"" " \"module name\"" " name_61)))" -"(if(inspector-superior? insp_11(namespace-inspector m-ns_18))" +"(if(inspector-superior? insp_10(namespace-inspector m-ns_18))" "(let-values()" "(set-namespace-inspector!" " m-ns_18" "(make-inspector(current-code-inspector))))" "(void)))))))))))))))))" "(case-lambda" -"((insp_18 mod_22)(begin 'namespace-unprotect-module(namespace-unprotect-module27_0 insp_18 mod_22 #f #f)))" -"((insp_19 mod_23 ns23_1)(namespace-unprotect-module27_0 insp_19 mod_23 ns23_1 #t)))))" +"((insp_17 mod_22)(begin 'namespace-unprotect-module(namespace-unprotect-module27_0 insp_17 mod_22 #f #f)))" +"((insp_18 mod_23 ns23_1)(namespace-unprotect-module27_0 insp_18 mod_23 ns23_1 #t)))))" "(define-values" "(namespace->module/complain)" -"(lambda(who_32 ns_109 name_70)" +"(lambda(who_32 ns_110 name_70)" "(begin" -"(let-values(((or-part_30)(namespace->module ns_109 name_70)))" +"(let-values(((or-part_30)(namespace->module ns_110 name_70)))" "(if or-part_30" " or-part_30" " (raise-arguments-error who_32 \"unknown module in the current namespace\" \"name\" name_70))))))" @@ -55447,11 +55460,11 @@ static const char *startup_source = "(module-reference?)" "(lambda(mod_24)" "(begin" -"(let-values(((or-part_262)(1/module-path? mod_24)))" -"(if or-part_262" -" or-part_262" -"(let-values(((or-part_217)(1/module-path-index? mod_24)))" -"(if or-part_217 or-part_217(1/resolved-module-path? mod_24))))))))" +"(let-values(((or-part_263)(1/module-path? mod_24)))" +"(if or-part_263" +" or-part_263" +"(let-values(((or-part_218)(1/module-path-index? mod_24)))" +"(if or-part_218 or-part_218(1/resolved-module-path? mod_24))))))))" " (define-values (module-reference-str) \"(or/c module-path? module-path-index? resolved-module-path?)\")" "(define-values" "(reference->resolved-module-path32.1)" @@ -55612,8 +55625,8 @@ static const char *startup_source = "(read-to-syntax)" "(lambda(s-exp_4 srcloc_11 rep_1)" "(begin" -"(let-values(((the-struct_91) empty-syntax))" -"(if(syntax?$1 the-struct_91)" +"(let-values(((the-struct_90) empty-syntax))" +"(if(syntax?$1 the-struct_90)" "(let-values(((content63_0)(datum-intern-literal s-exp_4))" "((srcloc64_0) srcloc_11)" "((props65_0)" @@ -55625,14 +55638,14 @@ static const char *startup_source = "(let-values() original-props))))))" "(syntax1.1" " content63_0" -"(syntax-scopes the-struct_91)" -"(syntax-shifted-multi-scopes the-struct_91)" -"(syntax-scope-propagations+tamper the-struct_91)" -"(syntax-mpi-shifts the-struct_91)" +"(syntax-scopes the-struct_90)" +"(syntax-shifted-multi-scopes the-struct_90)" +"(syntax-scope-propagations+tamper the-struct_90)" +"(syntax-mpi-shifts the-struct_90)" " srcloc64_0" " props65_0" -"(syntax-inspector the-struct_91)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_91))))))" +"(syntax-inspector the-struct_90)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_90))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -55643,11 +55656,11 @@ static const char *startup_source = "(define-values(read-module-declared?)(lambda(mod-path_29)(begin(1/module-declared? mod-path_29 #t))))" "(define-values" "(read-coerce)" -"(lambda(for-syntax?_12 v_242 srcloc_12)" +"(lambda(for-syntax?_12 v_241 srcloc_12)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_242)(let-values()(syntax->datum$1 v_242))(let-values() v_242)))" -"(let-values()(datum->syntax$1 #f v_242(if srcloc_12(to-srcloc-stx srcloc_12) #f)))))))" +"(let-values()(if(syntax?$1 v_241)(let-values()(syntax->datum$1 v_241))(let-values() v_241)))" +"(let-values()(datum->syntax$1 #f v_241(if srcloc_12(to-srcloc-stx srcloc_12) #f)))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_13 k_41)" @@ -55677,7 +55690,7 @@ static const char *startup_source = "(begin" " 'dynamic-require-reader21" "(let-values(((mod-path_30) mod-path19_0))" -"(let-values(((sym_92) sym20_0))" +"(let-values(((sym_93) sym20_0))" "(let-values(((fail-thunk_1)" "(if fail-thunk18_0 fail-thunk17_0 default-dynamic-require-fail-thunk)))" "(let-values()" @@ -55689,11 +55702,11 @@ static const char *startup_source = "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" " root-ns_0)" -"(let-values()(1/dynamic-require mod-path_30 sym_92 fail-thunk_1)))" -"(1/dynamic-require mod-path_30 sym_92 fail-thunk_1)))))))))))" +"(let-values()(1/dynamic-require mod-path_30 sym_93 fail-thunk_1)))" +"(1/dynamic-require mod-path_30 sym_93 fail-thunk_1)))))))))))" "(case-lambda" "((mod-path_31 sym_14)(begin(dynamic-require-reader21_0 mod-path_31 sym_14 #f #f)))" -"((mod-path_32 sym_93 fail-thunk17_1)(dynamic-require-reader21_0 mod-path_32 sym_93 fail-thunk17_1 #t)))))" +"((mod-path_32 sym_94 fail-thunk17_1)(dynamic-require-reader21_0 mod-path_32 sym_94 fail-thunk17_1 #t)))))" "(define-values" "(1/read-syntax)" "(let-values(((read-syntax5_0)" @@ -55737,8 +55750,8 @@ static const char *startup_source = "(if(input-port? in_76)" "(void)" " (let-values () (raise-argument-error 'read-syntax/recursive \"input-port?\" in_76)))" -"(if(let-values(((or-part_364)(char? start_58)))" -"(if or-part_364 or-part_364(not start_58)))" +"(if(let-values(((or-part_362)(char? start_58)))" +"(if or-part_362 or-part_362(not start_58)))" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_58)))" @@ -55786,12 +55799,12 @@ static const char *startup_source = "(if(input-port? in_83)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_83)))" -"(if(let-values(((or-part_175)(char? start_61)))" -"(if or-part_175 or-part_175(not start_61)))" +"(if(let-values(((or-part_176)(char? start_61)))" +"(if or-part_176 or-part_176(not start_61)))" "(void)" " (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_61)))" -"(if(let-values(((or-part_176)(1/readtable? readtable_8)))" -"(if or-part_176 or-part_176(not readtable_8)))" +"(if(let-values(((or-part_177)(1/readtable? readtable_8)))" +"(if or-part_177 or-part_177(not readtable_8)))" "(void)" "(let-values()" " (raise-argument-error 'read/recursive \"(or/c readtable? #f)\" readtable_8)))" @@ -55847,13 +55860,13 @@ static const char *startup_source = "(begin" " (if (syntax?$1 s_1) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_1)))" "((1/current-eval) s_1))))" -"((s_168 ns_110)" +"((s_168 ns_111)" "(begin" " (if (syntax?$1 s_168) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_168)))" -" (if (1/namespace? ns_110) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_110)))" +" (if (1/namespace? ns_111) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_111)))" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_110)" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_111)" "(let-values()((1/current-eval) s_168)))))))" "(define-values(compile$1)(lambda(s_2)(begin 'compile((1/current-compile)(intro s_2) #f))))" "(define-values" @@ -55884,15 +55897,15 @@ static const char *startup_source = "(expand-once$1 s_9)))))" "(define-values" "(1/expand-to-top-form)" -"(lambda(s_475)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_475)))))" +"(lambda(s_480)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_480)))))" "(define-values" "(1/expand-syntax-to-top-form)" -"(lambda(s_422)" +"(lambda(s_428)" "(begin" " 'expand-syntax-to-top-form" "(begin" -" (if (syntax?$1 s_422) (void) (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_422)))" -"(expand-to-top-form$1 s_422)))))" +" (if (syntax?$1 s_428) (void) (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_428)))" +"(expand-to-top-form$1 s_428)))))" "(define-values" "(intro)" "(let-values(((intro4_0)" @@ -55900,10 +55913,10 @@ static const char *startup_source = "(begin" " 'intro4" "(let-values(((given-s_1) given-s3_0))" -"(let-values(((ns_111)(if ns2_1 ns1_6(1/current-namespace))))" +"(let-values(((ns_112)(if ns2_1 ns1_6(1/current-namespace))))" "(let-values()" "(let-values(((s_10)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" -"(1/namespace-syntax-introduce s_10 ns_111)))))))))" +"(1/namespace-syntax-introduce s_10 ns_112)))))))))" "(case-lambda((given-s_2)(begin(intro4_0 given-s_2 #f #f)))((given-s_3 ns1_7)(intro4_0 given-s_3 ns1_7 #t)))))" "(define-values" "(declare-primitive-module!)" @@ -55919,18 +55932,18 @@ static const char *startup_source = "((temp8_4)" "(hasheqv" " 0" -"(let-values(((lst_301)(1/instance-variable-names inst_7)))" +"(let-values(((lst_300)(1/instance-variable-names inst_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_301)))" +"(let-values()(check-list lst_300)))" "((letrec-values(((for-loop_203)" -"(lambda(table_166 lst_94)" +"(lambda(table_166 lst_95)" "(begin" " 'for-loop" -"(if(pair? lst_94)" -"(let-values(((sym_94)(unsafe-car lst_94))" -"((rest_45)(unsafe-cdr lst_94)))" +"(if(pair? lst_95)" +"(let-values(((sym_95)(unsafe-car lst_95))" +"((rest_45)(unsafe-cdr lst_95)))" "(let-values(((table_206)" "(let-values(((table_207) table_166))" "(let-values(((table_167)" @@ -55944,7 +55957,7 @@ static const char *startup_source = "((temp11_6)" " 0)" "((sym12_0)" -" sym_94))" +" sym_95))" "(make-module-binding22.1" " #f" " #f" @@ -55968,10 +55981,10 @@ static const char *startup_source = " temp11_6" " sym12_0))))" "(values" -" sym_94" +" sym_95" "(if(hash-ref" " protected_0" -" sym_94" +" sym_95" " #f)" "(provided1.1" " binding_27" @@ -55989,30 +56002,30 @@ static const char *startup_source = " table_166)))))" " for-loop_203)" " '#hash()" -" lst_301)))))" +" lst_300)))))" "((temp9_6)" "(lambda(data-box_5" -" ns_112" +" ns_113" " phase-shift_19" " phase-level_22" " self_30" " bulk-binding-registry_18" -" insp_20)" +" insp_19)" "(if(= 0 phase-level_22)" "(let-values()" "(begin" -"(let-values(((lst_298)(1/instance-variable-names inst_7)))" +"(let-values(((lst_297)(1/instance-variable-names inst_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_298)))" +"(let-values()(check-list lst_297)))" "((letrec-values(((for-loop_220)" -"(lambda(lst_261)" +"(lambda(lst_262)" "(begin" " 'for-loop" -"(if(pair? lst_261)" -"(let-values(((sym_95)(unsafe-car lst_261))" -"((rest_174)(unsafe-cdr lst_261)))" +"(if(pair? lst_262)" +"(let-values(((sym_96)(unsafe-car lst_262))" +"((rest_172)(unsafe-cdr lst_262)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -56022,20 +56035,20 @@ static const char *startup_source = "(let-values(((val_77)" "(1/instance-variable-value" " inst_7" -" sym_95)))" +" sym_96)))" "(namespace-set-variable!" -" ns_112" +" ns_113" " 0" -" sym_95" +" sym_96" " val_77)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_220 rest_174)" +"(for-loop_220 rest_172)" "(values))))" "(values))))))" " for-loop_220)" -" lst_298)))" +" lst_297)))" "(void)))" "(void)))))" "(make-module39.1" @@ -56239,14 +56252,14 @@ static const char *startup_source = "(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_426) s12_2))" +"(let-values(((s_432) 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_2) 'local-expand)" -"((s65_0) s_426)" +"((s65_0) s_432)" "((context66_0) context_12)" "((stop-ids67_0) stop-ids_5)" "((intdefs68_0) intdefs_4)" @@ -56363,22 +56376,22 @@ static const char *startup_source = "(begin" " 'local-transformer-expand/capture-lifts" "(local-transformer-expand/capture-lifts31_0 s_304 context_20 stop-ids_13 #f #f #f #f)))" -"((s_476 context_21 stop-ids_14 intdefs_8 lift-key25_1)" -"(local-transformer-expand/capture-lifts31_0 s_476 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" -"((s_477 context_22 stop-ids_15 intdefs24_1)" -"(local-transformer-expand/capture-lifts31_0 s_477 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" +"((s_481 context_21 stop-ids_14 intdefs_8 lift-key25_1)" +"(local-transformer-expand/capture-lifts31_0 s_481 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" +"((s_482 context_22 stop-ids_15 intdefs24_1)" +"(local-transformer-expand/capture-lifts31_0 s_482 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_0 opaque-only?33_0 opaque-only?34_0)" "(begin" " 'syntax-local-expand-expression36" -"(let-values(((s_466) s35_0))" +"(let-values(((s_470) s35_0))" "(let-values(((opaque-only?_0)(if opaque-only?34_0 opaque-only?33_0 #f)))" "(let-values()" -"(let-values(((exp-s_12)" +"(let-values(((exp-s_0)" "(let-values(((temp85_2) 'syntax-local-expand-expression)" -"((s86_0) s_466)" +"((s86_0) s_470)" "((temp87_3) 'expression)" "((null88_0) null)" "((temp89_6) #f)" @@ -56410,9 +56423,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" "(already-expanded1.1" -"(if(parsed? exp-s_12)" -" exp-s_12" -"(flip-introduction-scopes exp-s_12 ctx_71))" +"(if(parsed? exp-s_0) exp-s_0(flip-introduction-scopes exp-s_0 ctx_71))" "(expand-context-binding-layer ctx_71)))" " ctx_71)))" "(begin" @@ -56420,11 +56431,11 @@ static const char *startup_source = "(if obs_30" "(let-values()(let-values()(call-expand-observe obs_30 'opaque-expr ae_1)))" "(void)))" -"(let-values(((obs_56)(expand-context-observer ctx_71)))" -"(if obs_56" -"(let-values()(let-values()(call-expand-observe obs_56 'exit-local exp-s_12)))" +"(let-values(((obs_10)(expand-context-observer ctx_71)))" +"(if obs_10" +"(let-values()(let-values()(call-expand-observe obs_10 'exit-local exp-s_0)))" "(void)))" -"(values(if(not opaque-only?_0) exp-s_12 #f) ae_1))))))))))))" +"(values(if(not opaque-only?_0) exp-s_0 #f) ae_1))))))))))))" "(case-lambda" "((s_26)(begin 'syntax-local-expand-expression(syntax-local-expand-expression36_0 s_26 #f #f)))" "((s_308 opaque-only?33_1)(syntax-local-expand-expression36_0 s_308 opaque-only?33_1 #t)))))" @@ -56473,9 +56484,9 @@ static const char *startup_source = "(let-values(((s_310)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_365)(list? context_23)))" -"(if or-part_365" -" or-part_365" +"(if(let-values(((or-part_363)(list? context_23)))" +"(if or-part_363" +" or-part_363" "(memq" " context_23" "(if as-transformer?_5" @@ -56492,9 +56503,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_366)(not stop-ids_16)))" -"(if or-part_366" -" or-part_366" +"(if(let-values(((or-part_364)(not stop-ids_16)))" +"(if or-part_364" +" or-part_364" "(if(list? stop-ids_16)" "(andmap2 identifier? stop-ids_16)" " #f)))" @@ -56507,13 +56518,13 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_367)(not intdefs_9)))" -"(if or-part_367" -" or-part_367" -"(let-values(((or-part_368)" +"(if(let-values(((or-part_365)(not intdefs_9)))" +"(if or-part_365" +" or-part_365" +"(let-values(((or-part_366)" "(1/internal-definition-context? intdefs_9)))" -"(if or-part_368" -" or-part_368" +"(if or-part_366" +" or-part_366" "(if(list? intdefs_9)" "(andmap2 1/internal-definition-context? intdefs_9)" " #f)))))" @@ -56527,13 +56538,13 @@ static const char *startup_source = "(let-values(((ctx_72)" "(let-values(((who93_0) who_33))" "(get-current-expand-context17.1 #f #f who93_0 #t))))" -"(let-values(((phase_142)" +"(let-values(((phase_141)" "(if as-transformer?_5" "(add1(expand-context-phase ctx_72))" "(expand-context-phase ctx_72))))" "(let-values(((local-ctx_0)" "(let-values(((context95_0) context_23)" -"((phase96_0) phase_142)" +"((phase96_0) phase_141)" "((intdefs97_0) intdefs_9)" "((stop-ids98_0) stop-ids_16)" "((to-parsed-ok?99_0) to-parsed-ok?_1)" @@ -56555,17 +56566,17 @@ static const char *startup_source = "(begin" "(namespace-visit-available-modules!" "(expand-context-namespace ctx_72)" -" phase_142)" +" phase_141)" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_57)" +"(let-values(((obs_59)" "(expand-context-observer local-ctx_0)))" -"(if obs_57" +"(if obs_59" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_57" +" obs_59" " 'enter-local" " s_310)))" "(void)))" @@ -56585,26 +56596,26 @@ static const char *startup_source = "(begin" "(if as-transformer?_5" "(let-values()" -"(let-values(((obs_58)" +"(let-values(((obs_60)" "(expand-context-observer" " local-ctx_0)))" -"(if obs_58" +"(if obs_60" "(let-values()" "(let-values()" -"(call-expand-observe obs_58 'phase-up)))" +"(call-expand-observe obs_60 'phase-up)))" "(void))))" "(void))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_59)" +"(let-values(((obs_61)" "(expand-context-observer" " local-ctx_0)))" -"(if obs_59" +"(if obs_61" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_59" +" obs_61" " 'local-pre" " input-s_1)))" "(void)))" @@ -56613,14 +56624,14 @@ static const char *startup_source = "(begin" "(if stop-ids_16" "(let-values()" -"(let-values(((obs_60)" +"(let-values(((obs_62)" "(expand-context-observer" " local-ctx_0)))" -"(if obs_60" +"(if obs_62" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_60" +" obs_62" " 'start)))" "(void))))" "(void))" @@ -56702,14 +56713,14 @@ static const char *startup_source = " local-ctx124_0))))))))" "(let-values((()" "(begin" -"(let-values(((obs_61)" +"(let-values(((obs_63)" "(expand-context-observer" " local-ctx_0)))" -"(if obs_61" +"(if obs_63" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_61" +" obs_63" " 'local-post" " output-s_0)))" "(void)))" @@ -56724,14 +56735,14 @@ static const char *startup_source = "(if skip-log-exit?_0" "(void)" "(let-values()" -"(let-values(((obs_62)" +"(let-values(((obs_24)" "(expand-context-observer" " local-ctx_0)))" -"(if obs_62" +"(if obs_24" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_62" +" obs_24" " 'exit-local" " result-s_8)))" "(void)))))" @@ -56771,37 +56782,37 @@ static const char *startup_source = " \"(or/c inspector? #f)\"" " maybe-insp_0)))" "(values))))" -"(let-values(((insp_21)(inspector-for-taint maybe-insp_0)))" +"(let-values(((insp_20)(inspector-for-taint maybe-insp_0)))" "(if use-mode?_0" "(let-values()" "(taint-dispatch" " s_3" -"(lambda(s_475)(syntax-arm$1 s_475 insp_21))" +"(lambda(s_480)(syntax-arm$1 s_480 insp_20))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-arm$1 s_3 insp_21))))))))))))))" +"(let-values()(syntax-arm$1 s_3 insp_20))))))))))))))" "(case-lambda" -"((s_422)(begin 'syntax-arm(syntax-arm6_0 s_422 #f #f #f #f)))" -"((s_478 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_478 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_479 maybe-insp1_1)(syntax-arm6_0 s_479 maybe-insp1_1 #f #t #f)))))" +"((s_428)(begin 'syntax-arm(syntax-arm6_0 s_428 #f #f #f #f)))" +"((s_483 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_483 maybe-insp_1 use-mode?2_1 #t #t))" +"((s_484 maybe-insp1_1)(syntax-arm6_0 s_484 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_412 maybe-insp_2)" +"(lambda(s_415 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values((()" "(begin" -"(if(syntax?$1 s_412)" +"(if(syntax?$1 s_415)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_412)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_415)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_298)(not maybe-insp_2)))" -"(if or-part_298 or-part_298(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_294)(not maybe-insp_2)))" +"(if or-part_294 or-part_294(inspector? maybe-insp_2)))" "(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_412 insp_22)))))))" +"(let-values(((insp_21)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_415 insp_21)))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm12_0)" @@ -56823,7 +56834,7 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_40" -"(lambda(s_427)(syntax-rearm$1 s_427 from-s_2))" +"(lambda(s_433)(syntax-rearm$1 s_433 from-s_2))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-rearm$1 s_40 from-s_2))))))))))))" "(case-lambda" @@ -56915,7 +56926,7 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'variable-reference->module-source \"variable-reference?\" vr_4)))" "(values))))" -"(let-values(((ns_113)(1/variable-reference->namespace vr_4)))(namespace-source-name ns_113))))))" +"(let-values(((ns_114)(1/variable-reference->namespace vr_4)))(namespace-source-name ns_114))))))" "(define-values" "(1/variable-reference->phase)" "(lambda(vr_5)" @@ -56954,9 +56965,9 @@ static const char *startup_source = " \"variable reference\"" " vr_7))" "(void))" -"(let-values(((or-part_222)(namespace-declaration-inspector(1/variable-reference->namespace vr_7))))" -"(if or-part_222" -" or-part_222" +"(let-values(((or-part_223)(namespace-declaration-inspector(1/variable-reference->namespace vr_7))))" +"(if or-part_223" +" or-part_223" "(raise-arguments-error" " 'variable-reference->module-declaration-inspector" " \"given variable reference is not from a module\")))))))" @@ -57281,28 +57292,28 @@ static const char *startup_source = " 'copy-runtime-module!26" "(let-values(((name_73) name25_0))" "(let-values(((to-name_0)(if to18_0 to11_0 name_73)))" -"(let-values(((ns_114) namespace12_0))" +"(let-values(((ns_115) 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())))" "(let-values(((primitive?_9)(if primitive?23_0 primitive?16_0 #t)))" -"(let-values(((protected?_2)(if protected?24_0 protected?17_0 #f)))" +"(let-values(((protected?_10)(if protected?24_0 protected?17_0 #f)))" "(let-values()" "(let-values(((prims_0)(1/primitive-table name_73)))" "(let-values((()" "(begin" -"(let-values(((ht_156) prims_0))" +"(let-values(((ht_155) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_156)))" +"(let-values()(check-in-hash-keys ht_155)))" "((letrec-values(((for-loop_242)" -"(lambda(i_180)" +"(lambda(i_179)" "(begin" " 'for-loop" -"(if i_180" -"(let-values(((sym_96)" -"(hash-iterate-key ht_156 i_180)))" +"(if i_179" +"(let-values(((sym_97)" +"(hash-iterate-key ht_155 i_179)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -57310,39 +57321,39 @@ static const char *startup_source = "(begin" "(let-values()" "(register-built-in-symbol!" -" sym_96))" +" sym_97))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_242" -"(hash-iterate-next ht_156 i_180))" +"(hash-iterate-next ht_155 i_179))" "(values))))" "(values))))))" " for-loop_242)" -"(hash-iterate-first ht_156))))" +"(hash-iterate-first ht_155))))" "(values))))" "(let-values()" -"(let-values(((ht_157)" -"(let-values(((ht_158) prims_0))" +"(let-values(((ht_156)" +"(let-values(((ht_157) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_158)))" -"((letrec-values(((for-loop_252)" -"(lambda(table_208 i_181)" +"(let-values()(check-in-hash ht_157)))" +"((letrec-values(((for-loop_254)" +"(lambda(table_208 i_180)" "(begin" " 'for-loop" -"(if i_181" -"(let-values(((sym_97 val_78)" +"(if i_180" +"(let-values(((sym_98 val_78)" "(hash-iterate-key+value" -" ht_158" -" i_181)))" +" ht_157" +" i_180)))" "(let-values(((table_13)" "(let-values(((table_14)" " table_208))" "(if(set-member?" " skip-syms_0" -" sym_97)" +" sym_98)" " table_14" "(let-values(((table_209)" " table_14))" @@ -57352,11 +57363,11 @@ static const char *startup_source = " val_79)" "(let-values()" "(values" -" sym_97" +" sym_98" "(let-values(((or-part_81)" "(hash-ref" " alts_0" -" sym_97" +" sym_98" " #f)))" "(if or-part_81" " or-part_81" @@ -57367,51 +57378,51 @@ static const char *startup_source = " val_79)))))" "(values table_210)))))))" "(if(not #f)" -"(for-loop_252" +"(for-loop_254" " table_13" -"(hash-iterate-next ht_158 i_181))" +"(hash-iterate-next ht_157 i_180))" " table_13)))" " table_208)))))" -" for-loop_252)" +" for-loop_254)" " '#hasheq()" -"(hash-iterate-first ht_158))))))" +"(hash-iterate-first ht_157))))))" "(let-values(((ht+extras_0)" -"(let-values(((ht_159) extras_0))" +"(let-values(((ht_158) extras_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_159)))" -"((letrec-values(((for-loop_262)" -"(lambda(ht_160 i_182)" +"(let-values()(check-in-hash ht_158)))" +"((letrec-values(((for-loop_265)" +"(lambda(ht_159 i_181)" "(begin" " 'for-loop" -"(if i_182" +"(if i_181" "(let-values(((k_42 v_43)" "(hash-iterate-key+value" -" ht_159" -" i_182)))" +" ht_158" +" i_181)))" +"(let-values(((ht_160)" +"(let-values(((ht_150)" +" ht_159))" "(let-values(((ht_161)" -"(let-values(((ht_151)" -" ht_160))" -"(let-values(((ht_162)" "(let-values()" "(hash-set" -" ht_151" +" ht_150" " k_42" " v_43))))" -"(values ht_162)))))" +"(values ht_161)))))" "(if(not #f)" -"(for-loop_262" -" ht_161" -"(hash-iterate-next ht_159 i_182))" -" ht_161)))" -" ht_160)))))" -" for-loop_262)" -" ht_157" -"(hash-iterate-first ht_159))))))" -"(let-values(((ns63_0) ns_114)" +"(for-loop_265" +" ht_160" +"(hash-iterate-next ht_158 i_181))" +" ht_160)))" +" ht_159)))))" +" for-loop_265)" +" ht_156" +"(hash-iterate-first ht_158))))))" +"(let-values(((ns63_0) ns_115)" "((primitive?64_0) primitive?_9)" -"((protected?65_0) protected?_2))" +"((protected?65_0) protected?_10))" "(declare-hash-based-module!41.1" " ns63_0" " primitive?64_0" @@ -57440,38 +57451,38 @@ static const char *startup_source = "(begin" " 'declare-hash-based-module!41" "(let-values(((name_74) name39_0))" -"(let-values(((ht_163) ht40_0))" -"(let-values(((ns_115) namespace29_0))" -"(let-values(((primitive?_6)(if primitive?35_0 primitive?30_0 #f)))" -"(let-values(((protected?_3)(if protected?36_0 protected?31_0 #f)))" +"(let-values(((ht_162) ht40_0))" +"(let-values(((ns_116) 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_50)(1/module-path-index-join(list 'quote name_74) #f)))" -"(let-values(((ns66_1) ns_115)" +"(let-values(((ns66_1) ns_116)" "((temp67_3)" "(let-values(((temp69_5) #t)" -"((primitive?70_0) primitive?_6)" +"((primitive?70_0) primitive?_10)" "((temp71_5) #t)" -"((temp72_2)(not protected?_3))" +"((temp72_2)(not protected?_11))" "((mpi73_1) mpi_50)" "((temp74_2)" "(hasheqv" " 0" -"(let-values(((ht_164) ht_163))" +"(let-values(((ht_163) ht_162))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_164)))" +"(let-values()(check-in-hash-keys ht_163)))" "((letrec-values(((for-loop_190)" -"(lambda(table_211 i_183)" +"(lambda(table_211 i_182)" "(begin" " 'for-loop" -"(if i_183" -"(let-values(((sym_98)" +"(if i_182" +"(let-values(((sym_99)" "(hash-iterate-key" -" ht_164" -" i_183)))" +" ht_163" +" i_182)))" "(let-values(((table_36)" "(let-values(((table_37)" " table_211))" @@ -57485,7 +57496,7 @@ static const char *startup_source = "(if register-builtin?_0" "(let-values()" "(register-built-in-symbol!" -" sym_98))" +" sym_99))" "(void))" "(values))))" "(let-values(((binding_28)" @@ -57494,7 +57505,7 @@ static const char *startup_source = "((temp77_3)" " 0)" "((sym78_0)" -" sym_98))" +" sym_99))" "(make-module-binding22.1" " #f" " #f" @@ -57518,13 +57529,13 @@ static const char *startup_source = " temp77_3" " sym78_0))))" "(values" -" sym_98" -"(if(let-values(((or-part_369)" -" protected?_3))" -"(if or-part_369" -" or-part_369" +" sym_99" +"(if(let-values(((or-part_367)" +" protected?_11))" +"(if or-part_367" +" or-part_367" "(member" -" sym_98" +" sym_99" " protected-syms_0)))" "(provided1.1" " binding_28" @@ -57541,39 +57552,39 @@ static const char *startup_source = "(for-loop_190" " table_36" "(hash-iterate-next" -" ht_164" -" i_183))" +" ht_163" +" i_182))" " table_36)))" " table_211)))))" " for-loop_190)" " '#hash()" -"(hash-iterate-first ht_164))))))" +"(hash-iterate-first ht_163))))))" "((temp75_2)" "(lambda(data-box_6" -" ns_116" +" ns_117" " phase-shift_20" " phase-level_23" " self_10" " bulk-binding-registry_2" -" insp_23)" +" insp_22)" "(if(= 0 phase-level_23)" "(let-values()" "(begin" -"(let-values(((ht_127) ht_163))" +"(let-values(((ht_127) ht_162))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_127)))" -"((letrec-values(((for-loop_263)" -"(lambda(i_184)" +"((letrec-values(((for-loop_266)" +"(lambda(i_183)" "(begin" " 'for-loop" -"(if i_184" -"(let-values(((sym_99 val_81)" +"(if i_183" +"(let-values(((sym_100 val_81)" "(hash-iterate-key+value" " ht_127" -" i_184)))" +" i_183)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -57581,20 +57592,20 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-variable!" -" ns_116" +" ns_117" " 0" -" sym_99" +" sym_100" " val_81))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_263" +"(for-loop_266" "(hash-iterate-next" " ht_127" -" i_184))" +" i_183))" "(values))))" "(values))))))" -" for-loop_263)" +" for-loop_266)" "(hash-iterate-first ht_127))))" "(void)))" "(void)))))" @@ -57642,26 +57653,26 @@ 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_117) namespace45_0))" +"(let-values(((ns_118) namespace45_0))" "(let-values()" "(let-values(((mpi_51)(1/module-path-index-join(list 'quote name_75) #f)))" "(let-values(((require-mpis_0)" "(reverse$1" -"(let-values(((lst_150) require-names_0))" +"(let-values(((lst_151) require-names_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_150)))" -"((letrec-values(((for-loop_245)" -"(lambda(fold-var_269 lst_302)" +"(let-values()(check-list lst_151)))" +"((letrec-values(((for-loop_246)" +"(lambda(fold-var_270 lst_301)" "(begin" " 'for-loop" -"(if(pair? lst_302)" -"(let-values(((require-name_0)(unsafe-car lst_302))" -"((rest_175)(unsafe-cdr lst_302)))" +"(if(pair? lst_301)" +"(let-values(((require-name_0)(unsafe-car lst_301))" +"((rest_173)(unsafe-cdr lst_301)))" "(let-values(((fold-var_138)" -"(let-values(((fold-var_270) fold-var_269))" -"(let-values(((fold-var_271)" +"(let-values(((fold-var_271) fold-var_270))" +"(let-values(((fold-var_272)" "(let-values()" "(cons" "(let-values()" @@ -57670,16 +57681,16 @@ static const char *startup_source = " 'quote" " require-name_0)" " #f))" -" fold-var_270))))" -"(values fold-var_271)))))" +" fold-var_271))))" +"(values fold-var_272)))))" "(if(not #f)" -"(for-loop_245 fold-var_138 rest_175)" +"(for-loop_246 fold-var_138 rest_173)" " fold-var_138)))" -" fold-var_269)))))" -" for-loop_245)" +" fold-var_270)))))" +" for-loop_246)" " null" -" lst_150))))))" -"(let-values(((ns79_1) ns_117)" +" lst_151))))))" +"(let-values(((ns79_1) ns_118)" "((temp80_6)" "(let-values(((temp82_6) #t)" "((temp83_4) #t)" @@ -57689,41 +57700,41 @@ static const char *startup_source = "(if reexport?_0" "(hasheqv" " 0" -"(let-values(((lst_303) require-mpis_0))" +"(let-values(((lst_302) require-mpis_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_303)))" +"(let-values()(check-list lst_302)))" "((letrec-values(((for-loop_121)" -"(lambda(table_213 lst_304)" +"(lambda(table_213 lst_303)" "(begin" " 'for-loop" -"(if(pair? lst_304)" +"(if(pair? lst_303)" "(let-values(((require-mpi_0)" -"(unsafe-car lst_304))" -"((rest_176)" -"(unsafe-cdr lst_304)))" +"(unsafe-car lst_303))" +"((rest_174)" +"(unsafe-cdr lst_303)))" "(let-values(((table_214)" -"(let-values(((m_29)" +"(let-values(((m_28)" "(namespace->module" -" ns_117" +" ns_118" "(1/module-path-index-resolve" " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_264)" +"((letrec-values(((for-loop_267)" "(lambda(table_215)" "(begin" " 'for-loop" "(let-values()" "(let-values(((table_216)" -"(let-values(((ht_165)" +"(let-values(((ht_164)" "(hash-ref" "(shift-provides-module-path-index" "(module-provides" -" m_29)" +" m_28)" "(module-self" -" m_29)" +" m_28)" " require-mpi_0)" " 0)))" "(begin" @@ -57732,18 +57743,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_165)))" +" ht_164)))" "((letrec-values(((for-loop_122)" "(lambda(table_110" -" i_185)" +" i_184)" "(begin" " 'for-loop" -"(if i_185" -"(let-values(((sym_100" -" binding_29)" +"(if i_184" +"(let-values(((sym_101" +" binding_25)" "(hash-iterate-key+value" -" ht_165" -" i_185)))" +" ht_164" +" i_184)))" "(let-values(((table_32)" "(let-values(((table_217)" " table_110))" @@ -57753,8 +57764,8 @@ static const char *startup_source = " val_82)" "(let-values()" "(values" -" sym_100" -" binding_29))))" +" sym_101" +" binding_25))))" "(hash-set" " table_217" " key_89" @@ -57766,24 +57777,24 @@ static const char *startup_source = "(for-loop_122" " table_32" "(hash-iterate-next" -" ht_165" -" i_185))" +" ht_164" +" i_184))" " table_32)))" " table_110)))))" " for-loop_122)" " table_215" "(hash-iterate-first" -" ht_165))))))" +" ht_164))))))" " table_216))))))" -" for-loop_264)" +" for-loop_267)" " table_213)))))" "(if(not #f)" -"(for-loop_121 table_214 rest_176)" +"(for-loop_121 table_214 rest_174)" " table_214)))" " table_213)))))" " for-loop_121)" " '#hash()" -" lst_303))))" +" lst_302))))" " '#hasheqv()))" "((void87_0) void))" "(make-module39.1" @@ -58171,8 +58182,8 @@ static const char *startup_source = "(check-module-form)" "(lambda(exp_0 filename_1)" "(begin" -"(if(let-values(((or-part_306)(eof-object? exp_0)))" -"(if or-part_306 or-part_306(eof-object?(1/syntax-e exp_0))))" +"(if(let-values(((or-part_303)(eof-object? exp_0)))" +"(if or-part_303 or-part_303(eof-object?(1/syntax-e exp_0))))" "(let-values()" "(if filename_1" "(error" @@ -58244,25 +58255,25 @@ static const char *startup_source = "(let-values()" "((call-with-input-module-file" " path_12" -"(lambda(i_186)" +"(lambda(i_185)" "(begin" -"(maybe-count-lines!_0 i_186)" +"(maybe-count-lines!_0 i_185)" "(with-module-reading-parameterization+delay-source" " path_12" "(lambda()" -"(let-values(((c1_31)(linklet-directory-start i_186)))" +"(let-values(((c1_31)(linklet-directory-start i_185)))" "(if c1_31" "((lambda(pos_120)" "(let-values(((b-pos_0)" -"(search-directory i_186 pos_120(encode-symbols expected-mod_0))))" +"(search-directory i_185 pos_120(encode-symbols expected-mod_0))))" "(if b-pos_0" "(let-values()" "(begin" -"(file-position i_186 b-pos_0)" -"(let-values(((or-part_12)(cached-bundle i_186)))" +"(file-position i_185 b-pos_0)" +"(let-values(((or-part_12)(cached-bundle i_185)))" "(if or-part_12" " or-part_12" -"(let-values(((v_0)(1/read i_186)))" +"(let-values(((v_0)(1/read i_185)))" "(if(1/compiled-module-expression? v_0)" "(lambda()((1/current-eval) v_0))" "(error" @@ -58271,7 +58282,7 @@ static const char *startup_source = " \"expected a compiled module\\n\"" " \" in: ~e\\n\"" " \" found: ~e\")" -"(object-name i_186)" +"(object-name i_185)" " v_0)))))))" "(if(pair? expected-mod_0)" "(let-values() void)" @@ -58279,15 +58290,15 @@ static const char *startup_source = "(error" " 'default-load-handler" " (string-append \"could not find main module\\n\" \" in: ~e\")" -"(object-name i_186)))))))" +"(object-name i_185)))))))" " c1_31)" "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)" "(let-values() void)" -"(let-values(((c2_15)(cached-bundle i_186)))" +"(let-values(((c2_15)(cached-bundle i_185)))" "(if c2_15" "((lambda(thunk_6) thunk_6) c2_15)" "(let-values()" -"(let-values(((s_170)(1/read-syntax(object-name i_186) i_186)))" +"(let-values(((s_170)(1/read-syntax(object-name i_185) i_185)))" "(let-values((()" "(begin" "(if(eof-object? s_170)" @@ -58298,11 +58309,11 @@ static const char *startup_source = " \"expected a `module' declaration;\\n\"" " \" found end-of-file\\n\"" " \" in: ~e\")" -"(object-name i_186)))" +"(object-name i_185)))" "(void))" "(values))))" "(let-values(((m-s_0)(check-module-form s_170 path_12)))" -"(let-values(((s2_7)(1/read-syntax(object-name i_186) i_186)))" +"(let-values(((s2_7)(1/read-syntax(object-name i_185) i_185)))" "(begin" "(if(eof-object? s2_7)" "(void)" @@ -58314,16 +58325,16 @@ static const char *startup_source = " \" found an extra form\\n\"" " \" in: ~e\\n\"" " \" found: ~.s\")" -"(object-name i_186)" +"(object-name i_185)" " s2_7)))" "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_412)" +"(lambda(s_415)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax #f(cons '#%top-interaction s_412)))))))" +"(1/datum->syntax #f(cons '#%top-interaction s_415)))))))" "(let-values(((path1_0) path_12)" "((temp2_7)" "(lambda(i_74)" @@ -58399,8 +58410,8 @@ static const char *startup_source = " #f)))))" "(define-values" "(linklet-directory-start)" -"(lambda(i_187)" -"(begin(let-values(((pos_93)(linklet-bundle-or-directory-start i_187 '#\\D)))(if pos_93(+ pos_93 4) #f)))))" +"(lambda(i_186)" +"(begin(let-values(((pos_93)(linklet-bundle-or-directory-start i_186 '#\\D)))(if pos_93(+ pos_93 4) #f)))))" "(define-values" "(linklet-bundle-hash-code)" "(lambda(i_81)" @@ -58439,9 +58450,9 @@ static const char *startup_source = " #f))))))" "(define-values" "(cached-bundle)" -"(lambda(i_188)" +"(lambda(i_187)" "(begin" -"(let-values(((c3_9)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_188)))))" +"(let-values(((c3_9)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_187)))))" "(if c3_9" "((lambda(declare-module_0)(lambda()(declare-module_0(1/current-namespace)))) c3_9)" "(let-values() #f))))))" @@ -58450,10 +58461,10 @@ static const char *startup_source = "(lambda(i_41)" "(begin" "(let-values(((read-byte/not-eof_0)" -"(lambda(i_189)" +"(lambda(i_188)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_243)(read-byte i_189)))(if(eof-object? v_243) 0 v_243))))))" +"(let-values(((v_242)(read-byte i_188)))(if(eof-object? v_242) 0 v_242))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_41)" "(arithmetic-shift(read-byte/not-eof_0 i_41) 8)" @@ -58461,16 +58472,16 @@ static const char *startup_source = "(arithmetic-shift(read-byte/not-eof_0 i_41) 24))))))" "(define-values" "(search-directory)" -"(lambda(i_190 pos_122 bstr_5)" +"(lambda(i_189 pos_122 bstr_5)" "(begin" "(if(zero? pos_122)" "(let-values() #f)" "(let-values()" -"(let-values((()(begin(file-position i_190 pos_122)(values))))" -"(let-values(((name-len_0)(read-number i_190)))" -"(let-values(((v_244)(read-bytes name-len_0 i_190)))" +"(let-values((()(begin(file-position i_189 pos_122)(values))))" +"(let-values(((name-len_0)(read-number i_189)))" +"(let-values(((v_243)(read-bytes name-len_0 i_189)))" "(begin" -"(if(if(bytes? v_244)(=(bytes-length v_244) name-len_0) #f)" +"(if(if(bytes? v_243)(=(bytes-length v_243) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -58481,24 +58492,24 @@ static const char *startup_source = " \" at position: ~a\\n\"" " \" expected bytes: ~a\\n\"" " \" read bytes: ~e\")" -"(object-name i_190)" +"(object-name i_189)" " pos_122" " name-len_0" -" v_244)))" -"(if(bytes=? bstr_5 v_244)" -"(let-values()(read-number i_190))" -"(if(bytesbytes/utf-8" -"(symbol->string s_480))))" +"(symbol->string s_485))))" "(let-values(((len_41)" "(bytes-length bstr_6)))" "(if(< len_41 255)" @@ -58551,7 +58562,7 @@ static const char *startup_source = " fold-var_67)))))" " for-loop_103)" " null" -" lst_305))))))))))" +" lst_304))))))))))" "(define-values" "(with-module-reading-parameterization+delay-source)" "(lambda(path_13 thunk_7)" @@ -58569,11 +58580,11 @@ static const char *startup_source = "(call-with-input-module-file)" "(lambda(path_14 proc_11)" "(begin" -"(let-values(((i_191) #f))" +"(let-values(((i_190) #f))" "(dynamic-wind" -"(lambda()(set! i_191(let-values(((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path_14))))" -"(lambda()(proc_11 i_191))" -"(lambda()(close-input-port i_191)))))))" +"(lambda()(set! i_190(let-values(((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path_14))))" +"(lambda()(proc_11 i_190))" +"(lambda()(close-input-port i_190)))))))" "(define-values(dll-suffix)(system-type 'so-suffix))" "(define-values" "(default-load/use-compiled)" @@ -58634,9 +58645,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_171)(not expect-module_0)))" -"(if or-part_171" -" or-part_171" +"(if(let-values(((or-part_172)(not expect-module_0)))" +"(if or-part_172" +" or-part_172" "(let-values(((or-part_82)(symbol? expect-module_0)))" "(if or-part_82" " or-part_82" @@ -58748,16 +58759,16 @@ static const char *startup_source = "(let-values(((so_0)(get-so_0 file_1 #t)))" "(let-values(((alt-so_0)(get-so_0 alt-file_0 #t)))" "(let-values(((try-main?_0)" -"(let-values(((or-part_294) main-path-d_0))" -"(if or-part_294" -" or-part_294" +"(let-values(((or-part_290) main-path-d_0))" +"(if or-part_290" +" or-part_290" "(not alt-path-d_0)))))" "(let-values(((try-alt?_0)" "(if alt-file_0" -"(let-values(((or-part_370)" +"(let-values(((or-part_368)" " alt-path-d_0))" -"(if or-part_370" -" or-part_370" +"(if or-part_368" +" or-part_368" "(not main-path-d_0)))" " #f)))" "(let-values(((with-dir_0)" @@ -58879,12 +58890,12 @@ static const char *startup_source = "(car zo-d_1)" " expect-module_0)))))))" " c4_3)" -"(if(let-values(((or-part_371)" +"(if(let-values(((or-part_369)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_371" -" or-part_371" +"(if or-part_369" +" or-part_369" "(car expect-module_0)))" "(let-values()" "(let-values(((p_74)" @@ -58929,7 +58940,7 @@ static const char *startup_source = "(begin(let-values(((e_40)(hash-ref -module-hash-table-table reg_0 #f)))(if e_40(ephemeron-value e_40) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_197)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_197)))))" +"(lambda(reg_1 v_196)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_196)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" @@ -58942,7 +58953,7 @@ static const char *startup_source = "(if l_81(let-values(((a_77)(1/assoc p_75 l_81)))(if a_77(cdr a_77) #f)) #f)))))))" "(define-values" "(path-cache-set!)" -"(lambda(p_76 v_234)" +"(lambda(p_76 v_233)" "(begin" "(let-values(((i_96)(modulo(abs(equal-hash-code p_76)) CACHE-N)))" "(let-values(((w_2)(vector-ref -path-cache i_96)))" @@ -58951,37 +58962,37 @@ static const char *startup_source = " -path-cache" " i_96" "(make-weak-box" -"(cons(cons p_76 v_234)(let-values(((or-part_78) l_70))(if or-part_78 or-part_78 null)))))))))))" +"(cons(cons p_76 v_233)(let-values(((or-part_78) l_70))(if or-part_78 or-part_78 null)))))))))))" "(define-values(-loading-filename)(gensym))" "(define-values(-loading-prompt-tag)(make-continuation-prompt-tag 'module-loading))" "(define-values(-prev-relto) #f)" "(define-values(-prev-relto-dir) #f)" "(define-values" "(split-relative-string)" -"(lambda(s_476 coll-mode?_0)" +"(lambda(s_481 coll-mode?_0)" "(begin" "(let-values(((l_19)" "((letrec-values(((loop_123)" -"(lambda(s_481)" +"(lambda(s_486)" "(begin" " 'loop" -"(let-values(((len_42)(string-length s_481)))" +"(let-values(((len_42)(string-length s_486)))" "((letrec-values(((iloop_2)" -"(lambda(i_192)" +"(lambda(i_191)" "(begin" " 'iloop" -"(if(= i_192 len_42)" -"(let-values()(list s_481))" -"(if(char=? '#\\/(string-ref s_481 i_192))" +"(if(= i_191 len_42)" +"(let-values()(list s_486))" +"(if(char=? '#\\/(string-ref s_486 i_191))" "(let-values()" "(cons" -"(substring s_481 0 i_192)" -"(loop_123(substring s_481(add1 i_192)))))" -"(let-values()(iloop_2(add1 i_192)))))))))" +"(substring s_486 0 i_191)" +"(loop_123(substring s_486(add1 i_191)))))" +"(let-values()(iloop_2(add1 i_191)))))))))" " iloop_2)" " 0))))))" " loop_123)" -" s_476)))" +" s_481)))" "(if coll-mode?_0" " l_19" "((letrec-values(((loop_104)" @@ -59032,8 +59043,8 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_165)))" -"(if(let-values(((or-part_372)(not from-namespace_1)))" -"(if or-part_372 or-part_372(1/namespace? from-namespace_1)))" +"(if(let-values(((or-part_370)(not from-namespace_1)))" +"(if or-part_370 or-part_370(1/namespace? from-namespace_1)))" "(void)" "(let-values()" "(raise-argument-error" @@ -59042,11 +59053,11 @@ static const char *startup_source = " from-namespace_1)))" "(if planet-resolver_0(let-values()(planet-resolver_0 s_165))(void))" "(let-values(((hts_1)" -"(let-values(((or-part_263)" +"(let-values(((or-part_264)" "(registry-table-ref" "(1/namespace-module-registry(1/current-namespace)))))" -"(if or-part_263" -" or-part_263" +"(if or-part_264" +" or-part_264" "(let-values(((hts_2)(cons(make-hasheq)(make-hasheq))))" "(begin" "(registry-table-set!" @@ -59073,14 +59084,14 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_482 relto_0 stx_17)" +"((s_487 relto_0 stx_17)" "(begin" "(log-message" "(current-logger)" " 'error" " \"default module name resolver called with three arguments (deprecated)\"" " #f)" -"(standard-module-name-resolver_0 s_482 relto_0 stx_17 #t)))" +"(standard-module-name-resolver_0 s_487 relto_0 stx_17 #t)))" "((s_26 relto_1 stx_18 load?_7)" "(let-values((()" "(begin" @@ -59253,15 +59264,15 @@ static const char *startup_source = " 'show-collection-err" "(let-values(((msg_2)" "(string-append" -"(let-values(((or-part_178)" +"(let-values(((or-part_179)" "(if stx_18" "(if(error-print-source-location)" "(format-source-location" " stx_18)" " #f)" " #f)))" -"(if or-part_178" -" or-part_178" +"(if or-part_179" +" or-part_179" " \"standard-module-name-resolver\"))" " \": \"" "(regexp-replace" @@ -59282,27 +59293,27 @@ static const char *startup_source = "(current-continuation-marks)" " s_26)))))))" "((ss->rkt_0)" -"(lambda(s_483)" +"(lambda(s_488)" "(begin" " 'ss->rkt" -"(let-values(((len_43)(string-length s_483)))" +"(let-values(((len_43)(string-length s_488)))" "(if(if(>= len_43 3)" "(if(equal?" " '#\\." -"(string-ref s_483(- len_43 3)))" +"(string-ref s_488(- len_43 3)))" "(if(equal?" " '#\\s" -"(string-ref s_483(- len_43 2)))" +"(string-ref s_488(- len_43 2)))" "(equal?" " '#\\s" -"(string-ref s_483(- len_43 1)))" +"(string-ref s_488(- len_43 1)))" " #f)" " #f)" " #f)" "(string-append" -"(substring s_483 0(- len_43 3))" +"(substring s_488 0(- len_43 3))" " \".rkt\")" -" s_483)))))" +" s_488)))))" "((path-ss->rkt_0)" "(lambda(p_80)" "(begin" @@ -59314,9 +59325,9 @@ static const char *startup_source = " p_80)))))" "((s_31)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" -"(let-values(((v_245)(cadr s_26)))" -" (if (let-values (((or-part_366) (equal? v_245 \".\")))" -" (if or-part_366 or-part_366 (equal? v_245 \"..\")))" +"(let-values(((v_244)(cadr s_26)))" +" (if (let-values (((or-part_364) (equal? v_244 \".\")))" +" (if or-part_364 or-part_364 (equal? v_244 \"..\")))" "(if relto_1" "(let-values(((p_81)" "(1/resolved-module-path-name" @@ -59326,7 +59337,7 @@ static const char *startup_source = " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" " s_26))" -" v_245))" +" v_244))" " s_26))" "((subm-path_0)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" @@ -59388,11 +59399,11 @@ static const char *startup_source = "(if(string? s_31)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_373)" +"(let-values(((or-part_371)" "(path-cache-get" "(cons s_31 dir_4))))" -"(if or-part_373" -" or-part_373" +"(if or-part_371" +" or-part_371" "(let-values(((cols_1 file_4)" "(split-relative-string" " s_31" @@ -59483,8 +59494,8 @@ static const char *startup_source = "(get-dir_0)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_374)(path? s-parsed_0)))" -"(if or-part_374 or-part_374(vector? s-parsed_0)))" +"(if(let-values(((or-part_372)(path? s-parsed_0)))" +"(if or-part_372 or-part_372(vector? s-parsed_0)))" "(void)" "(let-values()" "(if stx_18" @@ -59506,7 +59517,7 @@ static const char *startup_source = "(if(vector? s-parsed_0)" "(vector-ref s-parsed_0 1)" "(normal-case-path filename_2))))" -"(let-values(((base_30 name_63 dir?_9)" +"(let-values(((base_30 name_79 dir?_9)" "(if(vector? s-parsed_0)" "(values" " 'ignored" @@ -59516,17 +59527,17 @@ static const char *startup_source = "(let-values(((no-sfx_0)" "(if(vector? s-parsed_0)" "(vector-ref s-parsed_0 3)" -" (path-replace-extension name_63 #\"\"))))" +" (path-replace-extension name_79 #\"\"))))" "(let-values(((root-modname_0)" "(if(vector? s-parsed_0)" "(vector-ref s-parsed_0 4)" "(1/make-resolved-module-path filename_2))))" "(let-values(((hts_3)" -"(let-values(((or-part_375)" +"(let-values(((or-part_373)" "(registry-table-ref" "(get-reg_0))))" -"(if or-part_375" -" or-part_375" +"(if or-part_373" +" or-part_373" "(let-values(((hts_4)" "(cons" "(make-hasheq)" @@ -59569,11 +59580,11 @@ static const char *startup_source = "((nsr_0)(get-reg_0)))" "(begin" "(for-each2" -"(lambda(s_406)" +"(lambda(s_409)" "(if(if(equal?" -"(cdr s_406)" +"(cdr s_409)" " normal-filename_0)" -"(eq?(car s_406) nsr_0)" +"(eq?(car s_409) nsr_0)" " #f)" "(let-values()" "(error" @@ -59651,7 +59662,7 @@ static const char *startup_source = "(let-values()" "((1/current-load/use-compiled)" " filename_2" -"(let-values(((sym_101)" +"(let-values(((sym_71)" "(string->symbol" "(path->string" " no-sfx_0))))" @@ -59662,20 +59673,20 @@ static const char *startup_source = " #f)" "(cons #f subm-path_0)" "(cons" -" sym_101" +" sym_71" " subm-path_0))" -" sym_101))))))))))))))" +" sym_71))))))))))))))" "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_272)" +"(let-values(((or-part_270)" "(string? s_31)))" -"(if or-part_272" -" or-part_272" -"(let-values(((or-part_376)" +"(if or-part_270" +" or-part_270" +"(let-values(((or-part_374)" "(symbol? s_31)))" -"(if or-part_376" -" or-part_376" +"(if or-part_374" +" or-part_374" "(if(pair? s_31)" "(eq?(car s_31) 'lib)" " #f)))))" @@ -59689,7 +59700,7 @@ static const char *startup_source = "(vector" " filename_2" " normal-filename_0" -" name_63" +" name_79" " no-sfx_0" " root-modname_0)))" "(void))" @@ -59703,12 +59714,12 @@ static const char *startup_source = " s_61" "(1/current-namespace)" "(let-values(((c_112)(1/current-compile)))" -"(lambda(e_83 ns_118)" -"(if(eq? ns_118(1/current-namespace))" +"(lambda(e_83 ns_119)" +"(if(eq? ns_119(1/current-namespace))" "(c_112 e_83 #t)" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_118)" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_119)" "(let-values()(c_112 e_83 #t))))))))))" "(define-values" "(default-compile-handler)" @@ -59766,28 +59777,28 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_63)(expand-context-observer ctx_14)))" -"(if obs_63" +"(let-values(((obs_64)(expand-context-observer ctx_14)))" +"(if obs_64" "(let-values()" "(let-values()" -"(call-expand-observe obs_63 'enter-block(datum->syntax$1 #f bodys_7))))" +"(call-expand-observe obs_64 'enter-block(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" "(let-values(((inside-sc_0)(new-scope 'intdef)))" "(let-values(((init-bodys_0)" "(reverse$1" -"(let-values(((lst_261) bodys_7))" +"(let-values(((lst_262) bodys_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_261)))" -"((letrec-values(((for-loop_265)" -"(lambda(fold-var_65 lst_168)" +"(let-values()(check-list lst_262)))" +"((letrec-values(((for-loop_268)" +"(lambda(fold-var_65 lst_169)" "(begin" " 'for-loop" -"(if(pair? lst_168)" -"(let-values(((body_11)(unsafe-car lst_168))" -"((rest_139)(unsafe-cdr lst_168)))" +"(if(pair? lst_169)" +"(let-values(((body_11)(unsafe-car lst_169))" +"((rest_139)(unsafe-cdr lst_169)))" "(let-values(((fold-var_11)" "(let-values(((fold-var_12) fold-var_65))" "(let-values(((fold-var_211)" @@ -59800,32 +59811,32 @@ static const char *startup_source = " fold-var_12))))" "(values fold-var_211)))))" "(if(not #f)" -"(for-loop_265 fold-var_11 rest_139)" +"(for-loop_268 fold-var_11 rest_139)" " fold-var_11)))" " fold-var_65)))))" -" for-loop_265)" +" for-loop_268)" " null" -" lst_261))))))" +" lst_262))))))" "(let-values((()" "(begin" -"(let-values(((obs_64)(expand-context-observer ctx_14)))" -"(if obs_64" +"(let-values(((obs_65)(expand-context-observer ctx_14)))" +"(if obs_65" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_64" +" obs_65" " 'block-renames" "(datum->syntax$1 #f init-bodys_0)" "(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" -"(let-values(((phase_143)(expand-context-phase ctx_14)))" +"(let-values(((phase_142)(expand-context-phase ctx_14)))" "(let-values(((frame-id_2)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_246) ctx_14))" -"(let-values(((the-struct_92) v_246))" -"(if(expand-context/outer? the-struct_92)" +"(let-values(((v_245) ctx_14))" +"(let-values(((the-struct_91) v_245))" +"(if(expand-context/outer? the-struct_91)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_0) #f)" "((only-immediate?53_0) #t)" @@ -59840,37 +59851,37 @@ static const char *startup_source = "(cons" " frame-id_2" "(expand-context-reference-records ctx_14)))" -"((inner61_0)(root-expand-context/outer-inner v_246)))" +"((inner61_0)(root-expand-context/outer-inner v_245)))" "(expand-context/outer1.1" " inner61_0" " post-expansion-scope55_0" " use-site-scopes58_0" " frame-id59_0" " context51_0" -"(expand-context/outer-env the-struct_92)" +"(expand-context/outer-env the-struct_91)" " post-expansion-scope-action56_0" " scopes57_1" " def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_92)" +"(expand-context/outer-binding-layer the-struct_91)" " reference-records60_0" " only-immediate?53_0" -"(expand-context/outer-need-eventually-defined the-struct_92)" -"(expand-context/outer-current-introduction-scopes the-struct_92)" +"(expand-context/outer-need-eventually-defined the-struct_91)" +"(expand-context/outer-current-introduction-scopes the-struct_91)" " name52_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))))" +" the-struct_91))))))" "(let-values(((maybe-increment-binding-layer_0)" -"(lambda(ids_27 body-ctx_1)" +"(lambda(ids_28 body-ctx_1)" "(begin" " 'maybe-increment-binding-layer" "(if(eq?" "(expand-context-binding-layer body-ctx_1)" "(expand-context-binding-layer ctx_14))" -"(increment-binding-layer ids_27 body-ctx_1 inside-sc_0)" +"(increment-binding-layer ids_28 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" -"(let-values(((name_79)(expand-context-name ctx_14)))" +"(let-values(((name_80)(expand-context-name ctx_14)))" "((letrec-values(((loop_126)" "(lambda(body-ctx_2" " bodys_8" @@ -59894,7 +59905,7 @@ static const char *startup_source = "((temp70_3)(reverse$1 done-bodys_0))" "((s71_0) s_40)" "((stratified?72_0) stratified?_0)" -"((name73_0) name_79)" +"((name73_0) name_80)" "((temp74_3)(reverse$1 trans-idss_1)))" "(finish-expanding-body27.1" " temp74_3" @@ -59914,68 +59925,68 @@ static const char *startup_source = "(let-values(((rest-bodys_0)(cdr bodys_8)))" "(let-values((()" "(begin" -"(let-values(((obs_65)" +"(let-values(((obs_66)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_65" +"(if obs_66" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_65" +" obs_66" " 'next)))" "(void)))" "(values))))" "(let-values(((exp-body_0)" "(let-values(((temp75_3)(car bodys_8))" "((temp76_3)" -"(if(if name_79" +"(if(if name_80" "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_235)" +"(let-values(((v_234)" " body-ctx_2))" -"(let-values(((the-struct_93)" -" v_235))" +"(let-values(((the-struct_92)" +" v_234))" "(if(expand-context/outer?" -" the-struct_93)" +" the-struct_92)" "(let-values(((name77_0)" -" name_79)" +" name_80)" "((inner78_0)" "(root-expand-context/outer-inner" -" v_235)))" +" v_234)))" "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_93)" +" the-struct_92)" "(root-expand-context/outer-use-site-scopes" -" the-struct_93)" +" the-struct_92)" "(root-expand-context/outer-frame-id" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-context" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-env" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-scopes" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-def-ctx-scopes" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-binding-layer" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-reference-records" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-only-immediate?" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-need-eventually-defined" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" +" the-struct_92)" " name77_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))" +" the-struct_92))))" " body-ctx_2)))" "(expand7.1" " #f" @@ -59989,46 +60000,46 @@ static const char *startup_source = "(let-values(((tmp_61)" "(core-form-sym" " disarmed-exp-body_0" -" phase_143)))" +" phase_142)))" "(if(equal? tmp_61 'begin)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_66)" +"(let-values(((obs_67)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_66" +"(if obs_67" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_66" +" obs_67" " 'prim-begin)))" "(void)))" "(values))))" "(let-values(((ok?_0 begin79_0 e80_0)" "(let-values(((s_397)" " disarmed-exp-body_0))" -"(let-values(((orig-s_38)" +"(let-values(((orig-s_39)" " s_397))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_484)" +"(let-values(((s_489)" "(if(syntax?$1" " s_397)" "(syntax-e$1" " s_397)" " s_397)))" "(if(pair?" -" s_484)" +" s_489)" "(let-values(((begin81_0)" "(let-values(((s_44)" "(car" -" s_484)))" +" s_489)))" " s_44))" "((e82_0)" "(let-values(((s_166)" "(cdr" -" s_484)))" +" s_489)))" "(let-values(((s_167)" "(if(syntax?$1" " s_166)" @@ -60044,7 +60055,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_38))" +" orig-s_39))" "(let-values()" " flat-s_24)))))))" "(values" @@ -60053,7 +60064,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_38)))))" +" orig-s_39)))))" "(values" " #t" " begin79_1" @@ -60070,14 +60081,14 @@ static const char *startup_source = "(map2 track_0 e80_0)" " rest-bodys_0)))" "(begin" -"(let-values(((obs_67)" +"(let-values(((obs_68)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_67" +"(if obs_68" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_67" +" obs_68" " 'splice" " splice-bodys_0)))" "(void)))" @@ -60096,14 +60107,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_68)" +"(let-values(((obs_69)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_68" +"(if obs_69" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_68" +" obs_69" " 'prim-define-values)))" "(void)))" "(values))))" @@ -60113,7 +60124,7 @@ static const char *startup_source = " rhs85_0)" "(let-values(((s_85)" " disarmed-exp-body_0))" -"(let-values(((orig-s_39)" +"(let-values(((orig-s_40)" " s_85))" "(let-values(((define-values83_1" " id84_1" @@ -60163,10 +60174,10 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39))" +" orig-s_40))" "(let-values()" "(let-values(((id_16)" -"(let-values(((lst_306)" +"(let-values(((lst_305)" " flat-s_25))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60174,24 +60185,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_306)))" -"((letrec-values(((for-loop_266)" +" lst_305)))" +"((letrec-values(((for-loop_269)" "(lambda(id_99" -" lst_307)" +" lst_306)" "(begin" " 'for-loop" "(if(pair?" -" lst_307)" +" lst_306)" "(let-values(((s_314)" "(unsafe-car" -" lst_307))" -"((rest_177)" +" lst_306))" +"((rest_175)" "(unsafe-cdr" -" lst_307)))" +" lst_306)))" "(let-values(((id_100)" "(let-values(((id_101)" " id_99))" -"(let-values(((id_79)" +"(let-values(((id_102)" "(let-values()" "(let-values(((id92_0)" "(let-values()" @@ -60210,72 +60221,72 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_39" +" orig-s_40" " s_314)))))" "(cons" " id92_0" " id_101)))))" "(values" -" id_79)))))" +" id_102)))))" "(if(not" " #f)" -"(for-loop_266" +"(for-loop_269" " id_100" -" rest_177)" +" rest_175)" " id_100)))" " id_99)))))" -" for-loop_266)" +" for-loop_269)" " null" -" lst_306)))))" +" lst_305)))))" "(reverse$1" " id_16))))))))" "((rhs90_0)" -"(let-values(((s_485)" +"(let-values(((s_490)" "(cdr" " s_69)))" -"(let-values(((s_486)" +"(let-values(((s_491)" "(if(syntax?$1" -" s_485)" +" s_490)" "(syntax-e$1" -" s_485)" -" s_485)))" +" s_490)" +" s_490)))" "(if(pair?" -" s_486)" +" s_491)" "(let-values(((rhs91_0)" "(let-values(((s_54)" "(car" -" s_486)))" +" s_491)))" " s_54))" "(()" -"(let-values(((s_435)" +"(let-values(((s_441)" "(cdr" -" s_486)))" +" s_491)))" "(let-values(((s_316)" "(if(syntax?$1" -" s_435)" +" s_441)" "(syntax-e$1" -" s_435)" -" s_435)))" +" s_441)" +" s_441)))" "(if(null?" " s_316)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39))))))" +" orig-s_40))))))" "(values" " rhs91_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39))))))" +" orig-s_40))))))" "(values" " id89_0" " rhs90_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39))))))" +" orig-s_40))))))" "(values" " define-values86_0" " id87_0" @@ -60283,7 +60294,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39)))))" +" orig-s_40)))))" "(values" " #t" " define-values83_1" @@ -60295,14 +60306,14 @@ static const char *startup_source = " body-ctx_2)))" "(let-values((()" "(begin" -"(let-values(((obs_69)" +"(let-values(((obs_22)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_69" +"(if obs_22" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_69" +" obs_22" " 'rename-one" "(datum->syntax$1" " #f" @@ -60315,7 +60326,7 @@ static const char *startup_source = "(let-values(((ids93_0)" " ids_4)" "((phase94_0)" -" phase_143)" +" phase_142)" "((exp-body95_0)" " exp-body_0)" "((dups96_0)" @@ -60333,7 +60344,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_5)" "(reverse$1" -"(let-values(((lst_191)" +"(let-values(((lst_192)" " ids_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60341,23 +60352,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_191)))" +" lst_192)))" "((letrec-values(((for-loop_12)" -"(lambda(fold-var_272" -" lst_308)" +"(lambda(fold-var_273" +" lst_307)" "(begin" " 'for-loop" "(if(pair?" -" lst_308)" -"(let-values(((id_102)" +" lst_307)" +"(let-values(((id_103)" "(unsafe-car" -" lst_308))" -"((rest_178)" +" lst_307))" +"((rest_176)" "(unsafe-cdr" -" lst_308)))" -"(let-values(((fold-var_273)" -"(let-values(((fold-var_244)" -" fold-var_272))" +" lst_307)))" +"(let-values(((fold-var_274)" +"(let-values(((fold-var_275)" +" fold-var_273))" "(let-values(((fold-var_230)" "(let-values()" "(cons" @@ -60371,26 +60382,26 @@ static const char *startup_source = " #t" " exp-body101_0" " #t" -" id_102" -" phase_143" +" id_103" +" phase_142" " counter_5)))" -" fold-var_244))))" +" fold-var_275))))" "(values" " fold-var_230)))))" "(if(not" " #f)" "(for-loop_12" -" fold-var_273" -" rest_178)" -" fold-var_273)))" -" fold-var_272)))))" +" fold-var_274" +" rest_176)" +" fold-var_274)))" +" fold-var_273)))))" " for-loop_12)" " null" -" lst_191))))))" +" lst_192))))))" "(let-values(((extended-env_0)" -"(let-values(((lst_309)" +"(let-values(((lst_308)" " keys_5)" -"((lst_221)" +"((lst_222)" " ids_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60398,36 +60409,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_309)))" +" lst_308)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_221)))" +" lst_222)))" "((letrec-values(((for-loop_230)" "(lambda(env_17" -" lst_192" -" lst_223)" +" lst_193" +" lst_224)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_192)" +" lst_193)" "(pair?" -" lst_223)" +" lst_224)" " #f)" "(let-values(((key_90)" "(unsafe-car" -" lst_192))" -"((rest_179)" +" lst_193))" +"((rest_177)" "(unsafe-cdr" -" lst_192))" -"((id_103)" +" lst_193))" +"((id_104)" "(unsafe-car" -" lst_223))" +" lst_224))" "((rest_102)" "(unsafe-cdr" -" lst_223)))" +" lst_224)))" "(let-values(((env_18)" "(let-values(((env_19)" " env_17))" @@ -60437,27 +60448,27 @@ static const char *startup_source = " env_19" " key_90" "(local-variable1.1" -" id_103)))))" +" id_104)))))" "(values" " env_20)))))" "(if(not" " #f)" "(for-loop_230" " env_18" -" rest_179" +" rest_177" " rest_102)" " env_18)))" " env_17)))))" " for-loop_230)" "(expand-context-env" " body-ctx_2)" -" lst_309" -" lst_221)))))" +" lst_308" +" lst_222)))))" "(loop_126" -"(let-values(((v_247)" +"(let-values(((v_246)" " body-ctx_2))" "(let-values(((the-struct_52)" -" v_247))" +" v_246))" "(if(expand-context/outer?" " the-struct_52)" "(let-values(((env102_0)" @@ -60468,7 +60479,7 @@ static const char *startup_source = " body-ctx_2))" "((inner104_0)" "(root-expand-context/outer-inner" -" v_247)))" +" v_246)))" "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" @@ -60507,7 +60518,7 @@ static const char *startup_source = " ids_4" "(append" "(reverse$1" -"(let-values(((lst_195)" +"(let-values(((lst_196)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60515,47 +60526,47 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_195)))" +" lst_196)))" "((letrec-values(((for-loop_41)" "(lambda(fold-var_187" -" lst_196)" +" lst_197)" "(begin" " 'for-loop" "(if(pair?" -" lst_196)" +" lst_197)" "(let-values(((done-body_0)" "(unsafe-car" -" lst_196))" -"((rest_180)" +" lst_197))" +"((rest_178)" "(unsafe-cdr" -" lst_196)))" -"(let-values(((fold-var_274)" -"(let-values(((fold-var_275)" -" fold-var_187))" +" lst_197)))" "(let-values(((fold-var_276)" +"(let-values(((fold-var_277)" +" fold-var_187))" +"(let-values(((fold-var_278)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_275))))" +" fold-var_277))))" "(values" -" fold-var_276)))))" +" fold-var_278)))))" "(if(not" " #f)" "(for-loop_41" -" fold-var_274" -" rest_180)" -" fold-var_274)))" +" fold-var_276" +" rest_178)" +" fold-var_276)))" " fold-var_187)))))" " for-loop_41)" " null" -" lst_195))))" +" lst_196))))" " val-idss_0))" "(cons" " keys_5" "(append" "(reverse$1" -"(let-values(((lst_310)" +"(let-values(((lst_309)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60563,47 +60574,47 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_310)))" -"((letrec-values(((for-loop_267)" +" lst_309)))" +"((letrec-values(((for-loop_270)" "(lambda(fold-var_190" -" lst_311)" +" lst_310)" "(begin" " 'for-loop" "(if(pair?" -" lst_311)" +" lst_310)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_311))" -"((rest_181)" +" lst_310))" +"((rest_179)" "(unsafe-cdr" -" lst_311)))" -"(let-values(((fold-var_277)" -"(let-values(((fold-var_278)" -" fold-var_190))" +" lst_310)))" "(let-values(((fold-var_279)" +"(let-values(((fold-var_280)" +" fold-var_190))" +"(let-values(((fold-var_281)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_278))))" +" fold-var_280))))" "(values" -" fold-var_279)))))" +" fold-var_281)))))" "(if(not" " #f)" -"(for-loop_267" -" fold-var_277" -" rest_181)" -" fold-var_277)))" +"(for-loop_270" +" fold-var_279" +" rest_179)" +" fold-var_279)))" " fold-var_190)))))" -" for-loop_267)" +" for-loop_270)" " null" -" lst_310))))" +" lst_309))))" " val-keyss_0))" "(cons" " rhs85_0" "(append" "(reverse$1" -"(let-values(((lst_148)" +"(let-values(((lst_149)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60611,23 +60622,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_148)))" +" lst_149)))" "((letrec-values(((for-loop_116)" -"(lambda(fold-var_280" -" lst_312)" +"(lambda(fold-var_282" +" lst_311)" "(begin" " 'for-loop" "(if(pair?" -" lst_312)" +" lst_311)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_312))" -"((rest_182)" +" lst_311))" +"((rest_180)" "(unsafe-cdr" -" lst_312)))" +" lst_311)))" "(let-values(((fold-var_41)" -"(let-values(((fold-var_281)" -" fold-var_280))" +"(let-values(((fold-var_283)" +" fold-var_282))" "(let-values(((fold-var_22)" "(let-values()" "(cons" @@ -60635,26 +60646,26 @@ static const char *startup_source = "(no-binds" " done-body_2" " s_40" -" phase_143))" -" fold-var_281))))" +" phase_142))" +" fold-var_283))))" "(values" " fold-var_22)))))" "(if(not" " #f)" "(for-loop_116" " fold-var_41" -" rest_182)" +" rest_180)" " fold-var_41)))" -" fold-var_280)))))" +" fold-var_282)))))" " for-loop_116)" " null" -" lst_148))))" +" lst_149))))" " val-rhss_0))" "(cons" " exp-body_0" "(append" "(reverse$1" -"(let-values(((lst_102)" +"(let-values(((lst_103)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60662,20 +60673,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_102)))" +" lst_103)))" "((letrec-values(((for-loop_118)" "(lambda(fold-var_25" -" lst_149)" +" lst_150)" "(begin" " 'for-loop" "(if(pair?" -" lst_149)" +" lst_150)" "(let-values(((done-body_3)" "(unsafe-car" -" lst_149))" +" lst_150))" "((rest_75)" "(unsafe-cdr" -" lst_149)))" +" lst_150)))" "(let-values(((fold-var_131)" "(let-values(((fold-var_132)" " fold-var_25))" @@ -60696,7 +60707,7 @@ static const char *startup_source = " fold-var_25)))))" " for-loop_118)" " null" -" lst_102))))" +" lst_103))))" " track-stxs_0))" " trans-idss_1" " stx-clauses_0" @@ -60722,7 +60733,7 @@ static const char *startup_source = " rhs107_0)" "(let-values(((s_93)" " disarmed-exp-body_0))" -"(let-values(((orig-s_40)" +"(let-values(((orig-s_41)" " s_93))" "(let-values(((define-syntaxes105_1" " id106_1" @@ -60736,33 +60747,33 @@ static const char *startup_source = "(if(pair?" " s_95)" "(let-values(((define-syntaxes108_0)" -"(let-values(((s_487)" +"(let-values(((s_492)" "(car" " s_95)))" -" s_487))" +" s_492))" "((id109_0" " rhs110_0)" -"(let-values(((s_488)" +"(let-values(((s_493)" "(cdr" " s_95)))" -"(let-values(((s_489)" +"(let-values(((s_402)" "(if(syntax?$1" -" s_488)" +" s_493)" "(syntax-e$1" -" s_488)" -" s_488)))" +" s_493)" +" s_493)))" "(if(pair?" -" s_489)" +" s_402)" "(let-values(((id111_0)" -"(let-values(((s_490)" +"(let-values(((s_494)" "(car" -" s_489)))" +" s_402)))" "(let-values(((s_208)" "(if(syntax?$1" -" s_490)" +" s_494)" "(syntax-e$1" -" s_490)" -" s_490)))" +" s_494)" +" s_494)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" " s_208)))" @@ -60772,9 +60783,9 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_40))" +" orig-s_41))" "(let-values()" -"(let-values(((id_104)" +"(let-values(((id_105)" "(let-values(((lst_40)" " flat-s_26))" "(begin" @@ -60785,7 +60796,7 @@ static const char *startup_source = "(check-list" " lst_40)))" "((letrec-values(((for-loop_54)" -"(lambda(id_105" +"(lambda(id_106" " lst_41)" "(begin" " 'for-loop" @@ -60797,51 +60808,51 @@ static const char *startup_source = "((rest_17)" "(unsafe-cdr" " lst_41)))" -"(let-values(((id_106)" "(let-values(((id_107)" -" id_105))" "(let-values(((id_108)" +" id_106))" +"(let-values(((id_109)" "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_377)" +"(if(let-values(((or-part_375)" "(if(syntax?$1" " s_67)" "(symbol?" "(syntax-e$1" " s_67))" " #f)))" -"(if or-part_377" -" or-part_377" +"(if or-part_375" +" or-part_375" "(symbol?" " s_67)))" " s_67" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_40" +" orig-s_41" " s_67)))))" "(cons" " id114_0" -" id_107)))))" -"(values" " id_108)))))" +"(values" +" id_109)))))" "(if(not" " #f)" "(for-loop_54" -" id_106" +" id_107" " rest_17)" -" id_106)))" -" id_105)))))" +" id_107)))" +" id_106)))))" " for-loop_54)" " null" " lst_40)))))" "(reverse$1" -" id_104))))))))" +" id_105))))))))" "((rhs112_0)" "(let-values(((s_102)" "(cdr" -" s_489)))" +" s_402)))" "(let-values(((s_154)" "(if(syntax?$1" " s_102)" @@ -60851,40 +60862,40 @@ static const char *startup_source = "(if(pair?" " s_154)" "(let-values(((rhs113_0)" -"(let-values(((s_491)" +"(let-values(((s_495)" "(car" " s_154)))" -" s_491))" +" s_495))" "(()" -"(let-values(((s_492)" +"(let-values(((s_496)" "(cdr" " s_154)))" -"(let-values(((s_493)" +"(let-values(((s_497)" "(if(syntax?$1" -" s_492)" +" s_496)" "(syntax-e$1" -" s_492)" -" s_492)))" +" s_496)" +" s_496)))" "(if(null?" -" s_493)" +" s_497)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_40))))))" +" orig-s_41))))))" "(values" " rhs113_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_40))))))" +" orig-s_41))))))" "(values" " id111_0" " rhs112_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_40))))))" +" orig-s_41))))))" "(values" " define-syntaxes108_0" " id109_0" @@ -60892,39 +60903,39 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_40)))))" +" orig-s_41)))))" "(values" " #t" " define-syntaxes105_1" " id106_1" " rhs107_1))))))" -"(let-values(((ids_28)" +"(let-values(((ids_29)" "(remove-use-site-scopes" " id106_0" " body-ctx_2)))" "(let-values((()" "(begin" -"(let-values(((obs_42)" +"(let-values(((obs_46)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_42" +"(if obs_46" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_42" +" obs_46" " 'rename-one" "(datum->syntax$1" " #f" "(list" -" ids_28" +" ids_29" " rhs107_0)))))" "(void)))" "(values))))" "(let-values(((new-dups_1)" "(let-values(((ids115_0)" -" ids_28)" +" ids_29)" "((phase116_0)" -" phase_143)" +" phase_142)" "((exp-body117_0)" " exp-body_0)" "((dups118_0)" @@ -60942,32 +60953,32 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_313)" -" ids_28))" +"(let-values(((lst_312)" +" ids_29))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_313)))" -"((letrec-values(((for-loop_268)" -"(lambda(fold-var_282" -" lst_314)" +" lst_312)))" +"((letrec-values(((for-loop_271)" +"(lambda(fold-var_284" +" lst_313)" "(begin" " 'for-loop" "(if(pair?" -" lst_314)" -"(let-values(((id_109)" +" lst_313)" +"(let-values(((id_110)" "(unsafe-car" -" lst_314))" -"((rest_183)" +" lst_313))" +"((rest_181)" "(unsafe-cdr" -" lst_314)))" -"(let-values(((fold-var_283)" -"(let-values(((fold-var_284)" -" fold-var_282))" +" lst_313)))" "(let-values(((fold-var_285)" +"(let-values(((fold-var_286)" +" fold-var_284))" +"(let-values(((fold-var_287)" "(let-values()" "(cons" "(let-values()" @@ -60980,22 +60991,22 @@ static const char *startup_source = " #t" " exp-body123_0" " #t" -" id_109" -" phase_143" +" id_110" +" phase_142" " counter_6)))" -" fold-var_284))))" +" fold-var_286))))" "(values" -" fold-var_285)))))" +" fold-var_287)))))" "(if(not" " #f)" -"(for-loop_268" -" fold-var_283" -" rest_183)" -" fold-var_283)))" -" fold-var_282)))))" -" for-loop_268)" +"(for-loop_271" +" fold-var_285" +" rest_181)" +" fold-var_285)))" +" fold-var_284)))))" +" for-loop_271)" " null" -" lst_313))))))" +" lst_312))))))" "(let-values((()" "(begin" "(let-values(((obs_71)" @@ -61030,21 +61041,27 @@ static const char *startup_source = "(let-values(((vals_8)" "(eval-for-syntaxes-binding" " rhs107_0" -" ids_28" +" ids_29" " body-ctx_2)))" "(let-values(((extended-env_1)" -"(let-values(((lst_315)" +"(let-values(((lst_314)" " keys_6)" -"((lst_316)" +"((lst_315)" " vals_8)" -"((lst_317)" -" ids_28))" +"((lst_316)" +" ids_29))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" +" lst_314)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_315)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -61052,45 +61069,39 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_316)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_317)))" -"((letrec-values(((for-loop_269)" +"((letrec-values(((for-loop_272)" "(lambda(env_21" +" lst_317" " lst_318" -" lst_319" -" lst_320)" +" lst_319)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_318)" +" lst_317)" "(if(pair?" -" lst_319)" +" lst_318)" "(pair?" -" lst_320)" +" lst_319)" " #f)" " #f)" "(let-values(((key_91)" "(unsafe-car" -" lst_318))" -"((rest_184)" +" lst_317))" +"((rest_182)" "(unsafe-cdr" -" lst_318))" +" lst_317))" "((val_83)" "(unsafe-car" -" lst_319))" -"((rest_185)" +" lst_318))" +"((rest_183)" "(unsafe-cdr" -" lst_319))" -"((id_110)" +" lst_318))" +"((id_111)" "(unsafe-car" -" lst_320))" -"((rest_186)" +" lst_319))" +"((rest_184)" "(unsafe-cdr" -" lst_320)))" +" lst_319)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -61099,8 +61110,8 @@ static const char *startup_source = "(begin" "(maybe-install-free=id-in-context!" " val_83" -" id_110" -" phase_143" +" id_111" +" phase_142" " body-ctx_2)" "(env-extend" " env_23" @@ -61110,19 +61121,19 @@ static const char *startup_source = " env_24)))))" "(if(not" " #f)" -"(for-loop_269" +"(for-loop_272" " env_22" -" rest_184" -" rest_185" -" rest_186)" +" rest_182" +" rest_183" +" rest_184)" " env_22)))" " env_21)))))" -" for-loop_269)" +" for-loop_272)" "(expand-context-env" " body-ctx_2)" +" lst_314" " lst_315" -" lst_316" -" lst_317)))))" +" lst_316)))))" "(begin" "(let-values(((obs_73)" "(expand-context-observer" @@ -61135,53 +61146,53 @@ static const char *startup_source = " 'exit-bind)))" "(void)))" "(loop_126" -"(let-values(((v_248)" +"(let-values(((v_247)" " body-ctx_2))" -"(let-values(((the-struct_94)" -" v_248))" +"(let-values(((the-struct_93)" +" v_247))" "(if(expand-context/outer?" -" the-struct_94)" +" the-struct_93)" "(let-values(((env124_0)" " extended-env_1)" "((binding-layer125_0)" "(maybe-increment-binding-layer_0" -" ids_28" +" ids_29" " body-ctx_2))" "((inner126_0)" "(root-expand-context/outer-inner" -" v_248)))" +" v_247)))" "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_94)" +" the-struct_93)" "(root-expand-context/outer-use-site-scopes" -" the-struct_94)" +" the-struct_93)" "(root-expand-context/outer-frame-id" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-context" -" the-struct_94)" +" the-struct_93)" " env124_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-scopes" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-def-ctx-scopes" -" the-struct_94)" +" the-struct_93)" " binding-layer125_0" "(expand-context/outer-reference-records" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-only-immediate?" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-need-eventually-defined" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-current-introduction-scopes" -" the-struct_94)" +" the-struct_93)" "(expand-context/outer-name" -" the-struct_94)))" +" the-struct_93)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_94))))" +" the-struct_93))))" " rest-bodys_0" " done-bodys_0" " val-idss_0" @@ -61189,13 +61200,13 @@ static const char *startup_source = " val-rhss_0" " track-stxs_0" "(cons" -" ids_28" +" ids_29" " trans-idss_1)" "(cons" "(datum->syntax$1" " #f" "(list" -" ids_28" +" ids_29" " rhs107_0)" " rhs107_0)" " stx-clauses_0)" @@ -61225,7 +61236,7 @@ static const char *startup_source = "(cons" "(core-id" " '#%stratified-body" -" phase_143)" +" phase_142)" "(cons" " exp-body_0" " rest-bodys_0)))))" @@ -61285,9 +61296,9 @@ 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_494) source10_0))" +"(let-values(((s_498) source10_0))" "(let-values(((stratified?_1) stratified?11_0))" -"(let-values(((name_80) name12_0))" +"(let-values(((name_81) name12_0))" "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" "(let-values()" "(let-values((()" @@ -61297,16 +61308,16 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no expression after a sequence of internal definitions\"" -" s_494))" +" s_498))" "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_249)" +"(let-values(((v_248)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_95) v_249))" -"(if(expand-context/outer? the-struct_95)" +"(let-values(((the-struct_94) v_248))" +"(if(expand-context/outer? the-struct_94)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" "((scopes129_0)" @@ -61319,29 +61330,29 @@ static const char *startup_source = "((def-ctx-scopes131_0) #f)" "((post-expansion-scope132_0) #f)" "((inner133_0)" -"(root-expand-context/outer-inner v_249)))" +"(root-expand-context/outer-inner v_248)))" "(expand-context/outer1.1" " inner133_0" " post-expansion-scope132_0" " use-site-scopes128_0" -"(root-expand-context/outer-frame-id the-struct_95)" +"(root-expand-context/outer-frame-id the-struct_94)" " context127_0" -"(expand-context/outer-env the-struct_95)" +"(expand-context/outer-env the-struct_94)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_95)" +" the-struct_94)" " scopes129_0" " def-ctx-scopes131_0" -"(expand-context/outer-binding-layer the-struct_95)" -"(expand-context/outer-reference-records the-struct_95)" +"(expand-context/outer-binding-layer the-struct_94)" +"(expand-context/outer-reference-records the-struct_94)" " only-immediate?130_0" -"(expand-context/outer-need-eventually-defined the-struct_95)" +"(expand-context/outer-need-eventually-defined the-struct_94)" "(expand-context/outer-current-introduction-scopes" -" the-struct_95)" -"(expand-context/outer-name the-struct_95)))" +" the-struct_94)" +"(expand-context/outer-name the-struct_94)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_95))))))" +" the-struct_94))))))" "(let-values(((finish-bodys_0)" "(lambda()" "(begin" @@ -61382,40 +61393,40 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_321) done-bodys_1)" +"(let-values(((lst_320) done-bodys_1)" "((start_64) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_321)))" +"(check-list lst_320)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_64)))" "((letrec-values(((for-loop_133)" -"(lambda(fold-var_286" -" lst_322" +"(lambda(fold-var_254" +" lst_321" " pos_123)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_322)" +" lst_321)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_322))" -"((rest_187)" +" lst_321))" +"((rest_185)" "(unsafe-cdr" -" lst_322))" -"((i_193)" +" lst_321))" +"((i_192)" " pos_123))" -"(let-values(((fold-var_287)" +"(let-values(((fold-var_255)" "(let-values(((fold-var_203)" -" fold-var_286))" +" fold-var_254))" "(let-values(((fold-var_288)" "(let-values()" "(cons" @@ -61434,55 +61445,55 @@ static const char *startup_source = "(let-values(((done-body134_0)" " done-body_4)" "((temp135_2)" -"(if(if name_80" +"(if(if name_81" "(=" -" i_193" +" i_192" " last-i_1)" " #f)" -"(let-values(((v_250)" +"(let-values(((v_249)" " finish-ctx_0))" -"(let-values(((the-struct_96)" -" v_250))" +"(let-values(((the-struct_95)" +" v_249))" "(if(expand-context/outer?" -" the-struct_96)" +" the-struct_95)" "(let-values(((name136_0)" -" name_80)" +" name_81)" "((inner137_0)" "(root-expand-context/outer-inner" -" v_250)))" +" v_249)))" "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_96)" +" the-struct_95)" "(root-expand-context/outer-use-site-scopes" -" the-struct_96)" +" the-struct_95)" "(root-expand-context/outer-frame-id" -" the-struct_96)" +" the-struct_95)" "(expand-context/outer-context" -" the-struct_96)" +" the-struct_95)" "(expand-context/outer-env" -" the-struct_96)" +" the-struct_95)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_96)" +" the-struct_95)" "(expand-context/outer-scopes" -" the-struct_96)" +" the-struct_95)" "(expand-context/outer-def-ctx-scopes" -" the-struct_96)" +" the-struct_95)" "(expand-context/outer-binding-layer" -" the-struct_96)" +" the-struct_95)" "(expand-context/outer-reference-records" -" the-struct_96)" +" the-struct_95)" "(expand-context/outer-only-immediate?" -" the-struct_96)" +" the-struct_95)" "(expand-context/outer-need-eventually-defined" -" the-struct_96)" +" the-struct_95)" "(expand-context/outer-current-introduction-scopes" -" the-struct_96)" +" the-struct_95)" " name136_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_96))))" +" the-struct_95))))" " finish-ctx_0)))" "(expand7.1" " #f" @@ -61497,16 +61508,16 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_133" -" fold-var_287" -" rest_187" +" fold-var_255" +" rest_185" "(+" " pos_123" " 1))" -" fold-var_287)))" -" fold-var_286)))))" +" fold-var_255)))" +" fold-var_254)))))" " for-loop_133)" " null" -" lst_321" +" lst_320" " start_64))))))" "(begin" "(let-values(((obs_77)" @@ -61531,7 +61542,7 @@ static const char *startup_source = "(call-expand-observe" " obs_78" " 'block->list" -"(datum->syntax$1 s_494 done-bodys_1))))" +"(datum->syntax$1 s_498 done-bodys_1))))" "(void)))" "(finish-bodys_0)))" "(let-values()" @@ -61544,7 +61555,7 @@ static const char *startup_source = "(log-letrec-values$1" " obs_79" " finish-ctx_0" -" s_494" +" s_498" " val-idss_1" " val-rhss_1" " track-stxs_1" @@ -61552,11 +61563,11 @@ static const char *startup_source = " done-bodys_1))" "(void)))" "(values))))" -"(let-values(((exp-s_13)" +"(let-values(((exp-s_12)" "(let-values(((temp142_1)(not stratified?_1))" "((frame-id143_0) frame-id_13)" "((finish-ctx144_0) finish-ctx_0)" -"((s145_0) s_494)" +"((s145_0) s_498)" "((temp146_1)(pair? stx-clauses_1))" "((finish-bodys147_0) finish-bodys_0)" "((temp148_1) #f))" @@ -61578,14 +61589,14 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_80 'exit-prim exp-s_13)" -"(call-expand-observe obs_80 'return exp-s_13))))" +"(call-expand-observe obs_80 'exit-prim exp-s_12)" +"(call-expand-observe obs_80 'return exp-s_12))))" "(void)))" "(if(expand-context-to-parsed? body-ctx_3)" -"(list exp-s_13)" +"(list exp-s_12)" "(list" "(attach-disappeared-transformer-bindings" -" exp-s_13" +" exp-s_12" " disappeared-transformer-bindings_0))))))))))))))))))))))))))))" "(define-values" "(expand-and-split-bindings-by-reference48.1)" @@ -61614,7 +61625,7 @@ static const char *startup_source = "(let-values(((get-body_0) get-body35_0))" "(let-values(((track?_1) track?36_0))" "(let-values()" -"(let-values(((phase_144)(expand-context-phase ctx_74)))" +"(let-values(((phase_143)(expand-context-phase ctx_74)))" "((letrec-values(((loop_127)" "(lambda(idss_2" " keyss_1" @@ -61659,10 +61670,10 @@ static const char *startup_source = "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_144)" +" phase_143)" "(core-id" " 'letrec-values" -" phase_144))" +" phase_143))" "(build-clauses" " accum-idss_0" " accum-rhss_0" @@ -61701,13 +61712,13 @@ static const char *startup_source = "(call-expand-observe obs_82 'next)))" "(void)))" "(values))))" -"(let-values(((ids_29)(car idss_2)))" +"(let-values(((ids_30)(car idss_2)))" "(let-values(((expanded-rhs_0)" "(let-values(((temp152_1)(car rhss_2))" "((temp153_0)" "(as-named-context" " ctx_74" -" ids_29)))" +" ids_30)))" "(expand7.1" " #f" " #f" @@ -61759,7 +61770,7 @@ static const char *startup_source = "(parsed-let-values17.1" "(keep-properties-only" " s_371)" -"(list ids_29)" +"(list ids_30)" "(list" "(list" "(car keyss_1)" @@ -61773,10 +61784,10 @@ static const char *startup_source = "(list*" "(core-id" " 'let-values" -" phase_144)" +" phase_143)" "(list" "(build-clause" -" ids_29" +" ids_30" " expanded-rhs_0" " track-stx_0))" " exp-rest_0)))" @@ -61807,9 +61818,9 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_378) split?_0))" -"(if or-part_378" -" or-part_378" +"(let-values(((or-part_376) split?_0))" +"(if or-part_376" +" or-part_376" "(null?(cdr idss_2))))" " #f)" "(let-values()" @@ -61834,7 +61845,7 @@ static const char *startup_source = " s_371)" "(reverse$1" "(cons" -" ids_29" +" ids_30" " accum-idss_0))" "(reverse$1" "(cons" @@ -61854,10 +61865,10 @@ static const char *startup_source = "(list*" "(core-id" " 'letrec-values" -" phase_144)" +" phase_143)" "(build-clauses" "(cons" -" ids_29" +" ids_30" " accum-idss_0)" "(cons" " expanded-rhs_0" @@ -61898,7 +61909,7 @@ static const char *startup_source = "(cdr keyss_1)" "(cdr rhss_2)" "(cdr track-stxs_3)" -"(cons ids_29 accum-idss_0)" +"(cons ids_30 accum-idss_0)" "(cons(car keyss_1) accum-keyss_0)" "(cons expanded-rhs_0 accum-rhss_0)" "(cons track-stx_0 accum-track-stxs_0)" @@ -61923,52 +61934,52 @@ static const char *startup_source = "(begin(map2 build-clause(reverse$1 accum-idss_1)(reverse$1 accum-rhss_1)(reverse$1 accum-track-stxs_1)))))" "(define-values" "(build-clause)" -"(lambda(ids_30 rhs_19 track-stx_1)" +"(lambda(ids_31 rhs_19 track-stx_1)" "(begin" -"(let-values(((clause_2)(datum->syntax$1 #f(list ids_30 rhs_19))))" +"(let-values(((clause_2)(datum->syntax$1 #f(list ids_31 rhs_19))))" "(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_145)" +"(lambda(expr_10 s_499 phase_144)" "(begin" -"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_145)))" +"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_144)))" "(datum->syntax$1" -"(core-id '#%app phase_145)" -"(list(core-id 'begin phase_145) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_495)))))" +"(core-id '#%app phase_144)" +"(list(core-id 'begin phase_144) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" +" s_499)))))" "(define-values" "(log-tag?)" "(lambda(had-stxes?_1 ctx_75)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_75)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_85 ctx_76 s_496 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_85 ctx_76 s_500 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" -"(let-values(((phase_146)(expand-context-phase ctx_76)))" +"(let-values(((phase_145)(expand-context-phase ctx_76)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_323) val-idss_2)((lst_324) val-rhss_2)((lst_325) track-stxs_4))" +"(let-values(((lst_322) val-idss_2)((lst_323) val-rhss_2)((lst_324) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_322)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_323)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_324)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_325)))" -"((letrec-values(((for-loop_270)" -"(lambda(fold-var_289 lst_238 lst_326 lst_327)" +"((letrec-values(((for-loop_273)" +"(lambda(fold-var_289 lst_239 lst_325 lst_326)" "(begin" " 'for-loop" -"(if(if(pair? lst_238)(if(pair? lst_326)(pair? lst_327) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_238))" -"((rest_188)(unsafe-cdr lst_238))" -"((val-rhs_0)(unsafe-car lst_326))" -"((rest_189)(unsafe-cdr lst_326))" -"((track-stx_2)(unsafe-car lst_327))" -"((rest_190)(unsafe-cdr lst_327)))" +"(if(if(pair? lst_239)(if(pair? lst_325)(pair? lst_326) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_239))" +"((rest_186)(unsafe-cdr lst_239))" +"((val-rhs_0)(unsafe-car lst_325))" +"((rest_187)(unsafe-cdr lst_325))" +"((track-stx_2)(unsafe-car lst_326))" +"((rest_188)(unsafe-cdr lst_326)))" "(let-values(((fold-var_290)" "(let-values(((fold-var_291) fold-var_289))" "(let-values(((fold-var_292)" @@ -61982,23 +61993,23 @@ static const char *startup_source = " fold-var_291))))" "(values fold-var_292)))))" "(if(not #f)" -"(for-loop_270 fold-var_290 rest_188 rest_189 rest_190)" +"(for-loop_273 fold-var_290 rest_186 rest_187 rest_188)" " fold-var_290)))" " fold-var_289)))))" -" for-loop_270)" +" for-loop_273)" " null" +" lst_322" " lst_323" -" lst_324" -" lst_325))))))" +" lst_324))))))" "(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_146)))" +"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_145)))" "(let-values(((lv-s_0)" "(datum->syntax$1" " #f" "(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_500)))" "(begin" "(call-expand-observe obs_85 'block->letrec(list lv-s_0))" "(call-expand-observe obs_85 'visit lv-s_0)" @@ -62013,7 +62024,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_500))" "(call-expand-observe obs_85 'prepare-env)" "(call-expand-observe obs_85 'next-group)" "(if(null? val-idss_2)" @@ -62025,7 +62036,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_500)))))))" "(let-values()" "(begin" "(call-expand-observe obs_85 'prim-letrec-values)" @@ -62033,34 +62044,34 @@ 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_500))))))))))))))" "(define-values" "(lambda-clause-expander)" "(lambda(s_70 disarmed-s_5 formals_1 bodys_9 ctx_77 log-renames-tag_0)" "(begin" "(let-values(((sc_31)(new-scope 'local)))" "(let-values(((phase_78)(expand-context-phase ctx_77)))" -"(let-values(((ids_31)(parse-and-flatten-formals formals_1 sc_31 disarmed-s_5)))" +"(let-values(((ids_32)(parse-and-flatten-formals formals_1 sc_31 disarmed-s_5)))" "(let-values((()" "(begin" " (let-values (((temp37_4) \"argument name\"))" -"(check-no-duplicate-ids8.1 temp37_4 #t ids_31 phase_78 s_70 #f #f))" +"(check-no-duplicate-ids8.1 temp37_4 #t ids_32 phase_78 s_70 #f #f))" "(values))))" "(let-values(((counter_7)(root-expand-context-counter ctx_77)))" "(let-values(((keys_7)" "(reverse$1" -"(let-values(((lst_266) ids_31))" +"(let-values(((lst_267) ids_32))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_266)))" -"((letrec-values(((for-loop_271)" +"(let-values()(check-list lst_267)))" +"((letrec-values(((for-loop_274)" "(lambda(fold-var_63 lst_38)" "(begin" " 'for-loop" "(if(pair? lst_38)" -"(let-values(((id_111)(unsafe-car lst_38))" -"((rest_191)(unsafe-cdr lst_38)))" +"(let-values(((id_112)(unsafe-car lst_38))" +"((rest_189)(unsafe-cdr lst_38)))" "(let-values(((fold-var_293)" "(let-values(((fold-var_64) fold-var_63))" "(let-values(((fold-var_150)" @@ -62074,36 +62085,36 @@ static const char *startup_source = " #f" " s41_0" " #t" -" id_111" +" id_112" " phase_78" " counter_7)))" " fold-var_64))))" "(values fold-var_150)))))" "(if(not #f)" -"(for-loop_271 fold-var_293 rest_191)" +"(for-loop_274 fold-var_293 rest_189)" " fold-var_293)))" " fold-var_63)))))" -" for-loop_271)" +" for-loop_274)" " null" -" lst_266))))))" +" lst_267))))))" "(let-values(((body-env_0)" -"(let-values(((lst_298) keys_7)((lst_23) ids_31))" +"(let-values(((lst_297) keys_7)((lst_23) ids_32))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_298)))" +"(let-values()(check-list lst_297)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_23)))" "((letrec-values(((for-loop_20)" -"(lambda(env_25 lst_24 lst_168)" +"(lambda(env_25 lst_24 lst_169)" "(begin" " 'for-loop" -"(if(if(pair? lst_24)(pair? lst_168) #f)" +"(if(if(pair? lst_24)(pair? lst_169) #f)" "(let-values(((key_92)(unsafe-car lst_24))" "((rest_139)(unsafe-cdr lst_24))" -"((id_112)(unsafe-car lst_168))" -"((rest_140)(unsafe-cdr lst_168)))" +"((id_113)(unsafe-car lst_169))" +"((rest_140)(unsafe-cdr lst_169)))" "(let-values(((env_26)" "(let-values(((env_27) env_25))" "(let-values(((env_28)" @@ -62112,7 +62123,7 @@ static const char *startup_source = " env_27" " key_92" "(local-variable1.1" -" id_112)))))" +" id_113)))))" "(values env_28)))))" "(if(not #f)" "(for-loop_20 env_26 rest_139 rest_140)" @@ -62120,7 +62131,7 @@ static const char *startup_source = " env_25)))))" " for-loop_20)" "(expand-context-env ctx_77)" -" lst_298" +" lst_297" " lst_23)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_31)))" "(let-values(((sc-bodys_0)" @@ -62170,35 +62181,35 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_251) ctx_77))" -"(let-values(((the-struct_97) v_251))" -"(if(expand-context/outer? the-struct_97)" +"(let-values(((v_250) ctx_77))" +"(let-values(((the-struct_96) v_250))" +"(if(expand-context/outer? the-struct_96)" "(let-values(((env42_0) body-env_0)" "((scopes43_0)(cons sc_31(expand-context-scopes ctx_77)))" "((binding-layer44_0)" -"(increment-binding-layer ids_31 ctx_77 sc_31))" +"(increment-binding-layer ids_32 ctx_77 sc_31))" "((frame-id45_0) #f)" -"((inner46_0)(root-expand-context/outer-inner v_251)))" +"((inner46_0)(root-expand-context/outer-inner v_250)))" "(expand-context/outer1.1" " inner46_0" -"(root-expand-context/outer-post-expansion-scope the-struct_97)" -"(root-expand-context/outer-use-site-scopes the-struct_97)" +"(root-expand-context/outer-post-expansion-scope the-struct_96)" +"(root-expand-context/outer-use-site-scopes the-struct_96)" " frame-id45_0" -"(expand-context/outer-context the-struct_97)" +"(expand-context/outer-context the-struct_96)" " env42_0" -"(expand-context/outer-post-expansion-scope-action the-struct_97)" +"(expand-context/outer-post-expansion-scope-action the-struct_96)" " scopes43_0" -"(expand-context/outer-def-ctx-scopes the-struct_97)" +"(expand-context/outer-def-ctx-scopes the-struct_96)" " binding-layer44_0" -"(expand-context/outer-reference-records the-struct_97)" -"(expand-context/outer-only-immediate? the-struct_97)" -"(expand-context/outer-need-eventually-defined the-struct_97)" -"(expand-context/outer-current-introduction-scopes the-struct_97)" -"(expand-context/outer-name the-struct_97)))" +"(expand-context/outer-reference-records the-struct_96)" +"(expand-context/outer-only-immediate? the-struct_96)" +"(expand-context/outer-need-eventually-defined the-struct_96)" +"(expand-context/outer-current-introduction-scopes the-struct_96)" +"(expand-context/outer-name the-struct_96)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_97))))))" +" the-struct_96))))))" "(let-values(((exp-body_2)" "(let-values(((temp49_3)" "(let-values(((temp52_6) #t))" @@ -62222,27 +62233,27 @@ static const char *startup_source = "(let-values(((disarmed-s_6)(syntax-disarm$1 s_180)))" "(let-values(((ok?_34 lambda53_0 formals54_0 body55_0)" "(let-values(((s_76) disarmed-s_6))" -"(let-values(((orig-s_41) s_76))" +"(let-values(((orig-s_42) s_76))" "(let-values(((lambda53_1 formals54_1 body55_1)" "(let-values(((s_304)(if(syntax?$1 s_76)(syntax-e$1 s_76) s_76)))" "(if(pair? s_304)" "(let-values(((lambda56_0)(let-values(((s_186)(car s_304))) s_186))" "((formals57_0 body58_0)" -"(let-values(((s_497)(cdr s_304)))" -"(let-values(((s_404)" -"(if(syntax?$1 s_497)" -"(syntax-e$1 s_497)" -" s_497)))" -"(if(pair? s_404)" +"(let-values(((s_501)(cdr s_304)))" +"(let-values(((s_407)" +"(if(syntax?$1 s_501)" +"(syntax-e$1 s_501)" +" s_501)))" +"(if(pair? s_407)" "(let-values(((formals59_0)" -"(let-values(((s_498)(car s_404)))" -" s_498))" +"(let-values(((s_502)(car s_407)))" +" s_502))" "((body60_0)" -"(let-values(((s_499)(cdr s_404)))" +"(let-values(((s_503)(cdr s_407)))" "(let-values(((s_162)" -"(if(syntax?$1 s_499)" -"(syntax-e$1 s_499)" -" s_499)))" +"(if(syntax?$1 s_503)" +"(syntax-e$1 s_503)" +" s_503)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" " s_162)))" @@ -62251,22 +62262,22 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_41))" +" orig-s_42))" "(if(null? flat-s_27)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_41))" +" orig-s_42))" "(let-values()" " flat-s_27))))))))" "(values formals59_0 body60_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_41))))))" +" orig-s_42))))))" "(values lambda56_0 formals57_0 body58_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t lambda53_1 formals54_1 body55_1))))))" "(let-values(((rebuild-s_4)" "(let-values(((temp63_4) #t))(keep-as-needed74.1 #f #f #f #f temp63_4 #t ctx_78 s_180))))" @@ -62277,69 +62288,69 @@ static const char *startup_source = "(let-values(((rebuild-s64_0) rebuild-s_4)" "((temp65_7)(list*(get-lambda_0 ctx_78 lambda53_0) formals_2 body_13)))" "(rebuild5.1 #f #f rebuild-s64_0 temp65_7))))))))))))" -"(void(add-core-form!* 'lambda(make-expand-lambda(lambda(ctx_79 lam-id_0) lam-id_0))))" +"(void(add-core-form!* 'lambda(make-expand-lambda(lambda(ctx_18 lam-id_0) lam-id_0))))" "(void" "(add-core-form!*" " 'λ" "(make-expand-lambda" -"(lambda(ctx_80 lam-id_1)" +"(lambda(ctx_79 lam-id_1)" "(datum->syntax$1" -"(syntax-shift-phase-level$1 core-stx(expand-context-phase ctx_80))" +"(syntax-shift-phase-level$1 core-stx(expand-context-phase ctx_79))" " 'lambda" " lam-id_1" " lam-id_1)))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_500 ctx_81)" +"(lambda(s_504 ctx_80)" "(let-values((()" "(begin" -"(let-values(((obs_31)(expand-context-observer ctx_81)))" +"(let-values(((obs_31)(expand-context-observer ctx_80)))" "(if obs_31" "(let-values()(let-values()(call-expand-observe obs_31 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_500)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_504)))" "(let-values(((ok?_35 case-lambda66_0 formals67_0 body68_0)" "(let-values(((s_32) disarmed-s_7))" -"(let-values(((orig-s_42) s_32))" +"(let-values(((orig-s_43) s_32))" "(let-values(((case-lambda66_1 formals67_1 body68_1)" "(let-values(((s_69)(if(syntax?$1 s_32)(syntax-e$1 s_32) s_32)))" "(if(pair? s_69)" "(let-values(((case-lambda69_0)(let-values(((s_310)(car s_69))) s_310))" "((formals70_0 body71_0)" -"(let-values(((s_483)(cdr s_69)))" -"(let-values(((s_501)" -"(if(syntax?$1 s_483)" -"(syntax-e$1 s_483)" -" s_483)))" -"(let-values(((flat-s_28)(to-syntax-list.1 s_501)))" +"(let-values(((s_488)(cdr s_69)))" +"(let-values(((s_505)" +"(if(syntax?$1 s_488)" +"(syntax-e$1 s_488)" +" s_488)))" +"(let-values(((flat-s_28)(to-syntax-list.1 s_505)))" "(if(not flat-s_28)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_307) flat-s_28))" +"(let-values(((lst_306) flat-s_28))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_307)))" -"((letrec-values(((for-loop_272)" +"(check-list lst_306)))" +"((letrec-values(((for-loop_275)" "(lambda(formals_4" " body_15" -" lst_98)" +" lst_99)" "(begin" " 'for-loop" "(if(pair?" -" lst_98)" +" lst_99)" "(let-values(((s_158)" "(unsafe-car" -" lst_98))" -"((rest_192)" +" lst_99))" +"((rest_190)" "(unsafe-cdr" -" lst_98)))" +" lst_99)))" "(let-values(((formals_5" " body_16)" "(let-values(((formals_6)" @@ -62366,15 +62377,15 @@ static const char *startup_source = " s_55)))" " s_319))" "((body73_0)" -"(let-values(((s_436)" +"(let-values(((s_442)" "(cdr" " s_55)))" "(let-values(((s_389)" "(if(syntax?$1" -" s_436)" +" s_442)" "(syntax-e$1" -" s_436)" -" s_436)))" +" s_442)" +" s_442)))" "(let-values(((flat-s_29)" "(to-syntax-list.1" " s_389)))" @@ -62384,14 +62395,14 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_42))" +" orig-s_43))" "(if(null?" " flat-s_29)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_42))" +" orig-s_43))" "(let-values()" " flat-s_29))))))))" "(values" @@ -62400,7 +62411,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_42))))))" +" orig-s_43))))))" "(values" "(cons" " formals78_0" @@ -62413,76 +62424,76 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_272" +"(for-loop_275" " formals_5" " body_16" -" rest_192)" +" rest_190)" "(values" " formals_5" " body_16))))" "(values" " formals_4" " body_15))))))" -" for-loop_272)" +" for-loop_275)" " null" " null" -" lst_307)))))" +" lst_306)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" "(values case-lambda69_0 formals70_0 body71_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda66_1 formals67_1 body68_1))))))" "(let-values(((ok?_36 case-lambda74_0 clause75_0)" "(let-values(((s_56) disarmed-s_7))" -"(let-values(((orig-s_43) s_56))" +"(let-values(((orig-s_44) s_56))" "(let-values(((case-lambda74_1 clause75_1)" "(let-values(((s_303)(if(syntax?$1 s_56)(syntax-e$1 s_56) s_56)))" "(if(pair? s_303)" "(let-values(((case-lambda76_0)" "(let-values(((s_392)(car s_303))) s_392))" "((clause77_0)" -"(let-values(((s_502)(cdr s_303)))" +"(let-values(((s_506)(cdr s_303)))" "(let-values(((s_57)" -"(if(syntax?$1 s_502)" -"(syntax-e$1 s_502)" -" s_502)))" +"(if(syntax?$1 s_506)" +"(syntax-e$1 s_506)" +" s_506)))" "(let-values(((flat-s_30)(to-syntax-list.1 s_57)))" "(if(not flat-s_30)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_44))" "(let-values() flat-s_30)))))))" "(values case-lambda76_0 clause77_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))" "(values #t case-lambda74_1 clause75_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((temp82_7) #t))(keep-as-needed74.1 #f #f #f #f temp82_7 #t ctx_81 s_500))))" +"(let-values(((temp82_7) #t))(keep-as-needed74.1 #f #f #f #f temp82_7 #t ctx_80 s_504))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_192) formals67_0)((lst_223) body68_0)((lst_224) clause75_0))" +"(let-values(((lst_193) formals67_0)((lst_224) body68_0)((lst_225) clause75_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_192)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_223)))" +"(let-values()(check-list lst_193)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_224)))" -"((letrec-values(((for-loop_273)" -"(lambda(fold-var_296 lst_328 lst_329 lst_330)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_225)))" +"((letrec-values(((for-loop_276)" +"(lambda(fold-var_296 lst_327 lst_328 lst_329)" "(begin" " 'for-loop" -"(if(if(pair? lst_328)" -"(if(pair? lst_329)(pair? lst_330) #f)" +"(if(if(pair? lst_327)" +"(if(pair? lst_328)(pair? lst_329) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_328))" -"((rest_193)(unsafe-cdr lst_328))" -"((body_19)(unsafe-car lst_329))" -"((rest_194)(unsafe-cdr lst_329))" -"((clause_3)(unsafe-car lst_330))" -"((rest_195)(unsafe-cdr lst_330)))" +"(let-values(((formals_8)(unsafe-car lst_327))" +"((rest_191)(unsafe-cdr lst_327))" +"((body_19)(unsafe-car lst_328))" +"((rest_192)(unsafe-cdr lst_328))" +"((clause_3)(unsafe-car lst_329))" +"((rest_193)(unsafe-cdr lst_329)))" "(let-values(((fold-var_297)" "(let-values(((fold-var_298) fold-var_296))" "(let-values(((fold-var_187)" @@ -62493,7 +62504,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_88)" "(expand-context-observer" -" ctx_81)))" +" ctx_80)))" "(if obs_88" "(let-values()" "(let-values()" @@ -62504,7 +62515,7 @@ static const char *startup_source = "(values))))" "(let-values(((rebuild-clause_0)" "(let-values(((ctx83_0)" -" ctx_81)" +" ctx_80)" "((clause84_0)" " clause_3))" "(keep-as-needed74.1" @@ -62519,14 +62530,14 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_500" +" s_504" " disarmed-s_7" " formals_8" " body_19" -" ctx_81" +" ctx_80" " 'lambda-renames)))" "(if(expand-context-to-parsed?" -" ctx_81)" +" ctx_80)" "(list" " exp-formals_0" " exp-body_3)" @@ -62544,15 +62555,15 @@ static const char *startup_source = " fold-var_298))))" "(values fold-var_187)))))" "(if(not #f)" -"(for-loop_273 fold-var_297 rest_193 rest_194 rest_195)" +"(for-loop_276 fold-var_297 rest_191 rest_192 rest_193)" " fold-var_297)))" " fold-var_296)))))" -" for-loop_273)" +" for-loop_276)" " null" -" lst_192" -" lst_223" -" lst_224))))))" -"(if(expand-context-to-parsed? ctx_81)" +" lst_193" +" lst_224" +" lst_225))))))" +"(if(expand-context-to-parsed? ctx_80)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" "(let-values(((rebuild-s87_0) rebuild-s_5)((temp88_3)(list* case-lambda66_0 clauses_1)))" "(rebuild5.1 #f #f rebuild-s87_0 temp88_3))))))))))))" @@ -62625,12 +62636,12 @@ 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_89 ctx_82)" +"(lambda(s_89 ctx_81)" "(let-values((()" "(begin" -"(let-values(((obs_43)(expand-context-observer ctx_82)))" -"(if obs_43" -"(let-values()(let-values()(call-expand-observe obs_43 log-tag_0)))" +"(let-values(((obs_47)(expand-context-observer ctx_81)))" +"(if obs_47" +"(let-values()(let-values()(call-expand-observe obs_47 log-tag_0)))" "(void)))" "(values))))" "(let-values(((disarmed-s_8)(syntax-disarm$1 s_89)))" @@ -62643,7 +62654,7 @@ static const char *startup_source = " body94_0)" "(let-values(((s_107) disarmed-s_8))" "(if(if syntaxes?_0 #t #f)" -"(let-values(((orig-s_44) s_107))" +"(let-values(((orig-s_45) s_107))" "(let-values(((letrec-syntaxes+values89_1" " id:trans90_1" " trans-rhs91_1" @@ -62656,29 +62667,29 @@ static const char *startup_source = " s_107)))" "(if(pair? s_212)" "(let-values(((letrec-syntaxes+values95_0)" -"(let-values(((s_503)(car s_212))) s_503))" +"(let-values(((s_507)(car s_212))) s_507))" "((id:trans96_0" " trans-rhs97_0" " id:val98_0" " val-rhs99_0" " body100_0)" "(let-values(((s_111)(cdr s_212)))" -"(let-values(((s_442)" +"(let-values(((s_448)" "(if(syntax?$1 s_111)" "(syntax-e$1 s_111)" " s_111)))" -"(if(pair? s_442)" +"(if(pair? s_448)" "(let-values(((id:trans101_0" " trans-rhs102_0)" -"(let-values(((s_504)" +"(let-values(((s_425)" "(car" -" s_442)))" +" s_448)))" "(let-values(((s_113)" "(if(syntax?$1" -" s_504)" +" s_425)" "(syntax-e$1" -" s_504)" -" s_504)))" +" s_425)" +" s_425)))" "(let-values(((flat-s_31)" "(to-syntax-list.1" " s_113)))" @@ -62688,11 +62699,11 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_45))" "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_331)" +"(let-values(((lst_330)" " flat-s_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62700,21 +62711,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_331)))" -"((letrec-values(((for-loop_274)" +" lst_330)))" +"((letrec-values(((for-loop_277)" "(lambda(id:trans_1" " trans-rhs_1" -" lst_332)" +" lst_331)" "(begin" " 'for-loop" "(if(pair?" -" lst_332)" -"(let-values(((s_505)" +" lst_331)" +"(let-values(((s_508)" "(unsafe-car" -" lst_332))" -"((rest_196)" +" lst_331))" +"((rest_194)" "(unsafe-cdr" -" lst_332)))" +" lst_331)))" "(let-values(((id:trans_2" " trans-rhs_2)" "(let-values(((id:trans_3)" @@ -62729,35 +62740,35 @@ static const char *startup_source = "(let-values()" "(let-values(((s_220)" "(if(syntax?$1" -" s_505)" +" s_508)" "(syntax-e$1" -" s_505)" -" s_505)))" +" s_508)" +" s_508)))" "(if(pair?" " s_220)" "(let-values(((id:trans106_0)" -"(let-values(((s_506)" +"(let-values(((s_509)" "(car" " s_220)))" -"(let-values(((s_507)" +"(let-values(((s_510)" "(if(syntax?$1" -" s_506)" +" s_509)" "(syntax-e$1" -" s_506)" -" s_506)))" +" s_509)" +" s_509)))" "(let-values(((flat-s_32)" "(to-syntax-list.1" -" s_507)))" +" s_510)))" "(if(not" " flat-s_32)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_45))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_333)" +"(let-values(((lst_332)" " flat-s_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62765,20 +62776,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_333)))" -"((letrec-values(((for-loop_275)" +" lst_332)))" +"((letrec-values(((for-loop_278)" "(lambda(id:trans_6" -" lst_334)" +" lst_333)" "(begin" " 'for-loop" "(if(pair?" -" lst_334)" -"(let-values(((s_445)" +" lst_333)" +"(let-values(((s_450)" "(unsafe-car" -" lst_334))" -"((rest_197)" +" lst_333))" +"((rest_195)" "(unsafe-cdr" -" lst_334)))" +" lst_333)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -62786,23 +62797,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans134_0)" "(let-values()" -"(if(let-values(((or-part_289)" +"(if(let-values(((or-part_285)" "(if(syntax?$1" -" s_445)" +" s_450)" "(symbol?" "(syntax-e$1" -" s_445))" +" s_450))" " #f)))" -"(if or-part_289" -" or-part_289" +"(if or-part_285" +" or-part_285" "(symbol?" -" s_445)))" -" s_445" +" s_450)))" +" s_450" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_44" -" s_445)))))" +" orig-s_45" +" s_450)))))" "(cons" " id:trans134_0" " id:trans_8)))))" @@ -62810,63 +62821,63 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_275" +"(for-loop_278" " id:trans_7" -" rest_197)" +" rest_195)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_275)" +" for-loop_278)" " null" -" lst_333)))))" +" lst_332)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs107_0)" -"(let-values(((s_508)" -"(cdr" -" s_220)))" -"(let-values(((s_509)" -"(if(syntax?$1" -" s_508)" -"(syntax-e$1" -" s_508)" -" s_508)))" -"(if(pair?" -" s_509)" -"(let-values(((trans-rhs108_0)" -"(let-values(((s_510)" -"(car" -" s_509)))" -" s_510))" -"(()" "(let-values(((s_511)" "(cdr" -" s_509)))" -"(let-values(((s_449)" +" s_220)))" +"(let-values(((s_512)" "(if(syntax?$1" " s_511)" "(syntax-e$1" " s_511)" " s_511)))" +"(if(pair?" +" s_512)" +"(let-values(((trans-rhs108_0)" +"(let-values(((s_513)" +"(car" +" s_512)))" +" s_513))" +"(()" +"(let-values(((s_514)" +"(cdr" +" s_512)))" +"(let-values(((s_404)" +"(if(syntax?$1" +" s_514)" +"(syntax-e$1" +" s_514)" +" s_514)))" "(if(null?" -" s_449)" +" s_404)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_45))))))" "(values" " trans-rhs108_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_45))))))" "(values" " id:trans106_0" " trans-rhs107_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_45))))))" "(values" "(cons" " id:trans132_0" @@ -62879,20 +62890,20 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_274" +"(for-loop_277" " id:trans_2" " trans-rhs_2" -" rest_196)" +" rest_194)" "(values" " id:trans_2" " trans-rhs_2))))" "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_274)" +" for-loop_277)" " null" " null" -" lst_331)))))" +" lst_330)))))" "(values" "(reverse$1" " id:trans_0)" @@ -62903,39 +62914,39 @@ static const char *startup_source = " body105_0)" "(let-values(((s_123)" "(cdr" -" s_442)))" -"(let-values(((s_512)" +" s_448)))" +"(let-values(((s_515)" "(if(syntax?$1" " s_123)" "(syntax-e$1" " s_123)" " s_123)))" -"(if(pair? s_512)" +"(if(pair? s_515)" "(let-values(((id:val109_0" " val-rhs110_0)" -"(let-values(((s_513)" +"(let-values(((s_516)" "(car" -" s_512)))" -"(let-values(((s_514)" +" s_515)))" +"(let-values(((s_517)" "(if(syntax?$1" -" s_513)" +" s_516)" "(syntax-e$1" -" s_513)" -" s_513)))" +" s_516)" +" s_516)))" "(let-values(((flat-s_33)" "(to-syntax-list.1" -" s_514)))" +" s_517)))" "(if(not" " flat-s_33)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_45))" "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_201)" +"(let-values(((lst_202)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62943,21 +62954,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_201)))" -"((letrec-values(((for-loop_276)" +" lst_202)))" +"((letrec-values(((for-loop_279)" "(lambda(id:val_1" " val-rhs_2" -" lst_204)" +" lst_205)" "(begin" " 'for-loop" "(if(pair?" -" lst_204)" -"(let-values(((s_515)" +" lst_205)" +"(let-values(((s_518)" "(unsafe-car" -" lst_204))" -"((rest_198)" +" lst_205))" +"((rest_196)" "(unsafe-cdr" -" lst_204)))" +" lst_205)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -62972,10 +62983,10 @@ static const char *startup_source = "(let-values()" "(let-values(((s_230)" "(if(syntax?$1" -" s_515)" +" s_518)" "(syntax-e$1" -" s_515)" -" s_515)))" +" s_518)" +" s_518)))" "(if(pair?" " s_230)" "(let-values(((id:val112_0)" @@ -62997,10 +63008,10 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_45))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_335)" +"(let-values(((lst_334)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63008,20 +63019,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_335)))" -"((letrec-values(((for-loop_277)" +" lst_334)))" +"((letrec-values(((for-loop_253)" "(lambda(id:val_6" -" lst_336)" +" lst_335)" "(begin" " 'for-loop" "(if(pair?" -" lst_336)" +" lst_335)" "(let-values(((s_341)" "(unsafe-car" -" lst_336))" -"((rest_199)" +" lst_335))" +"((rest_197)" "(unsafe-cdr" -" lst_336)))" +" lst_335)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -63029,22 +63040,22 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val137_0)" "(let-values()" -"(if(let-values(((or-part_339)" +"(if(let-values(((or-part_336)" "(if(syntax?$1" " s_341)" "(symbol?" "(syntax-e$1" " s_341))" " #f)))" -"(if or-part_339" -" or-part_339" +"(if or-part_336" +" or-part_336" "(symbol?" " s_341)))" " s_341" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_44" +" orig-s_45" " s_341)))))" "(cons" " id:val137_0" @@ -63053,63 +63064,63 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_277" +"(for-loop_253" " id:val_7" -" rest_199)" +" rest_197)" " id:val_7)))" " id:val_6)))))" -" for-loop_277)" +" for-loop_253)" " null" -" lst_335)))))" +" lst_334)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs113_0)" "(let-values(((s_348)" "(cdr" " s_230)))" -"(let-values(((s_450)" +"(let-values(((s_454)" "(if(syntax?$1" " s_348)" "(syntax-e$1" " s_348)" " s_348)))" "(if(pair?" -" s_450)" +" s_454)" "(let-values(((val-rhs114_0)" -"(let-values(((s_451)" +"(let-values(((s_455)" "(car" -" s_450)))" -" s_451))" +" s_454)))" +" s_455))" "(()" -"(let-values(((s_516)" +"(let-values(((s_519)" "(cdr" -" s_450)))" +" s_454)))" "(let-values(((s_235)" "(if(syntax?$1" -" s_516)" +" s_519)" "(syntax-e$1" -" s_516)" -" s_516)))" +" s_519)" +" s_519)))" "(if(null?" " s_235)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_45))))))" "(values" " val-rhs114_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_45))))))" "(values" " id:val112_0" " val-rhs113_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_45))))))" "(values" "(cons" " id:val135_0" @@ -63122,35 +63133,35 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_276" +"(for-loop_279" " id:val_2" " val-rhs_3" -" rest_198)" +" rest_196)" "(values" " id:val_2" " val-rhs_3))))" "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_276)" +" for-loop_279)" " null" " null" -" lst_201)))))" +" lst_202)))))" "(values" "(reverse$1" " id:val_0)" "(reverse$1" " val-rhs_1)))))))))" "((body111_0)" -"(let-values(((s_517)" +"(let-values(((s_520)" "(cdr" -" s_512)))" +" s_515)))" "(let-values(((s_349)" "(if(syntax?$1" -" s_517)" +" s_520)" "(syntax-e$1" -" s_517)" -" s_517)))" +" s_520)" +" s_520)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" " s_349)))" @@ -63160,14 +63171,14 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_45))" "(if(null?" " flat-s_35)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_45))" "(let-values()" " flat-s_35))))))))" "(values" @@ -63177,7 +63188,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_45))))))" "(values" " id:trans101_0" " trans-rhs102_0" @@ -63187,7 +63198,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_45))))))" "(values" " letrec-syntaxes+values95_0" " id:trans96_0" @@ -63195,7 +63206,7 @@ static const char *startup_source = " id:val98_0" " val-rhs99_0" " body100_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_45)))))" "(values" " #t" " letrec-syntaxes+values89_1" @@ -63206,31 +63217,31 @@ static const char *startup_source = " body94_1)))" "(values #f #f #f #f #f #f #f)))))" "(let-values(((ok?_38 let-values115_0 id:val116_0 val-rhs117_0 body118_0)" -"(let-values(((s_470) disarmed-s_8))" +"(let-values(((s_475) disarmed-s_8))" "(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_45) s_470))" +"(let-values(((orig-s_46) s_475))" "(let-values(((let-values115_1 id:val116_1 val-rhs117_1 body118_1)" "(let-values(((s_238)" -"(if(syntax?$1 s_470)" -"(syntax-e$1 s_470)" -" s_470)))" +"(if(syntax?$1 s_475)" +"(syntax-e$1 s_475)" +" s_475)))" "(if(pair? s_238)" "(let-values(((let-values119_0)" "(let-values(((s_241)(car s_238)))" " s_241))" "((id:val120_0 val-rhs121_0 body122_0)" "(let-values(((s_242)(cdr s_238)))" -"(let-values(((s_518)" +"(let-values(((s_521)" "(if(syntax?$1 s_242)" "(syntax-e$1 s_242)" " s_242)))" -"(if(pair? s_518)" +"(if(pair? s_521)" "(let-values(((id:val123_0" " val-rhs124_0)" "(let-values(((s_353)" "(car" -" s_518)))" -"(let-values(((s_519)" +" s_521)))" +"(let-values(((s_522)" "(if(syntax?$1" " s_353)" "(syntax-e$1" @@ -63238,18 +63249,18 @@ static const char *startup_source = " s_353)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_519)))" +" s_522)))" "(if(not" " flat-s_36)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))" +" orig-s_46))" "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_337)" +"(let-values(((lst_336)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63257,21 +63268,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_337)))" -"((letrec-values(((for-loop_278)" +" lst_336)))" +"((letrec-values(((for-loop_280)" "(lambda(id:val_11" " val-rhs_7" -" lst_212)" +" lst_213)" "(begin" " 'for-loop" "(if(pair?" -" lst_212)" -"(let-values(((s_520)" +" lst_213)" +"(let-values(((s_523)" "(unsafe-car" -" lst_212))" -"((rest_200)" +" lst_213))" +"((rest_198)" "(unsafe-cdr" -" lst_212)))" +" lst_213)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -63286,100 +63297,15 @@ static const char *startup_source = "(let-values()" "(let-values(((s_362)" "(if(syntax?$1" -" s_520)" +" s_523)" "(syntax-e$1" -" s_520)" -" s_520)))" +" s_523)" +" s_523)))" "(if(pair?" " s_362)" "(let-values(((id:val126_0)" -"(let-values(((s_521)" -"(car" -" s_362)))" -"(let-values(((s_522)" -"(if(syntax?$1" -" s_521)" -"(syntax-e$1" -" s_521)" -" s_521)))" -"(let-values(((flat-s_37)" -"(to-syntax-list.1" -" s_522)))" -"(if(not" -" flat-s_37)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_45))" -"(let-values()" -"(let-values(((id:val_15)" -"(let-values(((lst_338)" -" flat-s_37))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_338)))" -"((letrec-values(((for-loop_279)" -"(lambda(id:val_16" -" lst_339)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_339)" -"(let-values(((s_523)" -"(unsafe-car" -" lst_339))" -"((rest_201)" -"(unsafe-cdr" -" lst_339)))" -"(let-values(((id:val_17)" -"(let-values(((id:val_18)" -" id:val_16))" -"(let-values(((id:val_19)" -"(let-values()" -"(let-values(((id:val140_0)" -"(let-values()" -"(if(let-values(((or-part_379)" -"(if(syntax?$1" -" s_523)" -"(symbol?" -"(syntax-e$1" -" s_523))" -" #f)))" -"(if or-part_379" -" or-part_379" -"(symbol?" -" s_523)))" -" s_523" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_45" -" s_523)))))" -"(cons" -" id:val140_0" -" id:val_18)))))" -"(values" -" id:val_19)))))" -"(if(not" -" #f)" -"(for-loop_279" -" id:val_17" -" rest_201)" -" id:val_17)))" -" id:val_16)))))" -" for-loop_279)" -" null" -" lst_338)))))" -"(reverse$1" -" id:val_15))))))))" -"((val-rhs127_0)" "(let-values(((s_524)" -"(cdr" +"(car" " s_362)))" "(let-values(((s_525)" "(if(syntax?$1" @@ -63387,43 +63313,128 @@ static const char *startup_source = "(syntax-e$1" " s_524)" " s_524)))" +"(let-values(((flat-s_37)" +"(to-syntax-list.1" +" s_525)))" +"(if(not" +" flat-s_37)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_46))" +"(let-values()" +"(let-values(((id:val_15)" +"(let-values(((lst_337)" +" flat-s_37))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_337)))" +"((letrec-values(((for-loop_281)" +"(lambda(id:val_16" +" lst_338)" +"(begin" +" 'for-loop" "(if(pair?" -" s_525)" +" lst_338)" +"(let-values(((s_526)" +"(unsafe-car" +" lst_338))" +"((rest_199)" +"(unsafe-cdr" +" lst_338)))" +"(let-values(((id:val_17)" +"(let-values(((id:val_18)" +" id:val_16))" +"(let-values(((id:val_19)" +"(let-values()" +"(let-values(((id:val140_0)" +"(let-values()" +"(if(let-values(((or-part_377)" +"(if(syntax?$1" +" s_526)" +"(symbol?" +"(syntax-e$1" +" s_526))" +" #f)))" +"(if or-part_377" +" or-part_377" +"(symbol?" +" s_526)))" +" s_526" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_46" +" s_526)))))" +"(cons" +" id:val140_0" +" id:val_18)))))" +"(values" +" id:val_19)))))" +"(if(not" +" #f)" +"(for-loop_281" +" id:val_17" +" rest_199)" +" id:val_17)))" +" id:val_16)))))" +" for-loop_281)" +" null" +" lst_337)))))" +"(reverse$1" +" id:val_15))))))))" +"((val-rhs127_0)" +"(let-values(((s_527)" +"(cdr" +" s_362)))" +"(let-values(((s_528)" +"(if(syntax?$1" +" s_527)" +"(syntax-e$1" +" s_527)" +" s_527)))" +"(if(pair?" +" s_528)" "(let-values(((val-rhs128_0)" "(let-values(((s_247)" "(car" -" s_525)))" +" s_528)))" " s_247))" "(()" "(let-values(((s_248)" "(cdr" -" s_525)))" -"(let-values(((s_526)" +" s_528)))" +"(let-values(((s_529)" "(if(syntax?$1" " s_248)" "(syntax-e$1" " s_248)" " s_248)))" "(if(null?" -" s_526)" +" s_529)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_46))))))" "(values" " val-rhs128_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_46))))))" "(values" " id:val126_0" " val-rhs127_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_46))))))" "(values" "(cons" " id:val138_0" @@ -63436,52 +63447,52 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_278" +"(for-loop_280" " id:val_12" " val-rhs_8" -" rest_200)" +" rest_198)" "(values" " id:val_12" " val-rhs_8))))" "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_278)" +" for-loop_280)" " null" " null" -" lst_337)))))" +" lst_336)))))" "(values" "(reverse$1" " id:val_10)" "(reverse$1" " val-rhs_6)))))))))" "((body125_0)" -"(let-values(((s_527)" +"(let-values(((s_530)" "(cdr" -" s_518)))" -"(let-values(((s_528)" +" s_521)))" +"(let-values(((s_531)" "(if(syntax?$1" -" s_527)" +" s_530)" "(syntax-e$1" -" s_527)" -" s_527)))" +" s_530)" +" s_530)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" -" s_528)))" +" s_531)))" "(if(not" " flat-s_38)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))" +" orig-s_46))" "(if(null?" " flat-s_38)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))" +" orig-s_46))" "(let-values()" " flat-s_38))))))))" "(values" @@ -63491,35 +63502,35 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_46))))))" "(values" " let-values119_0" " id:val120_0" " val-rhs121_0" " body122_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_45)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_46)))))" "(values #t let-values115_1 id:val116_1 val-rhs117_1 body118_1)))" "(values #f #f #f #f #f)))))" "(let-values(((sc_7)(new-scope 'local)))" -"(let-values(((phase_147)(expand-context-phase ctx_82)))" +"(let-values(((phase_146)(expand-context-phase ctx_81)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_340)(if syntaxes?_0 id:trans90_0 null)))" +"(let-values(((lst_339)(if syntaxes?_0 id:trans90_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_340)))" -"((letrec-values(((for-loop_280)" -"(lambda(fold-var_299 lst_341)" +"(let-values()(check-list lst_339)))" +"((letrec-values(((for-loop_282)" +"(lambda(fold-var_299 lst_340)" "(begin" " 'for-loop" -"(if(pair? lst_341)" -"(let-values(((ids_32)" -"(unsafe-car lst_341))" -"((rest_202)" -"(unsafe-cdr lst_341)))" -"(let-values(((fold-var_260)" +"(if(pair? lst_340)" +"(let-values(((ids_33)" +"(unsafe-car lst_340))" +"((rest_200)" +"(unsafe-cdr lst_340)))" +"(let-values(((fold-var_261)" "(let-values(((fold-var_300)" " fold-var_299))" "(let-values(((fold-var_301)" @@ -63527,107 +63538,107 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_342)" -" ids_32))" +"(let-values(((lst_341)" +" ids_33))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_342)))" -"((letrec-values(((for-loop_281)" -"(lambda(fold-var_262" -" lst_343)" +" lst_341)))" +"((letrec-values(((for-loop_283)" +"(lambda(fold-var_263" +" lst_342)" "(begin" " 'for-loop" "(if(pair?" -" lst_343)" -"(let-values(((id_113)" +" lst_342)" +"(let-values(((id_114)" "(unsafe-car" -" lst_343))" -"((rest_203)" +" lst_342))" +"((rest_201)" "(unsafe-cdr" -" lst_343)))" -"(let-values(((fold-var_264)" +" lst_342)))" +"(let-values(((fold-var_265)" "(let-values(((fold-var_302)" -" fold-var_262))" +" fold-var_263))" "(let-values(((fold-var_303)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_113" +" id_114" " sc_7))" " fold-var_302))))" "(values" " fold-var_303)))))" "(if(not" " #f)" -"(for-loop_281" -" fold-var_264" -" rest_203)" -" fold-var_264)))" -" fold-var_262)))))" -" for-loop_281)" +"(for-loop_283" +" fold-var_265" +" rest_201)" +" fold-var_265)))" +" fold-var_263)))))" +" for-loop_283)" " null" -" lst_342)))))" +" lst_341)))))" " fold-var_300))))" "(values" " fold-var_301)))))" "(if(not #f)" -"(for-loop_280 fold-var_260 rest_202)" -" fold-var_260)))" +"(for-loop_282 fold-var_261 rest_200)" +" fold-var_261)))" " fold-var_299)))))" -" for-loop_280)" +" for-loop_282)" " null" -" lst_340))))))" +" lst_339))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_344)(if syntaxes?_0 id:val92_0 id:val116_0)))" +"(let-values(((lst_343)(if syntaxes?_0 id:val92_0 id:val116_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_344)))" -"((letrec-values(((for-loop_282)" -"(lambda(fold-var_266 lst_345)" +"(let-values()(check-list lst_343)))" +"((letrec-values(((for-loop_284)" +"(lambda(fold-var_267 lst_344)" "(begin" " 'for-loop" -"(if(pair? lst_345)" -"(let-values(((ids_20)" -"(unsafe-car lst_345))" -"((rest_204)" -"(unsafe-cdr lst_345)))" +"(if(pair? lst_344)" +"(let-values(((ids_34)" +"(unsafe-car lst_344))" +"((rest_202)" +"(unsafe-cdr lst_344)))" "(let-values(((fold-var_304)" "(let-values(((fold-var_305)" -" fold-var_266))" +" fold-var_267))" "(let-values(((fold-var_306)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_346)" -" ids_20))" +"(let-values(((lst_345)" +" ids_34))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_346)))" -"((letrec-values(((for-loop_283)" +" lst_345)))" +"((letrec-values(((for-loop_285)" "(lambda(fold-var_307" -" lst_347)" +" lst_346)" "(begin" " 'for-loop" "(if(pair?" -" lst_347)" -"(let-values(((id_114)" +" lst_346)" +"(let-values(((id_115)" "(unsafe-car" -" lst_347))" -"((rest_205)" +" lst_346))" +"((rest_203)" "(unsafe-cdr" -" lst_347)))" +" lst_346)))" "(let-values(((fold-var_308)" "(let-values(((fold-var_309)" " fold-var_307))" @@ -63636,51 +63647,51 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_114" +" id_115" " sc_7))" " fold-var_309))))" "(values" " fold-var_310)))))" "(if(not" " #f)" -"(for-loop_283" +"(for-loop_285" " fold-var_308" -" rest_205)" +" rest_203)" " fold-var_308)))" " fold-var_307)))))" -" for-loop_283)" +" for-loop_285)" " null" -" lst_346)))))" +" lst_345)))))" " fold-var_305))))" "(values" " fold-var_306)))))" "(if(not #f)" -"(for-loop_282" +"(for-loop_284" " fold-var_304" -" rest_204)" +" rest_202)" " fold-var_304)))" -" fold-var_266)))))" -" for-loop_282)" +" fold-var_267)))))" +" for-loop_284)" " null" -" lst_344))))))" +" lst_343))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_348)" +"(let-values(((lst_347)" "(if syntaxes?_0 val-rhs93_0 val-rhs117_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_348)))" -"((letrec-values(((for-loop_284)" -"(lambda(fold-var_311 lst_349)" +"(let-values()(check-list lst_347)))" +"((letrec-values(((for-loop_286)" +"(lambda(fold-var_311 lst_348)" "(begin" " 'for-loop" -"(if(pair? lst_349)" +"(if(pair? lst_348)" "(let-values(((rhs_20)" -"(unsafe-car lst_349))" -"((rest_206)" -"(unsafe-cdr lst_349)))" +"(unsafe-car lst_348))" +"((rest_204)" +"(unsafe-cdr lst_348)))" "(let-values(((fold-var_312)" "(let-values(((fold-var_313)" " fold-var_311))" @@ -63695,19 +63706,19 @@ static const char *startup_source = "(values" " fold-var_314)))))" "(if(not #f)" -"(for-loop_284" +"(for-loop_286" " fold-var_312" -" rest_206)" +" rest_204)" " fold-var_312)))" " fold-var_311)))))" -" for-loop_284)" +" for-loop_286)" " null" -" lst_348))))" +" lst_347))))" "(if syntaxes?_0 val-rhs93_0 val-rhs117_0))))" "(let-values((()" "(begin" "(let-values(((temp129_2)(list trans-idss_2 val-idss_3))" -"((phase130_0) phase_147)" +"((phase130_0) phase_146)" "((s131_0) s_89))" "(check-no-duplicate-ids8.1" " #f" @@ -63718,26 +63729,26 @@ static const char *startup_source = " #f" " #f))" "(values))))" -"(let-values(((counter_8)(root-expand-context-counter ctx_82)))" +"(let-values(((counter_8)(root-expand-context-counter ctx_81)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_350) trans-idss_2))" +"(let-values(((lst_349) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_350)))" -"((letrec-values(((for-loop_285)" -"(lambda(fold-var_315 lst_351)" +"(let-values()(check-list lst_349)))" +"((letrec-values(((for-loop_287)" +"(lambda(fold-var_315 lst_350)" "(begin" " 'for-loop" -"(if(pair? lst_351)" -"(let-values(((ids_33)" +"(if(pair? lst_350)" +"(let-values(((ids_35)" "(unsafe-car" -" lst_351))" -"((rest_207)" +" lst_350))" +"((rest_205)" "(unsafe-cdr" -" lst_351)))" +" lst_350)))" "(let-values(((fold-var_316)" "(let-values(((fold-var_317)" " fold-var_315))" @@ -63746,28 +63757,28 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_352)" -" ids_33))" +"(let-values(((lst_351)" +" ids_35))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_352)))" -"((letrec-values(((for-loop_286)" +" lst_351)))" +"((letrec-values(((for-loop_288)" "(lambda(fold-var_319" -" lst_353)" +" lst_352)" "(begin" " 'for-loop" "(if(pair?" -" lst_353)" -"(let-values(((id_115)" +" lst_352)" +"(let-values(((id_116)" "(unsafe-car" -" lst_353))" -"((rest_208)" +" lst_352))" +"((rest_206)" "(unsafe-cdr" -" lst_353)))" +" lst_352)))" "(let-values(((fold-var_320)" "(let-values(((fold-var_98)" " fold-var_319))" @@ -63784,53 +63795,53 @@ static const char *startup_source = " #t" " s145_1" " #t" -" id_115" -" phase_147" +" id_116" +" phase_146" " counter_8)))" " fold-var_98))))" "(values" " fold-var_99)))))" "(if(not" " #f)" -"(for-loop_286" +"(for-loop_288" " fold-var_320" -" rest_208)" +" rest_206)" " fold-var_320)))" " fold-var_319)))))" -" for-loop_286)" +" for-loop_288)" " null" -" lst_352)))))" +" lst_351)))))" " fold-var_317))))" "(values" " fold-var_318)))))" "(if(not #f)" -"(for-loop_285" +"(for-loop_287" " fold-var_316" -" rest_207)" +" rest_205)" " fold-var_316)))" " fold-var_315)))))" -" for-loop_285)" +" for-loop_287)" " null" -" lst_350))))))" +" lst_349))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_354) val-idss_3))" +"(let-values(((lst_353) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_354)))" -"((letrec-values(((for-loop_287)" -"(lambda(fold-var_321 lst_355)" +"(let-values()(check-list lst_353)))" +"((letrec-values(((for-loop_289)" +"(lambda(fold-var_321 lst_354)" "(begin" " 'for-loop" -"(if(pair? lst_355)" -"(let-values(((ids_34)" +"(if(pair? lst_354)" +"(let-values(((ids_36)" "(unsafe-car" -" lst_355))" -"((rest_209)" +" lst_354))" +"((rest_207)" "(unsafe-cdr" -" lst_355)))" +" lst_354)))" "(let-values(((fold-var_322)" "(let-values(((fold-var_323)" " fold-var_321))" @@ -63839,28 +63850,28 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_356)" -" ids_34))" +"(let-values(((lst_355)" +" ids_36))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_356)))" -"((letrec-values(((for-loop_288)" +" lst_355)))" +"((letrec-values(((for-loop_290)" "(lambda(fold-var_325" -" lst_357)" +" lst_356)" "(begin" " 'for-loop" "(if(pair?" -" lst_357)" -"(let-values(((id_116)" +" lst_356)" +"(let-values(((id_117)" "(unsafe-car" -" lst_357))" -"((rest_210)" +" lst_356))" +"((rest_208)" "(unsafe-cdr" -" lst_357)))" +" lst_356)))" "(let-values(((fold-var_326)" "(let-values(((fold-var_327)" " fold-var_325))" @@ -63877,54 +63888,54 @@ static const char *startup_source = " #t" " s150_1" " #t" -" id_116" -" phase_147" +" id_117" +" phase_146" " counter_8)))" " fold-var_327))))" "(values" " fold-var_328)))))" "(if(not" " #f)" -"(for-loop_288" +"(for-loop_290" " fold-var_326" -" rest_210)" +" rest_208)" " fold-var_326)))" " fold-var_325)))))" -" for-loop_288)" +" for-loop_290)" " null" -" lst_356)))))" +" lst_355)))))" " fold-var_323))))" "(values" " fold-var_324)))))" "(if(not #f)" -"(for-loop_287" +"(for-loop_289" " fold-var_322" -" rest_209)" +" rest_207)" " fold-var_322)))" " fold-var_321)))))" -" for-loop_287)" +" for-loop_289)" " null" -" lst_354))))))" +" lst_353))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_358)" +"(let-values(((lst_357)" "(if syntaxes?_0 body94_0 body118_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_358)))" -"((letrec-values(((for-loop_289)" -"(lambda(fold-var_329 lst_359)" +"(let-values()(check-list lst_357)))" +"((letrec-values(((for-loop_291)" +"(lambda(fold-var_329 lst_358)" "(begin" " 'for-loop" -"(if(pair? lst_359)" +"(if(pair? lst_358)" "(let-values(((body_20)" "(unsafe-car" -" lst_359))" -"((rest_211)" +" lst_358))" +"((rest_209)" "(unsafe-cdr" -" lst_359)))" +" lst_358)))" "(let-values(((fold-var_330)" "(let-values(((fold-var_331)" " fold-var_329))" @@ -63939,18 +63950,18 @@ static const char *startup_source = "(values" " fold-var_332)))))" "(if(not #f)" -"(for-loop_289" +"(for-loop_291" " fold-var_330" -" rest_211)" +" rest_209)" " fold-var_330)))" " fold-var_329)))))" -" for-loop_289)" +" for-loop_291)" " null" -" lst_358))))))" +" lst_357))))))" "(let-values((()" "(begin" "(let-values(((obs_89)" -"(expand-context-observer ctx_82)))" +"(expand-context-observer ctx_81)))" "(if obs_89" "(let-values()" "(log-let-renames" @@ -63971,7 +63982,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_90)" "(expand-context-observer" -" ctx_82)))" +" ctx_81)))" "(if obs_90" "(let-values()" "(let-values()" @@ -63979,44 +63990,44 @@ static const char *startup_source = " obs_90" " 'prepare-env)))" "(void)))" -"(prepare-next-phase-namespace ctx_82)))" +"(prepare-next-phase-namespace ctx_81)))" "(void))" "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_360)" +"(let-values(((lst_359)" "(if syntaxes?_0 trans-rhs91_0 '()))" -"((lst_361) trans-idss_2))" +"((lst_360) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_359)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_360)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_361)))" -"((letrec-values(((for-loop_290)" +"((letrec-values(((for-loop_292)" "(lambda(fold-var_333" -" lst_231" -" lst_362)" +" lst_232" +" lst_361)" "(begin" " 'for-loop" -"(if(if(pair? lst_231)" -"(pair? lst_362)" +"(if(if(pair? lst_232)" +"(pair? lst_361)" " #f)" "(let-values(((rhs_19)" "(unsafe-car" -" lst_231))" -"((rest_212)" +" lst_232))" +"((rest_210)" "(unsafe-cdr" -" lst_231))" -"((ids_35)" +" lst_232))" +"((ids_37)" "(unsafe-car" -" lst_362))" -"((rest_213)" +" lst_361))" +"((rest_211)" "(unsafe-cdr" -" lst_362)))" +" lst_361)))" "(let-values(((fold-var_334)" "(let-values(((fold-var_335)" " fold-var_333))" @@ -64028,7 +64039,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_91)" "(expand-context-observer" -" ctx_82)))" +" ctx_81)))" "(if obs_91" "(let-values()" "(let-values()" @@ -64046,12 +64057,12 @@ static const char *startup_source = "(add-scope" " rhs_19" " sc_7)" -" ids_35" -" ctx_82)))" +" ids_37" +" ctx_81)))" "(begin" "(let-values(((obs_85)" "(expand-context-observer" -" ctx_82)))" +" ctx_81)))" "(if obs_85" "(let-values()" "(let-values()" @@ -64064,240 +64075,240 @@ static const char *startup_source = "(values" " fold-var_336)))))" "(if(not #f)" -"(for-loop_290" +"(for-loop_292" " fold-var_334" -" rest_212" -" rest_213)" +" rest_210" +" rest_211)" " fold-var_334)))" " fold-var_333)))))" -" for-loop_290)" +" for-loop_292)" " null" -" lst_360" -" lst_361))))))" +" lst_359" +" lst_360))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_363) val-keyss_2)" -"((lst_120) val-idss_3))" +"(let-values(((lst_362) val-keyss_2)" +"((lst_121) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_363)))" +"(let-values()(check-list lst_362)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_120)))" -"((letrec-values(((for-loop_291)" +"(let-values()(check-list lst_121)))" +"((letrec-values(((for-loop_293)" "(lambda(env_29" -" lst_234" -" lst_235)" +" lst_235" +" lst_236)" "(begin" " 'for-loop" -"(if(if(pair? lst_234)" -"(pair? lst_235)" +"(if(if(pair? lst_235)" +"(pair? lst_236)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_234))" -"((rest_155)" -"(unsafe-cdr" -" lst_234))" -"((ids_36)" -"(unsafe-car" " lst_235))" -"((rest_214)" +"((rest_212)" "(unsafe-cdr" -" lst_235)))" -"(let-values(((env_6)" +" lst_235))" +"((ids_38)" +"(unsafe-car" +" lst_236))" +"((rest_213)" +"(unsafe-cdr" +" lst_236)))" "(let-values(((env_30)" +"(let-values(((env_31)" " env_29))" -"(let-values(((lst_323)" +"(let-values(((lst_322)" " keys_10)" -"((lst_324)" -" ids_36))" +"((lst_323)" +" ids_38))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" +" lst_322)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_323)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_324)))" -"((letrec-values(((for-loop_292)" -"(lambda(env_31" -" lst_364" -" lst_238)" +"((letrec-values(((for-loop_294)" +"(lambda(env_5" +" lst_363" +" lst_239)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_364)" +" lst_363)" "(pair?" -" lst_238)" +" lst_239)" " #f)" "(let-values(((key_93)" "(unsafe-car" -" lst_364))" -"((rest_215)" +" lst_363))" +"((rest_214)" "(unsafe-cdr" -" lst_364))" -"((id_117)" +" lst_363))" +"((id_67)" "(unsafe-car" -" lst_238))" -"((rest_188)" +" lst_239))" +"((rest_186)" "(unsafe-cdr" -" lst_238)))" +" lst_239)))" "(let-values(((env_32)" "(let-values(((env_33)" -" env_31))" +" env_5))" "(let-values(((env_34)" "(let-values()" "(env-extend" " env_33" " key_93" "(local-variable1.1" -" id_117)))))" +" id_67)))))" "(values" " env_34)))))" "(if(not" " #f)" -"(for-loop_292" +"(for-loop_294" " env_32" -" rest_215" -" rest_188)" +" rest_214" +" rest_186)" " env_32)))" -" env_31)))))" -" for-loop_292)" -" env_30" -" lst_323" -" lst_324))))))" +" env_5)))))" +" for-loop_294)" +" env_31" +" lst_322" +" lst_323))))))" "(if(not #f)" -"(for-loop_291" -" env_6" -" rest_155" -" rest_214)" -" env_6)))" +"(for-loop_293" +" env_30" +" rest_212" +" rest_213)" +" env_30)))" " env_29)))))" -" for-loop_291)" -"(expand-context-env ctx_82)" -" lst_363" -" lst_120)))))" +" for-loop_293)" +"(expand-context-env ctx_81)" +" lst_362" +" lst_121)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_365) trans-keyss_0)" -"((lst_366) trans-valss_0)" -"((lst_367) trans-idss_2))" +"(let-values(((lst_364) trans-keyss_0)" +"((lst_365) trans-valss_0)" +"((lst_366) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_364)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_365)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_366)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_367)))" -"((letrec-values(((for-loop_293)" +"((letrec-values(((for-loop_295)" "(lambda(env_35" -" lst_241" -" lst_368" -" lst_369)" +" lst_242" +" lst_367" +" lst_368)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_241)" +" lst_242)" "(if(pair?" -" lst_368)" +" lst_367)" "(pair?" -" lst_369)" +" lst_368)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_241))" +" lst_242))" +"((rest_215)" +"(unsafe-cdr" +" lst_242))" +"((vals_9)" +"(unsafe-car" +" lst_367))" "((rest_216)" "(unsafe-cdr" -" lst_241))" -"((vals_9)" +" lst_367))" +"((ids_39)" "(unsafe-car" " lst_368))" "((rest_217)" "(unsafe-cdr" -" lst_368))" -"((ids_37)" -"(unsafe-car" -" lst_369))" -"((rest_218)" -"(unsafe-cdr" -" lst_369)))" +" lst_368)))" "(let-values(((env_36)" "(let-values(((env_37)" " env_35))" "(let-values(((env_38)" "(let-values()" -"(let-values(((lst_121)" +"(let-values(((lst_122)" " keys_11)" -"((lst_370)" +"((lst_369)" " vals_9)" -"((lst_371)" -" ids_37))" +"((lst_370)" +" ids_39))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_121)))" +" lst_122)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_369)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" " lst_370)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_371)))" -"((letrec-values(((for-loop_294)" +"((letrec-values(((for-loop_296)" "(lambda(env_39" +" lst_371" " lst_372" -" lst_373" -" lst_374)" +" lst_373)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_372)" +" lst_371)" "(if(pair?" -" lst_373)" +" lst_372)" "(pair?" -" lst_374)" +" lst_373)" " #f)" " #f)" "(let-values(((key_94)" "(unsafe-car" +" lst_371))" +"((rest_218)" +"(unsafe-cdr" +" lst_371))" +"((val_84)" +"(unsafe-car" " lst_372))" "((rest_219)" "(unsafe-cdr" " lst_372))" -"((val_84)" +"((id_118)" "(unsafe-car" " lst_373))" "((rest_220)" "(unsafe-cdr" -" lst_373))" -"((id_118)" -"(unsafe-car" -" lst_374))" -"((rest_221)" -"(unsafe-cdr" -" lst_374)))" +" lst_373)))" "(let-values(((env_40)" "(let-values(((env_41)" " env_39))" @@ -64307,8 +64318,8 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_84" " id_118" -" phase_147" -" ctx_82)" +" phase_146" +" ctx_81)" "(env-extend" " env_41" " key_94" @@ -64317,48 +64328,48 @@ static const char *startup_source = " env_42)))))" "(if(not" " #f)" -"(for-loop_294" +"(for-loop_296" " env_40" +" rest_218" " rest_219" -" rest_220" -" rest_221)" +" rest_220)" " env_40)))" " env_39)))))" -" for-loop_294)" +" for-loop_296)" " env_37" -" lst_121" -" lst_370" -" lst_371))))))" +" lst_122" +" lst_369" +" lst_370))))))" "(values" " env_38)))))" "(if(not #f)" -"(for-loop_293" +"(for-loop_295" " env_36" +" rest_215" " rest_216" -" rest_217" -" rest_218)" +" rest_217)" " env_36)))" " env_35)))))" -" for-loop_293)" +" for-loop_295)" " rec-val-env_0" +" lst_364" " lst_365" -" lst_366" -" lst_367)))))" -"(let-values(((expr-ctx_0)(as-expression-context ctx_82)))" +" lst_366)))))" +"(let-values(((expr-ctx_0)(as-expression-context ctx_81)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" -"(let-values(((v_252) expr-ctx_0))" -"(let-values(((the-struct_98) v_252))" +"(let-values(((v_251) expr-ctx_0))" +"(let-values(((the-struct_97) v_251))" "(if(expand-context/outer?" -" the-struct_98)" +" the-struct_97)" "(let-values(((env151_1) rec-env_0)" "((scopes152_0)" "(cons" " sc_7" "(expand-context-scopes" -" ctx_82)))" +" ctx_81)))" "((reference-records153_0)" "(if split-by-reference?_0" "(cons" @@ -64370,46 +64381,46 @@ static const char *startup_source = "(cons" " trans-idss_2" " val-idss_3)" -" ctx_82" +" ctx_81" " sc_7))" "((inner155_2)" "(root-expand-context/outer-inner" -" v_252)))" +" v_251)))" "(expand-context/outer1.1" " inner155_2" "(root-expand-context/outer-post-expansion-scope" -" the-struct_98)" +" the-struct_97)" "(root-expand-context/outer-use-site-scopes" -" the-struct_98)" +" the-struct_97)" "(root-expand-context/outer-frame-id" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-context" -" the-struct_98)" +" the-struct_97)" " env151_1" "(expand-context/outer-post-expansion-scope-action" -" the-struct_98)" +" the-struct_97)" " scopes152_0" "(expand-context/outer-def-ctx-scopes" -" the-struct_98)" +" the-struct_97)" " binding-layer154_0" " reference-records153_0" "(expand-context/outer-only-immediate?" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-need-eventually-defined" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-current-introduction-scopes" -" the-struct_98)" +" the-struct_97)" "(expand-context/outer-name" -" the-struct_98)))" +" the-struct_97)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_98))))))" +" the-struct_97))))))" "(let-values(((letrec-values-id_0)" "(if(not" -"(expand-context-to-parsed? ctx_82))" +"(expand-context-to-parsed? ctx_81))" "(if syntaxes?_0" -"(core-id 'letrec-values phase_147)" +"(core-id 'letrec-values phase_146)" " let-values115_0)" " #f)))" "(let-values(((rebuild-s_6)" @@ -64421,33 +64432,33 @@ static const char *startup_source = " #t" " #f" " #f" -" ctx_82" +" ctx_81" " s_89))))" "(let-values(((val-name-idss_0)" "(if(expand-context-to-parsed?" -" ctx_82)" +" ctx_81)" "(reverse$1" -"(let-values(((lst_375)" +"(let-values(((lst_374)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_375)))" -"((letrec-values(((for-loop_295)" +"(check-list lst_374)))" +"((letrec-values(((for-loop_297)" "(lambda(fold-var_106" -" lst_376)" +" lst_375)" "(begin" " 'for-loop" "(if(pair?" -" lst_376)" +" lst_375)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_376))" -"((rest_222)" +" lst_375))" +"((rest_221)" "(unsafe-cdr" -" lst_376)))" +" lst_375)))" "(let-values(((fold-var_337)" "(let-values(((fold-var_338)" " fold-var_106))" @@ -64456,7 +64467,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_377)" +"(let-values(((lst_376)" " val-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64464,20 +64475,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_377)))" -"((letrec-values(((for-loop_296)" +" lst_376)))" +"((letrec-values(((for-loop_298)" "(lambda(fold-var_340" -" lst_378)" +" lst_377)" "(begin" " 'for-loop" "(if(pair?" -" lst_378)" +" lst_377)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_378))" -"((rest_223)" +" lst_377))" +"((rest_222)" "(unsafe-cdr" -" lst_378)))" +" lst_377)))" "(let-values(((fold-var_109)" "(let-values(((fold-var_341)" " fold-var_340))" @@ -64496,27 +64507,27 @@ static const char *startup_source = " fold-var_342)))))" "(if(not" " #f)" -"(for-loop_296" +"(for-loop_298" " fold-var_109" -" rest_223)" +" rest_222)" " fold-var_109)))" " fold-var_340)))))" -" for-loop_296)" +" for-loop_298)" " null" -" lst_377)))))" +" lst_376)))))" " fold-var_338))))" "(values" " fold-var_339)))))" "(if(not" " #f)" -"(for-loop_295" +"(for-loop_297" " fold-var_337" -" rest_222)" +" rest_221)" " fold-var_337)))" " fold-var_106)))))" -" for-loop_295)" +" for-loop_297)" " null" -" lst_375))))" +" lst_374))))" " val-idss_3)))" "(let-values((()" "(begin" @@ -64524,7 +64535,7 @@ static const char *startup_source = "(let-values()" "(let-values(((obs_92)" "(expand-context-observer" -" ctx_82)))" +" ctx_81)))" "(if obs_92" "(let-values()" "(log-letrec-values" @@ -64543,7 +64554,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_93)" "(expand-context-observer" -" ctx_82)))" +" ctx_81)))" "(if obs_93" "(let-values()" "(if(not" @@ -64559,53 +64570,53 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_253)" +"(let-values(((v_252)" " rec-ctx_0))" -"(let-values(((the-struct_99)" -" v_253))" +"(let-values(((the-struct_98)" +" v_252))" "(if(expand-context/outer?" -" the-struct_99)" +" the-struct_98)" "(let-values(((reference-records162_0)" " orig-rrs_0)" "((inner163_0)" "(root-expand-context/outer-inner" -" v_253)))" +" v_252)))" "(expand-context/outer1.1" " inner163_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_99)" +" the-struct_98)" "(root-expand-context/outer-use-site-scopes" -" the-struct_99)" +" the-struct_98)" "(root-expand-context/outer-frame-id" -" the-struct_99)" +" the-struct_98)" "(expand-context/outer-context" -" the-struct_99)" +" the-struct_98)" "(expand-context/outer-env" -" the-struct_99)" +" the-struct_98)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_99)" +" the-struct_98)" "(expand-context/outer-scopes" -" the-struct_99)" +" the-struct_98)" "(expand-context/outer-def-ctx-scopes" -" the-struct_99)" +" the-struct_98)" "(expand-context/outer-binding-layer" -" the-struct_99)" +" the-struct_98)" " reference-records162_0" "(expand-context/outer-only-immediate?" -" the-struct_99)" +" the-struct_98)" "(expand-context/outer-need-eventually-defined" -" the-struct_99)" +" the-struct_98)" "(expand-context/outer-current-introduction-scopes" -" the-struct_99)" +" the-struct_98)" "(expand-context/outer-name" -" the-struct_99)))" +" the-struct_98)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_99))))))" +" the-struct_98))))))" "(let-values(((temp160_2)" "(let-values(((ctx165_0)" -" ctx_82))" +" ctx_81))" "(as-tail-context23.1" " ctx165_0" " body-ctx_5)))" @@ -64623,11 +64634,11 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_379)" +"(let-values(((lst_378)" " val-name-idss_0)" -"((lst_380)" +"((lst_379)" " val-keyss_2)" -"((lst_381)" +"((lst_380)" " val-rhss_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64635,6 +64646,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_378)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_379)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -64642,45 +64659,39 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_380)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_381)))" "((letrec-values(((for-loop_159)" "(lambda(fold-var_116" +" lst_381" " lst_382" -" lst_383" -" lst_384)" +" lst_383)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_382)" +" lst_381)" "(if(pair?" -" lst_383)" +" lst_382)" "(pair?" -" lst_384)" +" lst_383)" " #f)" " #f)" -"(let-values(((ids_38)" +"(let-values(((ids_40)" +"(unsafe-car" +" lst_381))" +"((rest_223)" +"(unsafe-cdr" +" lst_381))" +"((keys_12)" "(unsafe-car" " lst_382))" "((rest_224)" "(unsafe-cdr" " lst_382))" -"((keys_12)" +"((rhs_21)" "(unsafe-car" " lst_383))" "((rest_225)" "(unsafe-cdr" -" lst_383))" -"((rhs_21)" -"(unsafe-car" -" lst_384))" -"((rest_226)" -"(unsafe-cdr" -" lst_384)))" +" lst_383)))" "(let-values(((fold-var_343)" "(let-values(((fold-var_119)" " fold-var_116))" @@ -64692,7 +64703,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_94)" "(expand-context-observer" -" ctx_82)))" +" ctx_81)))" "(if obs_94" "(let-values()" "(let-values()" @@ -64708,10 +64719,10 @@ static const char *startup_source = "(if rec?_1" "(as-named-context" " rec-ctx_0" -" ids_38)" +" ids_40)" "(as-named-context" " expr-ctx_0" -" ids_38))))" +" ids_40))))" "(expand7.1" " #f" " #f" @@ -64720,12 +64731,12 @@ static const char *startup_source = " rhs166_0" " temp167_1))))" "(if(expand-context-to-parsed?" -" ctx_82)" +" ctx_81)" "(list" " keys_12" " exp-rhs_4)" "(list" -" ids_38" +" ids_40" " exp-rhs_4)))))" " fold-var_119))))" "(values" @@ -64734,16 +64745,16 @@ static const char *startup_source = " #f)" "(for-loop_159" " fold-var_343" +" rest_223" " rest_224" -" rest_225" -" rest_226)" +" rest_225)" " fold-var_343)))" " fold-var_116)))))" " for-loop_159)" " null" +" lst_378" " lst_379" -" lst_380" -" lst_381))))))" +" lst_380))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -64753,7 +64764,7 @@ static const char *startup_source = " frame-id_15))" "(void))" "(if(expand-context-to-parsed?" -" ctx_82)" +" ctx_81)" "(if rec?_1" "(parsed-letrec-values18.1" " rebuild-s_6" @@ -64780,7 +64791,7 @@ static const char *startup_source = "(let-values()" "(let-values(((temp173_0)" "(reverse$1" -"(let-values(((lst_385)" +"(let-values(((lst_384)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64788,20 +64799,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_385)))" -"((letrec-values(((for-loop_297)" +" lst_384)))" +"((letrec-values(((for-loop_299)" "(lambda(fold-var_344" -" lst_386)" +" lst_385)" "(begin" " 'for-loop" "(if(pair?" -" lst_386)" +" lst_385)" "(let-values(((rhs_22)" "(unsafe-car" -" lst_386))" -"((rest_227)" +" lst_385))" +"((rest_226)" "(unsafe-cdr" -" lst_386)))" +" lst_385)))" "(let-values(((fold-var_345)" "(let-values(((fold-var_346)" " fold-var_344))" @@ -64815,14 +64826,14 @@ static const char *startup_source = " fold-var_347)))))" "(if(not" " #f)" -"(for-loop_297" +"(for-loop_299" " fold-var_345" -" rest_227)" +" rest_226)" " fold-var_345)))" " fold-var_344)))))" -" for-loop_297)" +" for-loop_299)" " null" -" lst_385)))))" +" lst_384)))))" "((temp174_0)" " #t)" "((frame-id175_0)" @@ -64849,7 +64860,7 @@ static const char *startup_source = " val-keyss_2" " val-rhss_3" " temp173_0))))))" -"(if(expand-context-to-parsed? ctx_82)" +"(if(expand-context-to-parsed? ctx_81)" " result-s_12" "(attach-disappeared-transformer-bindings" " result-s_12" @@ -64861,23 +64872,23 @@ static const char *startup_source = "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_387) val-idss_4)((lst_59) val-rhss_4))" +"(let-values(((lst_386) val-idss_4)((lst_59) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_387)))" +"(let-values()(check-list lst_386)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_59)))" -"((letrec-values(((for-loop_298)" -"(lambda(fold-var_348 lst_388 lst_389)" +"((letrec-values(((for-loop_300)" +"(lambda(fold-var_348 lst_387 lst_388)" "(begin" " 'for-loop" -"(if(if(pair? lst_388)(pair? lst_389) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_388))" -"((rest_228)(unsafe-cdr lst_388))" -"((val-rhs_11)(unsafe-car lst_389))" -"((rest_229)(unsafe-cdr lst_389)))" +"(if(if(pair? lst_387)(pair? lst_388) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_387))" +"((rest_227)(unsafe-cdr lst_387))" +"((val-rhs_11)(unsafe-car lst_388))" +"((rest_228)(unsafe-cdr lst_388)))" "(let-values(((fold-var_349)" "(let-values(((fold-var_350) fold-var_348))" "(let-values(((fold-var_351)" @@ -64890,12 +64901,12 @@ static const char *startup_source = " fold-var_350))))" "(values fold-var_351)))))" "(if(not #f)" -"(for-loop_298 fold-var_349 rest_228 rest_229)" +"(for-loop_300 fold-var_349 rest_227 rest_228)" " fold-var_349)))" " fold-var_348)))))" -" for-loop_298)" +" for-loop_300)" " null" -" lst_387" +" lst_386" " lst_59))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" @@ -64905,23 +64916,23 @@ static const char *startup_source = " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_62) trans-idss_3)((lst_390) trans-rhss_0))" +"(let-values(((lst_62) trans-idss_3)((lst_389) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_62)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_390)))" -"((letrec-values(((for-loop_299)" -"(lambda(fold-var_352 lst_391 lst_392)" +"(let-values()(check-list lst_389)))" +"((letrec-values(((for-loop_301)" +"(lambda(fold-var_352 lst_390 lst_391)" "(begin" " 'for-loop" -"(if(if(pair? lst_391)(pair? lst_392) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_391))" -"((rest_230)(unsafe-cdr lst_391))" -"((trans-rhs_5)(unsafe-car lst_392))" -"((rest_231)(unsafe-cdr lst_392)))" +"(if(if(pair? lst_390)(pair? lst_391) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_390))" +"((rest_229)(unsafe-cdr lst_390))" +"((trans-rhs_5)(unsafe-car lst_391))" +"((rest_230)(unsafe-cdr lst_391)))" "(let-values(((fold-var_122)" "(let-values(((fold-var_353) fold-var_352))" "(let-values(((fold-var_354)" @@ -64935,12 +64946,12 @@ static const char *startup_source = "(add-scope trans-rhs_5 sc_33))))" " fold-var_353))))" "(values fold-var_354)))))" -"(if(not #f)(for-loop_299 fold-var_122 rest_230 rest_231) fold-var_122)))" +"(if(not #f)(for-loop_301 fold-var_122 rest_229 rest_230) fold-var_122)))" " fold-var_352)))))" -" for-loop_299)" +" for-loop_301)" " null" " lst_62" -" lst_390))))" +" lst_389))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" @@ -64975,76 +64986,76 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_529 ctx_83)" +"(lambda(s_532 ctx_82)" "(let-values((()" "(begin" -"(let-values(((obs_97)(expand-context-observer ctx_83)))" +"(let-values(((obs_97)(expand-context-observer ctx_82)))" "(if obs_97" "(let-values()(let-values()(call-expand-observe obs_97 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_529)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_532)))" "(let-values(((ok?_39 #%stratified-body189_0 body190_0)" -"(let-values(((s_530) disarmed-s_9))" -"(let-values(((orig-s_46) s_530))" +"(let-values(((s_533) disarmed-s_9))" +"(let-values(((orig-s_47) s_533))" "(let-values(((#%stratified-body189_1 body190_1)" -"(let-values(((s_531)(if(syntax?$1 s_530)(syntax-e$1 s_530) s_530)))" -"(if(pair? s_531)" +"(let-values(((s_534)(if(syntax?$1 s_533)(syntax-e$1 s_533) s_533)))" +"(if(pair? s_534)" "(let-values(((#%stratified-body191_0)" -"(let-values(((s_532)(car s_531))) s_532))" +"(let-values(((s_535)(car s_534))) s_535))" "((body192_0)" -"(let-values(((s_533)(cdr s_531)))" -"(let-values(((s_534)" -"(if(syntax?$1 s_533)" -"(syntax-e$1 s_533)" -" s_533)))" -"(let-values(((flat-s_39)(to-syntax-list.1 s_534)))" +"(let-values(((s_536)(cdr s_534)))" +"(let-values(((s_537)" +"(if(syntax?$1 s_536)" +"(syntax-e$1 s_536)" +" s_536)))" +"(let-values(((flat-s_39)(to-syntax-list.1 s_537)))" "(if(not flat-s_39)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_46))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_47))" "(if(null? flat-s_39)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_46))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_47))" "(let-values() flat-s_39))))))))" "(values #%stratified-body191_0 body192_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_46)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_47)))))" "(values #t #%stratified-body189_1 body190_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((temp195_0) #t))(keep-as-needed74.1 #f #f temp195_0 #t #f #f ctx_83 s_529))))" +"(let-values(((temp195_0) #t))(keep-as-needed74.1 #f #f temp195_0 #t #f #f ctx_82 s_532))))" "(let-values(((exp-body_5)" "(let-values(((temp196_0) body190_0)" -"((ctx197_0) ctx_83)" +"((ctx197_0) ctx_82)" "((temp198_1) #t)" "((rebuild-s199_0) rebuild-s_7))" "(expand-body7.1 rebuild-s199_0 temp198_1 #t temp196_0 ctx197_0))))" -"(if(expand-context-to-parsed? ctx_83)" +"(if(expand-context-to-parsed? ctx_82)" "(parsed-begin12.1 rebuild-s_7 exp-body_5)" "(let-values(((rebuild-s200_0) rebuild-s_7)" "((temp201_1)" "(if(null?(cdr exp-body_5))" "(car exp-body_5)" -"(list*(core-id 'begin(expand-context-phase ctx_83)) exp-body_5))))" +"(list*(core-id 'begin(expand-context-phase ctx_82)) exp-body_5))))" "(rebuild5.1 #f #f rebuild-s200_0 temp201_1)))))))))))" "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_535 ctx_84)" +"(lambda(s_538 ctx_83)" "(let-values((()" "(begin" -"(let-values(((obs_98)(expand-context-observer ctx_84)))" +"(let-values(((obs_98)(expand-context-observer ctx_83)))" "(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_535)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_538)))" "(let-values(((ok?_40 #%datum202_0 datum203_0)" "(let-values(((s_192) disarmed-s_10))" -"(let-values(((orig-s_47) s_192))" +"(let-values(((orig-s_48) s_192))" "(let-values(((#%datum202_1 datum203_1)" -"(let-values(((s_536)(if(syntax?$1 s_192)(syntax-e$1 s_192) s_192)))" -"(if(pair? s_536)" -"(let-values(((#%datum204_0)(let-values(((s_537)(car s_536))) s_537))" -"((datum205_0)(let-values(((s_538)(cdr s_536))) s_538)))" +"(let-values(((s_539)(if(syntax?$1 s_192)(syntax-e$1 s_192) s_192)))" +"(if(pair? s_539)" +"(let-values(((#%datum204_0)(let-values(((s_540)(car s_539))) s_540))" +"((datum205_0)(let-values(((s_541)(cdr s_539))) s_541)))" "(values #%datum204_0 datum205_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_47)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" "(values #t #%datum202_1 datum203_1))))))" "(let-values(((datum_2) datum203_0))" "(let-values((()" @@ -65054,62 +65065,62 @@ static const char *startup_source = " (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))" "(void))" "(values))))" -"(let-values(((phase_148)(expand-context-phase ctx_84)))" -"(if(if(expand-context-to-parsed? ctx_84)(free-id-set-empty?(expand-context-stops ctx_84)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_535)(syntax->datum$1 datum_2))" -"(let-values(((s206_0) s_535)((temp207_0)(list(core-id 'quote phase_148) datum_2)))" +"(let-values(((phase_147)(expand-context-phase ctx_83)))" +"(if(if(expand-context-to-parsed? ctx_83)(free-id-set-empty?(expand-context-stops ctx_83)) #f)" +"(parsed-quote14.1(keep-properties-only~ s_538)(syntax->datum$1 datum_2))" +"(let-values(((s206_0) s_538)((temp207_0)(list(core-id 'quote phase_147) datum_2)))" "(rebuild5.1 #f #f s206_0 temp207_0))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_539 ctx_85)" +"(lambda(s_542 ctx_84)" "(let-values((()" "(begin" -"(let-values(((obs_99)(expand-context-observer ctx_85)))" +"(let-values(((obs_99)(expand-context-observer ctx_84)))" "(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_539)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_542)))" "(let-values(((ok?_41 #%app208_0 e209_0)" -"(let-values(((s_540) disarmed-s_11))" -"(let-values(((orig-s_48) s_540))" +"(let-values(((s_543) disarmed-s_11))" +"(let-values(((orig-s_49) s_543))" "(let-values(((#%app208_1 e209_1)" -"(let-values(((s_541)(if(syntax?$1 s_540)(syntax-e$1 s_540) s_540)))" -"(if(pair? s_541)" -"(let-values(((#%app210_0)(let-values(((s_542)(car s_541))) s_542))" +"(let-values(((s_544)(if(syntax?$1 s_543)(syntax-e$1 s_543) s_543)))" +"(if(pair? s_544)" +"(let-values(((#%app210_0)(let-values(((s_545)(car s_544))) s_545))" "((e211_0)" -"(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)))" +"(let-values(((s_546)(cdr s_544)))" +"(let-values(((s_547)" +"(if(syntax?$1 s_546)" +"(syntax-e$1 s_546)" +" s_546)))" +"(let-values(((flat-s_40)(to-syntax-list.1 s_547)))" "(if(not flat-s_40)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_49))" "(let-values() flat-s_40)))))))" "(values #%app210_0 e211_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" "(values #t #%app208_1 e209_1))))))" "(let-values(((es_3) e209_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_149)(expand-context-phase ctx_85)))" -"(if(expand-context-to-parsed? ctx_85)" -"(parsed-quote14.1(keep-properties-only~ s_539) null)" -"(let-values(((s212_0) s_539)((temp213_1)(list(core-id 'quote phase_149) null)))" +"(let-values(((phase_148)(expand-context-phase ctx_84)))" +"(if(expand-context-to-parsed? ctx_84)" +"(parsed-quote14.1(keep-properties-only~ s_542) null)" +"(let-values(((s212_0) s_542)((temp213_1)(list(core-id 'quote phase_148) null)))" "(rebuild5.1 #f #f s212_0 temp213_1)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" "(let-values(((keep-for-parsed?216_0) keep-for-parsed?_1))" -"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?216_0 #t ctx_85 s_539))))" +"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?216_0 #t ctx_84 s_542))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" "(let-values(((rebuild-prefixless_0)" "(if(syntax?$1 prefixless_0)" "(let-values(((keep-for-parsed?219_0) keep-for-parsed?_1))" -"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?219_0 #t ctx_85 prefixless_0))" +"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?219_0 #t ctx_84 prefixless_0))" " #f)))" -"(let-values(((expr-ctx_1)(as-expression-context ctx_85)))" +"(let-values(((expr-ctx_1)(as-expression-context ctx_84)))" "(let-values((()" "(begin" "(let-values(((obs_100)(expand-context-observer expr-ctx_1)))" @@ -65120,7 +65131,7 @@ static const char *startup_source = "(call-expand-observe" " obs_100" " 'enter-list" -"(datum->syntax$1 #f es_3 s_539))" +"(datum->syntax$1 #f es_3 s_542))" "(call-expand-observe obs_100 'next))))" "(void)))" "(values))))" @@ -65130,19 +65141,19 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp220_1 expr-ctx221_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_393) rest-es_0))" +"(let-values(((lst_392) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_393)))" -"((letrec-values(((for-loop_300)" -"(lambda(fold-var_56 lst_394)" +"(let-values()(check-list lst_392)))" +"((letrec-values(((for-loop_302)" +"(lambda(fold-var_56 lst_393)" "(begin" " 'for-loop" -"(if(pair? lst_394)" -"(let-values(((e_85)(unsafe-car lst_394))" -"((rest_232)" -"(unsafe-cdr lst_394)))" +"(if(pair? lst_393)" +"(let-values(((e_85)(unsafe-car lst_393))" +"((rest_231)" +"(unsafe-cdr lst_393)))" "(let-values(((fold-var_355)" "(let-values(((fold-var_356)" " fold-var_56))" @@ -65176,17 +65187,17 @@ static const char *startup_source = "(values" " fold-var_357)))))" "(if(not #f)" -"(for-loop_300 fold-var_355 rest_232)" +"(for-loop_302 fold-var_355 rest_231)" " fold-var_355)))" " fold-var_56)))))" -" for-loop_300)" +" for-loop_302)" " null" -" lst_393))))))" -"(if(expand-context-to-parsed? ctx_85)" +" lst_392))))))" +"(if(expand-context-to-parsed? ctx_84)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_380) rebuild-prefixless_0))" -"(if or-part_380 or-part_380 rebuild-s_8))" +"(let-values(((or-part_378) rebuild-prefixless_0))" +"(if or-part_378 or-part_378 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -65213,80 +65224,80 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_545 ctx_86)" +"(lambda(s_548 ctx_85)" "(let-values((()" "(begin" -"(let-values(((obs_103)(expand-context-observer ctx_86)))" +"(let-values(((obs_103)(expand-context-observer ctx_85)))" "(if obs_103(let-values()(let-values()(call-expand-observe obs_103 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_42 quote228_0 datum229_0)" -"(let-values(((s_546)(syntax-disarm$1 s_545)))" -"(let-values(((orig-s_49) s_546))" +"(let-values(((s_549)(syntax-disarm$1 s_548)))" +"(let-values(((orig-s_50) s_549))" "(let-values(((quote228_1 datum229_1)" -"(let-values(((s_547)(if(syntax?$1 s_546)(syntax-e$1 s_546) s_546)))" -"(if(pair? s_547)" -"(let-values(((quote230_0)(let-values(((s_548)(car s_547))) s_548))" -"((datum231_0)" -"(let-values(((s_549)(cdr s_547)))" -"(let-values(((s_550)" -"(if(syntax?$1 s_549)" -"(syntax-e$1 s_549)" -" s_549)))" +"(let-values(((s_550)(if(syntax?$1 s_549)(syntax-e$1 s_549) s_549)))" "(if(pair? s_550)" -"(let-values(((datum232_0)" -"(let-values(((s_551)(car s_550))) s_551))" -"(()" +"(let-values(((quote230_0)(let-values(((s_551)(car s_550))) s_551))" +"((datum231_0)" "(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)" +"(if(pair? s_553)" +"(let-values(((datum232_0)" +"(let-values(((s_554)(car s_553))) s_554))" +"(()" +"(let-values(((s_555)(cdr s_553)))" +"(let-values(((s_556)" +"(if(syntax?$1 s_555)" +"(syntax-e$1 s_555)" +" s_555)))" +"(if(null? s_556)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_49))))))" +" orig-s_50))))))" "(values datum232_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_49))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_50))))))" "(values quote230_0 datum231_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))" "(values #t quote228_1 datum229_1))))))" -"(if(expand-context-to-parsed? ctx_86)" -"(parsed-quote14.1(keep-properties-only~ s_545)(syntax->datum$1 datum229_0))" -" s_545))))))" +"(if(expand-context-to-parsed? ctx_85)" +"(parsed-quote14.1(keep-properties-only~ s_548)(syntax->datum$1 datum229_0))" +" s_548))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_554 ctx_87)" +"(lambda(s_557 ctx_86)" "(let-values((()" "(begin" -"(let-values(((obs_104)(expand-context-observer ctx_87)))" +"(let-values(((obs_104)(expand-context-observer ctx_86)))" "(if obs_104" "(let-values()(let-values()(call-expand-observe obs_104 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_554)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_557)))" "(let-values(((ok?_43 quote-syntax233_0 datum234_0)" -"(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)))" +"(let-values(((s_558) disarmed-s_12))" +"(if(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)))" -"(null? s_566)))" +"(if(let-values(((s_563)(car s_562))) #t)" +"(let-values(((s_564)(cdr s_562)))" +"(let-values(((s_565)(if(syntax?$1 s_564)(syntax-e$1 s_564) s_564)))" +"(if(pair? s_565)" +"(if(let-values(((s_566)(car s_565)))" +"(let-values(((s_567)" +"(if(syntax?$1 s_566)(syntax-e$1 s_566) s_566)))" +"(eq? '#:local s_567)))" +"(let-values(((s_568)(cdr s_565)))" +"(let-values(((s_569)" +"(if(syntax?$1 s_568)(syntax-e$1 s_568) s_568)))" +"(null? s_569)))" " #f)" " #f)))" " #f)" @@ -65295,44 +65306,44 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax233_1 datum234_1)" -"(let-values(((s_567)(if(syntax?$1 s_555)(syntax-e$1 s_555) s_555)))" +"(let-values(((s_570)(if(syntax?$1 s_558)(syntax-e$1 s_558) s_558)))" "(let-values(((quote-syntax235_0)" -"(let-values(((s_568)(car s_567))) s_568))" -"((datum236_0)" -"(let-values(((s_569)(cdr s_567)))" -"(let-values(((s_570)" -"(if(syntax?$1 s_569)" -"(syntax-e$1 s_569)" -" s_569)))" -"(let-values(((datum237_0)" "(let-values(((s_571)(car s_570))) s_571))" -"(()" +"((datum236_0)" "(let-values(((s_572)(cdr s_570)))" "(let-values(((s_573)" "(if(syntax?$1 s_572)" "(syntax-e$1 s_572)" " s_572)))" +"(let-values(((datum237_0)" +"(let-values(((s_574)(car s_573))) s_574))" +"(()" +"(let-values(((s_575)(cdr s_573)))" +"(let-values(((s_576)" +"(if(syntax?$1 s_575)" +"(syntax-e$1 s_575)" +" s_575)))" "(let-values((()" -"(let-values(((s_574)" +"(let-values(((s_577)" "(car" -" s_573)))" -"(let-values(((s_575)" +" s_576)))" +"(let-values(((s_578)" "(if(syntax?$1" -" s_574)" +" s_577)" "(syntax-e$1" -" s_574)" -" s_574)))" +" s_577)" +" s_577)))" "(values))))" "(()" -"(let-values(((s_576)" +"(let-values(((s_579)" "(cdr" -" s_573)))" -"(let-values(((s_577)" -"(if(syntax?$1" -" s_576)" -"(syntax-e$1" -" s_576)" " s_576)))" +"(let-values(((s_580)" +"(if(syntax?$1" +" s_579)" +"(syntax-e$1" +" s_579)" +" s_579)))" "(values)))))" "(values))))))" "(values datum237_0))))))" @@ -65340,54 +65351,54 @@ static const char *startup_source = "(values #t quote-syntax233_1 datum234_1)))" "(values #f #f #f)))))" "(let-values(((ok?_44 quote-syntax238_0 datum239_0)" -"(let-values(((s_578) disarmed-s_12))" +"(let-values(((s_581) disarmed-s_12))" "(if(if(not ok?_43) #t #f)" -"(let-values(((orig-s_50) s_578))" +"(let-values(((orig-s_51) s_581))" "(let-values(((quote-syntax238_1 datum239_1)" -"(let-values(((s_579)(if(syntax?$1 s_578)(syntax-e$1 s_578) s_578)))" -"(if(pair? s_579)" -"(let-values(((quote-syntax240_0)" -"(let-values(((s_580)(car s_579))) s_580))" -"((datum241_0)" -"(let-values(((s_581)(cdr s_579)))" -"(let-values(((s_582)" -"(if(syntax?$1 s_581)" -"(syntax-e$1 s_581)" -" s_581)))" +"(let-values(((s_582)(if(syntax?$1 s_581)(syntax-e$1 s_581) s_581)))" "(if(pair? s_582)" -"(let-values(((datum242_0)" -"(let-values(((s_583)(car s_582)))" -" s_583))" -"(()" +"(let-values(((quote-syntax240_0)" +"(let-values(((s_583)(car s_582))) s_583))" +"((datum241_0)" "(let-values(((s_584)(cdr s_582)))" "(let-values(((s_585)" "(if(syntax?$1 s_584)" "(syntax-e$1 s_584)" " s_584)))" -"(if(null? s_585)" +"(if(pair? s_585)" +"(let-values(((datum242_0)" +"(let-values(((s_586)(car s_585)))" +" s_586))" +"(()" +"(let-values(((s_587)(cdr s_585)))" +"(let-values(((s_588)" +"(if(syntax?$1 s_587)" +"(syntax-e$1 s_587)" +" s_587)))" +"(if(null? s_588)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_50))))))" +" orig-s_51))))))" "(values datum242_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_50))))))" +" orig-s_51))))))" "(values quote-syntax240_0 datum241_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))" "(values #t quote-syntax238_1 datum239_1)))" "(values #f #f #f)))))" "(if ok?_43" "(let-values()" "(let-values((()" "(begin" -"(reference-records-all-used!(expand-context-reference-records ctx_87))" +"(reference-records-all-used!(expand-context-reference-records ctx_86))" "(values))))" "(let-values(((ok?_45 _243_0 _244_0 kw245_0)" "(let-values(((s_272) disarmed-s_12))" -"(let-values(((orig-s_51) s_272))" +"(let-values(((orig-s_52) s_272))" "(let-values(((_243_1 _244_1 kw245_1)" "(let-values(((s_274)" "(if(syntax?$1 s_272)(syntax-e$1 s_272) s_272)))" @@ -65402,90 +65413,90 @@ static const char *startup_source = " s_277)))" "(if(pair? s_278)" "(let-values(((_249_0)" -"(let-values(((s_586)" -"(car s_278)))" -" s_586))" -"((kw250_0)" -"(let-values(((s_587)" -"(cdr s_278)))" -"(let-values(((s_588)" -"(if(syntax?$1" -" s_587)" -"(syntax-e$1" -" s_587)" -" s_587)))" -"(if(pair? s_588)" -"(let-values(((kw251_0)" "(let-values(((s_589)" -"(car" -" s_588)))" +"(car s_278)))" " s_589))" -"(()" +"((kw250_0)" "(let-values(((s_590)" -"(cdr" -" s_588)))" +"(cdr s_278)))" "(let-values(((s_591)" "(if(syntax?$1" " s_590)" "(syntax-e$1" " s_590)" " s_590)))" +"(if(pair? s_591)" +"(let-values(((kw251_0)" +"(let-values(((s_592)" +"(car" +" s_591)))" +" s_592))" +"(()" +"(let-values(((s_593)" +"(cdr" +" s_591)))" +"(let-values(((s_594)" +"(if(syntax?$1" +" s_593)" +"(syntax-e$1" +" s_593)" +" s_593)))" "(if(null?" -" s_591)" +" s_594)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_51))))))" +" orig-s_52))))))" "(values kw251_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_51))))))" +" orig-s_52))))))" "(values _249_0 kw250_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_51))))))" +" orig-s_52))))))" "(values _246_0 _247_0 kw248_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))" "(values #t _243_1 _244_1 kw245_1))))))" -"(if(expand-context-to-parsed? ctx_87)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_554) datum234_0)" -"(let-values(((s252_0) s_554)((temp253_1)(list quote-syntax233_0 datum234_0 kw245_0)))" +"(if(expand-context-to-parsed? ctx_86)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_557) datum234_0)" +"(let-values(((s252_0) s_557)((temp253_1)(list quote-syntax233_0 datum234_0 kw245_0)))" "(rebuild5.1 #f #f s252_0 temp253_1))))))" "(let-values()" -"(let-values(((datum-s_0)(remove-scopes datum239_0(expand-context-scopes ctx_87))))" -"(if(if(expand-context-to-parsed? ctx_87)(free-id-set-empty?(expand-context-stops ctx_87)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_554) datum-s_0)" -"(let-values(((s254_0) s_554)((temp255_0)(list quote-syntax238_0 datum-s_0)))" +"(let-values(((datum-s_0)(remove-scopes datum239_0(expand-context-scopes ctx_86))))" +"(if(if(expand-context-to-parsed? ctx_86)(free-id-set-empty?(expand-context-stops ctx_86)) #f)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_557) datum-s_0)" +"(let-values(((s254_0) s_557)((temp255_0)(list quote-syntax238_0 datum-s_0)))" "(rebuild5.1 #f #f s254_0 temp255_0)))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_279 ctx_88)" +"(lambda(s_279 ctx_87)" "(let-values((()" "(begin" -"(let-values(((obs_105)(expand-context-observer ctx_88)))" +"(let-values(((obs_105)(expand-context-observer ctx_87)))" "(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_279)))" "(let-values(((ok?_46 _256_0 _257_0 _258_0)" -"(let-values(((s_592) disarmed-s_13))" -"(if(let-values(((s_593)(if(syntax?$1 s_592)(syntax-e$1 s_592) s_592)))" -"(if(pair? s_593)" -"(if(let-values(((s_594)(car s_593))) #t)" -"(let-values(((s_289)(cdr s_593)))" -"(let-values(((s_595)(if(syntax?$1 s_289)(syntax-e$1 s_289) s_289)))" -"(if(pair? s_595)" -"(if(let-values(((s_596)(car s_595))) #t)" -"(let-values(((s_597)(cdr s_595)))" -"(let-values(((s_290)(if(syntax?$1 s_597)(syntax-e$1 s_597) s_597)))" +"(let-values(((s_595) disarmed-s_13))" +"(if(let-values(((s_596)(if(syntax?$1 s_595)(syntax-e$1 s_595) s_595)))" +"(if(pair? s_596)" +"(if(let-values(((s_597)(car s_596))) #t)" +"(let-values(((s_289)(cdr s_596)))" +"(let-values(((s_598)(if(syntax?$1 s_289)(syntax-e$1 s_289) s_289)))" +"(if(pair? s_598)" +"(if(let-values(((s_599)(car s_598))) #t)" +"(let-values(((s_600)(cdr s_598)))" +"(let-values(((s_290)(if(syntax?$1 s_600)(syntax-e$1 s_600) s_600)))" "(if(pair? s_290)" -"(if(let-values(((s_598)(car s_290))) #t)" -"(let-values(((s_599)(cdr s_290)))" +"(if(let-values(((s_601)(car s_290))) #t)" +"(let-values(((s_602)(cdr s_290)))" "(let-values(((s_291)" -"(if(syntax?$1 s_599)(syntax-e$1 s_599) s_599)))" +"(if(syntax?$1 s_602)(syntax-e$1 s_602) s_602)))" "(null? s_291)))" " #f)" " #f)))" @@ -65495,37 +65506,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_256_1 _257_1 _258_1)" -"(let-values(((s_600)(if(syntax?$1 s_592)(syntax-e$1 s_592) s_592)))" -"(let-values(((_259_0)(let-values(((s_601)(car s_600))) s_601))" +"(let-values(((s_603)(if(syntax?$1 s_595)(syntax-e$1 s_595) s_595)))" +"(let-values(((_259_0)(let-values(((s_604)(car s_603))) s_604))" "((_260_0 _261_0)" -"(let-values(((s_602)(cdr s_600)))" -"(let-values(((s_603)" -"(if(syntax?$1 s_602)" -"(syntax-e$1 s_602)" -" s_602)))" -"(let-values(((_262_0)" -"(let-values(((s_604)(car s_603))) s_604))" -"((_263_0)" "(let-values(((s_605)(cdr s_603)))" "(let-values(((s_606)" "(if(syntax?$1 s_605)" "(syntax-e$1 s_605)" " s_605)))" +"(let-values(((_262_0)" +"(let-values(((s_607)(car s_606))) s_607))" +"((_263_0)" +"(let-values(((s_608)(cdr s_606)))" +"(let-values(((s_609)" +"(if(syntax?$1 s_608)" +"(syntax-e$1 s_608)" +" s_608)))" "(let-values(((_264_0)" -"(let-values(((s_607)" +"(let-values(((s_610)" "(car" -" s_606)))" -" s_607))" +" s_609)))" +" s_610))" "(()" -"(let-values(((s_608)" +"(let-values(((s_611)" "(cdr" -" s_606)))" +" s_609)))" "(let-values(((s_294)" "(if(syntax?$1" -" s_608)" +" s_611)" "(syntax-e$1" -" s_608)" -" s_608)))" +" s_611)" +" s_611)))" "(values)))))" "(values _264_0))))))" "(values _262_0 _263_0))))))" @@ -65539,52 +65550,35 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((ok?_47 if265_0 tst266_0 thn267_0 els268_0)" -"(let-values(((s_609) disarmed-s_13))" -"(let-values(((orig-s_52) s_609))" +"(let-values(((s_612) disarmed-s_13))" +"(let-values(((orig-s_53) s_612))" "(let-values(((if265_1 tst266_1 thn267_1 els268_1)" -"(let-values(((s_610)(if(syntax?$1 s_609)(syntax-e$1 s_609) s_609)))" -"(if(pair? s_610)" -"(let-values(((if269_0)(let-values(((s_611)(car s_610))) s_611))" +"(let-values(((s_613)(if(syntax?$1 s_612)(syntax-e$1 s_612) s_612)))" +"(if(pair? s_613)" +"(let-values(((if269_0)(let-values(((s_614)(car s_613))) s_614))" "((tst270_0 thn271_0 els272_0)" -"(let-values(((s_612)(cdr s_610)))" +"(let-values(((s_615)(cdr s_613)))" "(let-values(((s_299)" -"(if(syntax?$1 s_612)" -"(syntax-e$1 s_612)" -" s_612)))" +"(if(syntax?$1 s_615)" +"(syntax-e$1 s_615)" +" s_615)))" "(if(pair? s_299)" "(let-values(((tst273_0)" -"(let-values(((s_613)(car s_299)))" -" s_613))" -"((thn274_0 els275_0)" -"(let-values(((s_614)(cdr s_299)))" -"(let-values(((s_615)" -"(if(syntax?$1 s_614)" -"(syntax-e$1 s_614)" -" s_614)))" -"(if(pair? s_615)" -"(let-values(((thn276_0)" -"(let-values(((s_616)" -"(car" -" s_615)))" +"(let-values(((s_616)(car s_299)))" " s_616))" -"((els277_0)" -"(let-values(((s_617)" -"(cdr" -" s_615)))" +"((thn274_0 els275_0)" +"(let-values(((s_617)(cdr s_299)))" "(let-values(((s_618)" -"(if(syntax?$1" -" s_617)" -"(syntax-e$1" -" s_617)" +"(if(syntax?$1 s_617)" +"(syntax-e$1 s_617)" " s_617)))" -"(if(pair?" -" s_618)" -"(let-values(((els278_0)" +"(if(pair? s_618)" +"(let-values(((thn276_0)" "(let-values(((s_619)" "(car" " s_618)))" " s_619))" -"(()" +"((els277_0)" "(let-values(((s_620)" "(cdr" " s_618)))" @@ -65594,44 +65588,61 @@ static const char *startup_source = "(syntax-e$1" " s_620)" " s_620)))" -"(if(null?" +"(if(pair?" " s_621)" +"(let-values(((els278_0)" +"(let-values(((s_622)" +"(car" +" s_621)))" +" s_622))" +"(()" +"(let-values(((s_623)" +"(cdr" +" s_621)))" +"(let-values(((s_624)" +"(if(syntax?$1" +" s_623)" +"(syntax-e$1" +" s_623)" +" s_623)))" +"(if(null?" +" s_624)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_52))))))" +" orig-s_53))))))" "(values" " els278_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_52))))))" +" orig-s_53))))))" "(values thn276_0 els277_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_52))))))" +" orig-s_53))))))" "(values tst273_0 thn274_0 els275_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_52))))))" +" orig-s_53))))))" "(values if269_0 tst270_0 thn271_0 els272_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" "(values #t if265_1 tst266_1 thn267_1 els268_1))))))" -"(let-values(((expr-ctx_2)(as-expression-context ctx_88)))" +"(let-values(((expr-ctx_2)(as-expression-context ctx_87)))" "(let-values(((tail-ctx_0)" -"(let-values(((ctx280_0) ctx_88))(as-tail-context23.1 ctx280_0 expr-ctx_2))))" +"(let-values(((ctx280_0) ctx_87))(as-tail-context23.1 ctx280_0 expr-ctx_2))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx281_0) ctx_88)((s282_0) s_279))" +"(let-values(((ctx281_0) ctx_87)((s282_0) s_279))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx281_0 s282_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp283_0) tst266_0)((expr-ctx284_0) expr-ctx_2))" "(expand7.1 #f #f #f #f temp283_0 expr-ctx284_0))))" "(let-values((()" "(begin" -"(let-values(((obs_106)(expand-context-observer ctx_88)))" +"(let-values(((obs_106)(expand-context-observer ctx_87)))" "(if obs_106" "(let-values()(let-values()(call-expand-observe obs_106 'next)))" "(void)))" @@ -65641,7 +65652,7 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp285_0 tail-ctx286_0))))" "(let-values((()" "(begin" -"(let-values(((obs_107)(expand-context-observer ctx_88)))" +"(let-values(((obs_107)(expand-context-observer ctx_87)))" "(if obs_107" "(let-values()(let-values()(call-expand-observe obs_107 'next)))" "(void)))" @@ -65649,7 +65660,7 @@ static const char *startup_source = "(let-values(((exp-els_0)" "(let-values(((temp287_0) els268_0)((tail-ctx288_0) tail-ctx_0))" "(expand7.1 #f #f #f #f temp287_0 tail-ctx288_0))))" -"(if(expand-context-to-parsed? ctx_88)" +"(if(expand-context-to-parsed? ctx_87)" "(parsed-if8.1 rebuild-s_9 exp-tst_0 exp-thn_0 exp-els_0)" "(let-values(((rebuild-s289_0) rebuild-s_9)" "((temp290_0)(list if265_0 exp-tst_0 exp-thn_0 exp-els_0)))" @@ -65657,62 +65668,46 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_622 ctx_89)" +"(lambda(s_625 ctx_88)" "(let-values((()" "(begin" -"(let-values(((obs_108)(expand-context-observer ctx_89)))" +"(let-values(((obs_108)(expand-context-observer ctx_88)))" "(if obs_108" "(let-values()(let-values()(call-expand-observe obs_108 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_622)))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_625)))" "(let-values(((ok?_48 with-continuation-mark291_0 key292_0 val293_0 body294_0)" -"(let-values(((s_623) disarmed-s_14))" -"(let-values(((orig-s_53) s_623))" +"(let-values(((s_626) disarmed-s_14))" +"(let-values(((orig-s_54) s_626))" "(let-values(((with-continuation-mark291_1 key292_1 val293_1 body294_1)" -"(let-values(((s_624)(if(syntax?$1 s_623)(syntax-e$1 s_623) s_623)))" -"(if(pair? s_624)" -"(let-values(((with-continuation-mark295_0)" -"(let-values(((s_625)(car s_624))) s_625))" -"((key296_0 val297_0 body298_0)" -"(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_627)(if(syntax?$1 s_626)(syntax-e$1 s_626) s_626)))" "(if(pair? s_627)" -"(let-values(((key299_0)" -"(let-values(((s_628)(car s_627)))" -" s_628))" -"((val300_0 body301_0)" +"(let-values(((with-continuation-mark295_0)" +"(let-values(((s_628)(car s_627))) s_628))" +"((key296_0 val297_0 body298_0)" "(let-values(((s_629)(cdr s_627)))" "(let-values(((s_630)" "(if(syntax?$1 s_629)" "(syntax-e$1 s_629)" " s_629)))" "(if(pair? s_630)" -"(let-values(((val302_0)" -"(let-values(((s_631)" -"(car" -" s_630)))" +"(let-values(((key299_0)" +"(let-values(((s_631)(car s_630)))" " s_631))" -"((body303_0)" -"(let-values(((s_632)" -"(cdr" -" s_630)))" +"((val300_0 body301_0)" +"(let-values(((s_632)(cdr s_630)))" "(let-values(((s_633)" -"(if(syntax?$1" -" s_632)" -"(syntax-e$1" -" s_632)" +"(if(syntax?$1 s_632)" +"(syntax-e$1 s_632)" " s_632)))" "(if(pair? s_633)" -"(let-values(((body304_0)" +"(let-values(((val302_0)" "(let-values(((s_634)" "(car" " s_633)))" " s_634))" -"(()" +"((body303_0)" "(let-values(((s_635)" "(cdr" " s_633)))" @@ -65722,39 +65717,55 @@ static const char *startup_source = "(syntax-e$1" " s_635)" " s_635)))" +"(if(pair? s_636)" +"(let-values(((body304_0)" +"(let-values(((s_637)" +"(car" +" s_636)))" +" s_637))" +"(()" +"(let-values(((s_638)" +"(cdr" +" s_636)))" +"(let-values(((s_639)" +"(if(syntax?$1" +" s_638)" +"(syntax-e$1" +" s_638)" +" s_638)))" "(if(null?" -" s_636)" +" s_639)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_53))))))" +" orig-s_54))))))" "(values" " body304_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_53))))))" +" orig-s_54))))))" "(values val302_0 body303_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_53))))))" +" orig-s_54))))))" "(values key299_0 val300_0 body301_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_53))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_54))))))" "(values with-continuation-mark295_0 key296_0 val297_0 body298_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" "(values #t with-continuation-mark291_1 key292_1 val293_1 body294_1))))))" -"(let-values(((expr-ctx_3)(as-expression-context ctx_89)))" +"(let-values(((expr-ctx_3)(as-expression-context ctx_88)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx305_0) ctx_89)((s306_0) s_622))" +"(let-values(((ctx305_0) ctx_88)((s306_0) s_625))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx305_0 s306_0))))" "(let-values(((exp-key_0)" "(let-values(((temp307_0) key292_0)((expr-ctx308_0) expr-ctx_3))" "(expand7.1 #f #f #f #f temp307_0 expr-ctx308_0))))" "(let-values((()" "(begin" -"(let-values(((obs_109)(expand-context-observer ctx_89)))" +"(let-values(((obs_109)(expand-context-observer ctx_88)))" "(if obs_109" "(let-values()(let-values()(call-expand-observe obs_109 'next)))" "(void)))" @@ -65764,7 +65775,7 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp309_0 expr-ctx310_0))))" "(let-values((()" "(begin" -"(let-values(((obs_110)(expand-context-observer ctx_89)))" +"(let-values(((obs_110)(expand-context-observer ctx_88)))" "(if obs_110" "(let-values()(let-values()(call-expand-observe obs_110 'next)))" "(void)))" @@ -65772,10 +65783,10 @@ static const char *startup_source = "(let-values(((exp-body_6)" "(let-values(((temp311_0) body294_0)" "((temp312_0)" -"(let-values(((ctx314_0) ctx_89))" +"(let-values(((ctx314_0) ctx_88))" "(as-tail-context23.1 ctx314_0 expr-ctx_3))))" "(expand7.1 #f #f #f #f temp311_0 temp312_0))))" -"(if(expand-context-to-parsed? ctx_89)" +"(if(expand-context-to-parsed? ctx_88)" "(parsed-with-continuation-mark10.1 rebuild-s_10 exp-key_0 exp-val_0 exp-body_6)" "(let-values(((rebuild-s315_0) rebuild-s_10)" "((temp316_0)(list with-continuation-mark291_0 exp-key_0 exp-val_0 exp-body_6)))" @@ -65790,54 +65801,54 @@ 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_637 ctx_90)" +"(lambda(s_640 ctx_89)" "(let-values((()" "(begin" -"(let-values(((obs_111)(expand-context-observer ctx_90)))" +"(let-values(((obs_111)(expand-context-observer ctx_89)))" "(if obs_111" "(let-values()(let-values()(call-expand-observe obs_111 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_637)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_640)))" "(let-values(((ok?_49 begin317_0 e318_0)" -"(let-values(((s_638) disarmed-s_15))" -"(let-values(((orig-s_54) s_638))" +"(let-values(((s_641) disarmed-s_15))" +"(let-values(((orig-s_55) s_641))" "(let-values(((begin317_1 e318_1)" -"(let-values(((s_639)" -"(if(syntax?$1 s_638)(syntax-e$1 s_638) s_638)))" -"(if(pair? s_639)" -"(let-values(((begin319_0)" -"(let-values(((s_640)(car s_639))) s_640))" -"((e320_0)" -"(let-values(((s_641)(cdr s_639)))" "(let-values(((s_642)" -"(if(syntax?$1 s_641)" -"(syntax-e$1 s_641)" -" s_641)))" +"(if(syntax?$1 s_641)(syntax-e$1 s_641) s_641)))" +"(if(pair? s_642)" +"(let-values(((begin319_0)" +"(let-values(((s_643)(car s_642))) s_643))" +"((e320_0)" +"(let-values(((s_644)(cdr s_642)))" +"(let-values(((s_645)" +"(if(syntax?$1 s_644)" +"(syntax-e$1 s_644)" +" s_644)))" "(let-values(((flat-s_41)" -"(to-syntax-list.1 s_642)))" +"(to-syntax-list.1 s_645)))" "(if(not flat-s_41)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_54))" +" orig-s_55))" "(if(null? flat-s_41)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_54))" +" orig-s_55))" "(let-values() flat-s_41))))))))" "(values begin319_0 e320_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_55)))))" "(values #t begin317_1 e318_1))))))" "(let-values(((expr-ctx_4)" "(if last-is-tail?_0" -"(as-begin-expression-context ctx_90)" -"(as-expression-context ctx_90))))" +"(as-begin-expression-context ctx_89)" +"(as-expression-context ctx_89))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx321_0) ctx_90)((s322_0) s_637))" +"(let-values(((ctx321_0) ctx_89)((s322_0) s_640))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx321_0 s322_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_130)" @@ -65848,7 +65859,7 @@ static const char *startup_source = "(if(zero? index_6)" "(let-values()" "(let-values(((obs_112)" -"(expand-context-observer ctx_90)))" +"(expand-context-observer ctx_89)))" "(if obs_112" "(let-values()" "(begin" @@ -65869,7 +65880,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_113)" "(expand-context-observer" -" ctx_90)))" +" ctx_89)))" "(if obs_113" "(let-values()" "(let-values()" @@ -65882,7 +65893,7 @@ static const char *startup_source = "(null? rest-es_1)" " #f)" "(let-values(((ctx326_0)" -" ctx_90))" +" ctx_89))" "(as-tail-context23.1" " ctx326_0" " expr-ctx_4))" @@ -65899,7 +65910,7 @@ static const char *startup_source = " e318_0" " list-start-index_0)))" "(begin" -"(let-values(((obs_114)(expand-context-observer ctx_90)))" +"(let-values(((obs_114)(expand-context-observer ctx_89)))" "(if obs_114" "(let-values()" "(let-values()" @@ -65908,7 +65919,7 @@ static const char *startup_source = " 'exit-list" "(datum->syntax$1 #f(list-tail exp-es_2 list-start-index_0) rebuild-s_11))))" "(void)))" -"(if(expand-context-to-parsed? ctx_90)" +"(if(expand-context-to-parsed? ctx_89)" "(parsed-begin_0 rebuild-s_11 exp-es_2)" "(let-values(((rebuild-s327_0) rebuild-s_11)((temp328_0)(cons begin317_0 exp-es_2)))" "(rebuild5.1 #f #f rebuild-s327_0 temp328_0)))))))))))))))))))" @@ -65921,39 +65932,39 @@ static const char *startup_source = "((temp331_0) 0)" "((temp332_1) #t))" "(make-begin20.1 temp332_1 temp331_0 temp329_0 parsed-begin330_0))))" -"(lambda(s_643 ctx_91)" -"(let-values(((context_24)(expand-context-context ctx_91)))" -"(if(let-values(((or-part_381)(eq? context_24 'top-level)))" -"(if or-part_381 or-part_381(eq? context_24 'module)))" +"(lambda(s_646 ctx_90)" +"(let-values(((context_24)(expand-context-context ctx_90)))" +"(if(let-values(((or-part_379)(eq? context_24 'top-level)))" +"(if or-part_379 or-part_379(eq? context_24 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_643)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_646)))" "(let-values(((ok?_50 begin333_0)" -"(let-values(((s_644) disarmed-s_16))" -"(if(let-values(((s_645)(if(syntax?$1 s_644)(syntax-e$1 s_644) s_644)))" -"(if(pair? s_645)" -"(if(let-values(((s_646)(car s_645))) #t)" -"(let-values(((s_647)(cdr s_645)))" -"(let-values(((s_648)(if(syntax?$1 s_647)(syntax-e$1 s_647) s_647)))" -"(null? s_648)))" +"(let-values(((s_647) disarmed-s_16))" +"(if(let-values(((s_648)(if(syntax?$1 s_647)(syntax-e$1 s_647) s_647)))" +"(if(pair? s_648)" +"(if(let-values(((s_649)(car s_648))) #t)" +"(let-values(((s_650)(cdr s_648)))" +"(let-values(((s_651)(if(syntax?$1 s_650)(syntax-e$1 s_650) s_650)))" +"(null? s_651)))" " #f)" " #f))" "(let-values()" "(let-values(((begin333_1)" -"(let-values(((s_649)(if(syntax?$1 s_644)(syntax-e$1 s_644) s_644)))" +"(let-values(((s_652)(if(syntax?$1 s_647)(syntax-e$1 s_647) s_647)))" "(let-values(((begin334_0)" -"(let-values(((s_650)(car s_649))) s_650))" +"(let-values(((s_653)(car s_652))) s_653))" "(()" -"(let-values(((s_651)(cdr s_649)))" -"(let-values(((s_652)" -"(if(syntax?$1 s_651)" -"(syntax-e$1 s_651)" -" s_651)))" +"(let-values(((s_654)(cdr s_652)))" +"(let-values(((s_655)" +"(if(syntax?$1 s_654)" +"(syntax-e$1 s_654)" +" s_654)))" "(values)))))" "(values begin334_0)))))" "(values #t begin333_1)))" "(values #f #f)))))" -"(if ok?_50 s_643(nonempty-begin_0 s_643 ctx_91)))))" -"(let-values()(nonempty-begin_0 s_643 ctx_91))))))))" +"(if ok?_50 s_646(nonempty-begin_0 s_646 ctx_90)))))" +"(let-values()(nonempty-begin_0 s_646 ctx_90))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -65961,14 +65972,14 @@ static const char *startup_source = "(make-begin20.1 temp338_0 temp337_0 temp335_0 parsed-begin0336_0))))" "(define-values" "(register-eventual-variable!?)" -"(lambda(id_119 ctx_92)" +"(lambda(id_119 ctx_91)" "(begin" -"(if(if(expand-context-need-eventually-defined ctx_92)(>=(expand-context-phase ctx_92) 1) #f)" +"(if(if(expand-context-need-eventually-defined ctx_91)(>=(expand-context-phase ctx_91) 1) #f)" "(let-values()" "(begin" "(hash-update!" -"(expand-context-need-eventually-defined ctx_92)" -"(expand-context-phase ctx_92)" +"(expand-context-need-eventually-defined ctx_91)" +"(expand-context-phase ctx_91)" "(lambda(l_83)(cons id_119 l_83))" " null)" " #t))" @@ -65980,67 +65991,67 @@ static const char *startup_source = "(lambda(s341_0 ctx342_0 implicit-omitted?339_0 implicit-omitted?340_0)" "(begin" " 'core343" -"(let-values(((s_653) s341_0))" -"(let-values(((ctx_93) ctx342_0))" +"(let-values(((s_656) s341_0))" +"(let-values(((ctx_92) ctx342_0))" "(let-values(((implicit-omitted?_0)(if implicit-omitted?340_0 implicit-omitted?339_0 #f)))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_115)(expand-context-observer ctx_93)))" +"(let-values(((obs_115)(expand-context-observer ctx_92)))" "(if obs_115" "(let-values()" "(let-values()(call-expand-observe obs_115 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_653)))" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_656)))" "(let-values(((id_120)" "(if implicit-omitted?_0" -"(let-values() s_653)" +"(let-values() s_656)" "(let-values()" "(let-values(((ok?_51 #%top345_0 id346_0)" -"(let-values(((s_654) disarmed-s_17))" -"(let-values(((orig-s_55) s_654))" +"(let-values(((s_657) disarmed-s_17))" +"(let-values(((orig-s_56) s_657))" "(let-values(((#%top345_1 id346_1)" -"(let-values(((s_655)" -"(if(syntax?$1 s_654)" -"(syntax-e$1 s_654)" -" s_654)))" -"(if(pair? s_655)" +"(let-values(((s_658)" +"(if(syntax?$1 s_657)" +"(syntax-e$1 s_657)" +" s_657)))" +"(if(pair? s_658)" "(let-values(((#%top347_0)" -"(let-values(((s_656)" +"(let-values(((s_659)" "(car" -" s_655)))" -" s_656))" +" s_658)))" +" s_659))" "((id348_0)" -"(let-values(((s_657)" +"(let-values(((s_660)" "(cdr" -" s_655)))" -"(if(let-values(((or-part_382)" +" s_658)))" +"(if(let-values(((or-part_380)" "(if(syntax?$1" -" s_657)" +" s_660)" "(symbol?" "(syntax-e$1" -" s_657))" +" s_660))" " #f)))" -"(if or-part_382" -" or-part_382" +"(if or-part_380" +" or-part_380" "(symbol?" -" s_657)))" -" s_657" +" s_660)))" +" s_660" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_55" -" s_657)))))" +" orig-s_56" +" s_660)))))" "(values #%top347_0 id348_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_55)))))" +" orig-s_56)))))" "(values #t #%top345_1 id346_1))))))" " id346_0)))))" "(let-values(((b_90)" -"(let-values(((temp350_0)(expand-context-phase ctx_93))" +"(let-values(((temp350_0)(expand-context-phase ctx_92))" "((temp351_0) 'ambiguous))" "(resolve+shift30.1" " temp351_0" @@ -66056,25 +66067,25 @@ static const char *startup_source = " id_120" " temp350_0))))" "(if(eq? b_90 'ambiguous)" -"(let-values()(raise-ambiguous-error id_120 ctx_93))" +"(let-values()(raise-ambiguous-error id_120 ctx_92))" "(if(if b_90" "(if(module-binding? b_90)" -"(eq?(module-binding-module b_90)(root-expand-context-self-mpi ctx_93))" +"(eq?(module-binding-module b_90)(root-expand-context-self-mpi ctx_92))" " #f)" " #f)" "(let-values()" -"(if(expand-context-to-parsed? ctx_93)" +"(if(expand-context-to-parsed? ctx_92)" "(parsed-id2.1 id_120 b_90 #f)" "(if(top-level-module-path-index?(module-binding-module b_90))" -"(let-values() s_653)" +"(let-values() s_656)" "(let-values() id_120))))" -"(if(register-eventual-variable!? id_120 ctx_93)" +"(if(register-eventual-variable!? id_120 ctx_92)" "(let-values()" -"(if(expand-context-to-parsed? ctx_93)" +"(if(expand-context-to-parsed? ctx_92)" "(parsed-id2.1 id_120 b_90 #f)" " id_120))" "(let-values()" -"(if(not(expand-context-allow-unbound? ctx_93))" +"(if(not(expand-context-allow-unbound? ctx_92))" "(let-values()" "(raise-unbound-syntax-error" " #f" @@ -66082,16 +66093,16 @@ static const char *startup_source = " id_120" " #f" " null" -"(syntax-debug-info-string id_120 ctx_93)))" +"(syntax-debug-info-string id_120 ctx_92)))" "(let-values()" "(let-values(((tl-id_1)" "(add-scope" " id_120" -"(root-expand-context-top-level-bind-scope ctx_93))))" +"(root-expand-context-top-level-bind-scope ctx_92))))" "(let-values(((tl-b_1)" "(let-values(((tl-id352_0) tl-id_1)" "((temp353_0)" -"(expand-context-phase ctx_93)))" +"(expand-context-phase ctx_92)))" "(resolve33.1" " #f" " #f" @@ -66105,152 +66116,152 @@ static const char *startup_source = " temp353_0))))" "(if tl-b_1" "(let-values()" -"(if(expand-context-to-parsed? ctx_93)" +"(if(expand-context-to-parsed? ctx_92)" "(parsed-top-id4.1 tl-id_1 tl-b_1 #f)" "(if implicit-omitted?_0" "(let-values() id_120)" "(let-values()" "(let-values(((ok?_52 #%top354_0 id355_0)" -"(let-values(((s_658) disarmed-s_17))" -"(let-values(((orig-s_56) s_658))" +"(let-values(((s_661) disarmed-s_17))" +"(let-values(((orig-s_57) s_661))" "(let-values(((#%top354_1 id355_1)" -"(let-values(((s_659)" -"(if(syntax?$1" -" s_658)" -"(syntax-e$1" -" s_658)" -" s_658)))" -"(if(pair? s_659)" -"(let-values(((#%top356_0)" -"(let-values(((s_660)" -"(car" -" s_659)))" -" s_660))" -"((id357_0)" -"(let-values(((s_661)" -"(cdr" -" s_659)))" -"(if(let-values(((or-part_383)" +"(let-values(((s_662)" "(if(syntax?$1" " s_661)" +"(syntax-e$1" +" s_661)" +" s_661)))" +"(if(pair? s_662)" +"(let-values(((#%top356_0)" +"(let-values(((s_663)" +"(car" +" s_662)))" +" s_663))" +"((id357_0)" +"(let-values(((s_664)" +"(cdr" +" s_662)))" +"(if(let-values(((or-part_381)" +"(if(syntax?$1" +" s_664)" "(symbol?" "(syntax-e$1" -" s_661))" +" s_664))" " #f)))" -"(if or-part_383" -" or-part_383" +"(if or-part_381" +" or-part_381" "(symbol?" -" s_661)))" -" s_661" +" s_664)))" +" s_664" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_56" -" s_661)))))" +" orig-s_57" +" s_664)))))" "(values" " #%top356_0" " id357_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_56)))))" +" orig-s_57)))))" "(values #t #%top354_1 id355_1))))))" -"(let-values(((s358_0) s_653)" +"(let-values(((s358_0) s_656)" "((temp359_0)(cons #%top354_0 id_120)))" "(rebuild5.1 #f #f s358_0 temp359_0)))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_93)" +"(if(expand-context-to-parsed? ctx_92)" "(parsed-top-id4.1 id_120 b_90 #f)" -" s_653)))))))))))))))))))))))" +" s_656)))))))))))))))))))))))" "(case-lambda" -"((s_662 ctx_94)(core343_0 s_662 ctx_94 #f #f))" -"((s_663 ctx_95 implicit-omitted?339_1)(core343_0 s_663 ctx_95 implicit-omitted?339_1 #t))))))" +"((s_665 ctx_93)(core343_0 s_665 ctx_93 #f #f))" +"((s_666 ctx_94 implicit-omitted?339_1)(core343_0 s_666 ctx_94 implicit-omitted?339_1 #t))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_664 ctx_96)" +"(lambda(s_667 ctx_95)" "(let-values((()" "(begin" -"(let-values(((obs_116)(expand-context-observer ctx_96)))" +"(let-values(((obs_116)(expand-context-observer ctx_95)))" "(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_664)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_667)))" "(let-values(((ok?_53 set!360_0 id361_0 rhs362_0)" -"(let-values(((s_665) disarmed-s_18))" -"(let-values(((orig-s_57) s_665))" +"(let-values(((s_668) disarmed-s_18))" +"(let-values(((orig-s_58) s_668))" "(let-values(((set!360_1 id361_1 rhs362_1)" -"(let-values(((s_666)(if(syntax?$1 s_665)(syntax-e$1 s_665) s_665)))" -"(if(pair? s_666)" -"(let-values(((set!363_0)(let-values(((s_667)(car s_666))) s_667))" -"((id364_0 rhs365_0)" -"(let-values(((s_668)(cdr s_666)))" -"(let-values(((s_669)" -"(if(syntax?$1 s_668)" -"(syntax-e$1 s_668)" -" s_668)))" +"(let-values(((s_669)(if(syntax?$1 s_668)(syntax-e$1 s_668) s_668)))" "(if(pair? s_669)" -"(let-values(((id366_0)" -"(let-values(((s_670)(car s_669)))" -"(if(let-values(((or-part_384)" -"(if(syntax?$1 s_670)" -"(symbol?" -"(syntax-e$1" -" s_670))" -" #f)))" -"(if or-part_384" -" or-part_384" -"(symbol? s_670)))" -" s_670" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_57" -" s_670))))" -"((rhs367_0)" +"(let-values(((set!363_0)(let-values(((s_670)(car s_669))) s_670))" +"((id364_0 rhs365_0)" "(let-values(((s_671)(cdr s_669)))" "(let-values(((s_672)" "(if(syntax?$1 s_671)" "(syntax-e$1 s_671)" " s_671)))" "(if(pair? s_672)" -"(let-values(((rhs368_0)" -"(let-values(((s_673)" -"(car" -" s_672)))" -" s_673))" -"(()" -"(let-values(((s_674)" -"(cdr" -" s_672)))" -"(let-values(((s_675)" -"(if(syntax?$1" -" s_674)" +"(let-values(((id366_0)" +"(let-values(((s_673)(car s_672)))" +"(if(let-values(((or-part_382)" +"(if(syntax?$1 s_673)" +"(symbol?" "(syntax-e$1" -" s_674)" +" s_673))" +" #f)))" +"(if or-part_382" +" or-part_382" +"(symbol? s_673)))" +" s_673" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_58" +" s_673))))" +"((rhs367_0)" +"(let-values(((s_674)(cdr s_672)))" +"(let-values(((s_675)" +"(if(syntax?$1 s_674)" +"(syntax-e$1 s_674)" " s_674)))" -"(if(null? s_675)" +"(if(pair? s_675)" +"(let-values(((rhs368_0)" +"(let-values(((s_676)" +"(car" +" s_675)))" +" s_676))" +"(()" +"(let-values(((s_677)" +"(cdr" +" s_675)))" +"(let-values(((s_678)" +"(if(syntax?$1" +" s_677)" +"(syntax-e$1" +" s_677)" +" s_677)))" +"(if(null? s_678)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_57))))))" +" orig-s_58))))))" "(values rhs368_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_57))))))" +" orig-s_58))))))" "(values id366_0 rhs367_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_57))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_58))))))" "(values set!363_0 id364_0 rhs365_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_57)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_58)))))" "(values #t set!360_1 id361_1 rhs362_1))))))" "(let-values(((id_121) id361_0))" "((letrec-values(((rename-loop_0)" "(lambda(id_122 from-rename?_0)" "(begin" " 'rename-loop" -"(let-values(((binding_30)" -"(let-values(((temp370_0)(expand-context-phase ctx_96))" +"(let-values(((binding_29)" +"(let-values(((temp370_0)(expand-context-phase ctx_95))" "((temp371_0) 'ambiguous)" "((temp372_0) #t))" "(resolve+shift30.1" @@ -66268,54 +66279,54 @@ static const char *startup_source = " temp370_0))))" "(let-values((()" "(begin" -"(if(eq? binding_30 'ambiguous)" -"(let-values()(raise-ambiguous-error id_122 ctx_96))" +"(if(eq? binding_29 'ambiguous)" +"(let-values()(raise-ambiguous-error id_122 ctx_95))" "(void))" "(values))))" -"(let-values(((t_57 primitive?_10 insp_24)" -"(if binding_30" -"(let-values(((binding373_0) binding_30)" -"((ctx374_0) ctx_96)" -"((s375_0) s_664))" +"(let-values(((t_57 primitive?_11 insp_23 protected?_12)" +"(if binding_29" +"(let-values(((binding373_0) binding_29)" +"((ctx374_0) ctx_95)" +"((s375_0) s_667))" "(lookup17.1 #f #f #f #f binding373_0 ctx374_0 s375_0))" -"(values #f #f #f))))" +"(values #f #f #f #f))))" "(begin" -"(let-values(((obs_117)(expand-context-observer ctx_96)))" +"(let-values(((obs_117)(expand-context-observer ctx_95)))" "(if obs_117" "(let-values()" "(let-values()(call-expand-observe obs_117 'resolve id_122)))" "(void)))" -"(if(let-values(((or-part_385)(variable? t_57)))" -"(if or-part_385" -" or-part_385" -"(if(not binding_30)" -"(let-values(((or-part_386)" -"(register-eventual-variable!? id_122 ctx_96)))" -"(if or-part_386" -" or-part_386" -"(expand-context-allow-unbound? ctx_96)))" +"(if(let-values(((or-part_383)(variable? t_57)))" +"(if or-part_383" +" or-part_383" +"(if(not binding_29)" +"(let-values(((or-part_384)" +"(register-eventual-variable!? id_122 ctx_95)))" +"(if or-part_384" +" or-part_384" +"(expand-context-allow-unbound? ctx_95)))" " #f)))" "(let-values()" "(let-values((()" "(begin" -"(if(if(module-binding? binding_30)" +"(if(if(module-binding? binding_29)" "(not" "(eq?" -"(module-binding-module binding_30)" -"(root-expand-context-self-mpi ctx_96)))" +"(module-binding-module binding_29)" +"(root-expand-context-self-mpi ctx_95)))" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_664" +" s_667" " id_122))" "(void))" "(values))))" "(let-values((()" "(begin" "(let-values(((obs_118)" -"(expand-context-observer ctx_96)))" +"(expand-context-observer ctx_95)))" "(if obs_118" "(let-values()" "(let-values()" @@ -66324,10 +66335,10 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(register-variable-referenced-if-local! binding_30)" +"(register-variable-referenced-if-local! binding_29)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx376_0) ctx_96)((s377_0) s_664))" +"(let-values(((ctx376_0) ctx_95)((s377_0) s_667))" "(keep-as-needed74.1" " #f" " #f" @@ -66340,12 +66351,12 @@ static const char *startup_source = "(let-values(((exp-rhs_5)" "(let-values(((temp378_0) rhs362_0)" "((temp379_0)" -"(as-expression-context ctx_96)))" +"(as-expression-context ctx_95)))" "(expand7.1 #f #f #f #f temp378_0 temp379_0))))" -"(if(expand-context-to-parsed? ctx_96)" +"(if(expand-context-to-parsed? ctx_95)" "(parsed-set!9.1" " rebuild-s_12" -"(parsed-id2.1 id_122 binding_30 #f)" +"(parsed-id2.1 id_122 binding_29 #f)" " exp-rhs_5)" "(let-values(((rebuild-s380_0) rebuild-s_12)" "((temp381_0)" @@ -66354,83 +66365,83 @@ static const char *startup_source = "(let-values(((temp384_0)" "(free-id-set-empty-or-just-module*?" "(expand-context-stops" -" ctx_96))))" +" ctx_95))))" "(substitute-variable6.1" " temp384_0" " id_122" " t_57))" " exp-rhs_5)))" "(rebuild5.1 #f #f rebuild-s380_0 temp381_0)))))))))" -"(if(not binding_30)" +"(if(not binding_29)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_664" +" s_667" " id_122" " null" -"(syntax-debug-info-string id_122 ctx_96)))" +"(syntax-debug-info-string id_122 ctx_95)))" "(if(1/set!-transformer? t_57)" "(let-values()" -"(if(not-in-this-expand-context? t_57 ctx_96)" +"(if(not-in-this-expand-context? t_57 ctx_95)" "(let-values()" "(let-values(((temp385_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_664" +" s_667" " disarmed-s_18" " set!360_0" " rhs362_0" " id_122" " from-rename?_0" -" ctx_96)" +" ctx_95)" " t_57" -" ctx_96))" -"((ctx386_0) ctx_96))" +" ctx_95))" +"((ctx386_0) ctx_95))" "(expand7.1 #f #f #f #f temp385_0 ctx386_0)))" "(let-values()" -"(let-values(((exp-s_14 re-ctx_1)" +"(let-values(((exp-s_13 re-ctx_1)" "(apply-transformer" " t_57" -" insp_24" -" s_664" +" insp_23" +" s_667" " id_122" -" ctx_96" -" binding_30)))" -"(if(expand-context-just-once? ctx_96)" -"(let-values() exp-s_14)" +" ctx_95" +" binding_29)))" +"(if(expand-context-just-once? ctx_95)" +"(let-values() exp-s_13)" "(let-values()" -"(let-values(((exp-s387_0) exp-s_14)" +"(let-values(((exp-s387_0) exp-s_13)" "((re-ctx388_0) re-ctx_1))" "(expand7.1 #f #f #f #f exp-s387_0 re-ctx388_0))))))))" "(if(1/rename-transformer? t_57)" "(let-values()" -"(if(not-in-this-expand-context? t_57 ctx_96)" +"(if(not-in-this-expand-context? t_57 ctx_95)" "(let-values()" "(let-values(((temp389_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_664" +" s_667" " disarmed-s_18" " set!360_0" " rhs362_0" " id_122" " from-rename?_0" -" ctx_96" +" ctx_95" " t_57)" " t_57" -" ctx_96))" -"((ctx390_0) ctx_96))" +" ctx_95))" +"((ctx390_0) ctx_95))" "(expand7.1 #f #f #f #f temp389_0 ctx390_0)))" "(let-values()" "(rename-loop_0" -"(rename-transformer-target-in-context t_57 ctx_96)" +"(rename-transformer-target-in-context t_57 ctx_95)" " #t))))" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_664" +" s_667" " id_122))))))))))))))" " rename-loop_0)" " id_121" @@ -66441,21 +66452,21 @@ 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_676) s25_0))" +"(let-values(((s_679) s25_0))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" "(let-values(((id_123) id28_0))" "(let-values(((rhs-s_0) rhs-s29_0))" "(let-values(((from-rename?_1) from-rename?30_0))" -"(let-values(((ctx_97) ctx31_0))" +"(let-values(((ctx_96) ctx31_0))" "(let-values(((t_58)(if t24_0 t23_0 #f)))" "(let-values()" -"(if(let-values(((or-part_387) t_58))" -"(if or-part_387 or-part_387 from-rename?_1))" +"(if(let-values(((or-part_385) t_58))" +"(if or-part_385 or-part_385 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" "(if t_58" -"(rename-transformer-target-in-context t_58 ctx_97)" +"(rename-transformer-target-in-context t_58 ctx_96)" " id_123)))" "(syntax-rearm$1" "(datum->syntax$1" @@ -66463,93 +66474,93 @@ static const char *startup_source = "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_676)))" -"(let-values() s_676)))))))))))))))" +" s_679)))" +"(let-values() s_679)))))))))))))))" "(case-lambda" -"((s_677 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_98)" -"(begin(substitute-set!-rename32_0 s_677 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_98 #f #f)))" -"((s_678 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_99 t23_1)" -"(substitute-set!-rename32_0 s_678 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_99 t23_1 #t)))))" +"((s_680 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_97)" +"(begin(substitute-set!-rename32_0 s_680 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_97 #f #f)))" +"((s_681 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_98 t23_1)" +"(substitute-set!-rename32_0 s_681 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_98 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_679 ctx_100)" +"(lambda(s_682 ctx_99)" "(let-values((()" "(begin" -"(let-values(((obs_119)(expand-context-observer ctx_100)))" +"(let-values(((obs_119)(expand-context-observer ctx_99)))" "(if obs_119" "(let-values()(let-values()(call-expand-observe obs_119 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_679)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_682)))" "(let-values(((ok?_54 #%variable-reference391_0 id392_0)" -"(let-values(((s_680) disarmed-s_22))" -"(if(let-values(((s_681)(if(syntax?$1 s_680)(syntax-e$1 s_680) s_680)))" -"(if(pair? s_681)" -"(if(let-values(((s_682)(car s_681))) #t)" -"(let-values(((s_683)(cdr s_681)))" -"(let-values(((s_684)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))" +"(let-values(((s_683) disarmed-s_22))" +"(if(let-values(((s_684)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))" "(if(pair? s_684)" -"(if(let-values(((s_685)(car s_684)))" -"(let-values(((or-part_388)" -"(if(syntax?$1 s_685)(symbol?(syntax-e$1 s_685)) #f)))" -"(if or-part_388 or-part_388(symbol? s_685))))" +"(if(let-values(((s_685)(car s_684))) #t)" "(let-values(((s_686)(cdr s_684)))" "(let-values(((s_687)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))" -"(null? s_687)))" +"(if(pair? s_687)" +"(if(let-values(((s_688)(car s_687)))" +"(let-values(((or-part_386)" +"(if(syntax?$1 s_688)(symbol?(syntax-e$1 s_688)) #f)))" +"(if or-part_386 or-part_386(symbol? s_688))))" +"(let-values(((s_689)(cdr s_687)))" +"(let-values(((s_690)(if(syntax?$1 s_689)(syntax-e$1 s_689) s_689)))" +"(null? s_690)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference391_1 id392_1)" -"(let-values(((s_688)(if(syntax?$1 s_680)(syntax-e$1 s_680) s_680)))" +"(let-values(((s_691)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))" "(let-values(((#%variable-reference393_0)" -"(let-values(((s_689)(car s_688))) s_689))" -"((id394_0)" -"(let-values(((s_690)(cdr s_688)))" -"(let-values(((s_691)" -"(if(syntax?$1 s_690)" -"(syntax-e$1 s_690)" -" s_690)))" -"(let-values(((id395_0)" "(let-values(((s_692)(car s_691))) s_692))" -"(()" +"((id394_0)" "(let-values(((s_693)(cdr s_691)))" "(let-values(((s_694)" "(if(syntax?$1 s_693)" "(syntax-e$1 s_693)" " s_693)))" +"(let-values(((id395_0)" +"(let-values(((s_695)(car s_694))) s_695))" +"(()" +"(let-values(((s_696)(cdr s_694)))" +"(let-values(((s_697)" +"(if(syntax?$1 s_696)" +"(syntax-e$1 s_696)" +" s_696)))" "(values)))))" "(values id395_0))))))" "(values #%variable-reference393_0 id394_0)))))" "(values #t #%variable-reference391_1 id392_1)))" "(values #f #f #f)))))" "(let-values(((ok?_55 #%variable-reference396_0 #%top397_0 id398_0)" -"(let-values(((s_695) disarmed-s_22))" +"(let-values(((s_698) disarmed-s_22))" "(if(if(not ok?_54)" -"(let-values(((s_696)(if(syntax?$1 s_695)(syntax-e$1 s_695) s_695)))" -"(if(pair? s_696)" -"(if(let-values(((s_697)(car s_696))) #t)" -"(let-values(((s_698)(cdr s_696)))" "(let-values(((s_699)(if(syntax?$1 s_698)(syntax-e$1 s_698) s_698)))" "(if(pair? s_699)" -"(if(let-values(((s_700)(car s_699)))" -"(let-values(((s_701)" -"(if(syntax?$1 s_700)(syntax-e$1 s_700) s_700)))" -"(if(pair? s_701)" -"(if(let-values(((s_702)(car s_701))) #t)" -"(let-values(((s_703)(cdr s_701)))" -"(let-values(((or-part_389)" -"(if(syntax?$1 s_703)" -"(symbol?(syntax-e$1 s_703))" +"(if(let-values(((s_700)(car s_699))) #t)" +"(let-values(((s_701)(cdr s_699)))" +"(let-values(((s_702)(if(syntax?$1 s_701)(syntax-e$1 s_701) s_701)))" +"(if(pair? s_702)" +"(if(let-values(((s_703)(car s_702)))" +"(let-values(((s_704)" +"(if(syntax?$1 s_703)(syntax-e$1 s_703) s_703)))" +"(if(pair? s_704)" +"(if(let-values(((s_705)(car s_704))) #t)" +"(let-values(((s_706)(cdr s_704)))" +"(let-values(((or-part_387)" +"(if(syntax?$1 s_706)" +"(symbol?(syntax-e$1 s_706))" " #f)))" -"(if or-part_389 or-part_389(symbol? s_703))))" +"(if or-part_387 or-part_387(symbol? s_706))))" " #f)" " #f)))" -"(let-values(((s_704)(cdr s_699)))" -"(let-values(((s_705)(if(syntax?$1 s_704)(syntax-e$1 s_704) s_704)))" -"(null? s_705)))" +"(let-values(((s_707)(cdr s_702)))" +"(let-values(((s_708)(if(syntax?$1 s_707)(syntax-e$1 s_707) s_707)))" +"(null? s_708)))" " #f)" " #f)))" " #f)" @@ -66557,185 +66568,185 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference396_1 #%top397_1 id398_1)" -"(let-values(((s_706)(if(syntax?$1 s_695)(syntax-e$1 s_695) s_695)))" +"(let-values(((s_709)(if(syntax?$1 s_698)(syntax-e$1 s_698) s_698)))" "(let-values(((#%variable-reference399_0)" -"(let-values(((s_707)(car s_706))) s_707))" +"(let-values(((s_710)(car s_709))) s_710))" "((#%top400_0 id401_0)" -"(let-values(((s_708)(cdr s_706)))" -"(let-values(((s_709)" -"(if(syntax?$1 s_708)" -"(syntax-e$1 s_708)" -" s_708)))" -"(let-values(((#%top402_0 id403_0)" -"(let-values(((s_710)(car s_709)))" -"(let-values(((s_711)" -"(if(syntax?$1 s_710)" -"(syntax-e$1 s_710)" -" s_710)))" -"(let-values(((#%top404_0)" +"(let-values(((s_711)(cdr s_709)))" "(let-values(((s_712)" -"(car" -" s_711)))" -" s_712))" -"((id405_0)" -"(let-values(((s_713)" -"(cdr" +"(if(syntax?$1 s_711)" +"(syntax-e$1 s_711)" " s_711)))" +"(let-values(((#%top402_0 id403_0)" +"(let-values(((s_713)(car s_712)))" +"(let-values(((s_714)" +"(if(syntax?$1 s_713)" +"(syntax-e$1 s_713)" " s_713)))" +"(let-values(((#%top404_0)" +"(let-values(((s_715)" +"(car" +" s_714)))" +" s_715))" +"((id405_0)" +"(let-values(((s_716)" +"(cdr" +" s_714)))" +" s_716)))" "(values #%top404_0 id405_0)))))" "(()" -"(let-values(((s_714)(cdr s_709)))" -"(let-values(((s_715)" -"(if(syntax?$1 s_714)" -"(syntax-e$1 s_714)" -" s_714)))" +"(let-values(((s_717)(cdr s_712)))" +"(let-values(((s_718)" +"(if(syntax?$1 s_717)" +"(syntax-e$1 s_717)" +" s_717)))" "(values)))))" "(values #%top402_0 id403_0))))))" "(values #%variable-reference399_0 #%top400_0 id401_0)))))" "(values #t #%variable-reference396_1 #%top397_1 id398_1)))" "(values #f #f #f #f)))))" "(let-values(((ok?_56 #%variable-reference406_0)" -"(let-values(((s_716) disarmed-s_22))" -"(if(if(not(let-values(((or-part_390) ok?_54))(if or-part_390 or-part_390 ok?_55)))" +"(let-values(((s_719) disarmed-s_22))" +"(if(if(not(let-values(((or-part_388) ok?_54))(if or-part_388 or-part_388 ok?_55)))" " #t" " #f)" -"(let-values(((orig-s_58) s_716))" +"(let-values(((orig-s_59) s_719))" "(let-values(((#%variable-reference406_1)" -"(let-values(((s_717)(if(syntax?$1 s_716)(syntax-e$1 s_716) s_716)))" -"(if(pair? s_717)" +"(let-values(((s_720)(if(syntax?$1 s_719)(syntax-e$1 s_719) s_719)))" +"(if(pair? s_720)" "(let-values(((#%variable-reference407_0)" -"(let-values(((s_718)(car s_717))) s_718))" +"(let-values(((s_721)(car s_720))) s_721))" "(()" -"(let-values(((s_719)(cdr s_717)))" -"(let-values(((s_720)" -"(if(syntax?$1 s_719)" -"(syntax-e$1 s_719)" -" s_719)))" -"(if(null? s_720)" +"(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" " \"bad syntax\"" -" orig-s_58))))))" +" orig-s_59))))))" "(values #%variable-reference407_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_58)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))" "(values #t #%variable-reference406_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_391) ok?_54))(if or-part_391 or-part_391 ok?_55))" +"(if(let-values(((or-part_389) ok?_54))(if or-part_389 or-part_389 ok?_55))" "(let-values()" "(let-values(((var-id_0)(if ok?_54 id392_0 id398_0)))" -"(let-values(((binding_31)" -"(let-values(((temp409_0)(expand-context-phase ctx_100))((temp410_0) 'ambiguous))" +"(let-values(((binding_30)" +"(let-values(((temp409_0)(expand-context-phase ctx_99))((temp410_0) 'ambiguous))" "(resolve+shift30.1 temp410_0 #t #f #f #f #f #f #f #f #f var-id_0 temp409_0))))" "(let-values((()" "(begin" -"(if(eq? binding_31 'ambiguous)" -"(let-values()(raise-ambiguous-error var-id_0 ctx_100))" +"(if(eq? binding_30 'ambiguous)" +"(let-values()(raise-ambiguous-error var-id_0 ctx_99))" "(void))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_392) binding_31))" -"(if or-part_392 or-part_392(expand-context-allow-unbound? ctx_100)))" +"(if(let-values(((or-part_390) binding_30))" +"(if or-part_390 or-part_390(expand-context-allow-unbound? ctx_99)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_679" +" s_682" " var-id_0" " null" -"(syntax-debug-info-string var-id_0 ctx_100))))" +"(syntax-debug-info-string var-id_0 ctx_99))))" "(values))))" -"(let-values(((t_59 primitive?_11 insp-of-t_7)" -"(if binding_31" -"(let-values(((s414_0) s_679)" -"((temp415_0)(expand-context-in-local-expand? ctx_100)))" -"(lookup17.1 s414_0 #t temp415_0 #t binding_31 ctx_100 var-id_0))" -"(values #f #f #f))))" +"(let-values(((t_59 primitive?_12 insp-of-t_7 protected?_13)" +"(if binding_30" +"(let-values(((s414_0) s_682)" +"((temp415_0)(expand-context-in-local-expand? ctx_99)))" +"(lookup17.1 s414_0 #t temp415_0 #t binding_30 ctx_99 var-id_0))" +"(values #f #f #f #f))))" "(begin" "(if(if t_59(not(variable? t_59)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_679))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_682))" "(void))" -"(if(expand-context-to-parsed? ctx_100)" +"(if(expand-context-to-parsed? ctx_99)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_679)" +"(keep-properties-only~ s_682)" "(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_679))))))))" +"(let-values()(parsed-top-id4.1 var-id_0 binding_30 #f))" +"(let-values()(parsed-id2.1 var-id_0 binding_30 #f))))" +" s_682))))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_100)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_679) #f)" -" s_679)))))))))))" +"(if(expand-context-to-parsed? ctx_99)" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_682) #f)" +" s_682)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_721 ctx_101)" +"(lambda(s_724 ctx_100)" "(let-values((()" "(begin" -"(let-values(((obs_120)(expand-context-observer ctx_101)))" +"(let-values(((obs_120)(expand-context-observer ctx_100)))" "(if obs_120" "(let-values()(let-values()(call-expand-observe obs_120 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_721)))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_724)))" "(let-values(((ok?_57 #%expression416_0 e417_0)" -"(let-values(((s_722) disarmed-s_23))" -"(let-values(((orig-s_59) s_722))" +"(let-values(((s_725) disarmed-s_23))" +"(let-values(((orig-s_60) s_725))" "(let-values(((#%expression416_1 e417_1)" -"(let-values(((s_723)(if(syntax?$1 s_722)(syntax-e$1 s_722) s_722)))" -"(if(pair? s_723)" -"(let-values(((#%expression418_0)" -"(let-values(((s_724)(car s_723))) s_724))" -"((e419_0)" -"(let-values(((s_725)(cdr s_723)))" -"(let-values(((s_726)" -"(if(syntax?$1 s_725)" -"(syntax-e$1 s_725)" -" s_725)))" +"(let-values(((s_726)(if(syntax?$1 s_725)(syntax-e$1 s_725) s_725)))" "(if(pair? s_726)" -"(let-values(((e420_0)" -"(let-values(((s_727)(car s_726)))" -" s_727))" -"(()" +"(let-values(((#%expression418_0)" +"(let-values(((s_727)(car s_726))) s_727))" +"((e419_0)" "(let-values(((s_728)(cdr s_726)))" "(let-values(((s_729)" "(if(syntax?$1 s_728)" "(syntax-e$1 s_728)" " s_728)))" -"(if(null? s_729)" +"(if(pair? s_729)" +"(let-values(((e420_0)" +"(let-values(((s_730)(car s_729)))" +" s_730))" +"(()" +"(let-values(((s_731)(cdr s_729)))" +"(let-values(((s_732)" +"(if(syntax?$1 s_731)" +"(syntax-e$1 s_731)" +" s_731)))" +"(if(null? s_732)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_59))))))" +" orig-s_60))))))" "(values e420_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_59))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_60))))))" "(values #%expression418_0 e419_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))" "(values #t #%expression416_1 e417_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((temp423_0) #t))(keep-as-needed74.1 temp423_0 #t #f #f #f #f ctx_101 s_721))))" +"(let-values(((temp423_0) #t))(keep-as-needed74.1 temp423_0 #t #f #f #f #f ctx_100 s_724))))" "(let-values(((exp-e_0)" "(let-values(((temp424_0) e417_0)" "((temp425_0)" -"(let-values(((temp426_0)(as-expression-context ctx_101))" -"((ctx427_0) ctx_101))" +"(let-values(((temp426_0)(as-expression-context ctx_100))" +"((ctx427_0) ctx_100))" "(as-tail-context23.1 ctx427_0 temp426_0))))" "(expand7.1 #f #f #f #f temp424_0 temp425_0))))" -"(if(expand-context-to-parsed? ctx_101)" +"(if(expand-context-to-parsed? ctx_100)" " exp-e_0" "(let-values(((tmp_62)" -"(if(not(expand-context-in-local-expand? ctx_101))" -"(expand-context-context ctx_101)" +"(if(not(expand-context-in-local-expand? ctx_100))" +"(expand-context-context ctx_100)" " #f)))" "(if(equal? tmp_62 'expression)" "(let-values()" "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))" "(begin" -"(let-values(((obs_121)(expand-context-observer ctx_101)))" +"(let-values(((obs_121)(expand-context-observer ctx_100)))" "(if obs_121" "(let-values()(let-values()(call-expand-observe obs_121 'tag result-s_13)))" "(void)))" @@ -66743,28 +66754,28 @@ static const char *startup_source = "(let-values()" "(let-values(((rebuild-s428_0) rebuild-s_13)((temp429_0)(list #%expression416_0 exp-e_0)))" "(rebuild5.1 #f #f rebuild-s428_0 temp429_0))))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_730 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_730))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_731 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_731))))" +" (void (add-core-form!* 'unquote (lambda (s_733 ctx_101) (raise-syntax-error$1 #f \"not in quasiquote\" s_733))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_734 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_734))))" "(define-values" "(binding-for-transformer?)" -"(lambda(b_41 id_126 at-phase_12 ns_119)" +"(lambda(b_41 id_126 at-phase_12 ns_120)" "(begin" "(if(not at-phase_12)" "(let-values()" -"(let-values(((m_30)" -"(namespace->module ns_119(1/module-path-index-resolve(module-binding-nominal-module b_41)))))" +"(let-values(((m_29)" +"(namespace->module ns_120(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())" +"(hash-ref(module-provides m_29)(module-binding-nominal-phase b_41) '#hasheq())" "(module-binding-nominal-sym b_41)" " #f)))" "(provided-as-transformer? b/p_4))))" "(let-values()" -"(let-values(((val_85 primitive?_12 insp_25)" +"(let-values(((val_85 primitive?_13 insp_24 protected?_14)" "(let-values(((b1_8) b_41)" "((empty-env2_0) empty-env)" "((null3_0) null)" -"((ns4_0) ns_119)" +"((ns4_0) ns_120)" "((at-phase5_0) at-phase_12)" "((id6_0) id_126))" "(binding-lookup48.1 #f #f #f #f b1_8 empty-env2_0 null3_0 ns4_0 at-phase5_0 id6_0))))" @@ -66773,34 +66784,34 @@ static const char *startup_source = "(define-values(provide-form-name) 'provide)" "(define-values" "(parse-and-expand-provides!)" -"(lambda(specs_0 orig-s_60 rp_1 self_31 phase_41 ctx_104)" +"(lambda(specs_0 orig-s_61 rp_1 self_31 phase_41 ctx_103)" "(begin" -"(let-values(((ns_120)(expand-context-namespace ctx_104)))" +"(let-values(((ns_121)(expand-context-namespace ctx_103)))" "((letrec-values(((loop_118)" -"(lambda(specs_1 at-phase_13 protected?_4 layer_6)" +"(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_73) specs_1))" +"(let-values(((lst_74) specs_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_73)))" +"(let-values()(check-list lst_74)))" "((letrec-values(((for-loop_92)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_395)" +" lst_394)" "(begin" " 'for-loop" -"(if(pair? lst_395)" +"(if(pair? lst_394)" "(let-values(((spec_0)" "(unsafe-car" -" lst_395))" -"((rest_233)" +" lst_394))" +"((rest_232)" "(unsafe-cdr" -" lst_395)))" +" lst_394)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -66846,7 +66857,7 @@ static const char *startup_source = "(format" " \"nested `~a' not allowed\"" " fm_2)" -" orig-s_60" +" orig-s_61" " spec_0)))))))" "(let-values(((tmp_63)" " fm_2))" @@ -66912,13 +66923,13 @@ static const char *startup_source = "(begin" "(parse-identifier!" " spec_0" -" orig-s_60" +" orig-s_61" "(syntax-e$1" " spec_0)" " at-phase_13" -" ns_120" +" ns_121" " rp_1" -" protected?_4)" +" protected?_15)" "(values" " null" "(list" @@ -66927,7 +66938,7 @@ static const char *startup_source = "(raise-syntax-error$1" " provide-form-name" " \"bad syntax\"" -" orig-s_60" +" orig-s_61" " spec_0))))" "(let-values()" "(let-values((()" @@ -66941,52 +66952,52 @@ static const char *startup_source = " spec5_0)" "(let-values(((s_306)" " disarmed-spec_0))" -"(let-values(((orig-s_61)" +"(let-values(((orig-s_62)" " s_306))" "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_467)" +"(let-values(((s_471)" "(if(syntax?$1" " s_306)" "(syntax-e$1" " s_306)" " s_306)))" "(if(pair?" -" s_467)" +" s_471)" "(let-values(((for-meta6_0)" "(let-values(((s_178)" "(car" -" s_467)))" +" s_471)))" " s_178))" "((phase-level7_0" " spec8_0)" "(let-values(((s_78)" "(cdr" -" s_467)))" -"(let-values(((s_413)" +" s_471)))" +"(let-values(((s_416)" "(if(syntax?$1" " s_78)" "(syntax-e$1" " s_78)" " s_78)))" "(if(pair?" -" s_413)" +" s_416)" "(let-values(((phase-level9_0)" "(let-values(((s_180)" "(car" -" s_413)))" +" s_416)))" " s_180))" "((spec10_0)" -"(let-values(((s_400)" +"(let-values(((s_417)" "(cdr" -" s_413)))" +" s_416)))" "(let-values(((s_148)" "(if(syntax?$1" -" s_400)" +" s_417)" "(syntax-e$1" -" s_400)" -" s_400)))" +" s_417)" +" s_417)))" "(let-values(((flat-s_42)" "(to-syntax-list.1" " s_148)))" @@ -66996,7 +67007,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_61))" +" orig-s_62))" "(let-values()" " flat-s_42)))))))" "(values" @@ -67005,7 +67016,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_61))))))" +" orig-s_62))))))" "(values" " for-meta6_0" " phase-level7_0" @@ -67013,7 +67024,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_61)))))" +" orig-s_62)))))" "(values" " #t" " for-meta3_1" @@ -67031,7 +67042,7 @@ static const char *startup_source = "(raise-syntax-error$1" " provide-form-name" " \"bad `for-meta' phase\"" -" orig-s_60" +" orig-s_61" " spec_0)))" "(values))))" "(let-values(((track-stxes_5" @@ -67041,7 +67052,7 @@ static const char *startup_source = "(phase+" " p_71" " at-phase_13)" -" protected?_4" +" protected?_15" " 'phaseless)))" "(values" " null" @@ -67074,7 +67085,7 @@ static const char *startup_source = " spec14_0)" "(let-values(((s_20)" " disarmed-spec_0))" -"(let-values(((orig-s_62)" +"(let-values(((orig-s_63)" " s_20))" "(let-values(((for-syntax13_1" " spec14_1)" @@ -67095,7 +67106,7 @@ static const char *startup_source = "(let-values(((s_25)" "(cdr" " s_23)))" -"(let-values(((s_732)" +"(let-values(((s_735)" "(if(syntax?$1" " s_25)" "(syntax-e$1" @@ -67103,14 +67114,14 @@ static const char *startup_source = " s_25)))" "(let-values(((flat-s_43)" "(to-syntax-list.1" -" s_732)))" +" s_735)))" "(if(not" " flat-s_43)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_62))" +" orig-s_63))" "(let-values()" " flat-s_43)))))))" "(values" @@ -67119,7 +67130,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_62)))))" +" orig-s_63)))))" "(values" " #t" " for-syntax13_1" @@ -67131,7 +67142,7 @@ static const char *startup_source = "(phase+" " 1" " at-phase_13)" -" protected?_4" +" protected?_15" " 'phaseless)))" "(values" " null" @@ -67167,23 +67178,23 @@ static const char *startup_source = " s_44))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_733)" +"(let-values(((s_736)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(pair?" -" s_733)" +" s_736)" "(let-values(((for-label21_0)" -"(let-values(((s_482)" +"(let-values(((s_487)" "(car" -" s_733)))" -" s_482))" +" s_736)))" +" s_487))" "((spec22_0)" "(let-values(((s_45)" "(cdr" -" s_733)))" +" s_736)))" "(let-values(((s_398)" "(if(syntax?$1" " s_45)" @@ -67218,7 +67229,7 @@ static const char *startup_source = "(loop_118" " spec20_0" " #f" -" protected?_4" +" protected?_15" " 'phaseless)))" "(values" " null" @@ -67247,12 +67258,12 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if protected?_4" +"(if protected?_15" "(let-values()" "(raise-syntax-error$1" " provide-form-name" " \"nested `protect' not allowed\"" -" orig-s_60" +" orig-s_61" " spec_0))" "(void))" "(values))))" @@ -67261,7 +67272,7 @@ static const char *startup_source = " p-spec26_0)" "(let-values(((s_85)" " disarmed-spec_0))" -"(let-values(((orig-s_39)" +"(let-values(((orig-s_40)" " s_85))" "(let-values(((protect25_1" " p-spec26_1)" @@ -67274,20 +67285,20 @@ static const char *startup_source = "(if(pair?" " s_31)" "(let-values(((protect27_0)" -"(let-values(((s_734)" +"(let-values(((s_737)" "(car" " s_31)))" -" s_734))" +" s_737))" "((p-spec28_0)" -"(let-values(((s_735)" +"(let-values(((s_738)" "(cdr" " s_31)))" "(let-values(((s_394)" "(if(syntax?$1" -" s_735)" +" s_738)" "(syntax-e$1" -" s_735)" -" s_735)))" +" s_738)" +" s_738)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" " s_394)))" @@ -67297,7 +67308,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39))" +" orig-s_40))" "(let-values()" " flat-s_45)))))))" "(values" @@ -67306,7 +67317,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39)))))" +" orig-s_40)))))" "(values" " #t" " protect25_1" @@ -67344,19 +67355,19 @@ static const char *startup_source = " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_485)" +"(let-values(((s_490)" " disarmed-spec_0))" -"(let-values(((orig-s_63)" -" s_485))" +"(let-values(((orig-s_64)" +" s_490))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" "(let-values(((s_316)" "(if(syntax?$1" -" s_485)" +" s_490)" "(syntax-e$1" -" s_485)" -" s_485)))" +" s_490)" +" s_490)))" "(if(pair?" " s_316)" "(let-values(((rename34_0)" @@ -67369,18 +67380,18 @@ static const char *startup_source = "(let-values(((s_319)" "(cdr" " s_316)))" -"(let-values(((s_436)" +"(let-values(((s_442)" "(if(syntax?$1" " s_319)" "(syntax-e$1" " s_319)" " s_319)))" "(if(pair?" -" s_436)" +" s_442)" "(let-values(((id:from37_0)" "(let-values(((s_56)" "(car" -" s_436)))" +" s_442)))" "(if(let-values(((or-part_66)" "(if(syntax?$1" " s_56)" @@ -67396,24 +67407,24 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_63" +" orig-s_64" " s_56))))" "((id:to38_0)" "(let-values(((s_390)" "(cdr" -" s_436)))" -"(let-values(((s_736)" +" s_442)))" +"(let-values(((s_739)" "(if(syntax?$1" " s_390)" "(syntax-e$1" " s_390)" " s_390)))" "(if(pair?" -" s_736)" +" s_739)" "(let-values(((id:to39_0)" "(let-values(((s_391)" "(car" -" s_736)))" +" s_739)))" "(if(let-values(((or-part_110)" "(if(syntax?$1" " s_391)" @@ -67429,38 +67440,38 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_63" +" orig-s_64" " s_391))))" "(()" "(let-values(((s_392)" "(cdr" -" s_736)))" -"(let-values(((s_502)" +" s_739)))" +"(let-values(((s_506)" "(if(syntax?$1" " s_392)" "(syntax-e$1" " s_392)" " s_392)))" "(if(null?" -" s_502)" +" s_506)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_63))))))" +" orig-s_64))))))" "(values" " id:to39_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_63))))))" +" orig-s_64))))))" "(values" " id:from37_0" " id:to38_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_63))))))" +" orig-s_64))))))" "(values" " rename34_0" " id:from35_0" @@ -67468,7 +67479,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_63)))))" +" orig-s_64)))))" "(values" " #t" " rename31_1" @@ -67477,13 +67488,13 @@ static const char *startup_source = "(begin" "(parse-identifier!" " id:from32_0" -" orig-s_60" +" orig-s_61" "(syntax-e$1" " id:to33_0)" " at-phase_13" -" ns_120" +" ns_121" " rp_1" -" protected?_4)" +" protected?_15)" "(values" " null" "(list" @@ -67506,29 +67517,29 @@ static const char *startup_source = " id:field42_0)" "(let-values(((s_36)" " disarmed-spec_0))" -"(let-values(((orig-s_64)" +"(let-values(((orig-s_65)" " s_36))" "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" -"(let-values(((s_737)" +"(let-values(((s_740)" "(if(syntax?$1" " s_36)" "(syntax-e$1" " s_36)" " s_36)))" "(if(pair?" -" s_737)" +" s_740)" "(let-values(((struct43_0)" "(let-values(((s_199)" "(car" -" s_737)))" +" s_740)))" " s_199))" "((id:struct44_0" " id:field45_0)" "(let-values(((s_37)" "(cdr" -" s_737)))" +" s_740)))" "(let-values(((s_86)" "(if(syntax?$1" " s_37)" @@ -67538,26 +67549,26 @@ static const char *startup_source = "(if(pair?" " s_86)" "(let-values(((id:struct46_0)" -"(let-values(((s_439)" +"(let-values(((s_445)" "(car" " s_86)))" -"(if(let-values(((or-part_265)" +"(if(let-values(((or-part_266)" "(if(syntax?$1" -" s_439)" +" s_445)" "(symbol?" "(syntax-e$1" -" s_439))" +" s_445))" " #f)))" -"(if or-part_265" -" or-part_265" +"(if or-part_266" +" or-part_266" "(symbol?" -" s_439)))" -" s_439" +" s_445)))" +" s_445" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_64" -" s_439))))" +" orig-s_65" +" s_445))))" "((id:field47_0)" "(let-values(((s_321)" "(cdr" @@ -67589,10 +67600,10 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_64))" +" orig-s_65))" "(let-values()" "(let-values(((id:field_0)" -"(let-values(((lst_100)" +"(let-values(((lst_101)" " flat-s_46))" "(begin" "(if(variable-reference-from-unsafe?" @@ -67600,20 +67611,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_100)))" +" lst_101)))" "((letrec-values(((for-loop_117)" "(lambda(id:field_1" -" lst_396)" +" lst_395)" "(begin" " 'for-loop" "(if(pair?" -" lst_396)" +" lst_395)" "(let-values(((s_66)" "(unsafe-car" -" lst_396))" -"((rest_234)" +" lst_395))" +"((rest_233)" "(unsafe-cdr" -" lst_396)))" +" lst_395)))" "(let-values(((id:field_2)" "(let-values(((id:field_3)" " id:field_1))" @@ -67621,22 +67632,22 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_393)" +"(if(let-values(((or-part_391)" "(if(syntax?$1" " s_66)" "(symbol?" "(syntax-e$1" " s_66))" " #f)))" -"(if or-part_393" -" or-part_393" +"(if or-part_391" +" or-part_391" "(symbol?" " s_66)))" " s_66" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_64" +" orig-s_65" " s_66)))))" "(cons" " id:field49_0" @@ -67647,44 +67658,44 @@ static const char *startup_source = " #f)" "(for-loop_117" " id:field_2" -" rest_234)" +" rest_233)" " id:field_2)))" " id:field_1)))))" " for-loop_117)" " null" -" lst_100)))))" +" lst_101)))))" "(reverse$1" " id:field_0))))))))" "(()" "(let-values(((s_203)" "(cdr" " s_395)))" -"(let-values(((s_407)" +"(let-values(((s_410)" "(if(syntax?$1" " s_203)" "(syntax-e$1" " s_203)" " s_203)))" "(if(null?" -" s_407)" +" s_410)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_64))))))" +" orig-s_65))))))" "(values" " id:field48_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_64))))))" +" orig-s_65))))))" "(values" " id:struct46_0" " id:field47_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_64))))))" +" orig-s_65))))))" "(values" " struct43_0" " id:struct44_0" @@ -67692,7 +67703,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_64)))))" +" orig-s_65)))))" "(values" " #t" " struct40_1" @@ -67701,12 +67712,12 @@ static const char *startup_source = "(begin" "(parse-struct!" " id:struct41_0" -" orig-s_60" +" orig-s_61" " id:field42_0" " at-phase_13" -" ns_120" +" ns_121" " rp_1" -" protected?_4)" +" protected?_15)" "(values" " null" "(list" @@ -67723,29 +67734,29 @@ static const char *startup_source = "(let-values(((ok?_64" " all-from50_0" " mod-path51_0)" -"(let-values(((s_410)" +"(let-values(((s_413)" " disarmed-spec_0))" -"(let-values(((orig-s_65)" -" s_410))" +"(let-values(((orig-s_66)" +" s_413))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_738)" +"(let-values(((s_422)" "(if(syntax?$1" -" s_410)" +" s_413)" "(syntax-e$1" -" s_410)" -" s_410)))" +" s_413)" +" s_413)))" "(if(pair?" -" s_738)" +" s_422)" "(let-values(((all-from52_0)" -"(let-values(((s_418)" +"(let-values(((s_423)" "(car" -" s_738)))" -" s_418))" +" s_422)))" +" s_423))" "((mod-path53_0)" "(let-values(((s_206)" "(cdr" -" s_738)))" +" s_422)))" "(let-values(((s_207)" "(if(syntax?$1" " s_206)" @@ -67760,35 +67771,35 @@ static const char *startup_source = " s_207)))" " s_93))" "(()" -"(let-values(((s_739)" +"(let-values(((s_741)" "(cdr" " s_207)))" "(let-values(((s_323)" "(if(syntax?$1" -" s_739)" +" s_741)" "(syntax-e$1" -" s_739)" -" s_739)))" +" s_741)" +" s_741)))" "(if(null?" " s_323)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_65))))))" +" orig-s_66))))))" "(values" " mod-path54_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_65))))))" +" orig-s_66))))))" "(values" " all-from52_0" " mod-path53_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_65)))))" +" orig-s_66)))))" "(values" " #t" " all-from50_1" @@ -67796,14 +67807,14 @@ static const char *startup_source = "(begin" "(parse-all-from" " mod-path51_0" -" orig-s_60" +" orig-s_61" " self_31" " null" " at-phase_13" -" ns_120" +" ns_121" " rp_1" -" protected?_4" -" ctx_104)" +" protected?_15" +" ctx_103)" "(values" " null" "(list" @@ -67820,7 +67831,7 @@ static const char *startup_source = " id57_0)" "(let-values(((s_209)" " disarmed-spec_0))" -"(let-values(((orig-s_66)" +"(let-values(((orig-s_67)" " s_209))" "(let-values(((all-from-except55_1" " mod-path56_1" @@ -67834,10 +67845,10 @@ static const char *startup_source = "(if(pair?" " s_98)" "(let-values(((all-from-except58_0)" -"(let-values(((s_740)" +"(let-values(((s_742)" "(car" " s_98)))" -" s_740))" +" s_742))" "((mod-path59_0" " id60_0)" "(let-values(((s_102)" @@ -67852,33 +67863,33 @@ static const char *startup_source = "(if(pair?" " s_154)" "(let-values(((mod-path61_0)" -"(let-values(((s_492)" +"(let-values(((s_496)" "(car" " s_154)))" -" s_492))" +" s_496))" "((id62_0)" -"(let-values(((s_493)" +"(let-values(((s_497)" "(cdr" " s_154)))" -"(let-values(((s_741)" +"(let-values(((s_403)" "(if(syntax?$1" -" s_493)" +" s_497)" "(syntax-e$1" -" s_493)" -" s_493)))" +" s_497)" +" s_497)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_741)))" +" s_403)))" "(if(not" " flat-s_47)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_66))" +" orig-s_67))" "(let-values()" "(let-values(((id_127)" -"(let-values(((lst_397)" +"(let-values(((lst_396)" " flat-s_47))" "(begin" "(if(variable-reference-from-unsafe?" @@ -67886,43 +67897,43 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_397)))" -"((letrec-values(((for-loop_301)" +" lst_396)))" +"((letrec-values(((for-loop_303)" "(lambda(id_128" -" lst_398)" +" lst_397)" "(begin" " 'for-loop" "(if(pair?" -" lst_398)" +" lst_397)" "(let-values(((s_326)" "(unsafe-car" -" lst_398))" -"((rest_235)" +" lst_397))" +"((rest_234)" "(unsafe-cdr" -" lst_398)))" -"(let-values(((id_109)" +" lst_397)))" +"(let-values(((id_110)" "(let-values(((id_129)" " id_128))" "(let-values(((id_130)" "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_394)" +"(if(let-values(((or-part_392)" "(if(syntax?$1" " s_326)" "(symbol?" "(syntax-e$1" " s_326))" " #f)))" -"(if or-part_394" -" or-part_394" +"(if or-part_392" +" or-part_392" "(symbol?" " s_326)))" " s_326" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_66" +" orig-s_67" " s_326)))))" "(cons" " id63_0" @@ -67931,14 +67942,14 @@ static const char *startup_source = " id_130)))))" "(if(not" " #f)" -"(for-loop_301" -" id_109" -" rest_235)" -" id_109)))" +"(for-loop_303" +" id_110" +" rest_234)" +" id_110)))" " id_128)))))" -" for-loop_301)" +" for-loop_303)" " null" -" lst_397)))))" +" lst_396)))))" "(reverse$1" " id_127)))))))))" "(values" @@ -67947,7 +67958,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_66))))))" +" orig-s_67))))))" "(values" " all-from-except58_0" " mod-path59_0" @@ -67955,7 +67966,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_66)))))" +" orig-s_67)))))" "(values" " #t" " all-from-except55_1" @@ -67964,14 +67975,14 @@ static const char *startup_source = "(begin" "(parse-all-from" " mod-path56_0" -" orig-s_60" +" orig-s_61" " self_31" " id57_0" " at-phase_13" -" ns_120" +" ns_121" " rp_1" -" protected?_4" -" ctx_104)" +" protected?_15" +" ctx_103)" "(values" " null" "(list" @@ -67992,7 +68003,7 @@ static const char *startup_source = " all-defined64_0)" "(let-values(((s_213)" " disarmed-spec_0))" -"(let-values(((orig-s_67)" +"(let-values(((orig-s_68)" " s_213))" "(let-values(((all-defined64_1)" "(let-values(((s_396)" @@ -68004,33 +68015,33 @@ static const char *startup_source = "(if(pair?" " s_396)" "(let-values(((all-defined65_0)" -"(let-values(((s_742)" +"(let-values(((s_743)" "(car" " s_396)))" -" s_742))" +" s_743))" "(()" -"(let-values(((s_503)" +"(let-values(((s_507)" "(cdr" " s_396)))" "(let-values(((s_111)" "(if(syntax?$1" -" s_503)" +" s_507)" "(syntax-e$1" -" s_503)" -" s_503)))" +" s_507)" +" s_507)))" "(if(null?" " s_111)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_67))))))" +" orig-s_68))))))" "(values" " all-defined65_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_67)))))" +" orig-s_68)))))" "(values" " #t" " all-defined64_1))))))" @@ -68038,13 +68049,13 @@ static const char *startup_source = "(parse-all-from-module" " self_31" " spec_0" -" orig-s_60" +" orig-s_61" " null" " #f" " at-phase_13" -" ns_120" +" ns_121" " rp_1" -" protected?_4)" +" protected?_15)" "(values" " null" "(list" @@ -68058,18 +68069,18 @@ static const char *startup_source = "(let-values(((ok?_67" " all-defined-except66_0" " id67_0)" -"(let-values(((s_743)" +"(let-values(((s_426)" " disarmed-spec_0))" -"(let-values(((orig-s_68)" -" s_743))" +"(let-values(((orig-s_69)" +" s_426))" "(let-values(((all-defined-except66_1" " id67_1)" "(let-values(((s_216)" "(if(syntax?$1" -" s_743)" +" s_426)" "(syntax-e$1" -" s_743)" -" s_743)))" +" s_426)" +" s_426)))" "(if(pair?" " s_216)" "(let-values(((all-defined-except68_0)" @@ -68096,10 +68107,10 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_68))" +" orig-s_69))" "(let-values()" "(let-values(((id_131)" -"(let-values(((lst_399)" +"(let-values(((lst_398)" " flat-s_48))" "(begin" "(if(variable-reference-from-unsafe?" @@ -68107,20 +68118,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_399)))" -"((letrec-values(((for-loop_302)" +" lst_398)))" +"((letrec-values(((for-loop_304)" "(lambda(id_132" -" lst_400)" +" lst_399)" "(begin" " 'for-loop" "(if(pair?" -" lst_400)" -"(let-values(((s_506)" +" lst_399)" +"(let-values(((s_509)" "(unsafe-car" -" lst_400))" -"((rest_236)" +" lst_399))" +"((rest_235)" "(unsafe-cdr" -" lst_400)))" +" lst_399)))" "(let-values(((id_133)" "(let-values(((id_134)" " id_132))" @@ -68128,23 +68139,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id70_0)" "(let-values()" -"(if(let-values(((or-part_395)" +"(if(let-values(((or-part_393)" "(if(syntax?$1" -" s_506)" +" s_509)" "(symbol?" "(syntax-e$1" -" s_506))" +" s_509))" " #f)))" -"(if or-part_395" -" or-part_395" +"(if or-part_393" +" or-part_393" "(symbol?" -" s_506)))" -" s_506" +" s_509)))" +" s_509" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_68" -" s_506)))))" +" orig-s_69" +" s_509)))))" "(cons" " id70_0" " id_134)))))" @@ -68152,14 +68163,14 @@ static const char *startup_source = " id_30)))))" "(if(not" " #f)" -"(for-loop_302" +"(for-loop_304" " id_133" -" rest_236)" +" rest_235)" " id_133)))" " id_132)))))" -" for-loop_302)" +" for-loop_304)" " null" -" lst_399)))))" +" lst_398)))))" "(reverse$1" " id_131)))))))))" "(values" @@ -68168,7 +68179,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_68)))))" +" orig-s_69)))))" "(values" " #t" " all-defined-except66_1" @@ -68177,13 +68188,13 @@ static const char *startup_source = "(parse-all-from-module" " self_31" " spec_0" -" orig-s_60" +" orig-s_61" " id67_0" " #f" " at-phase_13" -" ns_120" +" ns_121" " rp_1" -" protected?_4)" +" protected?_15)" "(values" " null" "(list" @@ -68200,25 +68211,25 @@ static const char *startup_source = "(let-values(((ok?_68" " prefix-all-defined71_0" " id:prefix72_0)" -"(let-values(((s_449)" +"(let-values(((s_404)" " disarmed-spec_0))" -"(let-values(((orig-s_69)" -" s_449))" +"(let-values(((orig-s_70)" +" s_404))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" "(let-values(((s_744)" "(if(syntax?$1" -" s_449)" +" s_404)" "(syntax-e$1" -" s_449)" -" s_449)))" +" s_404)" +" s_404)))" "(if(pair?" " s_744)" "(let-values(((prefix-all-defined73_0)" -"(let-values(((s_514)" +"(let-values(((s_517)" "(car" " s_744)))" -" s_514))" +" s_517))" "((id:prefix74_0)" "(let-values(((s_745)" "(cdr" @@ -68235,53 +68246,53 @@ static const char *startup_source = "(let-values(((s_747)" "(car" " s_746)))" -"(if(let-values(((or-part_396)" +"(if(let-values(((or-part_394)" "(if(syntax?$1" " s_747)" "(symbol?" "(syntax-e$1" " s_747))" " #f)))" -"(if or-part_396" -" or-part_396" +"(if or-part_394" +" or-part_394" "(symbol?" " s_747)))" " s_747" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_69" +" orig-s_70" " s_747))))" "(()" "(let-values(((s_748)" "(cdr" " s_746)))" -"(let-values(((s_469)" +"(let-values(((s_474)" "(if(syntax?$1" " s_748)" "(syntax-e$1" " s_748)" " s_748)))" "(if(null?" -" s_469)" +" s_474)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_69))))))" +" orig-s_70))))))" "(values" " id:prefix75_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_69))))))" +" orig-s_70))))))" "(values" " prefix-all-defined73_0" " id:prefix74_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_69)))))" +" orig-s_70)))))" "(values" " #t" " prefix-all-defined71_1" @@ -68290,14 +68301,14 @@ static const char *startup_source = "(parse-all-from-module" " self_31" " spec_0" -" orig-s_60" +" orig-s_61" " null" "(syntax-e$1" " id:prefix72_0)" " at-phase_13" -" ns_120" +" ns_121" " rp_1" -" protected?_4)" +" protected?_15)" "(values" " null" "(list" @@ -68317,7 +68328,7 @@ static const char *startup_source = " id78_0)" "(let-values(((s_234)" " disarmed-spec_0))" -"(let-values(((orig-s_70)" +"(let-values(((orig-s_71)" " s_234))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" @@ -68349,46 +68360,46 @@ static const char *startup_source = "(if(pair?" " s_346)" "(let-values(((id:prefix82_0)" -"(let-values(((s_450)" +"(let-values(((s_454)" "(car" " s_346)))" -"(if(let-values(((or-part_397)" +"(if(let-values(((or-part_395)" "(if(syntax?$1" -" s_450)" +" s_454)" "(symbol?" "(syntax-e$1" -" s_450))" +" s_454))" " #f)))" -"(if or-part_397" -" or-part_397" +"(if or-part_395" +" or-part_395" "(symbol?" -" s_450)))" -" s_450" +" s_454)))" +" s_454" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_70" -" s_450))))" +" orig-s_71" +" s_454))))" "((id83_0)" -"(let-values(((s_451)" +"(let-values(((s_455)" "(cdr" " s_346)))" -"(let-values(((s_516)" +"(let-values(((s_519)" "(if(syntax?$1" -" s_451)" +" s_455)" "(syntax-e$1" -" s_451)" -" s_451)))" +" s_455)" +" s_455)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" -" s_516)))" +" s_519)))" "(if(not" " flat-s_49)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_70))" +" orig-s_71))" "(let-values()" "(let-values(((id_135)" "(let-values(((lst_4)" @@ -68400,56 +68411,56 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_4)))" -"((letrec-values(((for-loop_303)" +"((letrec-values(((for-loop_305)" "(lambda(id_136" -" lst_401)" +" lst_400)" "(begin" " 'for-loop" "(if(pair?" -" lst_401)" +" lst_400)" "(let-values(((s_749)" "(unsafe-car" -" lst_401))" -"((rest_237)" +" lst_400))" +"((rest_236)" "(unsafe-cdr" -" lst_401)))" -"(let-values(((id_82)" +" lst_400)))" "(let-values(((id_137)" +"(let-values(((id_82)" " id_136))" "(let-values(((id_138)" "(let-values()" "(let-values(((id84_2)" "(let-values()" -"(if(let-values(((or-part_398)" +"(if(let-values(((or-part_396)" "(if(syntax?$1" " s_749)" "(symbol?" "(syntax-e$1" " s_749))" " #f)))" -"(if or-part_398" -" or-part_398" +"(if or-part_396" +" or-part_396" "(symbol?" " s_749)))" " s_749" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_70" +" orig-s_71" " s_749)))))" "(cons" " id84_2" -" id_137)))))" +" id_82)))))" "(values" " id_138)))))" "(if(not" " #f)" -"(for-loop_303" -" id_82" -" rest_237)" -" id_82)))" +"(for-loop_305" +" id_137" +" rest_236)" +" id_137)))" " id_136)))))" -" for-loop_303)" +" for-loop_305)" " null" " lst_4)))))" "(reverse$1" @@ -68460,7 +68471,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_70))))))" +" orig-s_71))))))" "(values" " prefix-all-defined-except79_0" " id:prefix80_0" @@ -68468,7 +68479,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_70)))))" +" orig-s_71)))))" "(values" " #t" " prefix-all-defined-except76_1" @@ -68478,14 +68489,14 @@ static const char *startup_source = "(parse-all-from-module" " self_31" " spec_0" -" orig-s_60" +" orig-s_61" " id78_0" "(syntax-e$1" " id:prefix77_0)" " at-phase_13" -" ns_120" +" ns_121" " rp_1" -" protected?_4)" +" protected?_15)" "(values" " null" "(list" @@ -68497,7 +68508,7 @@ static const char *startup_source = " datum87_0)" "(let-values(((s_750)" " disarmed-spec_0))" -"(let-values(((orig-s_71)" +"(let-values(((orig-s_72)" " s_750))" "(let-values(((expand85_1" " id86_1" @@ -68517,15 +68528,15 @@ static const char *startup_source = " s_249))" "((id89_1" " datum90_0)" -"(let-values(((s_472)" +"(let-values(((s_477)" "(cdr" " s_248)))" "(let-values(((s_250)" "(if(syntax?$1" -" s_472)" +" s_477)" "(syntax-e$1" -" s_472)" -" s_472)))" +" s_477)" +" s_477)))" "(if(pair?" " s_250)" "(let-values(((id91_1" @@ -68545,22 +68556,22 @@ static const char *startup_source = "(let-values(((s_752)" "(car" " s_252)))" -"(if(let-values(((or-part_399)" +"(if(let-values(((or-part_397)" "(if(syntax?$1" " s_752)" "(symbol?" "(syntax-e$1" " s_752))" " #f)))" -"(if or-part_399" -" or-part_399" +"(if or-part_397" +" or-part_397" "(symbol?" " s_752)))" " s_752" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_71" +" orig-s_72" " s_752))))" "((datum94_0)" "(let-values(((s_365)" @@ -68573,7 +68584,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_71)))))" +" orig-s_72)))))" "(()" "(let-values(((s_366)" "(cdr" @@ -68590,14 +68601,14 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_71))))))" +" orig-s_72))))))" "(values" " id91_1" " datum92_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_71))))))" +" orig-s_72))))))" "(values" " expand88_0" " id89_1" @@ -68605,7 +68616,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_71)))))" +" orig-s_72)))))" "(values" " #t" " expand85_1" @@ -68616,7 +68627,7 @@ static const char *startup_source = " form96_0)" "(let-values(((s_368)" " disarmed-spec_0))" -"(let-values(((orig-s_72)" +"(let-values(((orig-s_73)" " s_368))" "(let-values(((expand95_1" " form96_1)" @@ -68666,20 +68677,20 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_72))))))" +" orig-s_73))))))" "(values" " form99_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_72))))))" +" orig-s_73))))))" "(values" " expand97_0" " form98_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_72)))))" +" orig-s_73)))))" "(values" " #t" " expand95_1" @@ -68688,21 +68699,21 @@ static const char *startup_source = "(let-values(((temp104_4)" " form96_0)" "((temp105_4)" -"(let-values(((v_254)" -" ctx_104))" -"(let-values(((the-struct_100)" -" v_254))" +"(let-values(((v_253)" +" ctx_103))" +"(let-values(((the-struct_99)" +" v_253))" "(if(expand-context/outer?" -" the-struct_100)" +" the-struct_99)" "(let-values(((def-ctx-scopes106_0)" "(box" " null))" "((inner107_0)" -"(let-values(((the-struct_101)" +"(let-values(((the-struct_100)" "(root-expand-context/outer-inner" -" v_254)))" +" v_253)))" "(if(expand-context/inner?" -" the-struct_101)" +" the-struct_100)" "(let-values(((stops108_0)" "(free-id-set" " at-phase_13" @@ -68712,91 +68723,91 @@ static const char *startup_source = " at-phase_13)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_101)" +" the-struct_100)" "(root-expand-context/inner-module-scopes" -" the-struct_101)" +" the-struct_100)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_101)" +" the-struct_100)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_101)" +" the-struct_100)" "(root-expand-context/inner-defined-syms" -" the-struct_101)" +" the-struct_100)" "(root-expand-context/inner-counter" -" the-struct_101)" +" the-struct_100)" "(root-expand-context/inner-lift-key" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-to-parsed?" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-phase" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-namespace" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-just-once?" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-module-begin-k" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-allow-unbound?" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-in-local-expand?" -" the-struct_101)" +" the-struct_100)" " stops108_0" "(expand-context/inner-declared-submodule-names" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-lifts" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-lift-envs" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-module-lifts" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-require-lifts" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-to-module-lifts" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-requires+provides" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-observer" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-for-serializable?" -" the-struct_101)" +" the-struct_100)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_101)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_101)))))" -"(expand-context/outer1.1" -" inner107_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_100)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_100)" -"(root-expand-context/outer-frame-id" -" the-struct_100)" -"(expand-context/outer-context" -" the-struct_100)" -"(expand-context/outer-env" -" the-struct_100)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_100)" -"(expand-context/outer-scopes" -" the-struct_100)" -" def-ctx-scopes106_0" -"(expand-context/outer-binding-layer" -" the-struct_100)" -"(expand-context/outer-reference-records" -" the-struct_100)" -"(expand-context/outer-only-immediate?" -" the-struct_100)" -"(expand-context/outer-need-eventually-defined" -" the-struct_100)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_100)" -"(expand-context/outer-name" " the-struct_100)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_100)))))" +"(expand-context/outer1.1" +" inner107_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_99)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_99)" +"(root-expand-context/outer-frame-id" +" the-struct_99)" +"(expand-context/outer-context" +" the-struct_99)" +"(expand-context/outer-env" +" the-struct_99)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_99)" +"(expand-context/outer-scopes" +" the-struct_99)" +" def-ctx-scopes106_0" +"(expand-context/outer-binding-layer" +" the-struct_99)" +"(expand-context/outer-reference-records" +" the-struct_99)" +"(expand-context/outer-only-immediate?" +" the-struct_99)" +"(expand-context/outer-need-eventually-defined" +" the-struct_99)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_99)" +"(expand-context/outer-name" +" the-struct_99)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_100))))))" +" the-struct_99))))))" "(expand7.1" " #f" " #f" @@ -68825,7 +68836,7 @@ static const char *startup_source = "(raise-syntax-error$1" " provide-form-name" " \"expansion was not a `begin' sequence\"" -" orig-s_60" +" orig-s_61" " spec_0)))" "(values))))" "(let-values(((ok?_72" @@ -68833,7 +68844,7 @@ static const char *startup_source = " spec101_0)" "(let-values(((s_380)" " exp-spec_0))" -"(let-values(((orig-s_73)" +"(let-values(((orig-s_74)" " s_380))" "(let-values(((begin100_1" " spec101_1)" @@ -68851,15 +68862,15 @@ static const char *startup_source = " s_381)))" " s_756))" "((spec103_0)" -"(let-values(((s_473)" +"(let-values(((s_478)" "(cdr" " s_381)))" "(let-values(((s_383)" "(if(syntax?$1" -" s_473)" +" s_478)" "(syntax-e$1" -" s_473)" -" s_473)))" +" s_478)" +" s_478)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" " s_383)))" @@ -68869,7 +68880,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_73))" +" orig-s_74))" "(let-values()" " flat-s_50)))))))" "(values" @@ -68878,7 +68889,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_73)))))" +" orig-s_74)))))" "(values" " #t" " begin100_1" @@ -68888,7 +68899,7 @@ static const char *startup_source = "(loop_118" " spec101_0" " at-phase_13" -" protected?_4" +" protected?_15" " layer_6)))" "(values" "(list*" @@ -68910,7 +68921,7 @@ static const char *startup_source = "(for-loop_92" " track-stxes_2" " exp-specs_2" -" rest_233)" +" rest_232)" "(values" " track-stxes_2" " exp-specs_2))))" @@ -68920,7 +68931,7 @@ static const char *startup_source = " for-loop_92)" " null" " null" -" lst_73)))))" +" lst_74)))))" "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" " loop_118)" @@ -68930,9 +68941,9 @@ static const char *startup_source = " 'raw)))))" "(define-values" "(parse-identifier!)" -"(lambda(spec_1 orig-s_74 sym_102 at-phase_14 ns_121 rp_2 protected?_5)" +"(lambda(spec_1 orig-s_75 sym_102 at-phase_14 ns_122 rp_2 protected?_16)" "(begin" -"(let-values(((b_91)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_121)))" +"(let-values(((b_91)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_122)))" "(let-values((()" "(begin" "(if b_91" @@ -68941,14 +68952,14 @@ static const char *startup_source = "(raise-syntax-error$1" " provide-form-name" " \"provided identifier is not defined or required\"" -" orig-s_74" +" orig-s_75" " spec_1)))" "(values))))" -"(let-values(((as-transformer?_6)(binding-for-transformer? b_91 spec_1 at-phase_14 ns_121)))" +"(let-values(((as-transformer?_6)(binding-for-transformer? b_91 spec_1 at-phase_14 ns_122)))" "(let-values(((immed-b_0)" "(let-values(((temp120_4) #t))" "(resolve+shift30.1 #f #f #f #f #f #f temp120_4 #t #f #f spec_1 at-phase_14))))" -"(let-values(((protected?116_0) protected?_5)((as-transformer?117_0) as-transformer?_6))" +"(let-values(((protected?116_0) protected?_16)((as-transformer?117_0) as-transformer?_6))" "(add-provide!107.1" " protected?116_0" " as-transformer?117_0" @@ -68958,10 +68969,10 @@ static const char *startup_source = " b_91" " immed-b_0" " spec_1" -" orig-s_74)))))))))" +" orig-s_75)))))))))" "(define-values" "(parse-struct!)" -"(lambda(id:struct_0 orig-s_75 fields_0 at-phase_15 ns_122 rp_3 protected?_6)" +"(lambda(id:struct_0 orig-s_76 fields_0 at-phase_15 ns_123 rp_3 protected?_17)" "(begin" "(let-values(((mk_0)" "(lambda(fmt_1)" @@ -68978,17 +68989,17 @@ 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_104 id:struct_0))))))" "(begin" -" (let-values (((lst_402) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_401) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_402)))" -"((letrec-values(((for-loop_304)" -"(lambda(lst_403)" +"(let-values()(check-list lst_401)))" +"((letrec-values(((for-loop_306)" +"(lambda(lst_402)" "(begin" " 'for-loop" -"(if(pair? lst_403)" -"(let-values(((fmt_3)(unsafe-car lst_403))((rest_238)(unsafe-cdr lst_403)))" +"(if(pair? lst_402)" +"(let-values(((fmt_3)(unsafe-car lst_402))((rest_237)(unsafe-cdr lst_402)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -68998,30 +69009,30 @@ static const char *startup_source = "(let-values(((id_139)(mk_0 fmt_3)))" "(parse-identifier!" " id_139" -" orig-s_75" +" orig-s_76" "(syntax-e$1 id_139)" " at-phase_15" -" ns_122" +" ns_123" " rp_3" -" protected?_6)))" +" protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_304 rest_238)(values))))" +"(if(not #f)(for-loop_306 rest_237)(values))))" "(values))))))" -" for-loop_304)" -" lst_402)))" +" for-loop_306)" +" lst_401)))" "(void)" -"(let-values(((lst_404) fields_0))" +"(let-values(((lst_403) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_404)))" -"((letrec-values(((for-loop_305)" -"(lambda(lst_405)" +"(let-values()(check-list lst_403)))" +"((letrec-values(((for-loop_307)" +"(lambda(lst_404)" "(begin" " 'for-loop" -"(if(pair? lst_405)" -"(let-values(((field_0)(unsafe-car lst_405))((rest_239)(unsafe-cdr lst_405)))" +"(if(pair? lst_404)" +"(let-values(((field_0)(unsafe-car lst_404))((rest_238)(unsafe-cdr lst_404)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69037,30 +69048,30 @@ static const char *startup_source = "(begin" "(parse-identifier!" " get-id_0" -" orig-s_75" +" orig-s_76" "(syntax-e$1 get-id_0)" " at-phase_15" -" ns_122" +" ns_123" " rp_3" -" protected?_6)" +" protected?_17)" "(parse-identifier!" " set-id_0" -" orig-s_75" +" orig-s_76" "(syntax-e$1 set-id_0)" " at-phase_15" -" ns_122" +" ns_123" " rp_3" -" protected?_6)))))" +" protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_305 rest_239)(values))))" +"(if(not #f)(for-loop_307 rest_238)(values))))" "(values))))))" -" for-loop_305)" -" lst_404)))" +" for-loop_307)" +" lst_403)))" "(void)))))))" "(define-values" "(parse-all-from)" -"(lambda(mod-path-stx_0 orig-s_76 self_32 except-ids_0 at-phase_16 ns_123 rp_4 protected?_7 ctx_105)" +"(lambda(mod-path-stx_0 orig-s_77 self_32 except-ids_0 at-phase_16 ns_124 rp_4 protected?_18 ctx_104)" "(begin" "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))" "(let-values((()" @@ -69068,13 +69079,13 @@ static const char *startup_source = "(if(1/module-path? mod-path_33)" "(void)" "(let-values()" -" (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_76 mod-path-stx_0)))" +" (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_77 mod-path-stx_0)))" "(values))))" -"(let-values(((mpi_52)(module-path->mpi/context mod-path_33 ctx_105)))" -"(parse-all-from-module mpi_52 #f orig-s_76 except-ids_0 #f at-phase_16 ns_123 rp_4 protected?_7)))))))" +"(let-values(((mpi_52)(module-path->mpi/context mod-path_33 ctx_104)))" +"(parse-all-from-module mpi_52 #f orig-s_77 except-ids_0 #f at-phase_16 ns_124 rp_4 protected?_18)))))))" "(define-values" "(parse-all-from-module)" -"(lambda(mpi_53 matching-stx_0 orig-s_77 except-ids_1 prefix-sym_0 at-phase_17 ns_26 rp_5 protected?_8)" +"(lambda(mpi_53 matching-stx_0 orig-s_78 except-ids_1 prefix-sym_0 at-phase_17 ns_26 rp_5 protected?_19)" "(begin" "(let-values(((requireds_2)(extract-module-requires rp_5 mpi_53 at-phase_17)))" "(let-values(((phase-desc_0)" @@ -69094,7 +69105,7 @@ static const char *startup_source = "(raise-syntax-error$1" " provide-form-name" " (format \"cannot provide from a module without a matching require~a\" (phase-desc_0))" -" orig-s_77" +" orig-s_78" " matching-stx_0)))" "(values))))" "(let-values(((add-prefix_1)" @@ -69104,18 +69115,18 @@ static const char *startup_source = " (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_105)) sym_105)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_406) requireds_2))" +"(let-values(((lst_405) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_406)))" -"((letrec-values(((for-loop_306)" -"(lambda(lst_280)" +"(let-values()(check-list lst_405)))" +"((letrec-values(((for-loop_308)" +"(lambda(lst_406)" "(begin" " 'for-loop" -"(if(pair? lst_280)" -"(let-values(((i_194)(unsafe-car lst_280))" -"((rest_240)(unsafe-cdr lst_280)))" +"(if(pair? lst_406)" +"(let-values(((i_193)(unsafe-car lst_406))" +"((rest_239)(unsafe-cdr lst_406)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69123,15 +69134,15 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((id_140)" -"(required-id i_194)))" -"(let-values(((phase_150)" +"(required-id i_193)))" +"(let-values(((phase_149)" "(required-phase" -" i_194)))" -"(if(let-values(((or-part_400)" +" i_193)))" +"(if(let-values(((or-part_398)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_150" +" phase_149" " at-phase_17)" "(free-identifier=?$1" " id_140" @@ -69139,13 +69150,13 @@ static const char *startup_source = " matching-stx_0" "(syntax-e$1" " id_140))" -" phase_150" -" phase_150)" +" phase_149" +" phase_149)" " #f))" " #f)))" -"(if or-part_400" -" or-part_400" -"(let-values(((lst_234)" +"(if or-part_398" +" or-part_398" +"(let-values(((lst_235)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69153,8 +69164,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_234)))" -"((letrec-values(((for-loop_307)" +" lst_235)))" +"((letrec-values(((for-loop_309)" "(lambda(result_121" " lst_407)" "(begin" @@ -69164,7 +69175,7 @@ static const char *startup_source = "(let-values(((except-id_0)" "(unsafe-car" " lst_407))" -"((rest_214)" +"((rest_213)" "(unsafe-cdr" " lst_407)))" "(let-values(((result_122)" @@ -69175,8 +69186,8 @@ static const char *startup_source = "(if(free-identifier=?$1" " id_140" " except-id_0" -" phase_150" -" phase_150)" +" phase_149" +" phase_149)" "(hash-set!" " found_0" " except-id_0" @@ -69191,20 +69202,20 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_307" +"(for-loop_309" " result_122" -" rest_214)" +" rest_213)" " result_122)))" " result_121)))))" -" for-loop_307)" +" for-loop_309)" " #f" -" lst_234)))))" +" lst_235)))))" "(void)" "(let-values()" "(let-values(((b_92)" "(resolve+shift/extra-inspector" " id_140" -" phase_150" +" phase_149" " ns_26)))" "(let-values(((immed-b_1)" "(let-values(((temp132_2)" @@ -69221,13 +69232,13 @@ static const char *startup_source = " #f" " #f" " id_140" -" phase_150))))" +" phase_149))))" "(let-values(((temp122_4)" "(add-prefix_1" "(syntax-e$1" " id_140)))" "((phase123_0)" -" phase_150)" +" phase_149)" "((b124_0)" " b_92)" "((immed-b125_0)" @@ -69235,12 +69246,12 @@ static const char *startup_source = "((id126_0)" " id_140)" "((orig-s127_0)" -" orig-s_77)" +" orig-s_78)" "((protected?128_0)" -" protected?_8)" +" protected?_19)" "((temp129_3)" "(required-as-transformer?" -" i_194)))" +" i_193)))" "(add-provide!107.1" " protected?128_0" " temp129_3" @@ -69253,27 +69264,27 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_306 rest_240)(values))))" +"(if(not #f)(for-loop_308 rest_239)(values))))" "(values))))))" -" for-loop_306)" -" lst_406)))" +" for-loop_308)" +" lst_405)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_365) except-ids_1))" +"(let-values(((lst_364) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_365)))" -"((letrec-values(((for-loop_308)" -"(lambda(lst_367)" +"(let-values()(check-list lst_364)))" +"((letrec-values(((for-loop_310)" +"(lambda(lst_366)" "(begin" " 'for-loop" -"(if(pair? lst_367)" -"(let-values(((except-id_1)(unsafe-car lst_367))" -"((rest_241)(unsafe-cdr lst_367)))" +"(if(pair? lst_366)" +"(let-values(((except-id_1)(unsafe-car lst_366))" +"((rest_240)(unsafe-cdr lst_366)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69287,7 +69298,7 @@ static const char *startup_source = " #f)))" "(if or-part_162" " or-part_162" -"(let-values(((lst_368)" +"(let-values(((lst_367)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69295,20 +69306,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_368)))" -"((letrec-values(((for-loop_309)" +" lst_367)))" +"((letrec-values(((for-loop_311)" "(lambda(result_124" -" lst_141)" +" lst_142)" "(begin" " 'for-loop" "(if(pair?" -" lst_141)" -"(let-values(((i_195)" +" lst_142)" +"(let-values(((i_194)" "(unsafe-car" -" lst_141))" -"((rest_217)" +" lst_142))" +"((rest_216)" "(unsafe-cdr" -" lst_141)))" +" lst_142)))" "(let-values(((result_125)" "(let-values()" "(let-values(((result_126)" @@ -69316,32 +69327,32 @@ static const char *startup_source = "(let-values()" "(let-values(((id_141)" "(required-id" -" i_195)))" -"(let-values(((phase_151)" +" i_194)))" +"(let-values(((phase_150)" "(required-phase" -" i_195)))" +" i_194)))" "(free-identifier=?$1" " id_141" " except-id_1" -" phase_151" -" phase_151)))))))" +" phase_150" +" phase_150)))))))" "(values" " result_126)))))" "(if(if(not" "((lambda x_93" " result_125)" -" i_195))" +" i_194))" "(not" " #f)" " #f)" -"(for-loop_309" +"(for-loop_311" " result_125" -" rest_217)" +" rest_216)" " result_125)))" " result_124)))))" -" for-loop_309)" +" for-loop_311)" " #f" -" lst_368)))))" +" lst_367)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -69351,14 +69362,14 @@ static const char *startup_source = " \"excluded identifier was not defined or required in the module~a\"" " \"excluded identifier was not required from the specified module~a\")" "(phase-desc_0))" -" orig-s_77" +" orig-s_78" " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_308 rest_241)(values))))" +"(if(not #f)(for-loop_310 rest_240)(values))))" "(values))))))" -" for-loop_308)" -" lst_365)))" +" for-loop_310)" +" lst_364)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -69374,13 +69385,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_408)))" -"((letrec-values(((for-loop_310)" -"(lambda(lst_80)" +"((letrec-values(((for-loop_312)" +"(lambda(lst_81)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((body_21)(unsafe-car lst_80))" -"((rest_38)(unsafe-cdr lst_80)))" +"(if(pair? lst_81)" +"(let-values(((body_21)(unsafe-car lst_81))" +"((rest_38)(unsafe-cdr lst_81)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69403,11 +69414,11 @@ static const char *startup_source = "(parsed-define-values-syms" " p_38))" " p_38))" -"(if(let-values(((or-part_222)" +"(if(let-values(((or-part_223)" "(parsed-#%declare?" " p_38)))" -"(if or-part_222" -" or-part_222" +"(if or-part_223" +" or-part_223" "(let-values(((or-part_3)" "(parsed-module?" " p_38)))" @@ -69422,9 +69433,9 @@ static const char *startup_source = " p_38))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_310 rest_38)(values))))" +"(if(not #f)(for-loop_312 rest_38)(values))))" "(values))))))" -" for-loop_310)" +" for-loop_312)" " lst_408)))" "(void)))))" "((check-expr_0)" @@ -69446,18 +69457,18 @@ static const char *startup_source = "(let-values()" "(let-values(((rands_1)(parsed-app-rands e_86)))" "(begin" -"(let-values(((lst_74) rands_1))" +"(let-values(((lst_75) rands_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_74)))" +"(let-values()(check-list lst_75)))" "((letrec-values(((for-loop_70)" -"(lambda(lst_81)" +"(lambda(lst_82)" "(begin" " 'for-loop" -"(if(pair? lst_81)" -"(let-values(((rand_0)(unsafe-car lst_81))" -"((rest_242)(unsafe-cdr lst_81)))" +"(if(pair? lst_82)" +"(let-values(((rand_0)(unsafe-car lst_82))" +"((rest_241)(unsafe-cdr lst_82)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69470,10 +69481,10 @@ static const char *startup_source = " e_86))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_70 rest_242)(values))))" +"(if(not #f)(for-loop_70 rest_241)(values))))" "(values))))))" " for-loop_70)" -" lst_74)))" +" lst_75)))" "(void)" "(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_86))))" "(if(if(equal? tmp_64 'cons) #t(equal? tmp_64 'list))" @@ -69484,9 +69495,9 @@ static const char *startup_source = "(let-values()(check-count 3 num-results_0 enclosing_15))" "(if(equal? tmp_64 'gensym)" "(let-values()" -"(if(let-values(((or-part_401)(= 0(length rands_1))))" -"(if or-part_401" -" or-part_401" +"(if(let-values(((or-part_399)(= 0(length rands_1))))" +"(if or-part_399" +" or-part_399" "(if(= 1(length rands_1))" "(quoted-string?(car rands_1))" " #f)))" @@ -69508,18 +69519,18 @@ static const char *startup_source = "(if(parsed-case-lambda? e_73)" "(let-values()" "(begin" -"(let-values(((lst_266)(parsed-case-lambda-clauses e_73)))" +"(let-values(((lst_267)(parsed-case-lambda-clauses e_73)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_266)))" -"((letrec-values(((for-loop_271)" +"(let-values()(check-list lst_267)))" +"((letrec-values(((for-loop_274)" "(lambda(lst_409)" "(begin" " 'for-loop" "(if(pair? lst_409)" "(let-values(((clause_4)(unsafe-car lst_409))" -"((rest_243)(unsafe-cdr lst_409)))" +"((rest_242)(unsafe-cdr lst_409)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69530,27 +69541,27 @@ static const char *startup_source = "(cadr clause_4)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_271 rest_243)(values))))" +"(if(not #f)(for-loop_274 rest_242)(values))))" "(values))))))" -" for-loop_271)" -" lst_266)))" +" for-loop_274)" +" lst_267)))" "(void)))" "(if(parsed-app? e_73)" "(let-values()" "(begin" "(check-no-disallowed-expr_0(parsed-app-rator e_73))" -"(let-values(((lst_217)(parsed-app-rands e_73)))" +"(let-values(((lst_218)(parsed-app-rands e_73)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_217)))" +"(let-values()(check-list lst_218)))" "((letrec-values(((for-loop_101)" -"(lambda(lst_260)" +"(lambda(lst_261)" "(begin" " 'for-loop" -"(if(pair? lst_260)" -"(let-values(((e_87)(unsafe-car lst_260))" -"((rest_244)(unsafe-cdr lst_260)))" +"(if(pair? lst_261)" +"(let-values(((e_87)(unsafe-car lst_261))" +"((rest_243)(unsafe-cdr lst_261)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69561,10 +69572,10 @@ static const char *startup_source = " e_87))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_101 rest_244)(values))))" +"(if(not #f)(for-loop_101 rest_243)(values))))" "(values))))))" " for-loop_101)" -" lst_217)))" +" lst_218)))" "(void)))" "(if(parsed-if? e_73)" "(let-values()" @@ -69608,14 +69619,14 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_24)))" "((letrec-values(((for-loop_241)" -"(lambda(lst_75)" +"(lambda(lst_76)" "(begin" " 'for-loop" -"(if(pair? lst_75)" +"(if(pair? lst_76)" "(let-values(((clause_5)" -"(unsafe-car lst_75))" -"((rest_245)" -"(unsafe-cdr lst_75)))" +"(unsafe-car lst_76))" +"((rest_244)" +"(unsafe-cdr lst_76)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69628,7 +69639,7 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_241 rest_245)" +"(for-loop_241 rest_244)" "(values))))" "(values))))))" " for-loop_241)" @@ -69644,12 +69655,12 @@ static const char *startup_source = "(begin" " 'check-body-no-disallowed-expr" "(begin" -"(let-values(((lst_78) l_48))" +"(let-values(((lst_79) l_48))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_261)" +"(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_264)" "(lambda(lst_17)" "(begin" " 'for-loop" @@ -69666,10 +69677,10 @@ static const char *startup_source = " e_88))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_261 rest_36)(values))))" +"(if(not #f)(for-loop_264 rest_36)(values))))" "(values))))))" -" for-loop_261)" -" lst_78)))" +" for-loop_264)" +" lst_79)))" "(void))))))" "(check-body_0 bodys_13)))))" "(define-values" @@ -69683,16 +69694,16 @@ static const char *startup_source = "(if(let-values(((or-part_167)(number? d_38)))" "(if or-part_167" " or-part_167" -"(let-values(((or-part_173)(boolean? d_38)))" -"(if or-part_173" -" or-part_173" -"(let-values(((or-part_174)(symbol? d_38)))" +"(let-values(((or-part_174)(boolean? d_38)))" "(if or-part_174" " or-part_174" -"(let-values(((or-part_175)(string? d_38)))" +"(let-values(((or-part_175)(symbol? d_38)))" "(if or-part_175" " or-part_175" -"(let-values(((or-part_176)(bytes? d_38)))(if or-part_176 or-part_176(null? d_38)))))))))))" +"(let-values(((or-part_176)(string? d_38)))" +"(if or-part_176" +" or-part_176" +"(let-values(((or-part_177)(bytes? d_38)))(if or-part_177 or-part_177(null? d_38)))))))))))" "(let-values()(void))" "(let-values()(disallow e_89))))))" "(define-values" @@ -69722,100 +69733,100 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_183 ctx_106)" +"(lambda(s_183 ctx_105)" "(begin" -"(if(eq?(expand-context-context ctx_106) 'top-level)" +"(if(eq?(expand-context-context ctx_105) 'top-level)" "(void)" "(let-values()" "(begin" -"(let-values(((obs_122)(expand-context-observer ctx_106)))" +"(let-values(((obs_122)(expand-context-observer ctx_105)))" "(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_183))))" "(let-values()" -"(let-values(((s223_0) s_183)((ctx224_0) ctx_106)((temp225_3) #f))" +"(let-values(((s223_0) s_183)((ctx224_0) ctx_105)((temp225_3) #f))" "(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_0 ctx224_0 temp225_3)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_306 ctx_107)" +"(lambda(s_306 ctx_106)" "(begin" -"(let-values(((obs_123)(expand-context-observer ctx_107)))" +"(let-values(((obs_123)(expand-context-observer ctx_106)))" "(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_306)))))" "(void" "(add-core-form!*" " '#%module-begin" -"(lambda(s_83 ctx_108)" +"(lambda(s_83 ctx_107)" "(begin" -"(let-values(((obs_124)(expand-context-observer ctx_108)))" +"(let-values(((obs_124)(expand-context-observer ctx_107)))" "(if obs_124(let-values()(let-values()(call-expand-observe obs_124 'prim-module-begin)))(void)))" -"(if(eq?(expand-context-context ctx_108) 'module-begin)" +"(if(eq?(expand-context-context ctx_107) 'module-begin)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_83)))" -"(if(expand-context-module-begin-k ctx_108)" +"(if(expand-context-module-begin-k ctx_107)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_83)))" -"((expand-context-module-begin-k ctx_108)" +"((expand-context-module-begin-k ctx_107)" " s_83" -"(let-values(((v_38) ctx_108))" -"(let-values(((the-struct_102) v_38))" -"(if(expand-context/outer? the-struct_102)" +"(let-values(((v_38) ctx_107))" +"(let-values(((the-struct_101) v_38))" +"(if(expand-context/outer? the-struct_101)" "(let-values(((inner226_0)" -"(let-values(((the-struct_103)(root-expand-context/outer-inner v_38)))" -"(if(expand-context/inner? the-struct_103)" +"(let-values(((the-struct_102)(root-expand-context/outer-inner v_38)))" +"(if(expand-context/inner? the-struct_102)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_103)" -"(root-expand-context/inner-module-scopes the-struct_103)" -"(root-expand-context/inner-top-level-bind-scope the-struct_103)" -"(root-expand-context/inner-all-scopes-stx the-struct_103)" -"(root-expand-context/inner-defined-syms the-struct_103)" -"(root-expand-context/inner-counter the-struct_103)" -"(root-expand-context/inner-lift-key the-struct_103)" -"(expand-context/inner-to-parsed? the-struct_103)" -"(expand-context/inner-phase the-struct_103)" -"(expand-context/inner-namespace the-struct_103)" -"(expand-context/inner-just-once? the-struct_103)" +"(root-expand-context/inner-self-mpi the-struct_102)" +"(root-expand-context/inner-module-scopes the-struct_102)" +"(root-expand-context/inner-top-level-bind-scope the-struct_102)" +"(root-expand-context/inner-all-scopes-stx the-struct_102)" +"(root-expand-context/inner-defined-syms the-struct_102)" +"(root-expand-context/inner-counter the-struct_102)" +"(root-expand-context/inner-lift-key the-struct_102)" +"(expand-context/inner-to-parsed? the-struct_102)" +"(expand-context/inner-phase the-struct_102)" +"(expand-context/inner-namespace the-struct_102)" +"(expand-context/inner-just-once? the-struct_102)" " module-begin-k227_0" -"(expand-context/inner-allow-unbound? the-struct_103)" -"(expand-context/inner-in-local-expand? the-struct_103)" -"(expand-context/inner-stops the-struct_103)" -"(expand-context/inner-declared-submodule-names the-struct_103)" -"(expand-context/inner-lifts the-struct_103)" -"(expand-context/inner-lift-envs the-struct_103)" -"(expand-context/inner-module-lifts the-struct_103)" -"(expand-context/inner-require-lifts the-struct_103)" -"(expand-context/inner-to-module-lifts the-struct_103)" -"(expand-context/inner-requires+provides the-struct_103)" -"(expand-context/inner-observer the-struct_103)" -"(expand-context/inner-for-serializable? the-struct_103)" -"(expand-context/inner-should-not-encounter-macros? the-struct_103)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_103)))))" +"(expand-context/inner-allow-unbound? the-struct_102)" +"(expand-context/inner-in-local-expand? the-struct_102)" +"(expand-context/inner-stops the-struct_102)" +"(expand-context/inner-declared-submodule-names the-struct_102)" +"(expand-context/inner-lifts the-struct_102)" +"(expand-context/inner-lift-envs the-struct_102)" +"(expand-context/inner-module-lifts the-struct_102)" +"(expand-context/inner-require-lifts the-struct_102)" +"(expand-context/inner-to-module-lifts the-struct_102)" +"(expand-context/inner-requires+provides the-struct_102)" +"(expand-context/inner-observer the-struct_102)" +"(expand-context/inner-for-serializable? the-struct_102)" +"(expand-context/inner-should-not-encounter-macros? the-struct_102)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_102)))))" "(expand-context/outer1.1" " inner226_0" -"(root-expand-context/outer-post-expansion-scope the-struct_102)" -"(root-expand-context/outer-use-site-scopes the-struct_102)" -"(root-expand-context/outer-frame-id the-struct_102)" -"(expand-context/outer-context the-struct_102)" -"(expand-context/outer-env the-struct_102)" -"(expand-context/outer-post-expansion-scope-action the-struct_102)" -"(expand-context/outer-scopes the-struct_102)" -"(expand-context/outer-def-ctx-scopes the-struct_102)" -"(expand-context/outer-binding-layer the-struct_102)" -"(expand-context/outer-reference-records the-struct_102)" -"(expand-context/outer-only-immediate? the-struct_102)" -"(expand-context/outer-need-eventually-defined the-struct_102)" -"(expand-context/outer-current-introduction-scopes the-struct_102)" -"(expand-context/outer-name the-struct_102)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_102)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_101)" +"(root-expand-context/outer-use-site-scopes the-struct_101)" +"(root-expand-context/outer-frame-id the-struct_101)" +"(expand-context/outer-context the-struct_101)" +"(expand-context/outer-env the-struct_101)" +"(expand-context/outer-post-expansion-scope-action the-struct_101)" +"(expand-context/outer-scopes the-struct_101)" +"(expand-context/outer-def-ctx-scopes the-struct_101)" +"(expand-context/outer-binding-layer the-struct_101)" +"(expand-context/outer-reference-records the-struct_101)" +"(expand-context/outer-only-immediate? the-struct_101)" +"(expand-context/outer-need-eventually-defined the-struct_101)" +"(expand-context/outer-current-introduction-scopes the-struct_101)" +"(expand-context/outer-name the-struct_101)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_101)))))))))" "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_413 ctx_109)" +"(lambda(s_416 ctx_108)" "(begin" -"(let-values(((obs_125)(expand-context-observer ctx_109)))" +"(let-values(((obs_125)(expand-context-observer ctx_108)))" "(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_413)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_416)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -69858,63 +69869,63 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_126)(expand-context-observer init-ctx_0)))" -"(if obs_126" +"(let-values(((obs_18)(expand-context-observer init-ctx_0)))" +"(if obs_18" "(let-values()" -"(let-values()(call-expand-observe obs_126 'prim-module)))" +"(let-values()(call-expand-observe obs_18 'prim-module)))" "(void)))" "(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_501) disarmed-s_24))" -"(let-values(((orig-s_78) s_501))" +"(let-values(((s_505) disarmed-s_24))" +"(let-values(((orig-s_79) s_505))" "(let-values(((module228_1" " id:module-name229_1" " initial-require230_1" " body231_1)" "(let-values(((s_315)" -"(if(syntax?$1 s_501)" -"(syntax-e$1 s_501)" -" s_501)))" +"(if(syntax?$1 s_505)" +"(syntax-e$1 s_505)" +" s_505)))" "(if(pair? s_315)" "(let-values(((module232_0)" -"(let-values(((s_434)(car s_315)))" -" s_434))" +"(let-values(((s_440)(car s_315)))" +" s_440))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_485)(cdr s_315)))" -"(let-values(((s_486)" -"(if(syntax?$1 s_485)" -"(syntax-e$1 s_485)" -" s_485)))" -"(if(pair? s_486)" +"(let-values(((s_490)(cdr s_315)))" +"(let-values(((s_491)" +"(if(syntax?$1 s_490)" +"(syntax-e$1 s_490)" +" s_490)))" +"(if(pair? s_491)" "(let-values(((id:module-name236_0)" "(let-values(((s_316)" "(car" -" s_486)))" -"(if(let-values(((or-part_373)" +" s_491)))" +"(if(let-values(((or-part_371)" "(if(syntax?$1" " s_316)" "(symbol?" "(syntax-e$1" " s_316))" " #f)))" -"(if or-part_373" -" or-part_373" +"(if or-part_371" +" or-part_371" "(symbol?" " s_316)))" " s_316" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_78" +" orig-s_79" " s_316))))" "((initial-require237_0" " body238_0)" "(let-values(((s_55)" "(cdr" -" s_486)))" +" s_491)))" "(let-values(((s_317)" "(if(syntax?$1" " s_55)" @@ -69924,15 +69935,15 @@ static const char *startup_source = "(if(pair?" " s_317)" "(let-values(((initial-require239_0)" -"(let-values(((s_436)" +"(let-values(((s_442)" "(car" " s_317)))" -" s_436))" +" s_442))" "((body240_0)" "(let-values(((s_389)" "(cdr" " s_317)))" -"(let-values(((s_437)" +"(let-values(((s_443)" "(if(syntax?$1" " s_389)" "(syntax-e$1" @@ -69940,14 +69951,14 @@ static const char *startup_source = " s_389)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_437)))" +" s_443)))" "(if(not" " flat-s_51)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_78))" +" orig-s_79))" "(let-values()" " flat-s_51)))))))" "(values" @@ -69956,7 +69967,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_78))))))" +" orig-s_79))))))" "(values" " id:module-name236_0" " initial-require237_0" @@ -69964,13 +69975,13 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_78))))))" +" orig-s_79))))))" "(values" " module232_0" " id:module-name233_0" " initial-require234_0" " body235_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_78)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_79)))))" "(values" " #t" " module228_1" @@ -69991,9 +70002,9 @@ static const char *startup_source = "(let-values(((initial-require_0)(syntax->datum$1 initial-require230_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_374) keep-enclosing-scope-at-phase_0))" -"(if or-part_374" -" or-part_374" +"(if(let-values(((or-part_372) keep-enclosing-scope-at-phase_0))" +"(if or-part_372" +" or-part_372" "(1/module-path? initial-require_0)))" "(void)" "(let-values()" @@ -70003,7 +70014,7 @@ static const char *startup_source = " s_16" " initial-require230_0)))" "(values))))" -"(let-values(((phase_152) 0))" +"(let-values(((phase_151) 0))" "(let-values(((module-name-sym_0)(syntax-e$1 id:module-name229_0)))" "(let-values(((outside-scope_1)(new-scope 'module)))" "(let-values(((inside-scope_0)(new-multi-scope module-name-sym_0)))" @@ -70084,7 +70095,7 @@ static const char *startup_source = " ns243_0)" "(begin" " 'make-m-ns244" -"(let-values(((ns_124) ns243_0))" +"(let-values(((ns_125) ns243_0))" "(let-values(((for-submodule?_1)" "(if for-submodule?242_0" " for-submodule?241_0" @@ -70102,7 +70113,7 @@ static const char *startup_source = " for-submodule?265_0" " self263_0" " root-ctx264_0" -" ns_124)))))))))" +" ns_125)))))))))" "(let-values()" "(let-values()" "(let-values(((m-ns_19)" @@ -70113,115 +70124,115 @@ static const char *startup_source = " #f" " #f" " temp266_0))))" -"(let-values(((ctx_110)" +"(let-values(((ctx_109)" "(let-values(((v_99)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_104)" +"(let-values(((the-struct_103)" " v_99))" "(if(expand-context/outer?" -" the-struct_104)" +" the-struct_103)" "(let-values(((post-expansion-scope-action267_0)" " add-scope)" "((inner268_0)" -"(let-values(((the-struct_105)" +"(let-values(((the-struct_104)" "(root-expand-context/outer-inner" " v_99)))" "(if(expand-context/inner?" -" the-struct_105)" +" the-struct_104)" "(let-values(((allow-unbound?269_0)" " #f)" "((namespace270_0)" " m-ns_19)" "((phase271_0)" -" phase_152)" +" phase_151)" "((just-once?272_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_105)" +" the-struct_104)" "(root-expand-context/inner-module-scopes" -" the-struct_105)" +" the-struct_104)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_105)" +" the-struct_104)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_105)" +" the-struct_104)" "(root-expand-context/inner-defined-syms" -" the-struct_105)" +" the-struct_104)" "(root-expand-context/inner-counter" -" the-struct_105)" +" the-struct_104)" "(root-expand-context/inner-lift-key" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-to-parsed?" -" the-struct_105)" +" the-struct_104)" " phase271_0" " namespace270_0" " just-once?272_0" "(expand-context/inner-module-begin-k" -" the-struct_105)" +" the-struct_104)" " allow-unbound?269_0" "(expand-context/inner-in-local-expand?" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-stops" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-declared-submodule-names" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-lifts" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-lift-envs" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-module-lifts" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-require-lifts" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-to-module-lifts" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-requires+provides" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-observer" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-for-serializable?" -" the-struct_105)" +" the-struct_104)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_105)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_105)))))" -"(expand-context/outer1.1" -" inner268_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_104)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_104)" -"(root-expand-context/outer-frame-id" -" the-struct_104)" -"(expand-context/outer-context" -" the-struct_104)" -"(expand-context/outer-env" -" the-struct_104)" -" post-expansion-scope-action267_0" -"(expand-context/outer-scopes" -" the-struct_104)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_104)" -"(expand-context/outer-binding-layer" -" the-struct_104)" -"(expand-context/outer-reference-records" -" the-struct_104)" -"(expand-context/outer-only-immediate?" -" the-struct_104)" -"(expand-context/outer-need-eventually-defined" -" the-struct_104)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_104)" -"(expand-context/outer-name" " the-struct_104)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_104)))))" +"(expand-context/outer1.1" +" inner268_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_103)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_103)" +"(root-expand-context/outer-frame-id" +" the-struct_103)" +"(expand-context/outer-context" +" the-struct_103)" +"(expand-context/outer-env" +" the-struct_103)" +" post-expansion-scope-action267_0" +"(expand-context/outer-scopes" +" the-struct_103)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_103)" +"(expand-context/outer-binding-layer" +" the-struct_103)" +"(expand-context/outer-reference-records" +" the-struct_103)" +"(expand-context/outer-only-immediate?" +" the-struct_103)" +"(expand-context/outer-need-eventually-defined" +" the-struct_103)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_103)" +"(expand-context/outer-name" +" the-struct_103)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_104))))))" +" the-struct_103))))))" "(let-values(((bodys_15)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" @@ -70231,51 +70242,51 @@ static const char *startup_source = " _274_0" " _275_0" " body276_0)" -"(let-values(((s_417)" +"(let-values(((s_757)" " scoped-s_0))" -"(let-values(((orig-s_79)" -" s_417))" +"(let-values(((orig-s_80)" +" s_757))" "(let-values(((_273_1" " _274_1" " _275_1" " body276_1)" -"(let-values(((s_408)" +"(let-values(((s_411)" "(if(syntax?$1" -" s_417)" +" s_757)" "(syntax-e$1" -" s_417)" -" s_417)))" +" s_757)" +" s_757)))" "(if(pair?" -" s_408)" +" s_411)" "(let-values(((_277_0)" "(let-values(((s_153)" "(car" -" s_408)))" +" s_411)))" " s_153))" "((_278_0" " _279_0" " body280_0)" "(let-values(((s_90)" "(cdr" -" s_408)))" -"(let-values(((s_410)" +" s_411)))" +"(let-values(((s_413)" "(if(syntax?$1" " s_90)" "(syntax-e$1" " s_90)" " s_90)))" "(if(pair?" -" s_410)" +" s_413)" "(let-values(((_281_0)" -"(let-values(((s_738)" +"(let-values(((s_422)" "(car" -" s_410)))" -" s_738))" +" s_413)))" +" s_422))" "((_282_0" " body283_0)" "(let-values(((s_205)" "(cdr" -" s_410)))" +" s_413)))" "(let-values(((s_39)" "(if(syntax?$1" " s_205)" @@ -70308,7 +70319,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_79))" +" orig-s_80))" "(let-values()" " flat-s_52)))))))" "(values" @@ -70317,7 +70328,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_79))))))" +" orig-s_80))))))" "(values" " _281_0" " _282_0" @@ -70325,7 +70336,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_79))))))" +" orig-s_80))))))" "(values" " _277_0" " _278_0" @@ -70334,7 +70345,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_79)))))" +" orig-s_80)))))" "(values" " #t" " _273_1" @@ -70414,14 +70425,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_127)" +"(let-values(((obs_126)" "(expand-context-observer" " init-ctx_0)))" -"(if obs_127" +"(if obs_126" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_127" +" obs_126" " 'prepare-env)))" "(void)))" "(values))))" @@ -70462,22 +70473,22 @@ static const char *startup_source = "(set! again?_0" " #t)" "(values))))" -"(let-values(((ctx_111)" -"(let-values(((v_211)" +"(let-values(((ctx_110)" +"(let-values(((v_210)" " mb-init-ctx_0))" -"(let-values(((the-struct_81)" -" v_211))" +"(let-values(((the-struct_80)" +" v_210))" "(if(expand-context/outer?" -" the-struct_81)" +" the-struct_80)" "(let-values(((inner306_0)" -"(let-values(((the-struct_106)" +"(let-values(((the-struct_105)" "(root-expand-context/outer-inner" -" v_211)))" +" v_210)))" "(if(expand-context/inner?" -" the-struct_106)" +" the-struct_105)" "(let-values(((module-begin-k307_0)" "(lambda(s_214" -" ctx_112)" +" ctx_111)" "(begin" " 'module-begin-k307" "(let-values(((new-requires+provides_0)" @@ -70512,7 +70523,7 @@ static const char *startup_source = "(lambda()" "(module-begin-k_1" " s_214" -" ctx_112))" +" ctx_111))" "(lambda()" "(begin" "(set! requires+provides_6" @@ -70523,92 +70534,92 @@ static const char *startup_source = " compiled-module-box310_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-module-scopes" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-defined-syms" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-counter" -" the-struct_106)" +" the-struct_105)" "(root-expand-context/inner-lift-key" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-to-parsed?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-phase" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-namespace" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-just-once?" -" the-struct_106)" +" the-struct_105)" " module-begin-k307_0" "(expand-context/inner-allow-unbound?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-in-local-expand?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-stops" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-declared-submodule-names" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-lifts" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-lift-envs" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-module-lifts" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-require-lifts" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-to-module-lifts" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-requires+provides" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-observer" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-for-serializable?" -" the-struct_106)" +" the-struct_105)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_106)))" +" the-struct_105)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_106)))))" +" the-struct_105)))))" "(expand-context/outer1.1" " inner306_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_81)" +" the-struct_80)" "(root-expand-context/outer-use-site-scopes" -" the-struct_81)" +" the-struct_80)" "(root-expand-context/outer-frame-id" -" the-struct_81)" +" the-struct_80)" "(expand-context/outer-context" -" the-struct_81)" +" the-struct_80)" "(expand-context/outer-env" -" the-struct_81)" +" the-struct_80)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_81)" +" the-struct_80)" "(expand-context/outer-scopes" -" the-struct_81)" +" the-struct_80)" "(expand-context/outer-def-ctx-scopes" -" the-struct_81)" +" the-struct_80)" "(expand-context/outer-binding-layer" -" the-struct_81)" +" the-struct_80)" "(expand-context/outer-reference-records" -" the-struct_81)" +" the-struct_80)" "(expand-context/outer-only-immediate?" -" the-struct_81)" +" the-struct_80)" "(expand-context/outer-need-eventually-defined" -" the-struct_81)" +" the-struct_80)" "(expand-context/outer-current-introduction-scopes" -" the-struct_81)" +" the-struct_80)" "(expand-context/outer-name" -" the-struct_81)))" +" the-struct_80)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_81))))))" +" the-struct_80))))))" "(let-values(((added-s_2)" "(add-scope" " mb-s_0" @@ -70617,7 +70628,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_73)" "(expand-context-observer" -" ctx_111)))" +" ctx_110)))" "(if obs_73" "(let-values()" "(let-values()" @@ -70633,30 +70644,30 @@ static const char *startup_source = "(let-values(((ok?_75" " #%module-begin301_0" " body302_0)" -"(let-values(((s_443)" +"(let-values(((s_449)" " disarmed-mb-s_0))" -"(let-values(((orig-s_80)" -" s_443))" +"(let-values(((orig-s_81)" +" s_449))" "(let-values(((#%module-begin301_1" " body302_1)" "(let-values(((s_114)" "(if(syntax?$1" -" s_443)" +" s_449)" "(syntax-e$1" -" s_443)" -" s_443)))" +" s_449)" +" s_449)))" "(if(pair?" " s_114)" "(let-values(((#%module-begin303_0)" -"(let-values(((s_757)" +"(let-values(((s_758)" "(car" " s_114)))" -" s_757))" +" s_758))" "((body304_1)" "(let-values(((s_215)" "(cdr" " s_114)))" -"(let-values(((s_743)" +"(let-values(((s_426)" "(if(syntax?$1" " s_215)" "(syntax-e$1" @@ -70664,14 +70675,14 @@ static const char *startup_source = " s_215)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_743)))" +" s_426)))" "(if(not" " flat-s_53)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_80))" +" orig-s_81))" "(let-values()" " flat-s_53)))))))" "(values" @@ -70680,7 +70691,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_80)))))" +" orig-s_81)))))" "(values" " #t" " #%module-begin301_1" @@ -70689,7 +70700,7 @@ static const char *startup_source = " body302_0))" "(let-values(((rebuild-mb-s_0)" "(let-values(((ctx316_0)" -" ctx_111)" +" ctx_110)" "((mb-s317_0)" " mb-s_0))" "(keep-as-needed74.1" @@ -70712,7 +70723,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_17" -" phase_153)" +" phase_152)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -70720,14 +70731,14 @@ static const char *startup_source = " null)))" "(let-values(((to-parsed?_5)" "(expand-context-to-parsed?" -" ctx_111)))" +" ctx_110)))" "(let-values(((partial-body-ctx_0)" -"(let-values(((v_255)" -" ctx_111))" -"(let-values(((the-struct_107)" -" v_255))" +"(let-values(((v_254)" +" ctx_110))" +"(let-values(((the-struct_106)" +" v_254))" "(if(expand-context/outer?" -" the-struct_107)" +" the-struct_106)" "(let-values(((context326_0)" " 'module)" "((def-ctx-scopes327_0)" @@ -70735,22 +70746,22 @@ static const char *startup_source = "((need-eventually-defined328_0)" " need-eventually-defined_1)" "((inner329_0)" -"(let-values(((the-struct_108)" +"(let-values(((the-struct_107)" "(root-expand-context/outer-inner" -" v_255)))" +" v_254)))" "(if(expand-context/inner?" -" the-struct_108)" +" the-struct_107)" "(let-values(((phase330_0)" -" phase_153)" +" phase_152)" "((namespace331_0)" "(namespace->namespace-at-phase" " m-ns_19" -" phase_153))" +" phase_152))" "((stops332_0)" "(free-id-set" -" phase_153" +" phase_152" "(module-expand-stop-ids" -" phase_153)))" +" phase_152)))" "((declared-submodule-names333_0)" " declared-submodule-names_3)" "((lift-key334_0)" @@ -70770,11 +70781,11 @@ static const char *startup_source = " temp339_0)))" "((module-lifts336_0)" "(make-module-lift-context" -" phase_153" +" phase_152" " #t))" "((require-lifts337_0)" "(make-require-lift-context" -" phase_153" +" phase_152" "(let-values(((declared-submodule-names343_0)" " declared-submodule-names_3))" "(make-parse-lifted-require220.1" @@ -70790,87 +70801,87 @@ static const char *startup_source = "(make-to-module-lift-context27.1" " temp346_0" " module-ends345_0" -" phase_153))))" +" phase_152))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-module-scopes" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-defined-syms" -" the-struct_108)" +" the-struct_107)" "(root-expand-context/inner-counter" -" the-struct_108)" +" the-struct_107)" " lift-key334_0" "(expand-context/inner-to-parsed?" -" the-struct_108)" +" the-struct_107)" " phase330_0" " namespace331_0" "(expand-context/inner-just-once?" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-module-begin-k" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-allow-unbound?" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-in-local-expand?" -" the-struct_108)" +" the-struct_107)" " stops332_0" " declared-submodule-names333_0" " lifts335_0" "(expand-context/inner-lift-envs" -" the-struct_108)" +" the-struct_107)" " module-lifts336_0" " require-lifts337_0" " to-module-lifts338_0" "(expand-context/inner-requires+provides" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-observer" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-for-serializable?" -" the-struct_108)" +" the-struct_107)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_108)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_108)))))" -"(expand-context/outer1.1" -" inner329_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_107)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_107)" -"(root-expand-context/outer-frame-id" -" the-struct_107)" -" context326_0" -"(expand-context/outer-env" -" the-struct_107)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_107)" -"(expand-context/outer-scopes" -" the-struct_107)" -" def-ctx-scopes327_0" -"(expand-context/outer-binding-layer" -" the-struct_107)" -"(expand-context/outer-reference-records" -" the-struct_107)" -"(expand-context/outer-only-immediate?" -" the-struct_107)" -" need-eventually-defined328_0" -"(expand-context/outer-current-introduction-scopes" -" the-struct_107)" -"(expand-context/outer-name" " the-struct_107)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_107)))))" +"(expand-context/outer1.1" +" inner329_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_106)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_106)" +"(root-expand-context/outer-frame-id" +" the-struct_106)" +" context326_0" +"(expand-context/outer-env" +" the-struct_106)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_106)" +"(expand-context/outer-scopes" +" the-struct_106)" +" def-ctx-scopes327_0" +"(expand-context/outer-binding-layer" +" the-struct_106)" +"(expand-context/outer-reference-records" +" the-struct_106)" +"(expand-context/outer-only-immediate?" +" the-struct_106)" +" need-eventually-defined328_0" +"(expand-context/outer-current-introduction-scopes" +" the-struct_106)" +"(expand-context/outer-name" +" the-struct_106)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_107))))))" +" the-struct_106))))))" "(let-values(((partially-expanded-bodys_0)" "(let-values(((phase348_0)" -" phase_153)" +" phase_152)" "((partial-body-ctx349_0)" " partial-body-ctx_0)" "((m-ns350_0)" @@ -70918,36 +70929,36 @@ static const char *startup_source = " bodys_17))))" "(let-values((()" "(begin" -"(let-values(((obs_128)" +"(let-values(((obs_127)" "(expand-context-observer" " partial-body-ctx_0)))" -"(if obs_128" +"(if obs_127" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_128" +" obs_127" " 'next-group)))" "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_256)" +"(let-values(((v_255)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" -"(let-values(((the-struct_109)" -" v_256))" +"(let-values(((the-struct_108)" +" v_255))" "(if(expand-context/outer?" -" the-struct_109)" +" the-struct_108)" "(let-values(((def-ctx-scopes363_0)" " #f)" "((post-expansion-scope364_0)" " #f)" "((inner365_0)" -"(let-values(((the-struct_110)" +"(let-values(((the-struct_109)" "(root-expand-context/outer-inner" -" v_256)))" +" v_255)))" "(if(expand-context/inner?" -" the-struct_110)" +" the-struct_109)" "(let-values(((stops366_0)" " empty-free-id-set)" "((to-module-lifts367_0)" @@ -70958,94 +70969,94 @@ static const char *startup_source = "(make-to-module-lift-context27.1" " temp370_1" " module-ends369_0" -" phase_153))))" +" phase_152))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_110)" +" the-struct_109)" "(root-expand-context/inner-module-scopes" -" the-struct_110)" +" the-struct_109)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_110)" +" the-struct_109)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_110)" +" the-struct_109)" "(root-expand-context/inner-defined-syms" -" the-struct_110)" +" the-struct_109)" "(root-expand-context/inner-counter" -" the-struct_110)" +" the-struct_109)" "(root-expand-context/inner-lift-key" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-to-parsed?" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-phase" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-namespace" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-just-once?" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-module-begin-k" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-allow-unbound?" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-in-local-expand?" -" the-struct_110)" +" the-struct_109)" " stops366_0" "(expand-context/inner-declared-submodule-names" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-lifts" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-lift-envs" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-module-lifts" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-require-lifts" -" the-struct_110)" +" the-struct_109)" " to-module-lifts367_0" "(expand-context/inner-requires+provides" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-observer" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-for-serializable?" -" the-struct_110)" +" the-struct_109)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_110)))" +" the-struct_109)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_110)))))" +" the-struct_109)))))" "(expand-context/outer1.1" " inner365_0" " post-expansion-scope364_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_109)" +" the-struct_108)" "(root-expand-context/outer-frame-id" -" the-struct_109)" +" the-struct_108)" "(expand-context/outer-context" -" the-struct_109)" +" the-struct_108)" "(expand-context/outer-env" -" the-struct_109)" +" the-struct_108)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_109)" +" the-struct_108)" "(expand-context/outer-scopes" -" the-struct_109)" +" the-struct_108)" " def-ctx-scopes363_0" "(expand-context/outer-binding-layer" -" the-struct_109)" +" the-struct_108)" "(expand-context/outer-reference-records" -" the-struct_109)" +" the-struct_108)" "(expand-context/outer-only-immediate?" -" the-struct_109)" +" the-struct_108)" "(expand-context/outer-need-eventually-defined" -" the-struct_109)" +" the-struct_108)" "(expand-context/outer-current-introduction-scopes" -" the-struct_109)" +" the-struct_108)" "(expand-context/outer-name" -" the-struct_109)))" +" the-struct_108)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_109))))))" +" the-struct_108))))))" "(let-values(((phase319_0)" -" phase_153)" +" phase_152)" "((body-ctx320_0)" " body-ctx_6)" "((self321_0)" @@ -71069,24 +71080,24 @@ static const char *startup_source = " partially-expanded-bodys_0))))))))))))" " pass-1-and-2-loop_0)" " bodys_16" -" phase_152)))" +" phase_151)))" "(let-values((()" "(begin" "(check-defined-by-now" " need-eventually-defined_1" " self_33" -" ctx_111)" +" ctx_110)" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_129)" +"(let-values(((obs_128)" "(expand-context-observer" -" ctx_111)))" -"(if obs_129" +" ctx_110)))" +"(if obs_128" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_129" +" obs_128" " 'next-group)))" "(void)))" "(values))))" @@ -71098,11 +71109,11 @@ static const char *startup_source = "((m-ns374_0)" " m-ns_19)" "((phase375_0)" -" phase_152)" +" phase_151)" "((self376_0)" " self_33)" "((ctx377_0)" -" ctx_111))" +" ctx_110))" "(resolve-provides115.1" " ctx377_0" " declared-submodule-names373_0" @@ -71141,7 +71152,7 @@ static const char *startup_source = "(begin" "(let-values(((obs_75)" "(expand-context-observer" -" ctx_111)))" +" ctx_110)))" "(if obs_75" "(let-values()" "(let-values()" @@ -71158,110 +71169,110 @@ static const char *startup_source = " #t" " m-ns_19))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_257)" -" ctx_111))" -"(let-values(((the-struct_111)" -" v_257))" +"(let-values(((v_256)" +" ctx_110))" +"(let-values(((the-struct_110)" +" v_256))" "(if(expand-context/outer?" -" the-struct_111)" +" the-struct_110)" "(let-values(((frame-id380_0)" " #f)" "((post-expansion-scope381_0)" " #f)" "((inner382_0)" -"(let-values(((the-struct_112)" +"(let-values(((the-struct_111)" "(root-expand-context/outer-inner" -" v_257)))" +" v_256)))" "(if(expand-context/inner?" -" the-struct_112)" +" the-struct_111)" "(let-values(((namespace383_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_112)" +" the-struct_111)" "(root-expand-context/inner-module-scopes" -" the-struct_112)" +" the-struct_111)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_112)" +" the-struct_111)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_112)" +" the-struct_111)" "(root-expand-context/inner-defined-syms" -" the-struct_112)" +" the-struct_111)" "(root-expand-context/inner-counter" -" the-struct_112)" +" the-struct_111)" "(root-expand-context/inner-lift-key" -" the-struct_112)" +" the-struct_111)" "(expand-context/inner-to-parsed?" -" the-struct_112)" +" the-struct_111)" "(expand-context/inner-phase" -" the-struct_112)" +" the-struct_111)" " namespace383_0" "(expand-context/inner-just-once?" -" the-struct_112)" +" the-struct_111)" "(expand-context/inner-module-begin-k" -" the-struct_112)" +" the-struct_111)" "(expand-context/inner-allow-unbound?" -" the-struct_112)" +" the-struct_111)" "(expand-context/inner-in-local-expand?" -" the-struct_112)" +" the-struct_111)" "(expand-context/inner-stops" -" the-struct_112)" +" the-struct_111)" "(expand-context/inner-declared-submodule-names" -" the-struct_112)" +" the-struct_111)" "(expand-context/inner-lifts" -" the-struct_112)" +" the-struct_111)" "(expand-context/inner-lift-envs" -" the-struct_112)" +" the-struct_111)" "(expand-context/inner-module-lifts" -" the-struct_112)" +" the-struct_111)" "(expand-context/inner-require-lifts" -" the-struct_112)" +" the-struct_111)" "(expand-context/inner-to-module-lifts" -" the-struct_112)" +" the-struct_111)" "(expand-context/inner-requires+provides" -" the-struct_112)" +" the-struct_111)" "(expand-context/inner-observer" -" the-struct_112)" +" the-struct_111)" "(expand-context/inner-for-serializable?" -" the-struct_112)" +" the-struct_111)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_112)))" +" the-struct_111)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_112)))))" +" the-struct_111)))))" "(expand-context/outer1.1" " inner382_0" " post-expansion-scope381_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_111)" +" the-struct_110)" " frame-id380_0" "(expand-context/outer-context" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-env" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-scopes" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-def-ctx-scopes" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-binding-layer" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-reference-records" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-only-immediate?" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-need-eventually-defined" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-current-introduction-scopes" -" the-struct_111)" +" the-struct_110)" "(expand-context/outer-name" -" the-struct_111)))" +" the-struct_110)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_111))))))" +" the-struct_110))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" @@ -71308,7 +71319,7 @@ static const char *startup_source = "(let-values(((declare-enclosing-module396_0)" " declare-enclosing-module_0)" "((phase397_0)" -" phase_152)" +" phase_151)" "((self398_0)" " self_33)" "((requires+provides399_0)" @@ -71374,110 +71385,110 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_258)" -" ctx_110))" -"(let-values(((the-struct_113)" -" v_258))" +"(let-values(((v_257)" +" ctx_109))" +"(let-values(((the-struct_112)" +" v_257))" "(if(expand-context/outer?" -" the-struct_113)" +" the-struct_112)" "(let-values(((context409_0)" " 'module-begin)" "((inner410_0)" -"(let-values(((the-struct_114)" +"(let-values(((the-struct_113)" "(root-expand-context/outer-inner" -" v_258)))" +" v_257)))" "(if(expand-context/inner?" -" the-struct_114)" +" the-struct_113)" "(let-values(((module-begin-k411_0)" " module-begin-k_1)" "((in-local-expand?412_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-module-scopes" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-defined-syms" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-counter" -" the-struct_114)" +" the-struct_113)" "(root-expand-context/inner-lift-key" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-to-parsed?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-phase" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-namespace" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-just-once?" -" the-struct_114)" +" the-struct_113)" " module-begin-k411_0" "(expand-context/inner-allow-unbound?" -" the-struct_114)" +" the-struct_113)" " in-local-expand?412_0" "(expand-context/inner-stops" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-declared-submodule-names" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-lifts" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-lift-envs" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-module-lifts" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-require-lifts" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-to-module-lifts" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-requires+provides" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-observer" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-for-serializable?" -" the-struct_114)" +" the-struct_113)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_114)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_114)))))" -"(expand-context/outer1.1" -" inner410_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_113)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_113)" -"(root-expand-context/outer-frame-id" -" the-struct_113)" -" context409_0" -"(expand-context/outer-env" -" the-struct_113)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_113)" -"(expand-context/outer-scopes" -" the-struct_113)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_113)" -"(expand-context/outer-binding-layer" -" the-struct_113)" -"(expand-context/outer-reference-records" -" the-struct_113)" -"(expand-context/outer-only-immediate?" -" the-struct_113)" -"(expand-context/outer-need-eventually-defined" -" the-struct_113)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_113)" -"(expand-context/outer-name" " the-struct_113)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_113)))))" +"(expand-context/outer1.1" +" inner410_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_112)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_112)" +"(root-expand-context/outer-frame-id" +" the-struct_112)" +" context409_0" +"(expand-context/outer-env" +" the-struct_112)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_112)" +"(expand-context/outer-scopes" +" the-struct_112)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_112)" +"(expand-context/outer-binding-layer" +" the-struct_112)" +"(expand-context/outer-reference-records" +" the-struct_112)" +"(expand-context/outer-only-immediate?" +" the-struct_112)" +"(expand-context/outer-need-eventually-defined" +" the-struct_112)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_112)" +"(expand-context/outer-name" +" the-struct_112)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_113))))))" +" the-struct_112))))))" "(let-values(((mb-scopes-s_0)" "(if keep-enclosing-scope-at-phase_0" " disarmed-s_24" @@ -71497,7 +71508,7 @@ static const char *startup_source = "((mb-def-ctx-scopes418_0)" " mb-def-ctx-scopes_0)" "((phase419_0)" -" phase_152)" +" phase_151)" "((s420_0)" " s_16))" "(ensure-module-begin36.1" @@ -71531,11 +71542,11 @@ static const char *startup_source = " self_33" " self_33)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_349)" +"(if(let-values(((or-part_346)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_349" -" or-part_349" +"(if or-part_346" +" or-part_346" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -71581,7 +71592,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_410)))" -"((letrec-values(((for-loop_311)" +"((letrec-values(((for-loop_313)" "(lambda(lst_411)" "(begin" " 'for-loop" @@ -71590,7 +71601,7 @@ static const char *startup_source = "(let-values(((mpi_54)" "(unsafe-car" " lst_411))" -"((rest_246)" +"((rest_245)" "(unsafe-cdr" " lst_411)))" "(let-values((()" @@ -71605,11 +71616,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_311" -" rest_246)" +"(for-loop_313" +" rest_245)" "(values))))" "(values))))))" -" for-loop_311)" +" for-loop_313)" " lst_410)))" "(void)" "(let-values(((result-s_15)" @@ -71657,14 +71668,14 @@ static const char *startup_source = " #t)" " result-s_17)))" "(begin" -"(let-values(((obs_130)" +"(let-values(((obs_129)" "(expand-context-observer" " init-ctx_0)))" -"(if obs_130" +"(if obs_129" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_130" +" obs_129" " 'rename-one" " result-s_18)))" "(void)))" @@ -71690,55 +71701,55 @@ static const char *startup_source = "(let-values(((module-name-sym_1) module-name-sym21_0))" "(let-values(((scopes-s_0) scopes-s22_0))" "(let-values()" -"(let-values(((ctx_113) ctx24_0))" +"(let-values(((ctx_112) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_154) phase26_2))" -"(let-values(((s_758) s27_2))" +"(let-values(((phase_153) phase26_2))" +"(let-values(((s_759) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_259) ctx_113))" -"(let-values(((the-struct_115) v_259))" -"(if(expand-context/outer? the-struct_115)" +"(let-values(((v_258) ctx_112))" +"(let-values(((the-struct_114) v_258))" +"(if(expand-context/outer? the-struct_114)" "(let-values(((context428_0) 'module-begin)" "((only-immediate?429_0) #t)" "((def-ctx-scopes430_0) def-ctx-scopes_9)" -"((inner431_0)(root-expand-context/outer-inner v_259)))" +"((inner431_0)(root-expand-context/outer-inner v_258)))" "(expand-context/outer1.1" " inner431_0" -"(root-expand-context/outer-post-expansion-scope the-struct_115)" -"(root-expand-context/outer-use-site-scopes the-struct_115)" -"(root-expand-context/outer-frame-id the-struct_115)" +"(root-expand-context/outer-post-expansion-scope the-struct_114)" +"(root-expand-context/outer-use-site-scopes the-struct_114)" +"(root-expand-context/outer-frame-id the-struct_114)" " context428_0" -"(expand-context/outer-env the-struct_115)" -"(expand-context/outer-post-expansion-scope-action the-struct_115)" -"(expand-context/outer-scopes the-struct_115)" +"(expand-context/outer-env the-struct_114)" +"(expand-context/outer-post-expansion-scope-action the-struct_114)" +"(expand-context/outer-scopes the-struct_114)" " def-ctx-scopes430_0" -"(expand-context/outer-binding-layer the-struct_115)" -"(expand-context/outer-reference-records the-struct_115)" +"(expand-context/outer-binding-layer the-struct_114)" +"(expand-context/outer-reference-records the-struct_114)" " only-immediate?429_0" -"(expand-context/outer-need-eventually-defined the-struct_115)" -"(expand-context/outer-current-introduction-scopes the-struct_115)" -"(expand-context/outer-name the-struct_115)))" +"(expand-context/outer-need-eventually-defined the-struct_114)" +"(expand-context/outer-current-introduction-scopes the-struct_114)" +"(expand-context/outer-name the-struct_114)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_115))))))))" +" the-struct_114))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_18))" "(let-values()" "(begin" -"(let-values(((obs_131)(expand-context-observer ctx_113)))" -"(if obs_131" +"(let-values(((obs_130)(expand-context-observer ctx_112)))" +"(if obs_130" "(let-values()" "(let-values()" -"(call-expand-observe obs_131 'rename-one(car bodys_18))))" +"(call-expand-observe obs_130 'rename-one(car bodys_18))))" "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_154))" +"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_153))" "(let-values()(car bodys_18))" "(let-values()" "(let-values(((partly-expanded-body_0)" @@ -71753,13 +71764,13 @@ static const char *startup_source = " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_154))" +" phase_153))" "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp434_0)(list partly-expanded-body_0))" -"((s435_0) s_758)" +"((s435_0) s_759)" "((scopes-s436_0) scopes-s_0)" -"((phase437_0) phase_154)" +"((phase437_0) phase_153)" "((module-name-sym438_0) module-name-sym_1)" "((temp439_0)(make-mb-ctx_0))" "((temp440_0) #f))" @@ -71774,9 +71785,9 @@ static const char *startup_source = " temp439_0)))))))))" "(let-values()" "(let-values(((bodys441_0) bodys_18)" -"((s442_0) s_758)" +"((s442_0) s_759)" "((scopes-s443_0) scopes-s_0)" -"((phase444_0) phase_154)" +"((phase444_0) phase_153)" "((module-name-sym445_0) module-name-sym_1)" "((temp446_0)(make-mb-ctx_0)))" "(add-module-begin47.1" @@ -71802,9 +71813,9 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_759) s42_0))" +"(let-values(((s_760) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_155) phase44_1))" +"(let-values(((phase_154) phase44_1))" "(let-values(((module-name-sym_2) module-name-sym45_0))" "(let-values(((mb-ctx_1) mb-ctx46_0))" "(let-values(((log-rename-one?_0)(if log-rename-one?40_0 log-rename-one?39_0 #t)))" @@ -71813,34 +71824,34 @@ static const char *startup_source = "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))" "(let-values((()" "(begin" -"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_155))" +"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_154))" "(resolve33.1 #f #f #f #f #f #f #f #f mb-id447_0 phase448_0))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_759)))" +" s_760)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_759 s_759)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_760 s_760)))" "(let-values((()" "(begin" -"(let-values(((obs_132)(expand-context-observer mb-ctx_1)))" -"(if obs_132" +"(let-values(((obs_131)(expand-context-observer mb-ctx_1)))" +"(if obs_131" "(let-values()" -"(let-values()(call-expand-observe obs_132 'tag mb_2)))" +"(let-values()(call-expand-observe obs_131 'tag mb_2)))" "(void)))" "(values))))" "(let-values((()" "(begin" "(if log-rename-one?_0" "(let-values()" -"(let-values(((obs_133)(expand-context-observer mb-ctx_1)))" -"(if obs_133" +"(let-values(((obs_132)(expand-context-observer mb-ctx_1)))" +"(if obs_132" "(let-values()" "(let-values()" -"(call-expand-observe obs_133 'rename-one mb_2)))" +"(call-expand-observe obs_132 'rename-one mb_2)))" "(void))))" "(void))" "(values))))" @@ -71853,13 +71864,13 @@ static const char *startup_source = "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_155))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_154))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_759" +" s_760" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -71875,13 +71886,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_760)" +"(lambda(s_761)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_760" +" s_761" "(remove-use-site-scopes" -"(remove-scopes s_760(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_761(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)))" @@ -71933,7 +71944,7 @@ static const char *startup_source = "(begin" " 'partially-expand-bodys81" "(let-values(((bodys_20) bodys80_0))" -"(let-values(((phase_156) phase50_0))" +"(let-values(((phase_155) phase50_0))" "(let-values(((partial-body-ctx_1) ctx51_0))" "(let-values(((m-ns_20) namespace52_0))" "(let-values(((self_35) self53_0))" @@ -71950,24 +71961,24 @@ static const char *startup_source = "(let-values(((pass-1-and-2-loop_1) loop64_0))" "(let-values()" "(begin" -"(namespace-visit-available-modules! m-ns_20 phase_156)" +"(namespace-visit-available-modules! m-ns_20 phase_155)" "((letrec-values(((loop_131)" "(lambda(tail?_53 bodys_21)" "(begin" " 'loop" "(if(null? bodys_21)" "(let-values()" -"(if(if tail?_53(not(zero? phase_156)) #f)" +"(if(if tail?_53(not(zero? phase_155)) #f)" "(let-values()" "(begin" -"(let-values(((obs_134)" +"(let-values(((obs_133)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_134" +"(if obs_133" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_134" +" obs_133" " 'module-lift-end-loop" " '())))" "(void)))" @@ -71983,14 +71994,14 @@ static const char *startup_source = "(expand-context-to-module-lifts" " partial-body-ctx_1)))))" "(begin" -"(let-values(((obs_135)" +"(let-values(((obs_134)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_135" +"(if obs_134" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_135" +" obs_134" " 'module-lift-end-loop" " bodys_22)))" "(void)))" @@ -72007,14 +72018,14 @@ static const char *startup_source = "(let-values(((rest-bodys_1)(cdr bodys_21)))" "(let-values((()" "(begin" -"(let-values(((obs_136)" +"(let-values(((obs_135)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_136" +"(if obs_135" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_136" +" obs_135" " 'next)))" "(void)))" "(values))))" @@ -72046,14 +72057,14 @@ static const char *startup_source = " exp-body_7" " rest-bodys_1))" "(void))" -"(let-values(((obs_137)" +"(let-values(((obs_136)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_137" +"(if obs_136" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_137" +" obs_136" " 'rename-one" " exp-body_7)))" "(void)))" @@ -72064,7 +72075,7 @@ static const char *startup_source = "(let-values(((tmp_65)" "(core-form-sym" " disarmed-exp-body_1" -" phase_156)))" +" phase_155)))" "(if(equal?" " tmp_65" " 'begin)" @@ -72072,45 +72083,45 @@ static const char *startup_source = "(let-values(((ok?_76" " begin460_0" " e461_0)" -"(let-values(((s_761)" +"(let-values(((s_762)" " disarmed-exp-body_1))" -"(let-values(((orig-s_81)" -" s_761))" +"(let-values(((orig-s_82)" +" s_762))" "(let-values(((begin460_1" " e461_1)" -"(let-values(((s_762)" -"(if(syntax?$1" -" s_761)" -"(syntax-e$1" -" s_761)" -" s_761)))" -"(if(pair?" -" s_762)" -"(let-values(((begin462_0)" "(let-values(((s_763)" -"(car" -" s_762)))" -" s_763))" -"((e463_0)" -"(let-values(((s_764)" -"(cdr" -" s_762)))" -"(let-values(((s_765)" "(if(syntax?$1" -" s_764)" +" s_762)" "(syntax-e$1" -" s_764)" -" s_764)))" +" s_762)" +" s_762)))" +"(if(pair?" +" s_763)" +"(let-values(((begin462_0)" +"(let-values(((s_764)" +"(car" +" s_763)))" +" s_764))" +"((e463_0)" +"(let-values(((s_765)" +"(cdr" +" s_763)))" +"(let-values(((s_766)" +"(if(syntax?$1" +" s_765)" +"(syntax-e$1" +" s_765)" +" s_765)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" -" s_765)))" +" s_766)))" "(if(not" " flat-s_54)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_81))" +" orig-s_82))" "(let-values()" " flat-s_54)))))))" "(values" @@ -72119,7 +72130,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_81)))))" +" orig-s_82)))))" "(values" " #t" " begin460_1" @@ -72158,22 +72169,22 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_138)" +"(let-values(((obs_137)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_138" +"(if obs_137" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_138" +" obs_137" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_138" +" obs_137" " 'prim-begin-for-syntax)" "(call-expand-observe" -" obs_138" +" obs_137" " 'prepare-env))))" "(void)))" "(values))))" @@ -72181,7 +72192,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " m-ns_20" "(add1" -" phase_156))))" +" phase_155))))" "(let-values((()" "(begin" "(prepare-next-phase-namespace" @@ -72189,6 +72200,78 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" +"(let-values(((obs_138)" +"(expand-context-observer" +" partial-body-ctx_1)))" +"(if obs_138" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_138" +" 'phase-up)))" +"(void)))" +"(values))))" +"(let-values(((ok?_77" +" begin-for-syntax464_0" +" e465_0)" +"(let-values(((s_767)" +" disarmed-exp-body_1))" +"(let-values(((orig-s_83)" +" s_767))" +"(let-values(((begin-for-syntax464_1" +" e465_1)" +"(let-values(((s_768)" +"(if(syntax?$1" +" s_767)" +"(syntax-e$1" +" s_767)" +" s_767)))" +"(if(pair?" +" s_768)" +"(let-values(((begin-for-syntax466_0)" +"(let-values(((s_769)" +"(car" +" s_768)))" +" s_769))" +"((e467_0)" +"(let-values(((s_770)" +"(cdr" +" s_768)))" +"(let-values(((s_771)" +"(if(syntax?$1" +" s_770)" +"(syntax-e$1" +" s_770)" +" s_770)))" +"(let-values(((flat-s_55)" +"(to-syntax-list.1" +" s_771)))" +"(if(not" +" flat-s_55)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_83))" +"(let-values()" +" flat-s_55)))))))" +"(values" +" begin-for-syntax466_0" +" e467_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_83)))))" +"(values" +" #t" +" begin-for-syntax464_1" +" e465_1))))))" +"(let-values(((nested-bodys_1)" +"(pass-1-and-2-loop_1" +" e465_0" +"(add1" +" phase_155))))" +"(begin" "(let-values(((obs_139)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -72197,70 +72280,22 @@ static const char *startup_source = "(let-values()" "(call-expand-observe" " obs_139" -" 'phase-up)))" +" 'next-group)))" "(void)))" -"(values))))" -"(let-values(((ok?_77" -" begin-for-syntax464_0" -" e465_0)" -"(let-values(((s_766)" -" disarmed-exp-body_1))" -"(let-values(((orig-s_82)" -" s_766))" -"(let-values(((begin-for-syntax464_1" -" e465_1)" -"(let-values(((s_767)" -"(if(syntax?$1" -" s_766)" -"(syntax-e$1" -" s_766)" -" s_766)))" -"(if(pair?" -" s_767)" -"(let-values(((begin-for-syntax466_0)" -"(let-values(((s_768)" -"(car" -" s_767)))" -" s_768))" -"((e467_0)" -"(let-values(((s_769)" -"(cdr" -" s_767)))" -"(let-values(((s_770)" -"(if(syntax?$1" -" s_769)" -"(syntax-e$1" -" s_769)" -" s_769)))" -"(let-values(((flat-s_55)" -"(to-syntax-list.1" -" s_770)))" -"(if(not" -" flat-s_55)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_82))" -"(let-values()" -" flat-s_55)))))))" -"(values" -" begin-for-syntax466_0" -" e467_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_82)))))" -"(values" -" #t" -" begin-for-syntax464_1" -" e465_1))))))" -"(let-values(((nested-bodys_1)" -"(pass-1-and-2-loop_1" -" e465_0" +"(namespace-run-available-modules!" +" m-ns_20" "(add1" -" phase_156))))" -"(begin" +" phase_155))" +"(eval-nested-bodys" +" nested-bodys_1" +"(add1" +" phase_155)" +" ct-m-ns_0" +" self_35" +" partial-body-ctx_1)" +"(namespace-visit-available-modules!" +" m-ns_20" +" phase_155)" "(let-values(((obs_140)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -72269,34 +72304,10 @@ static const char *startup_source = "(let-values()" "(call-expand-observe" " obs_140" -" 'next-group)))" -"(void)))" -"(namespace-run-available-modules!" -" m-ns_20" -"(add1" -" phase_156))" -"(eval-nested-bodys" -" nested-bodys_1" -"(add1" -" phase_156)" -" ct-m-ns_0" -" self_35" -" partial-body-ctx_1)" -"(namespace-visit-available-modules!" -" m-ns_20" -" phase_156)" -"(let-values(((obs_141)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_141" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_141" " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_256)" +"(let-values(((lst_257)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -72304,7 +72315,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_256)))" +" lst_257)))" "((letrec-values(((for-loop_143)" "(lambda(fold-var_354" " lst_412)" @@ -72315,7 +72326,7 @@ static const char *startup_source = "(let-values(((nested-body_0)" "(unsafe-car" " lst_412))" -"((rest_247)" +"((rest_246)" "(unsafe-cdr" " lst_412)))" "(let-values(((fold-var_125)" @@ -72334,12 +72345,12 @@ static const char *startup_source = " #f)" "(for-loop_143" " fold-var_125" -" rest_247)" +" rest_246)" " fold-var_125)))" " fold-var_354)))))" " for-loop_143)" " null" -" lst_256))))))" +" lst_257))))))" "(datum->syntax$1" " #f" "(cons" @@ -72360,19 +72371,19 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_142)" +"(let-values(((obs_141)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_142" +"(if obs_141" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_142" +" obs_141" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_142" +" obs_141" " 'prim-define-values))))" "(void)))" "(values))))" @@ -72380,59 +72391,59 @@ static const char *startup_source = " define-values468_0" " id469_0" " rhs470_0)" -"(let-values(((s_771)" +"(let-values(((s_772)" " disarmed-exp-body_1))" -"(let-values(((orig-s_83)" -" s_771))" +"(let-values(((orig-s_84)" +" s_772))" "(let-values(((define-values468_1" " id469_1" " rhs470_1)" -"(let-values(((s_772)" -"(if(syntax?$1" -" s_771)" -"(syntax-e$1" -" s_771)" -" s_771)))" -"(if(pair?" -" s_772)" -"(let-values(((define-values471_0)" "(let-values(((s_773)" -"(car" +"(if(syntax?$1" +" s_772)" +"(syntax-e$1" +" s_772)" " s_772)))" -" s_773))" +"(if(pair?" +" s_773)" +"(let-values(((define-values471_0)" +"(let-values(((s_774)" +"(car" +" s_773)))" +" s_774))" "((id472_0" " rhs473_0)" -"(let-values(((s_531)" -"(cdr" -" s_772)))" -"(let-values(((s_774)" -"(if(syntax?$1" -" s_531)" -"(syntax-e$1" -" s_531)" -" s_531)))" -"(if(pair?" -" s_774)" -"(let-values(((id474_0)" -"(let-values(((s_533)" -"(car" -" s_774)))" "(let-values(((s_534)" +"(cdr" +" s_773)))" +"(let-values(((s_775)" "(if(syntax?$1" -" s_533)" +" s_534)" "(syntax-e$1" -" s_533)" -" s_533)))" +" s_534)" +" s_534)))" +"(if(pair?" +" s_775)" +"(let-values(((id474_0)" +"(let-values(((s_536)" +"(car" +" s_775)))" +"(let-values(((s_537)" +"(if(syntax?$1" +" s_536)" +"(syntax-e$1" +" s_536)" +" s_536)))" "(let-values(((flat-s_39)" "(to-syntax-list.1" -" s_534)))" +" s_537)))" "(if(not" " flat-s_39)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_83))" +" orig-s_84))" "(let-values()" "(let-values(((id_144)" "(let-values(((lst_413)" @@ -72444,17 +72455,17 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_413)))" -"((letrec-values(((for-loop_312)" +"((letrec-values(((for-loop_314)" "(lambda(id_145" " lst_414)" "(begin" " 'for-loop" "(if(pair?" " lst_414)" -"(let-values(((s_775)" +"(let-values(((s_776)" "(unsafe-car" " lst_414))" -"((rest_248)" +"((rest_247)" "(unsafe-cdr" " lst_414)))" "(let-values(((id_146)" @@ -72464,23 +72475,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id484_0)" "(let-values()" -"(if(let-values(((or-part_402)" +"(if(let-values(((or-part_400)" "(if(syntax?$1" -" s_775)" +" s_776)" "(symbol?" "(syntax-e$1" -" s_775))" +" s_776))" " #f)))" -"(if or-part_402" -" or-part_402" +"(if or-part_400" +" or-part_400" "(symbol?" -" s_775)))" -" s_775" +" s_776)))" +" s_776" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_83" -" s_775)))))" +" orig-s_84" +" s_776)))))" "(cons" " id484_0" " id_147)))))" @@ -72488,63 +72499,63 @@ static const char *startup_source = " id_148)))))" "(if(not" " #f)" -"(for-loop_312" +"(for-loop_314" " id_146" -" rest_248)" +" rest_247)" " id_146)))" " id_145)))))" -" for-loop_312)" +" for-loop_314)" " null" " lst_413)))))" "(reverse$1" " id_144))))))))" "((rhs475_0)" -"(let-values(((s_776)" -"(cdr" -" s_774)))" "(let-values(((s_777)" +"(cdr" +" s_775)))" +"(let-values(((s_778)" "(if(syntax?$1" -" s_776)" -"(syntax-e$1" -" s_776)" -" s_776)))" -"(if(pair?" " s_777)" +"(syntax-e$1" +" s_777)" +" s_777)))" +"(if(pair?" +" s_778)" "(let-values(((rhs476_0)" "(let-values(((s_190)" "(car" -" s_777)))" +" s_778)))" " s_190))" "(()" -"(let-values(((s_778)" -"(cdr" -" s_777)))" "(let-values(((s_779)" -"(if(syntax?$1" -" s_778)" -"(syntax-e$1" -" s_778)" +"(cdr" " s_778)))" -"(if(null?" +"(let-values(((s_780)" +"(if(syntax?$1" " s_779)" +"(syntax-e$1" +" s_779)" +" s_779)))" +"(if(null?" +" s_780)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_83))))))" +" orig-s_84))))))" "(values" " rhs476_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_83))))))" +" orig-s_84))))))" "(values" " id474_0" " rhs475_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_83))))))" +" orig-s_84))))))" "(values" " define-values471_0" " id472_0" @@ -72552,22 +72563,22 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_83)))))" +" orig-s_84)))))" "(values" " #t" " define-values468_1" " id469_1" " rhs470_1))))))" -"(let-values(((ids_39)" +"(let-values(((ids_41)" "(remove-use-site-scopes" " id469_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" "(let-values(((ids477_0)" -" ids_39)" +" ids_41)" "((phase478_0)" -" phase_156)" +" phase_155)" "((exp-body479_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -72585,8 +72596,8 @@ static const char *startup_source = " exp-body_7))" "(check-ids-unbound173.1" " exp-body483_0" -" ids_39" -" phase_156" +" ids_41" +" phase_155" " requires+provides_7))" "(values))))" "(let-values(((syms_24)" @@ -72606,16 +72617,16 @@ static const char *startup_source = " #t" " #f" " #f" -" ids_39" +" ids_41" " defined-syms_11" " self_35" -" phase_156" +" phase_155" " all-scopes-stx_5))))" "(begin" "(add-defined-syms!" " requires+provides_7" " syms_24" -" phase_156)" +" phase_155)" "(let-values(((obs_98)" "(expand-context-observer" " partial-body-ctx_1)))" @@ -72629,7 +72640,7 @@ static const char *startup_source = " #f" "(list" " define-values468_0" -" ids_39" +" ids_41" " rhs470_0)" " exp-body_7))))" "(void)))" @@ -72637,7 +72648,7 @@ static const char *startup_source = "(semi-parsed-define-values2.1" " exp-body_7" " syms_24" -" ids_39" +" ids_41" " rhs470_0)" "(loop_131" " tail?_53" @@ -72648,22 +72659,22 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_143)" +"(let-values(((obs_142)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_143" +"(if obs_142" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_143" +" obs_142" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_143" +" obs_142" " 'prim-define-syntaxes)" "(call-expand-observe" -" obs_143" +" obs_142" " 'prepare-env))))" "(void)))" "(values))))" @@ -72674,14 +72685,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_144)" +"(let-values(((obs_143)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_144" +"(if obs_143" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_144" +" obs_143" " 'phase-up)))" "(void)))" "(values))))" @@ -72689,59 +72700,59 @@ static const char *startup_source = " define-syntaxes493_0" " id494_0" " rhs495_0)" -"(let-values(((s_780)" +"(let-values(((s_781)" " disarmed-exp-body_1))" -"(let-values(((orig-s_84)" -" s_780))" +"(let-values(((orig-s_85)" +" s_781))" "(let-values(((define-syntaxes493_1" " id494_1" " rhs495_1)" -"(let-values(((s_540)" -"(if(syntax?$1" -" s_780)" -"(syntax-e$1" -" s_780)" -" s_780)))" -"(if(pair?" -" s_540)" -"(let-values(((define-syntaxes496_0)" -"(let-values(((s_541)" -"(car" -" s_540)))" -" s_541))" -"((id497_0" -" rhs498_0)" -"(let-values(((s_781)" -"(cdr" -" s_540)))" -"(let-values(((s_782)" +"(let-values(((s_543)" "(if(syntax?$1" " s_781)" "(syntax-e$1" " s_781)" " s_781)))" "(if(pair?" -" s_782)" -"(let-values(((id499_0)" +" s_543)" +"(let-values(((define-syntaxes496_0)" "(let-values(((s_544)" "(car" -" s_782)))" +" s_543)))" +" s_544))" +"((id497_0" +" rhs498_0)" +"(let-values(((s_782)" +"(cdr" +" s_543)))" "(let-values(((s_783)" "(if(syntax?$1" -" s_544)" +" s_782)" "(syntax-e$1" -" s_544)" -" s_544)))" +" s_782)" +" s_782)))" +"(if(pair?" +" s_783)" +"(let-values(((id499_0)" +"(let-values(((s_547)" +"(car" +" s_783)))" +"(let-values(((s_784)" +"(if(syntax?$1" +" s_547)" +"(syntax-e$1" +" s_547)" +" s_547)))" "(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_783)))" +" s_784)))" "(if(not" " flat-s_56)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_84))" +" orig-s_85))" "(let-values()" "(let-values(((id_149)" "(let-values(((lst_66)" @@ -72760,7 +72771,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_67)" -"(let-values(((s_784)" +"(let-values(((s_785)" "(unsafe-car" " lst_67))" "((rest_30)" @@ -72773,23 +72784,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id509_0)" "(let-values()" -"(if(let-values(((or-part_403)" +"(if(let-values(((or-part_401)" "(if(syntax?$1" -" s_784)" +" s_785)" "(symbol?" "(syntax-e$1" -" s_784))" +" s_785))" " #f)))" -"(if or-part_403" -" or-part_403" +"(if or-part_401" +" or-part_401" "(symbol?" -" s_784)))" -" s_784" +" s_785)))" +" s_785" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_84" -" s_784)))))" +" orig-s_85" +" s_785)))))" "(cons" " id509_0" " id_152)))))" @@ -72808,52 +72819,52 @@ static const char *startup_source = "(reverse$1" " id_149))))))))" "((rhs500_0)" -"(let-values(((s_785)" -"(cdr" -" s_782)))" "(let-values(((s_786)" -"(if(syntax?$1" -" s_785)" -"(syntax-e$1" -" s_785)" -" s_785)))" -"(if(pair?" -" s_786)" -"(let-values(((rhs501_0)" -"(let-values(((s_787)" -"(car" -" s_786)))" -" s_787))" -"(()" -"(let-values(((s_788)" "(cdr" -" s_786)))" -"(let-values(((s_789)" +" s_783)))" +"(let-values(((s_787)" "(if(syntax?$1" -" s_788)" +" s_786)" "(syntax-e$1" -" s_788)" -" s_788)))" -"(if(null?" +" s_786)" +" s_786)))" +"(if(pair?" +" s_787)" +"(let-values(((rhs501_0)" +"(let-values(((s_788)" +"(car" +" s_787)))" +" s_788))" +"(()" +"(let-values(((s_789)" +"(cdr" +" s_787)))" +"(let-values(((s_790)" +"(if(syntax?$1" " s_789)" +"(syntax-e$1" +" s_789)" +" s_789)))" +"(if(null?" +" s_790)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_84))))))" +" orig-s_85))))))" "(values" " rhs501_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_84))))))" +" orig-s_85))))))" "(values" " id499_0" " rhs500_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_84))))))" +" orig-s_85))))))" "(values" " define-syntaxes496_0" " id497_0" @@ -72861,22 +72872,22 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_84)))))" +" orig-s_85)))))" "(values" " #t" " define-syntaxes493_1" " id494_1" " rhs495_1))))))" -"(let-values(((ids_40)" +"(let-values(((ids_42)" "(remove-use-site-scopes" " id494_0" " partial-body-ctx_1)))" "(let-values((()" "(begin" "(let-values(((ids502_0)" -" ids_40)" +" ids_42)" "((phase503_0)" -" phase_156)" +" phase_155)" "((exp-body504_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -72894,8 +72905,8 @@ static const char *startup_source = " exp-body_7))" "(check-ids-unbound173.1" " exp-body508_0" -" ids_40" -" phase_156" +" ids_42" +" phase_155" " requires+provides_7))" "(values))))" "(let-values(((syms_25)" @@ -72917,17 +72928,17 @@ static const char *startup_source = " #t" " #f" " #f" -" ids_40" +" ids_42" " defined-syms_11" " self_35" -" phase_156" +" phase_155" " all-scopes-stx_5))))" "(let-values((()" "(begin" "(add-defined-syms!" " requires+provides_7" " syms_25" -" phase_156)" +" phase_155)" "(values))))" "(let-values(((exp-rhs_6" " parsed-rhs_2" @@ -72935,22 +72946,22 @@ static const char *startup_source = "(let-values(((temp519_0)" " rhs495_0)" "((ids520_0)" -" ids_40)" +" ids_42)" "((temp521_0)" -"(let-values(((v_260)" +"(let-values(((v_259)" " partial-body-ctx_1))" -"(let-values(((the-struct_116)" -" v_260))" +"(let-values(((the-struct_115)" +" v_259))" "(if(expand-context/outer?" -" the-struct_116)" +" the-struct_115)" "(let-values(((need-eventually-defined523_0)" " need-eventually-defined_2)" "((inner524_0)" -"(let-values(((the-struct_117)" +"(let-values(((the-struct_116)" "(root-expand-context/outer-inner" -" v_260)))" +" v_259)))" "(if(expand-context/inner?" -" the-struct_117)" +" the-struct_116)" "(let-values(((lifts525_0)" " #f)" "((module-lifts526_0)" @@ -72959,89 +72970,89 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-module-scopes" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-defined-syms" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-counter" -" the-struct_117)" +" the-struct_116)" "(root-expand-context/inner-lift-key" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-to-parsed?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-phase" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-namespace" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-just-once?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-module-begin-k" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-allow-unbound?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-in-local-expand?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-stops" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-declared-submodule-names" -" the-struct_117)" +" the-struct_116)" " lifts525_0" "(expand-context/inner-lift-envs" -" the-struct_117)" +" the-struct_116)" " module-lifts526_0" "(expand-context/inner-require-lifts" -" the-struct_117)" +" the-struct_116)" " to-module-lifts527_0" "(expand-context/inner-requires+provides" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-observer" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-for-serializable?" -" the-struct_117)" +" the-struct_116)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_117)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_117)))))" -"(expand-context/outer1.1" -" inner524_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_116)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_116)" -"(root-expand-context/outer-frame-id" -" the-struct_116)" -"(expand-context/outer-context" -" the-struct_116)" -"(expand-context/outer-env" -" the-struct_116)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_116)" -"(expand-context/outer-scopes" -" the-struct_116)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_116)" -"(expand-context/outer-binding-layer" -" the-struct_116)" -"(expand-context/outer-reference-records" -" the-struct_116)" -"(expand-context/outer-only-immediate?" -" the-struct_116)" -" need-eventually-defined523_0" -"(expand-context/outer-current-introduction-scopes" -" the-struct_116)" -"(expand-context/outer-name" " the-struct_116)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" +" \"expand-context/inner?\"" " the-struct_116)))))" +"(expand-context/outer1.1" +" inner524_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_115)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_115)" +"(root-expand-context/outer-frame-id" +" the-struct_115)" +"(expand-context/outer-context" +" the-struct_115)" +"(expand-context/outer-env" +" the-struct_115)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_115)" +"(expand-context/outer-scopes" +" the-struct_115)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_115)" +"(expand-context/outer-binding-layer" +" the-struct_115)" +"(expand-context/outer-reference-records" +" the-struct_115)" +"(expand-context/outer-only-immediate?" +" the-struct_115)" +" need-eventually-defined523_0" +"(expand-context/outer-current-introduction-scopes" +" the-struct_115)" +"(expand-context/outer-name" +" the-struct_115)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/outer?\"" +" the-struct_115)))))" "((temp522_0)" " #f))" "(expand+eval-for-syntaxes-binding63.1" @@ -73057,7 +73068,7 @@ static const char *startup_source = "((lst_416)" " vals_10)" "((lst_417)" -" ids_40))" +" ids_42))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -73077,7 +73088,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_417)))" -"((letrec-values(((for-loop_313)" +"((letrec-values(((for-loop_315)" "(lambda(lst_418" " lst_419" " lst_420)" @@ -73094,19 +73105,19 @@ static const char *startup_source = "(let-values(((sym_106)" "(unsafe-car" " lst_418))" -"((rest_249)" +"((rest_248)" "(unsafe-cdr" " lst_418))" "((val_86)" "(unsafe-car" " lst_419))" -"((rest_250)" +"((rest_249)" "(unsafe-cdr" " lst_419))" "((id_154)" "(unsafe-car" " lst_420))" -"((rest_251)" +"((rest_250)" "(unsafe-cdr" " lst_420)))" "(let-values((()" @@ -73119,24 +73130,24 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_86" " id_154" -" phase_156" +" phase_155" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_20" -" phase_156" +" phase_155" " sym_106" " val_86)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_313" +"(for-loop_315" +" rest_248" " rest_249" -" rest_250" -" rest_251)" +" rest_250)" "(values))))" "(values))))))" -" for-loop_313)" +" for-loop_315)" " lst_415" " lst_416" " lst_417)))" @@ -73144,20 +73155,20 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_145)" +"(let-values(((obs_144)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_145" +"(if obs_144" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_145" +" obs_144" " 'exit-prim" "(datum->syntax$1" " #f" "(list" " define-syntaxes493_0" -" ids_40" +" ids_42" " exp-rhs_6)))))" "(void)))" "(values))))" @@ -73165,7 +73176,7 @@ static const char *startup_source = "(parsed-define-syntaxes20.1" "(keep-properties-only" " exp-body_7)" -" ids_40" +" ids_42" " syms_25" " parsed-rhs_2)))" "(cons" @@ -73178,7 +73189,7 @@ static const char *startup_source = "((temp529_0)" "(list" " define-syntaxes493_0" -" ids_40" +" ids_42" " exp-rhs_6)))" "(rebuild5.1" " #f" @@ -73195,19 +73206,19 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_146)" +"(let-values(((obs_145)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_146" +"(if obs_145" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_146" +" obs_145" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_146" +" obs_145" " 'prim-require))))" "(void)))" "(values))))" @@ -73218,45 +73229,45 @@ static const char *startup_source = "(let-values(((ok?_80" " #%require530_0" " req531_0)" -"(let-values(((s_790)" +"(let-values(((s_791)" " ready-body_0))" -"(let-values(((orig-s_85)" -" s_790))" +"(let-values(((orig-s_86)" +" s_791))" "(let-values(((#%require530_1" " req531_1)" -"(let-values(((s_791)" -"(if(syntax?$1" -" s_790)" -"(syntax-e$1" -" s_790)" -" s_790)))" -"(if(pair?" -" s_791)" -"(let-values(((#%require532_0)" "(let-values(((s_792)" -"(car" -" s_791)))" -" s_792))" -"((req533_0)" -"(let-values(((s_793)" -"(cdr" -" s_791)))" -"(let-values(((s_794)" "(if(syntax?$1" -" s_793)" +" s_791)" "(syntax-e$1" -" s_793)" -" s_793)))" +" s_791)" +" s_791)))" +"(if(pair?" +" s_792)" +"(let-values(((#%require532_0)" +"(let-values(((s_793)" +"(car" +" s_792)))" +" s_793))" +"((req533_0)" +"(let-values(((s_794)" +"(cdr" +" s_792)))" +"(let-values(((s_795)" +"(if(syntax?$1" +" s_794)" +"(syntax-e$1" +" s_794)" +" s_794)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_794)))" +" s_795)))" "(if(not" " flat-s_57)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_85))" +" orig-s_86))" "(let-values()" " flat-s_57)))))))" "(values" @@ -73265,7 +73276,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_85)))))" +" orig-s_86)))))" "(values" " #t" " #%require530_1" @@ -73280,9 +73291,9 @@ static const char *startup_source = "((m-ns537_0)" " m-ns_20)" "((phase538_0)" -" phase_156)" +" phase_155)" "((phase539_0)" -" phase_156)" +" phase_155)" "((requires+provides540_0)" " requires+provides_7)" "((declared-submodule-names541_0)" @@ -73314,14 +73325,14 @@ static const char *startup_source = " m-ns537_0" " phase538_0" " requires+provides540_0))" -"(let-values(((obs_147)" +"(let-values(((obs_146)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_147" +"(if obs_146" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_147" +" obs_146" " 'exit-prim" " ready-body_0)))" "(void)))" @@ -73385,22 +73396,22 @@ static const char *startup_source = " 'module*)" "(let-values()" "(begin" -"(let-values(((obs_148)" +"(let-values(((obs_147)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_148" +"(if obs_147" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_148" +" obs_147" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_148" +" obs_147" " 'prim-submodule*)" "(call-expand-observe" -" obs_148" +" obs_147" " 'exit-prim" " exp-body_7))))" "(void)))" @@ -73416,45 +73427,45 @@ static const char *startup_source = "(let-values(((ok?_81" " #%declare551_0" " kw552_0)" -"(let-values(((s_795)" +"(let-values(((s_796)" " disarmed-exp-body_1))" -"(let-values(((orig-s_86)" -" s_795))" +"(let-values(((orig-s_87)" +" s_796))" "(let-values(((#%declare551_1" " kw552_1)" -"(let-values(((s_796)" +"(let-values(((s_797)" "(if(syntax?$1" -" s_795)" -"(syntax-e$1" -" s_795)" -" s_795)))" -"(if(pair?" " s_796)" -"(let-values(((#%declare553_0)" -"(let-values(((s_573)" -"(car" -" s_796)))" -" s_573))" -"((kw554_0)" -"(let-values(((s_574)" -"(cdr" -" s_796)))" -"(let-values(((s_575)" -"(if(syntax?$1" -" s_574)" "(syntax-e$1" -" s_574)" -" s_574)))" +" s_796)" +" s_796)))" +"(if(pair?" +" s_797)" +"(let-values(((#%declare553_0)" +"(let-values(((s_576)" +"(car" +" s_797)))" +" s_576))" +"((kw554_0)" +"(let-values(((s_577)" +"(cdr" +" s_797)))" +"(let-values(((s_578)" +"(if(syntax?$1" +" s_577)" +"(syntax-e$1" +" s_577)" +" s_577)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_575)))" +" s_578)))" "(if(not" " flat-s_58)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_86))" +" orig-s_87))" "(let-values()" " flat-s_58)))))))" "(values" @@ -73463,7 +73474,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_86)))))" +" orig-s_87)))))" "(values" " #t" " #%declare551_1" @@ -73479,7 +73490,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_421)))" -"((letrec-values(((for-loop_314)" +"((letrec-values(((for-loop_316)" "(lambda(lst_422)" "(begin" " 'for-loop" @@ -73488,7 +73499,7 @@ static const char *startup_source = "(let-values(((kw_2)" "(unsafe-car" " lst_422))" -"((rest_252)" +"((rest_251)" "(unsafe-cdr" " lst_422)))" "(let-values((()" @@ -73541,11 +73552,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_314" -" rest_252)" +"(for-loop_316" +" rest_251)" "(values))))" "(values))))))" -" for-loop_314)" +" for-loop_316)" " lst_421)))" "(values))))" "(let-values()" @@ -73593,21 +73604,21 @@ static const char *startup_source = "(make-wrap-as-definition)" "(lambda(self_36 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_12 requires+provides_8)" "(begin" -"(lambda(ids_41 rhs_23 phase_157)" +"(lambda(ids_43 rhs_23 phase_156)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_423) ids_41))" +"(let-values(((lst_423) ids_43))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_423)))" -"((letrec-values(((for-loop_315)" +"((letrec-values(((for-loop_317)" "(lambda(fold-var_360 lst_424)" "(begin" " 'for-loop" "(if(pair? lst_424)" "(let-values(((id_155)(unsafe-car lst_424))" -"((rest_253)(unsafe-cdr lst_424)))" +"((rest_252)(unsafe-cdr lst_424)))" "(let-values(((fold-var_361)" "(let-values(((fold-var_362) fold-var_360))" "(let-values(((fold-var_363)" @@ -73619,9 +73630,9 @@ static const char *startup_source = " inside-scope_2))" " fold-var_362))))" "(values fold-var_363)))))" -"(if(not #f)(for-loop_315 fold-var_361 rest_253) fold-var_361)))" +"(if(not #f)(for-loop_317 fold-var_361 rest_252) fold-var_361)))" " fold-var_360)))))" -" for-loop_315)" +" for-loop_317)" " null" " lst_423))))))" "(let-values(((syms_26)" @@ -73639,34 +73650,34 @@ static const char *startup_source = " scoped-ids_0" " defined-syms_12" " self_36" -" phase_157" +" phase_156" " all-scopes-stx_6))))" -"(let-values(((s_797)" +"(let-values(((s_798)" "(add-scope" "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_157) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_156) 'define-values)" " scoped-ids_0" " rhs_23))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_797 syms_26 scoped-ids_0 rhs_23)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_798 syms_26 scoped-ids_0 rhs_23)))))))))" "(define-values" "(add-post-expansion-scope)" -"(lambda(bodys_23 ctx_114)" +"(lambda(bodys_23 ctx_113)" "(begin" -"(let-values(((sc_34)(root-expand-context-post-expansion-scope ctx_114)))" +"(let-values(((sc_34)(root-expand-context-post-expansion-scope ctx_113)))" "(if sc_34" "(reverse$1" "(let-values(((lst_425) bodys_23))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_425)))" -"((letrec-values(((for-loop_316)" +"((letrec-values(((for-loop_318)" "(lambda(fold-var_364 lst_426)" "(begin" " 'for-loop" "(if(pair? lst_426)" -"(let-values(((body_23)(unsafe-car lst_426))((rest_254)(unsafe-cdr lst_426)))" +"(let-values(((body_23)(unsafe-car lst_426))((rest_253)(unsafe-cdr lst_426)))" "(let-values(((fold-var_365)" "(let-values(((fold-var_366) fold-var_364))" "(let-values(((fold-var_367)" @@ -73675,9 +73686,9 @@ static const char *startup_source = "(let-values()(add-scope body_23 sc_34))" " fold-var_366))))" "(values fold-var_367)))))" -"(if(not #f)(for-loop_316 fold-var_365 rest_254) fold-var_365)))" +"(if(not #f)(for-loop_318 fold-var_365 rest_253) fold-var_365)))" " fold-var_364)))))" -" for-loop_316)" +" for-loop_318)" " null" " lst_425))))" " bodys_23)))))" @@ -73694,7 +73705,7 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_158) phase84_0))" +"(let-values(((phase_157) phase84_0))" "(let-values(((body-ctx_7) ctx85_0))" "(let-values(((self_37) self86_0))" "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))" @@ -73708,15 +73719,15 @@ static const char *startup_source = " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_54(not(zero? phase_158)) #f)" +"(if(if tail?_54(not(zero? phase_157)) #f)" "(let-values()" "(begin" -"(let-values(((obs_149)(expand-context-observer body-ctx_7)))" -"(if obs_149" +"(let-values(((obs_148)(expand-context-observer body-ctx_7)))" +"(if obs_148" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_149" +" obs_148" " 'module-lift-end-loop" " '())))" "(void)))" @@ -73732,13 +73743,13 @@ static const char *startup_source = "(if(null? bodys_25)" "(let-values()" "(begin" -"(let-values(((obs_150)" +"(let-values(((obs_149)" "(expand-context-observer body-ctx_7)))" -"(if obs_150" +"(if obs_149" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_150" +" obs_149" " 'module-lift-end-loop" " '())))" "(void)))" @@ -73751,38 +73762,38 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_151)" +"(let-values(((obs_150)" "(expand-context-observer body-ctx_7)))" -"(if obs_151" +"(if obs_150" "(let-values()" "(let-values()" -"(call-expand-observe obs_151 'next)))" +"(call-expand-observe obs_150 'next)))" "(void)))" "(values))))" "(let-values(((body_24)(car bodys_24)))" "(let-values(((rest-bodys_2)(cdr bodys_24)))" "(let-values(((exp-body_8)" -"(if(let-values(((or-part_404)" +"(if(let-values(((or-part_402)" "(parsed? body_24)))" -"(if or-part_404" -" or-part_404" -"(let-values(((or-part_405)" +"(if or-part_402" +" or-part_402" +"(let-values(((or-part_403)" "(expanded+parsed? body_24)))" -"(if or-part_405" -" or-part_405" +"(if or-part_403" +" or-part_403" "(semi-parsed-begin-for-syntax?" " body_24)))))" "(let-values() body_24)" "(if(semi-parsed-define-values? body_24)" "(let-values()" -"(let-values(((ids_42)" +"(let-values(((ids_44)" "(semi-parsed-define-values-ids" " body_24)))" "(let-values(((rhs-ctx_2)" "(as-named-context" "(as-expression-context" " body-ctx_7)" -" ids_42)))" +" ids_44)))" "(let-values(((syms_27)" "(semi-parsed-define-values-syms" " body_24)))" @@ -73793,7 +73804,7 @@ static const char *startup_source = " define-values562_0" " _563_0" " _564_0)" -"(let-values(((s_798)" +"(let-values(((s_799)" "(syntax-disarm$1" " s_301)))" "(if(if(not" @@ -73801,89 +73812,89 @@ static const char *startup_source = " rhs-ctx_2))" " #t" " #f)" -"(let-values(((orig-s_87)" -" s_798))" +"(let-values(((orig-s_88)" +" s_799))" "(let-values(((define-values562_1" " _563_1" " _564_1)" -"(let-values(((s_799)" -"(if(syntax?$1" -" s_798)" -"(syntax-e$1" -" s_798)" -" s_798)))" -"(if(pair?" -" s_799)" -"(let-values(((define-values565_0)" "(let-values(((s_800)" -"(car" +"(if(syntax?$1" +" s_799)" +"(syntax-e$1" +" s_799)" " s_799)))" -" s_800))" +"(if(pair?" +" s_800)" +"(let-values(((define-values565_0)" +"(let-values(((s_801)" +"(car" +" s_800)))" +" s_801))" "((_566_0" " _567_0)" -"(let-values(((s_801)" -"(cdr" -" s_799)))" "(let-values(((s_802)" -"(if(syntax?$1" -" s_801)" -"(syntax-e$1" -" s_801)" -" s_801)))" -"(if(pair?" -" s_802)" -"(let-values(((_568_0)" +"(cdr" +" s_800)))" "(let-values(((s_803)" -"(car" -" s_802)))" -" s_803))" -"((_569_0)" -"(let-values(((s_804)" -"(cdr" -" s_802)))" -"(let-values(((s_805)" "(if(syntax?$1" -" s_804)" +" s_802)" "(syntax-e$1" -" s_804)" -" s_804)))" +" s_802)" +" s_802)))" "(if(pair?" -" s_805)" -"(let-values(((_570_0)" -"(let-values(((s_806)" +" s_803)" +"(let-values(((_568_0)" +"(let-values(((s_804)" "(car" -" s_805)))" -" s_806))" -"(()" -"(let-values(((s_807)" +" s_803)))" +" s_804))" +"((_569_0)" +"(let-values(((s_805)" "(cdr" -" s_805)))" -"(let-values(((s_808)" +" s_803)))" +"(let-values(((s_806)" "(if(syntax?$1" -" s_807)" +" s_805)" "(syntax-e$1" -" s_807)" -" s_807)))" -"(if(null?" +" s_805)" +" s_805)))" +"(if(pair?" +" s_806)" +"(let-values(((_570_0)" +"(let-values(((s_807)" +"(car" +" s_806)))" +" s_807))" +"(()" +"(let-values(((s_808)" +"(cdr" +" s_806)))" +"(let-values(((s_809)" +"(if(syntax?$1" " s_808)" +"(syntax-e$1" +" s_808)" +" s_808)))" +"(if(null?" +" s_809)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_87))))))" +" orig-s_88))))))" "(values" " _570_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_87))))))" +" orig-s_88))))))" "(values" " _568_0" " _569_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_87))))))" +" orig-s_88))))))" "(values" " define-values565_0" " _566_0" @@ -73891,7 +73902,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_87)))))" +" orig-s_88)))))" "(values" " #t" " define-values562_1" @@ -73944,7 +73955,7 @@ static const char *startup_source = "(let-values(((comp-form_0)" "(parsed-define-values19.1" " rebuild-s_15" -" ids_42" +" ids_44" " syms_27" "(if(expand-context-to-parsed?" " rhs-ctx_2)" @@ -73970,7 +73981,7 @@ static const char *startup_source = "((temp579_0)" "(list" " define-values562_0" -" ids_42" +" ids_44" " exp-rhs_7)))" "(rebuild5.1" " #f" @@ -73984,7 +73995,7 @@ static const char *startup_source = "(let-values(((tmp_66)" "(core-form-sym" " disarmed-body_0" -" phase_158)))" +" phase_157)))" "(if(if(equal? tmp_66 '#%require)" " #t" "(if(equal? tmp_66 '#%provide)" @@ -74043,14 +74054,14 @@ static const char *startup_source = "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_152)" +"(let-values(((obs_151)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_152" +"(if obs_151" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_152" +" obs_151" " 'module-lift-loop" "(append" " lifted-requires_0" @@ -74076,7 +74087,7 @@ static const char *startup_source = " modules-being-compiled591_0" " mpis-to-reset588_0" " lifted-modules_0" -" phase_158" +" phase_157" " self_37" " body-ctx_7))))" "(let-values(((exp-lifted-defns_0)" @@ -74085,14 +74096,14 @@ static const char *startup_source = "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_153)" +"(let-values(((obs_152)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_153" +"(if obs_152" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_153" +" obs_152" " 'next)))" "(void)))))" "(append" @@ -74109,18 +74120,18 @@ static const char *startup_source = " partially-expanded-bodys_1)))))))))))))" "(define-values" "(check-defined-by-now)" -"(lambda(need-eventually-defined_3 self_38 ctx_115)" +"(lambda(need-eventually-defined_3 self_38 ctx_114)" "(begin" "(begin" -"(let-values(((ht_166) need-eventually-defined_3))" +"(let-values(((ht_165) need-eventually-defined_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_166)))" -"((letrec-values(((for-loop_317)" -"(lambda(i_196)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_165)))" +"((letrec-values(((for-loop_319)" +"(lambda(i_195)" "(begin" " 'for-loop" -"(if i_196" -"(let-values(((phase_159 l_85)(hash-iterate-key+value ht_166 i_196)))" +"(if i_195" +"(let-values(((phase_158 l_85)(hash-iterate-key+value ht_165 i_195)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74134,7 +74145,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_427)))" -"((letrec-values(((for-loop_318)" +"((letrec-values(((for-loop_320)" "(lambda(lst_428)" "(begin" " 'for-loop" @@ -74143,7 +74154,7 @@ static const char *startup_source = "(let-values(((id_156)" "(unsafe-car" " lst_428))" -"((rest_255)" +"((rest_254)" "(unsafe-cdr" " lst_428)))" "(let-values((()" @@ -74156,7 +74167,7 @@ static const char *startup_source = "(let-values(((id592_0)" " id_156)" "((phase593_0)" -" phase_159))" +" phase_158))" "(resolve+shift30.1" " #f" " #f" @@ -74195,23 +74206,23 @@ static const char *startup_source = " null" "(syntax-debug-info-string" " id_156" -" ctx_115))))))" +" ctx_114))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_318" -" rest_255)" +"(for-loop_320" +" rest_254)" "(values))))" "(values))))))" -" for-loop_318)" +" for-loop_320)" " lst_427)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_317(hash-iterate-next ht_166 i_196))(values))))" +"(if(not #f)(for-loop_319(hash-iterate-next ht_165 i_195))(values))))" "(values))))))" -" for-loop_317)" -"(hash-iterate-first ht_166))))" +" for-loop_319)" +"(hash-iterate-first ht_165))))" "(void)))))" "(define-values" "(resolve-provides115.1)" @@ -74228,50 +74239,50 @@ static const char *startup_source = "(let-values(((requires+provides_9) requires-and-provides102_0))" "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))" "(let-values(((m-ns_21) namespace104_0))" -"(let-values(((phase_160) phase105_0))" +"(let-values(((phase_159) phase105_0))" "(let-values(((self_39) self106_0))" -"(let-values(((ctx_116) ctx107_1))" +"(let-values(((ctx_115) ctx107_1))" "(let-values()" "(let-values()" "((letrec-values(((loop_133)" -"(lambda(bodys_26 phase_161)" +"(lambda(bodys_26 phase_160)" "(begin" " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_406)(parsed?(car bodys_26))))" -"(if or-part_406 or-part_406(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_404)(parsed?(car bodys_26))))" +"(if or-part_404 or-part_404(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_133(cdr bodys_26) phase_161)))" +"(cons(car bodys_26)(loop_133(cdr bodys_26) phase_160)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" "(loop_133" "(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_161))))" +"(add1 phase_160))))" "(cons" -"(let-values(((the-struct_118)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_118)" +"(let-values(((the-struct_117)(car bodys_26)))" +"(if(semi-parsed-begin-for-syntax? the-struct_117)" "(let-values(((body594_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_118)" +"(semi-parsed-begin-for-syntax-s the-struct_117)" " body594_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_118)))" -"(loop_133(cdr bodys_26) phase_161))))" +" the-struct_117)))" +"(loop_133(cdr bodys_26) phase_160))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" "(let-values(((tmp_67)" -"(core-form-sym disarmed-body_1 phase_161)))" +"(core-form-sym disarmed-body_1 phase_160)))" "(if(equal? tmp_67 '#%provide)" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_114)" "(expand-context-observer" -" ctx_116)))" +" ctx_115)))" "(if obs_114" "(let-values()" "(let-values()" @@ -74286,42 +74297,42 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_83 #%provide595_0 spec596_0)" -"(let-values(((s_809) disarmed-body_1))" -"(let-values(((orig-s_88) s_809))" +"(let-values(((s_810) disarmed-body_1))" +"(let-values(((orig-s_89) s_810))" "(let-values(((#%provide595_1" " spec596_1)" -"(let-values(((s_810)" -"(if(syntax?$1" -" s_809)" -"(syntax-e$1" -" s_809)" -" s_809)))" -"(if(pair? s_810)" -"(let-values(((#%provide597_0)" "(let-values(((s_811)" -"(car" -" s_810)))" -" s_811))" -"((spec598_0)" -"(let-values(((s_812)" -"(cdr" -" s_810)))" -"(let-values(((s_813)" "(if(syntax?$1" -" s_812)" +" s_810)" "(syntax-e$1" -" s_812)" -" s_812)))" +" s_810)" +" s_810)))" +"(if(pair? s_811)" +"(let-values(((#%provide597_0)" +"(let-values(((s_812)" +"(car" +" s_811)))" +" s_812))" +"((spec598_0)" +"(let-values(((s_813)" +"(cdr" +" s_811)))" +"(let-values(((s_814)" +"(if(syntax?$1" +" s_813)" +"(syntax-e$1" +" s_813)" +" s_813)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_813)))" +" s_814)))" "(if(not" " flat-s_59)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_88))" +" orig-s_89))" "(let-values()" " flat-s_59)))))))" "(values" @@ -74330,7 +74341,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_88)))))" +" orig-s_89)))))" "(values" " #t" " #%provide595_1" @@ -74341,117 +74352,117 @@ static const char *startup_source = "(car bodys_26)" " requires+provides_9" " self_39" -" phase_161" -"(let-values(((v_261) ctx_116))" -"(let-values(((the-struct_119)" -" v_261))" +" phase_160" +"(let-values(((v_260) ctx_115))" +"(let-values(((the-struct_118)" +" v_260))" "(if(expand-context/outer?" -" the-struct_119)" +" the-struct_118)" "(let-values(((context599_0)" " 'top-level)" "((inner600_0)" -"(let-values(((the-struct_120)" +"(let-values(((the-struct_119)" "(root-expand-context/outer-inner" -" v_261)))" +" v_260)))" "(if(expand-context/inner?" -" the-struct_120)" +" the-struct_119)" "(let-values(((phase601_0)" -" phase_161)" +" phase_160)" "((namespace602_0)" "(namespace->namespace-at-phase" " m-ns_21" -" phase_161))" +" phase_160))" "((requires+provides603_0)" " requires+provides_9)" "((declared-submodule-names604_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_120)" +" the-struct_119)" "(root-expand-context/inner-module-scopes" -" the-struct_120)" +" the-struct_119)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_120)" +" the-struct_119)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_120)" +" the-struct_119)" "(root-expand-context/inner-defined-syms" -" the-struct_120)" +" the-struct_119)" "(root-expand-context/inner-counter" -" the-struct_120)" +" the-struct_119)" "(root-expand-context/inner-lift-key" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-to-parsed?" -" the-struct_120)" +" the-struct_119)" " phase601_0" " namespace602_0" "(expand-context/inner-just-once?" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-module-begin-k" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-allow-unbound?" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-in-local-expand?" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-stops" -" the-struct_120)" +" the-struct_119)" " declared-submodule-names604_0" "(expand-context/inner-lifts" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-lift-envs" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-module-lifts" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-require-lifts" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-to-module-lifts" -" the-struct_120)" +" the-struct_119)" " requires+provides603_0" "(expand-context/inner-observer" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-for-serializable?" -" the-struct_120)" +" the-struct_119)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_120)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_120)))))" -"(expand-context/outer1.1" -" inner600_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_119)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_119)" -"(root-expand-context/outer-frame-id" -" the-struct_119)" -" context599_0" -"(expand-context/outer-env" -" the-struct_119)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_119)" -"(expand-context/outer-scopes" -" the-struct_119)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_119)" -"(expand-context/outer-binding-layer" -" the-struct_119)" -"(expand-context/outer-reference-records" -" the-struct_119)" -"(expand-context/outer-only-immediate?" -" the-struct_119)" -"(expand-context/outer-need-eventually-defined" -" the-struct_119)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_119)" -"(expand-context/outer-name" " the-struct_119)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_119)))))" +"(expand-context/outer1.1" +" inner600_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_118)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_118)" +"(root-expand-context/outer-frame-id" +" the-struct_118)" +" context599_0" +"(expand-context/outer-env" +" the-struct_118)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_118)" +"(expand-context/outer-scopes" +" the-struct_118)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_118)" +"(expand-context/outer-binding-layer" +" the-struct_118)" +"(expand-context/outer-reference-records" +" the-struct_118)" +"(expand-context/outer-only-immediate?" +" the-struct_118)" +"(expand-context/outer-need-eventually-defined" +" the-struct_118)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_118)" +"(expand-context/outer-name" +" the-struct_118)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_119)))))))" -"(if(expand-context-to-parsed? ctx_116)" +" the-struct_118)))))))" +"(if(expand-context-to-parsed? ctx_115)" "(let-values()" -"(loop_133(cdr bodys_26) phase_161))" +"(loop_133(cdr bodys_26) phase_160))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" @@ -74468,14 +74479,14 @@ static const char *startup_source = " temp605_0" " temp606_0)))))" "(begin" -"(let-values(((obs_154)" +"(let-values(((obs_153)" "(expand-context-observer" -" ctx_116)))" -"(if obs_154" +" ctx_115)))" +"(if obs_153" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_154" +" obs_153" " 'exit-prim" " new-s_10)))" "(void)))" @@ -74483,14 +74494,14 @@ static const char *startup_source = " new-s_10" "(loop_133" "(cdr bodys_26)" -" phase_161))))))))))" +" phase_160))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_133(cdr bodys_26) phase_161))))))))))))))" +"(loop_133(cdr bodys_26) phase_160))))))))))))))" " loop_133)" " expression-expanded-bodys_1" -" phase_160)))))))))))))" +" phase_159)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -74514,7 +74525,7 @@ static const char *startup_source = "(let-values(((self_40) self122_0))" "(let-values(((enclosing-self_3) enclosing123_0))" "(let-values(((root-ctx_7) root-ctx124_0))" -"(let-values(((ctx_117) ctx125_0))" +"(let-values(((ctx_116) ctx125_0))" "(let-values(((modules-being-compiled_6) modules-being-compiled126_0))" "(let-values(((compiled-module-box_1) fill127_0))" "(let-values()" @@ -74535,8 +74546,8 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_407) enclosing-self_3))" -"(if or-part_407 or-part_407 self_40)))))" +"(let-values(((or-part_405) enclosing-self_3))" +"(if or-part_405 or-part_405 self_40)))))" "(let-values(((compiled-module_0)" "(let-values(((temp608_0)" "(let-values(((m-ns612_0) m-ns_22)" @@ -74559,7 +74570,7 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp609_0)(expand-context-for-serializable? ctx_117))" +"((temp609_0)(expand-context-for-serializable? ctx_116))" "((modules-being-compiled610_0) modules-being-compiled_6)" "((temp611_0) #f))" "(compile-module13.1" @@ -74601,16 +74612,16 @@ static const char *startup_source = " compiled-module_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_814 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_815 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_815)" -"(syntax-property$1 s_814 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" "(let-values(((s_816)" +"(syntax-property$1 s_815 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_817)" "(syntax-property$1" -" s_815" +" s_816" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_816)))))" +" s_817)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -74629,7 +74640,7 @@ static const char *startup_source = " 'expand-post-submodules165" "(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules164_0))" "(let-values(((declare-enclosing-module_1) declare-enclosing142_0))" -"(let-values(((phase_162) phase143_0))" +"(let-values(((phase_161) phase143_0))" "(let-values(((self_41) self144_0))" "(let-values(((requires+provides_11) requires-and-provides145_0))" "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))" @@ -74641,7 +74652,7 @@ static const char *startup_source = "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" "((letrec-values(((loop_134)" -"(lambda(bodys_27 phase_163)" +"(lambda(bodys_27 phase_162)" "(begin" " 'loop" "(if(null? bodys_27)" @@ -74655,44 +74666,44 @@ 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_817)" +"(let-values(((s_818)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_89) s_817))" +"(let-values(((orig-s_90) s_818))" "(let-values(((begin-for-syntax617_1" " _618_1)" -"(let-values(((s_818)" -"(if(syntax?$1" -" s_817)" -"(syntax-e$1" -" s_817)" -" s_817)))" -"(if(pair? s_818)" -"(let-values(((begin-for-syntax619_0)" "(let-values(((s_819)" -"(car" -" s_818)))" -" s_819))" -"((_620_0)" -"(let-values(((s_820)" -"(cdr" -" s_818)))" -"(let-values(((s_821)" "(if(syntax?$1" -" s_820)" +" s_818)" "(syntax-e$1" -" s_820)" -" s_820)))" +" s_818)" +" s_818)))" +"(if(pair? s_819)" +"(let-values(((begin-for-syntax619_0)" +"(let-values(((s_820)" +"(car" +" s_819)))" +" s_820))" +"((_620_0)" +"(let-values(((s_821)" +"(cdr" +" s_819)))" +"(let-values(((s_822)" +"(if(syntax?$1" +" s_821)" +"(syntax-e$1" +" s_821)" +" s_821)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_821)))" +" s_822)))" "(if(not" " flat-s_60)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_89))" +" orig-s_90))" "(let-values()" " flat-s_60)))))))" "(values" @@ -74701,7 +74712,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_89)))))" +" orig-s_90)))))" "(values" " #t" " begin-for-syntax617_1" @@ -74724,7 +74735,7 @@ static const char *startup_source = "(loop_134" "(semi-parsed-begin-for-syntax-body" " body_25)" -"(add1 phase_163))))" +"(add1 phase_162))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -74747,20 +74758,20 @@ static const char *startup_source = " rebuild-body-s623_0" " temp624_0))" " parsed-bfs_0))" -"(loop_134 rest-bodys_3 phase_163))))))))" -"(if(let-values(((or-part_408)(parsed? body_25)))" -"(if or-part_408" -" or-part_408" +"(loop_134 rest-bodys_3 phase_162))))))))" +"(if(let-values(((or-part_406)(parsed? body_25)))" +"(if or-part_406" +" or-part_406" "(expanded+parsed? body_25)))" "(let-values()" -"(cons body_25(loop_134 rest-bodys_3 phase_163)))" +"(cons body_25(loop_134 rest-bodys_3 phase_162)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" "(let-values(((tmp_68)" "(core-form-sym" " disarmed-body_2" -" phase_163)))" +" phase_162)))" "(if(equal? tmp_68 'module*)" "(let-values()" "(let-values((()" @@ -74776,14 +74787,14 @@ static const char *startup_source = " module*625_0" " name626_0" " _627_0)" -"(let-values(((s_822)" +"(let-values(((s_681)" " disarmed-body_2))" "(if(let-values(((s_823)" "(if(syntax?$1" -" s_822)" +" s_681)" "(syntax-e$1" -" s_822)" -" s_822)))" +" s_681)" +" s_681)))" "(if(pair? s_823)" "(if(let-values(((s_824)" "(car" @@ -74807,29 +74818,29 @@ static const char *startup_source = "(let-values(((s_828)" "(cdr" " s_826)))" -"(let-values(((s_679)" +"(let-values(((s_829)" "(if(syntax?$1" " s_828)" "(syntax-e$1" " s_828)" " s_828)))" "(if(pair?" -" s_679)" -"(if(let-values(((s_829)" +" s_829)" +"(if(let-values(((s_682)" "(car" -" s_679)))" +" s_829)))" "(let-values(((s_830)" "(if(syntax?$1" -" s_829)" +" s_682)" "(syntax-e$1" -" s_829)" -" s_829)))" +" s_682)" +" s_682)))" "(eq?" " #f" " s_830)))" "(let-values(((s_831)" "(cdr" -" s_679)))" +" s_829)))" " #t)" " #f)" " #f)))" @@ -74843,10 +74854,10 @@ static const char *startup_source = " _627_1)" "(let-values(((s_832)" "(if(syntax?$1" -" s_822)" +" s_681)" "(syntax-e$1" -" s_822)" -" s_822)))" +" s_681)" +" s_681)))" "(let-values(((module*628_0)" "(let-values(((s_833)" "(car" @@ -74919,7 +74930,7 @@ static const char *startup_source = "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_163)))" +" phase_162)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" @@ -74967,27 +74978,27 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_121)" +"(let-values(((the-struct_120)" " submod_4))" "(if(expanded+parsed?" -" the-struct_121)" +" the-struct_120)" "(let-values(((s646_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_163)))" +" phase_162)))" "(expanded+parsed1.1" " s646_0" "(expanded+parsed-parsed" -" the-struct_121)))" +" the-struct_120)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_121))))" +" the-struct_120))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_163))))))))" +" phase_162))))))))" "(let-values()" "(let-values(((temp650_0)" " #t)" @@ -75020,47 +75031,47 @@ static const char *startup_source = " submod_3" "(loop_134" " rest-bodys_3" -" phase_163)))))))" +" phase_162)))))))" "(let-values()" "(cons" " body_25" "(loop_134" " rest-bodys_3" -" phase_163)))))))))))))))))" +" phase_162)))))))))))))))))" " loop_134)" " fully-expanded-bodys-except-post-submodules_2" -" phase_162)))))))))))))))))" +" phase_161)))))))))))))))))" "(define-values" "(stop-at-module*?)" -"(lambda(ctx_118)" +"(lambda(ctx_117)" "(begin" "(free-id-set-member?" -"(expand-context-stops ctx_118)" -"(expand-context-phase ctx_118)" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_118))))))" +"(expand-context-stops ctx_117)" +"(expand-context-phase ctx_117)" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_117))))))" "(define-values" "(check-ids-unbound173.1)" "(lambda(in168_0 ids170_0 phase171_1 requires+provides172_0)" "(begin" " 'check-ids-unbound173" -"(let-values(((ids_43) ids170_0))" -"(let-values(((phase_164) phase171_1))" +"(let-values(((ids_45) ids170_0))" +"(let-values(((phase_163) phase171_1))" "(let-values(((requires+provides_12) requires+provides172_0))" "(let-values(((s_842) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_429) ids_43))" +"(let-values(((lst_429) ids_45))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_429)))" -"((letrec-values(((for-loop_319)" +"((letrec-values(((for-loop_321)" "(lambda(lst_430)" "(begin" " 'for-loop" "(if(pair? lst_430)" "(let-values(((id_157)(unsafe-car lst_430))" -"((rest_256)(unsafe-cdr lst_430)))" +"((rest_255)(unsafe-cdr lst_430)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75082,28 +75093,28 @@ static const char *startup_source = " temp659_0" " requires+provides_12" " id_157" -" phase_164)))" +" phase_163)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_319 rest_256)(values))))" +"(if(not #f)(for-loop_321 rest_255)(values))))" "(values))))))" -" for-loop_319)" +" for-loop_321)" " lst_429)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_165 m-ns_23 self_42 ctx_119)" +"(lambda(bodys_28 phase_164 m-ns_23 self_42 ctx_118)" "(begin" "(begin" "(let-values(((lst_431) bodys_28))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_431)))" -"((letrec-values(((for-loop_320)" +"((letrec-values(((for-loop_322)" "(lambda(lst_432)" "(begin" " 'for-loop" "(if(pair? lst_432)" -"(let-values(((body_26)(unsafe-car lst_432))((rest_257)(unsafe-cdr lst_432)))" +"(let-values(((body_26)(unsafe-car lst_432))((rest_256)(unsafe-cdr lst_432)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75117,19 +75128,19 @@ static const char *startup_source = " body_26)))" "(if(parsed-define-values? p_87)" "(let-values()" -"(let-values(((ids_44)" +"(let-values(((ids_46)" "(parsed-define-values-ids" " p_87)))" "(let-values(((vals_11)" "(eval-for-bindings" -" ids_44" +" ids_46" "(parsed-define-values-rhs" " p_87)" -" phase_165" +" phase_164" " m-ns_23" -" ctx_119)))" +" ctx_118)))" "(begin" -"(let-values(((lst_433) ids_44)" +"(let-values(((lst_433) ids_46)" "((lst_434)" "(parsed-define-values-syms" " p_87))" @@ -75150,7 +75161,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_435)))" -"((letrec-values(((for-loop_321)" +"((letrec-values(((for-loop_323)" "(lambda(lst_436" " lst_437" " lst_438)" @@ -75167,19 +75178,19 @@ static const char *startup_source = "(let-values(((id_158)" "(unsafe-car" " lst_436))" -"((rest_258)" +"((rest_257)" "(unsafe-cdr" " lst_436))" "((sym_107)" "(unsafe-car" " lst_437))" -"((rest_259)" +"((rest_258)" "(unsafe-cdr" " lst_437))" "((val_87)" "(unsafe-car" " lst_438))" -"((rest_260)" +"((rest_259)" "(unsafe-cdr" " lst_438)))" "(let-values((()" @@ -75190,37 +75201,37 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_23" -" phase_165" +" phase_164" " sym_107" " val_87))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_321" +"(for-loop_323" +" rest_257" " rest_258" -" rest_259" -" rest_260)" +" rest_259)" "(values))))" "(values))))))" -" for-loop_321)" +" for-loop_323)" " lst_433" " lst_434" " lst_435)))" "(void)))))" -"(if(let-values(((or-part_409)" +"(if(let-values(((or-part_407)" "(parsed-define-syntaxes?" " p_87)))" -"(if or-part_409" -" or-part_409" +"(if or-part_407" +" or-part_407" "(semi-parsed-begin-for-syntax?" " p_87)))" "(let-values()(void))" -"(if(let-values(((or-part_410)" +"(if(let-values(((or-part_408)" "(parsed-#%declare?" " p_87)))" -"(if or-part_410" -" or-part_410" +"(if or-part_408" +" or-part_408" "(syntax?$1 p_87)))" "(let-values()(void))" "(let-values()" @@ -75231,7 +75242,7 @@ static const char *startup_source = " #f" " parameterization-key)" " current-expand-context" -" ctx_119" +" ctx_118" " 1/current-namespace" " m-ns_23)" "(let-values()" @@ -75241,7 +75252,7 @@ static const char *startup_source = "(let-values(((m-ns660_0)" " m-ns_23)" "((phase661_0)" -" phase_165))" +" phase_164))" "(make-compile-context14.1" " #f" " #f" @@ -75258,9 +75269,9 @@ static const char *startup_source = " m-ns_23)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_320 rest_257)(values))))" +"(if(not #f)(for-loop_322 rest_256)(values))))" "(values))))))" -" for-loop_320)" +" for-loop_322)" " lst_431)))" "(void)))))" "(define-values" @@ -75285,7 +75296,7 @@ static const char *startup_source = " 'expand-submodule197" "(let-values(((s_843) s194_0))" "(let-values(((self_43) self195_0))" -"(let-values(((ctx_120) ctx196_0))" +"(let-values(((ctx_119) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" "(let-values(((keep-enclosing-scope-at-phase_2)" "(if keep-enclosing-scope-at-phase186_0 keep-enclosing-scope-at-phase177_0 #f)))" @@ -75307,20 +75318,20 @@ static const char *startup_source = "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_155)(expand-context-observer ctx_120)))" -"(if obs_155" +"(let-values(((obs_154)(expand-context-observer ctx_119)))" +"(if obs_154" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_155 'enter-prim s_843)" +"(call-expand-observe obs_154 'enter-prim s_843)" "(call-expand-observe" -" obs_155" +" obs_154" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" "(let-values(((ok?_86 module662_0 name663_0 _664_0)" "(let-values(((s_844) s_843))" -"(let-values(((orig-s_90) s_844))" +"(let-values(((orig-s_91) s_844))" "(let-values(((module662_1 name663_1 _664_1)" "(let-values(((s_845)" "(if(syntax?$1 s_844)" @@ -75352,143 +75363,143 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_90))))))" +" orig-s_91))))))" "(values module665_0 name666_0 _667_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_90)))))" +" orig-s_91)))))" "(values #t module662_1 name663_1 _664_1))))))" -"(let-values(((name_81)(syntax-e$1 name663_0)))" +"(let-values(((name_82)(syntax-e$1 name663_0)))" "(let-values((()" "(begin" -"(if(hash-ref declared-submodule-names_8 name_81 #f)" +"(if(hash-ref declared-submodule-names_8 name_82 #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" " s_843" -" name_81))" +" name_82))" "(void))" "(values))))" "(let-values((()" "(begin" "(hash-set!" " declared-submodule-names_8" -" name_81" +" name_82" "(syntax-e$1 module662_0))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_156)(expand-context-observer ctx_120)))" -"(if obs_156" +"(let-values(((obs_155)(expand-context-observer ctx_119)))" +"(if obs_155" "(let-values()" "(let-values()" -"(call-expand-observe obs_156 'enter-prim s_843)))" +"(call-expand-observe obs_155 'enter-prim s_843)))" "(void)))" "(values))))" "(let-values(((submod_5)" "(let-values(((temp671_0)" -"(let-values(((v_262) ctx_120))" -"(let-values(((the-struct_122) v_262))" -"(if(expand-context/outer? the-struct_122)" +"(let-values(((v_261) ctx_119))" +"(let-values(((the-struct_121) v_261))" +"(if(expand-context/outer? the-struct_121)" "(let-values(((context680_0) 'module)" "((post-expansion-scope681_0)" " #f)" "((inner682_0)" -"(let-values(((the-struct_123)" +"(let-values(((the-struct_122)" "(root-expand-context/outer-inner" -" v_262)))" +" v_261)))" "(if(expand-context/inner?" -" the-struct_123)" +" the-struct_122)" "(let-values(((stops683_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_123)" +" the-struct_122)" "(root-expand-context/inner-module-scopes" -" the-struct_123)" +" the-struct_122)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_123)" +" the-struct_122)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_123)" +" the-struct_122)" "(root-expand-context/inner-defined-syms" -" the-struct_123)" +" the-struct_122)" "(root-expand-context/inner-counter" -" the-struct_123)" +" the-struct_122)" "(root-expand-context/inner-lift-key" -" the-struct_123)" +" the-struct_122)" "(expand-context/inner-to-parsed?" -" the-struct_123)" +" the-struct_122)" "(expand-context/inner-phase" -" the-struct_123)" +" the-struct_122)" "(expand-context/inner-namespace" -" the-struct_123)" +" the-struct_122)" "(expand-context/inner-just-once?" -" the-struct_123)" +" the-struct_122)" "(expand-context/inner-module-begin-k" -" the-struct_123)" +" the-struct_122)" "(expand-context/inner-allow-unbound?" -" the-struct_123)" +" the-struct_122)" "(expand-context/inner-in-local-expand?" -" the-struct_123)" +" the-struct_122)" " stops683_0" "(expand-context/inner-declared-submodule-names" -" the-struct_123)" +" the-struct_122)" "(expand-context/inner-lifts" -" the-struct_123)" +" the-struct_122)" "(expand-context/inner-lift-envs" -" the-struct_123)" +" the-struct_122)" "(expand-context/inner-module-lifts" -" the-struct_123)" +" the-struct_122)" "(expand-context/inner-require-lifts" -" the-struct_123)" +" the-struct_122)" "(expand-context/inner-to-module-lifts" -" the-struct_123)" +" the-struct_122)" "(expand-context/inner-requires+provides" -" the-struct_123)" +" the-struct_122)" "(expand-context/inner-observer" -" the-struct_123)" +" the-struct_122)" "(expand-context/inner-for-serializable?" -" the-struct_123)" +" the-struct_122)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_123)))" +" the-struct_122)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_123)))))" +" the-struct_122)))))" "(expand-context/outer1.1" " inner682_0" " post-expansion-scope681_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_122)" +" the-struct_121)" "(root-expand-context/outer-frame-id" -" the-struct_122)" +" the-struct_121)" " context680_0" "(expand-context/outer-env" -" the-struct_122)" +" the-struct_121)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_122)" +" the-struct_121)" "(expand-context/outer-scopes" -" the-struct_122)" +" the-struct_121)" "(expand-context/outer-def-ctx-scopes" -" the-struct_122)" +" the-struct_121)" "(expand-context/outer-binding-layer" -" the-struct_122)" +" the-struct_121)" "(expand-context/outer-reference-records" -" the-struct_122)" +" the-struct_121)" "(expand-context/outer-only-immediate?" -" the-struct_122)" +" the-struct_121)" "(expand-context/outer-need-eventually-defined" -" the-struct_122)" +" the-struct_121)" "(expand-context/outer-current-introduction-scopes" -" the-struct_122)" +" the-struct_121)" "(expand-context/outer-name" -" the-struct_122)))" +" the-struct_121)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_122)))))" +" the-struct_121)))))" "((self672_0) self_43)" "((temp673_0) #t)" "((keep-enclosing-scope-at-phase674_0)" @@ -75521,18 +75532,18 @@ static const char *startup_source = " self672_0))))" "(let-values((()" "(begin" -"(let-values(((obs_157)" -"(expand-context-observer ctx_120)))" -"(if obs_157" +"(let-values(((obs_156)" +"(expand-context-observer ctx_119)))" +"(if obs_156" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_157" +" obs_156" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))" "(values))))" -"(let-values(((ns_125)(expand-context-namespace ctx_120)))" +"(let-values(((ns_126)(expand-context-namespace ctx_119)))" "(let-values(((module-name_3)(1/module-path-index-resolve self_43)))" "(let-values(((root-module-name_1)" "(resolved-module-path-root-name module-name_3)))" @@ -75542,7 +75553,7 @@ static const char *startup_source = "(expanded+parsed-parsed submod_5)" " submod_5))" "((temp685_0)" -"(let-values(((ns690_0) ns_125)" +"(let-values(((ns690_0) ns_126)" "((self691_0) self_43)" "((temp692_0)" "(1/resolved-module-path-name" @@ -75563,7 +75574,7 @@ static const char *startup_source = "((temp686_0) #t)" "((temp687_0)" "(expand-context-for-serializable?" -" ctx_120))" +" ctx_119))" "((modules-being-compiled688_0)" " modules-being-compiled_8)" "((temp689_0) #f))" @@ -75583,14 +75594,14 @@ static const char *startup_source = "(begin" "(hash-set!" " compiled-submodules_5" -" name_81" +" name_82" "(cons is-star?_0 compiled-submodule_0))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -" ns_125" +" ns_126" " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_1))" "(let-values()" @@ -75606,13 +75617,13 @@ static const char *startup_source = "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_158)" -"(expand-context-observer ctx_120)))" -"(if obs_158" +"(let-values(((obs_157)" +"(expand-context-observer ctx_119)))" +"(if obs_157" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_158" +" obs_157" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))))" @@ -75620,67 +75631,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_124) submod_5))" -"(if(expanded+parsed? the-struct_124)" +"(let-values(((the-struct_123) submod_5))" +"(if(expanded+parsed? the-struct_123)" "(let-values(((parsed695_0)" -"(let-values(((the-struct_125)" +"(let-values(((the-struct_124)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_125)" +"(if(parsed-module? the-struct_124)" "(let-values(((star?696_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_125)" +"(parsed-s the-struct_124)" " star?696_0" "(parsed-module-name-id" -" the-struct_125)" +" the-struct_124)" "(parsed-module-self" -" the-struct_125)" +" the-struct_124)" "(parsed-module-requires" -" the-struct_125)" +" the-struct_124)" "(parsed-module-provides" -" the-struct_125)" +" the-struct_124)" "(parsed-module-root-ctx-simple?" -" the-struct_125)" +" the-struct_124)" "(parsed-module-encoded-root-ctx" -" the-struct_125)" +" the-struct_124)" "(parsed-module-body" -" the-struct_125)" +" the-struct_124)" "(parsed-module-compiled-module" -" the-struct_125)" +" the-struct_124)" "(parsed-module-compiled-submodules" -" the-struct_125)))" +" the-struct_124)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_125)))))" +" the-struct_124)))))" "(expanded+parsed1.1" -"(expanded+parsed-s the-struct_124)" +"(expanded+parsed-s the-struct_123)" " parsed695_0))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_124))))" +" the-struct_123))))" "(let-values()" -"(let-values(((the-struct_126) submod_5))" -"(if(parsed-module? the-struct_126)" +"(let-values(((the-struct_125) submod_5))" +"(if(parsed-module? the-struct_125)" "(let-values(((star?697_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_126)" +"(parsed-s the-struct_125)" " star?697_0" -"(parsed-module-name-id the-struct_126)" -"(parsed-module-self the-struct_126)" -"(parsed-module-requires the-struct_126)" -"(parsed-module-provides the-struct_126)" -"(parsed-module-root-ctx-simple? the-struct_126)" -"(parsed-module-encoded-root-ctx the-struct_126)" -"(parsed-module-body the-struct_126)" -"(parsed-module-compiled-module the-struct_126)" +"(parsed-module-name-id the-struct_125)" +"(parsed-module-self the-struct_125)" +"(parsed-module-requires the-struct_125)" +"(parsed-module-provides the-struct_125)" +"(parsed-module-root-ctx-simple? the-struct_125)" +"(parsed-module-encoded-root-ctx the-struct_125)" +"(parsed-module-body the-struct_125)" +"(parsed-module-compiled-module the-struct_125)" "(parsed-module-compiled-submodules" -" the-struct_126)))" +" the-struct_125)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_126)))))))))))))))))))))))))))))))))))" +" the-struct_125)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -75694,9 +75705,9 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_166) phase209_0))" +"(let-values(((phase_165) phase209_0))" "(let-values(((self_44) self210_0))" -"(let-values(((ctx_121) ctx211_0))" +"(let-values(((ctx_120) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" "(let-values(((declared-submodule-names_9) declared-submodule-names201_0))" "(let-values(((compiled-submodules_6) compiled-submodules202_0))" @@ -75708,13 +75719,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_439)))" -"((letrec-values(((for-loop_322)" +"((letrec-values(((for-loop_324)" "(lambda(fold-var_368 lst_440)" "(begin" " 'for-loop" "(if(pair? lst_440)" "(let-values(((body_27)(unsafe-car lst_440))" -"((rest_261)(unsafe-cdr lst_440)))" +"((rest_260)(unsafe-cdr lst_440)))" "(let-values(((fold-var_369)" "(let-values(((fold-var_370) fold-var_368))" "(let-values(((fold-var_371)" @@ -75725,7 +75736,7 @@ static const char *startup_source = "(core-form-sym" "(syntax-disarm$1" " body_27)" -" phase_166)))" +" phase_165)))" "(if(equal? tmp_69 'module)" "(let-values()" "(let-values(((temp701_0)" @@ -75754,15 +75765,15 @@ static const char *startup_source = " mpis-to-reset702_0" " body_27" " self_44" -" ctx_121)))" +" ctx_120)))" "(let-values() body_27))))" " fold-var_370))))" "(values fold-var_371)))))" "(if(not #f)" -"(for-loop_322 fold-var_369 rest_261)" +"(for-loop_324 fold-var_369 rest_260)" " fold-var_369)))" " fold-var_368)))))" -" for-loop_322)" +" for-loop_324)" " null" " lst_439))))))))))))))))" "(define-values" @@ -75775,10 +75786,10 @@ 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_851 phase_167)" +"(lambda(s_851 phase_166)" "(let-values(((ok?_87 #%require706_0 req707_0)" "(let-values(((s_852)(syntax-disarm$1 s_851)))" -"(let-values(((orig-s_91) s_852))" +"(let-values(((orig-s_92) s_852))" "(let-values(((#%require706_1 req707_1)" "(let-values(((s_853)" "(if(syntax?$1 s_852)(syntax-e$1 s_852) s_852)))" @@ -75810,21 +75821,21 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_91))))))" +" orig-s_92))))))" "(values req710_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_91))))))" +" orig-s_92))))))" "(values #%require708_0 req709_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_91)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_92)))))" "(values #t #%require706_1 req707_1))))))" "(let-values(((temp711_0)(list req707_0))" "((s712_0) s_851)" "((self713_0) self_45)" "((m-ns714_0) m-ns_24)" -"((phase715_0) phase_167)" -"((phase716_0) phase_167)" +"((phase715_0) phase_166)" +"((phase716_0) phase_166)" "((requires+provides717_0) requires+provides_13)" "((declared-submodule-names718_0) declared-submodule-names_10)" "((temp719_0) 'require))" @@ -75869,13 +75880,13 @@ static const char *startup_source = "(let-values(((lst_441) lifted-defns_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_441)))" -"((letrec-values(((for-loop_323)" +"((letrec-values(((for-loop_325)" "(lambda(fold-var_372 lst_442)" "(begin" " 'for-loop" "(if(pair? lst_442)" "(let-values(((lifted-defn_0)(unsafe-car lst_442))" -"((rest_262)(unsafe-cdr lst_442)))" +"((rest_261)(unsafe-cdr lst_442)))" "(let-values(((fold-var_373)" "(let-values(((fold-var_374) fold-var_372))" "(let-values(((fold-var_375)" @@ -75885,24 +75896,24 @@ static const char *startup_source = "(defn-extract-syntax lifted-defn_0))" " fold-var_374))))" "(values fold-var_375)))))" -"(if(not #f)(for-loop_323 fold-var_373 rest_262) fold-var_373)))" +"(if(not #f)(for-loop_325 fold-var_373 rest_261) fold-var_373)))" " fold-var_372)))))" -" for-loop_323)" +" for-loop_325)" " null" " lst_441)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" "(begin" -"(let-values(((obs_159)(expand-context-observer partial-body-ctx_2)))" -"(if obs_159" +"(let-values(((obs_158)(expand-context-observer partial-body-ctx_2)))" +"(if obs_158" "(let-values()" "(let-values(((s-lifted-defns_0)(lifted-defns-extract-syntax lifted-defns_3)))" "(let-values((()" "(begin" -"(call-expand-observe obs_159 'rename-list(cons exp-body_10 rest-bodys_4))" +"(call-expand-observe obs_158 'rename-list(cons exp-body_10 rest-bodys_4))" "(values))))" -"(let-values((()(begin(call-expand-observe obs_159 'module-lift-loop s-lifted-defns_0)(values))))" +"(let-values((()(begin(call-expand-observe obs_158 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" "(let-values(((lst_443) s-lifted-defns_0))" @@ -75910,13 +75921,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_443)))" -"((letrec-values(((for-loop_324)" +"((letrec-values(((for-loop_326)" "(lambda(lst_444)" "(begin" " 'for-loop" "(if(pair? lst_444)" "(let-values(((s-lifted-defn_0)(unsafe-car lst_444))" -"((rest_263)(unsafe-cdr lst_444)))" +"((rest_262)(unsafe-cdr lst_444)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75928,7 +75939,7 @@ static const char *startup_source = " _725_0)" "(let-values(((s_860)" " s-lifted-defn_0))" -"(let-values(((orig-s_92)" +"(let-values(((orig-s_93)" " s_860))" "(let-values(((define-values724_1" " _725_1)" @@ -75964,7 +75975,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_92))" +" orig-s_93))" "(let-values()" " flat-s_61)))))))" "(values" @@ -75973,64 +75984,64 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_92)))))" +" orig-s_93)))))" "(values" " #t" " define-values724_1" " _725_1))))))" "(begin" "(call-expand-observe" -" obs_159" +" obs_158" " 'next)" "(call-expand-observe" -" obs_159" +" obs_158" " 'visit" " s-lifted-defn_0)" "(call-expand-observe" -" obs_159" +" obs_158" " 'resolve" " define-values724_0)" "(call-expand-observe" -" obs_159" +" obs_158" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_159" +" obs_158" " 'prim-stop)" "(call-expand-observe" -" obs_159" +" obs_158" " 'exit-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_159" +" obs_158" " 'return" " s-lifted-defn_0)" "(call-expand-observe" -" obs_159" +" obs_158" " 'rename-one" " s-lifted-defn_0)" "(call-expand-observe" -" obs_159" +" obs_158" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_159" +" obs_158" " 'prim-define-values)" "(call-expand-observe" -" obs_159" +" obs_158" " 'exit-prim" " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_324 rest_263)(values))))" +"(if(not #f)(for-loop_326 rest_262)(values))))" "(values))))))" -" for-loop_324)" +" for-loop_326)" " lst_443)))" "(values))))" "(let-values()" "(let-values(((ok?_89 form-id720_0 _721_0)" "(let-values(((s_865) exp-body_10))" -"(let-values(((orig-s_93) s_865))" +"(let-values(((orig-s_94) s_865))" "(let-values(((form-id720_1 _721_1)" "(let-values(((s_866)" "(if(syntax?$1 s_865)(syntax-e$1 s_865) s_865)))" @@ -76040,28 +76051,28 @@ static const char *startup_source = "((_723_0)" "(let-values(((s_868)(cdr s_866))) s_868)))" "(values form-id722_0 _723_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_93)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_94)))))" "(values #t form-id720_1 _721_1))))))" "(begin" -"(call-expand-observe obs_159 'next)" -"(call-expand-observe obs_159 'visit exp-body_10)" -"(call-expand-observe obs_159 'resolve form-id720_0)" -"(call-expand-observe obs_159 'enter-prim exp-body_10)" -"(call-expand-observe obs_159 'prim-stop)" -"(call-expand-observe obs_159 'exit-prim exp-body_10)" -"(call-expand-observe obs_159 'return exp-body_10)))))))))" +"(call-expand-observe obs_158 'next)" +"(call-expand-observe obs_158 'visit exp-body_10)" +"(call-expand-observe obs_158 'resolve form-id720_0)" +"(call-expand-observe obs_158 'enter-prim exp-body_10)" +"(call-expand-observe obs_158 'prim-stop)" +"(call-expand-observe obs_158 'exit-prim exp-body_10)" +"(call-expand-observe obs_158 'return exp-body_10)))))))))" "(void))))))" "(define-values" "(log-defn-enter)" -"(lambda(ctx_122 defn_1)" +"(lambda(ctx_121 defn_1)" "(begin" -"(let-values(((obs_160)(expand-context-observer ctx_122)))" -"(if obs_160" +"(let-values(((obs_159)(expand-context-observer ctx_121)))" +"(if obs_159" "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" "(let-values(((ok?_90 define-values728_0 _729_0)" "(let-values(((s_869) s-defn_0))" -"(let-values(((orig-s_94) s_869))" +"(let-values(((orig-s_95) s_869))" "(let-values(((define-values728_1 _729_1)" "(let-values(((s_870)(if(syntax?$1 s_869)(syntax-e$1 s_869) s_869)))" "(if(pair? s_870)" @@ -76079,50 +76090,50 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_94))" +" orig-s_95))" "(let-values() flat-s_62)))))))" "(values define-values730_0 _731_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_94)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" "(values #t define-values728_1 _729_1))))))" "(begin" -"(call-expand-observe obs_160 'visit s-defn_0)" -"(call-expand-observe obs_160 'resolve define-values728_0)" -"(call-expand-observe obs_160 'enter-prim s-defn_0)" -"(call-expand-observe obs_160 'prim-define-values)))))" +"(call-expand-observe obs_159 'visit s-defn_0)" +"(call-expand-observe obs_159 'resolve define-values728_0)" +"(call-expand-observe obs_159 'enter-prim s-defn_0)" +"(call-expand-observe obs_159 'prim-define-values)))))" "(void))))))" "(define-values" "(log-defn-exit)" -"(lambda(ctx_123 defn_2 exp-rhs_8)" +"(lambda(ctx_122 defn_2 exp-rhs_8)" "(begin" -"(let-values(((obs_161)(expand-context-observer ctx_123)))" -"(if obs_161" +"(let-values(((obs_160)(expand-context-observer ctx_122)))" +"(if obs_160" "(let-values()" "(let-values(((s-defn_1)" "(datum->syntax$1" " #f" "(list 'define-values(semi-parsed-define-values-ids defn_2) exp-rhs_8)" "(semi-parsed-define-values-s defn_2))))" -"(begin(call-expand-observe obs_161 'exit-prim s-defn_1)(call-expand-observe obs_161 'return s-defn_1))))" +"(begin(call-expand-observe obs_160 'exit-prim s-defn_1)(call-expand-observe obs_160 'return s-defn_1))))" "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_45 s_156 ctx_124)" +"(lambda(ids_47 s_156 ctx_123)" "(begin" -"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_124)))" +"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_123)))" "(let-values(((tl-ids_2)" "(reverse$1" -"(let-values(((lst_6) ids_45))" +"(let-values(((lst_6) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" "((letrec-values(((for-loop_99)" -"(lambda(fold-var_376 lst_80)" +"(lambda(fold-var_376 lst_81)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((id_159)(unsafe-car lst_80))" -"((rest_38)(unsafe-cdr lst_80)))" +"(if(pair? lst_81)" +"(let-values(((id_159)(unsafe-car lst_81))" +"((rest_38)(unsafe-cdr lst_81)))" "(let-values(((fold-var_60)" "(let-values(((fold-var_61) fold-var_376))" "(let-values(((fold-var_377)" @@ -76131,7 +76142,7 @@ static const char *startup_source = "(let-values()" "(remove-use-site-scopes" " id_159" -" ctx_124))" +" ctx_123))" " fold-var_61))))" "(values fold-var_377)))))" "(if(not #f)(for-loop_99 fold-var_60 rest_38) fold-var_60)))" @@ -76141,23 +76152,23 @@ static const char *startup_source = " lst_6))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_124))((s3_3) s_156))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_123))((s3_3) s_156))" "(check-no-duplicate-ids8.1 #f #f tl-ids1_0 temp2_8 s3_3 #f #f))" "(values))))" "(let-values(((tmp-bind-ids_0)" "(reverse$1" -"(let-values(((lst_94) tl-ids_2))" +"(let-values(((lst_95) tl-ids_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_94)))" -"((letrec-values(((for-loop_325)" -"(lambda(fold-var_217 lst_81)" +"(let-values()(check-list lst_95)))" +"((letrec-values(((for-loop_327)" +"(lambda(fold-var_217 lst_82)" "(begin" " 'for-loop" -"(if(pair? lst_81)" -"(let-values(((id_3)(unsafe-car lst_81))" -"((rest_242)(unsafe-cdr lst_81)))" +"(if(pair? lst_82)" +"(let-values(((id_3)(unsafe-car lst_82))" +"((rest_241)(unsafe-cdr lst_82)))" "(let-values(((fold-var_221)" "(let-values(((fold-var_31) fold-var_217))" "(let-values(((fold-var_32)" @@ -76170,22 +76181,22 @@ static const char *startup_source = " fold-var_31))))" "(values fold-var_32)))))" "(if(not #f)" -"(for-loop_325 fold-var_221 rest_242)" +"(for-loop_327 fold-var_221 rest_241)" " fold-var_221)))" " fold-var_217)))))" -" for-loop_325)" +" for-loop_327)" " null" -" lst_94))))))" -"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_124)))))))))" +" lst_95))))))" +"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_123)))))))))" "(void" "(add-core-form!*" " 'define-values" "(lambda(s_0 ctx_7)" "(let-values((()" "(begin" -"(let-values(((obs_162)(expand-context-observer ctx_7)))" -"(if obs_162" -"(let-values()(let-values()(call-expand-observe obs_162 'prim-define-values)))" +"(let-values(((obs_161)(expand-context-observer ctx_7)))" +"(if obs_161" +"(let-values()(let-values()(call-expand-observe obs_161 'prim-define-values)))" "(void)))" "(values))))" "(let-values((()" @@ -76197,7 +76208,7 @@ static const char *startup_source = "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_25 define-values1_0 id2_1 rhs3_0)" "(let-values(((s_171) s_0))" -"(let-values(((orig-s_95) s_171))" +"(let-values(((orig-s_96) s_171))" "(let-values(((define-values1_1 id2_2 rhs3_1)" "(let-values(((s_40)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" "(if(pair? s_40)" @@ -76224,7 +76235,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_95))" +" orig-s_96))" "(let-values()" "(let-values(((id_160)" "(let-values(((lst_24)" @@ -76238,17 +76249,17 @@ static const char *startup_source = " lst_24)))" "((letrec-values(((for-loop_241)" "(lambda(id_161" -" lst_76)" +" lst_77)" "(begin" " 'for-loop" "(if(pair?" -" lst_76)" +" lst_77)" "(let-values(((s_182)" "(unsafe-car" -" lst_76))" +" lst_77))" "((rest_140)" "(unsafe-cdr" -" lst_76)))" +" lst_77)))" "(let-values(((id_162)" "(let-values(((id_52)" " id_161))" @@ -76271,7 +76282,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_95" +" orig-s_96" " s_182)))))" "(cons" " id10_1" @@ -76317,81 +76328,81 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_95))))))" +" orig-s_96))))))" "(values rhs9_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_95))))))" +" orig-s_96))))))" "(values id7_0 rhs8_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_95))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_96))))))" "(values define-values4_0 id5_0 rhs6_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" "(values #t define-values1_1 id2_2 rhs3_1))))))" -"(let-values(((ids_46 syms_28)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))" +"(let-values(((ids_48 syms_28)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))" "(let-values(((exp-rhs_9)" -"(let-values(((temp11_7) rhs3_0)((temp12_7)(as-named-context ctx_7 ids_46)))" +"(let-values(((temp11_7) rhs3_0)((temp12_7)(as-named-context ctx_7 ids_48)))" "(expand7.1 #f #f #f #f temp11_7 temp12_7))))" "(if(expand-context-to-parsed? ctx_7)" -"(parsed-define-values19.1 s_0 ids_46 syms_28 exp-rhs_9)" -"(let-values(((s13_0) s_0)((temp14_7)(list define-values1_0 ids_46 exp-rhs_9)))" +"(parsed-define-values19.1 s_0 ids_48 syms_28 exp-rhs_9)" +"(let-values(((s13_0) s_0)((temp14_7)(list define-values1_0 ids_48 exp-rhs_9)))" "(rebuild5.1 #f #f s13_0 temp14_7))))))))))))" "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_468 ctx_125)" +"(lambda(s_472 ctx_124)" "(let-values((()" "(begin" -"(let-values(((obs_163)(expand-context-observer ctx_125)))" -"(if obs_163" -"(let-values()(let-values()(call-expand-observe obs_163 'prim-define-syntaxes)))" +"(let-values(((obs_162)(expand-context-observer ctx_124)))" +"(if obs_162" +"(let-values()(let-values()(call-expand-observe obs_162 'prim-define-syntaxes)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_164)(expand-context-observer ctx_125)))" -"(if obs_164(let-values()(let-values()(call-expand-observe obs_164 'prepare-env)))(void)))" +"(let-values(((obs_163)(expand-context-observer ctx_124)))" +"(if obs_163(let-values()(let-values()(call-expand-observe obs_163 'prepare-env)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_125) 'top-level)" +"(if(eq?(expand-context-context ctx_124) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not allowed in an expression position\" s_468)))" +" (let-values () (raise-syntax-error$1 #f \"not allowed in an expression position\" s_472)))" "(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_468)))" +"(let-values(((disarmed-s_26)(syntax-disarm$1 s_472)))" "(let-values(((ok?_91 define-syntaxes15_0 id16_2 rhs17_0)" "(let-values(((s_874) disarmed-s_26))" -"(let-values(((orig-s_96) s_874))" +"(let-values(((orig-s_97) s_874))" "(let-values(((define-syntaxes15_1 id16_3 rhs17_1)" "(let-values(((s_20)(if(syntax?$1 s_874)(syntax-e$1 s_874) s_874)))" "(if(pair? s_20)" "(let-values(((define-syntaxes18_0)" "(let-values(((s_23)(car s_20))) s_23))" "((id19_0 rhs20_0)" -"(let-values(((s_431)(cdr s_20)))" +"(let-values(((s_437)(cdr s_20)))" "(let-values(((s_24)" -"(if(syntax?$1 s_431)" -"(syntax-e$1 s_431)" -" s_431)))" +"(if(syntax?$1 s_437)" +"(syntax-e$1 s_437)" +" s_437)))" "(if(pair? s_24)" "(let-values(((id21_0)" -"(let-values(((s_732)(car s_24)))" -"(let-values(((s_476)" -"(if(syntax?$1 s_732)" -"(syntax-e$1 s_732)" -" s_732)))" +"(let-values(((s_735)(car s_24)))" +"(let-values(((s_481)" +"(if(syntax?$1 s_735)" +"(syntax-e$1 s_735)" +" s_735)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_476)))" +" s_481)))" "(if(not flat-s_64)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_96))" +" orig-s_97))" "(let-values()" "(let-values(((id_92)" -"(let-values(((lst_177)" +"(let-values(((lst_178)" " flat-s_64))" "(begin" "(if(variable-reference-from-unsafe?" @@ -76399,76 +76410,76 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_177)))" -"((letrec-values(((for-loop_262)" +" lst_178)))" +"((letrec-values(((for-loop_265)" "(lambda(id_164" " lst_445)" "(begin" " 'for-loop" "(if(pair?" " lst_445)" -"(let-values(((s_499)" +"(let-values(((s_503)" "(unsafe-car" " lst_445))" -"((rest_264)" +"((rest_263)" "(unsafe-cdr" " lst_445)))" "(let-values(((id_94)" -"(let-values(((id_75)" +"(let-values(((id_74)" " id_164))" "(let-values(((id_165)" "(let-values()" "(let-values(((id24_1)" "(let-values()" -"(if(let-values(((or-part_269)" +"(if(let-values(((or-part_354)" "(if(syntax?$1" -" s_499)" +" s_503)" "(symbol?" "(syntax-e$1" -" s_499))" +" s_503))" " #f)))" -"(if or-part_269" -" or-part_269" +"(if or-part_354" +" or-part_354" "(symbol?" -" s_499)))" -" s_499" +" s_503)))" +" s_503" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_96" -" s_499)))))" +" orig-s_97" +" s_503)))))" "(cons" " id24_1" -" id_75)))))" +" id_74)))))" "(values" " id_165)))))" "(if(not" " #f)" -"(for-loop_262" +"(for-loop_265" " id_94" -" rest_264)" +" rest_263)" " id_94)))" " id_164)))))" -" for-loop_262)" +" for-loop_265)" " null" -" lst_177)))))" +" lst_178)))))" "(reverse$1 id_92))))))))" "((rhs22_0)" "(let-values(((s_875)(cdr s_24)))" -"(let-values(((s_484)" +"(let-values(((s_489)" "(if(syntax?$1 s_875)" "(syntax-e$1 s_875)" " s_875)))" -"(if(pair? s_484)" +"(if(pair? s_489)" "(let-values(((rhs23_2)" -"(let-values(((s_500)" +"(let-values(((s_504)" "(car" -" s_484)))" -" s_500))" +" s_489)))" +" s_504))" "(()" "(let-values(((s_44)" "(cdr" -" s_484)))" +" s_489)))" "(let-values(((s_166)" "(if(syntax?$1" " s_44)" @@ -76481,68 +76492,68 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_96))))))" +" orig-s_97))))))" "(values rhs23_2))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_96))))))" +" orig-s_97))))))" "(values id21_0 rhs22_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_96))))))" +" orig-s_97))))))" "(values define-syntaxes18_0 id19_0 rhs20_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" "(values #t define-syntaxes15_1 id16_3 rhs17_1))))))" -"(let-values(((ids_47 syms_29)(as-expand-time-top-level-bindings id16_2 s_468 ctx_125)))" +"(let-values(((ids_49 syms_29)(as-expand-time-top-level-bindings id16_2 s_472 ctx_124)))" "(let-values(((exp-rhs_10)" -"(let-values(((temp25_8) rhs17_0)((temp26_7)(as-named-context ctx_125 ids_47)))" +"(let-values(((temp25_8) rhs17_0)((temp26_7)(as-named-context ctx_124 ids_49)))" "(expand-transformer47.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_8 temp26_7))))" -"(if(expand-context-to-parsed? ctx_125)" -"(parsed-define-syntaxes20.1 s_468 ids_47 syms_29 exp-rhs_10)" -"(let-values(((s27_3) s_468)((temp28_5)(list define-syntaxes15_0 ids_47 exp-rhs_10)))" +"(if(expand-context-to-parsed? ctx_124)" +"(parsed-define-syntaxes20.1 s_472 ids_49 syms_29 exp-rhs_10)" +"(let-values(((s27_3) s_472)((temp28_5)(list define-syntaxes15_0 ids_49 exp-rhs_10)))" "(rebuild5.1 #f #f s27_3 temp28_5)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -" (lambda (s_307 ctx_126) (raise-syntax-error$1 #f \"not allowed in an expression position\" s_307))))" +" (lambda (s_307 ctx_125) (raise-syntax-error$1 #f \"not allowed in an expression position\" s_307))))" "(void" "(add-core-form!*" " '#%require" -"(lambda(s_45 ctx_127)" +"(lambda(s_45 ctx_126)" "(let-values((()" "(begin" -"(let-values(((obs_14)(expand-context-observer ctx_127)))" -"(if obs_14(let-values()(let-values()(call-expand-observe obs_14 'prim-require)))(void)))" +"(let-values(((obs_164)(expand-context-observer ctx_126)))" +"(if obs_164(let-values()(let-values()(call-expand-observe obs_164 'prim-require)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_127) 'top-level)" +"(if(eq?(expand-context-context ctx_126) 'top-level)" "(void)" " (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_45)))" "(values))))" "(let-values(((disarmed-s_27)(syntax-disarm$1 s_45)))" "(let-values(((ok?_92 #%require29_0 req30_0)" -"(let-values(((s_876) disarmed-s_27))" -"(let-values(((orig-s_97) s_876))" +"(let-values(((s_400) disarmed-s_27))" +"(let-values(((orig-s_98) s_400))" "(let-values(((#%require29_1 req30_1)" -"(let-values(((s_877)(if(syntax?$1 s_876)(syntax-e$1 s_876) s_876)))" -"(if(pair? s_877)" -"(let-values(((#%require31_0)(let-values(((s_46)(car s_877))) s_46))" +"(let-values(((s_876)(if(syntax?$1 s_400)(syntax-e$1 s_400) s_400)))" +"(if(pair? s_876)" +"(let-values(((#%require31_0)(let-values(((s_46)(car s_876))) s_46))" "((req32_0)" -"(let-values(((s_32)(cdr s_877)))" -"(let-values(((s_734)" +"(let-values(((s_32)(cdr s_876)))" +"(let-values(((s_737)" "(if(syntax?$1 s_32)" "(syntax-e$1 s_32)" " s_32)))" -"(let-values(((flat-s_65)(to-syntax-list.1 s_734)))" +"(let-values(((flat-s_65)(to-syntax-list.1 s_737)))" "(if(not flat-s_65)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_97))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_98))" "(let-values() flat-s_65)))))))" "(values #%require31_0 req32_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" "(values #t #%require29_1 req30_1))))))" "(let-values(((sc_35)(new-scope 'macro)))" "(begin" @@ -76553,13 +76564,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_12)))" -"((letrec-values(((for-loop_326)" +"((letrec-values(((for-loop_328)" "(lambda(fold-var_378 lst_446)" "(begin" " 'for-loop" "(if(pair? lst_446)" "(let-values(((req_24)(unsafe-car lst_446))" -"((rest_265)(unsafe-cdr lst_446)))" +"((rest_264)(unsafe-cdr lst_446)))" "(let-values(((fold-var_379)" "(let-values(((fold-var_380) fold-var_378))" "(let-values(((fold-var_36)" @@ -76572,16 +76583,16 @@ static const char *startup_source = " fold-var_380))))" "(values fold-var_36)))))" "(if(not #f)" -"(for-loop_326 fold-var_379 rest_265)" +"(for-loop_328 fold-var_379 rest_264)" " fold-var_379)))" " fold-var_378)))))" -" for-loop_326)" +" for-loop_328)" " null" " lst_12)))))" "((s34_0) s_45)" "((temp35_3) #f)" -"((temp36_7)(expand-context-namespace ctx_127))" -"((temp37_5)(expand-context-phase ctx_127))" +"((temp36_7)(expand-context-namespace ctx_126))" +"((temp37_5)(expand-context-phase ctx_126))" "((temp38_3)(let-values(((temp41_5) #f))(make-requires+provides8.1 #f #f temp41_5)))" "((temp39_8) 'require)" "((temp40_4) #t))" @@ -76610,15 +76621,15 @@ static const char *startup_source = " temp36_7" " temp37_5" " temp38_3))" -"(if(expand-context-to-parsed? ctx_127)(parsed-require23.1 s_45) s_45))))))))))" +"(if(expand-context-to-parsed? ctx_126)(parsed-require23.1 s_45) s_45))))))))))" "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_433 ctx_128)" +"(lambda(s_439 ctx_127)" "(begin" -"(let-values(((obs_22)(expand-context-observer ctx_128)))" -"(if obs_22(let-values()(let-values()(call-expand-observe obs_22 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_433)))))" +"(let-values(((obs_165)(expand-context-observer ctx_127)))" +"(if obs_165(let-values()(let-values()(call-expand-observe obs_165 'prim-provide)))(void)))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_439)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" @@ -76658,7 +76669,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_81" -"(let-values(((name_82)(hash-iterate-key ht_67 i_81)))" +"(let-values(((name_83)(hash-iterate-key ht_67 i_81)))" "(let-values(((table_105)" "(let-values(((table_219) table_218))" "(let-values(((table_220)" @@ -76666,7 +76677,7 @@ static const char *startup_source = "(let-values(((key_67 val_88)" "(let-values()" "(values" -"(let-values() name_82)" +"(let-values() name_83)" " #t))))" "(hash-set table_219 key_67 val_88)))))" "(values table_220)))))" @@ -76678,17 +76689,17 @@ static const char *startup_source = " '#hash()" "(hash-iterate-first ht_67)))))" "((temp29_4)" -"(let-values(((ht_167) read-primitives))" +"(let-values(((ht_166) read-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_167)))" -"((letrec-values(((for-loop_265)" +"(let-values()(check-in-hash-keys ht_166)))" +"((letrec-values(((for-loop_268)" "(lambda(table_204 i_36)" "(begin" " 'for-loop" "(if i_36" -"(let-values(((name_83)(hash-iterate-key ht_167 i_36)))" +"(let-values(((name_84)(hash-iterate-key ht_166 i_36)))" "(let-values(((table_221)" "(let-values(((table_178) table_204))" "(let-values(((table_98)" @@ -76696,31 +76707,31 @@ static const char *startup_source = "(let-values(((key_95 val_89)" "(let-values()" "(values" -"(let-values() name_83)" +"(let-values() name_84)" " #t))))" "(hash-set table_178 key_95 val_89)))))" "(values table_98)))))" "(if(not #f)" -"(for-loop_265 table_221(hash-iterate-next ht_167 i_36))" +"(for-loop_268 table_221(hash-iterate-next ht_166 i_36))" " table_221)))" " table_204)))))" -" for-loop_265)" +" for-loop_268)" " '#hash()" -"(hash-iterate-first ht_167))))))" +"(hash-iterate-first ht_166))))))" "(declare-kernel-module!8.1 eval27_0 temp28_6 temp29_4 ns))" "(begin" -"(let-values(((lst_267) runtime-instances))" +"(let-values(((lst_268) runtime-instances))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_267)))" -"((letrec-values(((for-loop_327)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_268)))" +"((letrec-values(((for-loop_329)" "(lambda(lst_54)" "(begin" " 'for-loop" "(if(pair? lst_54)" -"(let-values(((name_84)(unsafe-car lst_54))((rest_171)(unsafe-cdr lst_54)))" +"(let-values(((name_85)(unsafe-car lst_54))((rest_169)(unsafe-cdr lst_54)))" "(let-values((()" "(let-values()" -"(if(eq? name_84 '#%kernel)" +"(if(eq? name_85 '#%kernel)" "(values)" "(let-values()" "(let-values((()" @@ -76731,18 +76742,18 @@ static const char *startup_source = "((temp32_1)" "(let-values(((or-part_59)" "(eq?" -" name_84" +" name_85" " '#%foreign)))" "(if or-part_59" " or-part_59" "(let-values(((or-part_27)" "(eq?" -" name_84" +" name_85" " '#%futures)))" "(if or-part_27" " or-part_27" "(eq?" -" name_84" +" name_85" " '#%unsafe)))))))" "(copy-runtime-module!26.1" " #f" @@ -76758,13 +76769,13 @@ static const char *startup_source = " #f" " #f" " #f" -" name_84)))" +" name_85)))" "(values)))))" "(values)))))))" -"(if(not #f)(for-loop_327 rest_171)(values))))" +"(if(not #f)(for-loop_329 rest_169)(values))))" "(values))))))" -" for-loop_327)" -" lst_267)))" +" for-loop_329)" +" lst_268)))" "(void))" "(let-values(((temp33_5) '#%builtin)" "((temp34_4)(list* '#%place-struct '#%utils '#%boot '#%expobs '#%linklet runtime-instances))" @@ -76773,5 +76784,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_8 #t temp33_5 temp34_4))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_468)(begin(1/datum->syntax core-stx s_468)))))" +"(define-values(datum->kernel-syntax)(lambda(s_472)(begin(1/datum->syntax core-stx s_472)))))" ;