From fcfa72e73ab715877007a8dec4c3410f750be576 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 10 Apr 2018 18:58:27 +0200 Subject: [PATCH] add `raise-result-arity-error` Use it to provide some proper errors from the expander. Closes #2029 --- .../scribblings/reference/exns.scrbl | 27 +- pkgs/racket-test-core/tests/racket/basic.rktl | 10 +- racket/src/cs/primitive/kernel.ss | 1 + racket/src/cs/rumble.sls | 1 + racket/src/cs/rumble/control.ss | 2 +- racket/src/cs/rumble/error.ss | 9 +- racket/src/expander/expand/body.rkt | 2 +- .../expander/expand/definition-context.rkt | 3 +- racket/src/expander/expand/expr.rkt | 3 +- racket/src/expander/expand/main.rkt | 20 +- racket/src/expander/expand/module.rkt | 5 +- racket/src/racket/src/error.c | 54 +- racket/src/racket/src/schminc.h | 2 +- racket/src/racket/src/schvers.h | 4 +- racket/src/racket/src/startup.inc | 5219 +++++++++-------- 15 files changed, 2736 insertions(+), 2626 deletions(-) diff --git a/pkgs/racket-doc/scribblings/reference/exns.scrbl b/pkgs/racket-doc/scribblings/reference/exns.scrbl index a8a721a757..400da9d14c 100644 --- a/pkgs/racket-doc/scribblings/reference/exns.scrbl +++ b/pkgs/racket-doc/scribblings/reference/exns.scrbl @@ -309,7 +309,32 @@ The @racket[arg-v] arguments are the actual supplied arguments, which are shown in the error message (using the error value conversion handler; see @racket[error-value->string-handler]); also, the number of supplied @racket[arg-v]s is explicitly mentioned in the -message.} +message. + +@examples[ +(eval:error (raise-arity-error 'unite (arity-at-least 13) "Virginia" "Maryland")) +]} + + +@defproc[(raise-result-arity-error [name (or/c symbol? #f)] + [arity-v exact-nonnegative-integer?] + [detail-str (or/c string? #f)] + [result-v any/c] ...) + any]{ + +Like @racket[raise-arity-error], but reports a ``result'' mismatch +instead of an ``argument'' mismatch. The @racket[name] argument can be +@racket[#f] to omit an initial source for the error. The +@racket[detail-str] argument, if non-@racket[#f], should be a string +that starts with a newline, since it is added near the end of the +generated error message. + +@examples[ +(eval:error (raise-result-arity-error 'let-values 2 "\n in: example" 'a 2.0 "three")) +] + +@history[#:added "6.90.0.26"]} + @defproc[(raise-syntax-error [name (or/c symbol? #f)] [message string?] diff --git a/pkgs/racket-test-core/tests/racket/basic.rktl b/pkgs/racket-test-core/tests/racket/basic.rktl index f941872456..a33c2919a6 100644 --- a/pkgs/racket-test-core/tests/racket/basic.rktl +++ b/pkgs/racket-test-core/tests/racket/basic.rktl @@ -2121,6 +2121,12 @@ (err/rt-test (raise-arity-error + (make-arity-at-least 5)) exn:fail:contract:arity?) (err/rt-test (raise-arity-error + (list 1 (make-arity-at-least 5))) exn:fail:contract:arity?) +(err/rt-test (raise-result-arity-error 'f 5 #f) exn:fail:contract:arity?) +(err/rt-test (raise-result-arity-error #f 5 #f) exn:fail:contract:arity?) +(err/rt-test (raise-result-arity-error #f (expt 2 100) #f) exn:fail:contract:arity?) +(err/rt-test (raise-result-arity-error #f (expt 2 100) "\n in: extra") exn:fail:contract:arity?) +(err/rt-test (raise-result-arity-error #f (expt 2 100) "\n in: extra" 1 2 3 4 5) exn:fail:contract:arity?) + (define (exn:fail:contract:arity?/#f e) (not (exn:fail:contract:arity? e))) (err/rt-test (raise-arity-error 'f -5) exn:fail:contract:arity?/#f) @@ -2130,7 +2136,9 @@ (err/rt-test (raise-arity-error 1 1) exn:fail:contract:arity?/#f) (err/rt-test (raise-arity-error 1 1) exn:fail:contract?) - +(err/rt-test (raise-result-arity-error "f" 7 #f) exn:fail:contract:arity?/#f) +(err/rt-test (raise-result-arity-error 'f -7 #f) exn:fail:contract:arity?/#f) +(err/rt-test (raise-result-arity-error 'f 7 #"oops") exn:fail:contract:arity?/#f) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; continuations diff --git a/racket/src/cs/primitive/kernel.ss b/racket/src/cs/primitive/kernel.ss index 1d86395fa8..a9fe37d2fa 100644 --- a/racket/src/cs/primitive/kernel.ss +++ b/racket/src/cs/primitive/kernel.ss @@ -695,6 +695,7 @@ [raise-mismatch-error (known-procedure -8)] [raise-range-error (known-procedure 384)] [raise-result-error (known-procedure -8)] + [raise-result-arity-error (known-procedure -16)] [raise-type-error (known-procedure -8)] [raise-user-error (known-procedure -2)] [random (known-procedure 7)] diff --git a/racket/src/cs/rumble.sls b/racket/src/cs/rumble.sls index 3c9e2c523c..059d11a0b8 100644 --- a/racket/src/cs/rumble.sls +++ b/racket/src/cs/rumble.sls @@ -181,6 +181,7 @@ raise-mismatch-error raise-range-error raise-arity-error + raise-result-arity-error raise-type-error raise-binding-result-arity-error ; not exported to Racket diff --git a/racket/src/cs/rumble/control.ss b/racket/src/cs/rumble/control.ss index 9e05f5494f..a5034cc8ac 100644 --- a/racket/src/cs/rumble/control.ss +++ b/racket/src/cs/rumble/control.ss @@ -1511,7 +1511,7 @@ (call-with-values (lambda () (apply wrapper args)) (lambda new-args (unless (= (length args) (length new-args)) - (raise-result-arity-error at-when (length args) new-args)) + (raise-result-arity-error #f (length args) (string-append "\n at: " at-when) new-args)) (when chaperone? (for-each (lambda (arg new-arg) (unless (chaperone-of? new-arg arg) diff --git a/racket/src/cs/rumble/error.ss b/racket/src/cs/rumble/error.ss index 057c45ee3c..83301482bd 100644 --- a/racket/src/cs/rumble/error.ss +++ b/racket/src/cs/rumble/error.ss @@ -339,20 +339,21 @@ (number->string (arity-at-least-value arity))))] [else ""]))) -(define (raise-result-arity-error where num-expected-args args) +(define (raise-result-arity-error who num-expected-args where args) (raise (|#%app| exn:fail:contract:arity (string-append + (if who (string-append (symbol->string who) ": ") "") "result arity mismatch;\n" " expected number of values not received\n" " received: " (number->string (length args)) "\n" - " expected: " (number->string num-expected-args) "\n" - " in: " where) + " expected: " (number->string num-expected-args) + where) (current-continuation-marks)))) (define (raise-binding-result-arity-error expected-args args) - (raise-result-arity-error "local-binding form" (length expected-args) args)) + (raise-result-arity-error #f (length expected-args) "\n at: local-binding form" args)) (define raise-unsupported-error (case-lambda diff --git a/racket/src/expander/expand/body.rkt b/racket/src/expander/expand/body.rkt index 97f514142f..83902620ee 100644 --- a/racket/src/expander/expand/body.rkt +++ b/racket/src/expander/expand/body.rkt @@ -173,7 +173,7 @@ (log-expand body-ctx 'prepare-env) (prepare-next-phase-namespace ctx) (log-expand body-ctx 'enter-bind) - (define vals (eval-for-syntaxes-binding (m 'rhs) ids body-ctx)) + (define vals (eval-for-syntaxes-binding 'define-syntaxes (m 'rhs) ids body-ctx)) (define extended-env (for/fold ([env (expand-context-env body-ctx)]) ([key (in-list keys)] [val (in-list vals)] [id (in-list ids)]) diff --git a/racket/src/expander/expand/definition-context.rkt b/racket/src/expander/expand/definition-context.rkt index feb874eeed..40f4cfc764 100644 --- a/racket/src/expander/expand/definition-context.rkt +++ b/racket/src/expander/expand/definition-context.rkt @@ -84,7 +84,8 @@ (hash-set env sym variable))) (log-expand ctx 'enter-bind) (define vals - (eval-for-syntaxes-binding input-s ids + (eval-for-syntaxes-binding 'syntax-local-bind-syntaxes + input-s ids (make-local-expand-context (struct*-copy expand-context ctx [env tmp-env]) #:context 'expression diff --git a/racket/src/expander/expand/expr.rkt b/racket/src/expander/expand/expr.rkt index af75b38fb5..5e5952e77b 100644 --- a/racket/src/expander/expand/expr.rkt +++ b/racket/src/expander/expand/expr.rkt @@ -216,7 +216,8 @@ (define trans-valss (for/list ([rhs (in-list (if syntaxes? (stx-m 'trans-rhs) '()))] [ids (in-list trans-idss)]) (log-expand* ctx ['next] ['enter-bind]) - (define trans-val (eval-for-syntaxes-binding (add-scope rhs sc) ids ctx)) + (define trans-val (eval-for-syntaxes-binding 'letrec-syntaxes+values + (add-scope rhs sc) ids ctx)) (log-expand ctx 'exit-bind) trans-val)) ;; Fill expansion-time environment: diff --git a/racket/src/expander/expand/main.rkt b/racket/src/expander/expand/main.rkt index 3ad24683d7..45dc3d026a 100644 --- a/racket/src/expander/expand/main.rkt +++ b/racket/src/expander/expand/main.rkt @@ -612,7 +612,7 @@ ;; Expand and evaluate `s` as a compile-time expression, ensuring that ;; the number of returned values matches the number of target ;; identifiers; return the expanded form as well as its values -(define (expand+eval-for-syntaxes-binding rhs ids ctx +(define (expand+eval-for-syntaxes-binding who rhs ids ctx #:log-next? [log-next? #t]) (define exp-rhs (expand-transformer rhs (as-named-context ctx ids))) (define phase (add1 (expand-context-phase ctx))) @@ -623,7 +623,8 @@ (when log-next? (log-expand ctx 'next)) (values exp-rhs parsed-rhs - (eval-for-bindings ids + (eval-for-bindings who + ids parsed-rhs phase (namespace->namespace-at-phase @@ -633,15 +634,15 @@ ;; Expand and evaluate `s` as a compile-time expression, returning ;; only the compile-time values -(define (eval-for-syntaxes-binding rhs ids ctx) +(define (eval-for-syntaxes-binding who rhs ids ctx) (define-values (exp-rhs parsed-rhs vals) - (expand+eval-for-syntaxes-binding rhs ids ctx)) + (expand+eval-for-syntaxes-binding who rhs ids ctx)) vals) ;; Expand and evaluate `s` as an expression in the given phase; ;; ensuring that the number of returned values matches the number of ;; target identifiers; return the values -(define (eval-for-bindings ids p phase ns ctx) +(define (eval-for-bindings who ids p phase ns ctx) (define compiled (if (can-direct-eval? p ns (root-expand-context-self-mpi ctx)) #f (compile-single p (make-compile-context @@ -657,8 +658,13 @@ (direct-eval p ns (root-expand-context-self-mpi ctx))))) list)) (unless (= (length vals) (length ids)) - (error "wrong number of results (" (length vals) "vs." (length ids) ")" - "from" p)) + (apply raise-result-arity-error + who + (length ids) + (cond + [(null? ids) ""] + [else (format "\n in: definition of ~a~a" (syntax-e (car ids)) (if (pair? (cdr ids)) " ..." ""))]) + vals)) vals) ;; ---------------------------------------- diff --git a/racket/src/expander/expand/module.rkt b/racket/src/expander/expand/module.rkt index 1dfbf87c78..10d5d90dd2 100644 --- a/racket/src/expander/expand/module.rkt +++ b/racket/src/expander/expand/module.rkt @@ -793,7 +793,8 @@ (add-defined-syms! requires+provides syms phase #:as-transformer? #t) ;; Expand and evaluate RHS: (define-values (exp-rhs parsed-rhs vals) - (expand+eval-for-syntaxes-binding (m 'rhs) ids + (expand+eval-for-syntaxes-binding 'define-syntaxes + (m 'rhs) ids (struct*-copy expand-context partial-body-ctx [lifts #f] ;; require lifts ok, others disallowed @@ -1273,7 +1274,7 @@ (cond [(parsed-define-values? p) (define ids (parsed-define-values-ids p)) - (define vals (eval-for-bindings ids (parsed-define-values-rhs p) phase m-ns ctx)) + (define vals (eval-for-bindings 'define-values ids (parsed-define-values-rhs p) phase m-ns ctx)) (for ([id (in-list ids)] [sym (in-list (parsed-define-values-syms p))] [val (in-list vals)]) diff --git a/racket/src/racket/src/error.c b/racket/src/racket/src/error.c index c0014ec39e..762f062b7d 100644 --- a/racket/src/racket/src/error.c +++ b/racket/src/racket/src/error.c @@ -105,6 +105,7 @@ static Scheme_Object *raise_mismatch_error(int argc, Scheme_Object *argv[]); static Scheme_Object *raise_arguments_error(int argc, Scheme_Object *argv[]); static Scheme_Object *raise_range_error(int argc, Scheme_Object *argv[]); static Scheme_Object *raise_arity_error(int argc, Scheme_Object *argv[]); +static Scheme_Object *raise_result_arity_error(int argc, Scheme_Object *argv[]); static Scheme_Object *error_escape_handler(int, Scheme_Object *[]); static Scheme_Object *error_display_handler(int, Scheme_Object *[]); static Scheme_Object *error_value_string_handler(int, Scheme_Object *[]); @@ -816,6 +817,7 @@ void scheme_init_error(Scheme_Startup_Env *env) scheme_raise_arity_error_proc = scheme_make_noncm_prim(raise_arity_error, "raise-arity-error", 2, -1); scheme_addto_prim_instance("raise-arity-error", scheme_raise_arity_error_proc, env); + ESCAPING_NONCM_PRIM("raise-result-arity-error", raise_result_arity_error, 2, -1, env); ADD_PARAMETER("error-display-handler", error_display_handler, MZCONFIG_ERROR_DISPLAY_HANDLER, env); ADD_PARAMETER("error-value->string-handler", error_value_string_handler, MZCONFIG_ERROR_PRINT_VALUE_HANDLER, env); @@ -2517,16 +2519,14 @@ void scheme_wrong_return_arity(const char *where, "%s%sresult arity mismatch;\n" " expected number of values not received\n" " expected: %d\n" - " received: %d\n" - "%s%t%s" + " received: %d" + "%t\n" " values...:%t", where ? where : "", where ? ": " : "", expected, got, - slen ? " from: " : "", s, slen, - slen ? "\n" : "", v, vlen); scheme_raise_exn(MZEXN_FAIL_CONTRACT_ARITY, @@ -2981,7 +2981,7 @@ static Scheme_Object *raise_arity_error(int argc, Scheme_Object *argv[]) if (!scheme_nonneg_exact_p(argv[1]) && !is_arity_at_least(argv[1]) && !is_arity_list(argv[1])) - scheme_wrong_contract("raise-mismatch-error", + scheme_wrong_contract("raise-arity-error", "(or/c exact-nonnegative-integer? arity-at-least? (listof (or/c exact-nonnegative-integer? arity-at-least?)))", 1, argc, argv); @@ -3017,6 +3017,50 @@ static Scheme_Object *raise_arity_error(int argc, Scheme_Object *argv[]) return NULL; } +static Scheme_Object *raise_result_arity_error(int argc, Scheme_Object *argv[]) +{ + const char *where, *detail; + Scheme_Object **got_argv; + int i, expected; + + if (SCHEME_FALSEP(argv[0])) + where = NULL; + else if (SCHEME_SYMBOLP(argv[0])) + where = scheme_symbol_val(argv[0]); + else + scheme_wrong_contract("raise-result-arity-error", "(or/c symbol? #f)", 0, argc, argv); + + if (SCHEME_INTP(argv[1])) { + expected = SCHEME_INT_VAL(argv[1]); + } else if (SCHEME_BIGNUMP(argv[1]) && SCHEME_BIGPOS(argv[1])) + expected = (int)(((unsigned)-1) >> 1); /* not right, but as big as we can report */ + else + expected = -1; + if (expected < 0) + scheme_wrong_contract("raise-result-arity-error", "exact-nonnegative-integer?", 1, argc, argv); + + if (SCHEME_FALSEP(argv[2])) + detail = NULL; + else if (SCHEME_CHAR_STRINGP(argv[2])) { + Scheme_Object *bstr; + bstr = scheme_char_string_to_byte_string(argv[2]); + detail = SCHEME_BYTE_STR_VAL(bstr); + } else + scheme_wrong_contract("raise-result-arity-error", "(or/c string? #f)", 2, argc, argv); + + got_argv = MALLOC_N(Scheme_Object*, argc-3); + for (i = 3; i < argc; i++) { + got_argv[i-3] = argv[i]; + } + + scheme_wrong_return_arity(where, expected, + argc-3, got_argv, + detail, + NULL); + + return scheme_void; +} + static Scheme_Object *good_print_width(int c, Scheme_Object **argv) { int ok; diff --git a/racket/src/racket/src/schminc.h b/racket/src/racket/src/schminc.h index 6507b7fd6e..5ccebcaacd 100644 --- a/racket/src/racket/src/schminc.h +++ b/racket/src/racket/src/schminc.h @@ -14,7 +14,7 @@ #define USE_COMPILED_STARTUP 1 -#define EXPECTED_PRIM_COUNT 1430 +#define EXPECTED_PRIM_COUNT 1431 #ifdef MZSCHEME_SOMETHING_OMITTED # undef USE_COMPILED_STARTUP diff --git a/racket/src/racket/src/schvers.h b/racket/src/racket/src/schvers.h index d718a9e47b..c2cf54a6e1 100644 --- a/racket/src/racket/src/schvers.h +++ b/racket/src/racket/src/schvers.h @@ -13,12 +13,12 @@ consistently.) */ -#define MZSCHEME_VERSION "6.90.0.25" +#define MZSCHEME_VERSION "6.90.0.26" #define MZSCHEME_VERSION_X 6 #define MZSCHEME_VERSION_Y 90 #define MZSCHEME_VERSION_Z 0 -#define MZSCHEME_VERSION_W 25 +#define MZSCHEME_VERSION_W 26 #define MZSCHEME_VERSION_MAJOR ((MZSCHEME_VERSION_X * 100) + MZSCHEME_VERSION_Y) #define MZSCHEME_VERSION_MINOR ((MZSCHEME_VERSION_Z * 1000) + MZSCHEME_VERSION_W) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 0a97732181..02c1f5342e 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -39195,11 +39195,11 @@ static const char *startup_source = " s_426))" "(let-values()" "(let-values(((binding_18)" -"(let-values(((id88_0) id_60)" -"((temp89_1)(expand-context-phase ctx_15))" -"((temp90_0) 'ambiguous)" -"((temp91_0) #t))" -"(resolve+shift30.1 temp90_0 #t #f #f #f #f temp91_0 #t #f #f id88_0 temp89_1))))" +"(let-values(((id89_0) id_60)" +"((temp90_0)(expand-context-phase ctx_15))" +"((temp91_0) 'ambiguous)" +"((temp92_1) #t))" +"(resolve+shift30.1 temp91_0 #t #f #f #f #f temp92_1 #t #f #f id89_0 temp90_0))))" "(begin" "(let-values(((obs_3)(expand-context-observer ctx_15)))" "(if obs_3" @@ -39214,12 +39214,12 @@ static const char *startup_source = "(let-values()(expand-implicit '#%top(substitute-alternate-id s_426 alternate-id_1) ctx_15 s_426))" "(let-values()" "(let-values(((t_46 primitive?_2 insp-of-t_0 protected?_3)" -"(let-values(((binding92_0) binding_18)" -"((ctx93_0) ctx_15)" -"((id94_0) id_60)" -"((temp95_0)(if alternate-id_1 s_426 #f))" -"((temp96_1)(expand-context-in-local-expand? ctx_15)))" -"(lookup28.1 temp95_0 #t temp96_1 #t binding92_0 ctx93_0 id94_0))))" +"(let-values(((binding93_0) binding_18)" +"((ctx94_0) ctx_15)" +"((id95_0) id_60)" +"((temp96_1)(if alternate-id_1 s_426 #f))" +"((temp97_1)(expand-context-in-local-expand? ctx_15)))" +"(lookup28.1 temp96_1 #t temp97_1 #t binding93_0 ctx94_0 id95_0))))" "(dispatch t_46 insp-of-t_0 s_426 id_60 ctx_15 binding_18 primitive?_2 protected?_3)))))))))))))" "(define-values" "(expand-id-application-form)" @@ -39249,11 +39249,11 @@ static const char *startup_source = " s_427))" "(let-values()" "(let-values(((binding_19)" -"(let-values(((id97_0) id_61)" -"((temp98_1)(expand-context-phase ctx_16))" -"((temp99_0) 'ambiguous)" -"((temp100_0) #t))" -"(resolve+shift30.1 temp99_0 #t #f #f #f #f temp100_0 #t #f #f id97_0 temp98_1))))" +"(let-values(((id98_0) id_61)" +"((temp99_0)(expand-context-phase ctx_16))" +"((temp100_0) 'ambiguous)" +"((temp101_0) #t))" +"(resolve+shift30.1 temp100_0 #t #f #f #f #f temp101_0 #t #f #f id98_0 temp99_0))))" "(begin" "(let-values(((obs_5)(expand-context-observer ctx_16)))" "(if obs_5" @@ -39268,12 +39268,12 @@ static const char *startup_source = "(let-values()(expand-implicit '#%app(substitute-alternate-id s_427 alternate-id_2) ctx_16 id_61))" "(let-values()" "(let-values(((t_47 primitive?_3 insp-of-t_1 protected?_4)" -"(let-values(((binding101_0) binding_19)" -"((ctx102_0) ctx_16)" -"((id103_0) id_61)" -"((temp104_1)(if alternate-id_2(car(syntax-e/no-taint s_427)) #f))" -"((temp105_0)(expand-context-in-local-expand? ctx_16)))" -"(lookup28.1 temp104_1 #t temp105_0 #t binding101_0 ctx102_0 id103_0))))" +"(let-values(((binding102_0) binding_19)" +"((ctx103_0) ctx_16)" +"((id104_0) id_61)" +"((temp105_0)(if alternate-id_2(car(syntax-e/no-taint s_427)) #f))" +"((temp106_1)(expand-context-in-local-expand? ctx_16)))" +"(lookup28.1 temp105_0 #t temp106_1 #t binding102_0 ctx103_0 id104_0))))" "(if(variable? t_47)" "(let-values()" "(expand-implicit '#%app(substitute-alternate-id s_427 alternate-id_2) ctx_16 id_61))" @@ -39328,18 +39328,18 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((b_79)" -"(let-values(((id106_0) id_62)" -"((temp107_1)(expand-context-phase ctx_17))" -"((temp108_0) 'ambiguous)" -"((temp109_0) #t))" -"(resolve+shift30.1 temp108_0 #t #f #f #f #f temp109_0 #t #f #f id106_0 temp107_1))))" +"(let-values(((id107_0) id_62)" +"((temp108_0)(expand-context-phase ctx_17))" +"((temp109_0) 'ambiguous)" +"((temp110_1) #t))" +"(resolve+shift30.1 temp109_0 #t #f #f #f #f temp110_1 #t #f #f id107_0 temp108_0))))" "(if(eq? b_79 'ambiguous)" "(let-values()(raise-ambiguous-error id_62 ctx_17))" "(let-values()" "(let-values(((t_48 primitive?_4 insp-of-t_2 protected?_5)" "(if b_79" -"(let-values(((b110_0) b_79)((ctx111_0) ctx_17)((id112_0) id_62))" -"(lookup28.1 #f #f #f #f b110_0 ctx111_0 id112_0))" +"(let-values(((b111_0) b_79)((ctx112_0) ctx_17)((id113_0) id_62))" +"(lookup28.1 #f #f #f #f b111_0 ctx112_0 id113_0))" "(values #f #f #f #f))))" "(if(transformer? t_48)" "(let-values()" @@ -39372,9 +39372,9 @@ static const char *startup_source = " #f)))" "(let-values(((tl-b_0)" "(if tl-id_0" -"(let-values(((tl-id113_0) tl-id_0)" -"((temp114_1)(expand-context-phase ctx_17)))" -"(resolve40.1 #f #f #f #f #f #f #f #f tl-id113_0 temp114_1))" +"(let-values(((tl-id114_0) tl-id_0)" +"((temp115_0)(expand-context-phase ctx_17)))" +"(resolve40.1 #f #f #f #f #f #f #f #f tl-id114_0 temp115_0))" " #f)))" "(if tl-b_0" "(let-values()" @@ -39430,8 +39430,8 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_9 'opaque-expr result-s_1)))" "(void)))" "(if(if(expand-context-to-parsed? ctx_18)(free-id-set-empty?(expand-context-stops ctx_18)) #f)" -"(let-values(((result-s115_0) result-s_1)((ctx116_0) ctx_18))" -"(expand7.1 #f #f #f #f result-s115_0 ctx116_0))" +"(let-values(((result-s116_0) result-s_1)((ctx117_0) ctx_18))" +"(expand7.1 #f #f #f #f result-s116_0 ctx117_0))" " result-s_1))))))))))))" "(define-values" "(make-explicit)" @@ -39524,8 +39524,8 @@ static const char *startup_source = "(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_432)))(void)))" -"(let-values(((adj-s117_0) adj-s_0)((ctx118_0) ctx_23))" -"(expand7.1 #f #f #f #f adj-s117_0 ctx118_0))))))" +"(let-values(((adj-s118_0) adj-s_0)((ctx119_0) ctx_23))" +"(expand7.1 #f #f #f #f adj-s118_0 ctx119_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_432))" @@ -39546,21 +39546,21 @@ static const char *startup_source = "(let-values(((exp-s_1 re-ctx_0)" "(if(1/rename-transformer? t_52)" "(values s_432 ctx_23)" -"(let-values(((t119_0) t_52)" -"((insp-of-t120_0) insp-of-t_4)" -"((s121_0) s_432)" -"((id122_0) id_64)" -"((ctx123_0) ctx_23)" -"((binding124_0) binding_21))" +"(let-values(((t120_0) t_52)" +"((insp-of-t121_0) insp-of-t_4)" +"((s122_0) s_432)" +"((id123_0) id_64)" +"((ctx124_0) ctx_23)" +"((binding125_0) binding_21))" "(apply-transformer18.1" " #f" " #f" -" t119_0" -" insp-of-t120_0" -" s121_0" -" id122_0" -" ctx123_0" -" binding124_0)))))" +" t120_0" +" insp-of-t121_0" +" s122_0" +" id123_0" +" ctx124_0" +" binding125_0)))))" "(begin" "(let-values(((obs_19)(expand-context-observer ctx_23)))" "(if obs_19" @@ -39572,19 +39572,19 @@ static const char *startup_source = "(if(expand-context-just-once? ctx_23)" "(let-values() exp-s_1)" "(let-values()" -"(let-values(((exp-s125_0) exp-s_1)" -"((re-ctx126_0) re-ctx_0)" -"((temp127_1)" +"(let-values(((exp-s126_0) exp-s_1)" +"((re-ctx127_0) re-ctx_0)" +"((temp128_1)" "(if(1/rename-transformer? t_52)" "(syntax-track-origin$1" "(transfer-srcloc(rename-transformer-target-in-context t_52 ctx_23) id_64)" " id_64" " id_64)" " #f))" -"((temp128_1)" +"((temp129_0)" "(let-values(((or-part_200)(expand-context-only-immediate? ctx_23)))" "(if or-part_200 or-part_200(1/rename-transformer? t_52)))))" -"(expand7.1 temp127_1 #t temp128_1 #t exp-s125_0 re-ctx126_0)))))))))))))" +"(expand7.1 temp128_1 #t temp129_0 #t exp-s126_0 re-ctx127_0)))))))))))))" "(define-values" "(dispatch-variable)" "(lambda(t_53 s_321 id_65 ctx_24 binding_22 primitive?_6 protected?_7)" @@ -39605,11 +39605,11 @@ static const char *startup_source = "(values))))" "(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" "(let-values(((result-s_4)" -"(let-values(((id129_0) id_65)" -"((t130_0) t_53)" -"((temp131_1)" +"(let-values(((id130_0) id_65)" +"((t131_0) t_53)" +"((temp132_1)" "(free-id-set-empty-or-just-module*?(expand-context-stops ctx_24))))" -"(substitute-variable6.1 temp131_1 id129_0 t130_0))))" +"(substitute-variable6.1 temp132_1 id130_0 t131_0))))" "(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)))" @@ -39723,14 +39723,14 @@ static const char *startup_source = "(let-values(((v_187) accum-ctx_0))" "(let-values(((the-struct_56) v_187))" "(if(expand-context/outer? the-struct_56)" -"(let-values(((current-introduction-scopes132_0)(cons intro-scope_1 use-scopes_1))" -"((def-ctx-scopes133_0)" +"(let-values(((current-introduction-scopes133_0)(cons intro-scope_1 use-scopes_1))" +"((def-ctx-scopes134_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" "(expand-context-def-ctx-scopes ctx_26)))" -"((inner134_0)(root-expand-context/outer-inner v_187)))" +"((inner135_0)(root-expand-context/outer-inner v_187)))" "(expand-context/outer1.1" -" inner134_0" +" inner135_0" "(root-expand-context/outer-post-expansion-scope the-struct_56)" "(root-expand-context/outer-use-site-scopes the-struct_56)" "(root-expand-context/outer-frame-id the-struct_56)" @@ -39738,12 +39738,12 @@ static const char *startup_source = "(expand-context/outer-env the-struct_56)" "(expand-context/outer-post-expansion-scope-action the-struct_56)" "(expand-context/outer-scopes the-struct_56)" -" def-ctx-scopes133_0" +" def-ctx-scopes134_0" "(expand-context/outer-binding-layer the-struct_56)" "(expand-context/outer-reference-records the-struct_56)" "(expand-context/outer-only-immediate? the-struct_56)" "(expand-context/outer-need-eventually-defined the-struct_56)" -" current-introduction-scopes132_0" +" current-introduction-scopes133_0" "(expand-context/outer-name the-struct_56)))" " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_56))))))" "(let-values(((transformed-s_1)" @@ -39815,17 +39815,17 @@ static const char *startup_source = "(let-values(((v_188) ctx_29))" "(let-values(((the-struct_16) v_188))" "(if(expand-context/outer? the-struct_16)" -"(let-values(((scopes135_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner136_0)(root-expand-context/outer-inner v_188)))" +"(let-values(((scopes136_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" +"((inner137_0)(root-expand-context/outer-inner v_188)))" "(expand-context/outer1.1" -" inner136_0" +" inner137_0" "(root-expand-context/outer-post-expansion-scope the-struct_16)" "(root-expand-context/outer-use-site-scopes the-struct_16)" "(root-expand-context/outer-frame-id the-struct_16)" "(expand-context/outer-context the-struct_16)" "(expand-context/outer-env the-struct_16)" "(expand-context/outer-post-expansion-scope-action the-struct_16)" -" scopes135_0" +" scopes136_0" "(expand-context/outer-def-ctx-scopes the-struct_16)" "(expand-context/outer-binding-layer the-struct_16)" "(expand-context/outer-reference-records the-struct_16)" @@ -39846,25 +39846,25 @@ static const char *startup_source = "(let-values(((out-of-context-as-variable?_1)" "(if out-of-context-as-variable?24_0 out-of-context-as-variable?22_0 #f)))" "(let-values()" -"(let-values(((b137_0) b_81)" -"((temp138_1)(expand-context-env ctx_30))" -"((temp139_0)(expand-context-lift-envs ctx_30))" -"((temp140_0)(expand-context-namespace ctx_30))" -"((temp141_0)(expand-context-phase ctx_30))" -"((id142_0) id_68)" -"((in-s143_0) in-s_7)" -"((out-of-context-as-variable?144_0) out-of-context-as-variable?_1))" +"(let-values(((b138_0) b_81)" +"((temp139_0)(expand-context-env ctx_30))" +"((temp140_0)(expand-context-lift-envs ctx_30))" +"((temp141_0)(expand-context-namespace ctx_30))" +"((temp142_0)(expand-context-phase ctx_30))" +"((id143_0) id_68)" +"((in-s144_0) in-s_7)" +"((out-of-context-as-variable?145_0) out-of-context-as-variable?_1))" "(binding-lookup50.1" -" in-s143_0" +" in-s144_0" " #t" -" out-of-context-as-variable?144_0" +" out-of-context-as-variable?145_0" " #t" -" b137_0" -" temp138_1" +" b138_0" " temp139_0" " temp140_0" " temp141_0" -" id142_0)))))))))))" +" temp142_0" +" id143_0)))))))))))" "(define-values" "(substitute-alternate-id)" "(lambda(s_434 alternate-id_3)" @@ -39917,32 +39917,32 @@ static const char *startup_source = " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" "(let-values(((lift-ctx_0)" -"(let-values(((temp145_0)" +"(let-values(((temp146_0)" "(if local?_0" "(make-local-lift" " lift-env_2" "(root-expand-context-counter ctx_32))" "(make-top-level-lift ctx_32)))" -"((temp146_0)" +"((temp147_0)" "(if(not local?_0)" "(eq? context_6 'module)" " #f)))" -"(make-lift-context6.1 temp146_0 #t temp145_0))))" +"(make-lift-context6.1 temp147_0 #t temp146_0))))" "(let-values(((capture-ctx_0)" "(let-values(((v_189) ctx_32))" "(let-values(((the-struct_57) v_189))" "(if(expand-context/outer? the-struct_57)" -"(let-values(((inner147_0)" +"(let-values(((inner148_0)" "(let-values(((the-struct_58)" "(root-expand-context/outer-inner" " v_189)))" "(if(expand-context/inner?" " the-struct_58)" -"(let-values(((lift-key148_0)" +"(let-values(((lift-key149_0)" " lift-key_2)" -"((lifts149_0)" +"((lifts150_0)" " lift-ctx_0)" -"((lift-envs150_0)" +"((lift-envs151_0)" "(if local?_0" "(cons" " lift-env_2" @@ -39950,7 +39950,7 @@ static const char *startup_source = " ctx_32))" "(expand-context-lift-envs" " ctx_32)))" -"((module-lifts151_0)" +"((module-lifts152_0)" "(if(let-values(((or-part_174)" " local?_0))" "(if or-part_174" @@ -39976,7 +39976,7 @@ static const char *startup_source = " the-struct_58)" "(root-expand-context/inner-counter" " the-struct_58)" -" lift-key148_0" +" lift-key149_0" "(expand-context/inner-to-parsed?" " the-struct_58)" "(expand-context/inner-phase" @@ -39995,9 +39995,9 @@ static const char *startup_source = " the-struct_58)" "(expand-context/inner-declared-submodule-names" " the-struct_58)" -" lifts149_0" -" lift-envs150_0" -" module-lifts151_0" +" lifts150_0" +" lift-envs151_0" +" module-lifts152_0" "(expand-context/inner-require-lifts" " the-struct_58)" "(expand-context/inner-to-module-lifts" @@ -40015,7 +40015,7 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_58)))))" "(expand-context/outer1.1" -" inner147_0" +" inner148_0" "(root-expand-context/outer-post-expansion-scope" " the-struct_57)" "(root-expand-context/outer-use-site-scopes" @@ -40046,15 +40046,15 @@ static const char *startup_source = " the-struct_57))))))" "(let-values(((rebuild-s_0)(keep-properties-only s_436)))" "(let-values(((exp-s_2)" -"(let-values(((s152_0) s_436)" -"((capture-ctx153_0) capture-ctx_0))" +"(let-values(((s153_0) s_436)" +"((capture-ctx154_0) capture-ctx_0))" "(expand7.1" " #f" " #f" " #f" " #f" -" s152_0" -" capture-ctx153_0))))" +" s153_0" +" capture-ctx154_0))))" "(let-values(((lifts_6)" "(get-and-clear-lifts!" "(expand-context-lifts capture-ctx_0))))" @@ -40082,18 +40082,18 @@ static const char *startup_source = "(loop_94 rhs_15 #f rhs-ctx_0)))))" "(let-values()" "(if begin-form?_0" -"(let-values(((lifts154_0) lifts_6)" -"((exp-s155_0) exp-s_2)" -"((phase156_0)" +"(let-values(((lifts155_0) lifts_6)" +"((exp-s156_0) exp-s_2)" +"((phase157_0)" " phase_108))" "(wrap-lifts-as-begin16.1" " #f" " #f" " #f" " #f" -" lifts154_0" -" exp-s155_0" -" phase156_0))" +" lifts155_0" +" exp-s156_0" +" phase157_0))" "(wrap-lifts-as-let" " lifts_6" " exp-s_2" @@ -40153,32 +40153,32 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((trans-ctx_0)" -"(let-values(((ctx163_0) ctx_33)" -"((context164_0) context_7)" -"((keep-stops?165_0) keep-stops?_0))" +"(let-values(((ctx164_0) ctx_33)" +"((context165_0) context_7)" +"((keep-stops?166_0) keep-stops?_0))" "(context->transformer-context66.1" -" keep-stops?165_0" +" keep-stops?166_0" " #t" -" ctx163_0" -" context164_0" +" ctx164_0" +" context165_0" " #t))))" -"(let-values(((s157_0) s_343)" -"((trans-ctx158_0) trans-ctx_0)" -"((expand-lifts?159_0) expand-lifts?_1)" -"((begin-form?160_0) begin-form?_1)" -"((lift-key161_0) lift-key_3)" -"((always-wrap?162_0) always-wrap?_2))" +"(let-values(((s158_0) s_343)" +"((trans-ctx159_0) trans-ctx_0)" +"((expand-lifts?160_0) expand-lifts?_1)" +"((begin-form?161_0) begin-form?_1)" +"((lift-key162_0) lift-key_3)" +"((always-wrap?163_0) always-wrap?_2))" "(expand/capture-lifts41.1" -" always-wrap?162_0" +" always-wrap?163_0" " #t" -" begin-form?160_0" +" begin-form?161_0" " #t" -" expand-lifts?159_0" +" expand-lifts?160_0" " #t" -" lift-key161_0" +" lift-key162_0" " #t" -" s157_0" -" trans-ctx158_0))))))))))))))))" +" s158_0" +" trans-ctx159_0))))))))))))))))" "(define-values" "(context->transformer-context66.1)" "(lambda(keep-stops?61_0 keep-stops?62_0 ctx65_0 context63_0 context64_0)" @@ -40195,19 +40195,19 @@ static const char *startup_source = "(let-values(((v_190) ctx_34))" "(let-values(((the-struct_59) v_190))" "(if(expand-context/outer? the-struct_59)" -"(let-values(((context166_0) context_8)" -"((scopes167_0) null)" -"((env168_0) empty-env)" -"((only-immediate?169_0)" +"(let-values(((context167_0) context_8)" +"((scopes168_0) null)" +"((env169_0) empty-env)" +"((only-immediate?170_0)" "(if keep-stops?_1(expand-context-only-immediate? ctx_34) #f))" -"((def-ctx-scopes170_0) #f)" -"((post-expansion-scope171_0) #f)" -"((inner172_0)" +"((def-ctx-scopes171_0) #f)" +"((post-expansion-scope172_0) #f)" +"((inner173_0)" "(let-values(((the-struct_60)(root-expand-context/outer-inner v_190)))" "(if(expand-context/inner? the-struct_60)" -"(let-values(((phase173_0) phase_109)" -"((namespace174_0) ns_73)" -"((stops175_0)" +"(let-values(((phase174_0) phase_109)" +"((namespace175_0) ns_73)" +"((stops176_0)" "(if keep-stops?_1" "(expand-context-stops ctx_34)" " empty-free-id-set)))" @@ -40220,13 +40220,13 @@ static const char *startup_source = "(root-expand-context/inner-counter the-struct_60)" "(root-expand-context/inner-lift-key the-struct_60)" "(expand-context/inner-to-parsed? the-struct_60)" -" phase173_0" -" namespace174_0" +" phase174_0" +" namespace175_0" "(expand-context/inner-just-once? the-struct_60)" "(expand-context/inner-module-begin-k the-struct_60)" "(expand-context/inner-allow-unbound? the-struct_60)" "(expand-context/inner-in-local-expand? the-struct_60)" -" stops175_0" +" stops176_0" "(expand-context/inner-declared-submodule-names the-struct_60)" "(expand-context/inner-lifts the-struct_60)" "(expand-context/inner-lift-envs the-struct_60)" @@ -40242,44 +40242,45 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_60)))))" "(expand-context/outer1.1" -" inner172_0" -" post-expansion-scope171_0" +" inner173_0" +" post-expansion-scope172_0" "(root-expand-context/outer-use-site-scopes the-struct_59)" "(root-expand-context/outer-frame-id the-struct_59)" -" context166_0" -" env168_0" +" context167_0" +" env169_0" "(expand-context/outer-post-expansion-scope-action the-struct_59)" -" scopes167_0" -" def-ctx-scopes170_0" +" scopes168_0" +" def-ctx-scopes171_0" "(expand-context/outer-binding-layer the-struct_59)" "(expand-context/outer-reference-records the-struct_59)" -" only-immediate?169_0" +" only-immediate?170_0" "(expand-context/outer-need-eventually-defined the-struct_59)" "(expand-context/outer-current-introduction-scopes the-struct_59)" "(expand-context/outer-name the-struct_59)))" " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_59))))))))))))))" "(define-values" -"(expand+eval-for-syntaxes-binding74.1)" -"(lambda(log-next?69_0 log-next?70_0 rhs71_0 ids72_0 ctx73_0)" +"(expand+eval-for-syntaxes-binding75.1)" +"(lambda(log-next?69_0 log-next?70_0 who71_0 rhs72_0 ids73_0 ctx74_0)" "(begin" -" 'expand+eval-for-syntaxes-binding74" -"(let-values(((rhs_16) rhs71_0))" -"(let-values(((ids_19) ids72_0))" -"(let-values(((ctx_35) ctx73_0))" +" 'expand+eval-for-syntaxes-binding75" +"(let-values(((who_17) who71_0))" +"(let-values(((rhs_16) rhs72_0))" +"(let-values(((ids_19) ids73_0))" +"(let-values(((ctx_35) ctx74_0))" "(let-values(((log-next?_0)(if log-next?70_0 log-next?69_0 #t)))" "(let-values()" "(let-values(((exp-rhs_0)" -"(let-values(((rhs176_0) rhs_16)((temp177_0)(as-named-context ctx_35 ids_19)))" -"(expand-transformer58.1 #f #f #f #f #f #f #f #f #f #f #f #f rhs176_0 temp177_0))))" +"(let-values(((rhs177_0) rhs_16)((temp178_0)(as-named-context ctx_35 ids_19)))" +"(expand-transformer58.1 #f #f #f #f #f #f #f #f #f #f #f #f rhs177_0 temp178_0))))" "(let-values(((phase_110)(add1(expand-context-phase ctx_35))))" "(let-values(((parsed-rhs_0)" "(if(expand-context-to-parsed? ctx_35)" " exp-rhs_0" -"(let-values(((exp-rhs178_0) exp-rhs_0)" -"((temp179_0)" -"(let-values(((temp180_0)(as-to-parsed-context ctx_35)))" -"(context->transformer-context66.1 #f #f temp180_0 #f #f))))" -"(expand7.1 #f #f #f #f exp-rhs178_0 temp179_0)))))" +"(let-values(((exp-rhs179_0) exp-rhs_0)" +"((temp180_0)" +"(let-values(((temp181_0)(as-to-parsed-context ctx_35)))" +"(context->transformer-context66.1 #f #f temp181_0 #f #f))))" +"(expand7.1 #f #f #f #f exp-rhs179_0 temp180_0)))))" "(begin" "(if log-next?_0" "(let-values()" @@ -40290,30 +40291,31 @@ static const char *startup_source = " exp-rhs_0" " parsed-rhs_0" "(eval-for-bindings" +" who_17" " ids_19" " parsed-rhs_0" " phase_110" "(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_110)" -" ctx_35))))))))))))))" +" ctx_35)))))))))))))))" "(define-values" "(eval-for-syntaxes-binding)" -"(lambda(rhs_17 ids_20 ctx_36)" +"(lambda(who_18 rhs_17 ids_20 ctx_36)" "(begin" "(let-values(((exp-rhs_1 parsed-rhs_1 vals_3)" -"(let-values(((rhs181_0) rhs_17)((ids182_0) ids_20)((ctx183_0) ctx_36))" -"(expand+eval-for-syntaxes-binding74.1 #f #f rhs181_0 ids182_0 ctx183_0))))" +"(let-values(((who182_0) who_18)((rhs183_0) rhs_17)((ids184_0) ids_20)((ctx185_0) ctx_36))" +"(expand+eval-for-syntaxes-binding75.1 #f #f who182_0 rhs183_0 ids184_0 ctx185_0))))" " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(ids_21 p_49 phase_111 ns_74 ctx_37)" +"(lambda(who_19 ids_21 p_49 phase_111 ns_74 ctx_37)" "(begin" "(let-values(((compiled_0)" "(if(can-direct-eval? p_49 ns_74(root-expand-context-self-mpi ctx_37))" " #f" "(compile-single" " p_49" -"(let-values(((ns184_0) ns_74)((phase185_0) phase_111))" -"(make-compile-context14.1 #f #f #f #f #f #f ns184_0 #t phase185_0 #t #f #f))))))" +"(let-values(((ns186_0) ns_74)((phase187_0) phase_111))" +"(make-compile-context14.1 #f #f #f #f #f #f ns186_0 #t phase187_0 #t #f #f))))))" "(let-values(((vals_4)" "(call-with-values" "(lambda()" @@ -40335,29 +40337,41 @@ static const char *startup_source = "(begin" "(if(=(length vals_4)(length ids_21))" "(void)" -" (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_49)))" +"(let-values()" +"(apply" +" raise-result-arity-error" +" who_19" +"(length ids_21)" +"(if(null? ids_21)" +" (let-values () \"\")" +"(let-values()" +"(format" +" \"\\n in: definition of ~a~a\"" +"(syntax-e$1(car ids_21))" +" (if (pair? (cdr ids_21)) \" ...\" \"\"))))" +" vals_4)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_388)(begin(datum->syntax$1 #f 'props s_388 s_388))))" -"(define-values(keep-properties-only~)(lambda(s_389)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_394)(begin(datum->syntax$1 #f 'props s_394 s_394))))" +"(define-values(keep-properties-only~)(lambda(s_395)(begin #f)))" "(define-values" -"(keep-as-needed85.1)" -"(lambda(for-track?77_0" -" for-track?80_0" -" keep-for-error?79_0" -" keep-for-error?82_0" -" keep-for-parsed?78_0" -" keep-for-parsed?81_0" -" ctx83_0" -" s84_0)" +"(keep-as-needed86.1)" +"(lambda(for-track?78_0" +" for-track?81_0" +" keep-for-error?80_0" +" keep-for-error?83_0" +" keep-for-parsed?79_0" +" keep-for-parsed?82_0" +" ctx84_0" +" s85_0)" "(begin" -" 'keep-as-needed85" -"(let-values(((ctx_38) ctx83_0))" -"(let-values(((s_397) s84_0))" +" 'keep-as-needed86" +"(let-values(((ctx_38) ctx84_0))" +"(let-values(((s_437) s85_0))" "(let-values()" -"(let-values(((keep-for-parsed?_0)(if keep-for-parsed?81_0 keep-for-parsed?78_0 #f)))" -"(let-values(((keep-for-error?_0)(if keep-for-error?82_0 keep-for-error?79_0 #f)))" +"(let-values(((keep-for-parsed?_0)(if keep-for-parsed?82_0 keep-for-parsed?79_0 #f)))" +"(let-values(((keep-for-error?_0)(if keep-for-error?83_0 keep-for-error?80_0 #f)))" "(let-values()" -"(let-values(((d_32)(syntax-e$1 s_397)))" +"(let-values(((d_32)(syntax-e$1 s_437)))" "(let-values(((keep-e_0)" "(if(symbol? d_32)" "(let-values() d_32)" @@ -40368,25 +40382,25 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_261) keep-for-parsed?_0))" "(if or-part_261 or-part_261 keep-for-error?_0))" -"(datum->syntax$1 #f keep-e_0 s_397 s_397)" +"(datum->syntax$1 #f keep-e_0 s_437 s_437)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_397) keep-e_0 s_397 s_397)" -" s_397))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_437) keep-e_0 s_437 s_437)" +" s_437))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_437 trans-idss_0)" +"(lambda(s_438 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_437)" +"(let-values() s_438)" "(let-values()" "(syntax-property$1" -" s_437" +" s_438" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_262)(syntax-property$1 s_437 'disappeared-binding)))" +"(let-values(((or-part_262)(syntax-property$1 s_438 'disappeared-binding)))" "(if or-part_262 or-part_262 null)))))))))" "(define-values" "(increment-binding-layer)" @@ -40433,36 +40447,36 @@ static const char *startup_source = "(let-values(((v_191) rhs-ctx_1))" "(let-values(((the-struct_61) v_191))" "(if(expand-context/outer? the-struct_61)" -"(let-values(((env186_0)" -"(let-values(((lst_146) ids_24)((lst_287) keys_4))" +"(let-values(((env188_0)" +"(let-values(((lst_287) ids_24)((lst_288) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_146)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" "(let-values()(check-list lst_287)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_288)))" "((letrec-values(((for-loop_258)" -"(lambda(env_3 lst_288 lst_289)" +"(lambda(env_3 lst_289 lst_290)" "(begin" " 'for-loop" -"(if(if(pair? lst_288)" -"(pair? lst_289)" +"(if(if(pair? lst_289)" +"(pair? lst_290)" " #f)" "(let-values(((id_69)" "(unsafe-car" -" lst_288))" +" lst_289))" "((rest_157)" "(unsafe-cdr" -" lst_288))" +" lst_289))" "((key_82)" "(unsafe-car" -" lst_289))" +" lst_290))" "((rest_158)" "(unsafe-cdr" -" lst_289)))" +" lst_290)))" "(let-values(((env_4)" "(let-values(((env_5)" " env_3))" @@ -40484,16 +40498,16 @@ static const char *startup_source = " env_3)))))" " for-loop_258)" "(expand-context-env rhs-ctx_1)" -" lst_146" -" lst_287))))" -"((inner187_0)(root-expand-context/outer-inner v_191)))" +" lst_287" +" lst_288))))" +"((inner189_0)(root-expand-context/outer-inner v_191)))" "(expand-context/outer1.1" -" inner187_0" +" inner189_0" "(root-expand-context/outer-post-expansion-scope the-struct_61)" "(root-expand-context/outer-use-site-scopes the-struct_61)" "(root-expand-context/outer-frame-id the-struct_61)" "(expand-context/outer-context the-struct_61)" -" env186_0" +" env188_0" "(expand-context/outer-post-expansion-scope-action the-struct_61)" "(expand-context/outer-scopes the-struct_61)" "(expand-context/outer-def-ctx-scopes the-struct_61)" @@ -40537,14 +40551,14 @@ static const char *startup_source = "(if srcloc_7" "(let-values(((the-struct_62) new-s_1))" "(if(syntax?$1 the-struct_62)" -"(let-values(((srcloc188_0) srcloc_7))" +"(let-values(((srcloc190_0) srcloc_7))" "(syntax1.1" "(syntax-content the-struct_62)" "(syntax-scopes the-struct_62)" "(syntax-shifted-multi-scopes the-struct_62)" "(syntax-scope-propagations+tamper the-struct_62)" "(syntax-mpi-shifts the-struct_62)" -" srcloc188_0" +" srcloc190_0" "(syntax-props the-struct_62)" "(syntax-inspector the-struct_62)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_62)))" @@ -40780,18 +40794,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_290) ids_25))" +"(let-values(((lst_291) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_290)))" +"(let-values()(check-list lst_291)))" "((letrec-values(((for-loop_260)" -"(lambda(fold-var_15 lst_291)" +"(lambda(fold-var_15 lst_292)" "(begin" " 'for-loop" -"(if(pair? lst_291)" -"(let-values(((id_71)(unsafe-car lst_291))" -"((rest_160)(unsafe-cdr lst_291)))" +"(if(pair? lst_292)" +"(let-values(((id_71)(unsafe-car lst_292))" +"((rest_160)(unsafe-cdr lst_292)))" "(let-values(((fold-var_244)" "(let-values(((fold-var_233)" " fold-var_15))" @@ -40826,7 +40840,7 @@ static const char *startup_source = " fold-var_15)))))" " for-loop_260)" " null" -" lst_290))))))" +" lst_291))))))" "(let-values((()" "(begin" "(let-values(((obs_30)(expand-context-observer ctx_44)))" @@ -40894,23 +40908,23 @@ static const char *startup_source = "(add-intdef-scopes21.1 #f #f temp53_1 #t s51_0 intdef52_0))" " ctx_44)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_292) syms_20))" +"(let-values(((lst_293) syms_20))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_292)))" +"(let-values()(check-list lst_293)))" "((letrec-values(((for-loop_262)" -"(lambda(env_7 lst_293)" +"(lambda(env_7 lst_294)" "(begin" " 'for-loop" -"(if(pair? lst_293)" +"(if(pair? lst_294)" "(let-values(((sym_67)" "(unsafe-car" -" lst_293))" +" lst_294))" "((rest_162)" "(unsafe-cdr" -" lst_293)))" +" lst_294)))" "(let-values(((env_8)" "(let-values(((env_9)" " env_7))" @@ -40930,7 +40944,7 @@ static const char *startup_source = " env_7)))))" " for-loop_262)" " intdef-env_0" -" lst_292)))))" +" lst_293)))))" "(let-values((()" "(begin" "(let-values(((obs_31)" @@ -40943,6 +40957,7 @@ static const char *startup_source = "(values))))" "(let-values(((vals_6)" "(eval-for-syntaxes-binding" +" 'syntax-local-bind-syntaxes" " input-s_0" " ids_25" "(let-values(((temp54_0)" @@ -41045,28 +41060,28 @@ static const char *startup_source = " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_294) intdef-ids_0)((lst_295) syms_20)((lst_14) vals_5))" +"(let-values(((lst_295) intdef-ids_0)((lst_296) syms_20)((lst_14) vals_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_294)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_295)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_296)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_14)))" "((letrec-values(((for-loop_263)" -"(lambda(fold-var_253 lst_296 lst_297 lst_106)" +"(lambda(fold-var_253 lst_297 lst_298 lst_106)" "(begin" " 'for-loop" -"(if(if(pair? lst_296)" -"(if(pair? lst_297)(pair? lst_106) #f)" +"(if(if(pair? lst_297)" +"(if(pair? lst_298)(pair? lst_106) #f)" " #f)" -"(let-values(((intdef-id_1)(unsafe-car lst_296))" -"((rest_53)(unsafe-cdr lst_296))" -"((sym_68)(unsafe-car lst_297))" -"((rest_163)(unsafe-cdr lst_297))" +"(let-values(((intdef-id_1)(unsafe-car lst_297))" +"((rest_53)(unsafe-cdr lst_297))" +"((sym_68)(unsafe-car lst_298))" +"((rest_163)(unsafe-cdr lst_298))" "((val_72)(unsafe-car lst_106))" "((rest_164)(unsafe-cdr lst_106)))" "(let-values(((fold-var_185)" @@ -41099,8 +41114,8 @@ static const char *startup_source = " fold-var_253)))))" " for-loop_263)" " null" -" lst_294" " lst_295" +" lst_296" " lst_14))))" "(unbox env-mixins_0)))" "(let-values(((obs_33)(expand-context-observer ctx_44)))" @@ -41121,16 +41136,16 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_1)))" "(reverse$1" -"(let-values(((lst_298)(unbox(internal-definition-context-env-mixins intdef_1))))" +"(let-values(((lst_299)(unbox(internal-definition-context-env-mixins intdef_1))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_298)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_299)))" "((letrec-values(((for-loop_81)" -"(lambda(fold-var_37 lst_299)" +"(lambda(fold-var_37 lst_300)" "(begin" " 'for-loop" -"(if(pair? lst_299)" -"(let-values(((env-mixin_0)(unsafe-car lst_299))" -"((rest_165)(unsafe-cdr lst_299)))" +"(if(pair? lst_300)" +"(let-values(((env-mixin_0)(unsafe-car lst_300))" +"((rest_165)(unsafe-cdr lst_300)))" "(let-values(((fold-var_254)" "(let-values(((fold-var_255) fold-var_37))" "(let-values(((fold-var_187)" @@ -41143,7 +41158,7 @@ static const char *startup_source = " fold-var_37)))))" " for-loop_81)" " null" -" lst_298))))))))" +" lst_299))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce13_0)" @@ -41151,7 +41166,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce13" "(let-values(((intdef_2) intdef11_0))" -"(let-values(((s_438) s12_1))" +"(let-values(((s_439) s12_1))" "(let-values(((mode_12)(if mode10_0 mode9_0 'flip)))" "(let-values()" "(begin" @@ -41162,11 +41177,11 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_2)))" -"(if(syntax?$1 s_438)" +"(if(syntax?$1 s_439)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_438)))" -"(let-values(((s59_0) s_438)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_439)))" +"(let-values(((s59_0) s_439)" "((intdef60_0) intdef_2)" "((temp61_1)" "(let-values(((tmp_31) mode_12))" @@ -41315,7 +41330,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_439) s19_0))" +"(let-values(((s_440) 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)))" @@ -41328,19 +41343,19 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_245)" -"(lambda(s_440 a_50)" +"(lambda(s_441 a_50)" "(begin" " 'for-loop" "(if(pair? a_50)" "(let-values(((intdef_9)(car a_50)))" -"(let-values(((s_441)" -"(let-values(((s_442) s_440))" +"(let-values(((s_442)" +"(let-values(((s_443) s_441))" "(if(let-values(((or-part_267) always?_0))" "(if or-part_267" " or-part_267" "(internal-definition-context-add-scope?" " intdef_9)))" -"(let-values(((s_207) s_442))" +"(let-values(((s_207) s_443))" "(let-values(((s_98)" "(let-values()" "(action_0" @@ -41348,11 +41363,11 @@ static const char *startup_source = "(internal-definition-context-scope" " intdef_9)))))" "(values s_98)))" -" s_442))))" -"(if(not #f)(for-loop_245 s_441(cdr a_50)) s_441)))" -" s_440)))))" +" s_443))))" +"(if(not #f)(for-loop_245 s_442(cdr a_50)) s_442)))" +" s_441)))))" " for-loop_245)" -" s_439" +" s_440" " x_76)))))))))))" "(define-values" "(make-local-expand-context37.1)" @@ -41461,10 +41476,10 @@ static const char *startup_source = " #f)))" "((post-expansion-scope-action67_0)" "(if intdefs_2" -"(lambda(s_443 placeholder-sc_0)" +"(lambda(s_444 placeholder-sc_0)" "(begin" " 'post-expansion-scope-action67" -"(let-values(((s73_1) s_443)((intdefs74_0) intdefs_2))" +"(let-values(((s73_1) s_444)((intdefs74_0) intdefs_2))" "(add-intdef-scopes21.1 #f #f #f #f s73_1 intdefs74_0))))" "(expand-context-post-expansion-scope-action ctx_30)))" "((scopes68_0)(append def-ctx-scopes_5(expand-context-scopes ctx_30)))" @@ -41542,7 +41557,7 @@ static const char *startup_source = " the-struct_64))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_444 ctx_45)(begin(flip-scopes s_444(expand-context-current-introduction-scopes ctx_45)))))" +"(lambda(s_445 ctx_45)(begin(flip-scopes s_445(expand-context-current-introduction-scopes ctx_45)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" @@ -41581,21 +41596,21 @@ static const char *startup_source = "(expand-context-context ctx_49)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_445)" +"(lambda(s_446)" "(begin" " 'syntax-local-introduce" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_445)" +"(if(syntax?$1 s_446)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_445)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_446)))" "(values))))" "(let-values(((ctx_50)" "(let-values(((temp68_0) 'syntax-local-introduce))" "(get-current-expand-context17.1 #f #f temp68_0 #t))))" -"(flip-introduction-scopes s_445 ctx_50))))))))" +"(flip-introduction-scopes s_446 ctx_50))))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" "(lambda(id_78)" @@ -41749,10 +41764,10 @@ static const char *startup_source = "(let-values(((maybe-taint_0)" "(if(syntax-clean? ext-s_0) values syntax-taint$1)))" "(let-values(((core86_0)" -"(lambda(s85_0 mode83_0 mode84_0)" +"(lambda(s85_1 mode83_0 mode84_0)" "(begin" " 'core86" -"(let-values(((s_446) s85_0))" +"(let-values(((s_447) s85_1))" "(let-values(((mode_14)" "(if mode84_0 mode83_0 'add)))" "(let-values()" @@ -41760,13 +41775,13 @@ static const char *startup_source = "(let-values(((tmp_33) mode_14))" "(if(equal? tmp_33 'add)" "(let-values()" -"(add-scopes s_446 delta-scs_0))" +"(add-scopes s_447 delta-scs_0))" "(if(equal? tmp_33 'remove)" "(let-values()" -"(remove-scopes s_446 delta-scs_0))" +"(remove-scopes s_447 delta-scs_0))" "(if(equal? tmp_33 'flip)" "(let-values()" -"(flip-scopes s_446 delta-scs_0))" +"(flip-scopes s_447 delta-scs_0))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -41798,7 +41813,7 @@ static const char *startup_source = "(lambda(immediate?11_0 who13_0 id14_1 intdef15_0 failure-thunk16_0)" "(begin" " 'do-syntax-local-value17" -"(let-values(((who_17) who13_0))" +"(let-values(((who_20) who13_0))" "(let-values(((id_80) id14_1))" "(let-values(((intdef_11) intdef15_0))" "(let-values(((failure-thunk_0) failure-thunk16_0))" @@ -41808,7 +41823,7 @@ static const char *startup_source = "(begin" "(if(identifier? id_80)" "(void)" -" (let-values () (raise-argument-error who_17 \"identifier?\" id_80)))" +" (let-values () (raise-argument-error who_20 \"identifier?\" id_80)))" "(values))))" "(let-values((()" "(begin" @@ -41823,7 +41838,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-argument-error" -" who_17" +" who_20" " \"(or/c #f (procedure-arity-includes/c 0))\"" " failure-thunk_0)))" "(values))))" @@ -41836,12 +41851,12 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-argument-error" -" who_17" +" who_20" " \"(or/c #f internal-definition-context?)\"" " intdef_11)))" "(values))))" "(let-values(((current-ctx_0)" -"(let-values(((who89_0) who_17))" +"(let-values(((who89_0) who_20))" "(get-current-expand-context17.1 #f #f who89_0 #t))))" "(let-values(((ctx_54)" "(if intdef_11" @@ -41930,21 +41945,21 @@ static const char *startup_source = "(void)))" "(if failure-thunk_0" "(failure-thunk_0)" -" (error who_17 \"unbound identifier: ~v\" id_81))))" +" (error who_20 \"unbound identifier: ~v\" id_81))))" "(let-values()" "(let-values(((v_37 primitive?_7 insp_17 protected?_8)" "(let-values(((b95_0) b_82)" "((ctx96_0) ctx_54)" -"((id97_1) id_81)" -"((temp98_2) #t))" +"((id97_0) id_81)" +"((temp98_1) #t))" "(lookup28.1" " #f" " #f" -" temp98_2" +" temp98_1" " #t" " b95_0" " ctx96_0" -" id97_1))))" +" id97_0))))" "(if(let-values(((or-part_275)(variable? v_37)))" "(if or-part_275 or-part_275(core-form? v_37)))" "(let-values()" @@ -41962,7 +41977,7 @@ static const char *startup_source = "(if failure-thunk_0" "(failure-thunk_0)" "(error" -" who_17" +" who_20" " \"identifier is not bound to syntax: ~v\"" " id_81))))" "(let-values()" @@ -42030,15 +42045,15 @@ static const char *startup_source = "(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(((temp104_2) 'syntax-local-value/immediate)" +"(let-values(((temp104_1) 'syntax-local-value/immediate)" "((temp105_1) #t)" -"((id106_1) id_86)" +"((id106_0) id_86)" "((intdef107_0) intdef_13)" "((failure-thunk108_0) failure-thunk_3))" "(do-syntax-local-value17.1" " temp105_1" -" temp104_2" -" id106_1" +" temp104_1" +" id106_0" " intdef107_0" " failure-thunk108_0))))))))))" "(case-lambda" @@ -42047,23 +42062,23 @@ static const char *startup_source = "((id_89 failure-thunk27_1)(syntax-local-value/immediate32_0 id_89 failure-thunk27_1 #f #t #f)))))" "(define-values" "(do-lift-values-expression)" -"(lambda(who_18 n_28 s_413)" +"(lambda(who_21 n_28 s_413)" "(begin" "(let-values((()" "(begin" -" (if (syntax?$1 s_413) (void) (let-values () (raise-argument-error who_18 \"syntax?\" s_413)))" +" (if (syntax?$1 s_413) (void) (let-values () (raise-argument-error who_21 \"syntax?\" s_413)))" "(values))))" "(let-values((()" "(begin" "(if(exact-nonnegative-integer? n_28)" "(void)" -" (let-values () (raise-argument-error who_18 \"exact-nonnegative-integer?\" n_28)))" +" (let-values () (raise-argument-error who_21 \"exact-nonnegative-integer?\" n_28)))" "(values))))" -"(let-values(((ctx_55)(let-values(((who109_0) who_18))(get-current-expand-context17.1 #f #f who109_0 #t))))" +"(let-values(((ctx_55)(let-values(((who109_0) who_21))(get-current-expand-context17.1 #f #f who109_0 #t))))" "(let-values(((lifts_0)(expand-context-lifts ctx_55)))" "(let-values((()" "(begin" -" (if lifts_0 (void) (let-values () (raise-arguments-error who_18 \"no lift target\")))" +" (if lifts_0 (void) (let-values () (raise-arguments-error who_21 \"no lift target\")))" "(values))))" "(let-values(((counter_4)(root-expand-context-counter ctx_55)))" "(let-values(((ids_26)" @@ -42134,10 +42149,10 @@ static const char *startup_source = "(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_201)))))))" "(define-values" "(1/syntax-local-lift-values-expression)" -"(lambda(n_29 s_447)" +"(lambda(n_29 s_448)" "(begin" " 'syntax-local-lift-values-expression" -"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_447))))))" +"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_448))))))" "(define-values" "(1/syntax-local-lift-context)" "(lambda()" @@ -42207,8 +42222,8 @@ static const char *startup_source = " s53_1)" "(begin" " 'do-local-lift-to-module54" -"(let-values(((who_19) who52_0))" -"(let-values(((s_448) s53_1))" +"(let-values(((who_22) who52_0))" +"(let-values(((s_449) 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)))" @@ -42218,7 +42233,7 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_449 phase_118 lift-ctx_1)(begin 'pre-wrap s_449)))))" +"(lambda(s_450 phase_118 lift-ctx_1)(begin 'pre-wrap s_450)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" @@ -42230,13 +42245,13 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_448)" +"(if(syntax?$1 s_449)" "(void)" -" (let-values () (raise-argument-error who_19 \"syntax?\" s_448)))" +" (let-values () (raise-argument-error who_22 \"syntax?\" s_449)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" "(let-values(((ctx_58)" -"(let-values(((who116_0) who_19))" +"(let-values(((who116_0) who_22))" "(get-current-expand-context17.1 #f #f who116_0 #t))))" "(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_58)))" "(let-values((()" @@ -42245,15 +42260,15 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-arguments-error" -" who_19" +" who_22" " no-target-msg_0" " \"form to lift\"" -" s_448)))" +" s_449)))" "(values))))" "(let-values(((phase_121)(expand-context-phase ctx_58)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" -"(if intro?_0(flip-introduction-scopes s_448 ctx_58) s_448)))" +"(if intro?_0(flip-introduction-scopes s_449 ctx_58) s_449)))" "(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_121 lift-ctx_4)))" "(let-values(((shift-s_0)" "(let-values(((start_41) phase_121)" @@ -42273,12 +42288,12 @@ static const char *startup_source = "(let-values(((phase_55)" " pos_24))" "(let-values(((s_169)" -"(let-values(((s_450)" +"(let-values(((s_451)" " s_103))" "(let-values(((s_211)" "(let-values()" "(shift-wrap_0" -" s_450" +" s_451" "(sub1" " phase_55)" " lift-ctx_4))))" @@ -42321,9 +42336,9 @@ static const char *startup_source = "((require-lift-context-wrt-phase124_0) require-lift-context-wrt-phase)" "((add-lifted-require!125_0) add-lifted-require!)" "((temp126_0)" -"(lambda(s_451 phase_122 require-lift-ctx_0)" -"(require-spec-shift-for-syntax s_451)))" -"((temp127_2)" +"(lambda(s_452 phase_122 require-lift-ctx_0)" +"(require-spec-shift-for-syntax s_452)))" +"((temp127_1)" "(lambda(s_121 phase_123 require-lift-ctx_1)" "(wrap-form '#%require(add-scope s_121 sc_33) phase_123))))" "(do-local-lift-to-module54.1" @@ -42335,7 +42350,7 @@ static const char *startup_source = " temp122_0" " #t" " temp120_0" -" temp127_2" +" temp127_1" " #t" " #f" " #f" @@ -42367,12 +42382,12 @@ static const char *startup_source = "(let-values(((ctx_59 result-s_7)" "(let-values(((who129_0) 'syntax-local-lift-provide)" "((s130_0) s_122)" -" ((temp131_2) \"not expanding in a module run-time body\")" +" ((temp131_1) \"not expanding in a module run-time body\")" "((expand-context-to-module-lifts132_0) expand-context-to-module-lifts)" "((to-module-lift-context-wrt-phase133_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!134_0) add-lifted-to-module-provide!)" "((temp135_0)" -"(lambda(s_452 phase_124 to-module-lift-ctx_0)(wrap-form 'for-syntax s_452 #f)))" +"(lambda(s_453 phase_124 to-module-lift-ctx_0)(wrap-form 'for-syntax s_453 #f)))" "((temp136_0)" "(lambda(s_222 phase_125 to-module-lift-ctx_1)" "(wrap-form '#%provide s_222 phase_125))))" @@ -42384,7 +42399,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp131_2" +" temp131_1" " temp136_0" " #t" " #f" @@ -42410,20 +42425,20 @@ static const char *startup_source = "((temp140_1)" " \"not currently transforming an expression within a module declaration\")" "((expand-context-to-module-lifts141_0) expand-context-to-module-lifts)" -"((temp142_0)(lambda(lift-ctx_5) 0))" +"((temp142_1)(lambda(lift-ctx_5) 0))" "((add-lifted-to-module-end!143_0) add-lifted-to-module-end!)" "((temp144_0)" "(lambda(orig-s_32 phase_126 to-module-lift-ctx_2)" "(if(to-module-lift-context-end-as-expressions? to-module-lift-ctx_2)" "(wrap-form '#%expression orig-s_32 phase_126)" " orig-s_32)))" -"((temp145_1)" +"((temp145_0)" "(lambda(s_131 phase_127 to-module-lift-ctx_3)" "(wrap-form 'begin-for-syntax s_131 phase_127))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-end!143_0" " expand-context-to-module-lifts141_0" -" temp142_0" +" temp142_1" " #f" " #f" " #f" @@ -42433,7 +42448,7 @@ static const char *startup_source = " #f" " temp144_0" " #t" -" temp145_1" +" temp145_0" " #t" " who138_0" " s139_0))))" @@ -42465,8 +42480,8 @@ static const char *startup_source = " \"not currently transforming module provides\")))" "(values))))" "(let-values(((ctx_61)" -"(let-values(((temp147_0) 'syntax-local-module-defined-identifiers))" -"(get-current-expand-context17.1 #f #f temp147_0 #t))))" +"(let-values(((temp147_1) 'syntax-local-module-defined-identifiers))" +"(get-current-expand-context17.1 #f #f temp147_1 #t))))" "(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_61))))))))))" "(define-values" "(1/syntax-local-module-required-identifiers)" @@ -42553,15 +42568,15 @@ static const char *startup_source = "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_300) requireds_1))" +"(let-values(((lst_301) requireds_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_300)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_301)))" "((letrec-values(((for-loop_268)" -"(lambda(ht_139 lst_301)" +"(lambda(ht_139 lst_302)" "(begin" " 'for-loop" -"(if(pair? lst_301)" -"(let-values(((r_42)(unsafe-car lst_301))((rest_166)(unsafe-cdr lst_301)))" +"(if(pair? lst_302)" +"(let-values(((r_42)(unsafe-car lst_302))((rest_166)(unsafe-cdr lst_302)))" "(let-values(((ht_140)" "(let-values(((ht_141) ht_139))" "(let-values(((ht_142)" @@ -42576,7 +42591,7 @@ static const char *startup_source = " ht_139)))))" " for-loop_268)" "(hasheqv)" -" lst_300))))))" +" lst_301))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" @@ -42910,7 +42925,7 @@ static const char *startup_source = "((stx-c_5 s_304)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_304 #f #f #f #f #f #f)))" "((stx-c_6 s_425 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_425 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" "((stx-c_7 s_75 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_75 stx-l_4 stx-p2_1 #f #t #t #f))" -"((stx-c_8 s_453 stx-l1_1)(datum->syntax9_0 stx-c_8 s_453 stx-l1_1 #f #f #t #f #f)))))" +"((stx-c_8 s_454 stx-l1_1)(datum->syntax9_0 stx-c_8 s_454 stx-l1_1 #f #f #t #f #f)))))" "(define-values" "(1/syntax->list)" "(lambda(s_5)" @@ -43169,20 +43184,20 @@ static const char *startup_source = "(lambda(s51_1 phase47_2 all-bindings?48_0 phase49_1 all-bindings?50_0)" "(begin" " 'syntax-debug-info52" -"(let-values(((s_454) s51_1))" +"(let-values(((s_455) s51_1))" "(let-values(((phase_137)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" "(let-values(((all-bindings?_1)(if all-bindings?50_0 all-bindings?48_0 #f)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_454)" +"(if(syntax?$1 s_455)" "(void)" -" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_454)))" +" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_455)))" "(if(phase? phase_137)" "(void)" "(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_137)))" -"(syntax-debug-info$1 s_454 phase_137 all-bindings?_1))))))))))))" +"(syntax-debug-info$1 s_455 phase_137 all-bindings?_1))))))))))))" "(case-lambda" "((s_314)(begin 'syntax-debug-info(syntax-debug-info52_0 s_314 #f #f #f #f)))" "((s_91 phase_101 all-bindings?48_1)(syntax-debug-info52_0 s_91 phase_101 all-bindings?48_1 #t #t))" @@ -43300,7 +43315,7 @@ static const char *startup_source = "(lambda(attach-instances?13_0 attach-instances?14_0 who15_1 src-namespace16_0 mod-path17_0 dest-namespace18_0)" "(begin" " 'do-attach-module19" -"(let-values(((who_20) who15_1))" +"(let-values(((who_23) who15_1))" "(let-values(((src-namespace_6) src-namespace16_0))" "(let-values(((mod-path_15) mod-path17_0))" "(let-values(((dest-namespace_2) dest-namespace18_0))" @@ -43310,7 +43325,7 @@ static const char *startup_source = "(begin" "(if(1/namespace? src-namespace_6)" "(void)" -" (let-values () (raise-argument-error who_20 \"namespace?\" src-namespace_6)))" +" (let-values () (raise-argument-error who_23 \"namespace?\" src-namespace_6)))" "(values))))" "(let-values((()" "(begin" @@ -43319,7 +43334,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-argument-error" -" who_20" +" who_23" " \"(or/c module-path? resolved-module-path?)\"" " mod-path_15)))" "(values))))" @@ -43327,7 +43342,7 @@ static const char *startup_source = "(begin" "(if(1/namespace? dest-namespace_2)" "(void)" -" (let-values () (raise-argument-error who_20 \"namespace?\" dest-namespace_2)))" +" (let-values () (raise-argument-error who_23 \"namespace?\" dest-namespace_2)))" "(values))))" "(let-values(((phase_131)(namespace-phase src-namespace_6)))" "(let-values((()" @@ -43336,7 +43351,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-arguments-error" -" who_20" +" who_23" " \"source and destination namespace phases do not match\"" " \"source phase\"" " phase_131" @@ -43395,7 +43410,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-arguments-error" -" who_20" +" who_23" " \"module not declared (in the source namespace)\"" " \"module name\"" " mod-name_19)))" @@ -43428,7 +43443,7 @@ static const char *startup_source = " #f)" "(let-values()" "(raise-arguments-error" -" who_20" +" who_23" " \"a different declaration is already in the destination namespace\"" " \"module name\"" " mod-name_19))" @@ -43466,7 +43481,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-arguments-error" -" who_20" +" who_23" " \"module not instantiated (in the source namespace)\"" " \"module name\"" " mod-name_19)))" @@ -43504,7 +43519,7 @@ static const char *startup_source = " #f)" "(let-values()" "(raise-arguments-error" -" who_20" +" who_23" " \"a different instance is already in the destination namespace\"" " \"module name\"" " mod-name_19))" @@ -43666,7 +43681,7 @@ static const char *startup_source = " for-loop_17)" " lst_21)))" "(void)" -"(let-values(((lst_302)" +"(let-values(((lst_303)" "(module-submodule-names" " m_20)))" "(begin" @@ -43675,19 +43690,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_302)))" +" lst_303)))" "((letrec-values(((for-loop_272)" -"(lambda(lst_303)" +"(lambda(lst_304)" "(begin" " 'for-loop" "(if(pair?" -" lst_303)" +" lst_304)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_303))" +" lst_304))" "((rest_168)" "(unsafe-cdr" -" lst_303)))" +" lst_304)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43713,7 +43728,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_272)" -" lst_302)))" +" lst_303)))" "(void)" "(if(module-supermodule-name" " m_20)" @@ -44038,7 +44053,7 @@ static const char *startup_source = " s_3))" "(let-values()(add-ns-scopes_0 s_3)))))))))))))))))))" "(case-lambda" -"((s_455)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_455 #f #f)))" +"((s_456)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_456 #f #f)))" "((s_75 ns1_4)(namespace-syntax-introduce4_0 s_75 ns1_4 #t)))))" "(define-values" "(namespace-datum-introduce)" @@ -44101,7 +44116,7 @@ static const char *startup_source = " 'do-namespace-require23" "(let-values(((run?_3)(if run?15_0 run?10_0 #t)))" "(let-values(((visit?_3)(if visit?16_0 visit?11_0 #f)))" -"(let-values(((who_21) who20_0))" +"(let-values(((who_24) who20_0))" "(let-values(((req_6) req21_0))" "(let-values(((ns_76) ns22_1))" "(let-values(((copy-variable-phase-level_2)" @@ -44115,7 +44130,7 @@ static const char *startup_source = "(begin" "(if(1/namespace? ns_76)" "(void)" -" (let-values () (raise-argument-error who_21 \"namespace?\" ns_76)))" +" (let-values () (raise-argument-error who_24 \"namespace?\" ns_76)))" "(values))))" "(let-values(((ctx-stx_0)" "(add-scopes" @@ -44134,12 +44149,12 @@ static const char *startup_source = "((ns89_0) ns_76)" "((run?90_0) run?_3)" "((visit?91_0) visit?_3)" -"((temp92_1)(namespace-phase ns_76))" +"((temp92_2)(namespace-phase ns_76))" "((temp93_1)(namespace-phase ns_76))" "((copy-variable-phase-level94_0) copy-variable-phase-level_2)" "((copy-variable-as-constant?95_0) copy-variable-as-constant?_2)" "((skip-variable-phase-level96_0) skip-variable-phase-level_2)" -"((who97_0) who_21))" +"((who97_0) who_24))" "(perform-require!78.1" " #f" " #f" @@ -44155,7 +44170,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp92_1" +" temp92_2" " #f" " #f" " temp93_1" @@ -44175,14 +44190,14 @@ static const char *startup_source = "(let-values(((run?98_0) run?_3)" "((visit?99_0) visit?_3)" "((temp100_2)(list(1/datum->syntax ctx-stx_0 req_6)))" -"((temp101_0) #f)" +"((temp101_1) #f)" "((ns102_0) ns_76)" "((temp103_0)(namespace-phase ns_76))" -"((temp104_3)" -"(let-values(((temp107_2) #f))" -"(make-requires+provides8.1 #f #f temp107_2)))" +"((temp104_2)" +"(let-values(((temp107_1) #f))" +"(make-requires+provides8.1 #f #f temp107_1)))" "((skip-variable-phase-level105_0) skip-variable-phase-level_2)" -"((who106_0) who_21))" +"((who106_0) who_24))" "(parse-and-perform-requires!30.1" " #f" " #f" @@ -44204,10 +44219,10 @@ static const char *startup_source = " #t" " who106_0" " temp100_2" -" temp101_0" +" temp101_1" " ns102_0" " temp103_0" -" temp104_3))))))))))))))))))" +" temp104_2))))))))))))))))))" "(define-values" "(1/namespace-require)" "(let-values(((namespace-require29_0)" @@ -44249,7 +44264,7 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((temp113_0) #f)" -"((temp114_2) #t)" +"((temp114_1) #t)" "((who115_1) 'namespace-require/expansion-time)" "((req116_0) req_10)" "((ns117_0) ns_78))" @@ -44262,7 +44277,7 @@ static const char *startup_source = " #t" " #f" " #f" -" temp114_2" +" temp114_1" " #t" " who115_1" " req116_0" @@ -44318,7 +44333,7 @@ static const char *startup_source = "((req126_0) req_16)" "((ns127_0) ns_80)" "((temp128_2) 0)" -"((temp129_0) 0))" +"((temp129_1) 0))" "(do-namespace-require23.1" " #f" " #f" @@ -44326,7 +44341,7 @@ static const char *startup_source = " #t" " #f" " #f" -" temp129_0" +" temp129_1" " #t" " #f" " #f" @@ -44515,10 +44530,10 @@ static const char *startup_source = " sym_77)" "(values))))" "(let-values(((id_105)(1/datum->syntax #f sym_77)))" -"(let-values(((temp138_2)(1/namespace-syntax-introduce id_105 ns_82))" +"(let-values(((temp138_1)(1/namespace-syntax-introduce id_105 ns_82))" "((temp139_1)" "(let-values(((temp141_1)(namespace-mpi ns_82))" -"((temp142_1)(namespace-phase ns_82))" +"((temp142_2)(namespace-phase ns_82))" "((sym143_0) sym_77))" "(make-module-binding22.1" " #f" @@ -44540,10 +44555,10 @@ static const char *startup_source = " #f" " #f" " temp141_1" -" temp142_1" +" temp142_2" " sym143_0)))" "((temp140_2)(namespace-phase ns_82)))" -"(add-binding!17.1 #f #f #f #f temp138_2 temp139_1 temp140_2)))))" +"(add-binding!17.1 #f #f #f #f temp138_1 temp139_1 temp140_2)))))" "(void)))))))))))))))" "(case-lambda" "((sym_78 val_75)" @@ -44627,7 +44642,7 @@ static const char *startup_source = "(let-values(((compile_1)" "(if compile4_0" " compile2_0" -"(lambda(s_456 ns_87)(begin 'compile(1/compile s_456 ns_87 #f))))))" +"(lambda(s_457 ns_87)(begin 'compile(1/compile s_457 ns_87 #f))))))" "(let-values()" "(if(let-values(((or-part_281)(compiled-in-memory? s_178)))" "(if or-part_281" @@ -44701,21 +44716,21 @@ static const char *startup_source = " to-source?21_1)" "(begin" " 'compile23" -"(let-values(((s_457) s22_0))" +"(let-values(((s_458) s22_0))" "(let-values(((ns_92)(if ns18_1 ns14_2(1/current-namespace))))" "(let-values(((serializable?_4)(if serializable?19_0 serializable?15_0 #t)))" "(let-values(((expand_0)(if expand20_0 expand16_0 expand$1)))" "(let-values(((to-source?_5)(if to-source?21_1 to-source?17_0 #f)))" "(let-values()" "(let-values(((cs_0)" -"(if(1/compiled-expression? s_457)" -"(let-values()(list s_457))" -"(if(if(syntax?$1 s_457)" -"(1/compiled-expression?(1/syntax-e s_457))" +"(if(1/compiled-expression? s_458)" +"(let-values()(list s_458))" +"(if(if(syntax?$1 s_458)" +"(1/compiled-expression?(1/syntax-e s_458))" " #f)" -"(let-values()(list(1/syntax-e s_457)))" +"(let-values()(list(1/syntax-e s_458)))" "(let-values()" -"(let-values(((s86_0) s_457)" +"(let-values(((s86_0) s_458)" "((ns87_0) ns_92)" "((temp88_2)" "(lambda(s_80 ns_49 as-tail?_4)" @@ -44759,8 +44774,8 @@ static const char *startup_source = " cs91_0))))))))))))))" "(case-lambda" "((s_189)(begin 'compile(compile23_0 s_189 #f #f #f #f #f #f #f #f)))" -"((s_458 ns_93 serializable?_5 expand_1 to-source?17_1)" -"(compile23_0 s_458 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" +"((s_459 ns_93 serializable?_5 expand_1 to-source?17_1)" +"(compile23_0 s_459 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" "((s_81 ns_94 serializable?_6 expand16_1)(compile23_0 s_81 ns_94 serializable?_6 expand16_1 #f #t #t #t #f))" "((s_19 ns_95 serializable?15_1)(compile23_0 s_19 ns_95 serializable?15_1 #f #f #t #t #f #f))" "((s_156 ns14_3)(compile23_0 s_156 ns14_3 #f #f #f #t #f #f #f)))))" @@ -44774,7 +44789,7 @@ static const char *startup_source = "(let-values(((ns_96)(if ns26_2 ns25_0(1/current-namespace))))" "(let-values()(1/compile s_25 ns_96 #t expand$1 #t))))))))" "(case-lambda" -"((s_459)(begin(compile-to-linklets28_0 s_459 #f #f)))" +"((s_460)(begin(compile-to-linklets28_0 s_460 #f #f)))" "((s_307 ns25_1)(compile-to-linklets28_0 s_307 ns25_1 #t)))))" "(define-values" "(struct:lifted-parsed-begin" @@ -44816,7 +44831,7 @@ static const char *startup_source = "(if(parsed-module? exp-s_5)" "(let-values()" "(let-values(((exp-s96_0) exp-s_5)" -"((temp97_1)" +"((temp97_2)" "(let-values(((ns100_0) ns_97))" "(make-compile-context14.1 #f #f #f #f #f #f ns100_0 #t #f #f #f #f)))" "((serializable?98_0) serializable?_7)" @@ -44833,19 +44848,19 @@ static const char *startup_source = " to-source?99_0" " #t" " exp-s96_0" -" temp97_1)))" +" temp97_2)))" "(if(lifted-parsed-begin? exp-s_5)" "(let-values()" -"(let-values(((temp101_1)" +"(let-values(((temp101_2)" "(reverse$1" -"(let-values(((lst_304)" +"(let-values(((lst_305)" "(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_304)))" +"(let-values()(check-list lst_305)))" "((letrec-values(((for-loop_274)" "(lambda(fold-var_164 lst_168)" "(begin" @@ -44875,12 +44890,12 @@ static const char *startup_source = " fold-var_164)))))" " for-loop_274)" " null" -" lst_304)))))" +" lst_305)))))" "((to-source?102_0) to-source?_6))" -"(compiled-tops->compiled-top8.1 #f #f #f #f to-source?102_0 #t temp101_1)))" +"(compiled-tops->compiled-top8.1 #f #f #f #f to-source?102_0 #t temp101_2)))" "(let-values()" "(let-values(((exp-s103_0) exp-s_5)" -"((temp104_4)" +"((temp104_3)" "(let-values(((ns107_0) ns_97))" "(make-compile-context14.1" " #f" @@ -44905,7 +44920,7 @@ static const char *startup_source = " to-source?106_0" " #t" " exp-s103_0" -" temp104_4)))))))))" +" temp104_3)))))))))" " loop_99)" " exp-s_4)))))" "(define-values" @@ -44940,10 +44955,10 @@ static const char *startup_source = "(let-values()" "(let-values(((s108_0) s_317)" "((ns109_1) ns_98)" -"((temp110_1)" -"(lambda(s_460 ns_99 as-tail?_5)" +"((temp110_2)" +"(lambda(s_461 ns_99 as-tail?_5)" "(expand-single" -" s_460" +" s_461" " ns_99" " observer_2" " to-parsed?_2" @@ -44961,7 +44976,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp110_1" +" temp110_2" " re-pair112_0" " #t" " s108_0" @@ -44970,9 +44985,9 @@ static const char *startup_source = "((s_305)(begin 'expand(expand40_0 s_305 #f #f #f #f #f #f #f #f)))" "((s_322 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" "(expand40_0 s_322 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_461 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_461 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_462 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_462 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" "((s_34 ns_102 observable?32_1)(expand40_0 s_34 ns_102 observable?32_1 #f #f #t #t #f #f))" -"((s_462 ns31_4)(expand40_0 s_462 ns31_4 #f #f #f #t #f #f #f)))))" +"((s_463 ns31_4)(expand40_0 s_463 ns31_4 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" "(lambda(s_414 ns_103 observer_3 to-parsed?_4 serializable?_9)" @@ -45040,16 +45055,16 @@ static const char *startup_source = " observer_3" " to-parsed?_4" " serializable?_9))))))" -"((exp-s126_0) exp-s_6)" -"((temp127_3)(namespace-phase ns_103)))" +"((exp-s126_1) exp-s_6)" +"((temp127_2)(namespace-phase ns_103)))" "(wrap-lifts-as-begin16.1" " temp125_0" " #t" " temp124_0" " #t" " temp123_1" -" exp-s126_0" -" temp127_3))))" +" exp-s126_1" +" temp127_2))))" "(begin(log-top-begin-after ctx_67 new-s_2) new-s_2))))))))))))" "(define-values" "(expand-once$1)" @@ -45057,10 +45072,10 @@ static const char *startup_source = "(lambda(s44_1 ns42_1 ns43_0)" "(begin" " 'expand-once45" -"(let-values(((s_463) s44_1))" +"(let-values(((s_464) s44_1))" "(let-values(((ns_104)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" -"(let-values(((s128_0) s_463)" +"(let-values(((s128_0) s_464)" "((ns129_0) ns_104)" "((temp130_0)" "(lambda(s_206 ns_105 as-tail?_6)(expand-single-once s_206 ns_105)))" @@ -45084,21 +45099,21 @@ static const char *startup_source = " s128_0" " ns129_0)))))))))" "(case-lambda" -"((s_464)(begin 'expand-once(expand-once45_0 s_464 #f #f)))" -"((s_465 ns42_2)(expand-once45_0 s_465 ns42_2 #t)))))" +"((s_465)(begin 'expand-once(expand-once45_0 s_465 #f #f)))" +"((s_466 ns42_2)(expand-once45_0 s_466 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_439 ns_106)" +"(lambda(s_440 ns_106)" "(begin" "(let-values(((require-lifts_4 lifts_10 exp-s_7)" "(expand-capturing-lifts" -" s_439" +" s_440" "(let-values(((v_197)" "(let-values(((ns135_1) ns_106))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" "(let-values(((the-struct_67) v_197))" "(if(expand-context/outer? the-struct_67)" -"(let-values(((inner136_1)" +"(let-values(((inner136_0)" "(let-values(((the-struct_68)(root-expand-context/outer-inner v_197)))" "(if(expand-context/inner? the-struct_68)" "(let-values(((just-once?137_0) #t))" @@ -45133,7 +45148,7 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_68)))))" "(expand-context/outer1.1" -" inner136_1" +" inner136_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)" @@ -45152,17 +45167,17 @@ static const char *startup_source = "(if(if(null? require-lifts_4)(null? lifts_10) #f)" "(let-values() exp-s_7)" "(let-values()" -"(let-values(((temp138_3)(append require-lifts_4 lifts_10))" +"(let-values(((temp138_2)(append require-lifts_4 lifts_10))" "((exp-s139_0) exp-s_7)" "((temp140_3)(namespace-phase ns_106)))" -"(wrap-lifts-as-begin16.1 #f #f #f #f temp138_3 exp-s139_0 temp140_3))))))))" +"(wrap-lifts-as-begin16.1 #f #f #f #f temp138_2 exp-s139_0 temp140_3))))))))" "(define-values" "(expand-to-top-form$1)" "(let-values(((expand-to-top-form50_0)" "(lambda(s49_0 ns47_2 ns48_2)" "(begin" " 'expand-to-top-form50" -"(let-values(((s_466) s49_0))" +"(let-values(((s_467) s49_0))" "(let-values(((ns_84)(if ns48_2 ns47_2(1/current-namespace))))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" @@ -45175,7 +45190,7 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s141_0) s_466)" +"(let-values(((s141_0) s_467)" "((ns142_0) ns_84)" "((temp143_0) #f)" "((temp144_1) #f)" @@ -45196,8 +45211,8 @@ static const char *startup_source = " s141_0" " ns142_0)))))))))))))" "(case-lambda" -"((s_467)(begin 'expand-to-top-form(expand-to-top-form50_0 s_467 #f #f)))" -"((s_468 ns47_3)(expand-to-top-form50_0 s_468 ns47_3 #t)))))" +"((s_468)(begin 'expand-to-top-form(expand-to-top-form50_0 s_468 #f #f)))" +"((s_469 ns47_3)(expand-to-top-form50_0 s_469 ns47_3 #t)))))" "(define-values" "(per-top-level68.1)" "(lambda(combine53_0" @@ -45239,7 +45254,7 @@ static const char *startup_source = "(let-values(((v_130) ctx_68))" "(let-values(((the-struct_41) v_130))" "(if(expand-context/outer? the-struct_41)" -"(let-values(((inner148_0)" +"(let-values(((inner148_1)" "(let-values(((the-struct_69)" "(root-expand-context/outer-inner" " v_130)))" @@ -45305,7 +45320,7 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_69)))))" "(expand-context/outer1.1" -" inner148_0" +" inner148_1" "(root-expand-context/outer-post-expansion-scope" " the-struct_41)" "(root-expand-context/outer-use-site-scopes" @@ -45366,7 +45381,7 @@ static const char *startup_source = " v_198)))" "(if(expand-context/inner?" " the-struct_71)" -"(let-values(((phase156_1)" +"(let-values(((phase156_0)" " phase_140)" "((namespace157_0)" " ns_108))" @@ -45387,7 +45402,7 @@ static const char *startup_source = " the-struct_71)" "(expand-context/inner-to-parsed?" " the-struct_71)" -" phase156_1" +" phase156_0" " namespace157_0" "(expand-context/inner-just-once?" " the-struct_71)" @@ -45533,25 +45548,25 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_28 begin161_0 e162_0)" -"(let-values(((s_469)" +"(let-values(((s_470)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_469))" +" s_470))" "(let-values(((begin161_1" " e162_1)" "(let-values(((s_222)" "(if(syntax?$1" -" s_469)" +" s_470)" "(syntax-e$1" -" s_469)" -" s_469)))" +" s_470)" +" s_470)))" "(if(pair?" " s_222)" "(let-values(((begin163_0)" -"(let-values(((s_470)" +"(let-values(((s_471)" "(car" " s_222)))" -" s_470))" +" s_471))" "((e164_0)" "(let-values(((s_224)" "(cdr" @@ -45686,35 +45701,35 @@ static const char *startup_source = "(let-values(((ok?_29" " begin-for-syntax165_0" " e166_0)" -"(let-values(((s_471)" +"(let-values(((s_472)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_471))" +" s_472))" "(let-values(((begin-for-syntax165_1" " e166_1)" -"(let-values(((s_472)" -"(if(syntax?$1" -" s_471)" -"(syntax-e$1" -" s_471)" -" s_471)))" -"(if(pair?" -" s_472)" -"(let-values(((begin-for-syntax167_0)" "(let-values(((s_473)" -"(car" +"(if(syntax?$1" +" s_472)" +"(syntax-e$1" +" s_472)" " s_472)))" -" s_473))" -"((e168_0)" +"(if(pair?" +" s_473)" +"(let-values(((begin-for-syntax167_0)" "(let-values(((s_474)" +"(car" +" s_473)))" +" s_474))" +"((e168_0)" +"(let-values(((s_475)" "(cdr" -" s_472)))" +" s_473)))" "(let-values(((s_228)" "(if(syntax?$1" -" s_474)" +" s_475)" "(syntax-e$1" -" s_474)" -" s_474)))" +" s_475)" +" s_475)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" " s_228)))" @@ -45772,7 +45787,7 @@ static const char *startup_source = "(values))))" "(let-values(((l_74)" "(reverse$1" -"(let-values(((lst_305)" +"(let-values(((lst_306)" " e166_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -45780,20 +45795,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_305)))" +" lst_306)))" "((letrec-values(((for-loop_275)" "(lambda(fold-var_277" -" lst_306)" +" lst_307)" "(begin" " 'for-loop" "(if(pair?" -" lst_306)" -"(let-values(((s_475)" +" lst_307)" +"(let-values(((s_476)" "(unsafe-car" -" lst_306))" +" lst_307))" "((rest_170)" "(unsafe-cdr" -" lst_306)))" +" lst_307)))" "(let-values(((fold-var_278)" "(let-values(((fold-var_279)" " fold-var_277))" @@ -45813,7 +45828,7 @@ static const char *startup_source = " 'next)))" "(void)))" "(loop_100" -" s_475" +" s_476" " next-phase_0" " next-ns_0" " #f)))" @@ -45829,7 +45844,7 @@ static const char *startup_source = " fold-var_277)))))" " for-loop_275)" " null" -" lst_305))))))" +" lst_306))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_5)" @@ -45869,8 +45884,8 @@ static const char *startup_source = " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_476 ns_109)" -"(begin(if(syntax?$1 s_476) s_476(1/namespace-syntax-introduce(1/datum->syntax #f s_476) ns_109)))))" +"(lambda(s_477 ns_109)" +"(begin(if(syntax?$1 s_477) s_477(1/namespace-syntax-introduce(1/datum->syntax #f s_477) ns_109)))))" "(define-values" "(re-pair)" "(lambda(form-id_0 s_241 r_43)" @@ -45895,7 +45910,7 @@ static const char *startup_source = "(let-values(((v_199) ctx_69))" "(let-values(((the-struct_72) v_199))" "(if(expand-context/outer? the-struct_72)" -"(let-values(((inner172_1)" +"(let-values(((inner172_0)" "(let-values(((the-struct_73)" "(root-expand-context/outer-inner v_199)))" "(if(expand-context/inner? the-struct_73)" @@ -45948,7 +45963,7 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_73)))))" "(expand-context/outer1.1" -" inner172_1" +" inner172_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)" @@ -45976,12 +45991,12 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_111)" "(begin" -"(lambda(s_477 phase_141)" +"(lambda(s_478 phase_141)" "(let-values(((ok?_30 #%require176_0 req177_0)" -"(let-values(((s_478)(syntax-disarm$1 s_477)))" -"(let-values(((orig-s_35) s_478))" +"(let-values(((s_479)(syntax-disarm$1 s_478)))" +"(let-values(((orig-s_35) s_479))" "(let-values(((#%require176_1 req177_1)" -"(let-values(((s_353)(if(syntax?$1 s_478)(syntax-e$1 s_478) s_478)))" +"(let-values(((s_353)(if(syntax?$1 s_479)(syntax-e$1 s_479) s_479)))" "(if(pair? s_353)" "(let-values(((#%require178_0)(let-values(((s_356)(car s_353))) s_356))" "((req179_0)" @@ -45992,8 +46007,8 @@ static const char *startup_source = " s_357)))" "(if(pair? s_248)" "(let-values(((req180_0)" -"(let-values(((s_479)(car s_248)))" -" s_479))" +"(let-values(((s_480)(car s_248)))" +" s_480))" "(()" "(let-values(((s_359)(cdr s_248)))" "(let-values(((s_360)" @@ -46011,11 +46026,11 @@ static const char *startup_source = "(values #%require178_0 req179_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" "(values #t #%require176_1 req177_1))))))" -"(let-values(((temp181_0)(list req177_0))" -"((s182_0) s_477)" +"(let-values(((temp181_1)(list req177_0))" +"((s182_0) s_478)" "((ns183_0) ns_111)" "((phase184_1) phase_141)" -"((phase185_1) phase_141)" +"((phase185_0) phase_141)" "((temp186_0)(let-values(((temp188_0) #f))(make-requires+provides8.1 #f #f temp188_0)))" "((temp187_0) 'require))" "(parse-and-perform-requires!30.1" @@ -46027,7 +46042,7 @@ static const char *startup_source = " #f" " #f" " #f" -" phase185_1" +" phase185_0" " #t" " #f" " #f" @@ -46038,7 +46053,7 @@ static const char *startup_source = " #f" " #f" " temp187_0" -" temp181_0" +" temp181_1" " s182_0" " ns183_0" " phase184_1" @@ -46057,18 +46072,18 @@ static const char *startup_source = "(lifted-parsed-begin30.1" "(append" "(reverse$1" -"(let-values(((lst_307) require-lifts_6))" +"(let-values(((lst_308) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_307)))" +"(let-values()(check-list lst_308)))" "((letrec-values(((for-loop_276)" -"(lambda(fold-var_281 lst_308)" +"(lambda(fold-var_281 lst_309)" "(begin" " 'for-loop" -"(if(pair? lst_308)" -"(let-values(((req_19)(unsafe-car lst_308))" -"((rest_171)(unsafe-cdr lst_308)))" +"(if(pair? lst_309)" +"(let-values(((req_19)(unsafe-car lst_309))" +"((rest_171)(unsafe-cdr lst_309)))" "(let-values(((fold-var_282)" "(let-values(((fold-var_283) fold-var_281))" "(let-values(((fold-var_284)" @@ -46082,20 +46097,20 @@ static const char *startup_source = " fold-var_281)))))" " for-loop_276)" " null" -" lst_307))))" +" lst_308))))" "(reverse$1" -"(let-values(((lst_309)(get-lifts-as-lists lifts_12)))" +"(let-values(((lst_310)(get-lifts-as-lists lifts_12)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_309)))" +"(let-values()(check-list lst_310)))" "((letrec-values(((for-loop_277)" -"(lambda(fold-var_285 lst_310)" +"(lambda(fold-var_285 lst_311)" "(begin" " 'for-loop" -"(if(pair? lst_310)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_310))" -"((rest_172)(unsafe-cdr lst_310)))" +"(if(pair? lst_311)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_311))" +"((rest_172)(unsafe-cdr lst_311)))" "(let-values(((fold-var_286)" "(let-values(((fold-var_287) fold-var_285))" "(let-values(((fold-var_288)" @@ -46143,7 +46158,7 @@ static const char *startup_source = " fold-var_285)))))" " for-loop_277)" " null" -" lst_309)))))" +" lst_310)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" @@ -46167,10 +46182,10 @@ static const char *startup_source = "(if obs_57" "(let-values()" "(let-values(((ok?_31 begin193_0 e194_0)" -"(let-values(((s_480) new-s_7))" -"(let-values(((orig-s_36) s_480))" +"(let-values(((s_481) new-s_7))" +"(let-values(((orig-s_36) s_481))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_389)(if(syntax?$1 s_480)(syntax-e$1 s_480) s_480)))" +"(let-values(((s_389)(if(syntax?$1 s_481)(syntax-e$1 s_481) s_481)))" "(if(pair? s_389)" "(let-values(((begin195_0)(let-values(((s_141)(car s_389))) s_141))" "((e196_0)" @@ -46205,19 +46220,19 @@ static const char *startup_source = "(if obs_58" "(let-values()" "(let-values(((ok?_32 begin197_0 e198_0)" -"(let-values(((s_481) new-s_8))" -"(let-values(((orig-s_37) s_481))" +"(let-values(((s_482) new-s_8))" +"(let-values(((orig-s_37) s_482))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_482)(if(syntax?$1 s_481)(syntax-e$1 s_481) s_481)))" -"(if(pair? s_482)" -"(let-values(((begin199_0)(let-values(((s_406)(car s_482))) s_406))" +"(let-values(((s_483)(if(syntax?$1 s_482)(syntax-e$1 s_482) s_482)))" +"(if(pair? s_483)" +"(let-values(((begin199_0)(let-values(((s_406)(car s_483))) s_406))" "((e200_0)" -"(let-values(((s_407)(cdr s_482)))" -"(let-values(((s_483)" +"(let-values(((s_407)(cdr s_483)))" +"(let-values(((s_484)" "(if(syntax?$1 s_407)" "(syntax-e$1 s_407)" " s_407)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_483)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_484)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -46244,7 +46259,7 @@ static const char *startup_source = "(lambda(who3_0 mod-path4_0 sym5_0 fail-k1_0 fail-k2_0)" "(begin" " 'do-dynamic-require6" -"(let-values(((who_22) who3_0))" +"(let-values(((who_25) who3_0))" "(let-values(((mod-path_5) mod-path4_0))" "(let-values(((sym_85) sym5_0))" "(let-values(((fail-k_2)(if fail-k2_0 fail-k1_0 default-dynamic-require-fail-thunk)))" @@ -46259,7 +46274,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-argument-error" -" who_22" +" who_25" " \"(or/c module-path? module-path-index? resolved-module-path?)\"" " mod-path_5)))" "(values))))" @@ -46275,7 +46290,7 @@ static const char *startup_source = "(if or-part_290 or-part_290(void? sym_85)))))))" "(void)" "(let-values()" -" (raise-argument-error who_22 \"(or/c symbol? #f 0 void?)\" sym_85)))" +" (raise-argument-error who_25 \"(or/c symbol? #f 0 void?)\" sym_85)))" "(values))))" "(let-values((()" "(begin" @@ -46283,7 +46298,7 @@ static const char *startup_source = "(procedure-arity-includes? fail-k_2 0)" " #f)" "(void)" -" (let-values () (raise-argument-error who_22 \"(-> any)\" fail-k_2)))" +" (let-values () (raise-argument-error who_25 \"(-> any)\" fail-k_2)))" "(values))))" "(let-values(((ns_58)(1/current-namespace)))" "(let-values(((mpi_49)" @@ -46558,8 +46573,8 @@ static const char *startup_source = " sym_85" " tmp-ns_0))))))))))))))))))))))))))))))))))))))))))))))))" "(case-lambda" -"((who_23 mod-path_17 sym_86)(begin(do-dynamic-require6_0 who_23 mod-path_17 sym_86 #f #f)))" -"((who_24 mod-path_18 sym_87 fail-k1_1)(do-dynamic-require6_0 who_24 mod-path_18 sym_87 fail-k1_1 #t)))))" +"((who_26 mod-path_17 sym_86)(begin(do-dynamic-require6_0 who_26 mod-path_17 sym_86 #f #f)))" +"((who_27 mod-path_18 sym_87 fail-k1_1)(do-dynamic-require6_0 who_27 mod-path_18 sym_87 fail-k1_1 #t)))))" " (define-values (default-dynamic-require-fail-thunk) (lambda () (begin (error \"failed\"))))" "(define-values" "(1/dynamic-require)" @@ -46984,22 +46999,22 @@ static const char *startup_source = "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))" "(define-values" "(check-collection)" -"(lambda(who_25 s_187 l_4)" +"(lambda(who_28 s_187 l_4)" "(begin" "(begin" "(if(relative-path-string? s_187)" "(void)" -" (let-values () (raise-argument-error who_25 \"(and/c path-string? relative-path?)\" s_187)))" +" (let-values () (raise-argument-error who_28 \"(and/c path-string? relative-path?)\" s_187)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" -" (let-values () (raise-argument-error who_25 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" +" (let-values () (raise-argument-error who_28 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" "(define-values" "(check-fail)" -"(lambda(who_26 fail_2)" +"(lambda(who_29 fail_2)" "(begin" "(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 1) #f)) fail_2)" "(void)" -" (let-values () (raise-argument-error who_26 \"(procedure-arity-includes/c 1)\" fail_2))))))" +" (let-values () (raise-argument-error who_29 \"(procedure-arity-includes/c 1)\" fail_2))))))" "(define-values" "(1/collection-path)" "(lambda(fail_3 collection_0 collection-path_0)" @@ -47299,11 +47314,11 @@ static const char *startup_source = "(lambda(k_38 v_204)" "(hash-set! ht_154 k_38(cons dir_1 v_204))))))" "(let-values()" -"(let-values(((s_484)(string->symbol(car p_68))))" +"(let-values(((s_485)(string->symbol(car p_68))))" "(hash-set!" " ht_154" -" s_484" -"(cons(box dir_1)(hash-ref ht_154 s_484 null)))))))))" +" s_485" +"(cons(box dir_1)(hash-ref ht_154 s_485 null)))))))))" "(void)))" " v_203)" "(hash-for-each" @@ -48575,11 +48590,11 @@ static const char *startup_source = "(let-values(((continuation-marks_0)" "(if continuation-marks5_0 continuation-marks1_0(current-continuation-marks))))" "(let-values(((due-to_0)(if due-to6_0 due-to2_0 '#\\x)))" -"(let-values(((who_27)(if who7_0 who3_1(if(read-config-for-syntax? config_16) 'read-syntax 'read))))" +"(let-values(((who_30)(if who7_0 who3_1(if(read-config-for-syntax? config_16) 'read-syntax 'read))))" "(let-values(((end-pos_2)(if end-pos8_0 end-pos4_0 #f)))" "(let-values(((str_25) str11_0))" "(let-values(((args_9) new-rest_0))" -" (let-values (((msg_0) (format \"~a: ~a\" who_27 (apply format str_25 args_9))))" +" (let-values (((msg_0) (format \"~a: ~a\" who_30 (apply format str_25 args_9))))" "(let-values(((srcloc_10)" "(if in_6" "(let-values(((in23_1) in_6)((config24_0) config_16)((end-pos25_0) end-pos_2))" @@ -48627,8 +48642,8 @@ static const char *startup_source = "((config34_0) config_18)" " ((temp35_1) \"~a\")" "((temp36_4)" -"(let-values(((s_485)(exn-message exn_2)))" -" (regexp-replace \"^[a-z-]*: \" s_485 \"\")))" +"(let-values(((s_486)(exn-message exn_2)))" +" (regexp-replace \"^[a-z-]*: \" s_486 \"\")))" "((temp37_2)(exn-continuation-marks exn_2)))" "(reader-error12.1" " temp37_2" @@ -49792,10 +49807,10 @@ static const char *startup_source = " convert-mode75_0))))))))))))))" "(case-lambda" "((s_309)(begin 'string->number(string->number8_0 s_309 #f #f #f #f #f #f)))" -"((s_457 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_457 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" -"((s_486 radix_2 convert-mode2_1)(string->number8_0 s_486 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_487 radix1_1)(string->number8_0 s_487 radix1_1 #f #f #t #f #f)))))" +"((s_458 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_458 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_487 radix_2 convert-mode2_1)(string->number8_0 s_487 radix_2 convert-mode2_1 #f #t #t #f))" +"((s_488 radix1_1)(string->number8_0 s_488 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -49983,7 +49998,7 @@ static const char *startup_source = "((radix86_0) radix_4)" "((temp87_2) #t)" "((exactness88_0) exactness_0)" -"((temp89_2)" +"((temp89_1)" "(if(eq? convert-mode_2 'read)" " 'must-read" " convert-mode_2)))" @@ -49996,7 +50011,7 @@ static const char *startup_source = " end85_0" " radix86_0" " exactness88_0" -" temp89_2)))))))))))))))" +" temp89_1)))))))))))))))" "(let-values(((c1_30)" "(if(char-sign? c_80)" "(read-special-number s_21 start_44 end_34 convert-mode_2)" @@ -50030,13 +50045,13 @@ static const char *startup_source = "((lambda(v_37)" "(let-values(((s90_1) s_21)" "((temp91_1)(+ start_44 6))" -"((temp92_2)(sub1 end_34))" +"((temp92_3)(sub1 end_34))" "((radix93_0) radix_3)" "((exactness94_0) exactness_0)" "((convert-mode95_0) convert-mode_2)" "((temp96_2) 'i)" "((v97_0) v_37)" -"((temp98_3)" +"((temp98_2)" "(lambda(v_236 v2_0)" "(begin 'temp98(make-rectangular v_236 v2_0)))))" "(read-for-special-compound65.1" @@ -50045,12 +50060,12 @@ static const char *startup_source = " #f" " s90_1" " temp91_1" -" temp92_2" +" temp92_3" " radix93_0" " exactness94_0" " convert-mode95_0" " v97_0" -" temp98_3)))" +" temp98_2)))" " c2_3)" "(let-values(((c3_2)" "(if(not in-complex_0)" @@ -50073,23 +50088,23 @@ static const char *startup_source = "(let-values()" "(let-values(((s99_0) s_21)" "((start100_0) start_44)" -"((temp101_2)(- end_34 7))" +"((temp101_3)(- end_34 7))" "((radix102_0) radix_3)" "((exactness103_0) exactness_0)" "((convert-mode104_0) convert-mode_2)" "((temp105_2) 'i)" -"((temp106_1) #t)" +"((temp106_2) #t)" "((v2107_0) v2_1)" "((temp108_1)" "(lambda(v2_2 v_218)" "(begin 'temp108(make-rectangular v_218 v2_2)))))" "(read-for-special-compound65.1" " temp105_2" -" temp106_1" +" temp106_2" " #t" " s99_0" " start100_0" -" temp101_2" +" temp101_3" " radix102_0" " exactness103_0" " convert-mode104_0" @@ -50113,22 +50128,22 @@ static const char *startup_source = "(if c4_0" "((lambda(v_192)" "(let-values(((s109_0) s_21)" -"((temp110_2)(+ start_44 7))" +"((temp110_3)(+ start_44 7))" "((end111_0) end_34)" "((radix112_0) radix_3)" "((exactness113_0) exactness_0)" "((convert-mode114_0) convert-mode_2)" -"((temp115_0) '@)" +"((temp115_1) '@)" "((v116_0) v_192)" "((temp117_1)" "(lambda(v_237 v2_3)" "(begin 'temp117(make-polar v_237 v2_3)))))" "(read-for-special-compound65.1" -" temp115_0" +" temp115_1" " #f" " #f" " s109_0" -" temp110_2" +" temp110_3" " end111_0" " radix112_0" " exactness113_0" @@ -50159,7 +50174,7 @@ static const char *startup_source = "((temp124_1) '@)" "((temp125_1) #t)" "((v2126_0) v2_4)" -"((temp127_4)" +"((temp127_3)" "(lambda(v2_5 v_238)" "(begin 'temp127(make-polar v_238 v2_5)))))" "(read-for-special-compound65.1" @@ -50173,7 +50188,7 @@ static const char *startup_source = " exactness122_0" " convert-mode123_0" " v2126_0" -" temp127_4)))" +" temp127_3)))" " c5_1)" "(let-values()" "(let-values(((s128_1) s_21)" @@ -51097,48 +51112,48 @@ static const char *startup_source = " end_37))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_488 start_48 end_38 radix_9 convert-mode_7)" +"(lambda(s_489 start_48 end_38 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_488 start_48 end_38)" +"(if(hashes? s_489 start_48 end_38)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_488 start_48 end_38)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_489 start_48 end_38)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_34)(string->number$1(maybe-substring s_488 start_48 end_38) radix_9)))" +"(let-values(((n_34)(string->number$1(maybe-substring s_489 start_48 end_38) radix_9)))" "(if(not n_34)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_488 start_48 end_38)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_489 start_48 end_38)))" "(let-values() #f)))" "(let-values() n_34))))))))" "(define-values" "(read-special-number)" -"(lambda(s_489 start_49 end_39 convert-mode_8)" +"(lambda(s_490 start_49 end_39 convert-mode_8)" "(begin" "(if(=(- end_39 start_49) 6)" -"(if(let-values(((or-part_341)(char=?(string-ref s_489 start_49) '#\\+)))" -"(if or-part_341 or-part_341(char=?(string-ref s_489 start_49) '#\\-)))" +"(if(let-values(((or-part_341)(char=?(string-ref s_490 start_49) '#\\+)))" +"(if or-part_341 or-part_341(char=?(string-ref s_490 start_49) '#\\-)))" "(let-values(((or-part_342)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 4))) '#\\.)" +"(if(char=?(char-downcase(string-ref s_490(+ start_49 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_490(+ start_49 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_490(+ start_49 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_490(+ start_49 4))) '#\\.)" "(let-values(((or-part_343)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 5))) '#\\0)" -"(if(char=?(string-ref s_489 start_49) '#\\+) +inf.0 -inf.0)" +"(if(char=?(char-downcase(string-ref s_490(+ start_49 5))) '#\\0)" +"(if(char=?(string-ref s_490 start_49) '#\\+) +inf.0 -inf.0)" " #f)))" "(if or-part_343" " or-part_343" "(let-values(((or-part_344)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 5))) '#\\f)" -"(if(char=?(string-ref s_489 start_49) '#\\+) +inf.f -inf.f)" +"(if(char=?(char-downcase(string-ref s_490(+ start_49 5))) '#\\f)" +"(if(char=?(string-ref s_490 start_49) '#\\+) +inf.f -inf.f)" " #f)))" "(if or-part_344" " or-part_344" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_490(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_489 start_49) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_490 start_49) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" @@ -51147,19 +51162,19 @@ static const char *startup_source = " #f)))" "(if or-part_342" " or-part_342" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 4))) '#\\.)" +"(if(char=?(char-downcase(string-ref s_490(+ start_49 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_490(+ start_49 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_490(+ start_49 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_490(+ start_49 4))) '#\\.)" "(let-values(((or-part_345)" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 5))) '#\\0) +nan.0 #f)))" +"(if(char=?(char-downcase(string-ref s_490(+ 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_489(+ start_49 5))) '#\\f) +nan.f #f)))" +"(if(char=?(char-downcase(string-ref s_490(+ start_49 5))) '#\\f) +nan.f #f)))" "(if or-part_346" " or-part_346" -"(if(char=?(char-downcase(string-ref s_489(+ start_49 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_490(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -51240,7 +51255,7 @@ static const char *startup_source = "(let-values()(combine_1 v_240 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_490 start_51 end_41)" +"(lambda(s_491 start_51 end_41)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" @@ -51248,7 +51263,7 @@ static const char *startup_source = " \"string\"" "(lambda(x_83)(string? x_83))" "(lambda(x_84)(unsafe-string-length x_84))" -" s_490" +" s_491" " start_51" " end_41" " 1)))" @@ -51349,10 +51364,10 @@ static const char *startup_source = " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_491 start_55 end_44)" +"(lambda(convert-mode_11 s_492 start_55 end_44)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_491 start_55 end_44)))" +" (let-values () (format \"bad number `~.a`\" (substring s_492 start_55 end_44)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -52160,12 +52175,12 @@ static const char *startup_source = "(if(equal? tmp_44 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_311) seq_2)((start_44) 0))" +"(let-values(((lst_312) seq_2)((start_44) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_311)))" +"(let-values()(check-list lst_312)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -52209,7 +52224,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_111)" -" lst_311" +" lst_312" " start_44)))" "(void)))" "(let-values()(void))))))" @@ -54286,7 +54301,7 @@ static const char *startup_source = "((open-end-pos104_0) open-end-pos_5)" "((temp105_3)" " \"found end-of-file before terminating `~a`\")" -"((temp106_2)" +"((temp106_3)" "(list->string(cdr full-terminator_0))))" "(reader-error12.1" " #f" @@ -54300,13 +54315,13 @@ static const char *startup_source = " in101_0" " config102_0" " temp105_3" -"(list temp106_2))))))" +"(list temp106_3))))))" "(if(not(char? c_98))" "(let-values()" "(let-values(((in107_0) in_45)" "((config108_0) config_49)" "((c109_0) c_98)" -"((temp110_3)" +"((temp110_4)" " \"found non-character while reading `#<<`\"))" "(reader-error12.1" " #f" @@ -54319,7 +54334,7 @@ static const char *startup_source = " #f" " in107_0" " config108_0" -" temp110_3" +" temp110_4" "(list))))" "(if(if(pair? terminator_0)" "(char=? c_98(car terminator_0))" @@ -54344,16 +54359,16 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_229)))" "((letrec-values(((for-loop_282)" -"(lambda(lst_312)" +"(lambda(lst_313)" "(begin" " 'for-loop" -"(if(pair? lst_312)" +"(if(pair? lst_313)" "(let-values(((c_12)" "(unsafe-car" -" lst_312))" +" lst_313))" "((rest_174)" "(unsafe-cdr" -" lst_312)))" +" lst_313)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -55083,7 +55098,7 @@ static const char *startup_source = "(let-values(((config_53) config28_2))" "(let-values(((init-c_14)(if init-c22_0 init-c19_0 #f)))" "(let-values(((get-info?_2)(if get-info?23_0 get-info?20_0 #f)))" -"(let-values(((who_28) who21_0))" +"(let-values(((who_31) who21_0))" "(let-values()" "(let-values((()" "(begin" @@ -55148,7 +55163,7 @@ static const char *startup_source = "(let-values(((in92_0) in_57)" "((config93_0) config_53)" "((c94_0) c_9)" -"((temp95_1)" +"((temp95_0)" " \"found non-character while reading `#~a`\")" "((extend-str96_0)" " extend-str_2))" @@ -55163,7 +55178,7 @@ static const char *startup_source = " #f" " in92_0" " config93_0" -" temp95_1" +" temp95_0" "(list extend-str96_0)))))" "(if(char-whitespace? c_9)" "(let-values()(void))" @@ -55215,7 +55230,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in104_0) in_57)" "((config105_0) config_53)" -"((temp106_3)" +"((temp106_4)" " \"expected a non-empty sequence of alphanumeric, `-`, `+`, `_`, or `/` after `~a`\")" "((extend-str107_0) extend-str_2))" "(reader-error12.1" @@ -55229,7 +55244,7 @@ static const char *startup_source = " #f" " in104_0" " config105_0" -" temp106_3" +" temp106_4" "(list extend-str107_0))))" "(void))" "(values))))" @@ -55239,7 +55254,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in108_0) in_57)" "((config109_0) config_53)" -"((temp110_4)" +"((temp110_5)" " \"expected a name that does not start `/` after `~a`\")" "((extend-str111_0) extend-str_2))" "(reader-error12.1" @@ -55253,7 +55268,7 @@ static const char *startup_source = " #f" " in108_0" " config109_0" -" temp110_4" +" temp110_5" "(list extend-str111_0))))" "(void))" "(values))))" @@ -55265,7 +55280,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in112_0) in_57)" "((config113_0) config_53)" -"((temp114_3)" +"((temp114_2)" " \"expected a name that does not end `/` after `~a`\")" "((extend-str115_0) extend-str_2))" "(reader-error12.1" @@ -55279,7 +55294,7 @@ static const char *startup_source = " #f" " in112_0" " config113_0" -" temp114_3" +" temp114_2" "(list extend-str115_0))))" "(void))" "(values))))" @@ -55293,7 +55308,7 @@ static const char *startup_source = "((in84_0) in_57)" "((temp85_1)(reading-at config_53 line_10 col_9 pos_121))" "((get-info?86_0) get-info?_2)" -"((who87_0) who_28))" +"((who87_0) who_31))" "(read-extension44.1" " get-info?86_0" " #t" @@ -55330,15 +55345,15 @@ static const char *startup_source = "(begin" "(let-values(((accum-str_11)(accum-string-init! config_54)))" "(begin" -"(let-values(((lst_313) already_0))" +"(let-values(((lst_314) already_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_313)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_314)))" "((letrec-values(((for-loop_283)" -"(lambda(lst_314)" +"(lambda(lst_315)" "(begin" " 'for-loop" -"(if(pair? lst_314)" -"(let-values(((c_105)(unsafe-car lst_314))((rest_175)(unsafe-cdr lst_314)))" +"(if(pair? lst_315)" +"(let-values(((c_105)(unsafe-car lst_315))((rest_175)(unsafe-cdr lst_315)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -55351,7 +55366,7 @@ static const char *startup_source = "(if(not #f)(for-loop_283 rest_175)(values))))" "(values))))))" " for-loop_283)" -" lst_313)))" +" lst_314)))" "(void)" "((letrec-values(((loop_117)" "(lambda(wanted_1)" @@ -55412,7 +55427,7 @@ static const char *startup_source = "(let-values(((in124_0) in_60)((config125_0) config_55))" "(port+config->srcloc49.1 #f #f in124_0 config125_0))))))" "(let-values(((get-info?_3)(if get-info?38_0 get-info?34_0 #f)))" -"(let-values(((who_29)(if who39_0 who35_0 '|#reader|)))" +"(let-values(((who_32)(if who39_0 who35_0 '|#reader|)))" "(let-values()" "(let-values((()(begin(force-parameters! config_55)(values))))" "(let-values(((guard_0)(1/current-reader-guard)))" @@ -55475,7 +55490,7 @@ static const char *startup_source = " in_60))))" "(let-values()" "(raise-argument-error" -" who_29" +" who_32" " \"(or/c (procedure-arity-includes?/c 2) (procedure-arity-includes?/c 6))\"" " extension_0)))))" "(let-values()" @@ -55497,7 +55512,7 @@ static const char *startup_source = "(if get-info?_3" "(let-values()" "(raise-argument-error" -" who_29" +" who_32" " \"(procedure-arity-includes?/c 5)\"" " extension_0))" "(if(procedure-arity-includes? extension_0 1)" @@ -55513,7 +55528,7 @@ static const char *startup_source = "(let-values()(extension_0 in_60))))" "(let-values()" "(raise-argument-error" -" who_29" +" who_32" " \"(or/c (procedure-arity-includes?/c 1) (procedure-arity-includes?/c 5))\"" " extension_0)))))))))" "(if get-info?_3" @@ -56018,7 +56033,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in87_0) in_60)" "((r-config88_0) r-config_0)" -" ((temp89_3) \"illegal use of `~a`\")" +" ((temp89_2) \"illegal use of `~a`\")" "((c90_0) c_108))" "(reader-error12.1" " #f" @@ -56031,7 +56046,7 @@ static const char *startup_source = " #f" " in87_0" " r-config88_0" -" temp89_3" +" temp89_2" "(list c90_0))))))" "(let-values()" "(wrap" @@ -56041,7 +56056,7 @@ static const char *startup_source = "((temp94_2) '#\\))" "((in95_0) in_60)" "((r-config96_0) r-config_0)" -"((temp97_2) #t))" +"((temp97_3) #t))" "(read-unwrapped-sequence17.1" " #f" " #f" @@ -56049,7 +56064,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp97_2" +" temp97_3" " #t" " #f" " #f" @@ -56068,7 +56083,7 @@ static const char *startup_source = "(let-values(((in98_0) in_60)" "((r-config99_0) r-config_0)" " ((temp100_4) \"~a\")" -"((temp101_3)" +"((temp101_4)" "(indentation-unexpected-closer-message ec_10 c_108 r-config_0)))" "(reader-error12.1" " #f" @@ -56082,7 +56097,7 @@ static const char *startup_source = " in98_0" " r-config99_0" " temp100_4" -"(list temp101_3))))" +"(list temp101_4))))" "(if(unsafe-fx< index_4 8)" "(let-values()" "(if(let-values(((or-part_270)" @@ -56094,7 +56109,7 @@ static const char *startup_source = "(wrap" "(let-values(((read-one102_0) read-one)" "((ec103_0) ec_10)" -"((temp104_5) '#\\[)" +"((temp104_4) '#\\[)" "((temp105_4) '#\\])" "((in106_0) in_60)" "((r-config107_0) r-config_0)" @@ -56112,7 +56127,7 @@ static const char *startup_source = " #f" " read-one102_0" " ec103_0" -" temp104_5" +" temp104_4" " temp105_4" " in106_0" " r-config107_0))" @@ -56146,7 +56161,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in113_1) in_60)" "((r-config114_0) r-config_0)" -" ((temp115_1) \"~a\")" +" ((temp115_2) \"~a\")" "((temp116_1)" "(indentation-unexpected-closer-message" " ec_10" @@ -56163,7 +56178,7 @@ static const char *startup_source = " #f" " in113_1" " r-config114_0" -" temp115_1" +" temp115_2" "(list temp116_1))))" "(let-values()" "(let-values(((in117_0) in_60)" @@ -56198,7 +56213,7 @@ static const char *startup_source = "((temp124_2) '#\\})" "((in125_0) in_60)" "((r-config126_0) r-config_0)" -"((temp127_5) #t))" +"((temp127_4) #t))" "(read-unwrapped-sequence17.1" " #f" " #f" @@ -56206,7 +56221,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp127_5" +" temp127_4" " #t" " #f" " #f" @@ -56269,7 +56284,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in136_0) in_60)" "((r-config137_0) r-config_0)" -" ((temp138_4) \"illegal use of `~a`\")" +" ((temp138_3) \"illegal use of `~a`\")" "((c139_0) c_108))" "(reader-error12.1" " #f" @@ -56282,7 +56297,7 @@ static const char *startup_source = " #f" " in136_0" " r-config137_0" -" temp138_4" +" temp138_3" "(list c139_0))))))" "(if(unsafe-fx< index_4 12)" "(let-values()" @@ -56292,11 +56307,11 @@ static const char *startup_source = "(let-values(((c142_0) c_108)" "((in143_0) in_60)" "((r-config144_0) r-config_0)" -"((temp145_2) 'symbol))" +"((temp145_1) 'symbol))" "(read-symbol-or-number8.1" " #f" " #f" -" temp145_2" +" temp145_1" " #t" " c142_0" " in143_0" @@ -56513,9 +56528,9 @@ static const char *startup_source = "(if(check-parameter 1/read-curly-brace-as-paren config_61)" "(let-values()" "(let-values(((read-one176_0) read-one)" -"((temp177_1) '#\\{)" -"((temp178_0) '#\\{)" -"((temp179_1) '#\\})" +"((temp177_0) '#\\{)" +"((temp178_1) '#\\{)" +"((temp179_0) '#\\})" "((in180_0) in_65)" "((config181_0) config_61))" "(read-vector11.1" @@ -56524,9 +56539,9 @@ static const char *startup_source = " #f" " #f" " read-one176_0" -" temp177_1" -" temp178_0" -" temp179_1" +" temp177_0" +" temp178_1" +" temp179_0" " in180_0" " config181_0)))" "(let-values()" @@ -56998,7 +57013,7 @@ static const char *startup_source = "(begin" " 'module->11" "(let-values(((extract_1) extract8_0))" -"(let-values(((who_30) who9_0))" +"(let-values(((who_33) who9_0))" "(let-values(((mod_8) mod10_0))" "(let-values(((load?_4)(if load?7_0 load?6_0 #f)))" "(let-values()" @@ -57007,18 +57022,18 @@ static const char *startup_source = "(if(module-reference? mod_8)" "(void)" "(let-values()" -"(raise-argument-error who_30 module-reference-str mod_8)))" +"(raise-argument-error who_33 module-reference-str mod_8)))" "(values))))" "(let-values(((m_25)" "(namespace->module/complain" -" who_30" +" who_33" "(1/current-namespace)" "(let-values(((mod41_0) mod_8)((load?42_0) load?_4))" "(reference->resolved-module-path32.1 load?42_0 mod41_0)))))" "(extract_1 m_25))))))))))))" "(case-lambda" -"((extract_2 who_31 mod_9)(begin(module->11_0 extract_2 who_31 mod_9 #f #f)))" -"((extract_3 who_32 mod_10 load?6_1)(module->11_0 extract_3 who_32 mod_10 load?6_1 #t)))))" +"((extract_2 who_34 mod_9)(begin(module->11_0 extract_2 who_34 mod_9 #f #f)))" +"((extract_3 who_35 mod_10 load?6_1)(module->11_0 extract_3 who_35 mod_10 load?6_1 #t)))))" "(define-values" "(1/module->language-info)" "(let-values(((module->language-info16_0)" @@ -57231,12 +57246,12 @@ static const char *startup_source = "((insp_19 mod_23 ns23_1)(namespace-unprotect-module27_0 insp_19 mod_23 ns23_1 #t)))))" "(define-values" "(namespace->module/complain)" -"(lambda(who_33 ns_116 name_71)" +"(lambda(who_36 ns_116 name_71)" "(begin" "(let-values(((or-part_209)(namespace->module ns_116 name_71)))" "(if or-part_209" " or-part_209" -" (raise-arguments-error who_33 \"unknown module in the current namespace\" \"name\" name_71))))))" +" (raise-arguments-error who_36 \"unknown module in the current namespace\" \"name\" name_71))))))" "(define-values" "(module-reference?)" "(lambda(mod_24)" @@ -58073,13 +58088,13 @@ static const char *startup_source = "(lambda(s19_1 context20_0 stop-ids21_0 intdefs17_0 intdefs18_0)" "(begin" " 'local-transformer-expand22" -"(let-values(((s_492) s19_1))" +"(let-values(((s_493) s19_1))" "(let-values(((context_16) context20_0))" "(let-values(((stop-ids_9) stop-ids21_0))" "(let-values(((intdefs_6)(if intdefs18_0 intdefs17_0 #f)))" "(let-values()" "(let-values(((temp71_4) 'local-expand)" -"((s72_0) s_492)" +"((s72_0) s_493)" "((context73_0) context_16)" "((stop-ids74_0) stop-ids_9)" "((intdefs75_0) intdefs_6)" @@ -58104,24 +58119,24 @@ static const char *startup_source = " intdefs75_0" " #t)))))))))))" "(case-lambda" -"((s_487 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_487 context_17 stop-ids_10 #f #f)))" -"((s_493 context_18 stop-ids_11 intdefs17_1)" -"(local-transformer-expand22_0 s_493 context_18 stop-ids_11 intdefs17_1 #t)))))" +"((s_488 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_488 context_17 stop-ids_10 #f #f)))" +"((s_494 context_18 stop-ids_11 intdefs17_1)" +"(local-transformer-expand22_0 s_494 context_18 stop-ids_11 intdefs17_1 #t)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts31_0)" "(lambda(s28_1 context29_0 stop-ids30_0 intdefs24_0 lift-key25_0 intdefs26_1 lift-key27_0)" "(begin" " 'local-transformer-expand/capture-lifts31" -"(let-values(((s_484) s28_1))" +"(let-values(((s_485) s28_1))" "(let-values(((context_19) context29_0))" "(let-values(((stop-ids_12) stop-ids30_0))" "(let-values(((intdefs_7)(if intdefs26_1 intdefs24_0 #f)))" "(let-values(((lift-key_5)(if lift-key27_0 lift-key25_0(generate-lift-key))))" "(let-values()" "(let-values(((temp77_2) 'local-expand)" -"((s78_0) s_484)" +"((s78_0) s_485)" "((context79_0) context_19)" "((stop-ids80_0) stop-ids_12)" "((intdefs81_0) intdefs_7)" @@ -58148,10 +58163,10 @@ static const char *startup_source = " intdefs81_0" " #t))))))))))))" "(case-lambda" -"((s_494 context_20 stop-ids_13)" +"((s_495 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_494 context_20 stop-ids_13 #f #f #f #f)))" +"(local-transformer-expand/capture-lifts31_0 s_495 context_20 stop-ids_13 #f #f #f #f)))" "((s_25 context_21 stop-ids_14 intdefs_8 lift-key25_1)" "(local-transformer-expand/capture-lifts31_0 s_25 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" "((s_90 context_22 stop-ids_15 intdefs24_1)" @@ -58170,10 +58185,10 @@ static const char *startup_source = "((s86_1) s_173)" "((temp87_4) 'expression)" "((null88_0) null)" -"((temp89_4) #f)" +"((temp89_3) #f)" "((opaque-only?90_0) opaque-only?_0)" "((temp91_2) #t)" -"((temp92_3) #t))" +"((temp92_4) #t))" "(do-local-expand56.1" " #f" " #f" @@ -58185,13 +58200,13 @@ static const char *startup_source = " #t" " opaque-only?90_0" " #t" -" temp92_3" +" temp92_4" " #t" " temp85_3" " s86_1" " temp87_4" " null88_0" -" temp89_4" +" temp89_3" " #t))))" "(let-values(((ctx_73)(let-values()(get-current-expand-context17.1 #f #f #f #f))))" "(let-values(((ae_1)" @@ -58215,7 +58230,7 @@ static const char *startup_source = "(void)))" "(values(if(not opaque-only?_0) exp-s_12 #f) ae_1))))))))))))" "(case-lambda" -"((s_485)(begin 'syntax-local-expand-expression(syntax-local-expand-expression36_0 s_485 #f #f)))" +"((s_486)(begin 'syntax-local-expand-expression(syntax-local-expand-expression36_0 s_486 #f #f)))" "((s_26 opaque-only?33_1)(syntax-local-expand-expression36_0 s_26 opaque-only?33_1 #t)))))" "(define-values" "(do-local-expand56.1)" @@ -58239,7 +58254,7 @@ static const char *startup_source = " intdefs51_0)" "(begin" " 'do-local-expand56" -"(let-values(((who_34) who52_1))" +"(let-values(((who_37) who52_1))" "(let-values(((s-or-s-exp_0) s-or-s-exp53_0))" "(let-values(((context_23) context54_0))" "(let-values(((stop-ids_16) stop-ids55_0))" @@ -58273,7 +58288,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-argument-error" -" who_34" +" who_37" "(if as-transformer?_6" " \"(or/c 'expression 'top-level list?)\"" " \"(or/c 'expression 'top-level 'module 'module-begin list?)\")" @@ -58290,7 +58305,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-argument-error" -" who_34" +" who_37" " \"(or/c (listof identifier?) #f)\"" " stop-ids_16)))" "(values))))" @@ -58309,19 +58324,19 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-argument-error" -" who_34" +" who_37" " \"(or/c #f internal-definition-context? (listof internal-definition-context?))\"" " intdefs_9)))" "(values))))" "(let-values(((ctx_74)" -"(let-values(((who93_0) who_34))" +"(let-values(((who93_0) who_37))" "(get-current-expand-context17.1 #f #f who93_0 #t))))" "(let-values(((phase_143)" "(if as-transformer?_6" "(add1(expand-context-phase ctx_74))" "(expand-context-phase ctx_74))))" "(let-values(((local-ctx_0)" -"(let-values(((ctx94_0) ctx_74)" +"(let-values(((ctx94_1) ctx_74)" "((context95_0) context_23)" "((phase96_0) phase_143)" "((intdefs97_0) intdefs_9)" @@ -58340,7 +58355,7 @@ static const char *startup_source = " #t" " track-to-be-defined?100_0" " #t" -" ctx94_0))))" +" ctx94_1))))" "(let-values((()" "(begin" "(namespace-visit-available-modules!" @@ -58361,7 +58376,7 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((input-s_1)" -"(let-values(((temp101_4)" +"(let-values(((temp101_5)" "(flip-introduction-scopes s_419 ctx_74))" "((intdefs102_0) intdefs_9))" "(add-intdef-scopes21.1" @@ -58369,7 +58384,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp101_4" +" temp101_5" " intdefs102_0))))" "(let-values((()" "(begin" @@ -58421,21 +58436,21 @@ static const char *startup_source = "(let-values(((input-s103_0) input-s_1)" "((local-ctx104_0) local-ctx_0)" "((context105_0) context_23)" -"((temp106_4) #f)" -"((temp107_3) #t)" +"((temp106_5) #f)" +"((temp107_2) #t)" "((lift-key108_0) lift-key_6)" "((temp109_1) #t)" -"((temp110_5) #t))" +"((temp110_6) #t))" "(expand-transformer58.1" " temp109_1" " #t" -" temp107_3" +" temp107_2" " #t" " context105_0" " #t" -" temp106_4" +" temp106_5" " #t" -" temp110_5" +" temp110_6" " #t" " lift-key108_0" " #t" @@ -58447,19 +58462,19 @@ static const char *startup_source = "((local-ctx112_0)" " local-ctx_0)" "((context113_0) context_23)" -"((temp114_4) #f)" -"((temp115_2)" +"((temp114_3) #f)" +"((temp115_3)" "(eq? 'top-level context_23))" "((lift-key116_0) lift-key_6)" "((temp117_2) #t))" "(expand-transformer58.1" " #f" " #f" -" temp115_2" +" temp115_3" " #t" " context113_0" " #t" -" temp114_4" +" temp114_3" " #t" " temp117_2" " #t" @@ -58578,25 +58593,25 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_176" -"(lambda(s_495)(syntax-arm$1 s_495 insp_21))" +"(lambda(s_496)(syntax-arm$1 s_496 insp_21))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-arm$1 s_176 insp_21))))))))))))))))" "(case-lambda" "((s_177)(begin 'syntax-arm(syntax-arm6_0 s_177 #f #f #f #f)))" "((s_178 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_178 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_456 maybe-insp1_1)(syntax-arm6_0 s_456 maybe-insp1_1 #f #t #f)))))" +"((s_457 maybe-insp1_1)(syntax-arm6_0 s_457 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_496 maybe-insp_2)" +"(lambda(s_497 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_496)" +"(if(syntax?$1 s_497)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_496)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_497)))" "(values))))" "(let-values((()" "(begin" @@ -58605,35 +58620,35 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))" "(values))))" -"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_496 insp_22)))))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_497 insp_22)))))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm12_0)" "(lambda(s10_0 from-s11_0 use-mode?8_0 use-mode?9_0)" "(begin" " 'syntax-rearm12" -"(let-values(((s_455) s10_0))" +"(let-values(((s_456) s10_0))" "(let-values(((from-s_2) from-s11_0))" "(let-values(((use-mode?_1)(if use-mode?9_0 use-mode?8_0 #f)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_455)" +"(if(syntax?$1 s_456)" "(void)" -" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_455)))" +" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_456)))" "(if(syntax?$1 from-s_2)" "(void)" " (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" from-s_2)))" "(if use-mode?_1" "(let-values()" "(taint-dispatch" -" s_455" -"(lambda(s_497)(syntax-rearm$1 s_497 from-s_2))" +" s_456" +"(lambda(s_498)(syntax-rearm$1 s_498 from-s_2))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-rearm$1 s_455 from-s_2))))))))))))))" +"(let-values()(syntax-rearm$1 s_456 from-s_2))))))))))))))" "(case-lambda" -"((s_453 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_453 from-s_3 #f #f)))" +"((s_454 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_454 from-s_3 #f #f)))" "((s_5 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_5 from-s_4 use-mode?8_1 #t)))))" "(define-values" "(1/syntax-taint)" @@ -59767,15 +59782,15 @@ static const char *startup_source = "(define-values(1/expand)(lambda(s_9)(begin 'expand(expand$1(intro s_9)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" -"(lambda(s_498)" +"(lambda(s_499)" "(begin" " 'expand-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_498) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_498)))" -"(expand$1 s_498(1/current-namespace) #t)))))))" -"(define-values(1/expand-once)(lambda(s_495)(begin 'expand-once(expand-once$1(intro s_495)))))" +" (if (syntax?$1 s_499) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_499)))" +"(expand$1 s_499(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_496)(begin 'expand-once(expand-once$1(intro s_496)))))" "(define-values" "(1/expand-syntax-once)" "(lambda(s_177)" @@ -59808,8 +59823,8 @@ static const char *startup_source = "(let-values(((given-s_1) given-s3_0))" "(let-values(((ns_68)(if ns2_1 ns1_7(1/current-namespace))))" "(let-values()" -"(let-values(((s_499)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" -"(1/namespace-syntax-introduce s_499 ns_68)))))))))" +"(let-values(((s_500)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" +"(1/namespace-syntax-introduce s_500 ns_68)))))))))" "(case-lambda((given-s_2)(begin(intro4_0 given-s_2 #f #f)))((given-s_3 ns1_8)(intro4_0 given-s_3 ns1_8 #t)))))" "(define-values" "(main-primitives)" @@ -60253,11 +60268,11 @@ static const char *startup_source = "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_456)" +"(lambda(s_457)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax #f(cons '#%top-interaction s_456) s_456))))))" +"(1/datum->syntax #f(cons '#%top-interaction s_457) s_457))))))" "(let-values(((path1_0) path_12)" "((temp2_8)" "(lambda(i_83)" @@ -60443,11 +60458,11 @@ static const char *startup_source = "(apply" " bytes-append" "(reverse$1" -"(let-values(((lst_315)(cdr expected-mod_1)))" +"(let-values(((lst_316)(cdr expected-mod_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_315)))" +"(let-values()(check-list lst_316)))" "((letrec-values(((for-loop_104)" "(lambda(fold-var_63 lst_92)" "(begin" @@ -60485,7 +60500,7 @@ static const char *startup_source = " fold-var_63)))))" " for-loop_104)" " null" -" lst_315))))))))))" +" lst_316))))))))))" "(define-values" "(with-module-reading-parameterization+delay-source)" "(lambda(path_13 thunk_7)" @@ -60893,30 +60908,30 @@ static const char *startup_source = "(define-values(-prev-relto-dir) #f)" "(define-values" "(split-relative-string)" -"(lambda(s_494 coll-mode?_0)" +"(lambda(s_495 coll-mode?_0)" "(begin" "(let-values(((l_20)" "((letrec-values(((loop_119)" -"(lambda(s_500)" +"(lambda(s_501)" "(begin" " 'loop" -"(let-values(((len_42)(string-length s_500)))" +"(let-values(((len_42)(string-length s_501)))" "((letrec-values(((iloop_2)" "(lambda(i_100)" "(begin" " 'iloop" "(if(= i_100 len_42)" -"(let-values()(list s_500))" -"(if(char=? '#\\/(string-ref s_500 i_100))" +"(let-values()(list s_501))" +"(if(char=? '#\\/(string-ref s_501 i_100))" "(let-values()" "(cons" -"(substring s_500 0 i_100)" -"(loop_119(substring s_500(add1 i_100)))))" +"(substring s_501 0 i_100)" +"(loop_119(substring s_501(add1 i_100)))))" "(let-values()(iloop_2(add1 i_100)))))))))" " iloop_2)" " 0))))))" " loop_119)" -" s_494)))" +" s_495)))" "(if coll-mode?_0" " l_20" "((letrec-values(((loop_103)" @@ -61008,18 +61023,18 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_501 relto_0 stx_18)" +"((s_502 relto_0 stx_18)" "(begin" "(log-message" "(current-logger)" " 'error" " \"default module name resolver called with three arguments (deprecated)\"" " #f)" -"(standard-module-name-resolver_0 s_501 relto_0 stx_18 #t)))" -"((s_502 relto_1 stx_19 load?_7)" +"(standard-module-name-resolver_0 s_502 relto_0 stx_18 #t)))" +"((s_503 relto_1 stx_19 load?_7)" "(let-values((()" "(begin" -"(if(1/module-path? s_502)" +"(if(1/module-path? s_503)" "(void)" "(let-values()" "(if(syntax?$1 stx_19)" @@ -61027,7 +61042,7 @@ static const char *startup_source = "(raise-argument-error" " 'standard-module-name-resolver" " \"module-path?\"" -" s_502))))" +" s_503))))" "(values))))" "(let-values((()" "(begin" @@ -61090,19 +61105,19 @@ static const char *startup_source = " loop_120)" " null" " orig-l_10)))))" -"(if(if(pair? s_502)(eq?(car s_502) 'quote) #f)" -"(let-values()(1/make-resolved-module-path(cadr s_502)))" -"(if(if(pair? s_502)" -"(if(eq?(car s_502) 'submod)" -"(if(pair?(cadr s_502))(eq?(caadr s_502) 'quote) #f)" +"(if(if(pair? s_503)(eq?(car s_503) 'quote) #f)" +"(let-values()(1/make-resolved-module-path(cadr s_503)))" +"(if(if(pair? s_503)" +"(if(eq?(car s_503) 'submod)" +"(if(pair?(cadr s_503))(eq?(caadr s_503) 'quote) #f)" " #f)" " #f)" "(let-values()" -"(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_502)(cddr s_502))))" -"(if(if(pair? s_502)" -"(if(eq?(car s_502) 'submod)" -" (if (let-values (((or-part_294) (equal? (cadr s_502) \".\")))" -" (if or-part_294 or-part_294 (equal? (cadr s_502) \"..\")))" +"(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_503)(cddr s_503))))" +"(if(if(pair? s_503)" +"(if(eq?(car s_503) 'submod)" +" (if (let-values (((or-part_294) (equal? (cadr s_503) \".\")))" +" (if or-part_294 or-part_294 (equal? (cadr s_503) \"..\")))" "(if relto_1" "(let-values(((p_78)(1/resolved-module-path-name relto_1)))" "(let-values(((or-part_362)(symbol? p_78)))" @@ -61119,27 +61134,27 @@ static const char *startup_source = "(flatten-sub-path_0" "(if(pair? rp_0)(car rp_0) rp_0)" "(let-values(((r_46)" -" (if (equal? (cadr s_502) \"..\") (cdr s_502) (cddr s_502))))" +" (if (equal? (cadr s_503) \"..\") (cdr s_503) (cddr s_503))))" "(if(pair? rp_0)(append(cdr rp_0) r_46) r_46))))))" -"(if(if(pair? s_502)(eq?(car s_502) 'planet) #f)" +"(if(if(pair? s_503)(eq?(car s_503) 'planet) #f)" "(let-values()" "(begin" "(prep-planet-resolver!_0)" -"(planet-resolver_0 s_502 relto_1 stx_19 load?_7 #f orig-paramz)))" -"(if(if(pair? s_502)" -"(if(eq?(car s_502) 'submod)" -"(if(pair?(cadr s_502))(eq?(caadr s_502) 'planet) #f)" +"(planet-resolver_0 s_503 relto_1 stx_19 load?_7 #f orig-paramz)))" +"(if(if(pair? s_503)" +"(if(eq?(car s_503) 'submod)" +"(if(pair?(cadr s_503))(eq?(caadr s_503) 'planet) #f)" " #f)" " #f)" "(let-values()" "(begin" "(prep-planet-resolver!_0)" "(planet-resolver_0" -"(cadr s_502)" +"(cadr s_503)" " relto_1" " stx_19" " load?_7" -"(cddr s_502)" +"(cddr s_503)" " orig-paramz)))" "(let-values()" "(let-values(((get-dir_0)" @@ -61204,18 +61219,18 @@ static const char *startup_source = " msg_1" "(format" " \"\\n for module path: ~s\\n\"" -" s_502)))))" +" s_503)))))" "(raise" "(if stx_19" "(1/make-exn:fail:syntax:missing-module" " msg_2" "(current-continuation-marks)" "(list stx_19)" -" s_502)" +" s_503)" "(1/make-exn:fail:filesystem:missing-module" " msg_2" "(current-continuation-marks)" -" s_502)))))))" +" s_503)))))))" "((ss->rkt_0)" "(lambda(s_94)" "(begin" @@ -61248,8 +61263,8 @@ static const char *startup_source = " (path-replace-extension p_81 #\".rkt\")" " p_81)))))" "((s_92)" -"(if(if(pair? s_502)(eq? 'submod(car s_502)) #f)" -"(let-values(((v_38)(cadr s_502)))" +"(if(if(pair? s_503)(eq? 'submod(car s_503)) #f)" +"(let-values(((v_38)(cadr s_503)))" " (if (let-values (((or-part_365) (equal? v_38 \".\")))" " (if or-part_365 or-part_365 (equal? v_38 \"..\")))" "(if relto_1" @@ -61260,19 +61275,19 @@ static const char *startup_source = "(error" " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" -" s_502))" +" s_503))" " v_38))" -" s_502))" +" s_503))" "((subm-path_0)" -"(if(if(pair? s_502)(eq? 'submod(car s_502)) #f)" +"(if(if(pair? s_503)(eq? 'submod(car s_503)) #f)" "(let-values(((p_83)" "(if(if(let-values(((or-part_166)" "(equal?" -"(cadr s_502)" +"(cadr s_503)" " \".\")))" "(if or-part_166" " or-part_166" -" (equal? (cadr s_502) \"..\")))" +" (equal? (cadr s_503) \"..\")))" " relto_1" " #f)" "(let-values(((p_84)" @@ -61280,10 +61295,10 @@ static const char *startup_source = " relto_1))" "((r_27)" "(if(equal?" -"(cadr s_502)" +"(cadr s_503)" " \"..\")" -"(cdr s_502)" -"(cddr s_502))))" +"(cdr s_503)" +"(cddr s_503))))" "(if(pair? p_84)" "(flatten-sub-path_0" "(car p_84)" @@ -61291,9 +61306,9 @@ static const char *startup_source = "(flatten-sub-path_0 p_84 r_27)))" "(flatten-sub-path_0" " \".\"" -" (if (equal? (cadr s_502) \"..\")" -"(cdr s_502)" -"(cddr s_502))))))" +" (if (equal? (cadr s_503) \"..\")" +"(cdr s_503)" +"(cddr s_503))))))" "(if(pair? p_83)(cdr p_83) #f))" " #f)))" "(let-values(((s-parsed_0)" @@ -61632,10 +61647,10 @@ static const char *startup_source = " standard-module-name-resolver_0)))))" "(define-values" "(default-eval-handler)" -"(lambda(s_503)" +"(lambda(s_504)" "(begin" "(1/eval" -" s_503" +" s_504" "(1/current-namespace)" "(let-values(((c_116)(1/current-compile)))" "(lambda(e_90 ns_16)" @@ -61953,23 +61968,23 @@ static const char *startup_source = " s_45))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_504)" +"(let-values(((s_505)" "(if(syntax?$1" " s_45)" "(syntax-e$1" " s_45)" " s_45)))" "(if(pair?" -" s_504)" +" s_505)" "(let-values(((begin81_0)" -"(let-values(((s_501)" +"(let-values(((s_502)" "(car" -" s_504)))" -" s_501))" +" s_505)))" +" s_502))" "((e82_0)" "(let-values(((s_46)" "(cdr" -" s_504)))" +" s_505)))" "(let-values(((s_429)" "(if(syntax?$1" " s_46)" @@ -62052,19 +62067,19 @@ static const char *startup_source = " define-values83_0" " id84_0" " rhs85_0)" -"(let-values(((s_505)" +"(let-values(((s_506)" " disarmed-exp-body_0))" "(let-values(((orig-s_39)" -" s_505))" +" s_506))" "(let-values(((define-values83_1" " id84_1" " rhs85_1)" "(let-values(((s_94)" "(if(syntax?$1" -" s_505)" +" s_506)" "(syntax-e$1" -" s_505)" -" s_505)))" +" s_506)" +" s_506)))" "(if(pair?" " s_94)" "(let-values(((define-values86_0)" @@ -62074,18 +62089,18 @@ static const char *startup_source = " s_432))" "((id87_0" " rhs88_0)" -"(let-values(((s_506)" +"(let-values(((s_507)" "(cdr" " s_94)))" "(let-values(((s_52)" "(if(syntax?$1" -" s_506)" +" s_507)" "(syntax-e$1" -" s_506)" -" s_506)))" +" s_507)" +" s_507)))" "(if(pair?" " s_52)" -"(let-values(((id89_0)" +"(let-values(((id89_1)" "(let-values(((s_53)" "(car" " s_52)))" @@ -62107,7 +62122,7 @@ static const char *startup_source = " orig-s_39))" "(let-values()" "(let-values(((id_106)" -"(let-values(((lst_316)" +"(let-values(((lst_317)" " flat-s_25))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62115,20 +62130,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_316)))" +" lst_317)))" "((letrec-values(((for-loop_291)" "(lambda(id_17" -" lst_294)" +" lst_295)" "(begin" " 'for-loop" "(if(pair?" -" lst_294)" +" lst_295)" "(let-values(((s_318)" "(unsafe-car" -" lst_294))" +" lst_295))" "((rest_179)" "(unsafe-cdr" -" lst_294)))" +" lst_295)))" "(let-values(((id_107)" "(let-values(((id_85)" " id_17))" @@ -62167,36 +62182,36 @@ static const char *startup_source = " id_17)))))" " for-loop_291)" " null" -" lst_316)))))" +" lst_317)))))" "(reverse$1" " id_106))))))))" "((rhs90_0)" -"(let-values(((s_507)" +"(let-values(((s_508)" "(cdr" " s_52)))" -"(let-values(((s_508)" +"(let-values(((s_509)" "(if(syntax?$1" -" s_507)" -"(syntax-e$1" -" s_507)" -" s_507)))" -"(if(pair?" " s_508)" +"(syntax-e$1" +" s_508)" +" s_508)))" +"(if(pair?" +" s_509)" "(let-values(((rhs91_0)" "(let-values(((s_33)" "(car" -" s_508)))" +" s_509)))" " s_33))" "(()" -"(let-values(((s_460)" +"(let-values(((s_461)" "(cdr" -" s_508)))" +" s_509)))" "(let-values(((s_320)" "(if(syntax?$1" -" s_460)" +" s_461)" "(syntax-e$1" -" s_460)" -" s_460)))" +" s_461)" +" s_461)))" "(if(null?" " s_320)" "(values)" @@ -62211,7 +62226,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_39))))))" "(values" -" id89_0" +" id89_1" " rhs90_0))" "(raise-syntax-error$1" " #f" @@ -62274,7 +62289,7 @@ static const char *startup_source = " ctx_76)))" "(let-values(((keys_5)" "(reverse$1" -"(let-values(((lst_298)" +"(let-values(((lst_299)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62282,20 +62297,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_298)))" +" lst_299)))" "((letrec-values(((for-loop_81)" "(lambda(fold-var_37" -" lst_299)" +" lst_300)" "(begin" " 'for-loop" "(if(pair?" -" lst_299)" +" lst_300)" "(let-values(((id_109)" "(unsafe-car" -" lst_299))" +" lst_300))" "((rest_165)" "(unsafe-cdr" -" lst_299)))" +" lst_300)))" "(let-values(((fold-var_254)" "(let-values(((fold-var_255)" " fold-var_37))" @@ -62303,7 +62318,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(let-values(((id97_2)" +"(let-values(((id97_1)" " id_109)" "((phase98_0)" " phase_144)" @@ -62318,7 +62333,7 @@ static const char *startup_source = " #t" " exp-body101_0" " #t" -" id97_2" +" id97_1" " phase98_0" " counter99_0)))" " fold-var_255))))" @@ -62333,9 +62348,9 @@ static const char *startup_source = " fold-var_37)))))" " for-loop_81)" " null" -" lst_298))))))" +" lst_299))))))" "(let-values(((extended-env_0)" -"(let-values(((lst_317)" +"(let-values(((lst_318)" " keys_5)" "((lst_229)" " ids_29))" @@ -62345,7 +62360,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_317)))" +" lst_318)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -62398,7 +62413,7 @@ static const char *startup_source = " for-loop_282)" "(expand-context-env" " body-ctx_2)" -" lst_317" +" lst_318" " lst_229)))))" "(loop_40" "(let-values(((v_104)" @@ -62465,17 +62480,17 @@ static const char *startup_source = " lst_152)))" "((letrec-values(((for-loop_184)" "(lambda(fold-var_294" -" lst_318)" +" lst_319)" "(begin" " 'for-loop" "(if(pair?" -" lst_318)" +" lst_319)" "(let-values(((done-body_0)" "(unsafe-car" -" lst_318))" +" lst_319))" "((rest_181)" "(unsafe-cdr" -" lst_318)))" +" lst_319)))" "(let-values(((fold-var_295)" "(let-values(((fold-var_296)" " fold-var_294))" @@ -62502,7 +62517,7 @@ static const char *startup_source = " keys_5" "(append" "(reverse$1" -"(let-values(((lst_314)" +"(let-values(((lst_315)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62510,20 +62525,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_314)))" +" lst_315)))" "((letrec-values(((for-loop_292)" "(lambda(fold-var_298" -" lst_319)" +" lst_320)" "(begin" " 'for-loop" "(if(pair?" -" lst_319)" +" lst_320)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_319))" +" lst_320))" "((rest_182)" "(unsafe-cdr" -" lst_319)))" +" lst_320)))" "(let-values(((fold-var_299)" "(let-values(((fold-var_300)" " fold-var_298))" @@ -62544,7 +62559,7 @@ static const char *startup_source = " fold-var_298)))))" " for-loop_292)" " null" -" lst_314))))" +" lst_315))))" " val-keyss_0))" "(cons" " rhs85_0" @@ -62561,17 +62576,17 @@ static const char *startup_source = " lst_74)))" "((letrec-values(((for-loop_124)" "(lambda(fold-var_302" -" lst_320)" +" lst_321)" "(begin" " 'for-loop" "(if(pair?" -" lst_320)" +" lst_321)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_320))" +" lst_321))" "((rest_183)" "(unsafe-cdr" -" lst_320)))" +" lst_321)))" "(let-values(((fold-var_142)" "(let-values(((fold-var_303)" " fold-var_302))" @@ -62601,7 +62616,7 @@ static const char *startup_source = " exp-body_0" "(append" "(reverse$1" -"(let-values(((lst_321)" +"(let-values(((lst_322)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62609,7 +62624,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_321)))" +" lst_322)))" "((letrec-values(((for-loop_293)" "(lambda(fold-var_305" " lst_202)" @@ -62643,7 +62658,7 @@ static const char *startup_source = " fold-var_305)))))" " for-loop_293)" " null" -" lst_321))))" +" lst_322))))" " track-stxs_0))" " trans-idss_1" " stx-clauses_0" @@ -62665,14 +62680,14 @@ static const char *startup_source = "(values))))" "(let-values(((ok?_35" " define-syntaxes105_0" -" id106_2" +" id106_1" " rhs107_0)" "(let-values(((s_102)" " disarmed-exp-body_0))" "(let-values(((orig-s_40)" " s_102))" "(let-values(((define-syntaxes105_1" -" id106_3" +" id106_2" " rhs107_1)" "(let-values(((s_433)" "(if(syntax?$1" @@ -62689,30 +62704,30 @@ static const char *startup_source = " s_211))" "((id109_0" " rhs110_0)" -"(let-values(((s_509)" +"(let-values(((s_510)" "(cdr" " s_433)))" -"(let-values(((s_510)" -"(if(syntax?$1" -" s_509)" -"(syntax-e$1" -" s_509)" -" s_509)))" -"(if(pair?" -" s_510)" -"(let-values(((id111_0)" "(let-values(((s_511)" -"(car" -" s_510)))" -"(let-values(((s_512)" "(if(syntax?$1" -" s_511)" +" s_510)" "(syntax-e$1" +" s_510)" +" s_510)))" +"(if(pair?" " s_511)" +"(let-values(((id111_0)" +"(let-values(((s_512)" +"(car" " s_511)))" +"(let-values(((s_513)" +"(if(syntax?$1" +" s_512)" +"(syntax-e$1" +" s_512)" +" s_512)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" -" s_512)))" +" s_513)))" "(if(not" " flat-s_26)" "(let-values()" @@ -62722,7 +62737,7 @@ static const char *startup_source = " orig-s_40))" "(let-values()" "(let-values(((id_110)" -"(let-values(((lst_322)" +"(let-values(((lst_323)" " flat-s_26))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62730,20 +62745,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_322)))" +" lst_323)))" "((letrec-values(((for-loop_294)" "(lambda(id_111" -" lst_323)" +" lst_324)" "(begin" " 'for-loop" "(if(pair?" -" lst_323)" -"(let-values(((s_513)" +" lst_324)" +"(let-values(((s_514)" "(unsafe-car" -" lst_323))" +" lst_324))" "((rest_185)" "(unsafe-cdr" -" lst_323)))" +" lst_324)))" "(let-values(((id_112)" "(let-values(((id_113)" " id_111))" @@ -62753,21 +62768,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_369)" "(if(syntax?$1" -" s_513)" +" s_514)" "(symbol?" "(syntax-e$1" -" s_513))" +" s_514))" " #f)))" "(if or-part_369" " or-part_369" "(symbol?" -" s_513)))" -" s_513" +" s_514)))" +" s_514" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_40" -" s_513)))))" +" s_514)))))" "(cons" " id114_0" " id_113)))))" @@ -62782,36 +62797,36 @@ static const char *startup_source = " id_111)))))" " for-loop_294)" " null" -" lst_322)))))" +" lst_323)))))" "(reverse$1" " id_110))))))))" "((rhs112_0)" -"(let-values(((s_514)" +"(let-values(((s_515)" "(cdr" -" s_510)))" +" s_511)))" "(let-values(((s_111)" "(if(syntax?$1" -" s_514)" +" s_515)" "(syntax-e$1" -" s_514)" -" s_514)))" +" s_515)" +" s_515)))" "(if(pair?" " s_111)" "(let-values(((rhs113_0)" -"(let-values(((s_515)" +"(let-values(((s_516)" "(car" " s_111)))" -" s_515))" +" s_516))" "(()" -"(let-values(((s_516)" +"(let-values(((s_517)" "(cdr" " s_111)))" "(let-values(((s_159)" "(if(syntax?$1" -" s_516)" +" s_517)" "(syntax-e$1" -" s_516)" -" s_516)))" +" s_517)" +" s_517)))" "(if(null?" " s_159)" "(values)" @@ -62843,11 +62858,11 @@ static const char *startup_source = "(values" " #t" " define-syntaxes105_1" -" id106_3" +" id106_2" " rhs107_1))))))" "(let-values(((ids_30)" "(remove-use-site-scopes" -" id106_2" +" id106_1" " body-ctx_2)))" "(let-values((()" "(begin" @@ -62889,7 +62904,7 @@ static const char *startup_source = " ctx_76)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_324)" +"(let-values(((lst_325)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62897,7 +62912,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_324)))" +" lst_325)))" "((letrec-values(((for-loop_295)" "(lambda(fold-var_307" " lst_44)" @@ -62948,7 +62963,7 @@ static const char *startup_source = " fold-var_307)))))" " for-loop_295)" " null" -" lst_324))))))" +" lst_325))))))" "(let-values((()" "(begin" "(let-values(((obs_75)" @@ -62982,15 +62997,16 @@ static const char *startup_source = "(values))))" "(let-values(((vals_8)" "(eval-for-syntaxes-binding" +" 'define-syntaxes" " rhs107_0" " ids_30" " body-ctx_2)))" "(let-values(((extended-env_1)" -"(let-values(((lst_325)" +"(let-values(((lst_326)" " keys_6)" -"((lst_326)" -" vals_8)" "((lst_327)" +" vals_8)" +"((lst_328)" " ids_30))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62998,12 +63014,6 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_325)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_326)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -63011,19 +63021,25 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_327)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_328)))" "((letrec-values(((for-loop_296)" "(lambda(env_21" " lst_36" -" lst_328" -" lst_329)" +" lst_329" +" lst_330)" "(begin" " 'for-loop" "(if(if(pair?" " lst_36)" "(if(pair?" -" lst_328)" -"(pair?" " lst_329)" +"(pair?" +" lst_330)" " #f)" " #f)" "(let-values(((key_91)" @@ -63034,16 +63050,16 @@ static const char *startup_source = " lst_36))" "((val_40)" "(unsafe-car" -" lst_328))" +" lst_329))" "((rest_188)" "(unsafe-cdr" -" lst_328))" +" lst_329))" "((id_116)" "(unsafe-car" -" lst_329))" +" lst_330))" "((rest_189)" "(unsafe-cdr" -" lst_329)))" +" lst_330)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -63073,9 +63089,9 @@ static const char *startup_source = " for-loop_296)" "(expand-context-env" " body-ctx_2)" -" lst_325" " lst_326" -" lst_327)))))" +" lst_327" +" lst_328)))))" "(begin" "(let-values(((obs_40)" "(expand-context-observer" @@ -63335,14 +63351,14 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_330) done-bodys_1)" +"(let-values(((lst_331) done-bodys_1)" "((start_65) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_330)))" +"(check-list lst_331)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -63350,20 +63366,20 @@ static const char *startup_source = "(check-naturals start_65)))" "((letrec-values(((for-loop_297)" "(lambda(fold-var_311" -" lst_331" +" lst_332" " pos_127)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_331)" +" lst_332)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_331))" +" lst_332))" "((rest_190)" "(unsafe-cdr" -" lst_331))" +" lst_332))" "((i_192)" " pos_127))" "(let-values(((fold-var_264)" @@ -63400,11 +63416,11 @@ static const char *startup_source = " the-struct_92)" "(let-values(((name136_0)" " name_79)" -"((inner137_0)" +"((inner137_1)" "(root-expand-context/outer-inner" " v_260)))" "(expand-context/outer1.1" -" inner137_0" +" inner137_1" "(root-expand-context/outer-post-expansion-scope" " the-struct_92)" "(root-expand-context/outer-use-site-scopes" @@ -63459,7 +63475,7 @@ static const char *startup_source = " fold-var_311)))))" " for-loop_297)" " null" -" lst_330" +" lst_331" " start_65))))))" "(begin" "(let-values(((obs_80)" @@ -63510,7 +63526,7 @@ static const char *startup_source = "((val-keyss139_0) val-keyss_1)" "((val-rhss140_0) val-rhss_1)" "((track-stxs141_0) track-stxs_1)" -"((temp142_2)(not stratified?_1))" +"((temp142_3)(not stratified?_1))" "((frame-id143_0) frame-id_13)" "((finish-ctx144_0) finish-ctx_0)" "((s145_0) s_229)" @@ -63523,7 +63539,7 @@ static const char *startup_source = " finish-bodys147_0" " temp146_2" " s145_0" -" temp142_2" +" temp142_3" " temp148_1" " val-idss138_0" " val-keyss139_0" @@ -63743,10 +63759,10 @@ static const char *startup_source = " s155_0" " temp156_0)))))" "(begin" -"(let-values(((obs_86)" +"(let-values(((obs_28)" "(expand-context-observer" " ctx_77)))" -"(if obs_86" +"(if obs_28" "(let-values()" "(if(if can-log?_0" "(log-tag?" @@ -63755,7 +63771,7 @@ static const char *startup_source = " #f)" "(let-values()" "(call-expand-observe" -" obs_86" +" obs_28" " 'tag" " result-s_10))" "(void)))" @@ -63805,7 +63821,7 @@ static const char *startup_source = " exp-rest_1)" "(let-values(((track?157_0)" " track?_2)" -"((s158_0)" +"((s158_1)" " s_369)" "((temp159_1)" "(list*" @@ -63826,13 +63842,13 @@ static const char *startup_source = "(rebuild5.1" " track?157_0" " #t" -" s158_0" +" s158_1" " temp159_1)))))" "(begin" -"(let-values(((obs_87)" +"(let-values(((obs_86)" "(expand-context-observer" " ctx_77)))" -"(if obs_87" +"(if obs_86" "(let-values()" "(if(if can-log?_0" "(log-tag?" @@ -63841,7 +63857,7 @@ static const char *startup_source = " #f)" "(let-values()" "(call-expand-observe" -" obs_87" +" obs_86" " 'tag" " result-s_11))" "(void)))" @@ -63886,46 +63902,46 @@ static const char *startup_source = "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))" "(define-values" "(no-binds)" -"(lambda(expr_10 s_517 phase_146)" +"(lambda(expr_10 s_437 phase_146)" "(begin" "(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_146)))" "(datum->syntax$1" "(core-id '#%app phase_146)" "(list(core-id 'begin phase_146) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_517)))))" +" s_437)))))" "(define-values" "(log-tag?)" "(lambda(had-stxes?_1 ctx_78)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_78)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_88 ctx_79 s_518 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_87 ctx_79 s_518 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" "(let-values(((phase_147)(expand-context-phase ctx_79)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_124) val-idss_2)((lst_332) val-rhss_2)((lst_333) track-stxs_4))" +"(let-values(((lst_124) val-idss_2)((lst_333) val-rhss_2)((lst_334) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_124)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_332)))" +"(let-values()(check-list lst_333)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_333)))" +"(let-values()(check-list lst_334)))" "((letrec-values(((for-loop_298)" -"(lambda(fold-var_312 lst_334 lst_335 lst_336)" +"(lambda(fold-var_312 lst_335 lst_336 lst_337)" "(begin" " 'for-loop" -"(if(if(pair? lst_334)(if(pair? lst_335)(pair? lst_336) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_334))" -"((rest_191)(unsafe-cdr lst_334))" -"((val-rhs_0)(unsafe-car lst_335))" -"((rest_192)(unsafe-cdr lst_335))" -"((track-stx_2)(unsafe-car lst_336))" -"((rest_193)(unsafe-cdr lst_336)))" +"(if(if(pair? lst_335)(if(pair? lst_336)(pair? lst_337) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_335))" +"((rest_191)(unsafe-cdr lst_335))" +"((val-rhs_0)(unsafe-car lst_336))" +"((rest_192)(unsafe-cdr lst_336))" +"((track-stx_2)(unsafe-car lst_337))" +"((rest_193)(unsafe-cdr lst_337)))" "(let-values(((fold-var_313)" "(let-values(((fold-var_314) fold-var_312))" "(let-values(((fold-var_315)" @@ -63945,8 +63961,8 @@ static const char *startup_source = " for-loop_298)" " null" " lst_124" -" lst_332" -" lst_333))))))" +" lst_333" +" lst_334))))))" "(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_147)))" "(let-values(((lv-s_0)" @@ -63957,37 +63973,37 @@ static const char *startup_source = "(list* lv-id_0 clauses_0 done-bodys_2))" " s_518)))" "(begin" -"(call-expand-observe obs_88 'block->letrec(list lv-s_0))" -"(call-expand-observe obs_88 'visit lv-s_0)" -"(call-expand-observe obs_88 'resolve lv-id_0)" -"(call-expand-observe obs_88 'enter-prim lv-s_0)" +"(call-expand-observe obs_87 'block->letrec(list lv-s_0))" +"(call-expand-observe obs_87 'visit lv-s_0)" +"(call-expand-observe obs_87 'resolve lv-id_0)" +"(call-expand-observe obs_87 'enter-prim lv-s_0)" "(if had-stxes?_2" "(let-values()" "(begin" -"(call-expand-observe obs_88 'prim-letrec-syntaxes+values)" +"(call-expand-observe obs_87 'prim-letrec-syntaxes+values)" "(call-expand-observe" -" obs_88" +" obs_87" " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" "(datum->syntax$1 #f done-bodys_2 s_518))" -"(call-expand-observe obs_88 'prepare-env)" -"(call-expand-observe obs_88 'next-group)" +"(call-expand-observe obs_87 'prepare-env)" +"(call-expand-observe obs_87 'next-group)" "(if(null? val-idss_2)" "(void)" "(let-values()" "(begin" -"(call-expand-observe obs_88 'prim-letrec-values)" +"(call-expand-observe obs_87 'prim-letrec-values)" "(call-expand-observe" -" obs_88" +" obs_87" " 'let-renames" " clauses_0" "(datum->syntax$1 #f done-bodys_2 s_518)))))))" "(let-values()" "(begin" -"(call-expand-observe obs_88 'prim-letrec-values)" +"(call-expand-observe obs_87 'prim-letrec-values)" "(call-expand-observe" -" obs_88" +" obs_87" " 'let-renames" " clauses_0" "(datum->syntax$1 #f done-bodys_2 s_518))))))))))))))" @@ -64124,12 +64140,12 @@ static const char *startup_source = " lst_17))))))" "(let-values((()" "(begin" -"(let-values(((obs_89)(expand-context-observer ctx_80)))" -"(if obs_89" +"(let-values(((obs_88)(expand-context-observer ctx_80)))" +"(if obs_88" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_89" +" obs_88" " log-renames-tag_0" " sc-formals_0" "(datum->syntax$1 #f sc-bodys_0))))" @@ -64170,7 +64186,7 @@ static const char *startup_source = "((body-ctx48_0) body-ctx_4)" "((temp49_3)" "(let-values(((ctx50_0) ctx_80)((s51_2) s_73)((temp52_5) #t))" -"(keep-as-needed85.1 #f #f temp52_5 #t #f #f ctx50_0 s51_2))))" +"(keep-as-needed86.1 #f #f temp52_5 #t #f #f ctx50_0 s51_2))))" "(expand-body7.1 temp49_3 #f #f sc-bodys47_0 body-ctx48_0))))" "(values" "(if(expand-context-to-parsed? ctx_80)" @@ -64206,13 +64222,13 @@ static const char *startup_source = " s_174))" "((body60_0)" "(let-values(((s_175)(cdr s_82)))" -"(let-values(((s_501)" +"(let-values(((s_502)" "(if(syntax?$1 s_175)" "(syntax-e$1 s_175)" " s_175)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" -" s_501)))" +" s_502)))" "(if(not flat-s_27)" "(let-values()" "(raise-syntax-error$1" @@ -64234,7 +64250,7 @@ static const char *startup_source = "(values #t lambda53_1 formals54_1 body55_1))))))" "(let-values(((rebuild-s_4)" "(let-values(((ctx61_0) ctx_81)((s62_0) s_13)((temp63_5) #t))" -"(keep-as-needed85.1 #f #f #f #f temp63_5 #t ctx61_0 s62_0))))" +"(keep-as-needed86.1 #f #f #f #f temp63_5 #t ctx61_0 s62_0))))" "(let-values(((formals_2 body_13)" "(lambda-clause-expander s_13 disarmed-s_6 formals54_0 body55_0 ctx_81 'lambda-renames)))" "(if(expand-context-to-parsed? ctx_81)" @@ -64246,16 +64262,16 @@ static const char *startup_source = " 'λ" "(lambda(s_26)" "(let-values(((ok?_37 lam-id66_0 formals67_0 _68_0)" -"(let-values(((s_505) s_26))" -"(let-values(((orig-s_39) s_505))" +"(let-values(((s_506) s_26))" +"(let-values(((orig-s_39) s_506))" "(let-values(((lam-id66_1 formals67_1 _68_1)" -"(let-values(((s_94)(if(syntax?$1 s_505)(syntax-e$1 s_505) s_505)))" +"(let-values(((s_94)(if(syntax?$1 s_506)(syntax-e$1 s_506) s_506)))" "(if(pair? s_94)" "(let-values(((lam-id69_0)(let-values(((s_432)(car s_94))) s_432))" "((formals70_0 _71_1)" -"(let-values(((s_506)(cdr s_94)))" +"(let-values(((s_507)(cdr s_94)))" "(let-values(((s_52)" -"(if(syntax?$1 s_506)(syntax-e$1 s_506) s_506)))" +"(if(syntax?$1 s_507)(syntax-e$1 s_507) s_507)))" "(if(pair? s_52)" "(let-values(((formals72_0)" "(let-values(((s_53)(car s_52))) s_53))" @@ -64304,9 +64320,9 @@ static const char *startup_source = "(lambda(s_520 ctx_83)" "(let-values((()" "(begin" -"(let-values(((obs_90)(expand-context-observer ctx_83)))" -"(if obs_90" -"(let-values()(let-values()(call-expand-observe obs_90 'prim-case-lambda)))" +"(let-values(((obs_89)(expand-context-observer ctx_83)))" +"(if obs_89" +"(let-values()(let-values()(call-expand-observe obs_89 'prim-case-lambda)))" "(void)))" "(values))))" "(let-values(((disarmed-s_7)(syntax-disarm$1 s_520)))" @@ -64314,11 +64330,11 @@ static const char *startup_source = "(let-values(((s_521) disarmed-s_7))" "(let-values(((orig-s_42) s_521))" "(let-values(((case-lambda79_1 formals80_1 body81_1)" -"(let-values(((s_447)(if(syntax?$1 s_521)(syntax-e$1 s_521) s_521)))" -"(if(pair? s_447)" -"(let-values(((case-lambda82_0)(let-values(((s_37)(car s_447))) s_37))" +"(let-values(((s_448)(if(syntax?$1 s_521)(syntax-e$1 s_521) s_521)))" +"(if(pair? s_448)" +"(let-values(((case-lambda82_0)(let-values(((s_37)(car s_448))) s_37))" "((formals83_0 body84_0)" -"(let-values(((s_65)(cdr s_447)))" +"(let-values(((s_65)(cdr s_448)))" "(let-values(((s_522)" "(if(syntax?$1 s_65)" "(syntax-e$1 s_65)" @@ -64329,13 +64345,13 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_314) flat-s_29))" +"(let-values(((lst_315) flat-s_29))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_314)))" +"(check-list lst_315)))" "((letrec-values(((for-loop_292)" "(lambda(formals_4" " body_15" @@ -64376,18 +64392,18 @@ static const char *startup_source = " s_205)))" " s_97))" "((body86_0)" -"(let-values(((s_464)" +"(let-values(((s_465)" "(cdr" " s_205)))" -"(let-values(((s_465)" +"(let-values(((s_466)" "(if(syntax?$1" -" s_464)" +" s_465)" "(syntax-e$1" -" s_464)" -" s_464)))" +" s_465)" +" s_465)))" "(let-values(((flat-s_30)" "(to-syntax-list.1" -" s_465)))" +" s_466)))" "(if(not" " flat-s_30)" "(let-values()" @@ -64436,7 +64452,7 @@ static const char *startup_source = " for-loop_292)" " null" " null" -" lst_314)))))" +" lst_315)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" @@ -64444,15 +64460,15 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t case-lambda79_1 formals80_1 body81_1))))))" "(let-values(((ok?_38 case-lambda87_0 clause88_0)" -"(let-values(((s_439) disarmed-s_7))" -"(let-values(((orig-s_43) s_439))" +"(let-values(((s_440) disarmed-s_7))" +"(let-values(((orig-s_43) s_440))" "(let-values(((case-lambda87_1 clause88_1)" -"(let-values(((s_448)(if(syntax?$1 s_439)(syntax-e$1 s_439) s_439)))" -"(if(pair? s_448)" +"(let-values(((s_449)(if(syntax?$1 s_440)(syntax-e$1 s_440) s_440)))" +"(if(pair? s_449)" "(let-values(((case-lambda89_0)" -"(let-values(((s_440)(car s_448))) s_440))" +"(let-values(((s_441)(car s_449))) s_441))" "((clause90_0)" -"(let-values(((s_421)(cdr s_448)))" +"(let-values(((s_421)(cdr s_449)))" "(let-values(((s_523)" "(if(syntax?$1 s_421)" "(syntax-e$1 s_421)" @@ -64466,34 +64482,34 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda87_1 clause88_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx93_1) ctx_83)((s94_0) s_520)((temp95_2) #t))" -"(keep-as-needed85.1 #f #f #f #f temp95_2 #t ctx93_1 s94_0))))" +"(let-values(((ctx93_0) ctx_83)((s94_0) s_520)((temp95_1) #t))" +"(keep-as-needed86.1 #f #f #f #f temp95_1 #t ctx93_0 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_337) formals80_0)((lst_110) body81_0)((lst_338) clause88_0))" +"(let-values(((lst_338) formals80_0)((lst_110) body81_0)((lst_339) clause88_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_337)))" +"(let-values()(check-list lst_338)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_110)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_338)))" +"(let-values()(check-list lst_339)))" "((letrec-values(((for-loop_300)" -"(lambda(fold-var_317 lst_339 lst_54 lst_340)" +"(lambda(fold-var_317 lst_340 lst_54 lst_341)" "(begin" " 'for-loop" -"(if(if(pair? lst_339)" -"(if(pair? lst_54)(pair? lst_340) #f)" +"(if(if(pair? lst_340)" +"(if(pair? lst_54)(pair? lst_341) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_339))" -"((rest_197)(unsafe-cdr lst_339))" +"(let-values(((formals_8)(unsafe-car lst_340))" +"((rest_197)(unsafe-cdr lst_340))" "((body_19)(unsafe-car lst_54))" "((rest_198)(unsafe-cdr lst_54))" -"((clause_3)(unsafe-car lst_340))" -"((rest_24)(unsafe-cdr lst_340)))" +"((clause_3)(unsafe-car lst_341))" +"((rest_24)(unsafe-cdr lst_341)))" "(let-values(((fold-var_105)" "(let-values(((fold-var_196) fold-var_317))" "(let-values(((fold-var_197)" @@ -64502,14 +64518,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_91)" +"(let-values(((obs_90)" "(expand-context-observer" " ctx_83)))" -"(if obs_91" +"(if obs_90" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_91" +" obs_90" " 'next)))" "(void)))" "(values))))" @@ -64518,7 +64534,7 @@ static const char *startup_source = " ctx_83)" "((clause97_0)" " clause_3))" -"(keep-as-needed85.1" +"(keep-as-needed86.1" " #f" " #f" " #f" @@ -64560,13 +64576,13 @@ static const char *startup_source = " fold-var_317)))))" " for-loop_300)" " null" -" lst_337" +" lst_338" " lst_110" -" lst_338))))))" +" lst_339))))))" "(if(expand-context-to-parsed? ctx_83)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" -"(let-values(((rebuild-s100_0) rebuild-s_5)((temp101_5)(list* case-lambda79_0 clauses_1)))" -"(rebuild5.1 #f #f rebuild-s100_0 temp101_5))))))))))))" +"(let-values(((rebuild-s100_0) rebuild-s_5)((temp101_6)(list* case-lambda79_0 clauses_1)))" +"(rebuild5.1 #f #f rebuild-s100_0 temp101_6))))))))))))" "(define-values" "(parse-and-flatten-formals)" "(lambda(all-formals_0 sc_36 s_524)" @@ -64641,9 +64657,9 @@ static const char *startup_source = "(lambda(s_525 ctx_84)" "(let-values((()" "(begin" -"(let-values(((obs_92)(expand-context-observer ctx_84)))" -"(if obs_92" -"(let-values()(let-values()(call-expand-observe obs_92 log-tag_0)))" +"(let-values(((obs_91)(expand-context-observer ctx_84)))" +"(if obs_91" +"(let-values()(let-values()(call-expand-observe obs_91 log-tag_0)))" "(void)))" "(values))))" "(let-values(((disarmed-s_8)(syntax-disarm$1 s_525)))" @@ -64663,19 +64679,19 @@ static const char *startup_source = " id:val105_1" " val-rhs106_1" " body107_1)" -"(let-values(((s_472)" +"(let-values(((s_473)" "(if(syntax?$1 s_526)" "(syntax-e$1 s_526)" " s_526)))" -"(if(pair? s_472)" +"(if(pair? s_473)" "(let-values(((letrec-syntaxes+values108_0)" -"(let-values(((s_527)(car s_472))) s_527))" +"(let-values(((s_527)(car s_473))) s_527))" "((id:trans109_0" " trans-rhs110_0" " id:val111_0" " val-rhs112_0" " body113_0)" -"(let-values(((s_528)(cdr s_472)))" +"(let-values(((s_528)(cdr s_473)))" "(let-values(((s_529)" "(if(syntax?$1 s_528)" "(syntax-e$1 s_528)" @@ -64717,17 +64733,17 @@ static const char *startup_source = "((letrec-values(((for-loop_301)" "(lambda(id:trans_1" " trans-rhs_1" -" lst_341)" +" lst_342)" "(begin" " 'for-loop" "(if(pair?" -" lst_341)" +" lst_342)" "(let-values(((s_237)" "(unsafe-car" -" lst_341))" +" lst_342))" "((rest_199)" "(unsafe-cdr" -" lst_341)))" +" lst_342)))" "(let-values(((id:trans_2" " trans-rhs_2)" "(let-values(((id:trans_3)" @@ -64770,7 +64786,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_342)" +"(let-values(((lst_343)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64778,20 +64794,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_342)))" +" lst_343)))" "((letrec-values(((for-loop_270)" "(lambda(id:trans_6" -" lst_343)" +" lst_344)" "(begin" " 'for-loop" "(if(pair?" -" lst_343)" +" lst_344)" "(let-values(((s_346)" "(unsafe-car" -" lst_343))" +" lst_344))" "((rest_200)" "(unsafe-cdr" -" lst_343)))" +" lst_344)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -64830,30 +64846,30 @@ static const char *startup_source = " id:trans_6)))))" " for-loop_270)" " null" -" lst_342)))))" +" lst_343)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs120_0)" "(let-values(((s_240)" "(cdr" " s_530)))" -"(let-values(((s_476)" +"(let-values(((s_477)" "(if(syntax?$1" " s_240)" "(syntax-e$1" " s_240)" " s_240)))" "(if(pair?" -" s_476)" +" s_477)" "(let-values(((trans-rhs121_0)" "(let-values(((s_531)" "(car" -" s_476)))" +" s_477)))" " s_531))" "(()" "(let-values(((s_241)" "(cdr" -" s_476)))" +" s_477)))" "(let-values(((s_242)" "(if(syntax?$1" " s_241)" @@ -64948,7 +64964,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_344)" +"(let-values(((lst_345)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64956,21 +64972,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_344)))" +" lst_345)))" "((letrec-values(((for-loop_302)" "(lambda(id:val_1" " val-rhs_2" -" lst_345)" +" lst_346)" "(begin" " 'for-loop" "(if(pair?" -" lst_345)" +" lst_346)" "(let-values(((s_533)" "(unsafe-car" -" lst_345))" +" lst_346))" "((rest_201)" "(unsafe-cdr" -" lst_345)))" +" lst_346)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -64992,15 +65008,15 @@ static const char *startup_source = "(if(pair?" " s_534)" "(let-values(((id:val125_0)" -"(let-values(((s_489)" +"(let-values(((s_490)" "(car" " s_534)))" "(let-values(((s_535)" "(if(syntax?$1" -" s_489)" +" s_490)" "(syntax-e$1" -" s_489)" -" s_489)))" +" s_490)" +" s_490)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" " s_535)))" @@ -65013,7 +65029,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_346)" +"(let-values(((lst_347)" " flat-s_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65021,20 +65037,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_346)))" +" lst_347)))" "((letrec-values(((for-loop_303)" "(lambda(id:val_6" -" lst_347)" +" lst_348)" "(begin" " 'for-loop" "(if(pair?" -" lst_347)" +" lst_348)" "(let-values(((s_536)" "(unsafe-car" -" lst_347))" +" lst_348))" "((rest_202)" "(unsafe-cdr" -" lst_347)))" +" lst_348)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -65073,7 +65089,7 @@ static const char *startup_source = " id:val_6)))))" " for-loop_303)" " null" -" lst_346)))))" +" lst_347)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs126_0)" @@ -65089,10 +65105,10 @@ static const char *startup_source = "(if(pair?" " s_248)" "(let-values(((val-rhs127_0)" -"(let-values(((s_479)" +"(let-values(((s_480)" "(car" " s_248)))" -" s_479))" +" s_480))" "(()" "(let-values(((s_359)" "(cdr" @@ -65148,7 +65164,7 @@ static const char *startup_source = " for-loop_302)" " null" " null" -" lst_344)))))" +" lst_345)))))" "(values" "(reverse$1" " id:val_0)" @@ -65262,7 +65278,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_348)" +"(let-values(((lst_349)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65270,21 +65286,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_348)))" +" lst_349)))" "((letrec-values(((for-loop_304)" "(lambda(id:val_11" " val-rhs_7" -" lst_307)" +" lst_308)" "(begin" " 'for-loop" "(if(pair?" -" lst_307)" +" lst_308)" "(let-values(((s_539)" "(unsafe-car" -" lst_307))" +" lst_308))" "((rest_203)" "(unsafe-cdr" -" lst_307)))" +" lst_308)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -65327,7 +65343,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_349)" +"(let-values(((lst_350)" " flat-s_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65335,20 +65351,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_349)))" +" lst_350)))" "((letrec-values(((for-loop_305)" "(lambda(id:val_16" -" lst_350)" +" lst_351)" "(begin" " 'for-loop" "(if(pair?" -" lst_350)" +" lst_351)" "(let-values(((s_542)" "(unsafe-car" -" lst_350))" +" lst_351))" "((rest_204)" "(unsafe-cdr" -" lst_350)))" +" lst_351)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -65387,7 +65403,7 @@ static const char *startup_source = " id:val_16)))))" " for-loop_305)" " null" -" lst_349)))))" +" lst_350)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs140_0)" @@ -65462,7 +65478,7 @@ static const char *startup_source = " for-loop_304)" " null" " null" -" lst_348)))))" +" lst_349)))))" "(values" "(reverse$1" " id:val_10)" @@ -65518,20 +65534,20 @@ static const char *startup_source = "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_351)(if syntaxes?_0 id:trans103_0 null)))" +"(let-values(((lst_352)(if syntaxes?_0 id:trans103_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_351)))" +"(let-values()(check-list lst_352)))" "((letrec-values(((for-loop_160)" -"(lambda(fold-var_108 lst_352)" +"(lambda(fold-var_108 lst_353)" "(begin" " 'for-loop" -"(if(pair? lst_352)" +"(if(pair? lst_353)" "(let-values(((ids_35)" -"(unsafe-car lst_352))" +"(unsafe-car lst_353))" "((rest_205)" -"(unsafe-cdr lst_352)))" +"(unsafe-cdr lst_353)))" "(let-values(((fold-var_112)" "(let-values(((fold-var_318)" " fold-var_108))" @@ -65540,7 +65556,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_353)" +"(let-values(((lst_354)" " ids_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65548,20 +65564,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_353)))" +" lst_354)))" "((letrec-values(((for-loop_279)" "(lambda(fold-var_320" -" lst_354)" +" lst_355)" "(begin" " 'for-loop" "(if(pair?" -" lst_354)" +" lst_355)" "(let-values(((id_119)" "(unsafe-car" -" lst_354))" +" lst_355))" "((rest_206)" "(unsafe-cdr" -" lst_354)))" +" lst_355)))" "(let-values(((fold-var_321)" "(let-values(((fold-var_322)" " fold-var_320))" @@ -65584,7 +65600,7 @@ static const char *startup_source = " fold-var_320)))))" " for-loop_279)" " null" -" lst_353)))))" +" lst_354)))))" " fold-var_318))))" "(values" " fold-var_319)))))" @@ -65594,23 +65610,23 @@ static const char *startup_source = " fold-var_108)))))" " for-loop_160)" " null" -" lst_351))))))" +" lst_352))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_355)(if syntaxes?_0 id:val105_0 id:val129_0)))" +"(let-values(((lst_356)(if syntaxes?_0 id:val105_0 id:val129_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_355)))" +"(let-values()(check-list lst_356)))" "((letrec-values(((for-loop_306)" -"(lambda(fold-var_324 lst_356)" +"(lambda(fold-var_324 lst_357)" "(begin" " 'for-loop" -"(if(pair? lst_356)" +"(if(pair? lst_357)" "(let-values(((ids_36)" -"(unsafe-car lst_356))" +"(unsafe-car lst_357))" "((rest_207)" -"(unsafe-cdr lst_356)))" +"(unsafe-cdr lst_357)))" "(let-values(((fold-var_325)" "(let-values(((fold-var_326)" " fold-var_324))" @@ -65619,7 +65635,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_357)" +"(let-values(((lst_358)" " ids_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -65627,20 +65643,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_357)))" +" lst_358)))" "((letrec-values(((for-loop_307)" "(lambda(fold-var_328" -" lst_358)" +" lst_359)" "(begin" " 'for-loop" "(if(pair?" -" lst_358)" +" lst_359)" "(let-values(((id_120)" "(unsafe-car" -" lst_358))" +" lst_359))" "((rest_208)" "(unsafe-cdr" -" lst_358)))" +" lst_359)))" "(let-values(((fold-var_329)" "(let-values(((fold-var_330)" " fold-var_328))" @@ -65663,7 +65679,7 @@ static const char *startup_source = " fold-var_328)))))" " for-loop_307)" " null" -" lst_357)))))" +" lst_358)))))" " fold-var_326))))" "(values" " fold-var_327)))))" @@ -65675,25 +65691,25 @@ static const char *startup_source = " fold-var_324)))))" " for-loop_306)" " null" -" lst_355))))))" +" lst_356))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_359)" +"(let-values(((lst_360)" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_359)))" +"(let-values()(check-list lst_360)))" "((letrec-values(((for-loop_308)" -"(lambda(fold-var_332 lst_360)" +"(lambda(fold-var_332 lst_361)" "(begin" " 'for-loop" -"(if(pair? lst_360)" +"(if(pair? lst_361)" "(let-values(((rhs_20)" -"(unsafe-car lst_360))" +"(unsafe-car lst_361))" "((rest_209)" -"(unsafe-cdr lst_360)))" +"(unsafe-cdr lst_361)))" "(let-values(((fold-var_333)" "(let-values(((fold-var_334)" " fold-var_332))" @@ -65715,66 +65731,66 @@ static const char *startup_source = " fold-var_332)))))" " for-loop_308)" " null" -" lst_359))))" +" lst_360))))" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))" "(let-values(((val-clauses_0)" "(if syntaxes?_0" "(let-values()" "(let-values(((ok?_41 _154_0 _155_0 clause156_0 _157_0)" -"(let-values(((s_483) disarmed-s_8))" -"(let-values(((orig-s_46) s_483))" +"(let-values(((s_484) disarmed-s_8))" +"(let-values(((orig-s_46) s_484))" "(let-values(((_154_1" " _155_1" " clause156_1" " _157_1)" "(let-values(((s_142)" "(if(syntax?$1" -" s_483)" +" s_484)" "(syntax-e$1" -" s_483)" -" s_483)))" +" s_484)" +" s_484)))" "(if(pair? s_142)" "(let-values(((_158_0)" -"(let-values(((s_437)" +"(let-values(((s_547)" "(car" " s_142)))" -" s_437))" +" s_547))" "((_159_0" " clause160_0" " _161_0)" -"(let-values(((s_547)" +"(let-values(((s_548)" "(cdr" " s_142)))" "(let-values(((s_143)" "(if(syntax?$1" -" s_547)" +" s_548)" "(syntax-e$1" -" s_547)" -" s_547)))" +" s_548)" +" s_548)))" "(if(pair?" " s_143)" "(let-values(((_162_0)" -"(let-values(((s_548)" +"(let-values(((s_549)" "(car" " s_143)))" -" s_548))" +" s_549))" "((clause163_0" " _164_0)" -"(let-values(((s_549)" +"(let-values(((s_550)" "(cdr" " s_143)))" -"(let-values(((s_550)" +"(let-values(((s_438)" "(if(syntax?$1" -" s_549)" -"(syntax-e$1" -" s_549)" -" s_549)))" -"(if(pair?" " s_550)" +"(syntax-e$1" +" s_550)" +" s_550)))" +"(if(pair?" +" s_438)" "(let-values(((clause165_0)" "(let-values(((s_551)" "(car" -" s_550)))" +" s_438)))" "(let-values(((s_552)" "(if(syntax?$1" " s_551)" @@ -65796,7 +65812,7 @@ static const char *startup_source = "((_166_0)" "(let-values(((s_553)" "(cdr" -" s_550)))" +" s_438)))" " s_553)))" "(values" " clause165_0" @@ -65905,13 +65921,13 @@ static const char *startup_source = " clause168_0)))))" "(let-values((()" "(begin" -"(let-values(((temp142_3)(list trans-idss_2 val-idss_3))" +"(let-values(((temp142_4)(list trans-idss_2 val-idss_3))" "((phase143_0) phase_150)" "((s144_0) s_525))" "(check-no-duplicate-ids8.1" " #f" " #f" -" temp142_3" +" temp142_4" " phase143_0" " s144_0" " #f" @@ -65920,23 +65936,23 @@ static const char *startup_source = "(let-values(((counter_8)(root-expand-context-counter ctx_84)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_361) trans-idss_2))" +"(let-values(((lst_362) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_361)))" +"(let-values()(check-list lst_362)))" "((letrec-values(((for-loop_309)" -"(lambda(fold-var_336 lst_362)" +"(lambda(fold-var_336 lst_363)" "(begin" " 'for-loop" -"(if(pair? lst_362)" +"(if(pair? lst_363)" "(let-values(((ids_37)" "(unsafe-car" -" lst_362))" +" lst_363))" "((rest_210)" "(unsafe-cdr" -" lst_362)))" +" lst_363)))" "(let-values(((fold-var_337)" "(let-values(((fold-var_338)" " fold-var_336))" @@ -65956,17 +65972,17 @@ static const char *startup_source = " lst_238)))" "((letrec-values(((for-loop_310)" "(lambda(fold-var_340" -" lst_363)" +" lst_364)" "(begin" " 'for-loop" "(if(pair?" -" lst_363)" +" lst_364)" "(let-values(((id_121)" "(unsafe-car" -" lst_363))" +" lst_364))" "((rest_127)" "(unsafe-cdr" -" lst_363)))" +" lst_364)))" "(let-values(((fold-var_341)" "(let-values(((fold-var_342)" " fold-var_340))" @@ -66016,26 +66032,26 @@ static const char *startup_source = " fold-var_336)))))" " for-loop_309)" " null" -" lst_361))))))" +" lst_362))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_364) val-idss_3))" +"(let-values(((lst_365) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_364)))" +"(let-values()(check-list lst_365)))" "((letrec-values(((for-loop_311)" -"(lambda(fold-var_344 lst_365)" +"(lambda(fold-var_344 lst_366)" "(begin" " 'for-loop" -"(if(pair? lst_365)" +"(if(pair? lst_366)" "(let-values(((ids_38)" "(unsafe-car" -" lst_365))" +" lst_366))" "((rest_211)" "(unsafe-cdr" -" lst_365)))" +" lst_366)))" "(let-values(((fold-var_345)" "(let-values(((fold-var_346)" " fold-var_344))" @@ -66044,7 +66060,7 @@ static const char *startup_source = "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_366)" +"(let-values(((lst_367)" " ids_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66052,20 +66068,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_366)))" +" lst_367)))" "((letrec-values(((for-loop_312)" "(lambda(fold-var_348" -" lst_367)" +" lst_368)" "(begin" " 'for-loop" "(if(pair?" -" lst_367)" +" lst_368)" "(let-values(((id_122)" "(unsafe-car" -" lst_367))" +" lst_368))" "((rest_212)" "(unsafe-cdr" -" lst_367)))" +" lst_368)))" "(let-values(((fold-var_349)" "(let-values(((fold-var_116)" " fold-var_348))" @@ -66103,7 +66119,7 @@ static const char *startup_source = " fold-var_348)))))" " for-loop_312)" " null" -" lst_366)))))" +" lst_367)))))" " fold-var_346))))" "(values" " fold-var_347)))))" @@ -66115,16 +66131,16 @@ static const char *startup_source = " fold-var_344)))))" " for-loop_311)" " null" -" lst_364))))))" +" lst_365))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_368)" +"(let-values(((lst_369)" "(if syntaxes?_0 body107_0 body131_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_368)))" +"(let-values()(check-list lst_369)))" "((letrec-values(((for-loop_313)" "(lambda(fold-var_350 lst_129)" "(begin" @@ -66157,15 +66173,15 @@ static const char *startup_source = " fold-var_350)))))" " for-loop_313)" " null" -" lst_368))))))" +" lst_369))))))" "(let-values((()" "(begin" -"(let-values(((obs_93)" +"(let-values(((obs_92)" "(expand-context-observer ctx_84)))" -"(if obs_93" +"(if obs_92" "(let-values()" "(log-let-renames" -" obs_93" +" obs_92" " renames-log-tag_0" " val-idss_3" " val-rhss_3" @@ -66180,14 +66196,14 @@ static const char *startup_source = "(if syntaxes?_0" "(let-values()" "(begin" -"(let-values(((obs_94)" +"(let-values(((obs_93)" "(expand-context-observer" " ctx_84)))" -"(if obs_94" +"(if obs_93" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_94" +" obs_93" " 'prepare-env)))" "(void)))" "(prepare-next-phase-namespace ctx_84)))" @@ -66195,7 +66211,7 @@ static const char *startup_source = "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_369)" +"(let-values(((lst_370)" "(if syntaxes?_0" " trans-rhs104_0" " '()))" @@ -66204,7 +66220,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_369)))" +"(let-values()(check-list lst_370)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -66212,11 +66228,11 @@ static const char *startup_source = "((letrec-values(((for-loop_314)" "(lambda(fold-var_123" " lst_131" -" lst_370)" +" lst_371)" "(begin" " 'for-loop" "(if(if(pair? lst_131)" -"(pair? lst_370)" +"(pair? lst_371)" " #f)" "(let-values(((rhs_21)" "(unsafe-car" @@ -66226,10 +66242,10 @@ static const char *startup_source = " lst_131))" "((ids_39)" "(unsafe-car" -" lst_370))" +" lst_371))" "((rest_67)" "(unsafe-cdr" -" lst_370)))" +" lst_371)))" "(let-values(((fold-var_125)" "(let-values(((fold-var_354)" " fold-var_123))" @@ -66239,37 +66255,38 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_95)" +"(let-values(((obs_94)" "(expand-context-observer" " ctx_84)))" -"(if obs_95" +"(if obs_94" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_95" +" obs_94" " 'next)" "(call-expand-observe" -" obs_95" +" obs_94" " 'enter-bind))))" "(void)))" "(values))))" "(let-values(((trans-val_1)" "(eval-for-syntaxes-binding" +" 'letrec-syntaxes+values" "(add-scope" " rhs_21" " sc_37)" " ids_39" " ctx_84)))" "(begin" -"(let-values(((obs_96)" +"(let-values(((obs_95)" "(expand-context-observer" " ctx_84)))" -"(if obs_96" +"(if obs_95" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_96" +" obs_95" " 'exit-bind)))" "(void)))" " trans-val_1))))" @@ -66285,7 +66302,7 @@ static const char *startup_source = " fold-var_123)))))" " for-loop_314)" " null" -" lst_369" +" lst_370" " lst_247))))))" "(let-values(((rec-val-env_0)" "(let-values(((lst_61) val-keyss_2)" @@ -66301,20 +66318,20 @@ static const char *startup_source = "(let-values()(check-list lst_249)))" "((letrec-values(((for-loop_315)" "(lambda(env_29" -" lst_371" +" lst_372" " lst_133)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_371)" +" lst_372)" "(pair? lst_133)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_371))" +" lst_372))" "((rest_68)" "(unsafe-cdr" -" lst_371))" +" lst_372))" "((ids_40)" "(unsafe-car" " lst_133))" @@ -66324,9 +66341,9 @@ static const char *startup_source = "(let-values(((env_30)" "(let-values(((env_31)" " env_29))" -"(let-values(((lst_372)" +"(let-values(((lst_373)" " keys_10)" -"((lst_373)" +"((lst_374)" " ids_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66334,30 +66351,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_372)))" +" lst_373)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_373)))" +" lst_374)))" "((letrec-values(((for-loop_316)" "(lambda(env_32" -" lst_374" +" lst_375" " lst_66)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_374)" +" lst_375)" "(pair?" " lst_66)" " #f)" "(let-values(((key_93)" "(unsafe-car" -" lst_374))" +" lst_375))" "((rest_30)" "(unsafe-cdr" -" lst_374))" +" lst_375))" "((id_123)" "(unsafe-car" " lst_66))" @@ -66386,8 +66403,8 @@ static const char *startup_source = " env_32)))))" " for-loop_316)" " env_31" -" lst_372" -" lst_373))))))" +" lst_373" +" lst_374))))))" "(if(not #f)" "(for-loop_315" " env_30" @@ -66400,65 +66417,65 @@ static const char *startup_source = " lst_61" " lst_249)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_375) trans-keyss_0)" -"((lst_376) trans-valss_0)" -"((lst_377) trans-idss_2))" +"(let-values(((lst_376) trans-keyss_0)" +"((lst_377) trans-valss_0)" +"((lst_378) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_375)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" "(let-values()(check-list lst_376)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_377)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_378)))" "((letrec-values(((for-loop_317)" "(lambda(env_36" -" lst_378" " lst_379" -" lst_380)" +" lst_380" +" lst_381)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_378)" -"(if(pair?" " lst_379)" -"(pair?" +"(if(pair?" " lst_380)" +"(pair?" +" lst_381)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_378))" +" lst_379))" "((rest_217)" "(unsafe-cdr" -" lst_378))" +" lst_379))" "((vals_9)" "(unsafe-car" -" lst_379))" +" lst_380))" "((rest_218)" "(unsafe-cdr" -" lst_379))" +" lst_380))" "((ids_41)" "(unsafe-car" -" lst_380))" +" lst_381))" "((rest_219)" "(unsafe-cdr" -" lst_380)))" +" lst_381)))" "(let-values(((env_37)" "(let-values(((env_38)" " env_36))" "(let-values(((env_39)" "(let-values()" -"(let-values(((lst_381)" +"(let-values(((lst_382)" " keys_11)" -"((lst_382)" -" vals_9)" "((lst_383)" +" vals_9)" +"((lst_384)" " ids_41))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66466,12 +66483,6 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_381)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_382)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -66479,15 +66490,21 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_383)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_384)))" "((letrec-values(((for-loop_318)" "(lambda(env_40" -" lst_384" +" lst_385" " lst_48" " lst_118)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_384)" +" lst_385)" "(if(pair?" " lst_48)" "(pair?" @@ -66496,10 +66513,10 @@ static const char *startup_source = " #f)" "(let-values(((key_94)" "(unsafe-car" -" lst_384))" +" lst_385))" "((rest_220)" "(unsafe-cdr" -" lst_384))" +" lst_385))" "((val_86)" "(unsafe-car" " lst_48))" @@ -66540,9 +66557,9 @@ static const char *startup_source = " env_40)))))" " for-loop_318)" " env_38" -" lst_381" " lst_382" -" lst_383))))))" +" lst_383" +" lst_384))))))" "(values" " env_39)))))" "(if(not #f)" @@ -66555,9 +66572,9 @@ static const char *startup_source = " env_36)))))" " for-loop_317)" " rec-val-env_0" -" lst_375" " lst_376" -" lst_377)))))" +" lst_377" +" lst_378)))))" "(let-values(((expr-ctx_0)" "(as-expression-context ctx_84)))" "(let-values(((orig-rrs_0)" @@ -66588,11 +66605,11 @@ static const char *startup_source = " val-idss_3)" " ctx_84" " sc_37))" -"((inner189_0)" +"((inner189_1)" "(root-expand-context/outer-inner" " v_180)))" "(expand-context/outer1.1" -" inner189_0" +" inner189_1" "(root-expand-context/outer-post-expansion-scope" " the-struct_94)" "(root-expand-context/outer-use-site-scopes" @@ -66633,7 +66650,7 @@ static const char *startup_source = "(let-values(((ctx190_0) ctx_84)" "((s191_0) s_525)" "((temp192_1) #t))" -"(keep-as-needed85.1" +"(keep-as-needed86.1" " #f" " #f" " temp192_1" @@ -66646,27 +66663,27 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " ctx_84)" "(reverse$1" -"(let-values(((lst_385)" +"(let-values(((lst_386)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_385)))" +"(check-list lst_386)))" "((letrec-values(((for-loop_319)" "(lambda(fold-var_356" -" lst_386)" +" lst_387)" "(begin" " 'for-loop" "(if(pair?" -" lst_386)" +" lst_387)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_386))" +" lst_387))" "((rest_222)" "(unsafe-cdr" -" lst_386)))" +" lst_387)))" "(let-values(((fold-var_357)" "(let-values(((fold-var_358)" " fold-var_356))" @@ -66686,17 +66703,17 @@ static const char *startup_source = " lst_67)))" "((letrec-values(((for-loop_90)" "(lambda(fold-var_360" -" lst_387)" +" lst_388)" "(begin" " 'for-loop" "(if(pair?" -" lst_387)" +" lst_388)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_387))" +" lst_388))" "((rest_223)" "(unsafe-cdr" -" lst_387)))" +" lst_388)))" "(let-values(((fold-var_361)" "(let-values(((fold-var_362)" " fold-var_360))" @@ -66735,19 +66752,19 @@ static const char *startup_source = " fold-var_356)))))" " for-loop_319)" " null" -" lst_385))))" +" lst_386))))" " val-idss_3)))" "(let-values((()" "(begin" "(if syntaxes?_0" "(let-values()" -"(let-values(((obs_97)" +"(let-values(((obs_96)" "(expand-context-observer" " ctx_84)))" -"(if obs_97" +"(if obs_96" "(let-values()" "(log-letrec-values" -" obs_97" +" obs_96" " val-idss_3" " val-rhss_3" " bodys_10))" @@ -66760,10 +66777,10 @@ static const char *startup_source = " 'get-body" "(let-values((()" "(begin" -"(let-values(((obs_98)" +"(let-values(((obs_97)" "(expand-context-observer" " ctx_84)))" -"(if obs_98" +"(if obs_97" "(let-values()" "(if(not" "(if syntaxes?_0" @@ -66772,7 +66789,7 @@ static const char *startup_source = " #f))" "(let-values()" "(call-expand-observe" -" obs_98" +" obs_97" " 'next-group))" "(void)))" "(void)))" @@ -66846,13 +66863,13 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_388)" +"(let-values(((lst_389)" " val-name-idss_0)" -"((lst_389)" -" val-keyss_2)" "((lst_390)" -" val-rhss_3)" +" val-keyss_2)" "((lst_391)" +" val-rhss_3)" +"((lst_392)" " val-clauses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -66860,12 +66877,6 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_388)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_389)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -66879,49 +66890,55 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_391)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_392)))" "((letrec-values(((for-loop_320)" "(lambda(fold-var_364" -" lst_392" " lst_393" " lst_394" -" lst_395)" +" lst_395" +" lst_396)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_392)" -"(if(pair?" " lst_393)" "(if(pair?" " lst_394)" -"(pair?" +"(if(pair?" " lst_395)" +"(pair?" +" lst_396)" " #f)" " #f)" " #f)" "(let-values(((ids_42)" "(unsafe-car" -" lst_392))" +" lst_393))" "((rest_224)" "(unsafe-cdr" -" lst_392))" +" lst_393))" "((keys_12)" "(unsafe-car" -" lst_393))" +" lst_394))" "((rest_225)" "(unsafe-cdr" -" lst_393))" +" lst_394))" "((rhs_22)" "(unsafe-car" -" lst_394))" +" lst_395))" "((rest_226)" "(unsafe-cdr" -" lst_394))" +" lst_395))" "((clause_4)" "(unsafe-car" -" lst_395))" +" lst_396))" "((rest_227)" "(unsafe-cdr" -" lst_395)))" +" lst_396)))" "(let-values(((fold-var_365)" "(let-values(((fold-var_366)" " fold-var_364))" @@ -66931,14 +66948,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_99)" +"(let-values(((obs_98)" "(expand-context-observer" " ctx_84)))" -"(if obs_99" +"(if obs_98" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_99" +" obs_98" " 'next)))" "(void)))" "(values))))" @@ -66987,10 +67004,10 @@ static const char *startup_source = " fold-var_364)))))" " for-loop_320)" " null" -" lst_388" " lst_389" " lst_390" -" lst_391))))))" +" lst_391" +" lst_392))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -67066,28 +67083,28 @@ static const char *startup_source = " trans-idss_2))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(log-let-renames)" -"(lambda(obs_100 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_38)" +"(lambda(obs_99 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_38)" "(begin" "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_396) val-idss_4)((lst_397) val-rhss_4))" +"(let-values(((lst_397) val-idss_4)((lst_398) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_396)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_397)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_398)))" "((letrec-values(((for-loop_321)" -"(lambda(fold-var_368 lst_398 lst_399)" +"(lambda(fold-var_368 lst_399 lst_400)" "(begin" " 'for-loop" -"(if(if(pair? lst_398)(pair? lst_399) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_398))" -"((rest_228)(unsafe-cdr lst_398))" -"((val-rhs_11)(unsafe-car lst_399))" -"((rest_229)(unsafe-cdr lst_399)))" +"(if(if(pair? lst_399)(pair? lst_400) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_399))" +"((rest_228)(unsafe-cdr lst_399))" +"((val-rhs_11)(unsafe-car lst_400))" +"((rest_229)(unsafe-cdr lst_400)))" "(let-values(((fold-var_369)" "(let-values(((fold-var_370) fold-var_368))" "(let-values(((fold-var_371)" @@ -67105,33 +67122,33 @@ static const char *startup_source = " fold-var_368)))))" " for-loop_321)" " null" -" lst_396" -" lst_397))))" +" lst_397" +" lst_398))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" -" obs_100" +" obs_99" " renames-log-tag_1" "(if(not trans-rhss_0)" " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_400) trans-idss_3)((lst_401) trans-rhss_0))" +"(let-values(((lst_401) trans-idss_3)((lst_402) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_400)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" "(let-values()(check-list lst_401)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_402)))" "((letrec-values(((for-loop_322)" -"(lambda(fold-var_372 lst_402 lst_403)" +"(lambda(fold-var_372 lst_403 lst_404)" "(begin" " 'for-loop" -"(if(if(pair? lst_402)(pair? lst_403) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_402))" -"((rest_230)(unsafe-cdr lst_402))" -"((trans-rhs_5)(unsafe-car lst_403))" -"((rest_231)(unsafe-cdr lst_403)))" +"(if(if(pair? lst_403)(pair? lst_404) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_403))" +"((rest_230)(unsafe-cdr lst_403))" +"((trans-rhs_5)(unsafe-car lst_404))" +"((rest_231)(unsafe-cdr lst_404)))" "(let-values(((fold-var_373)" "(let-values(((fold-var_374) fold-var_372))" "(let-values(((fold-var_375)" @@ -67149,21 +67166,21 @@ static const char *startup_source = " fold-var_372)))))" " for-loop_322)" " null" -" lst_400" -" lst_401))))" +" lst_401" +" lst_402))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" -"(lambda(obs_101 val-idss_5 val-rhss_5 bodys_12)" +"(lambda(obs_100 val-idss_5 val-rhss_5 bodys_12)" "(begin" "(begin" -"(call-expand-observe obs_101 'next-group)" +"(call-expand-observe obs_100 'next-group)" "(if(null? val-idss_5)" "(void)" "(let-values()" "(begin" -"(call-expand-observe obs_101 'prim-letrec-values)" -"(log-let-renames obs_101 'let-renames val-idss_5 val-rhss_5 bodys_12 #f #f #f))))))))" +"(call-expand-observe obs_100 'prim-letrec-values)" +"(log-let-renames obs_100 'let-renames val-idss_5 val-rhss_5 bodys_12 #f #f #f))))))))" "(void" "(add-core-form!*" " 'let-values" @@ -67188,9 +67205,9 @@ static const char *startup_source = "(lambda(s_562 ctx_85)" "(let-values((()" "(begin" -"(let-values(((obs_102)(expand-context-observer ctx_85)))" -"(if obs_102" -"(let-values()(let-values()(call-expand-observe obs_102 'prim-#%stratified)))" +"(let-values(((obs_101)(expand-context-observer ctx_85)))" +"(if obs_101" +"(let-values()(let-values()(call-expand-observe obs_101 'prim-#%stratified)))" "(void)))" "(values))))" "(let-values(((disarmed-s_9)(syntax-disarm$1 s_562)))" @@ -67221,7 +67238,7 @@ static const char *startup_source = "(values #t #%stratified-body223_1 body224_1))))))" "(let-values(((rebuild-s_7)" "(let-values(((ctx227_0) ctx_85)((s228_0) s_562)((temp229_1) #t))" -"(keep-as-needed85.1 #f #f temp229_1 #t #f #f ctx227_0 s228_0))))" +"(keep-as-needed86.1 #f #f temp229_1 #t #f #f ctx227_0 s228_0))))" "(let-values(((exp-body_5)" "(let-values(((temp230_2) body224_0)" "((ctx231_0) ctx_85)" @@ -67242,8 +67259,8 @@ static const char *startup_source = "(lambda(s_568 ctx_86)" "(let-values((()" "(begin" -"(let-values(((obs_103)(expand-context-observer ctx_86)))" -"(if obs_103(let-values()(let-values()(call-expand-observe obs_103 'prim-#%datum)))(void)))" +"(let-values(((obs_102)(expand-context-observer ctx_86)))" +"(if obs_102(let-values()(let-values()(call-expand-observe obs_102 'prim-#%datum)))(void)))" "(values))))" "(let-values(((disarmed-s_10)(syntax-disarm$1 s_568)))" "(let-values(((ok?_44 #%datum236_0 datum237_0)" @@ -67276,8 +67293,8 @@ static const char *startup_source = "(lambda(s_573 ctx_87)" "(let-values((()" "(begin" -"(let-values(((obs_104)(expand-context-observer ctx_87)))" -"(if obs_104(let-values()(let-values()(call-expand-observe obs_104 'prim-#%app)))(void)))" +"(let-values(((obs_103)(expand-context-observer ctx_87)))" +"(if obs_103(let-values()(let-values()(call-expand-observe obs_103 'prim-#%app)))(void)))" "(values))))" "(let-values(((disarmed-s_11)(syntax-disarm$1 s_573)))" "(let-values(((ok?_45 #%app242_0 e243_0)" @@ -67315,14 +67332,14 @@ static const char *startup_source = "(let-values(((ctx248_0) ctx_87)" "((s249_0) s_573)" "((keep-for-parsed?250_0) keep-for-parsed?_1))" -"(keep-as-needed85.1 #f #f #f #f keep-for-parsed?250_0 #t ctx248_0 s249_0))))" +"(keep-as-needed86.1 #f #f #f #f keep-for-parsed?250_0 #t ctx248_0 s249_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" "(let-values(((rebuild-prefixless_0)" "(if(syntax?$1 prefixless_0)" "(let-values(((ctx251_0) ctx_87)" "((prefixless252_0) prefixless_0)" "((keep-for-parsed?253_0) keep-for-parsed?_1))" -"(keep-as-needed85.1" +"(keep-as-needed86.1" " #f" " #f" " #f" @@ -67335,16 +67352,16 @@ static const char *startup_source = "(let-values(((expr-ctx_1)(as-expression-context ctx_87)))" "(let-values((()" "(begin" -"(let-values(((obs_105)(expand-context-observer expr-ctx_1)))" -"(if obs_105" +"(let-values(((obs_104)(expand-context-observer expr-ctx_1)))" +"(if obs_104" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_105" +" obs_104" " 'enter-list" "(datum->syntax$1 #f es_3 s_573))" -"(call-expand-observe obs_105 'next))))" +"(call-expand-observe obs_104 'next))))" "(void)))" "(values))))" "(let-values(((rest-es_0)(cdr es_3)))" @@ -67353,19 +67370,19 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp254_0 expr-ctx255_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_404) rest-es_0))" +"(let-values(((lst_405) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_404)))" +"(let-values()(check-list lst_405)))" "((letrec-values(((for-loop_323)" -"(lambda(fold-var_376 lst_405)" +"(lambda(fold-var_376 lst_406)" "(begin" " 'for-loop" -"(if(pair? lst_405)" -"(let-values(((e_92)(unsafe-car lst_405))" +"(if(pair? lst_406)" +"(let-values(((e_92)(unsafe-car lst_406))" "((rest_232)" -"(unsafe-cdr lst_405)))" +"(unsafe-cdr lst_406)))" "(let-values(((fold-var_377)" "(let-values(((fold-var_378)" " fold-var_376))" @@ -67374,14 +67391,14 @@ static const char *startup_source = "(cons" "(let-values()" "(begin" -"(let-values(((obs_106)" +"(let-values(((obs_105)" "(expand-context-observer" " expr-ctx_1)))" -"(if obs_106" +"(if obs_105" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_106" +" obs_105" " 'next)))" "(void)))" "(let-values(((e256_0)" @@ -67404,7 +67421,7 @@ static const char *startup_source = " fold-var_376)))))" " for-loop_323)" " null" -" lst_404))))))" +" lst_405))))))" "(if(expand-context-to-parsed? ctx_87)" "(let-values()" "(parsed-app7.1" @@ -67421,12 +67438,12 @@ static const char *startup_source = "(rebuild5.1 #f #f rebuild-prefixless260_0 exp-es261_0))" " exp-es_1))))" "(begin" -"(let-values(((obs_107)(expand-context-observer expr-ctx_1)))" -"(if obs_107" +"(let-values(((obs_106)(expand-context-observer expr-ctx_1)))" +"(if obs_106" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_107" +" obs_106" " 'exit-list" "(datum->syntax$1 #f es_4 rebuild-s_8))))" "(void)))" @@ -67439,8 +67456,8 @@ static const char *startup_source = "(lambda(s_579 ctx_88)" "(let-values((()" "(begin" -"(let-values(((obs_108)(expand-context-observer ctx_88)))" -"(if obs_108(let-values()(let-values()(call-expand-observe obs_108 'prim-quote)))(void)))" +"(let-values(((obs_107)(expand-context-observer ctx_88)))" +"(if obs_107(let-values()(let-values()(call-expand-observe obs_107 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_46 quote262_0 datum263_0)" "(let-values(((s_580)(syntax-disarm$1 s_579)))" @@ -67484,9 +67501,9 @@ static const char *startup_source = "(lambda(s_587 ctx_89)" "(let-values((()" "(begin" -"(let-values(((obs_109)(expand-context-observer ctx_89)))" -"(if obs_109" -"(let-values()(let-values()(call-expand-observe obs_109 'prim-quote-syntax)))" +"(let-values(((obs_108)(expand-context-observer ctx_89)))" +"(if obs_108" +"(let-values()(let-values()(call-expand-observe obs_108 'prim-quote-syntax)))" "(void)))" "(values))))" "(let-values(((disarmed-s_12)(syntax-disarm$1 s_587)))" @@ -67689,8 +67706,8 @@ static const char *startup_source = "(lambda(s_626 ctx_90)" "(let-values((()" "(begin" -"(let-values(((obs_110)(expand-context-observer ctx_90)))" -"(if obs_110(let-values()(let-values()(call-expand-observe obs_110 'prim-if)))(void)))" +"(let-values(((obs_109)(expand-context-observer ctx_90)))" +"(if obs_109(let-values()(let-values()(call-expand-observe obs_109 'prim-if)))(void)))" "(values))))" "(let-values(((disarmed-s_13)(syntax-disarm$1 s_626)))" "(let-values(((ok?_50 _290_0 _291_0 _292_0)" @@ -67849,15 +67866,15 @@ static const char *startup_source = "(as-tail-context23.1 ctx314_0 expr-ctx313_0))))" "(let-values(((rebuild-s_9)" "(let-values(((ctx315_0) ctx_90)((s316_0) s_626))" -"(keep-as-needed85.1 #f #f #f #f #f #f ctx315_0 s316_0))))" +"(keep-as-needed86.1 #f #f #f #f #f #f ctx315_0 s316_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp317_0) tst300_0)((expr-ctx318_0) expr-ctx_2))" "(expand7.1 #f #f #f #f temp317_0 expr-ctx318_0))))" "(let-values((()" "(begin" -"(let-values(((obs_111)(expand-context-observer ctx_90)))" -"(if obs_111" -"(let-values()(let-values()(call-expand-observe obs_111 'next)))" +"(let-values(((obs_110)(expand-context-observer ctx_90)))" +"(if obs_110" +"(let-values()(let-values()(call-expand-observe obs_110 'next)))" "(void)))" "(values))))" "(let-values(((exp-thn_0)" @@ -67865,9 +67882,9 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp319_0 tail-ctx320_0))))" "(let-values((()" "(begin" -"(let-values(((obs_112)(expand-context-observer ctx_90)))" -"(if obs_112" -"(let-values()(let-values()(call-expand-observe obs_112 'next)))" +"(let-values(((obs_111)(expand-context-observer ctx_90)))" +"(if obs_111" +"(let-values()(let-values()(call-expand-observe obs_111 'next)))" "(void)))" "(values))))" "(let-values(((exp-els_0)" @@ -67884,9 +67901,9 @@ static const char *startup_source = "(lambda(s_662 ctx_91)" "(let-values((()" "(begin" -"(let-values(((obs_113)(expand-context-observer ctx_91)))" -"(if obs_113" -"(let-values()(let-values()(call-expand-observe obs_113 'prim-with-continuation-mark)))" +"(let-values(((obs_112)(expand-context-observer ctx_91)))" +"(if obs_112" +"(let-values()(let-values()(call-expand-observe obs_112 'prim-with-continuation-mark)))" "(void)))" "(values))))" "(let-values(((disarmed-s_14)(syntax-disarm$1 s_662)))" @@ -67972,15 +67989,15 @@ static const char *startup_source = "(let-values(((expr-ctx_3)(as-expression-context ctx_91)))" "(let-values(((rebuild-s_10)" "(let-values(((ctx339_0) ctx_91)((s340_0) s_662))" -"(keep-as-needed85.1 #f #f #f #f #f #f ctx339_0 s340_0))))" +"(keep-as-needed86.1 #f #f #f #f #f #f ctx339_0 s340_0))))" "(let-values(((exp-key_0)" "(let-values(((temp341_0) key326_0)((expr-ctx342_0) expr-ctx_3))" "(expand7.1 #f #f #f #f temp341_0 expr-ctx342_0))))" "(let-values((()" "(begin" -"(let-values(((obs_114)(expand-context-observer ctx_91)))" -"(if obs_114" -"(let-values()(let-values()(call-expand-observe obs_114 'next)))" +"(let-values(((obs_113)(expand-context-observer ctx_91)))" +"(if obs_113" +"(let-values()(let-values()(call-expand-observe obs_113 'next)))" "(void)))" "(values))))" "(let-values(((exp-val_0)" @@ -67988,9 +68005,9 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp343_0 expr-ctx344_0))))" "(let-values((()" "(begin" -"(let-values(((obs_115)(expand-context-observer ctx_91)))" -"(if obs_115" -"(let-values()(let-values()(call-expand-observe obs_115 'next)))" +"(let-values(((obs_114)(expand-context-observer ctx_91)))" +"(if obs_114" +"(let-values()(let-values()(call-expand-observe obs_114 'next)))" "(void)))" "(values))))" "(let-values(((exp-body_6)" @@ -68017,9 +68034,9 @@ static const char *startup_source = "(lambda(s_677 ctx_92)" "(let-values((()" "(begin" -"(let-values(((obs_116)(expand-context-observer ctx_92)))" -"(if obs_116" -"(let-values()(let-values()(call-expand-observe obs_116 log-tag_1)))" +"(let-values(((obs_115)(expand-context-observer ctx_92)))" +"(if obs_115" +"(let-values()(let-values()(call-expand-observe obs_115 log-tag_1)))" "(void)))" "(values))))" "(let-values(((disarmed-s_15)(syntax-disarm$1 s_677)))" @@ -68062,7 +68079,7 @@ static const char *startup_source = "(as-expression-context ctx_92))))" "(let-values(((rebuild-s_11)" "(let-values(((ctx355_0) ctx_92)((s356_0) s_677))" -"(keep-as-needed85.1 #f #f #f #f #f #f ctx355_0 s356_0))))" +"(keep-as-needed86.1 #f #f #f #f #f #f ctx355_0 s356_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_124)" "(lambda(es_5 index_6)" @@ -68071,17 +68088,17 @@ static const char *startup_source = "(begin" "(if(zero? index_6)" "(let-values()" -"(let-values(((obs_117)" +"(let-values(((obs_116)" "(expand-context-observer ctx_92)))" -"(if obs_117" +"(if obs_116" "(let-values()" "(begin" "(if(zero? list-start-index_0)" "(void)" "(let-values()" -"(call-expand-observe obs_117 'next)))" +"(call-expand-observe obs_116 'next)))" "(call-expand-observe" -" obs_117" +" obs_116" " 'enter-list" "(datum->syntax$1 #f es_5 rebuild-s_11))))" "(void))))" @@ -68091,13 +68108,13 @@ static const char *startup_source = "(let-values()" "(let-values(((rest-es_1)(cdr es_5)))" "(begin" -"(let-values(((obs_118)" +"(let-values(((obs_117)" "(expand-context-observer" " ctx_92)))" -"(if obs_118" +"(if obs_117" "(let-values()" "(let-values()" -"(call-expand-observe obs_118 'next)))" +"(call-expand-observe obs_117 'next)))" "(void)))" "(cons" "(let-values(((temp357_0)(car es_5))" @@ -68125,12 +68142,12 @@ static const char *startup_source = " e352_0" " list-start-index_0)))" "(begin" -"(let-values(((obs_119)(expand-context-observer ctx_92)))" -"(if obs_119" +"(let-values(((obs_118)(expand-context-observer ctx_92)))" +"(if obs_118" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_119" +" obs_118" " 'exit-list" "(datum->syntax$1 #f(list-tail exp-es_2 list-start-index_0) rebuild-s_11))))" "(void)))" @@ -68212,10 +68229,10 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_120)(expand-context-observer ctx_95)))" -"(if obs_120" +"(let-values(((obs_119)(expand-context-observer ctx_95)))" +"(if obs_119" "(let-values()" -"(let-values()(call-expand-observe obs_120 'prim-#%top)))" +"(let-values()(call-expand-observe obs_119 'prim-#%top)))" "(void)))" "(values))))" "(let-values(((disarmed-s_17)(syntax-disarm$1 s_693)))" @@ -68398,8 +68415,8 @@ static const char *startup_source = "(lambda(s_704 ctx_98)" "(let-values((()" "(begin" -"(let-values(((obs_121)(expand-context-observer ctx_98)))" -"(if obs_121(let-values()(let-values()(call-expand-observe obs_121 'prim-set!)))(void)))" +"(let-values(((obs_120)(expand-context-observer ctx_98)))" +"(if obs_120(let-values()(let-values()(call-expand-observe obs_120 'prim-set!)))(void)))" "(values))))" "(let-values(((disarmed-s_18)(syntax-disarm$1 s_704)))" "(let-values(((ok?_57 set!394_0 id395_0 rhs396_0)" @@ -68508,10 +68525,10 @@ static const char *startup_source = "(lookup28.1 #f #f #f #f binding407_0 ctx408_0 s409_0))" "(values #f #f #f #f))))" "(begin" -"(let-values(((obs_122)(expand-context-observer ctx_98)))" -"(if obs_122" +"(let-values(((obs_121)(expand-context-observer ctx_98)))" +"(if obs_121" "(let-values()" -"(let-values()(call-expand-observe obs_122 'resolve id_127)))" +"(let-values()(call-expand-observe obs_121 'resolve id_127)))" "(void)))" "(if(let-values(((or-part_379)(variable? t_59)))" "(if or-part_379" @@ -68542,12 +68559,12 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_123)" +"(let-values(((obs_122)" "(expand-context-observer ctx_98)))" -"(if obs_123" +"(if obs_122" "(let-values()" "(let-values()" -"(call-expand-observe obs_123 'next)))" +"(call-expand-observe obs_122 'next)))" "(void)))" "(values))))" "(let-values((()" @@ -68556,7 +68573,7 @@ static const char *startup_source = "(values))))" "(let-values(((rebuild-s_12)" "(let-values(((ctx410_0) ctx_98)((s411_0) s_704))" -"(keep-as-needed85.1" +"(keep-as-needed86.1" " #f" " #f" " #f" @@ -68718,9 +68735,9 @@ static const char *startup_source = "(lambda(s_719 ctx_102)" "(let-values((()" "(begin" -"(let-values(((obs_124)(expand-context-observer ctx_102)))" -"(if obs_124" -"(let-values()(let-values()(call-expand-observe obs_124 'prim-#%variable-reference)))" +"(let-values(((obs_123)(expand-context-observer ctx_102)))" +"(if obs_123" +"(let-values()(let-values()(call-expand-observe obs_123 'prim-#%variable-reference)))" "(void)))" "(values))))" "(let-values(((disarmed-s_22)(syntax-disarm$1 s_719)))" @@ -68922,9 +68939,9 @@ static const char *startup_source = "(lambda(s_761 ctx_103)" "(let-values((()" "(begin" -"(let-values(((obs_125)(expand-context-observer ctx_103)))" -"(if obs_125" -"(let-values()(let-values()(call-expand-observe obs_125 'prim-#%expression)))" +"(let-values(((obs_124)(expand-context-observer ctx_103)))" +"(if obs_124" +"(let-values()(let-values()(call-expand-observe obs_124 'prim-#%expression)))" "(void)))" "(values))))" "(let-values(((disarmed-s_23)(syntax-disarm$1 s_761)))" @@ -68965,7 +68982,7 @@ static const char *startup_source = "(values #t #%expression457_1 e458_1))))))" "(let-values(((rebuild-s_13)" "(let-values(((ctx462_0) ctx_103)((s463_0) s_761)((temp464_0) #t))" -"(keep-as-needed85.1 temp464_0 #t #f #f #f #f ctx462_0 s463_0))))" +"(keep-as-needed86.1 temp464_0 #t #f #f #f #f ctx462_0 s463_0))))" "(let-values(((exp-e_0)" "(let-values(((temp465_0) e458_0)" "((temp466_0)" @@ -68983,9 +69000,9 @@ static const char *startup_source = "(let-values()" "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))" "(begin" -"(let-values(((obs_126)(expand-context-observer ctx_103)))" -"(if obs_126" -"(let-values()(let-values()(call-expand-observe obs_126 'tag result-s_13)))" +"(let-values(((obs_125)(expand-context-observer ctx_103)))" +"(if obs_125" +"(let-values()(let-values()(call-expand-observe obs_125 'tag result-s_13)))" "(void)))" " result-s_13)))" "(let-values()" @@ -69039,16 +69056,16 @@ static const char *startup_source = "((letrec-values(((for-loop_97)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_406)" +" lst_407)" "(begin" " 'for-loop" -"(if(pair? lst_406)" +"(if(pair? lst_407)" "(let-values(((spec_0)" "(unsafe-car" -" lst_406))" +" lst_407))" "((rest_233)" "(unsafe-cdr" -" lst_406)))" +" lst_407)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -69194,24 +69211,24 @@ static const char *startup_source = "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_457)" +"(let-values(((s_458)" "(if(syntax?$1" " s_167)" "(syntax-e$1" " s_167)" " s_167)))" "(if(pair?" -" s_457)" +" s_458)" "(let-values(((for-meta6_0)" -"(let-values(((s_486)" +"(let-values(((s_487)" "(car" -" s_457)))" -" s_486))" +" s_458)))" +" s_487))" "((phase-level7_0" " spec8_0)" "(let-values(((s_772)" "(cdr" -" s_457)))" +" s_458)))" "(let-values(((s_773)" "(if(syntax?$1" " s_772)" @@ -69226,15 +69243,15 @@ static const char *startup_source = " s_773)))" " s_774))" "((spec10_0)" -"(let-values(((s_493)" +"(let-values(((s_494)" "(cdr" " s_773)))" "(let-values(((s_775)" "(if(syntax?$1" -" s_493)" +" s_494)" "(syntax-e$1" -" s_493)" -" s_493)))" +" s_494)" +" s_494)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" " s_775)))" @@ -69335,20 +69352,20 @@ static const char *startup_source = "(if(pair?" " s_24)" "(let-values(((for-syntax15_0)" -"(let-values(((s_500)" +"(let-values(((s_501)" "(car" " s_24)))" -" s_500))" +" s_501))" "((spec16_0)" -"(let-values(((s_459)" +"(let-values(((s_460)" "(cdr" " s_24)))" "(let-values(((s_307)" "(if(syntax?$1" -" s_459)" +" s_460)" "(syntax-e$1" -" s_459)" -" s_459)))" +" s_460)" +" s_460)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" " s_307)))" @@ -69409,29 +69426,29 @@ static const char *startup_source = "(let-values(((ok?_64" " for-label19_0" " spec20_0)" -"(let-values(((s_502)" +"(let-values(((s_503)" " disarmed-spec_0))" "(let-values(((orig-s_65)" -" s_502))" +" s_503))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_485)" +"(let-values(((s_486)" "(if(syntax?$1" -" s_502)" +" s_503)" "(syntax-e$1" -" s_502)" -" s_502)))" +" s_503)" +" s_503)))" "(if(pair?" -" s_485)" +" s_486)" "(let-values(((for-label21_0)" "(let-values(((s_168)" "(car" -" s_485)))" +" s_486)))" " s_168))" "((spec22_0)" "(let-values(((s_27)" "(cdr" -" s_485)))" +" s_486)))" "(let-values(((s_28)" "(if(syntax?$1" " s_27)" @@ -69527,15 +69544,15 @@ static const char *startup_source = " s_776)))" " s_432))" "((p-spec28_0)" -"(let-values(((s_506)" +"(let-values(((s_507)" "(cdr" " s_776)))" "(let-values(((s_52)" "(if(syntax?$1" -" s_506)" +" s_507)" "(syntax-e$1" -" s_506)" -" s_506)))" +" s_507)" +" s_507)))" "(let-values(((flat-s_48)" "(to-syntax-list.1" " s_52)))" @@ -69626,26 +69643,26 @@ static const char *startup_source = "(if(pair?" " s_34)" "(let-values(((id:from37_0)" -"(let-values(((s_462)" +"(let-values(((s_463)" "(car" " s_34)))" "(if(let-values(((or-part_387)" "(if(syntax?$1" -" s_462)" +" s_463)" "(symbol?" "(syntax-e$1" -" s_462))" +" s_463))" " #f)))" "(if or-part_387" " or-part_387" "(symbol?" -" s_462)))" -" s_462" +" s_463)))" +" s_463" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_462))))" +" s_463))))" "((id:to38_0)" "(let-values(((s_414)" "(cdr" @@ -69774,15 +69791,15 @@ static const char *startup_source = " s_324))" "((id:struct44_0" " id:field45_0)" -"(let-values(((s_463)" +"(let-values(((s_464)" "(cdr" " s_67)))" "(let-values(((s_203)" "(if(syntax?$1" -" s_463)" +" s_464)" "(syntax-e$1" -" s_463)" -" s_463)))" +" s_464)" +" s_464)))" "(if(pair?" " s_203)" "(let-values(((id:struct46_0)" @@ -69851,17 +69868,17 @@ static const char *startup_source = " lst_155)))" "((letrec-values(((for-loop_324)" "(lambda(id:field_1" -" lst_407)" +" lst_408)" "(begin" " 'for-loop" "(if(pair?" -" lst_407)" +" lst_408)" "(let-values(((s_784)" "(unsafe-car" -" lst_407))" +" lst_408))" "((rest_234)" "(unsafe-cdr" -" lst_407)))" +" lst_408)))" "(let-values(((id:field_2)" "(let-values(((id:field_3)" " id:field_1))" @@ -70073,24 +70090,24 @@ static const char *startup_source = "(let-values(((all-from-except55_1" " mod-path56_1" " id57_1)" -"(let-values(((s_516)" +"(let-values(((s_517)" "(if(syntax?$1" " s_110)" "(syntax-e$1" " s_110)" " s_110)))" "(if(pair?" -" s_516)" +" s_517)" "(let-values(((all-from-except58_0)" "(let-values(((s_525)" "(car" -" s_516)))" +" s_517)))" " s_525))" "((mod-path59_0" " id60_0)" "(let-values(((s_786)" "(cdr" -" s_516)))" +" s_517)))" "(let-values(((s_330)" "(if(syntax?$1" " s_786)" @@ -70126,7 +70143,7 @@ static const char *startup_source = " orig-s_70))" "(let-values()" "(let-values(((id_132)" -"(let-values(((lst_408)" +"(let-values(((lst_409)" " flat-s_49))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70134,20 +70151,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_408)))" +" lst_409)))" "((letrec-values(((for-loop_325)" "(lambda(id_133" -" lst_409)" +" lst_410)" "(begin" " 'for-loop" "(if(pair?" -" lst_409)" +" lst_410)" "(let-values(((s_116)" "(unsafe-car" -" lst_409))" +" lst_410))" "((rest_235)" "(unsafe-cdr" -" lst_409)))" +" lst_410)))" "(let-values(((id_134)" "(let-values(((id_135)" " id_133))" @@ -70186,7 +70203,7 @@ static const char *startup_source = " id_133)))))" " for-loop_325)" " null" -" lst_408)))))" +" lst_409)))))" "(reverse$1" " id_132)))))))))" "(values" @@ -70306,29 +70323,29 @@ static const char *startup_source = "(let-values(((ok?_71" " all-defined-except66_0" " id67_0)" -"(let-values(((s_470)" +"(let-values(((s_471)" " disarmed-spec_0))" "(let-values(((orig-s_72)" -" s_470))" +" s_471))" "(let-values(((all-defined-except66_1" " id67_1)" -"(let-values(((s_444)" +"(let-values(((s_445)" "(if(syntax?$1" -" s_470)" +" s_471)" "(syntax-e$1" -" s_470)" -" s_470)))" +" s_471)" +" s_471)))" "(if(pair?" -" s_444)" +" s_445)" "(let-values(((all-defined-except68_0)" "(let-values(((s_789)" "(car" -" s_444)))" +" s_445)))" " s_789))" "((id69_0)" "(let-values(((s_790)" "(cdr" -" s_444)))" +" s_445)))" "(let-values(((s_791)" "(if(syntax?$1" " s_790)" @@ -70347,7 +70364,7 @@ static const char *startup_source = " orig-s_72))" "(let-values()" "(let-values(((id_137)" -"(let-values(((lst_410)" +"(let-values(((lst_411)" " flat-s_50))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70355,20 +70372,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_410)))" +" lst_411)))" "((letrec-values(((for-loop_326)" "(lambda(id_33" -" lst_411)" +" lst_412)" "(begin" " 'for-loop" "(if(pair?" -" lst_411)" +" lst_412)" "(let-values(((s_792)" "(unsafe-car" -" lst_411))" +" lst_412))" "((rest_236)" "(unsafe-cdr" -" lst_411)))" +" lst_412)))" "(let-values(((id_138)" "(let-values(((id_139)" " id_33))" @@ -70407,7 +70424,7 @@ static const char *startup_source = " id_33)))))" " for-loop_326)" " null" -" lst_410)))))" +" lst_411)))))" "(reverse$1" " id_137)))))))))" "(values" @@ -70639,7 +70656,7 @@ static const char *startup_source = " orig-s_74))" "(let-values()" "(let-values(((id_141)" -"(let-values(((lst_412)" +"(let-values(((lst_413)" " flat-s_51))" "(begin" "(if(variable-reference-from-unsafe?" @@ -70647,20 +70664,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_412)))" +" lst_413)))" "((letrec-values(((for-loop_327)" "(lambda(id_142" -" lst_413)" +" lst_414)" "(begin" " 'for-loop" "(if(pair?" -" lst_413)" +" lst_414)" "(let-values(((s_532)" "(unsafe-car" -" lst_413))" +" lst_414))" "((rest_237)" "(unsafe-cdr" -" lst_413)))" +" lst_414)))" "(let-values(((id_143)" "(let-values(((id_90)" " id_142))" @@ -70699,7 +70716,7 @@ static const char *startup_source = " id_142)))))" " for-loop_327)" " null" -" lst_412)))))" +" lst_413)))))" "(reverse$1" " id_141)))))))))" "(values" @@ -70763,7 +70780,7 @@ static const char *startup_source = "(car" " s_369)))" " s_797))" -"((id89_1" +"((id89_2" " datum90_0)" "(let-values(((s_798)" "(cdr" @@ -70848,7 +70865,7 @@ static const char *startup_source = " orig-s_75))))))" "(values" " expand88_0" -" id89_1" +" id89_2" " datum90_0))" "(raise-syntax-error$1" " #f" @@ -70933,7 +70950,7 @@ static const char *startup_source = " expand95_1" " form96_1))))))" "(let-values(((exp-spec_0)" -"(let-values(((temp104_6)" +"(let-values(((temp104_5)" " form96_0)" "((temp105_5)" "(let-values(((v_263)" @@ -71050,7 +71067,7 @@ static const char *startup_source = " #f" " #f" " #f" -" temp104_6" +" temp104_5" " temp105_5))))" "(let-values((()" "(begin" @@ -71085,23 +71102,23 @@ static const char *startup_source = " s_546))" "(let-values(((begin100_1" " spec101_1)" -"(let-values(((s_490)" +"(let-values(((s_491)" "(if(syntax?$1" " s_546)" "(syntax-e$1" " s_546)" " s_546)))" "(if(pair?" -" s_490)" +" s_491)" "(let-values(((begin102_0)" "(let-values(((s_263)" "(car" -" s_490)))" +" s_491)))" " s_263))" "((spec103_0)" "(let-values(((s_134)" "(cdr" -" s_490)))" +" s_491)))" "(let-values(((s_805)" "(if(syntax?$1" " s_134)" @@ -71234,17 +71251,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_107 id:struct_0))))))" "(begin" -" (let-values (((lst_414) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_415) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_414)))" +"(let-values()(check-list lst_415)))" "((letrec-values(((for-loop_328)" -"(lambda(lst_415)" +"(lambda(lst_416)" "(begin" " 'for-loop" -"(if(pair? lst_415)" -"(let-values(((fmt_3)(unsafe-car lst_415))((rest_238)(unsafe-cdr lst_415)))" +"(if(pair? lst_416)" +"(let-values(((fmt_3)(unsafe-car lst_416))((rest_238)(unsafe-cdr lst_416)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71265,19 +71282,19 @@ static const char *startup_source = "(if(not #f)(for-loop_328 rest_238)(values))))" "(values))))))" " for-loop_328)" -" lst_414)))" +" lst_415)))" "(void)" -"(let-values(((lst_416) fields_0))" +"(let-values(((lst_417) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_416)))" +"(let-values()(check-list lst_417)))" "((letrec-values(((for-loop_329)" -"(lambda(lst_417)" +"(lambda(lst_418)" "(begin" " 'for-loop" -"(if(pair? lst_417)" -"(let-values(((field_0)(unsafe-car lst_417))((rest_239)(unsafe-cdr lst_417)))" +"(if(pair? lst_418)" +"(let-values(((field_0)(unsafe-car lst_418))((rest_239)(unsafe-cdr lst_418)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71312,7 +71329,7 @@ static const char *startup_source = "(if(not #f)(for-loop_329 rest_239)(values))))" "(values))))))" " for-loop_329)" -" lst_416)))" +" lst_417)))" "(void)))))))" "(define-values" "(parse-all-from)" @@ -71360,18 +71377,18 @@ static const char *startup_source = " (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_108)) sym_108)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_418) requireds_2))" +"(let-values(((lst_419) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_418)))" +"(let-values()(check-list lst_419)))" "((letrec-values(((for-loop_330)" -"(lambda(lst_419)" +"(lambda(lst_420)" "(begin" " 'for-loop" -"(if(pair? lst_419)" -"(let-values(((i_193)(unsafe-car lst_419))" -"((rest_240)(unsafe-cdr lst_419)))" +"(if(pair? lst_420)" +"(let-values(((i_193)(unsafe-car lst_420))" +"((rest_240)(unsafe-cdr lst_420)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71401,7 +71418,7 @@ static const char *startup_source = " #f)))" "(if or-part_394" " or-part_394" -"(let-values(((lst_420)" +"(let-values(((lst_421)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71409,20 +71426,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_420)))" +" lst_421)))" "((letrec-values(((for-loop_331)" "(lambda(result_132" -" lst_421)" +" lst_422)" "(begin" " 'for-loop" "(if(pair?" -" lst_421)" +" lst_422)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_421))" +" lst_422))" "((rest_241)" "(unsafe-cdr" -" lst_421)))" +" lst_422)))" "(let-values(((result_133)" "(let-values()" "(let-values(((result_134)" @@ -71454,7 +71471,7 @@ static const char *startup_source = " result_132)))))" " for-loop_331)" " #f" -" lst_420)))))" +" lst_421)))))" "(void)" "(let-values()" "(let-values(((b_96)" @@ -71463,11 +71480,11 @@ static const char *startup_source = " phase_153" " ns_129)))" "(let-values(((immed-b_1)" -"(let-values(((id130_0)" +"(let-values(((id130_1)" " id_145)" "((phase131_0)" " phase_153)" -"((temp132_1)" +"((temp132_2)" " #t))" "(resolve+shift30.1" " #f" @@ -71476,11 +71493,11 @@ static const char *startup_source = " #f" " #f" " #f" -" temp132_1" +" temp132_2" " #t" " #f" " #f" -" id130_0" +" id130_1" " phase131_0))))" "(let-values(((rp121_0)" " rp_5)" @@ -71500,12 +71517,12 @@ static const char *startup_source = " orig-s_81)" "((protected?128_0)" " protected?_19)" -"((temp129_1)" +"((temp129_2)" "(required-as-transformer?" " i_193)))" "(add-provide!117.1" " protected?128_0" -" temp129_1" +" temp129_2" " rp121_0" " temp122_4" " phase123_0" @@ -71518,24 +71535,24 @@ static const char *startup_source = "(if(not #f)(for-loop_330 rest_240)(values))))" "(values))))))" " for-loop_330)" -" lst_418)))" +" lst_419)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_422) except-ids_1))" +"(let-values(((lst_423) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_422)))" +"(let-values()(check-list lst_423)))" "((letrec-values(((for-loop_332)" -"(lambda(lst_423)" +"(lambda(lst_290)" "(begin" " 'for-loop" -"(if(pair? lst_423)" -"(let-values(((except-id_1)(unsafe-car lst_423))" -"((rest_242)(unsafe-cdr lst_423)))" +"(if(pair? lst_290)" +"(let-values(((except-id_1)(unsafe-car lst_290))" +"((rest_157)(unsafe-cdr lst_290)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71617,10 +71634,10 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_332 rest_242)(values))))" +"(if(not #f)(for-loop_332 rest_157)(values))))" "(values))))))" " for-loop_332)" -" lst_422)))" +" lst_423)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -71719,7 +71736,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_85)" "(let-values(((rand_0)(unsafe-car lst_85))" -"((rest_243)(unsafe-cdr lst_85)))" +"((rest_242)(unsafe-cdr lst_85)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71732,7 +71749,7 @@ static const char *startup_source = " e_93))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_82 rest_243)(values))))" +"(if(not #f)(for-loop_82 rest_242)(values))))" "(values))))))" " for-loop_82)" " lst_78)))" @@ -71781,7 +71798,7 @@ static const char *startup_source = " 'for-loop" "(if(pair? lst_425)" "(let-values(((clause_5)(unsafe-car lst_425))" -"((rest_244)(unsafe-cdr lst_425)))" +"((rest_243)(unsafe-cdr lst_425)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71792,7 +71809,7 @@ static const char *startup_source = "(cadr clause_5)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_241 rest_244)(values))))" +"(if(not #f)(for-loop_241 rest_243)(values))))" "(values))))))" " for-loop_241)" " lst_271)))" @@ -71990,8 +72007,8 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((obs_127)(expand-context-observer ctx_108)))" -"(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-module)))(void)))" +"(let-values(((obs_126)(expand-context-observer ctx_108)))" +"(if obs_126(let-values()(let-values()(call-expand-observe obs_126 'prim-module)))(void)))" " (raise-syntax-error$1 #f \"allowed only at the top level\" s_43))))" "(let-values()" "(let-values(((s223_0) s_43)((ctx224_0) ctx_108)((temp225_1) #f))" @@ -72001,8 +72018,8 @@ static const char *startup_source = " 'module*" "(lambda(s_426 ctx_15)" "(begin" -"(let-values(((obs_128)(expand-context-observer ctx_15)))" -"(if obs_128(let-values()(let-values()(call-expand-observe obs_128 'prim-module)))(void)))" +"(let-values(((obs_127)(expand-context-observer ctx_15)))" +"(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-module)))(void)))" " (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_426)))))" "(void" "(add-core-form!*" @@ -72075,8 +72092,8 @@ static const char *startup_source = " '#%declare" "(lambda(s_806 ctx_110)" "(begin" -"(let-values(((obs_129)(expand-context-observer ctx_110)))" -"(if obs_129(let-values()(let-values()(call-expand-observe obs_129 'prim-declare)))(void)))" +"(let-values(((obs_128)(expand-context-observer ctx_110)))" +"(if obs_128(let-values()(let-values()(call-expand-observe obs_128 'prim-declare)))(void)))" " (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_806)))))" "(define-values" "(expand-module18.1)" @@ -72099,7 +72116,7 @@ static const char *startup_source = " enclosing-self17_0)" "(begin" " 'expand-module18" -"(let-values(((s_484) s15_0))" +"(let-values(((s_485) s15_0))" "(let-values(((init-ctx_0) init-ctx16_0))" "(let-values(((enclosing-self_1) enclosing-self17_0))" "(let-values(((always-produce-compiled?_0)(if always-produce-compiled?8_0 always-produce-compiled?1_0 #f)))" @@ -72120,13 +72137,13 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_130)(expand-context-observer init-ctx_0)))" -"(if obs_130" +"(let-values(((obs_129)(expand-context-observer init-ctx_0)))" +"(if obs_129" "(let-values()" -"(let-values()(call-expand-observe obs_130 'prim-module)))" +"(let-values()(call-expand-observe obs_129 'prim-module)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_24)(syntax-disarm$1 s_484)))" +"(let-values(((disarmed-s_24)(syntax-disarm$1 s_485)))" "(let-values(((ok?_77 module228_0 id:module-name229_0 initial-require230_0 body231_0)" "(let-values(((s_52) disarmed-s_24))" "(let-values(((orig-s_82) s_52))" @@ -72174,15 +72191,15 @@ static const char *startup_source = " s_808))))" "((initial-require237_0" " body238_0)" -"(let-values(((s_508)" +"(let-values(((s_509)" "(cdr" " s_319)))" "(let-values(((s_809)" "(if(syntax?$1" -" s_508)" +" s_509)" "(syntax-e$1" -" s_508)" -" s_508)))" +" s_509)" +" s_509)))" "(if(pair?" " s_809)" "(let-values(((initial-require239_0)" @@ -72241,10 +72258,10 @@ static const char *startup_source = " body231_1))))))" "(let-values(((rebuild-s_14)" "(let-values(((init-ctx253_0) init-ctx_0)" -"((s254_0) s_484)" +"((s254_0) s_485)" "((temp255_0) #t)" "((temp256_0) #t))" -"(keep-as-needed85.1" +"(keep-as-needed86.1" " #f" " #f" " temp256_0" @@ -72265,7 +72282,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"not a module path\"" -" s_484" +" s_485" " initial-require230_0)))" "(values))))" "(let-values(((phase_155) 0))" @@ -72506,43 +72523,43 @@ static const char *startup_source = " _274_1" " _275_1" " body276_1)" -"(let-values(((s_442)" +"(let-values(((s_443)" "(if(syntax?$1" " s_810)" "(syntax-e$1" " s_810)" " s_810)))" "(if(pair?" -" s_442)" +" s_443)" "(let-values(((_277_2)" "(let-values(((s_70)" "(car" -" s_442)))" +" s_443)))" " s_70))" "((_278_2" " _279_0" " body280_0)" "(let-values(((s_208)" "(cdr" -" s_442)))" -"(let-values(((s_466)" +" s_443)))" +"(let-values(((s_467)" "(if(syntax?$1" " s_208)" "(syntax-e$1" " s_208)" " s_208)))" "(if(pair?" -" s_466)" +" s_467)" "(let-values(((_281_1)" "(let-values(((s_99)" "(car" -" s_466)))" +" s_467)))" " s_99))" "((_282_0" " body283_0)" "(let-values(((s_39)" "(cdr" -" s_466)))" +" s_467)))" "(let-values(((s_157)" "(if(syntax?$1" " s_39)" @@ -72552,20 +72569,20 @@ static const char *startup_source = "(if(pair?" " s_157)" "(let-values(((_284_0)" -"(let-values(((s_467)" +"(let-values(((s_468)" "(car" " s_157)))" -" s_467))" +" s_468))" "((body285_0)" -"(let-values(((s_468)" +"(let-values(((s_469)" "(cdr" " s_157)))" "(let-values(((s_328)" "(if(syntax?$1" -" s_468)" +" s_469)" "(syntax-e$1" -" s_468)" -" s_468)))" +" s_469)" +" s_469)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" " s_328)))" @@ -72693,14 +72710,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_131)" +"(let-values(((obs_130)" "(expand-context-observer" " init-ctx_0)))" -"(if obs_131" +"(if obs_130" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_131" +" obs_130" " 'prepare-env)))" "(void)))" "(values))))" @@ -72896,14 +72913,14 @@ static const char *startup_source = " inside-scope_0)))" "(let-values((()" "(begin" -"(let-values(((obs_132)" +"(let-values(((obs_131)" "(expand-context-observer" " ctx_112)))" -"(if obs_132" +"(if obs_131" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_132" +" obs_131" " 'rename-one" " added-s_2)))" "(void)))" @@ -72920,23 +72937,23 @@ static const char *startup_source = " s_811))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_469)" +"(let-values(((s_470)" "(if(syntax?$1" " s_811)" "(syntax-e$1" " s_811)" " s_811)))" "(if(pair?" -" s_469)" +" s_470)" "(let-values(((#%module-begin303_0)" "(let-values(((s_221)" "(car" -" s_469)))" +" s_470)))" " s_221))" "((body304_0)" "(let-values(((s_222)" "(cdr" -" s_469)))" +" s_470)))" "(let-values(((s_223)" "(if(syntax?$1" " s_222)" @@ -72973,7 +72990,7 @@ static const char *startup_source = " ctx_112)" "((mb-s317_0)" " mb-s_0))" -"(keep-as-needed85.1" +"(keep-as-needed86.1" " #f" " #f" " #f" @@ -73209,14 +73226,14 @@ static const char *startup_source = " bodys347_0))))" "(let-values((()" "(begin" -"(let-values(((obs_133)" +"(let-values(((obs_132)" "(expand-context-observer" " partial-body-ctx_0)))" -"(if obs_133" +"(if obs_132" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_133" +" obs_132" " 'next-group)))" "(void)))" "(values))))" @@ -73437,14 +73454,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_134)" +"(let-values(((obs_133)" "(expand-context-observer" " ctx_112)))" -"(if obs_134" +"(if obs_133" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_134" +" obs_133" " 'next)))" "(void)))" "(values))))" @@ -73806,7 +73823,7 @@ static const char *startup_source = "((phase419_0)" " phase_155)" "((s420_0)" -" s_484))" +" s_485))" "(ensure-module-begin36.1" " mb-ctx417_0" " mb-def-ctx-scopes418_0" @@ -73897,7 +73914,7 @@ static const char *startup_source = "(let-values(((mpi_59)" "(unsafe-car" " lst_427))" -"((rest_245)" +"((rest_244)" "(unsafe-cdr" " lst_427)))" "(let-values((()" @@ -73913,7 +73930,7 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_335" -" rest_245)" +" rest_244)" "(values))))" "(values))))))" " for-loop_335)" @@ -73964,14 +73981,14 @@ static const char *startup_source = " #t)" " result-s_17)))" "(begin" -"(let-values(((obs_135)" +"(let-values(((obs_134)" "(expand-context-observer" " init-ctx_0)))" -"(if obs_135" +"(if obs_134" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_135" +" obs_134" " 'rename-one" " result-s_18)))" "(void)))" @@ -74037,11 +74054,11 @@ static const char *startup_source = "(if(= 1(length bodys_17))" "(let-values()" "(begin" -"(let-values(((obs_136)(expand-context-observer ctx_114)))" -"(if obs_136" +"(let-values(((obs_135)(expand-context-observer ctx_114)))" +"(if obs_135" "(let-values()" "(let-values()" -"(call-expand-observe obs_136 'rename-one(car bodys_17))))" +"(call-expand-observe obs_135 'rename-one(car bodys_17))))" "(void)))" "(if(eq?" " '#%module-begin" @@ -74133,21 +74150,21 @@ static const char *startup_source = "(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_18) s_812 s_812)))" "(let-values((()" "(begin" -"(let-values(((obs_137)(expand-context-observer mb-ctx_1)))" -"(if obs_137" +"(let-values(((obs_136)(expand-context-observer mb-ctx_1)))" +"(if obs_136" "(let-values()" -"(let-values()(call-expand-observe obs_137 'tag mb_2)))" +"(let-values()(call-expand-observe obs_136 'tag mb_2)))" "(void)))" "(values))))" "(let-values((()" "(begin" "(if log-rename-one?_0" "(let-values()" -"(let-values(((obs_138)(expand-context-observer mb-ctx_1)))" -"(if obs_138" +"(let-values(((obs_137)(expand-context-observer mb-ctx_1)))" +"(if obs_137" "(let-values()" "(let-values()" -"(call-expand-observe obs_138 'rename-one mb_2)))" +"(call-expand-observe obs_137 'rename-one mb_2)))" "(void))))" "(void))" "(values))))" @@ -74267,14 +74284,14 @@ static const char *startup_source = "(if(if tail?_52(not(zero? phase_53)) #f)" "(let-values()" "(begin" -"(let-values(((obs_139)" +"(let-values(((obs_138)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_139" +"(if obs_138" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_139" +" obs_138" " 'module-lift-end-loop" " '())))" "(void)))" @@ -74290,14 +74307,14 @@ static const char *startup_source = "(expand-context-to-module-lifts" " partial-body-ctx_1)))))" "(begin" -"(let-values(((obs_140)" +"(let-values(((obs_139)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_140" +"(if obs_139" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_140" +" obs_139" " 'module-lift-end-loop" " bodys_21)))" "(void)))" @@ -74314,14 +74331,14 @@ static const char *startup_source = "(let-values(((rest-bodys_1)(cdr bodys_20)))" "(let-values((()" "(begin" -"(let-values(((obs_141)" +"(let-values(((obs_140)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_141" +"(if obs_140" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_141" +" obs_140" " 'next)))" "(void)))" "(values))))" @@ -74353,14 +74370,14 @@ static const char *startup_source = " exp-body_7" " rest-bodys_1))" "(void))" -"(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()" "(call-expand-observe" -" obs_142" +" obs_141" " 'rename-one" " exp-body_7)))" "(void)))" @@ -74445,14 +74462,14 @@ static const char *startup_source = " e461_1)" " rest-bodys_1)))" "(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()" "(call-expand-observe" -" obs_143" +" obs_142" " 'splice" " spliced-bodys_0)))" "(void)))" @@ -74465,22 +74482,22 @@ static const char *startup_source = "(let-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()" "(begin" "(call-expand-observe" -" obs_144" +" obs_143" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_144" +" obs_143" " 'prim-begin-for-syntax)" "(call-expand-observe" -" obs_144" +" obs_143" " 'prepare-env))))" "(void)))" "(values))))" @@ -74496,14 +74513,14 @@ static const char *startup_source = "(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" " 'phase-up)))" "(void)))" "(values))))" @@ -74568,14 +74585,14 @@ static const char *startup_source = "(add1" " phase_53))))" "(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()" "(call-expand-observe" -" obs_146" +" obs_145" " 'next-group)))" "(void)))" "(namespace-run-available-modules!" @@ -74592,14 +74609,14 @@ static const char *startup_source = "(namespace-visit-available-modules!" " m-ns_19" " phase_53)" -"(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" "(let-values(((s-nested-bodys_0)" "(reverse$1" @@ -74622,7 +74639,7 @@ static const char *startup_source = "(let-values(((nested-body_0)" "(unsafe-car" " lst_429))" -"((rest_246)" +"((rest_245)" "(unsafe-cdr" " lst_429)))" "(let-values(((fold-var_381)" @@ -74641,7 +74658,7 @@ static const char *startup_source = " #f)" "(for-loop_336" " fold-var_381" -" rest_246)" +" rest_245)" " fold-var_381)))" " fold-var_380)))))" " for-loop_336)" @@ -74667,19 +74684,19 @@ static const char *startup_source = "(let-values()" "(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-define-values))))" "(void)))" "(values))))" @@ -74761,7 +74778,7 @@ static const char *startup_source = "(let-values(((s_830)" "(unsafe-car" " lst_148))" -"((rest_247)" +"((rest_246)" "(unsafe-cdr" " lst_148)))" "(let-values(((id_151)" @@ -74797,7 +74814,7 @@ static const char *startup_source = " #f)" "(for-loop_337" " id_151" -" rest_247)" +" rest_246)" " id_151)))" " id_150)))))" " for-loop_337)" @@ -74947,14 +74964,14 @@ static const char *startup_source = " requires+provides484_0" " syms485_0" " phase486_0))" -"(let-values(((obs_149)" +"(let-values(((obs_148)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_149" +"(if obs_148" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_149" +" obs_148" " 'exit-prim" "(datum->syntax$1" " #f" @@ -74979,22 +74996,22 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_150)" +"(let-values(((obs_149)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_150" +"(if obs_149" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_150" +" obs_149" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_150" +" obs_149" " 'prim-define-syntaxes)" "(call-expand-observe" -" obs_150" +" obs_149" " 'prepare-env))))" "(void)))" "(values))))" @@ -75005,14 +75022,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_151)" +"(let-values(((obs_150)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_151" +"(if obs_150" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_151" +" obs_150" " 'phase-up)))" "(void)))" "(values))))" @@ -75094,7 +75111,7 @@ static const char *startup_source = "(let-values(((s_843)" "(unsafe-car" " lst_432))" -"((rest_248)" +"((rest_247)" "(unsafe-cdr" " lst_432)))" "(let-values(((id_156)" @@ -75130,7 +75147,7 @@ static const char *startup_source = " #f)" "(for-loop_338" " id_156" -" rest_248)" +" rest_247)" " id_156)))" " id_155)))))" " for-loop_338)" @@ -75290,29 +75307,31 @@ static const char *startup_source = " parsed-rhs_2" " vals_10)" "(let-values(((temp526_0)" +" 'define-syntaxes)" +"((temp527_0)" " rhs498_0)" -"((ids527_0)" +"((ids528_0)" " ids_44)" -"((temp528_0)" +"((temp529_0)" "(let-values(((v_270)" " partial-body-ctx_1))" "(let-values(((the-struct_112)" " v_270))" "(if(expand-context/outer?" " the-struct_112)" -"(let-values(((need-eventually-defined530_0)" +"(let-values(((need-eventually-defined531_0)" " need-eventually-defined_2)" -"((inner531_0)" +"((inner532_0)" "(let-values(((the-struct_113)" "(root-expand-context/outer-inner" " v_270)))" "(if(expand-context/inner?" " the-struct_113)" -"(let-values(((lifts532_0)" +"(let-values(((lifts533_0)" " #f)" -"((module-lifts533_0)" +"((module-lifts534_0)" " #f)" -"((to-module-lifts534_0)" +"((to-module-lifts535_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" @@ -75347,13 +75366,13 @@ static const char *startup_source = " the-struct_113)" "(expand-context/inner-declared-submodule-names" " the-struct_113)" -" lifts532_0" +" lifts533_0" "(expand-context/inner-lift-envs" " the-struct_113)" -" module-lifts533_0" +" module-lifts534_0" "(expand-context/inner-require-lifts" " the-struct_113)" -" to-module-lifts534_0" +" to-module-lifts535_0" "(expand-context/inner-requires+provides" " the-struct_113)" "(expand-context/inner-observer" @@ -75367,7 +75386,7 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_113)))))" "(expand-context/outer1.1" -" inner531_0" +" inner532_0" "(root-expand-context/outer-post-expansion-scope" " the-struct_112)" "(root-expand-context/outer-use-site-scopes" @@ -75390,7 +75409,7 @@ static const char *startup_source = " the-struct_112)" "(expand-context/outer-only-immediate?" " the-struct_112)" -" need-eventually-defined530_0" +" need-eventually-defined531_0" "(expand-context/outer-current-introduction-scopes" " the-struct_112)" "(expand-context/outer-name" @@ -75399,21 +75418,22 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_112)))))" -"((temp529_0)" +"((temp530_0)" " #f))" -"(expand+eval-for-syntaxes-binding74.1" -" temp529_0" +"(expand+eval-for-syntaxes-binding75.1" +" temp530_0" " #t" " temp526_0" -" ids527_0" -" temp528_0))))" +" temp527_0" +" ids528_0" +" temp529_0))))" "(let-values((()" "(begin" -"(let-values(((lst_151)" +"(let-values(((lst_433)" " syms_24)" -"((lst_433)" -" vals_10)" "((lst_434)" +" vals_10)" +"((lst_435)" " ids_44))" "(begin" "(if(variable-reference-from-unsafe?" @@ -75421,12 +75441,6 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_151)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_433)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -75434,38 +75448,44 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_434)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_435)))" "((letrec-values(((for-loop_339)" -"(lambda(lst_435" -" lst_436" -" lst_437)" +"(lambda(lst_436" +" lst_437" +" lst_438)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_435)" -"(if(pair?" " lst_436)" -"(pair?" +"(if(pair?" " lst_437)" +"(pair?" +" lst_438)" " #f)" " #f)" "(let-values(((sym_109)" "(unsafe-car" -" lst_435))" -"((rest_249)" +" lst_436))" +"((rest_248)" "(unsafe-cdr" -" lst_435))" +" lst_436))" "((val_87)" "(unsafe-car" -" lst_436))" -"((rest_250)" +" lst_437))" +"((rest_249)" "(unsafe-cdr" -" lst_436))" +" lst_437))" "((id_159)" "(unsafe-car" -" lst_437))" -"((rest_251)" +" lst_438))" +"((rest_250)" "(unsafe-cdr" -" lst_437)))" +" lst_438)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75488,27 +75508,27 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_339" +" rest_248" " rest_249" -" rest_250" -" rest_251)" +" rest_250)" "(values))))" "(values))))))" " for-loop_339)" -" lst_151" " lst_433" -" lst_434)))" +" lst_434" +" lst_435)))" "(values))))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_152)" +"(let-values(((obs_151)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_152" +"(if obs_151" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_152" +" obs_151" " 'exit-prim" "(datum->syntax$1" " #f" @@ -75530,9 +75550,9 @@ static const char *startup_source = " partial-body-ctx_1)" " parsed-body_0" "(expanded+parsed1.1" -"(let-values(((exp-body535_0)" +"(let-values(((exp-body536_0)" " exp-body_7)" -"((temp536_0)" +"((temp537_0)" "(list" " define-syntaxes496_0" " ids_44" @@ -75540,8 +75560,8 @@ static const char *startup_source = "(rebuild5.1" " #f" " #f" -" exp-body535_0" -" temp536_0))" +" exp-body536_0" +" temp537_0))" " parsed-body_0))" "(loop_125" " tail?_52" @@ -75552,19 +75572,19 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_153)" +"(let-values(((obs_152)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_153" +"(if obs_152" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_153" +" obs_152" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_153" +" obs_152" " 'prim-require))))" "(void)))" "(values))))" @@ -75573,40 +75593,40 @@ static const char *startup_source = " disarmed-exp-body_1" " partial-body-ctx_1)))" "(let-values(((ok?_84" -" #%require537_0" -" req538_0)" -"(let-values(((s_571)" +" #%require538_0" +" req539_0)" +"(let-values(((s_572)" " ready-body_0))" "(let-values(((orig-s_89)" -" s_571))" -"(let-values(((#%require537_1" -" req538_1)" -"(let-values(((s_573)" -"(if(syntax?$1" -" s_571)" -"(syntax-e$1" -" s_571)" -" s_571)))" -"(if(pair?" -" s_573)" -"(let-values(((#%require539_0)" +" s_572))" +"(let-values(((#%require538_1" +" req539_1)" "(let-values(((s_848)" -"(car" -" s_573)))" -" s_848))" -"((req540_0)" -"(let-values(((s_849)" -"(cdr" -" s_573)))" -"(let-values(((s_850)" "(if(syntax?$1" -" s_849)" +" s_572)" "(syntax-e$1" -" s_849)" -" s_849)))" +" s_572)" +" s_572)))" +"(if(pair?" +" s_848)" +"(let-values(((#%require540_0)" +"(let-values(((s_849)" +"(car" +" s_848)))" +" s_849))" +"((req541_0)" +"(let-values(((s_850)" +"(cdr" +" s_848)))" +"(let-values(((s_851)" +"(if(syntax?$1" +" s_850)" +"(syntax-e$1" +" s_850)" +" s_850)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_850)))" +" s_851)))" "(if(not" " flat-s_60)" "(let-values()" @@ -75617,68 +75637,68 @@ static const char *startup_source = "(let-values()" " flat-s_60)))))))" "(values" -" #%require539_0" -" req540_0))" +" #%require540_0" +" req541_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_89)))))" "(values" " #t" -" #%require537_1" -" req538_1))))))" +" #%require538_1" +" req539_1))))))" "(begin" -"(let-values(((temp541_0)" -" req538_0)" -"((exp-body542_0)" +"(let-values(((temp542_0)" +" req539_0)" +"((exp-body543_0)" " exp-body_7)" -"((self543_0)" +"((self544_0)" " self_33)" -"((m-ns544_0)" +"((m-ns545_0)" " m-ns_19)" -"((phase545_0)" -" phase_53)" "((phase546_0)" " phase_53)" -"((requires+provides547_0)" +"((phase547_0)" +" phase_53)" +"((requires+provides548_0)" " requires+provides_7)" -"((declared-submodule-names548_0)" +"((declared-submodule-names549_0)" " declared-submodule-names_4)" -"((temp549_0)" +"((temp550_0)" " 'module))" "(parse-and-perform-requires!30.1" " #f" " #f" " #f" " #f" -" declared-submodule-names548_0" +" declared-submodule-names549_0" " #t" " #f" " #f" +" phase547_0" +" #t" +" #f" +" #f" +" self544_0" +" #t" +" #f" +" #f" +" #f" +" #f" +" temp550_0" +" temp542_0" +" exp-body543_0" +" m-ns545_0" " phase546_0" -" #t" -" #f" -" #f" -" self543_0" -" #t" -" #f" -" #f" -" #f" -" #f" -" temp549_0" -" temp541_0" -" exp-body542_0" -" m-ns544_0" -" phase545_0" -" requires+provides547_0))" -"(let-values(((obs_154)" +" requires+provides548_0))" +"(let-values(((obs_153)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_154" +"(if obs_153" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_154" +" obs_153" " 'exit-prim" " ready-body_0)))" "(void)))" @@ -75705,39 +75725,39 @@ static const char *startup_source = " exp-body_7" " partial-body-ctx_1)))" "(let-values(((submod_2)" -"(let-values(((ready-body550_0)" +"(let-values(((ready-body551_0)" " ready-body_1)" -"((self551_0)" +"((self552_0)" " self_33)" -"((partial-body-ctx552_0)" +"((partial-body-ctx553_0)" " partial-body-ctx_1)" -"((temp553_0)" +"((temp554_0)" " #f)" -"((declared-submodule-names554_0)" +"((declared-submodule-names555_0)" " declared-submodule-names_4)" -"((mpis-to-reset555_0)" +"((mpis-to-reset556_0)" " mpis-to-reset_1)" -"((compiled-submodules556_0)" +"((compiled-submodules557_0)" " compiled-submodules_2)" -"((modules-being-compiled557_0)" +"((modules-being-compiled558_0)" " modules-being-compiled_4))" "(expand-submodule197.1" -" compiled-submodules556_0" -" declared-submodule-names554_0" +" compiled-submodules557_0" +" declared-submodule-names555_0" " #f" " #f" " #f" " #f" " #f" " #f" -" temp553_0" +" temp554_0" " #f" " #f" -" modules-being-compiled557_0" -" mpis-to-reset555_0" -" ready-body550_0" -" self551_0" -" partial-body-ctx552_0))))" +" modules-being-compiled558_0" +" mpis-to-reset556_0" +" ready-body551_0" +" self552_0" +" partial-body-ctx553_0))))" "(cons" " submod_2" "(loop_125" @@ -75748,22 +75768,22 @@ static const char *startup_source = " 'module*)" "(let-values()" "(begin" -"(let-values(((obs_155)" +"(let-values(((obs_154)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_155" +"(if obs_154" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_155" +" obs_154" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_155" +" obs_154" " 'prim-submodule*)" "(call-expand-observe" -" obs_155" +" obs_154" " 'exit-prim" " exp-body_7))))" "(void)))" @@ -75777,40 +75797,40 @@ static const char *startup_source = " '#%declare)" "(let-values()" "(let-values(((ok?_85" -" #%declare558_0" -" kw559_0)" -"(let-values(((s_851)" +" #%declare559_0" +" kw560_0)" +"(let-values(((s_852)" " disarmed-exp-body_1))" "(let-values(((orig-s_90)" -" s_851))" -"(let-values(((#%declare558_1" -" kw559_1)" -"(let-values(((s_852)" -"(if(syntax?$1" -" s_851)" -"(syntax-e$1" -" s_851)" -" s_851)))" -"(if(pair?" -" s_852)" -"(let-values(((#%declare560_0)" +" s_852))" +"(let-values(((#%declare559_1" +" kw560_1)" "(let-values(((s_853)" -"(car" -" s_852)))" -" s_853))" -"((kw561_0)" -"(let-values(((s_854)" -"(cdr" -" s_852)))" -"(let-values(((s_855)" "(if(syntax?$1" -" s_854)" +" s_852)" "(syntax-e$1" -" s_854)" -" s_854)))" +" s_852)" +" s_852)))" +"(if(pair?" +" s_853)" +"(let-values(((#%declare561_0)" +"(let-values(((s_854)" +"(car" +" s_853)))" +" s_854))" +"((kw562_0)" +"(let-values(((s_855)" +"(cdr" +" s_853)))" +"(let-values(((s_856)" +"(if(syntax?$1" +" s_855)" +"(syntax-e$1" +" s_855)" +" s_855)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_855)))" +" s_856)))" "(if(not" " flat-s_61)" "(let-values()" @@ -75821,39 +75841,39 @@ static const char *startup_source = "(let-values()" " flat-s_61)))))))" "(values" -" #%declare560_0" -" kw561_0))" +" #%declare561_0" +" kw562_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_90)))))" "(values" " #t" -" #%declare558_1" -" kw559_1))))))" +" #%declare559_1" +" kw560_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_438)" -" kw559_0))" +"(let-values(((lst_439)" +" kw560_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_438)))" +" lst_439)))" "((letrec-values(((for-loop_340)" -"(lambda(lst_439)" +"(lambda(lst_440)" "(begin" " 'for-loop" "(if(pair?" -" lst_439)" +" lst_440)" "(let-values(((kw_1)" "(unsafe-car" -" lst_439))" -"((rest_252)" +" lst_440))" +"((rest_251)" "(unsafe-cdr" -" lst_439)))" +" lst_440)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75905,11 +75925,11 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_340" -" rest_252)" +" rest_251)" "(values))))" "(values))))))" " for-loop_340)" -" lst_438)))" +" lst_439)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -75959,18 +75979,18 @@ static const char *startup_source = "(lambda(ids_45 rhs_23 phase_159)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_440) ids_45))" +"(let-values(((lst_441) ids_45))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_440)))" +"(let-values()(check-list lst_441)))" "((letrec-values(((for-loop_341)" -"(lambda(fold-var_383 lst_441)" +"(lambda(fold-var_383 lst_442)" "(begin" " 'for-loop" -"(if(pair? lst_441)" -"(let-values(((id_160)(unsafe-car lst_441))" -"((rest_253)(unsafe-cdr lst_441)))" +"(if(pair? lst_442)" +"(let-values(((id_160)(unsafe-car lst_442))" +"((rest_252)(unsafe-cdr lst_442)))" "(let-values(((fold-var_384)" "(let-values(((fold-var_385) fold-var_383))" "(let-values(((fold-var_386)" @@ -75982,35 +76002,35 @@ static const char *startup_source = " inside-scope_2))" " fold-var_385))))" "(values fold-var_386)))))" -"(if(not #f)(for-loop_341 fold-var_384 rest_253) fold-var_384)))" +"(if(not #f)(for-loop_341 fold-var_384 rest_252) fold-var_384)))" " fold-var_383)))))" " for-loop_341)" " null" -" lst_440))))))" +" lst_441))))))" "(let-values(((syms_25)" -"(let-values(((scoped-ids562_0) scoped-ids_0)" -"((defined-syms563_0) defined-syms_13)" -"((self564_0) self_34)" -"((phase565_0) phase_159)" -"((all-scopes-stx566_0) all-scopes-stx_6)" -"((frame-id567_0) frame-id_17)" -"((requires+provides568_0) requires+provides_8))" +"(let-values(((scoped-ids563_0) scoped-ids_0)" +"((defined-syms564_0) defined-syms_13)" +"((self565_0) self_34)" +"((phase566_0) phase_159)" +"((all-scopes-stx567_0) all-scopes-stx_6)" +"((frame-id568_0) frame-id_17)" +"((requires+provides569_0) requires+provides_8))" "(select-defined-syms-and-bind!16.1" " #f" " #f" -" frame-id567_0" +" frame-id568_0" " #f" " #f" -" requires+provides568_0" +" requires+provides569_0" " #t" " #f" " #f" -" scoped-ids562_0" -" defined-syms563_0" -" self564_0" -" phase565_0" -" all-scopes-stx566_0))))" -"(let-values(((s_289)" +" scoped-ids563_0" +" defined-syms564_0" +" self565_0" +" phase566_0" +" all-scopes-stx567_0))))" +"(let-values(((s_290)" "(add-scope" "(datum->syntax$1" " #f" @@ -76019,7 +76039,7 @@ static const char *startup_source = " scoped-ids_0" " rhs_23))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_289 syms_25 scoped-ids_0 rhs_23)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_290 syms_25 scoped-ids_0 rhs_23)))))))))" "(define-values" "(add-post-expansion-scope)" "(lambda(bodys_22 ctx_115)" @@ -76027,15 +76047,15 @@ static const char *startup_source = "(let-values(((sc_39)(root-expand-context-post-expansion-scope ctx_115)))" "(if sc_39" "(reverse$1" -"(let-values(((lst_442) bodys_22))" +"(let-values(((lst_443) bodys_22))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_442)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_443)))" "((letrec-values(((for-loop_342)" -"(lambda(fold-var_387 lst_443)" +"(lambda(fold-var_387 lst_444)" "(begin" " 'for-loop" -"(if(pair? lst_443)" -"(let-values(((body_23)(unsafe-car lst_443))((rest_254)(unsafe-cdr lst_443)))" +"(if(pair? lst_444)" +"(let-values(((body_23)(unsafe-car lst_444))((rest_253)(unsafe-cdr lst_444)))" "(let-values(((fold-var_388)" "(let-values(((fold-var_389) fold-var_387))" "(let-values(((fold-var_390)" @@ -76044,11 +76064,11 @@ static const char *startup_source = "(let-values()(add-scope body_23 sc_39))" " fold-var_389))))" "(values fold-var_390)))))" -"(if(not #f)(for-loop_342 fold-var_388 rest_254) fold-var_388)))" +"(if(not #f)(for-loop_342 fold-var_388 rest_253) fold-var_388)))" " fold-var_387)))))" " for-loop_342)" " null" -" lst_442))))" +" lst_443))))" " bodys_22)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -76080,12 +76100,12 @@ static const char *startup_source = "(if(if tail?_53(not(zero? phase_160)) #f)" "(let-values()" "(begin" -"(let-values(((obs_156)(expand-context-observer body-ctx_7)))" -"(if obs_156" +"(let-values(((obs_155)(expand-context-observer body-ctx_7)))" +"(if obs_155" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_156" +" obs_155" " 'module-lift-end-loop" " '())))" "(void)))" @@ -76101,13 +76121,13 @@ static const char *startup_source = "(if(null? bodys_24)" "(let-values()" "(begin" -"(let-values(((obs_157)" +"(let-values(((obs_156)" "(expand-context-observer body-ctx_7)))" -"(if obs_157" +"(if obs_156" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_157" +" obs_156" " 'module-lift-end-loop" " '())))" "(void)))" @@ -76120,12 +76140,12 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_158)" +"(let-values(((obs_157)" "(expand-context-observer body-ctx_7)))" -"(if obs_158" +"(if obs_157" "(let-values()" "(let-values()" -"(call-expand-observe obs_158 'next)))" +"(call-expand-observe obs_157 'next)))" "(void)))" "(values))))" "(let-values(((body_24)(car bodys_23)))" @@ -76155,138 +76175,138 @@ static const char *startup_source = "(let-values(((syms_26)" "(semi-parsed-define-values-syms" " body_24)))" -"(let-values(((s_856)" +"(let-values(((s_857)" "(semi-parsed-define-values-s" " body_24)))" "(let-values(((ok?_86" -" define-values569_0" -" _570_0" -" _571_0)" -"(let-values(((s_857)" +" define-values570_0" +" _571_0" +" _572_0)" +"(let-values(((s_858)" "(syntax-disarm$1" -" s_856)))" +" s_857)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_91)" -" s_857))" -"(let-values(((define-values569_1" -" _570_1" -" _571_1)" -"(let-values(((s_858)" -"(if(syntax?$1" -" s_857)" -"(syntax-e$1" -" s_857)" -" s_857)))" -"(if(pair?" -" s_858)" -"(let-values(((define-values572_0)" +" s_858))" +"(let-values(((define-values570_1" +" _571_1" +" _572_1)" "(let-values(((s_859)" -"(car" +"(if(syntax?$1" +" s_858)" +"(syntax-e$1" +" s_858)" " s_858)))" -" s_859))" -"((_573_0" -" _574_0)" +"(if(pair?" +" s_859)" +"(let-values(((define-values573_0)" "(let-values(((s_860)" -"(cdr" -" s_858)))" +"(car" +" s_859)))" +" s_860))" +"((_574_0" +" _575_0)" "(let-values(((s_861)" -"(if(syntax?$1" -" s_860)" -"(syntax-e$1" -" s_860)" -" s_860)))" -"(if(pair?" -" s_861)" -"(let-values(((_575_0)" +"(cdr" +" s_859)))" "(let-values(((s_862)" -"(car" -" s_861)))" -" s_862))" -"((_576_0)" -"(let-values(((s_863)" -"(cdr" -" s_861)))" -"(let-values(((s_864)" "(if(syntax?$1" -" s_863)" +" s_861)" "(syntax-e$1" -" s_863)" -" s_863)))" +" s_861)" +" s_861)))" "(if(pair?" -" s_864)" -"(let-values(((_577_0)" -"(let-values(((s_865)" +" s_862)" +"(let-values(((_576_0)" +"(let-values(((s_863)" "(car" -" s_864)))" -" s_865))" -"(()" -"(let-values(((s_866)" +" s_862)))" +" s_863))" +"((_577_0)" +"(let-values(((s_864)" "(cdr" -" s_864)))" -"(let-values(((s_867)" +" s_862)))" +"(let-values(((s_865)" "(if(syntax?$1" -" s_866)" +" s_864)" "(syntax-e$1" -" s_866)" -" s_866)))" -"(if(null?" +" s_864)" +" s_864)))" +"(if(pair?" +" s_865)" +"(let-values(((_578_0)" +"(let-values(((s_866)" +"(car" +" s_865)))" +" s_866))" +"(()" +"(let-values(((s_867)" +"(cdr" +" s_865)))" +"(let-values(((s_868)" +"(if(syntax?$1" " s_867)" +"(syntax-e$1" +" s_867)" +" s_867)))" +"(if(null?" +" s_868)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91))))))" "(values" -" _577_0))" +" _578_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91))))))" "(values" -" _575_0" -" _576_0))" +" _576_0" +" _577_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91))))))" "(values" -" define-values572_0" -" _573_0" -" _574_0))" +" define-values573_0" +" _574_0" +" _575_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_91)))))" "(values" " #t" -" define-values569_1" -" _570_1" -" _571_1)))" +" define-values570_1" +" _571_1" +" _572_1)))" "(values" " #f" " #f" " #f" " #f)))))" "(let-values(((rebuild-s_15)" -"(let-values(((rhs-ctx578_0)" +"(let-values(((rhs-ctx579_0)" " rhs-ctx_2)" -"((s579_0)" -" s_856)" -"((temp580_0)" +"((s580_0)" +" s_857)" +"((temp581_0)" " #t))" -"(keep-as-needed85.1" +"(keep-as-needed86.1" " #f" " #f" " #f" " #f" -" temp580_0" +" temp581_0" " #t" -" rhs-ctx578_0" -" s579_0))))" +" rhs-ctx579_0" +" s580_0))))" "(let-values((()" "(begin" "(log-defn-enter" @@ -76295,18 +76315,18 @@ static const char *startup_source = "(values))))" "(let-values(((exp-rhs_7)" "(let-values()" -"(let-values(((temp581_0)" +"(let-values(((temp582_0)" "(semi-parsed-define-values-rhs" " body_24))" -"((rhs-ctx582_0)" +"((rhs-ctx583_0)" " rhs-ctx_2))" "(expand7.1" " #f" " #f" " #f" " #f" -" temp581_0" -" rhs-ctx582_0)))))" +" temp582_0" +" rhs-ctx583_0)))))" "(let-values((()" "(begin" "(log-defn-exit" @@ -76322,9 +76342,9 @@ static const char *startup_source = "(if(expand-context-to-parsed?" " rhs-ctx_2)" " exp-rhs_7" -"(let-values(((exp-rhs583_0)" +"(let-values(((exp-rhs584_0)" " exp-rhs_7)" -"((temp584_0)" +"((temp585_0)" "(as-to-parsed-context" " rhs-ctx_2)))" "(expand7.1" @@ -76332,24 +76352,24 @@ static const char *startup_source = " #f" " #f" " #f" -" exp-rhs583_0" -" temp584_0))))))" +" exp-rhs584_0" +" temp585_0))))))" "(if(expand-context-to-parsed?" " rhs-ctx_2)" " comp-form_0" "(expanded+parsed1.1" -"(let-values(((rebuild-s585_0)" +"(let-values(((rebuild-s586_0)" " rebuild-s_15)" -"((temp586_0)" +"((temp587_0)" "(list" -" define-values569_0" +" define-values570_0" " ids_46" " exp-rhs_7)))" "(rebuild5.1" " #f" " #f" -" rebuild-s585_0" -" temp586_0))" +" rebuild-s586_0" +" temp587_0))" " comp-form_0)))))))))))))" "(let-values()" "(let-values(((disarmed-body_0)" @@ -76367,9 +76387,9 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((exp-body_9)" -"(let-values(((body587_0)" +"(let-values(((body588_0)" " body_24)" -"((temp588_0)" +"((temp589_0)" "(as-expression-context" " body-ctx_7)))" "(expand7.1" @@ -76377,16 +76397,16 @@ static const char *startup_source = " #f" " #f" " #f" -" body587_0" -" temp588_0))))" +" body588_0" +" temp589_0))))" "(if(expand-context-to-parsed?" " body-ctx_7)" " exp-body_9" "(expanded+parsed1.1" " exp-body_9" -"(let-values(((exp-body589_0)" +"(let-values(((exp-body590_0)" " exp-body_9)" -"((temp590_0)" +"((temp591_0)" "(as-to-parsed-context" " body-ctx_7)))" "(expand7.1" @@ -76394,8 +76414,8 @@ static const char *startup_source = " #f" " #f" " #f" -" exp-body589_0" -" temp590_0)))))))))))))))" +" exp-body590_0" +" temp591_0)))))))))))))))" "(let-values(((lifted-defns_1)" "(get-and-clear-lifts!" "(expand-context-lifts body-ctx_7))))" @@ -76416,14 +76436,14 @@ static const char *startup_source = "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_159)" +"(let-values(((obs_158)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_159" +"(if obs_158" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_159" +" obs_158" " 'module-lift-loop" "(append" " lifted-requires_0" @@ -76435,43 +76455,43 @@ static const char *startup_source = "(void)))))" "(values))))" "(let-values(((exp-lifted-modules_0)" -"(let-values(((lifted-modules591_0)" +"(let-values(((lifted-modules592_0)" " lifted-modules_0)" -"((phase592_0) phase_160)" -"((self593_0) self_35)" -"((body-ctx594_0)" +"((phase593_0) phase_160)" +"((self594_0) self_35)" +"((body-ctx595_0)" " body-ctx_7)" -"((mpis-to-reset595_0)" +"((mpis-to-reset596_0)" " mpis-to-reset_2)" -"((declared-submodule-names596_0)" +"((declared-submodule-names597_0)" " declared-submodule-names_5)" -"((compiled-submodules597_0)" +"((compiled-submodules598_0)" " compiled-submodules_3)" -"((modules-being-compiled598_0)" +"((modules-being-compiled599_0)" " modules-being-compiled_5))" "(expand-non-module*-submodules212.1" -" compiled-submodules597_0" -" declared-submodule-names596_0" -" modules-being-compiled598_0" -" mpis-to-reset595_0" -" lifted-modules591_0" -" phase592_0" -" self593_0" -" body-ctx594_0))))" +" compiled-submodules598_0" +" declared-submodule-names597_0" +" modules-being-compiled599_0" +" mpis-to-reset596_0" +" lifted-modules592_0" +" phase593_0" +" self594_0" +" body-ctx595_0))))" "(let-values(((exp-lifted-defns_0)" "(loop_126 #f lifted-defns_1)))" "(begin" "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_160)" +"(let-values(((obs_109)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_160" +"(if obs_109" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_160" +" obs_109" " 'next)))" "(void)))))" "(append" @@ -76507,24 +76527,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_444) l_89))" +"(let-values(((lst_445) l_89))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_444)))" +"(let-values()(check-list lst_445)))" "((letrec-values(((for-loop_344)" -"(lambda(lst_445)" +"(lambda(lst_446)" "(begin" " 'for-loop" "(if(pair?" -" lst_445)" +" lst_446)" "(let-values(((id_161)" "(unsafe-car" -" lst_445))" -"((rest_255)" +" lst_446))" +"((rest_254)" "(unsafe-cdr" -" lst_445)))" +" lst_446)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76532,9 +76552,9 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((b_98)" -"(let-values(((id599_0)" +"(let-values(((id600_0)" " id_161)" -"((phase600_0)" +"((phase601_0)" " phase_161))" "(resolve+shift30.1" " #f" @@ -76547,8 +76567,8 @@ static const char *startup_source = " #f" " #f" " #f" -" id599_0" -" phase600_0))))" +" id600_0" +" phase601_0))))" "(let-values(((bound-here?_0)" "(if b_98" "(if(module-binding?" @@ -76613,11 +76633,11 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_344" -" rest_255)" +" rest_254)" "(values))))" "(values))))))" " for-loop_344)" -" lst_444)))" +" lst_445)))" "(void)))" "(values)))))" "(values)))))" @@ -76665,10 +76685,10 @@ static const char *startup_source = "(cons" "(let-values(((the-struct_114)(car bodys_25)))" "(if(semi-parsed-begin-for-syntax? the-struct_114)" -"(let-values(((body601_0) nested-bodys_2))" +"(let-values(((body602_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" "(semi-parsed-begin-for-syntax-s the-struct_114)" -" body601_0))" +" body602_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" @@ -76682,52 +76702,52 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_161)" +"(let-values(((obs_159)" "(expand-context-observer" " ctx_117)))" -"(if obs_161" +"(if obs_159" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_161" +" obs_159" " 'enter-prim" "(car bodys_25))" "(call-expand-observe" -" obs_161" +" obs_159" " 'prim-provide))))" "(void)))" "(values))))" -"(let-values(((ok?_87 #%provide602_0 spec603_0)" -"(let-values(((s_868) disarmed-body_1))" -"(let-values(((orig-s_92) s_868))" -"(let-values(((#%provide602_1" -" spec603_1)" -"(let-values(((s_869)" -"(if(syntax?$1" -" s_868)" -"(syntax-e$1" -" s_868)" -" s_868)))" -"(if(pair? s_869)" -"(let-values(((#%provide604_0)" +"(let-values(((ok?_87 #%provide603_0 spec604_0)" +"(let-values(((s_869) disarmed-body_1))" +"(let-values(((orig-s_92) s_869))" +"(let-values(((#%provide603_1" +" spec604_1)" "(let-values(((s_870)" -"(car" -" s_869)))" -" s_870))" -"((spec605_0)" -"(let-values(((s_871)" -"(cdr" -" s_869)))" -"(let-values(((s_663)" "(if(syntax?$1" -" s_871)" +" s_869)" "(syntax-e$1" -" s_871)" -" s_871)))" +" s_869)" +" s_869)))" +"(if(pair? s_870)" +"(let-values(((#%provide605_0)" +"(let-values(((s_871)" +"(car" +" s_870)))" +" s_871))" +"((spec606_0)" +"(let-values(((s_663)" +"(cdr" +" s_870)))" +"(let-values(((s_872)" +"(if(syntax?$1" +" s_663)" +"(syntax-e$1" +" s_663)" +" s_663)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_663)))" +" s_872)))" "(if(not" " flat-s_62)" "(let-values()" @@ -76738,19 +76758,19 @@ static const char *startup_source = "(let-values()" " flat-s_62)))))))" "(values" -" #%provide604_0" -" spec605_0))" +" #%provide605_0" +" spec606_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_92)))))" "(values" " #t" -" #%provide602_1" -" spec603_1))))))" +" #%provide603_1" +" spec604_1))))))" "(let-values(((track-stxes_10 specs_2)" "(parse-and-expand-provides!" -" spec603_0" +" spec604_0" "(car bodys_25)" " requires+provides_10" " self_37" @@ -76760,23 +76780,23 @@ static const char *startup_source = " v_271))" "(if(expand-context/outer?" " the-struct_115)" -"(let-values(((context606_0)" +"(let-values(((context607_0)" " 'top-level)" -"((inner607_0)" +"((inner608_0)" "(let-values(((the-struct_116)" "(root-expand-context/outer-inner" " v_271)))" "(if(expand-context/inner?" " the-struct_116)" -"(let-values(((phase608_0)" +"(let-values(((phase609_0)" " phase_163)" -"((namespace609_0)" +"((namespace610_0)" "(namespace->namespace-at-phase" " m-ns_20" " phase_163))" -"((requires+provides610_0)" +"((requires+provides611_0)" " requires+provides_10)" -"((declared-submodule-names611_0)" +"((declared-submodule-names612_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" @@ -76795,8 +76815,8 @@ static const char *startup_source = " the-struct_116)" "(expand-context/inner-to-parsed?" " the-struct_116)" -" phase608_0" -" namespace609_0" +" phase609_0" +" namespace610_0" "(expand-context/inner-just-once?" " the-struct_116)" "(expand-context/inner-module-begin-k" @@ -76807,7 +76827,7 @@ static const char *startup_source = " the-struct_116)" "(expand-context/inner-stops" " the-struct_116)" -" declared-submodule-names611_0" +" declared-submodule-names612_0" "(expand-context/inner-lifts" " the-struct_116)" "(expand-context/inner-lift-envs" @@ -76818,7 +76838,7 @@ static const char *startup_source = " the-struct_116)" "(expand-context/inner-to-module-lifts" " the-struct_116)" -" requires+provides610_0" +" requires+provides611_0" "(expand-context/inner-observer" " the-struct_116)" "(expand-context/inner-for-serializable?" @@ -76830,14 +76850,14 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_116)))))" "(expand-context/outer1.1" -" inner607_0" +" inner608_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)" -" context606_0" +" context607_0" "(expand-context/outer-env" " the-struct_115)" "(expand-context/outer-post-expansion-scope-action" @@ -76869,26 +76889,26 @@ static const char *startup_source = "(let-values(((new-s_10)" "(syntax-track-origin*" " track-stxes_10" -"(let-values(((temp612_0)" +"(let-values(((temp613_0)" "(car bodys_25))" -"((temp613_0)" +"((temp614_0)" "(list*" -" #%provide602_0" +" #%provide603_0" " specs_2)))" "(rebuild5.1" " #f" " #f" -" temp612_0" -" temp613_0)))))" +" temp613_0" +" temp614_0)))))" "(begin" -"(let-values(((obs_162)" +"(let-values(((obs_160)" "(expand-context-observer" " ctx_117)))" -"(if obs_162" +"(if obs_160" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_162" +" obs_160" " 'exit-prim" " new-s_10)))" "(void)))" @@ -76951,44 +76971,44 @@ static const char *startup_source = "(let-values(((or-part_403) enclosing-self_3))" "(if or-part_403 or-part_403 self_38)))))" "(let-values(((compiled-module_0)" -"(let-values(((parsed-mod614_0) parsed-mod_0)" -"((temp615_0)" -"(let-values(((m-ns619_0) m-ns_21)" -"((enclosing-self620_0) enclosing-self_3)" -"((temp621_0)" +"(let-values(((parsed-mod615_0) parsed-mod_0)" +"((temp616_0)" +"(let-values(((m-ns620_0) m-ns_21)" +"((enclosing-self621_0) enclosing-self_3)" +"((temp622_0)" "(if enclosing-self_3" "(1/resolved-module-path-name" " module-name_2)" " #f)))" "(make-compile-context14.1" -" temp621_0" +" temp622_0" " #t" " #f" " #f" -" enclosing-self620_0" +" enclosing-self621_0" " #t" -" m-ns619_0" +" m-ns620_0" " #t" " #f" " #f" " #f" " #f)))" -"((temp616_0)(expand-context-for-serializable? ctx_118))" -"((modules-being-compiled617_0) modules-being-compiled_6)" -"((temp618_0) #f))" +"((temp617_0)(expand-context-for-serializable? ctx_118))" +"((modules-being-compiled618_0) modules-being-compiled_6)" +"((temp619_0) #f))" "(compile-module13.1" " #f" " #f" -" modules-being-compiled617_0" +" modules-being-compiled618_0" " #t" -" temp618_0" +" temp619_0" " #t" -" temp616_0" +" temp617_0" " #t" " #f" " #f" -" parsed-mod614_0" -" temp615_0))))" +" parsed-mod615_0" +" temp616_0))))" "(let-values((()" "(begin" "(set-box! compiled-module-box_1 compiled-module_0)" @@ -77004,27 +77024,27 @@ static const char *startup_source = " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_0))" "(let-values()" -"(let-values(((compiled-module622_0) compiled-module_0)((temp623_0) #f))" +"(let-values(((compiled-module623_0) compiled-module_0)((temp624_0) #f))" "(eval-module8.1" " #f" " #f" " #f" " #f" -" temp623_0" +" temp624_0" " #t" -" compiled-module622_0)))))))))))))))))))))))))" +" compiled-module623_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_872 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_873 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_873)" -"(syntax-property$1 s_872 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" "(let-values(((s_874)" +"(syntax-property$1 s_873 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_875)" "(syntax-property$1" -" s_873" +" s_874" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_874)))))" +" s_875)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -77068,38 +77088,38 @@ static const char *startup_source = "(let-values(((body-s_0)" "(semi-parsed-begin-for-syntax-s" " body_25)))" -"(let-values(((ok?_88 begin-for-syntax624_0 _625_0)" -"(let-values(((s_875)" +"(let-values(((ok?_88 begin-for-syntax625_0 _626_0)" +"(let-values(((s_876)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_93) s_875))" -"(let-values(((begin-for-syntax624_1" -" _625_1)" -"(let-values(((s_876)" -"(if(syntax?$1" -" s_875)" -"(syntax-e$1" -" s_875)" -" s_875)))" -"(if(pair? s_876)" -"(let-values(((begin-for-syntax626_0)" -"(let-values(((s_697)" -"(car" -" s_876)))" -" s_697))" -"((_627_0)" +"(let-values(((orig-s_93) s_876))" +"(let-values(((begin-for-syntax625_1" +" _626_1)" "(let-values(((s_877)" -"(cdr" -" s_876)))" -"(let-values(((s_878)" "(if(syntax?$1" -" s_877)" +" s_876)" "(syntax-e$1" -" s_877)" +" s_876)" +" s_876)))" +"(if(pair? s_877)" +"(let-values(((begin-for-syntax627_0)" +"(let-values(((s_878)" +"(car" " s_877)))" +" s_878))" +"((_628_0)" +"(let-values(((s_879)" +"(cdr" +" s_877)))" +"(let-values(((s_880)" +"(if(syntax?$1" +" s_879)" +"(syntax-e$1" +" s_879)" +" s_879)))" "(let-values(((flat-s_63)" "(to-syntax-list.1" -" s_878)))" +" s_880)))" "(if(not" " flat-s_63)" "(let-values()" @@ -77110,30 +77130,30 @@ static const char *startup_source = "(let-values()" " flat-s_63)))))))" "(values" -" begin-for-syntax626_0" -" _627_0))" +" begin-for-syntax627_0" +" _628_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_93)))))" "(values" " #t" -" begin-for-syntax624_1" -" _625_1))))))" +" begin-for-syntax625_1" +" _626_1))))))" "(let-values(((rebuild-body-s_0)" -"(let-values(((submod-ctx628_0)" +"(let-values(((submod-ctx629_0)" " submod-ctx_1)" -"((body-s629_0)" +"((body-s630_0)" " body-s_0))" -"(keep-as-needed85.1" +"(keep-as-needed86.1" " #f" " #f" " #f" " #f" " #f" " #f" -" submod-ctx628_0" -" body-s629_0))))" +" submod-ctx629_0" +" body-s630_0))))" "(let-values(((nested-bodys_3)" "(loop_128" "(semi-parsed-begin-for-syntax-body" @@ -77148,18 +77168,18 @@ static const char *startup_source = " submod-ctx_1)" " parsed-bfs_0" "(expanded+parsed1.1" -"(let-values(((rebuild-body-s630_0)" +"(let-values(((rebuild-body-s631_0)" " rebuild-body-s_0)" -"((temp631_0)" +"((temp632_0)" "(list*" -" begin-for-syntax624_0" +" begin-for-syntax625_0" "(syntax-only" " nested-bodys_3))))" "(rebuild5.1" " #f" " #f" -" rebuild-body-s630_0" -" temp631_0))" +" rebuild-body-s631_0" +" temp632_0))" " parsed-bfs_0))" "(loop_128 rest-bodys_3 phase_165))))))))" "(if(let-values(((or-part_404)(parsed? body_25)))" @@ -77187,63 +77207,63 @@ static const char *startup_source = " body_25" " submod-ctx_1)))" "(let-values(((ok?_89" -" module*632_0" -" name633_0" -" _634_0)" -"(let-values(((s_700)" +" module*633_0" +" name634_0" +" _635_0)" +"(let-values(((s_701)" " disarmed-body_2))" -"(if(let-values(((s_701)" +"(if(let-values(((s_881)" "(if(syntax?$1" -" s_700)" +" s_701)" "(syntax-e$1" -" s_700)" -" s_700)))" -"(if(pair? s_701)" -"(if(let-values(((s_879)" -"(car" +" s_701)" " s_701)))" -" #t)" -"(let-values(((s_880)" -"(cdr" -" s_701)))" -"(let-values(((s_881)" -"(if(syntax?$1" -" s_880)" -"(syntax-e$1" -" s_880)" -" s_880)))" -"(if(pair?" -" s_881)" -"(if(let-values(((s_702)" +"(if(pair? s_881)" +"(if(let-values(((s_882)" "(car" " s_881)))" " #t)" -"(let-values(((s_882)" +"(let-values(((s_883)" "(cdr" " s_881)))" -"(let-values(((s_703)" -"(if(syntax?$1" -" s_882)" -"(syntax-e$1" -" s_882)" -" s_882)))" -"(if(pair?" -" s_703)" -"(if(let-values(((s_883)" -"(car" -" s_703)))" -"(let-values(((s_884)" +"(let-values(((s_702)" "(if(syntax?$1" " s_883)" "(syntax-e$1" " s_883)" " s_883)))" +"(if(pair?" +" s_702)" +"(if(let-values(((s_884)" +"(car" +" s_702)))" +" #t)" +"(let-values(((s_703)" +"(cdr" +" s_702)))" +"(let-values(((s_885)" +"(if(syntax?$1" +" s_703)" +"(syntax-e$1" +" s_703)" +" s_703)))" +"(if(pair?" +" s_885)" +"(if(let-values(((s_886)" +"(car" +" s_885)))" +"(let-values(((s_704)" +"(if(syntax?$1" +" s_886)" +"(syntax-e$1" +" s_886)" +" s_886)))" "(eq?" " #f" -" s_884)))" -"(let-values(((s_704)" +" s_704)))" +"(let-values(((s_887)" "(cdr" -" s_703)))" +" s_885)))" " #t)" " #f)" " #f)))" @@ -77252,37 +77272,22 @@ static const char *startup_source = " #f)" " #f))" "(let-values()" -"(let-values(((module*632_1" -" name633_1" -" _634_1)" -"(let-values(((s_885)" -"(if(syntax?$1" -" s_700)" -"(syntax-e$1" -" s_700)" -" s_700)))" -"(let-values(((module*635_0)" -"(let-values(((s_886)" -"(car" -" s_885)))" -" s_886))" -"((name636_0" -" _637_0)" -"(let-values(((s_887)" -"(cdr" -" s_885)))" +"(let-values(((module*633_1" +" name634_1" +" _635_1)" "(let-values(((s_888)" "(if(syntax?$1" -" s_887)" +" s_701)" "(syntax-e$1" -" s_887)" -" s_887)))" -"(let-values(((name638_0)" +" s_701)" +" s_701)))" +"(let-values(((module*636_0)" "(let-values(((s_889)" "(car" " s_888)))" " s_889))" -"((_639_0)" +"((name637_0" +" _638_0)" "(let-values(((s_890)" "(cdr" " s_888)))" @@ -77292,36 +77297,51 @@ static const char *startup_source = "(syntax-e$1" " s_890)" " s_890)))" -"(let-values((()" +"(let-values(((name639_0)" "(let-values(((s_892)" "(car" " s_891)))" -"(let-values(((s_893)" -"(if(syntax?$1" -" s_892)" -"(syntax-e$1" -" s_892)" -" s_892)))" -"(values))))" +" s_892))" "((_640_0)" -"(let-values(((s_894)" +"(let-values(((s_893)" "(cdr" " s_891)))" +"(let-values(((s_894)" +"(if(syntax?$1" +" s_893)" +"(syntax-e$1" +" s_893)" +" s_893)))" +"(let-values((()" +"(let-values(((s_895)" +"(car" " s_894)))" +"(let-values(((s_896)" +"(if(syntax?$1" +" s_895)" +"(syntax-e$1" +" s_895)" +" s_895)))" +"(values))))" +"((_641_0)" +"(let-values(((s_897)" +"(cdr" +" s_894)))" +" s_897)))" "(values" +" _641_0))))))" +"(values" +" name639_0" " _640_0))))))" "(values" -" name638_0" -" _639_0))))))" -"(values" -" module*635_0" -" name636_0" -" _637_0)))))" +" module*636_0" +" name637_0" +" _638_0)))))" "(values" " #t" -" module*632_1" -" name633_1" -" _634_1)))" +" module*633_1" +" name634_1" +" _635_1)))" "(values" " #f" " #f" @@ -77339,47 +77359,47 @@ static const char *startup_source = " ready-body_2" " neg-phase_0)))" "(let-values(((submod_4)" -"(let-values(((shifted-s641_0)" +"(let-values(((shifted-s642_0)" " shifted-s_0)" -"((self642_0)" +"((self643_0)" " self_39)" -"((submod-ctx643_0)" +"((submod-ctx644_0)" " submod-ctx_1)" -"((temp644_0)" +"((temp645_0)" " #t)" -"((neg-phase645_0)" +"((neg-phase646_0)" " neg-phase_0)" -"((all-scopes-s646_0)" +"((all-scopes-s647_0)" " all-scopes-s_1)" -"((requires+provides647_0)" +"((requires+provides648_0)" " requires+provides_12)" -"((enclosing-is-cross-phase-persistent?648_0)" +"((enclosing-is-cross-phase-persistent?649_0)" " enclosing-is-cross-phase-persistent?_1)" -"((mpis-to-reset649_0)" +"((mpis-to-reset650_0)" " mpis-to-reset_3)" -"((declared-submodule-names650_0)" +"((declared-submodule-names651_0)" " declared-submodule-names_7)" -"((compiled-submodules651_0)" +"((compiled-submodules652_0)" " compiled-submodules_4)" -"((modules-being-compiled652_0)" +"((modules-being-compiled653_0)" " modules-being-compiled_7))" "(expand-submodule197.1" -" compiled-submodules651_0" -" declared-submodule-names650_0" -" all-scopes-s646_0" +" compiled-submodules652_0" +" declared-submodule-names651_0" +" all-scopes-s647_0" " #t" -" enclosing-is-cross-phase-persistent?648_0" +" enclosing-is-cross-phase-persistent?649_0" " #t" -" requires+provides647_0" +" requires+provides648_0" " #t" -" temp644_0" -" neg-phase645_0" +" temp645_0" +" neg-phase646_0" " #t" -" modules-being-compiled652_0" -" mpis-to-reset649_0" -" shifted-s641_0" -" self642_0" -" submod-ctx643_0))))" +" modules-being-compiled653_0" +" mpis-to-reset650_0" +" shifted-s642_0" +" self643_0" +" submod-ctx644_0))))" "(if(parsed?" " submod_4)" "(let-values()" @@ -77391,13 +77411,13 @@ static const char *startup_source = " submod_4))" "(if(expanded+parsed?" " the-struct_117)" -"(let-values(((s653_0)" +"(let-values(((s654_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" " phase_165)))" "(expanded+parsed1.1" -" s653_0" +" s654_0" "(expanded+parsed-parsed" " the-struct_117)))" "(raise-argument-error" @@ -77409,39 +77429,39 @@ static const char *startup_source = " submod_4" " phase_165))))))))" "(let-values()" -"(let-values(((ready-body654_0)" +"(let-values(((ready-body655_0)" " ready-body_2)" -"((self655_0)" +"((self656_0)" " self_39)" -"((submod-ctx656_0)" +"((submod-ctx657_0)" " submod-ctx_1)" -"((temp657_0)" +"((temp658_0)" " #t)" -"((mpis-to-reset658_0)" +"((mpis-to-reset659_0)" " mpis-to-reset_3)" -"((declared-submodule-names659_0)" +"((declared-submodule-names660_0)" " declared-submodule-names_7)" -"((compiled-submodules660_0)" +"((compiled-submodules661_0)" " compiled-submodules_4)" -"((modules-being-compiled661_0)" +"((modules-being-compiled662_0)" " modules-being-compiled_7))" "(expand-submodule197.1" -" compiled-submodules660_0" -" declared-submodule-names659_0" +" compiled-submodules661_0" +" declared-submodule-names660_0" " #f" " #f" " #f" " #f" " #f" " #f" -" temp657_0" +" temp658_0" " #f" " #f" -" modules-being-compiled661_0" -" mpis-to-reset658_0" -" ready-body654_0" -" self655_0" -" submod-ctx656_0))))))" +" modules-being-compiled662_0" +" mpis-to-reset659_0" +" ready-body655_0" +" self656_0" +" submod-ctx657_0))))))" "(cons" " submod_3" "(loop_128" @@ -77472,34 +77492,34 @@ static const char *startup_source = "(let-values(((ids_47) ids170_0))" "(let-values(((phase_166) phase171_1))" "(let-values(((requires+provides_13) requires+provides172_0))" -"(let-values(((s_895) in168_0))" +"(let-values(((s_717) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_446) ids_47))" +"(let-values(((lst_447) ids_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_446)))" +"(let-values()(check-list lst_447)))" "((letrec-values(((for-loop_345)" -"(lambda(lst_447)" +"(lambda(lst_448)" "(begin" " 'for-loop" -"(if(pair? lst_447)" -"(let-values(((id_129)(unsafe-car lst_447))" -"((rest_256)(unsafe-cdr lst_447)))" +"(if(pair? lst_448)" +"(let-values(((id_162)(unsafe-car lst_448))" +"((rest_255)(unsafe-cdr lst_448)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((requires+provides662_0)" +"(let-values(((requires+provides663_0)" " requires+provides_13)" -"((id663_0) id_129)" -"((phase664_0)" +"((id664_0) id_162)" +"((phase665_0)" " phase_166)" -"((s665_0) s_895)" -"((temp666_0) 'module))" +"((s666_0) s_717)" +"((temp667_0) 'module))" "(check-not-defined95.1" " #f" " #f" @@ -77507,36 +77527,36 @@ static const char *startup_source = " #f" " #f" " #f" -" s665_0" +" s666_0" " #f" " #f" " #f" " #f" -" temp666_0" -" requires+provides662_0" -" id663_0" -" phase664_0)))" +" temp667_0" +" requires+provides663_0" +" id664_0" +" phase665_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_345 rest_256)(values))))" +"(if(not #f)(for-loop_345 rest_255)(values))))" "(values))))))" " for-loop_345)" -" lst_446)))" +" lst_447)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" "(lambda(bodys_27 phase_167 m-ns_22 self_40 ctx_120)" "(begin" "(begin" -"(let-values(((lst_448) bodys_27))" +"(let-values(((lst_449) bodys_27))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_448)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_449)))" "((letrec-values(((for-loop_346)" -"(lambda(lst_449)" +"(lambda(lst_450)" "(begin" " 'for-loop" -"(if(pair? lst_449)" -"(let-values(((body_26)(unsafe-car lst_449))((rest_257)(unsafe-cdr lst_449)))" +"(if(pair? lst_450)" +"(let-values(((body_26)(unsafe-car lst_450))((rest_256)(unsafe-cdr lst_450)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77555,6 +77575,7 @@ static const char *startup_source = " p_89)))" "(let-values(((vals_11)" "(eval-for-bindings" +" 'define-values" " ids_48" "(parsed-define-values-rhs" " p_89)" @@ -77562,59 +77583,59 @@ static const char *startup_source = " m-ns_22" " ctx_120)))" "(begin" -"(let-values(((lst_450) ids_48)" -"((lst_451)" +"(let-values(((lst_451) ids_48)" +"((lst_452)" "(parsed-define-values-syms" " p_89))" -"((lst_452) vals_11))" +"((lst_453) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_450)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" "(check-list lst_451)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list lst_452)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list lst_453)))" "((letrec-values(((for-loop_347)" -"(lambda(lst_453" -" lst_454" -" lst_455)" +"(lambda(lst_454" +" lst_455" +" lst_456)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_453)" -"(if(pair?" " lst_454)" -"(pair?" +"(if(pair?" " lst_455)" +"(pair?" +" lst_456)" " #f)" " #f)" -"(let-values(((id_162)" +"(let-values(((id_163)" "(unsafe-car" -" lst_453))" -"((rest_258)" +" lst_454))" +"((rest_257)" "(unsafe-cdr" -" lst_453))" +" lst_454))" "((sym_110)" "(unsafe-car" -" lst_454))" -"((rest_259)" +" lst_455))" +"((rest_258)" "(unsafe-cdr" -" lst_454))" +" lst_455))" "((val_88)" "(unsafe-car" -" lst_455))" -"((rest_260)" +" lst_456))" +"((rest_259)" "(unsafe-cdr" -" lst_455)))" +" lst_456)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -77631,15 +77652,15 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_347" +" rest_257" " rest_258" -" rest_259" -" rest_260)" +" rest_259)" "(values))))" "(values))))))" " for-loop_347)" -" lst_450" " lst_451" -" lst_452)))" +" lst_452" +" lst_453)))" "(void)))))" "(if(let-values(((or-part_405)" "(parsed-define-syntaxes?" @@ -77671,9 +77692,9 @@ static const char *startup_source = "(eval-single-top" "(compile-single" " p_89" -"(let-values(((m-ns667_0)" +"(let-values(((m-ns668_0)" " m-ns_22)" -"((phase668_0)" +"((phase669_0)" " phase_167))" "(make-compile-context14.1" " #f" @@ -77682,19 +77703,19 @@ static const char *startup_source = " #f" " #f" " #f" -" m-ns667_0" +" m-ns668_0" " #t" -" phase668_0" +" phase669_0" " #t" " #f" " #f)))" " m-ns_22)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_346 rest_257)(values))))" +"(if(not #f)(for-loop_346 rest_256)(values))))" "(values))))))" " for-loop_346)" -" lst_448)))" +" lst_449)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -77716,7 +77737,7 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_896) s194_0))" +"(let-values(((s_898) s194_0))" "(let-values(((self_41) self195_0))" "(let-values(((ctx_121) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" @@ -77740,59 +77761,59 @@ static const char *startup_source = "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_163)(expand-context-observer ctx_121)))" -"(if obs_163" +"(let-values(((obs_161)(expand-context-observer ctx_121)))" +"(if obs_161" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_163 'enter-prim s_896)" +"(call-expand-observe obs_161 'enter-prim s_898)" "(call-expand-observe" -" obs_163" +" obs_161" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" -"(let-values(((ok?_90 module669_0 name670_0 _671_0)" -"(let-values(((s_753) s_896))" -"(let-values(((orig-s_94) s_753))" -"(let-values(((module669_1 name670_1 _671_1)" -"(let-values(((s_897)" -"(if(syntax?$1 s_753)" -"(syntax-e$1 s_753)" -" s_753)))" -"(if(pair? s_897)" -"(let-values(((module672_0)" -"(let-values(((s_758)(car s_897)))" -" s_758))" -"((name673_0 _674_0)" -"(let-values(((s_759)(cdr s_897)))" -"(let-values(((s_760)" -"(if(syntax?$1" -" s_759)" -"(syntax-e$1 s_759)" -" s_759)))" -"(if(pair? s_760)" -"(let-values(((name675_0)" -"(let-values(((s_898)" -"(car" -" s_760)))" -" s_898))" -"((_676_0)" +"(let-values(((ok?_90 module670_0 name671_0 _672_0)" +"(let-values(((s_754) s_898))" +"(let-values(((orig-s_94) s_754))" +"(let-values(((module670_1 name671_1 _672_1)" "(let-values(((s_899)" -"(cdr" +"(if(syntax?$1 s_754)" +"(syntax-e$1 s_754)" +" s_754)))" +"(if(pair? s_899)" +"(let-values(((module673_0)" +"(let-values(((s_759)(car s_899)))" +" s_759))" +"((name674_0 _675_0)" +"(let-values(((s_760)(cdr s_899)))" +"(let-values(((s_900)" +"(if(syntax?$1" +" s_760)" +"(syntax-e$1 s_760)" " s_760)))" -" s_899)))" -"(values name675_0 _676_0))" +"(if(pair? s_900)" +"(let-values(((name676_0)" +"(let-values(((s_901)" +"(car" +" s_900)))" +" s_901))" +"((_677_0)" +"(let-values(((s_902)" +"(cdr" +" s_900)))" +" s_902)))" +"(values name676_0 _677_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_94))))))" -"(values module672_0 name673_0 _674_0))" +"(values module673_0 name674_0 _675_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_94)))))" -"(values #t module669_1 name670_1 _671_1))))))" -"(let-values(((name_80)(syntax-e$1 name670_0)))" +"(values #t module670_1 name671_1 _672_1))))))" +"(let-values(((name_80)(syntax-e$1 name671_0)))" "(let-values((()" "(begin" "(if(hash-ref declared-submodule-names_8 name_80 #f)" @@ -77800,7 +77821,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_896" +" s_898" " name_80))" "(void))" "(values))))" @@ -77809,33 +77830,33 @@ static const char *startup_source = "(hash-set!" " declared-submodule-names_8" " name_80" -"(syntax-e$1 module669_0))" +"(syntax-e$1 module670_0))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_164)(expand-context-observer ctx_121)))" -"(if obs_164" +"(let-values(((obs_162)(expand-context-observer ctx_121)))" +"(if obs_162" "(let-values()" "(let-values()" -"(call-expand-observe obs_164 'enter-prim s_896)))" +"(call-expand-observe obs_162 'enter-prim s_898)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s677_0) s_896)" -"((temp678_0)" +"(let-values(((s678_0) s_898)" +"((temp679_0)" "(let-values(((v_272) ctx_121))" "(let-values(((the-struct_118) v_272))" "(if(expand-context/outer? the-struct_118)" -"(let-values(((context687_0) 'module)" -"((post-expansion-scope688_0)" +"(let-values(((context688_0) 'module)" +"((post-expansion-scope689_0)" " #f)" -"((inner689_0)" +"((inner690_0)" "(let-values(((the-struct_119)" "(root-expand-context/outer-inner" " v_272)))" "(if(expand-context/inner?" " the-struct_119)" -"(let-values(((stops690_0)" +"(let-values(((stops691_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" @@ -77866,7 +77887,7 @@ static const char *startup_source = " the-struct_119)" "(expand-context/inner-in-local-expand?" " the-struct_119)" -" stops690_0" +" stops691_0" "(expand-context/inner-declared-submodule-names" " the-struct_119)" "(expand-context/inner-lifts" @@ -77892,13 +77913,13 @@ static const char *startup_source = " \"expand-context/inner?\"" " the-struct_119)))))" "(expand-context/outer1.1" -" inner689_0" -" post-expansion-scope688_0" +" inner690_0" +" post-expansion-scope689_0" "(root-expand-context/outer-use-site-scopes" " the-struct_118)" "(root-expand-context/outer-frame-id" " the-struct_118)" -" context687_0" +" context688_0" "(expand-context/outer-env" " the-struct_118)" "(expand-context/outer-post-expansion-scope-action" @@ -77923,45 +77944,45 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_118)))))" -"((self679_0) self_41)" -"((temp680_0) #t)" -"((keep-enclosing-scope-at-phase681_0)" +"((self680_0) self_41)" +"((temp681_0) #t)" +"((keep-enclosing-scope-at-phase682_0)" " keep-enclosing-scope-at-phase_2)" -"((enclosing-all-scopes-stx682_0)" +"((enclosing-all-scopes-stx683_0)" " enclosing-all-scopes-stx_1)" -"((enclosing-r+p683_0) enclosing-r+p_2)" -"((enclosing-is-cross-phase-persistent?684_0)" +"((enclosing-r+p684_0) enclosing-r+p_2)" +"((enclosing-is-cross-phase-persistent?685_0)" " enclosing-is-cross-phase-persistent?_2)" -"((mpis-to-reset685_0) mpis-to-reset_4)" -"((modules-being-compiled686_0)" +"((mpis-to-reset686_0) mpis-to-reset_4)" +"((modules-being-compiled687_0)" " modules-being-compiled_8))" "(expand-module18.1" -" temp680_0" +" temp681_0" " #t" -" enclosing-all-scopes-stx682_0" +" enclosing-all-scopes-stx683_0" " #t" -" enclosing-is-cross-phase-persistent?684_0" +" enclosing-is-cross-phase-persistent?685_0" " #t" -" enclosing-r+p683_0" +" enclosing-r+p684_0" " #t" -" keep-enclosing-scope-at-phase681_0" +" keep-enclosing-scope-at-phase682_0" " #t" -" modules-being-compiled686_0" +" modules-being-compiled687_0" " #t" -" mpis-to-reset685_0" +" mpis-to-reset686_0" " #t" -" s677_0" -" temp678_0" -" self679_0))))" +" s678_0" +" temp679_0" +" self680_0))))" "(let-values((()" "(begin" -"(let-values(((obs_165)" +"(let-values(((obs_163)" "(expand-context-observer ctx_121)))" -"(if obs_165" +"(if obs_163" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_165" +" obs_163" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))" @@ -77971,49 +77992,49 @@ static const char *startup_source = "(let-values(((root-module-name_1)" "(resolved-module-path-root-name module-name_3)))" "(let-values(((compiled-submodule_0)" -"(let-values(((temp691_0)" +"(let-values(((temp692_0)" "(if(expanded+parsed? submod_5)" "(expanded+parsed-parsed submod_5)" " submod_5))" -"((temp692_0)" -"(let-values(((ns697_0) ns_131)" -"((self698_0) self_41)" -"((temp699_0)" +"((temp693_0)" +"(let-values(((ns698_0) ns_131)" +"((self699_0) self_41)" +"((temp700_0)" "(1/resolved-module-path-name" " module-name_3)))" "(make-compile-context14.1" -" temp699_0" +" temp700_0" " #t" " #f" " #f" -" self698_0" +" self699_0" " #t" -" ns697_0" +" ns698_0" " #t" " #f" " #f" " #f" " #f)))" -"((temp693_0) #t)" -"((temp694_0)" +"((temp694_0) #t)" +"((temp695_0)" "(expand-context-for-serializable?" " ctx_121))" -"((modules-being-compiled695_0)" +"((modules-being-compiled696_0)" " modules-being-compiled_8)" -"((temp696_0) #f))" +"((temp697_0) #f))" "(compile-module13.1" -" temp693_0" -" #t" -" modules-being-compiled695_0" -" #t" -" temp696_0" -" #t" " temp694_0" " #t" +" modules-being-compiled696_0" +" #t" +" temp697_0" +" #t" +" temp695_0" +" #t" " #f" " #f" -" temp691_0" -" temp692_0))))" +" temp692_0" +" temp693_0))))" "(begin" "(hash-set!" " compiled-submodules_5" @@ -78028,27 +78049,27 @@ static const char *startup_source = " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_1))" "(let-values()" -"(let-values(((compiled-submodule700_0)" +"(let-values(((compiled-submodule701_0)" " compiled-submodule_0)" -"((temp701_0) #f))" +"((temp702_0) #f))" "(eval-module8.1" " #f" " #f" " #f" " #f" -" temp701_0" +" temp702_0" " #t" -" compiled-submodule700_0))))" +" compiled-submodule701_0))))" "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_166)" +"(let-values(((obs_124)" "(expand-context-observer ctx_121)))" -"(if obs_166" +"(if obs_124" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_166" +" obs_124" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))))" @@ -78058,15 +78079,15 @@ static const char *startup_source = "(let-values()" "(let-values(((the-struct_120) submod_5))" "(if(expanded+parsed? the-struct_120)" -"(let-values(((parsed702_0)" +"(let-values(((parsed703_0)" "(let-values(((the-struct_121)" "(expanded+parsed-parsed" " submod_5)))" "(if(parsed-module? the-struct_121)" -"(let-values(((star?703_0) #t))" +"(let-values(((star?704_0) #t))" "(parsed-module25.1" "(parsed-s the-struct_121)" -" star?703_0" +" star?704_0" "(parsed-module-name-id" " the-struct_121)" "(parsed-module-self" @@ -78091,7 +78112,7 @@ static const char *startup_source = " the-struct_121)))))" "(expanded+parsed1.1" "(expanded+parsed-s the-struct_120)" -" parsed702_0))" +" parsed703_0))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" @@ -78099,10 +78120,10 @@ static const char *startup_source = "(let-values()" "(let-values(((the-struct_122) submod_5))" "(if(parsed-module? the-struct_122)" -"(let-values(((star?704_0) #t))" +"(let-values(((star?705_0) #t))" "(parsed-module25.1" "(parsed-s the-struct_122)" -" star?704_0" +" star?705_0" "(parsed-module-name-id the-struct_122)" "(parsed-module-self the-struct_122)" "(parsed-module-requires the-struct_122)" @@ -78139,18 +78160,18 @@ static const char *startup_source = "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_456) bodys_28))" +"(let-values(((lst_457) bodys_28))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_456)))" +"(let-values()(check-list lst_457)))" "((letrec-values(((for-loop_348)" -"(lambda(fold-var_391 lst_457)" +"(lambda(fold-var_391 lst_458)" "(begin" " 'for-loop" -"(if(pair? lst_457)" -"(let-values(((body_27)(unsafe-car lst_457))" -"((rest_261)(unsafe-cdr lst_457)))" +"(if(pair? lst_458)" +"(let-values(((body_27)(unsafe-car lst_458))" +"((rest_260)(unsafe-cdr lst_458)))" "(let-values(((fold-var_392)" "(let-values(((fold-var_393) fold-var_391))" "(let-values(((fold-var_394)" @@ -78164,49 +78185,49 @@ static const char *startup_source = " phase_168)))" "(if(equal? tmp_71 'module)" "(let-values()" -"(let-values(((body705_0)" +"(let-values(((body706_0)" " body_27)" -"((self706_0)" +"((self707_0)" " self_42)" -"((ctx707_0)" +"((ctx708_0)" " ctx_122)" -"((temp708_0)" +"((temp709_0)" " #f)" -"((mpis-to-reset709_0)" +"((mpis-to-reset710_0)" " mpis-to-reset_5)" -"((declared-submodule-names710_0)" +"((declared-submodule-names711_0)" " declared-submodule-names_9)" -"((compiled-submodules711_0)" +"((compiled-submodules712_0)" " compiled-submodules_6)" -"((modules-being-compiled712_0)" +"((modules-being-compiled713_0)" " modules-being-compiled_9))" "(expand-submodule197.1" -" compiled-submodules711_0" -" declared-submodule-names710_0" +" compiled-submodules712_0" +" declared-submodule-names711_0" " #f" " #f" " #f" " #f" " #f" " #f" -" temp708_0" +" temp709_0" " #f" " #f" -" modules-being-compiled712_0" -" mpis-to-reset709_0" -" body705_0" -" self706_0" -" ctx707_0)))" +" modules-being-compiled713_0" +" mpis-to-reset710_0" +" body706_0" +" self707_0" +" ctx708_0)))" "(let-values() body_27))))" " fold-var_393))))" "(values fold-var_394)))))" "(if(not #f)" -"(for-loop_348 fold-var_392 rest_261)" +"(for-loop_348 fold-var_392 rest_260)" " fold-var_392)))" " fold-var_391)))))" " for-loop_348)" " null" -" lst_456))))))))))))))))" +" lst_457))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -78217,84 +78238,84 @@ static const char *startup_source = "(let-values(((requires+provides_14) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_900 phase_169)" -"(let-values(((ok?_91 #%require713_0 req714_0)" -"(let-values(((s_901)(syntax-disarm$1 s_900)))" -"(let-values(((orig-s_95) s_901))" -"(let-values(((#%require713_1 req714_1)" -"(let-values(((s_902)" -"(if(syntax?$1 s_901)(syntax-e$1 s_901) s_901)))" -"(if(pair? s_902)" -"(let-values(((#%require715_0)" -"(let-values(((s_903)(car s_902))) s_903))" -"((req716_0)" -"(let-values(((s_904)(cdr s_902)))" +"(lambda(s_903 phase_169)" +"(let-values(((ok?_91 #%require714_0 req715_0)" +"(let-values(((s_904)(syntax-disarm$1 s_903)))" +"(let-values(((orig-s_95) s_904))" +"(let-values(((#%require714_1 req715_1)" "(let-values(((s_905)" -"(if(syntax?$1 s_904)" -"(syntax-e$1 s_904)" -" s_904)))" +"(if(syntax?$1 s_904)(syntax-e$1 s_904) s_904)))" "(if(pair? s_905)" -"(let-values(((req717_0)" -"(let-values(((s_906)" -"(car s_905)))" -" s_906))" -"(()" -"(let-values(((s_907)" -"(cdr s_905)))" +"(let-values(((#%require716_0)" +"(let-values(((s_906)(car s_905))) s_906))" +"((req717_0)" +"(let-values(((s_907)(cdr s_905)))" "(let-values(((s_908)" -"(if(syntax?$1" -" s_907)" -"(syntax-e$1" -" s_907)" +"(if(syntax?$1 s_907)" +"(syntax-e$1 s_907)" " s_907)))" -"(if(null? s_908)" +"(if(pair? s_908)" +"(let-values(((req718_0)" +"(let-values(((s_909)" +"(car s_908)))" +" s_909))" +"(()" +"(let-values(((s_910)" +"(cdr s_908)))" +"(let-values(((s_911)" +"(if(syntax?$1" +" s_910)" +"(syntax-e$1" +" s_910)" +" s_910)))" +"(if(null? s_911)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_95))))))" -"(values req717_0))" +"(values req718_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_95))))))" -"(values #%require715_0 req716_0))" +"(values #%require716_0 req717_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" -"(values #t #%require713_1 req714_1))))))" -"(let-values(((temp718_0)(list req714_0))" -"((s719_0) s_900)" -"((self720_0) self_43)" -"((m-ns721_0) m-ns_23)" -"((phase722_0) phase_169)" +"(values #t #%require714_1 req715_1))))))" +"(let-values(((temp719_0)(list req715_0))" +"((s720_0) s_903)" +"((self721_0) self_43)" +"((m-ns722_0) m-ns_23)" "((phase723_0) phase_169)" -"((requires+provides724_0) requires+provides_14)" -"((declared-submodule-names725_0) declared-submodule-names_10)" -"((temp726_0) 'require))" +"((phase724_0) phase_169)" +"((requires+provides725_0) requires+provides_14)" +"((declared-submodule-names726_0) declared-submodule-names_10)" +"((temp727_0) 'require))" "(parse-and-perform-requires!30.1" " #f" " #f" " #f" " #f" -" declared-submodule-names725_0" +" declared-submodule-names726_0" " #t" " #f" " #f" +" phase724_0" +" #t" +" #f" +" #f" +" self721_0" +" #t" +" #f" +" #f" +" #f" +" #f" +" temp727_0" +" temp719_0" +" s720_0" +" m-ns722_0" " phase723_0" -" #t" -" #f" -" #f" -" self720_0" -" #t" -" #f" -" #f" -" #f" -" #f" -" temp726_0" -" temp718_0" -" s719_0" -" m-ns721_0" -" phase722_0" -" requires+provides724_0))))))))))))" +" requires+provides725_0))))))))))))" "(define-values" "(defn-extract-syntax)" "(lambda(defn_0)" @@ -78308,16 +78329,16 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_458) lifted-defns_2))" +"(let-values(((lst_459) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_458)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_459)))" "((letrec-values(((for-loop_349)" -"(lambda(fold-var_395 lst_459)" +"(lambda(fold-var_395 lst_460)" "(begin" " 'for-loop" -"(if(pair? lst_459)" -"(let-values(((lifted-defn_0)(unsafe-car lst_459))" -"((rest_262)(unsafe-cdr lst_459)))" +"(if(pair? lst_460)" +"(let-values(((lifted-defn_0)(unsafe-car lst_460))" +"((rest_261)(unsafe-cdr lst_460)))" "(let-values(((fold-var_396)" "(let-values(((fold-var_397) fold-var_395))" "(let-values(((fold-var_398)" @@ -78327,38 +78348,38 @@ static const char *startup_source = "(defn-extract-syntax lifted-defn_0))" " fold-var_397))))" "(values fold-var_398)))))" -"(if(not #f)(for-loop_349 fold-var_396 rest_262) fold-var_396)))" +"(if(not #f)(for-loop_349 fold-var_396 rest_261) fold-var_396)))" " fold-var_395)))))" " for-loop_349)" " null" -" lst_458)))))))" +" lst_459)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" "(begin" -"(let-values(((obs_167)(expand-context-observer partial-body-ctx_2)))" -"(if obs_167" +"(let-values(((obs_164)(expand-context-observer partial-body-ctx_2)))" +"(if obs_164" "(let-values()" "(let-values(((s-lifted-defns_0)(lifted-defns-extract-syntax lifted-defns_3)))" "(let-values((()" "(begin" -"(call-expand-observe obs_167 'rename-list(cons exp-body_10 rest-bodys_4))" +"(call-expand-observe obs_164 'rename-list(cons exp-body_10 rest-bodys_4))" "(values))))" -"(let-values((()(begin(call-expand-observe obs_167 'module-lift-loop s-lifted-defns_0)(values))))" +"(let-values((()(begin(call-expand-observe obs_164 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_460) s-lifted-defns_0))" +"(let-values(((lst_461) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_460)))" +"(let-values()(check-list lst_461)))" "((letrec-values(((for-loop_350)" -"(lambda(lst_461)" +"(lambda(lst_462)" "(begin" " 'for-loop" -"(if(pair? lst_461)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_461))" -"((rest_263)(unsafe-cdr lst_461)))" +"(if(pair? lst_462)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_462))" +"((rest_262)(unsafe-cdr lst_462)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -78366,40 +78387,40 @@ static const char *startup_source = "(begin" "(let-values()" "(let-values(((ok?_92" -" define-values731_0" -" _732_0)" -"(let-values(((s_909)" +" define-values732_0" +" _733_0)" +"(let-values(((s_912)" " s-lifted-defn_0))" "(let-values(((orig-s_96)" -" s_909))" -"(let-values(((define-values731_1" -" _732_1)" -"(let-values(((s_910)" -"(if(syntax?$1" -" s_909)" -"(syntax-e$1" -" s_909)" -" s_909)))" -"(if(pair?" -" s_910)" -"(let-values(((define-values733_0)" -"(let-values(((s_911)" -"(car" -" s_910)))" -" s_911))" -"((_734_0)" -"(let-values(((s_912)" -"(cdr" -" s_910)))" +" s_912))" +"(let-values(((define-values732_1" +" _733_1)" "(let-values(((s_913)" "(if(syntax?$1" " s_912)" "(syntax-e$1" " s_912)" " s_912)))" +"(if(pair?" +" s_913)" +"(let-values(((define-values734_0)" +"(let-values(((s_914)" +"(car" +" s_913)))" +" s_914))" +"((_735_0)" +"(let-values(((s_915)" +"(cdr" +" s_913)))" +"(let-values(((s_916)" +"(if(syntax?$1" +" s_915)" +"(syntax-e$1" +" s_915)" +" s_915)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_913)))" +" s_916)))" "(if(not" " flat-s_64)" "(let-values()" @@ -78410,112 +78431,112 @@ static const char *startup_source = "(let-values()" " flat-s_64)))))))" "(values" -" define-values733_0" -" _734_0))" +" define-values734_0" +" _735_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_96)))))" "(values" " #t" -" define-values731_1" -" _732_1))))))" +" define-values732_1" +" _733_1))))))" "(begin" "(call-expand-observe" -" obs_167" +" obs_164" " 'next)" "(call-expand-observe" -" obs_167" +" obs_164" " 'visit" " s-lifted-defn_0)" "(call-expand-observe" -" obs_167" +" obs_164" " 'resolve" -" define-values731_0)" +" define-values732_0)" "(call-expand-observe" -" obs_167" +" obs_164" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_167" +" obs_164" " 'prim-stop)" "(call-expand-observe" -" obs_167" +" obs_164" " 'exit-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_167" +" obs_164" " 'return" " s-lifted-defn_0)" "(call-expand-observe" -" obs_167" +" obs_164" " 'rename-one" " s-lifted-defn_0)" "(call-expand-observe" -" obs_167" +" obs_164" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_167" +" obs_164" " 'prim-define-values)" "(call-expand-observe" -" obs_167" +" obs_164" " 'exit-prim" " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_350 rest_263)(values))))" +"(if(not #f)(for-loop_350 rest_262)(values))))" "(values))))))" " for-loop_350)" -" lst_460)))" +" lst_461)))" "(values))))" "(let-values()" -"(let-values(((ok?_93 form-id727_0 _728_0)" -"(let-values(((s_914) exp-body_10))" -"(let-values(((orig-s_97) s_914))" -"(let-values(((form-id727_1 _728_1)" -"(let-values(((s_915)" -"(if(syntax?$1 s_914)(syntax-e$1 s_914) s_914)))" -"(if(pair? s_915)" -"(let-values(((form-id729_0)" -"(let-values(((s_916)(car s_915))) s_916))" -"((_730_0)" -"(let-values(((s_917)(cdr s_915))) s_917)))" -"(values form-id729_0 _730_0))" +"(let-values(((ok?_93 form-id728_0 _729_0)" +"(let-values(((s_917) exp-body_10))" +"(let-values(((orig-s_97) s_917))" +"(let-values(((form-id728_1 _729_1)" +"(let-values(((s_918)" +"(if(syntax?$1 s_917)(syntax-e$1 s_917) s_917)))" +"(if(pair? s_918)" +"(let-values(((form-id730_0)" +"(let-values(((s_919)(car s_918))) s_919))" +"((_731_0)" +"(let-values(((s_920)(cdr s_918))) s_920)))" +"(values form-id730_0 _731_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" -"(values #t form-id727_1 _728_1))))))" +"(values #t form-id728_1 _729_1))))))" "(begin" -"(call-expand-observe obs_167 'next)" -"(call-expand-observe obs_167 'visit exp-body_10)" -"(call-expand-observe obs_167 'resolve form-id727_0)" -"(call-expand-observe obs_167 'enter-prim exp-body_10)" -"(call-expand-observe obs_167 'prim-stop)" -"(call-expand-observe obs_167 'exit-prim exp-body_10)" -"(call-expand-observe obs_167 'return exp-body_10)))))))))" +"(call-expand-observe obs_164 'next)" +"(call-expand-observe obs_164 'visit exp-body_10)" +"(call-expand-observe obs_164 'resolve form-id728_0)" +"(call-expand-observe obs_164 'enter-prim exp-body_10)" +"(call-expand-observe obs_164 'prim-stop)" +"(call-expand-observe obs_164 'exit-prim exp-body_10)" +"(call-expand-observe obs_164 'return exp-body_10)))))))))" "(void))))))" "(define-values" "(log-defn-enter)" "(lambda(ctx_123 defn_1)" "(begin" -"(let-values(((obs_168)(expand-context-observer ctx_123)))" -"(if obs_168" +"(let-values(((obs_165)(expand-context-observer ctx_123)))" +"(if obs_165" "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" -"(let-values(((ok?_94 define-values735_0 _736_0)" -"(let-values(((s_918) s-defn_0))" -"(let-values(((orig-s_98) s_918))" -"(let-values(((define-values735_1 _736_1)" -"(let-values(((s_919)(if(syntax?$1 s_918)(syntax-e$1 s_918) s_918)))" -"(if(pair? s_919)" -"(let-values(((define-values737_0)" -"(let-values(((s_920)(car s_919))) s_920))" -"((_738_0)" -"(let-values(((s_921)(cdr s_919)))" -"(let-values(((s_922)" -"(if(syntax?$1 s_921)" -"(syntax-e$1 s_921)" -" s_921)))" -"(let-values(((flat-s_65)(to-syntax-list.1 s_922)))" +"(let-values(((ok?_94 define-values736_0 _737_0)" +"(let-values(((s_921) s-defn_0))" +"(let-values(((orig-s_98) s_921))" +"(let-values(((define-values736_1 _737_1)" +"(let-values(((s_922)(if(syntax?$1 s_921)(syntax-e$1 s_921) s_921)))" +"(if(pair? s_922)" +"(let-values(((define-values738_0)" +"(let-values(((s_923)(car s_922))) s_923))" +"((_739_0)" +"(let-values(((s_924)(cdr s_922)))" +"(let-values(((s_925)" +"(if(syntax?$1 s_924)" +"(syntax-e$1 s_924)" +" s_924)))" +"(let-values(((flat-s_65)(to-syntax-list.1 s_925)))" "(if(not flat-s_65)" "(let-values()" "(raise-syntax-error$1" @@ -78523,28 +78544,28 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_98))" "(let-values() flat-s_65)))))))" -"(values define-values737_0 _738_0))" +"(values define-values738_0 _739_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" -"(values #t define-values735_1 _736_1))))))" +"(values #t define-values736_1 _737_1))))))" "(begin" -"(call-expand-observe obs_168 'visit s-defn_0)" -"(call-expand-observe obs_168 'resolve define-values735_0)" -"(call-expand-observe obs_168 'enter-prim s-defn_0)" -"(call-expand-observe obs_168 'prim-define-values)))))" +"(call-expand-observe obs_165 'visit s-defn_0)" +"(call-expand-observe obs_165 'resolve define-values736_0)" +"(call-expand-observe obs_165 'enter-prim s-defn_0)" +"(call-expand-observe obs_165 'prim-define-values)))))" "(void))))))" "(define-values" "(log-defn-exit)" "(lambda(ctx_124 defn_2 exp-rhs_8)" "(begin" -"(let-values(((obs_169)(expand-context-observer ctx_124)))" -"(if obs_169" +"(let-values(((obs_166)(expand-context-observer ctx_124)))" +"(if obs_166" "(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_169 'exit-prim s-defn_1)(call-expand-observe obs_169 'return s-defn_1))))" +"(begin(call-expand-observe obs_166 'exit-prim s-defn_1)(call-expand-observe obs_166 'return s-defn_1))))" "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" @@ -78563,7 +78584,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_84)" -"(let-values(((id_163)(unsafe-car lst_84))" +"(let-values(((id_164)(unsafe-car lst_84))" "((rest_40)(unsafe-cdr lst_84)))" "(let-values(((fold-var_61)" "(let-values(((fold-var_62) fold-var_399))" @@ -78572,7 +78593,7 @@ static const char *startup_source = "(cons" "(let-values()" "(remove-use-site-scopes" -" id_163" +" id_164" " ctx_125))" " fold-var_62))))" "(values fold-var_400)))))" @@ -78598,8 +78619,8 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_85)" -"(let-values(((id_164)(unsafe-car lst_85))" -"((rest_243)(unsafe-cdr lst_85)))" +"(let-values(((id_165)(unsafe-car lst_85))" +"((rest_242)(unsafe-cdr lst_85)))" "(let-values(((fold-var_26)" "(let-values(((fold-var_155) fold-var_222))" "(let-values(((fold-var_225)" @@ -78607,12 +78628,12 @@ static const char *startup_source = "(cons" "(let-values()" "(add-scope" -" id_164" +" id_165" " top-level-bind-scope_6))" " fold-var_155))))" "(values fold-var_225)))))" "(if(not #f)" -"(for-loop_351 fold-var_26 rest_243)" +"(for-loop_351 fold-var_26 rest_242)" " fold-var_26)))" " fold-var_222)))))" " for-loop_351)" @@ -78625,9 +78646,9 @@ static const char *startup_source = "(lambda(s_0 ctx_7)" "(let-values((()" "(begin" -"(let-values(((obs_170)(expand-context-observer ctx_7)))" -"(if obs_170" -"(let-values()(let-values()(call-expand-observe obs_170 'prim-define-values)))" +"(let-values(((obs_167)(expand-context-observer ctx_7)))" +"(if obs_167" +"(let-values()(let-values()(call-expand-observe obs_167 'prim-define-values)))" "(void)))" "(values))))" "(let-values((()" @@ -78644,7 +78665,7 @@ static const char *startup_source = "(let-values(((s_75)(if(syntax?$1 s_425)(syntax-e$1 s_425) s_425)))" "(if(pair? s_75)" "(let-values(((define-values4_0)" -"(let-values(((s_453)(car s_75))) s_453))" +"(let-values(((s_454)(car s_75))) s_454))" "((id5_0 rhs6_0)" "(let-values(((s_166)(cdr s_75)))" "(let-values(((s_5)" @@ -78679,7 +78700,7 @@ static const char *startup_source = "(check-list" " lst_80)))" "((letrec-values(((for-loop_98)" -"(lambda(id_165" +"(lambda(id_166" " lst_81)" "(begin" " 'for-loop" @@ -78691,9 +78712,9 @@ static const char *startup_source = "((rest_119)" "(unsafe-cdr" " lst_81)))" -"(let-values(((id_166)" "(let-values(((id_167)" -" id_165))" +"(let-values(((id_168)" +" id_166))" "(let-values(((id_118)" "(let-values()" "(let-values(((id10_1)" @@ -78717,16 +78738,16 @@ static const char *startup_source = " s_87)))))" "(cons" " id10_1" -" id_167)))))" +" id_168)))))" "(values" " id_118)))))" "(if(not" " #f)" "(for-loop_98" -" id_166" +" id_167" " rest_119)" -" id_166)))" -" id_165)))))" +" id_167)))" +" id_166)))))" " for-loop_98)" " null" " lst_80)))))" @@ -78747,14 +78768,14 @@ static const char *startup_source = "(let-values(((s_167)" "(cdr" " s_35)))" -"(let-values(((s_492)" +"(let-values(((s_493)" "(if(syntax?$1" " s_167)" "(syntax-e$1" " s_167)" " s_167)))" "(if(null?" -" s_492)" +" s_493)" "(values)" "(raise-syntax-error$1" " #f" @@ -78792,8 +78813,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_171)(expand-context-observer ctx_126)))" -"(if obs_171(let-values()(let-values()(call-expand-observe obs_171 'prepare-env)))(void)))" +"(let-values(((obs_168)(expand-context-observer ctx_126)))" +"(if obs_168(let-values()(let-values()(call-expand-observe obs_168 'prepare-env)))(void)))" "(values))))" "(let-values((()" "(begin" @@ -78812,17 +78833,17 @@ static const char *startup_source = "(let-values(((s_428)(car s_22))) s_428))" "((id19_1 rhs20_0)" "(let-values(((s_25)(cdr s_22)))" -"(let-values(((s_500)" +"(let-values(((s_501)" "(if(syntax?$1 s_25)" "(syntax-e$1 s_25)" " s_25)))" -"(if(pair? s_500)" +"(if(pair? s_501)" "(let-values(((id21_0)" -"(let-values(((s_923)(car s_500)))" +"(let-values(((s_926)(car s_501)))" "(let-values(((s_90)" -"(if(syntax?$1 s_923)" -"(syntax-e$1 s_923)" -" s_923)))" +"(if(syntax?$1 s_926)" +"(syntax-e$1 s_926)" +" s_926)))" "(let-values(((flat-s_67)" "(to-syntax-list.1" " s_90)))" @@ -78834,7 +78855,7 @@ static const char *startup_source = " orig-s_100))" "(let-values()" "(let-values(((id_95)" -"(let-values(((lst_462)" +"(let-values(((lst_463)" " flat-s_67))" "(begin" "(if(variable-reference-from-unsafe?" @@ -78842,72 +78863,72 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_462)))" +" lst_463)))" "((letrec-values(((for-loop_2)" "(lambda(id_54" -" lst_290)" +" lst_291)" "(begin" " 'for-loop" "(if(pair?" -" lst_290)" -"(let-values(((s_924)" +" lst_291)" +"(let-values(((s_927)" "(unsafe-car" -" lst_290))" -"((rest_264)" +" lst_291))" +"((rest_263)" "(unsafe-cdr" -" lst_290)))" -"(let-values(((id_168)" +" lst_291)))" +"(let-values(((id_169)" "(let-values(((id_71)" " id_54))" -"(let-values(((id_169)" +"(let-values(((id_170)" "(let-values()" "(let-values(((id24_1)" "(let-values()" "(if(let-values(((or-part_209)" "(if(syntax?$1" -" s_924)" +" s_927)" "(symbol?" "(syntax-e$1" -" s_924))" +" s_927))" " #f)))" "(if or-part_209" " or-part_209" "(symbol?" -" s_924)))" -" s_924" +" s_927)))" +" s_927" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_100" -" s_924)))))" +" s_927)))))" "(cons" " id24_1" " id_71)))))" "(values" -" id_169)))))" +" id_170)))))" "(if(not" " #f)" "(for-loop_2" -" id_168" -" rest_264)" -" id_168)))" +" id_169" +" rest_263)" +" id_169)))" " id_54)))))" " for-loop_2)" " null" -" lst_462)))))" +" lst_463)))))" "(reverse$1 id_95))))))))" "((rhs22_0)" -"(let-values(((s_504)(cdr s_500)))" +"(let-values(((s_505)(cdr s_501)))" "(let-values(((s_174)" -"(if(syntax?$1 s_504)" -"(syntax-e$1 s_504)" -" s_504)))" +"(if(syntax?$1 s_505)" +"(syntax-e$1 s_505)" +" s_505)))" "(if(pair? s_174)" "(let-values(((rhs23_2)" -"(let-values(((s_501)" +"(let-values(((s_502)" "(car" " s_174)))" -" s_501))" +" s_502))" "(()" "(let-values(((s_46)" "(cdr" @@ -78949,18 +78970,18 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_485 ctx_127)" +"(lambda(s_486 ctx_127)" "(let-values((()" "(begin" "(if(eq?(expand-context-context ctx_127) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_485)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_486)))" "(values))))" "(let-values(((ok?_37 begin-for-syntax29_0 form30_0)" -"(let-values(((s_925) s_485))" -"(let-values(((orig-s_101) s_925))" +"(let-values(((s_928) s_486))" +"(let-values(((orig-s_101) s_928))" "(let-values(((begin-for-syntax29_1 form30_1)" -"(let-values(((s_49)(if(syntax?$1 s_925)(syntax-e$1 s_925) s_925)))" +"(let-values(((s_49)(if(syntax?$1 s_928)(syntax-e$1 s_928) s_928)))" "(if(pair? s_49)" "(let-values(((begin-for-syntax31_0)(let-values(((s_51)(car s_49))) s_51))" "((form32_0)" @@ -78977,16 +78998,16 @@ static const char *startup_source = "(values #t begin-for-syntax29_1 form30_1))))))" "(let-values((()" "(begin" -"(let-values(((obs_172)(expand-context-observer ctx_127)))" -"(if obs_172" -"(let-values()(let-values()(call-expand-observe obs_172 'prim-begin-for-syntax)))" +"(let-values(((obs_169)(expand-context-observer ctx_127)))" +"(if obs_169" +"(let-values()(let-values()(call-expand-observe obs_169 'prim-begin-for-syntax)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_173)(expand-context-observer ctx_127)))" -"(if obs_173" -"(let-values()(let-values()(call-expand-observe obs_173 'prepare-env)))" +"(let-values(((obs_170)(expand-context-observer ctx_127)))" +"(if obs_170" +"(let-values()(let-values()(call-expand-observe obs_170 'prepare-env)))" "(void)))" "(values))))" "(let-values(((trans-ctx_1)" @@ -79061,15 +79082,15 @@ static const char *startup_source = " 'loop" "(let-values((()" "(begin" -"(let-values(((obs_174)" +"(let-values(((obs_171)" "(expand-context-observer ctx_127)))" -"(if obs_174" +"(if obs_171" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_174" +" obs_171" " 'enter-list" -"(datum->syntax$1 #f form30_0 s_485))))" +"(datum->syntax$1 #f form30_0 s_486))))" "(void)))" "(values))))" "(let-values(((exp-forms_0)" @@ -79083,19 +79104,19 @@ static const char *startup_source = "(reverse$1" " accum_1)))" "(begin" -"(let-values(((obs_175)" +"(let-values(((obs_172)" "(expand-context-observer" " ctx_127)))" -"(if obs_175" +"(if obs_172" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_175" +" obs_172" " 'exit-list" "(datum->syntax$1" " #f" " forms_2" -" s_485))))" +" s_486))))" "(void)))" " forms_2)))" "(let-values()" @@ -79139,14 +79160,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_176)" +"(let-values(((obs_173)" "(expand-context-observer" " ctx_127)))" -"(if obs_176" +"(if obs_173" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_176" +" obs_173" " 'module-lift-loop" " lifts_14)))" "(void)))" @@ -79176,8 +79197,8 @@ static const char *startup_source = " loop_63)" " form30_0)))" "(if(expand-context-to-parsed? ctx_127)" -"(parsed-begin-for-syntax21.1 s_485 all-exp-forms_0)" -"(let-values(((s45_0) s_485)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" +"(parsed-begin-for-syntax21.1 s_486 all-exp-forms_0)" +"(let-values(((s45_0) s_486)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" "(rebuild5.1 #f #f s45_0 temp46_4))))))))))))))" "(void" "(add-core-form!*" @@ -79185,8 +79206,8 @@ static const char *startup_source = "(lambda(s_412 ctx_128)" "(let-values((()" "(begin" -"(let-values(((obs_177)(expand-context-observer ctx_128)))" -"(if obs_177(let-values()(let-values()(call-expand-observe obs_177 'prim-require)))(void)))" +"(let-values(((obs_174)(expand-context-observer ctx_128)))" +"(if obs_174(let-values()(let-values()(call-expand-observe obs_174 'prim-require)))(void)))" "(values))))" "(let-values((()" "(begin" @@ -79203,11 +79224,11 @@ static const char *startup_source = "(if(pair? s_200)" "(let-values(((#%require49_0)(let-values(((s_63)(car s_200))) s_63))" "((req50_0)" -"(let-values(((s_447)(cdr s_200)))" +"(let-values(((s_448)(cdr s_200)))" "(let-values(((s_416)" -"(if(syntax?$1 s_447)" -"(syntax-e$1 s_447)" -" s_447)))" +"(if(syntax?$1 s_448)" +"(syntax-e$1 s_448)" +" s_448)))" "(let-values(((flat-s_69)(to-syntax-list.1 s_416)))" "(if(not flat-s_69)" "(let-values()" @@ -79223,18 +79244,18 @@ static const char *startup_source = "(begin" "(let-values(((temp51_3)" "(reverse$1" -"(let-values(((lst_463) req48_0))" +"(let-values(((lst_464) req48_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_463)))" +"(let-values()(check-list lst_464)))" "((letrec-values(((for-loop_352)" "(lambda(fold-var_401 lst_200)" "(begin" " 'for-loop" "(if(pair? lst_200)" "(let-values(((req_20)(unsafe-car lst_200))" -"((rest_265)(unsafe-cdr lst_200)))" +"((rest_264)(unsafe-cdr lst_200)))" "(let-values(((fold-var_301)" "(let-values(((fold-var_139) fold-var_401))" "(let-values(((fold-var_402)" @@ -79247,12 +79268,12 @@ static const char *startup_source = " fold-var_139))))" "(values fold-var_402)))))" "(if(not #f)" -"(for-loop_352 fold-var_301 rest_265)" +"(for-loop_352 fold-var_301 rest_264)" " fold-var_301)))" " fold-var_401)))))" " for-loop_352)" " null" -" lst_463)))))" +" lst_464)))))" "((s52_0) s_412)" "((temp53_5) #f)" "((temp54_7)(expand-context-namespace ctx_128))" @@ -79291,8 +79312,8 @@ static const char *startup_source = " '#%provide" "(lambda(s_782 ctx_129)" "(begin" -"(let-values(((obs_178)(expand-context-observer ctx_129)))" -"(if obs_178(let-values()(let-values()(call-expand-observe obs_178 'prim-provide)))(void)))" +"(let-values(((obs_175)(expand-context-observer ctx_129)))" +"(if obs_175(let-values()(let-values()(call-expand-observe obs_175 'prim-provide)))(void)))" " (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_782)))))" "(define-values(ns)(make-namespace))" "(void"