From 031564b28cde09a84d18f4f7e2d1cf4653bc055e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 27 Jul 2018 11:58:12 -0600 Subject: [PATCH] expander extract: add `--local-rename` to minimize startup diffs The expander's output normally uses a distinct symbolic name for every distinct binding within a linklet. That property is useful for consumers like schemify, but it's counterproductive for minimizing the diff in changes to "startup.inc", since the traditional Racket compiler doesn't need that guarantee. Use `--local-rename` to generate "startup.inc", which should make future diffs smaller and more composable after changes to the expander. --- racket/src/expander/Makefile | 2 +- racket/src/expander/README.txt | 7 + racket/src/expander/compile/main.rkt | 6 +- racket/src/expander/extract/main.rkt | 10 +- racket/src/expander/extract/underscore.rkt | 106 +- racket/src/expander/run.rkt | 5 + racket/src/racket/src/startup.inc | 90996 ++++++++++--------- 7 files changed, 45855 insertions(+), 45277 deletions(-) diff --git a/racket/src/expander/Makefile b/racket/src/expander/Makefile index bffa338b1f..c680fbf91c 100644 --- a/racket/src/expander/Makefile +++ b/racket/src/expander/Makefile @@ -31,7 +31,7 @@ DIRECT = ++direct linklet ++direct kernel expander: $(RACO) make bootstrap-run.rkt - $(RACKET) bootstrap-run.rkt -c compiled/cache-src $(KNOT) $(DIRECT) -O $(TREE) + $(RACKET) bootstrap-run.rkt -c compiled/cache-src $(KNOT) $(DIRECT) --local-rename -O $(TREE) expander-src: $(RACO) make bootstrap-run.rkt diff --git a/racket/src/expander/README.txt b/racket/src/expander/README.txt index be5ba82fdd..18749d9454 100644 --- a/racket/src/expander/README.txt +++ b/racket/src/expander/README.txt @@ -75,6 +75,13 @@ Running: Expands and extracts as a single linklet to . + Unless the `--local-rename` flag is also provided to + "bootstrap-run.rkt", an extracted linklet preserves a naming + property of the expander's compilation to linklets, which is that + it uses a distinct symbol for every binding. The symbol--binding + correspondence is useful for some further compiler passes, but + `--local-rename` is useful to minimize syntactic diffs. + % racket bootstrap-run.rkt -c -sx -D -t -o Expands and extracts as a single linklet, compiles and diff --git a/racket/src/expander/compile/main.rkt b/racket/src/expander/compile/main.rkt index 970541095e..551fedf0fd 100644 --- a/racket/src/expander/compile/main.rkt +++ b/racket/src/expander/compile/main.rkt @@ -8,9 +8,9 @@ ;; Compilation of expanded code produces an S-expression (but enriched ;; with source locations and properties) where run-time primitive are ;; accessed directly, and all linklet imports and local variables are -;; renamed to avoid collisions with the primitive names and to avoid -;; all shadowing (but the same variable might be used in -;; non-overlapping local contexts). A `compile-linklet` function +;; renamed to avoid collisions with the primitive names and to make +;; every binding have a unique symbolic name (within the linklet) that +;; does not shadow a primitive. A `compile-linklet` function ;; (currently provided by the runtime system) then compiles the ;; enriched S-expression to bytecode. diff --git a/racket/src/expander/extract/main.rkt b/racket/src/expander/extract/main.rkt index 64601dd6e1..c1c316fd6b 100644 --- a/racket/src/expander/extract/main.rkt +++ b/racket/src/expander/extract/main.rkt @@ -29,6 +29,7 @@ #:as-c? as-c? #:as-decompiled? as-decompiled? #:as-bytecode? as-bytecode? + #:local-rename? local-rename? ;; Table of symbol -> (listof knot-spec), ;; to redirect a remaining import back to ;; an implementation that is defined in the @@ -148,9 +149,14 @@ (exit 1)) ;; Avoid gratuitous differences due to names generated during - ;; expansion + ;; expansion... (define re-renamed-linklet-expr - (simplify-underscore-numbers gced-linklet-expr)) + (if local-rename? + ;; ... and allow the same name to be used in different non-shadowing + ;; local contextx + (collapse-underscore-numbers gced-linklet-expr) + ;; ... but use a distinct symbol for every binder's name + (simplify-underscore-numbers gced-linklet-expr))) ;; Prune any explicit function names (using a `quote` pattern in ;; the body) when they still match a name that would be inferred diff --git a/racket/src/expander/extract/underscore.rkt b/racket/src/expander/extract/underscore.rkt index 37919d57cf..10558abd60 100644 --- a/racket/src/expander/extract/underscore.rkt +++ b/racket/src/expander/extract/underscore.rkt @@ -1,18 +1,38 @@ #lang racket/base +(require racket/match) -(provide simplify-underscore-numbers) +(provide simplify-underscore-numbers + collapse-underscore-numbers) ;; Small changes to the input code can trigger lots of renumberings ;; for local variables, where the expander adds "_" suffixes to ;; generate local-variable names, and the ""s count up across all ;; symbols. Renumber with symbol-specific counting to reduce -;; unneccessary changes to generated code. A simple strategy works -;; because no primitive or exported name has a "_" suffix. +;; unneccessary changes to generated code. A relatively simple +;; strategy works because no primitive or exported name has a "_" +;; suffix. -(define (simplify-underscore-numbers s) +(define (select-new-name s base-counts) + (define str (symbol->string s)) + (define m (regexp-match-positions #rx"_[0-9]+$" str)) + (cond + [(not m) s] + [else + (define base (substring str 0 (caar m))) + (define base-s (string->symbol base)) + (define n (base-counts base-s)) + (base-counts base-s (add1 n)) + (string->symbol (format "~a_~a" base n))])) + +;; ---------------------------------------- + +;; First variant: preserve the property that every binder is +;; repersented by a unique symbol. + +(define (simplify-underscore-numbers linklet-expr) (define replacements (make-hasheq)) (define base-counts (make-hasheq)) - (let loop ([s s]) + (let loop ([s linklet-expr]) (cond [(symbol? s) (cond @@ -26,11 +46,9 @@ (hash-set! replacements s s) s] [else - (define base (substring str 0 (caar m))) - (define base-s (string->symbol base)) - (define n (hash-ref base-counts base-s 0)) - (hash-set! base-counts base-s (add1 n)) - (define r (string->symbol (format "~a_~a" base n))) + (define r (select-new-name s (case-lambda + [(base-s) (hash-ref base-counts base-s 0)] + [(base-s n) (hash-set! base-counts base-s n)]))) (hash-set! replacements s r) r])])] [(pair? s) @@ -38,3 +56,71 @@ s (cons (loop (car s)) (loop (cdr s))))] [else s]))) + +;; ---------------------------------------- + +;; Second variant: preserve the property that every binder is +;; represented by a unique symbol. A relatively simple strategy works +;; because no primitive or exported name has a "_" suffix. + +(define (collapse-underscore-numbers linklet-expr) + + (define (collapse e replacements base-counts) + (match e + [`(define-values ,ids ,rhs) + `(define-values ,ids ,(collapse rhs replacements base-counts))] + [`(lambda ,formals ,body ...) + (define-values (new-formals new-replacements new-base-counts) + (rename-vars formals replacements base-counts)) + `(lambda ,new-formals . ,(collapse-in-body body new-replacements new-base-counts))] + [`(case-lambda [,formalss ,bodys ...] ...) + `(case-lambda + . ,(for/list ([formals (in-list formalss)] [body (in-list bodys)]) + (define-values (new-formals new-replacements new-base-counts) + (rename-vars formals replacements base-counts)) + `[,new-formals . ,(collapse-in-body body new-replacements new-base-counts)]))] + [`(quote . ,_) e] + [`(let-values . _) (collapse-in-let e #f replacements base-counts)] + [`(letrec-values . _) (collapse-in-let e #t replacements base-counts)] + [`(,pseudo-es ...) ; catch-all for remaining syntactic forms + (collapse-in-body pseudo-es replacements base-counts)] + [_ (if (symbol? e) + (hash-ref replacements e e) + e)])) + + (define (collapse-in-body es replacements base-counts) + (for/list ([e (in-list es)]) + (collapse e replacements base-counts))) + + (define (collapse-in-let e rec? replacements base-counts) + (match e + [`(,let-form ([,idss ,rhss] ...) ,body ...) + (define-values (new-idss body-replacements body-base-counts) + (rename-vars idss replacements body-base-counts)) + (define-values (rhs-replacements rhs-base-counts) + (if rec? + (values body-replacements body-base-counts) + (values replacements base-counts))) + `(,let-form ,(for/list ([ids (in-list new-idss)] + [rhs (in-list rhss)]) + `[,ids ,(collapse rhs rhs-replacements rhs-base-counts)]) + . ,(collapse-in-body body body-replacements body-base-counts))])) + + (define (rename-vars p replacements base-counts) + (define new-p + (let loop ([p p]) + (cond + [(null? p) null] + [(symbol? p) + (define r (select-new-name p (case-lambda + [(s) (hash-ref base-counts s 0)] + [(s n) (set! base-counts (hash-set base-counts s n))]))) + (set! replacements (hash-set replacements p r)) + r] + [(pair? p) (cons (loop (car p)) (loop (cdr p)))]))) + (values new-p replacements base-counts)) + + (match linklet-expr + [`(linklet ,imports ,exports ,forms ...) + `(linklet ,imports ,exports ,@(for/list ([form (in-list forms)]) + (collapse form #hasheq() #hasheq())))])) diff --git a/racket/src/expander/run.rkt b/racket/src/expander/run.rkt index 4c6671bbdd..61acfc53ce 100644 --- a/racket/src/expander/run.rkt +++ b/racket/src/expander/run.rkt @@ -46,6 +46,7 @@ (define extract-to-c? #f) (define extract-to-decompiled? #f) (define extract-to-bytecode? #f) +(define local-rename? #f) (define instance-knot-ties (make-hasheq)) (define primitive-table-directs (make-hasheq)) (define side-effect-free-modules (make-hash)) @@ -100,6 +101,9 @@ (hash-set! dependencies (simplify-path (path->complete-path file)) #t)] [("++depend-module") mod-file "Add and transitive as dependencies" (set! extra-module-dependencies (cons mod-file extra-module-dependencies))] + #:once-each + [("--local-rename") "Use simpler names in extracted, instead of a unique name for each binding" + (set! local-rename? #t)] #:once-any [("-C") "Print extracted bootstrap as a C encoding" (set! extract-to-c? #t)] @@ -313,6 +317,7 @@ #:as-c? extract-to-c? #:as-decompiled? extract-to-decompiled? #:as-bytecode? extract-to-bytecode? + #:local-rename? local-rename? #:instance-knot-ties instance-knot-ties #:primitive-table-directs primitive-table-directs #:side-effect-free-modules side-effect-free-modules)) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index edbb9ae579..764864fb36 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -77,90 +77,90 @@ static const char *startup_source = "(let-values()" "(let-values()" "(values" -"(let-values(((memq_0)" -"(lambda(v_0 orig-l_1)" +"(let-values(((memq_12)" +"(lambda(v_0 orig-l_0)" "(begin" " 'memq" -"((letrec-values(((loop_0)" +"((letrec-values(((loop_15)" "(lambda(ls_0)" "(begin" " 'loop" "(if(null? ls_0)" "(let-values() #f)" "(if(not(pair? ls_0))" -"(let-values()(bad-list$1 'memq orig-l_1))" +"(let-values()(bad-list$1 'memq orig-l_0))" "(if(eq? v_0(car ls_0))" "(let-values() ls_0)" -"(let-values()(loop_0(cdr ls_0))))))))))" -" loop_0)" -" orig-l_1)))))" -" memq_0)" -"(let-values(((memv_0)" -"(lambda(v_1 orig-l_2)" +"(let-values()(loop_15(cdr ls_0))))))))))" +" loop_15)" +" orig-l_0)))))" +" memq_12)" +"(let-values(((memv_17)" +"(lambda(v_0 orig-l_0)" "(begin" " 'memv" -"((letrec-values(((loop_1)" -"(lambda(ls_1)" +"((letrec-values(((loop_20)" +"(lambda(ls_0)" "(begin" " 'loop" -"(if(null? ls_1)" +"(if(null? ls_0)" "(let-values() #f)" -"(if(not(pair? ls_1))" -"(let-values()(bad-list$1 'memv orig-l_2))" -"(if(eqv? v_1(car ls_1))" -"(let-values() ls_1)" -"(let-values()(loop_1(cdr ls_1))))))))))" -" loop_1)" -" orig-l_2)))))" -" memv_0)" -"(let-values(((default_0)" -"(let-values(((member_0)" -"(lambda(v_2 orig-l_3)" +"(if(not(pair? ls_0))" +"(let-values()(bad-list$1 'memv orig-l_0))" +"(if(eqv? v_0(car ls_0))" +"(let-values() ls_0)" +"(let-values()(loop_20(cdr ls_0))))))))))" +" loop_20)" +" orig-l_0)))))" +" memv_17)" +"(let-values(((default_22)" +"(let-values(((member_23)" +"(lambda(v_0 orig-l_0)" "(begin" " 'member" -"((letrec-values(((loop_2)" -"(lambda(ls_2)" +"((letrec-values(((loop_26)" +"(lambda(ls_0)" "(begin" " 'loop" -"(if(null? ls_2)" +"(if(null? ls_0)" "(let-values() #f)" -"(if(not(pair? ls_2))" -"(let-values()(bad-list$1 'member orig-l_3))" -"(if(equal? v_2(car ls_2))" -"(let-values() ls_2)" -"(let-values()(loop_2(cdr ls_2))))))))))" -" loop_2)" -" orig-l_3)))))" -" member_0)))" -"(let-values(((member_1)" +"(if(not(pair? ls_0))" +"(let-values()(bad-list$1 'member orig-l_0))" +"(if(equal? v_0(car ls_0))" +"(let-values() ls_0)" +"(let-values()(loop_26(cdr ls_0))))))))))" +" loop_26)" +" orig-l_0)))))" +" member_23)))" +"(let-values(((member_28)" "(case-lambda" -"((v_3 orig-l_4)(begin 'member(default_0 v_3 orig-l_4)))" -"((v_4 orig-l_5 eq?_0)" +"((v_0 orig-l_0)(begin 'member(default_22 v_0 orig-l_0)))" +"((v_0 orig-l_0 eq?_0)" "(begin" "(if(if(procedure? eq?_0)(procedure-arity-includes? eq?_0 2) #f)" "(void)" " (raise-argument-error 'member \"(procedure-arity-includes/c 2)\" eq?_0))" -"((let-values(((member_2)" -"(lambda(v_5 orig-l_6)" +"((let-values(((member_34)" +"(lambda(v_1 orig-l_1)" "(begin" " 'member" -"((letrec-values(((loop_3)" -"(lambda(ls_3)" +"((letrec-values(((loop_37)" +"(lambda(ls_0)" "(begin" " 'loop" -"(if(null? ls_3)" +"(if(null? ls_0)" "(let-values() #f)" -"(if(not(pair? ls_3))" -"(let-values()(bad-list$1 'member orig-l_6))" -"(if(eq?_0 v_5(car ls_3))" -"(let-values() ls_3)" -"(let-values()(loop_3(cdr ls_3))))))))))" -" loop_3)" -" orig-l_6)))))" -" member_2)" -" v_4" -" orig-l_5))))))" -" member_1))))))" +"(if(not(pair? ls_0))" +"(let-values()(bad-list$1 'member orig-l_1))" +"(if(eq?_0 v_1(car ls_0))" +"(let-values() ls_0)" +"(let-values()(loop_37(cdr ls_0))))))))))" +" loop_37)" +" orig-l_1)))))" +" member_34)" +" v_0" +" orig-l_0))))))" +" member_28))))))" "(define-values" "(current-parameterization)" "(lambda()(begin(extend-parameterization(continuation-mark-set-first #f parameterization-key)))))" @@ -184,18 +184,18 @@ static const char *startup_source = "(lambda()(begin(make-break-paramz(continuation-mark-set-first #f break-enabled-key)))))" "(define-values" "(call-with-break-parameterization)" -"(lambda(paramz_1 thunk_1)" +"(lambda(paramz_0 thunk_0)" "(begin" "(begin" -"(if(break-paramz? paramz_1)" +"(if(break-paramz? paramz_0)" "(void)" "(let-values()" -" (raise-argument-error 'call-with-break-parameterization \"break-parameterization?\" 0 paramz_1 thunk_1)))" -"(if(if(procedure? thunk_1)(procedure-arity-includes? thunk_1 0) #f)" +" (raise-argument-error 'call-with-break-parameterization \"break-parameterization?\" 0 paramz_0 thunk_0)))" +"(if(if(procedure? thunk_0)(procedure-arity-includes? thunk_0 0) #f)" "(void)" -" (let-values () (raise-argument-error 'call-with-parameterization \"(-> any)\" 1 paramz_1 thunk_1)))" +" (let-values () (raise-argument-error 'call-with-parameterization \"(-> any)\" 1 paramz_0 thunk_0)))" "(begin0" -"(with-continuation-mark break-enabled-key(break-paramz-ref paramz_1 0)(begin(check-for-break)(thunk_1)))" +"(with-continuation-mark break-enabled-key(break-paramz-ref paramz_0 0)(begin(check-for-break)(thunk_0)))" "(check-for-break))))))" "(define-values" "(select-handler/no-breaks)" @@ -204,7 +204,7 @@ static const char *startup_source = "(with-continuation-mark" " break-enabled-key" "(make-thread-cell #f)" -"((letrec-values(((loop_4)" +"((letrec-values(((loop_495)" "(lambda(l_1)" "(begin" " 'loop" @@ -215,38 +215,38 @@ static const char *startup_source = "(begin0" "((cdar l_1) e_0)" "(with-continuation-mark break-enabled-key bpz_0(check-for-break))))" -"(let-values()(loop_4(cdr l_1)))))))))" -" loop_4)" +"(let-values()(loop_495(cdr l_1)))))))))" +" loop_495)" " l_0)))))" "(define-values(false-thread-cell)(make-thread-cell #f))" "(define-values(handler-prompt-key)(make-continuation-prompt-tag 'handler-prompt-tag))" "(define-values" "(call-handled-body)" -"(lambda(bpz_1 handle-proc_0 body-thunk_0)" +"(lambda(bpz_0 handle-proc_0 body-thunk_0)" "(begin" "(with-continuation-mark" " break-enabled-key" " false-thread-cell" "(call-with-continuation-prompt" -"(lambda(bpz_2 body-thunk_1)" +"(lambda(bpz_1 body-thunk_1)" "(with-continuation-mark" " break-enabled-key" -" bpz_2" +" bpz_1" "(with-continuation-mark" " exception-handler-key" -"(lambda(e_1)(abort-current-continuation handler-prompt-key e_1))" +"(lambda(e_0)(abort-current-continuation handler-prompt-key e_0))" "(body-thunk_1))))" " handler-prompt-key" " handle-proc_0" -" bpz_1" +" bpz_0" " body-thunk_0)))))" "(define-values" "(call-with-exception-handler)" -"(lambda(exnh_0 thunk_2)(begin(begin0(with-continuation-mark exception-handler-key exnh_0(thunk_2))(void)))))" +"(lambda(exnh_0 thunk_0)(begin(begin0(with-continuation-mark exception-handler-key exnh_0(thunk_0))(void)))))" "(define-values(not-there)(gensym))" "(define-values" "(do-hash-update)" -"(lambda(who_1 mut?_0 set_0 ht_0 key_0 xform_0 default_1)" +"(lambda(who_0 mut?_0 set_0 ht_0 key_0 xform_0 default_0)" "(begin" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -257,163 +257,164 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-argument-error" -" who_1" +" who_0" " (if mut?_0 \"(and/c hash? (not/c immutable?))\" \"(and/c hash? immutable?)\")" " ht_0)))" "(if(if(procedure? xform_0)(procedure-arity-includes? xform_0 1) #f)" "(void)" -" (let-values () (raise-argument-error who_1 \"(any/c . -> . any/c)\" xform_0))))))" -"(let-values(((v_6)(hash-ref ht_0 key_0 default_1)))" -"(if(eq? v_6 not-there)" -" (raise-mismatch-error who_1 \"no value found for key: \" key_0)" -"(set_0 ht_0 key_0(xform_0 v_6))))))))" +" (let-values () (raise-argument-error who_0 \"(any/c . -> . any/c)\" xform_0))))))" +"(let-values(((v_516)(hash-ref ht_0 key_0 default_0)))" +"(if(eq? v_516 not-there)" +" (raise-mismatch-error who_0 \"no value found for key: \" key_0)" +"(set_0 ht_0 key_0(xform_0 v_516))))))))" "(define-values" "(hash-update)" "(case-lambda" -"((ht_1 key_1 xform_1 default_2)(begin(do-hash-update 'hash-update #f hash-set ht_1 key_1 xform_1 default_2)))" -"((ht_2 key_2 xform_2)(hash-update ht_2 key_2 xform_2 not-there))))" +"((ht_0 key_0 xform_0 default_0)(begin(do-hash-update 'hash-update #f hash-set ht_0 key_0 xform_0 default_0)))" +"((ht_0 key_0 xform_0)(hash-update ht_0 key_0 xform_0 not-there))))" "(define-values" "(hash-update!)" "(case-lambda" -"((ht_3 key_3 xform_3 default_3)(begin(do-hash-update 'hash-update! #t hash-set! ht_3 key_3 xform_3 default_3)))" -"((ht_4 key_4 xform_4)(hash-update! ht_4 key_4 xform_4 not-there))))" +"((ht_0 key_0 xform_0 default_0)(begin(do-hash-update 'hash-update! #t hash-set! ht_0 key_0 xform_0 default_0)))" +"((ht_0 key_0 xform_0)(hash-update! ht_0 key_0 xform_0 not-there))))" "(define-values" "(hash-ref!)" -"(lambda(ht_5 key_5 new_0)" +"(lambda(ht_0 key_0 new_0)" "(begin" "(begin" -"(if(if(hash? ht_5)(not(immutable? ht_5)) #f)" +"(if(if(hash? ht_0)(not(immutable? ht_0)) #f)" "(void)" -" (let-values () (raise-argument-error 'hash-ref! \"(and/c hash? (not/c immutable?))\" 0 ht_5 key_5 new_0)))" -"(let-values(((v_7)(hash-ref ht_5 key_5 not-there)))" -"(if(eq? not-there v_7)" -"(let-values(((n_0)(if(procedure? new_0)(new_0) new_0)))(begin(hash-set! ht_5 key_5 n_0) n_0))" -" v_7))))))" +" (let-values () (raise-argument-error 'hash-ref! \"(and/c hash? (not/c immutable?))\" 0 ht_0 key_0 new_0)))" +"(let-values(((v_536)(hash-ref ht_0 key_0 not-there)))" +"(if(eq? not-there v_536)" +"(let-values(((n_537)(if(procedure? new_0)(new_0) new_0)))(begin(hash-set! ht_0 key_0 n_537) n_537))" +" v_536))))))" "(define-values" "(path-string?)" "(lambda(s_0)" "(begin" -"(let-values(((or-part_0)(path? s_0)))" -"(if or-part_0" -" or-part_0" +"(let-values(((or-part_2)(path? s_0)))" +"(if or-part_2" +" or-part_2" "(if(string? s_0)" -"(let-values(((or-part_1)(relative-path? s_0)))(if or-part_1 or-part_1(absolute-path? s_0)))" +"(let-values(((or-part_3)(relative-path? s_0)))(if or-part_3 or-part_3(absolute-path? s_0)))" " #f))))))" "(define-values(bsbs)(string '#\\\\ '#\\\\))" "(define-values" "(normal-case-path)" -"(lambda(s_1)" +"(lambda(s_0)" "(begin" "(begin" -"(if(let-values(((or-part_2)(path-for-some-system? s_1)))(if or-part_2 or-part_2(path-string? s_1)))" +"(if(let-values(((or-part_5)(path-for-some-system? s_0)))(if or-part_5 or-part_5(path-string? s_0)))" "(void)" -" (let-values () (raise-argument-error 'normal-path-case \"(or/c path-for-some-system? path-string?)\" s_1)))" -"(if(if(path-for-some-system? s_1)(eq?(path-convention-type s_1) 'windows)(eq?(system-type) 'windows))" +" (let-values () (raise-argument-error 'normal-path-case \"(or/c path-for-some-system? path-string?)\" s_0)))" +"(if(if(path-for-some-system? s_0)(eq?(path-convention-type s_0) 'windows)(eq?(system-type) 'windows))" "(let-values()" -"(let-values(((str_0)(if(string? s_1) s_1(bytes->string/locale(path->bytes s_1)))))" -" (if (regexp-match? '#rx\"^[\\\\][\\\\][?][\\\\]\" str_0)" -"(if(string? s_1)(string->path s_1) s_1)" -"(let-values(((s_2)(string-locale-downcase str_0)))" +"(let-values(((str_6)(if(string? s_0) s_0(bytes->string/locale(path->bytes s_0)))))" +" (if (regexp-match? '#rx\"^[\\\\][\\\\][?][\\\\]\" str_6)" +"(if(string? s_0)(string->path s_0) s_0)" +"(let-values(((s_7)(string-locale-downcase str_6)))" "(bytes->path" "(string->bytes/locale" "(regexp-replace*" " '#rx\"/\"" -" (if (regexp-match? '#rx\"[/\\\\][. ]+[/\\\\]*$\" s_2)" -" s_2" -" (regexp-replace* '#rx\"[ .]+([/\\\\]*)$\" s_2 \"\\\\1\"))" +" (if (regexp-match? '#rx\"[/\\\\][. ]+[/\\\\]*$\" s_7)" +" s_7" +" (regexp-replace* '#rx\"[ .]+([/\\\\]*)$\" s_7 \"\\\\1\"))" " bsbs))" " 'windows)))))" -"(if(string? s_1)(let-values()(string->path s_1))(let-values() s_1)))))))" +"(if(string? s_0)(let-values()(string->path s_0))(let-values() s_0)))))))" "(define-values" "(check-extension-call)" -"(lambda(s_3 sfx_0 who_2 sep_0 trust-sep?_0)" +"(lambda(s_0 sfx_0 who_0 sep_0 trust-sep?_0)" "(begin" "(begin" -"(let-values(((err-msg_0 err-index_0)" +"(let-values(((err-msg_13 err-index_14)" "(if(not" -"(let-values(((or-part_3)(path-for-some-system? s_3)))" -"(if or-part_3 or-part_3(path-string? s_3))))" +"(let-values(((or-part_15)(path-for-some-system? s_0)))" +"(if or-part_15 or-part_15(path-string? s_0))))" " (let-values () (values \"(or/c path-for-some-system? path-string?)\" 0))" -"(if(not(let-values(((or-part_4)(string? sfx_0)))(if or-part_4 or-part_4(bytes? sfx_0))))" +"(if(not" +"(let-values(((or-part_16)(string? sfx_0)))(if or-part_16 or-part_16(bytes? sfx_0))))" " (let-values () (values \"(or/c string? bytes?)\" 1))" "(if(not" -"(let-values(((or-part_5) trust-sep?_0))" -"(if or-part_5" -" or-part_5" -"(let-values(((or-part_6)(string? sep_0)))" -"(if or-part_6 or-part_6(bytes? sep_0))))))" +"(let-values(((or-part_17) trust-sep?_0))" +"(if or-part_17" +" or-part_17" +"(let-values(((or-part_18)(string? sep_0)))" +"(if or-part_18 or-part_18(bytes? sep_0))))))" " (let-values () (values \"(or/c string? bytes?)\" 2))" "(let-values()(values #f #f)))))))" -"(if err-msg_0" +"(if err-msg_13" "(let-values()" "(if trust-sep?_0" -"(raise-argument-error who_2 err-msg_0 err-index_0 s_3 sfx_0)" -"(raise-argument-error who_2 err-msg_0 err-index_0 s_3 sfx_0 sep_0)))" +"(raise-argument-error who_0 err-msg_13 err-index_14 s_0 sfx_0)" +"(raise-argument-error who_0 err-msg_13 err-index_14 s_0 sfx_0 sep_0)))" "(void)))" -"(let-values(((base_0 name_0 dir?_0)(split-path s_3)))" +"(let-values(((base_19 name_20 dir?_21)(split-path s_0)))" "(begin" -"(if(not base_0)" -" (let-values () (raise-mismatch-error who_2 \"cannot add an extension to a root path: \" s_3))" +"(if(not base_19)" +" (let-values () (raise-mismatch-error who_0 \"cannot add an extension to a root path: \" s_0))" "(void))" -"(values base_0 name_0)))))))" +"(values base_19 name_20)))))))" "(define-values" "(path-adjust-extension)" -"(lambda(name_1 sep_1 rest-bytes_0 s_4 sfx_1 trust-sep?_1)" +"(lambda(name_0 sep_0 rest-bytes_0 s_0 sfx_0 trust-sep?_0)" "(begin" -"(let-values(((base_1 name_2)(check-extension-call s_4 sfx_1 name_1 sep_1 trust-sep?_1)))" -"(let-values(((bs_0)(path-element->bytes name_2)))" -"(let-values(((finish_0)" -"(lambda(i_0 sep_2 i2_0)" +"(let-values(((base_28 name_29)(check-extension-call s_0 sfx_0 name_0 sep_0 trust-sep?_0)))" +"(let-values(((bs_30)(path-element->bytes name_29)))" +"(let-values(((finish_31)" +"(lambda(i_0 sep_1 i2_0)" "(begin" " 'finish" "(bytes->path-element" "(bytes-append" -"(subbytes bs_0 0 i_0)" -"(if(string? sep_2)(string->bytes/locale sep_2(char->integer '#\\?)) sep_2)" -"(rest-bytes_0 bs_0 i2_0)" -"(if(string? sfx_1)(string->bytes/locale sfx_1(char->integer '#\\?)) sfx_1))" -"(if(path-for-some-system? s_4)" -"(path-convention-type s_4)" +"(subbytes bs_30 0 i_0)" +"(if(string? sep_1)(string->bytes/locale sep_1(char->integer '#\\?)) sep_1)" +"(rest-bytes_0 bs_30 i2_0)" +"(if(string? sfx_0)(string->bytes/locale sfx_0(char->integer '#\\?)) sfx_0))" +"(if(path-for-some-system? s_0)" +"(path-convention-type s_0)" "(system-path-convention-type)))))))" -"(let-values(((new-name_0)" -"(letrec-values(((loop_5)" -"(lambda(i_1)" +"(let-values(((new-name_35)" +"(letrec-values(((loop_36)" +"(lambda(i_0)" "(begin" " 'loop" -"(if(zero? i_1)" -" (finish_0 (bytes-length bs_0) #\"\" (bytes-length bs_0))" -"(let-values(((i_2)(sub1 i_1)))" -"(if(if(not(zero? i_2))" -"(eq?(char->integer '#\\.)(bytes-ref bs_0 i_2))" +"(if(zero? i_0)" +" (finish_31 (bytes-length bs_30) #\"\" (bytes-length bs_30))" +"(let-values(((i_38)(sub1 i_0)))" +"(if(if(not(zero? i_38))" +"(eq?(char->integer '#\\.)(bytes-ref bs_30 i_38))" " #f)" -"(finish_0 i_2 sep_1(add1 i_2))" -"(loop_5 i_2))))))))" -"(loop_5(bytes-length bs_0)))))" -"(if(path-for-some-system? base_1)(build-path base_1 new-name_0) new-name_0))))))))" +"(finish_31 i_38 sep_0(add1 i_38))" +"(loop_36 i_38))))))))" +"(loop_36(bytes-length bs_30)))))" +"(if(path-for-some-system? base_28)(build-path base_28 new-name_35) new-name_35))))))))" "(define-values" "(path-replace-extension)" -" (lambda (s_5 sfx_2) (begin (path-adjust-extension 'path-replace-extension #\"\" (lambda (bs_1 i_3) #\"\") s_5 sfx_2 #t))))" +" (lambda (s_0 sfx_0) (begin (path-adjust-extension 'path-replace-extension #\"\" (lambda (bs_0 i_0) #\"\") s_0 sfx_0 #t))))" "(define-values" "(path-add-extension)" "(case-lambda" -" ((s_6 sfx_3) (begin (path-adjust-extension 'path-add-extension #\"_\" subbytes s_6 sfx_3 #t)))" -"((s_7 sfx_4 sep_3)(path-adjust-extension 'path-add-extension sep_3 subbytes s_7 sfx_4 #f))))" +" ((s_0 sfx_0) (begin (path-adjust-extension 'path-add-extension #\"_\" subbytes s_0 sfx_0 #t)))" +"((s_0 sfx_0 sep_0)(path-adjust-extension 'path-add-extension sep_0 subbytes s_0 sfx_0 #f))))" "(define-values" "(reroot-path)" "(lambda(p_0 root_0)" "(begin" "(let-values((()" "(begin" -"(if(let-values(((or-part_7)(path-string? p_0)))" -"(if or-part_7 or-part_7(path-for-some-system? p_0)))" +"(if(let-values(((or-part_53)(path-string? p_0)))" +"(if or-part_53 or-part_53(path-for-some-system? p_0)))" "(void)" "(let-values()" " (raise-argument-error 'reroot-path \"(or/c path-string? path-for-some-system?)\" 0 p_0 root_0)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_8)(path-string? root_0)))" -"(if or-part_8 or-part_8(path-for-some-system? root_0)))" +"(if(let-values(((or-part_54)(path-string? root_0)))" +"(if or-part_54 or-part_54(path-for-some-system? root_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -423,12 +424,12 @@ static const char *startup_source = " p_0" " root_0)))" "(values))))" -"(let-values(((conv_0)" +"(let-values(((conv_50)" "(if(path-for-some-system? p_0)(path-convention-type p_0)(system-path-convention-type))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_9)(complete-path? p_0)))" -"(if or-part_9 or-part_9(eq?(system-path-convention-type) conv_0)))" +"(if(let-values(((or-part_55)(complete-path? p_0)))" +"(if or-part_55 or-part_55(eq?(system-path-convention-type) conv_50)))" "(void)" "(let-values()" "(raise-arguments-error" @@ -445,7 +446,7 @@ static const char *startup_source = "(if(path-for-some-system? root_0)" "(path-convention-type root_0)" "(system-path-convention-type))" -" conv_0)" +" conv_50)" "(void)" "(let-values()" "(raise-arguments-error" @@ -456,70 +457,70 @@ static const char *startup_source = " \"root path\"" " root_0)))" "(values))))" -"(let-values(((c-p_0)" +"(let-values(((c-p_51)" "(normal-case-path" "(cleanse-path(if(complete-path? p_0) p_0(path->complete-path p_0))))))" -"(let-values(((bstr_0)(path->bytes c-p_0)))" -"(if(eq? conv_0 'unix)" +"(let-values(((bstr_52)(path->bytes c-p_51)))" +"(if(eq? conv_50 'unix)" "(let-values()" -" (if (bytes=? bstr_0 #\"/\")" +" (if (bytes=? bstr_52 #\"/\")" "(if(path-for-some-system? root_0) root_0(string->path root_0))" -"(build-path root_0(bytes->path(subbytes(path->bytes c-p_0) 1) conv_0))))" -"(if(eq? conv_0 'windows)" +"(build-path root_0(bytes->path(subbytes(path->bytes c-p_51) 1) conv_50))))" +"(if(eq? conv_50 'windows)" "(let-values()" "(build-path" " root_0" "(bytes->path" -" (if (regexp-match? '#rx\"^\\\\\\\\\\\\\\\\[?]\\\\\\\\[a-z]:\" bstr_0)" +" (if (regexp-match? '#rx\"^\\\\\\\\\\\\\\\\[?]\\\\\\\\[a-z]:\" bstr_52)" "(let-values()" -" (bytes-append #\"\\\\\\\\?\\\\REL\\\\\" (subbytes bstr_0 4 5) #\"\\\\\" (subbytes bstr_0 6)))" -" (if (regexp-match? '#rx\"^\\\\\\\\\\\\\\\\[?]\\\\\\\\UNC\\\\\\\\\" bstr_0)" -" (let-values () (bytes-append #\"\\\\\\\\?\\\\REL\\\\\" (subbytes bstr_0 4)))" -" (if (regexp-match? '#rx\"^\\\\\\\\\\\\\\\\[?]\\\\\\\\UNC\\\\\\\\\" bstr_0)" -" (let-values () (bytes-append #\"\\\\\\\\?\\\\REL\\\\\" (subbytes bstr_0 4)))" -" (if (regexp-match? '#rx\"^\\\\\\\\\\\\\\\\\" bstr_0)" -" (let-values () (bytes-append #\"UNC\\\\\" (subbytes bstr_0 2)))" -" (if (regexp-match? '#rx\"^[a-z]:\" bstr_0)" -"(let-values()(bytes-append(subbytes bstr_0 0 1)(subbytes bstr_0 2)))" +" (bytes-append #\"\\\\\\\\?\\\\REL\\\\\" (subbytes bstr_52 4 5) #\"\\\\\" (subbytes bstr_52 6)))" +" (if (regexp-match? '#rx\"^\\\\\\\\\\\\\\\\[?]\\\\\\\\UNC\\\\\\\\\" bstr_52)" +" (let-values () (bytes-append #\"\\\\\\\\?\\\\REL\\\\\" (subbytes bstr_52 4)))" +" (if (regexp-match? '#rx\"^\\\\\\\\\\\\\\\\[?]\\\\\\\\UNC\\\\\\\\\" bstr_52)" +" (let-values () (bytes-append #\"\\\\\\\\?\\\\REL\\\\\" (subbytes bstr_52 4)))" +" (if (regexp-match? '#rx\"^\\\\\\\\\\\\\\\\\" bstr_52)" +" (let-values () (bytes-append #\"UNC\\\\\" (subbytes bstr_52 2)))" +" (if (regexp-match? '#rx\"^[a-z]:\" bstr_52)" +"(let-values()(bytes-append(subbytes bstr_52 0 1)(subbytes bstr_52 2)))" "(void))))))" -" conv_0)))" +" conv_50)))" "(void)))))))))))))" "(define-values" "(path-list-string->path-list)" -"(let-values(((r_0) #f)" -"((cons-path_0)" -"(lambda(default_4 s_1 l_2)" +"(let-values(((r_1) #f)" +"((cons-path_2)" +"(lambda(default_0 s_0 l_0)" "(begin" " 'cons-path" -" (let-values (((s_8) (if (eq? (system-type) 'windows) (regexp-replace* '#rx#\"\\\"\" s_1 #\"\") s_1)))" -" (if (bytes=? s_8 #\"\") (append default_4 l_2) (cons (bytes->path s_8) l_2)))))))" -"(lambda(s_2 default_5)" +" (let-values (((s_6) (if (eq? (system-type) 'windows) (regexp-replace* '#rx#\"\\\"\" s_0 #\"\") s_0)))" +" (if (bytes=? s_6 #\"\") (append default_0 l_0) (cons (bytes->path s_6) l_0)))))))" +"(lambda(s_0 default_0)" "(begin" "(begin" -"(if r_0" +"(if r_1" "(void)" "(let-values()" -"(set! r_0" +"(set! r_1" "(byte-regexp" "(string->bytes/utf-8" -" (let-values (((sep_4) (if (eq? (system-type) 'windows) \";\" \":\")))" -" (format \"([^~a]*)~a(.*)\" sep_4 sep_4)))))))" -"(if(let-values(((or-part_10)(bytes? s_2)))(if or-part_10 or-part_10(string? s_2)))" +" (let-values (((sep_9) (if (eq? (system-type) 'windows) \";\" \":\")))" +" (format \"([^~a]*)~a(.*)\" sep_9 sep_9)))))))" +"(if(let-values(((or-part_10)(bytes? s_0)))(if or-part_10 or-part_10(string? s_0)))" "(void)" -" (let-values () (raise-argument-error 'path-list-string->path-list \"(or/c bytes? string?)\" s_2)))" -"(if(if(list? default_5)(andmap path? default_5) #f)" +" (let-values () (raise-argument-error 'path-list-string->path-list \"(or/c bytes? string?)\" s_0)))" +"(if(if(list? default_0)(andmap path? default_0) #f)" "(void)" -" (let-values () (raise-argument-error 'path-list-string->path-list \"(listof path?)\" default_5)))" -"((letrec-values(((loop_6)" -"(lambda(s_9)" +" (let-values () (raise-argument-error 'path-list-string->path-list \"(listof path?)\" default_0)))" +"((letrec-values(((loop_11)" +"(lambda(s_1)" "(begin" " 'loop" -"(let-values(((m_0)(regexp-match r_0 s_9)))" -"(if m_0" -"(cons-path_0 default_5(cadr m_0)(loop_6(caddr m_0)))" -"(cons-path_0 default_5 s_9 null)))))))" -" loop_6)" -"(if(string? s_2)(string->bytes/utf-8 s_2) s_2)))))))" +"(let-values(((m_13)(regexp-match r_1 s_1)))" +"(if m_13" +"(cons-path_2 default_0(cadr m_13)(loop_11(caddr m_13)))" +"(cons-path_2 default_0 s_1 null)))))))" +" loop_11)" +"(if(string? s_0)(string->bytes/utf-8 s_0) s_0)))))))" "(define-values" "(find-executable-path)" "(case-lambda" @@ -529,67 +530,69 @@ static const char *startup_source = "(if(path-string? program_0)" "(void)" " (let-values () (raise-argument-error 'find-executable-path \"path-string?\" program_0)))" -"(if(let-values(((or-part_11)(not libpath_0)))" -"(if or-part_11 or-part_11(if(path-string? libpath_0)(relative-path? libpath_0) #f)))" +"(if(let-values(((or-part_4)(not libpath_0)))" +"(if or-part_4 or-part_4(if(path-string? libpath_0)(relative-path? libpath_0) #f)))" "(void)" "(let-values()" " (raise-argument-error 'find-executable-path \"(or/c #f (and/c path-string? relative-path?))\" libpath_0)))" -"(letrec-values(((found-exec_0)" +"(letrec-values(((found-exec_5)" "(lambda(exec-name_0)" "(begin" " 'found-exec" "(if libpath_0" -"(let-values(((base_2 name_3 isdir?_0)(split-path exec-name_0)))" -"(let-values(((next_0)" +"(let-values(((base_7 name_8 isdir?_9)(split-path exec-name_0)))" +"(let-values(((next_10)" "(lambda()" "(begin" " 'next" -"(let-values(((resolved_0)(resolve-path exec-name_0)))" -"(if(equal? resolved_0 exec-name_0)" +"(let-values(((resolved_11)(resolve-path exec-name_0)))" +"(if(equal? resolved_11 exec-name_0)" "(let-values() #f)" -"(if(relative-path? resolved_0)" -"(let-values()(found-exec_0(build-path base_2 resolved_0)))" -"(let-values()(found-exec_0 resolved_0)))))))))" -"(let-values(((or-part_12)(if reverse?_0(next_0) #f)))" +"(if(relative-path? resolved_11)" +"(let-values()(found-exec_5(build-path base_7 resolved_11)))" +"(let-values()(found-exec_5 resolved_11)))))))))" +"(let-values(((or-part_12)(if reverse?_0(next_10) #f)))" "(if or-part_12" " or-part_12" "(let-values(((or-part_13)" -"(if(path? base_2)" -"(let-values(((lib_0)(build-path base_2 libpath_0)))" -"(if(let-values(((or-part_3)(directory-exists? lib_0)))" -"(if or-part_3 or-part_3(file-exists? lib_0)))" -" lib_0" +"(if(path? base_7)" +"(let-values(((lib_14)(build-path base_7 libpath_0)))" +"(if(let-values(((or-part_15)(directory-exists? lib_14)))" +"(if or-part_15 or-part_15(file-exists? lib_14)))" +" lib_14" " #f))" " #f)))" -"(if or-part_13 or-part_13(if(not reverse?_0)(next_0) #f)))))))" +"(if or-part_13 or-part_13(if(not reverse?_0)(next_10) #f)))))))" " exec-name_0)))))" "(if(if(relative-path? program_0)" -"(let-values(((base_3 name_4 dir?_1)(split-path program_0)))(eq? base_3 'relative))" +"(let-values(((base_16 name_17 dir?_18)(split-path program_0)))(eq? base_16 'relative))" " #f)" -" (let-values (((paths-str_0) (environment-variables-ref (current-environment-variables) #\"PATH\"))" -"((win-add_0)" -"(lambda(s_10)" -" (begin 'win-add (if (eq? (system-type) 'windows) (cons (bytes->path #\".\") s_10) s_10)))))" -"((letrec-values(((loop_7)" +" (let-values (((paths-str_19) (environment-variables-ref (current-environment-variables) #\"PATH\"))" +"((win-add_20)" +"(lambda(s_0)" +" (begin 'win-add (if (eq? (system-type) 'windows) (cons (bytes->path #\".\") s_0) s_0)))))" +"((letrec-values(((loop_22)" "(lambda(paths_0)" "(begin" " 'loop" "(if(null? paths_0)" " #f" -"(let-values(((base_4)(path->complete-path(car paths_0))))" -"(let-values(((name_5)(build-path base_4 program_0)))" -"(if(file-exists? name_5)(found-exec_0 name_5)(loop_7(cdr paths_0))))))))))" -" loop_7)" -"(win-add_0" -"(if paths-str_0(path-list-string->path-list(bytes->string/locale paths-str_0 '#\\?) null) null))))" -"(let-values(((p_1)(path->complete-path program_0)))(if(file-exists? p_1)(found-exec_0 p_1) #f)))))))" -"((program_1 libpath_1)(find-executable-path program_1 libpath_1 #f))" -"((program_2)(find-executable-path program_2 #f #f))))" +"(let-values(((base_24)(path->complete-path(car paths_0))))" +"(let-values(((name_25)(build-path base_24 program_0)))" +"(if(file-exists? name_25)" +"(found-exec_5 name_25)" +"(loop_22(cdr paths_0))))))))))" +" loop_22)" +"(win-add_20" +"(if paths-str_19(path-list-string->path-list(bytes->string/locale paths-str_19 '#\\?) null) null))))" +"(let-values(((p_26)(path->complete-path program_0)))(if(file-exists? p_26)(found-exec_5 p_26) #f)))))))" +"((program_0 libpath_0)(find-executable-path program_0 libpath_0 #f))" +"((program_0)(find-executable-path program_0 #f #f))))" "(define-values" "(call-with-default-reading-parameterization)" -"(lambda(thunk_3)" +"(lambda(thunk_0)" "(begin" -"(if(if(procedure? thunk_3)(procedure-arity-includes? thunk_3 0) #f)" +"(if(if(procedure? thunk_0)(procedure-arity-includes? thunk_0 0) #f)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -628,15 +631,15 @@ static const char *startup_source = " #t" " 1/current-readtable" " #f)" -"(let-values()(thunk_3)))" -" (raise-argument-error 'call-with-default-reading-parameterization \"(procedure-arity-includes/c 0)\" thunk_3)))))" +"(let-values()(thunk_0)))" +" (raise-argument-error 'call-with-default-reading-parameterization \"(procedure-arity-includes/c 0)\" thunk_0)))))" "(define-values" "(prop:keyword-impersonator keyword-impersonator? keyword-impersonator-ref)" "(make-struct-type-property 'keyword-impersonator))" "(define-values" "(keyword-procedure-impersonator-of)" -"(lambda(v_8)" -"(begin(if(keyword-impersonator? v_8)(let-values()((keyword-impersonator-ref v_8) v_8))(let-values() #f)))))" +"(lambda(v_0)" +"(begin(if(keyword-impersonator? v_0)(let-values()((keyword-impersonator-ref v_0) v_0))(let-values() #f)))))" "(define-values" "(struct:keyword-procedure mk-kw-proc keyword-procedure? keyword-procedure-ref keyword-procedure-set!)" "(make-struct-type" @@ -655,7 +658,7 @@ static const char *startup_source = "(prop:procedure-accessor procedure-accessor? procedure-accessor-ref)" "(make-struct-type-property" " 'procedure" -"(lambda(v_9 info-l_0)(if(exact-integer? v_9)(make-struct-field-accessor(list-ref info-l_0 3) v_9) #f))))" +"(lambda(v_0 info-l_0)(if(exact-integer? v_0)(make-struct-field-accessor(list-ref info-l_0 3) v_0) #f))))" "(define-values" "(new-prop:procedure new-procedure? new-procedure-ref)" "(make-struct-type-property" @@ -665,86 +668,86 @@ static const char *startup_source = " #t))" "(define-values" "(procedure-keywords)" -"(lambda(p_2)" +"(lambda(p_0)" "(begin" -"(if(keyword-procedure? p_2)" -"(let-values()(values(keyword-procedure-required p_2)(keyword-procedure-allowed p_2)))" -"(if(procedure? p_2)" +"(if(keyword-procedure? p_0)" +"(let-values()(values(keyword-procedure-required p_0)(keyword-procedure-allowed p_0)))" +"(if(procedure? p_0)" "(let-values()" -"(if(new-procedure? p_2)" -"(let-values(((v_10)(new-procedure-ref p_2)))" -"(if(procedure? v_10)" -"(procedure-keywords v_10)" -"(let-values(((a_1)(procedure-accessor-ref p_2)))" -"(if a_1(procedure-keywords(a_1 p_2))(values null null)))))" +"(if(new-procedure? p_0)" +"(let-values(((v_1668)(new-procedure-ref p_0)))" +"(if(procedure? v_1668)" +"(procedure-keywords v_1668)" +"(let-values(((a_1669)(procedure-accessor-ref p_0)))" +"(if a_1669(procedure-keywords(a_1669 p_0))(values null null)))))" "(values null null)))" -" (let-values () (raise-argument-error 'procedure-keywords \"procedure?\" p_2)))))))" +" (let-values () (raise-argument-error 'procedure-keywords \"procedure?\" p_0)))))))" "(define-values" "(reverse$1)" -"(lambda(l_3)" +"(lambda(l_0)" "(begin" " 'reverse" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -" (if (list? l_3) (void) (raise-argument-error 'reverse \"list?\" l_3)))" -"(letrec-values(((loop_8)" -"(lambda(a_2 l_4)(begin 'loop(if(null? l_4) a_2(loop_8(cons(car l_4) a_2)(cdr l_4)))))))" -"(loop_8 null l_3))))))" +" (if (list? l_0) (void) (raise-argument-error 'reverse \"list?\" l_0)))" +"(letrec-values(((loop_2)" +"(lambda(a_0 l_1)(begin 'loop(if(null? l_1) a_0(loop_2(cons(car l_1) a_0)(cdr l_1)))))))" +"(loop_2 null l_0))))))" "(define-values" "(sort vector-sort vector-sort!)" "(let-values()" -"(let-values(((generic-sort_0)" -"(lambda(A_0 less-than?_0 n_1)" +"(let-values(((generic-sort_49)" +"(lambda(A_0 less-than?_0 n_0)" "(begin" " 'generic-sort" "(let-values()" "(let-values()" -"(let-values(((n/2-_0)(unsafe-fxrshift n_1 1)))" -"(let-values(((n/2+_0)(unsafe-fx- n_1 n/2-_0)))" -"(letrec-values(((copying-mergesort_0)" -"(lambda(Alo_0 Blo_0 n_2)" +"(let-values(((n/2-_156)(unsafe-fxrshift n_0 1)))" +"(let-values(((n/2+_157)(unsafe-fx- n_0 n/2-_156)))" +"(letrec-values(((copying-mergesort_193)" +"(lambda(Alo_0 Blo_0 n_1)" "(begin" " 'copying-mergesort" -"(if(unsafe-fx= n_2 1)" +"(if(unsafe-fx= n_1 1)" "(let-values()" "(unsafe-vector-set! A_0 Blo_0(unsafe-vector-ref A_0 Alo_0)))" -"(if(unsafe-fx= n_2 2)" +"(if(unsafe-fx= n_1 2)" "(let-values()" -"(let-values(((x_0)(unsafe-vector-ref A_0 Alo_0))" -"((y_0)" +"(let-values(((x_197)(unsafe-vector-ref A_0 Alo_0))" +"((y_198)" "(unsafe-vector-ref A_0(unsafe-fx+ Alo_0 1))))" -"(if(less-than?_0 y_0 x_0)" +"(if(less-than?_0 y_198 x_197)" "(begin" -"(unsafe-vector-set! A_0 Blo_0 y_0)" -"(unsafe-vector-set! A_0(unsafe-fx+ Blo_0 1) x_0))" +"(unsafe-vector-set! A_0 Blo_0 y_198)" +"(unsafe-vector-set! A_0(unsafe-fx+ Blo_0 1) x_197))" "(begin" -"(unsafe-vector-set! A_0 Blo_0 x_0)" -"(unsafe-vector-set! A_0(unsafe-fx+ Blo_0 1) y_0)))))" -"(if(unsafe-fx< n_2 16)" +"(unsafe-vector-set! A_0 Blo_0 x_197)" +"(unsafe-vector-set! A_0(unsafe-fx+ Blo_0 1) y_198)))))" +"(if(unsafe-fx< n_1 16)" "(let-values()" "(begin" "(unsafe-vector-set!" " A_0" " Blo_0" "(unsafe-vector-ref A_0 Alo_0))" -"((letrec-values(((iloop_0)" -"(lambda(i_4)" +"((letrec-values(((iloop_199)" +"(lambda(i_0)" "(begin" " 'iloop" -"(if(unsafe-fx< i_4 n_2)" +"(if(unsafe-fx< i_0 n_1)" "(let-values()" -"(let-values(((ref-i_0)" +"(let-values(((ref-i_201)" "(unsafe-vector-ref" " A_0" "(unsafe-fx+" " Alo_0" -" i_4))))" -"((letrec-values(((jloop_0)" +" i_0))))" +"((letrec-values(((jloop_202)" "(lambda(j_0)" "(begin" " 'jloop" -"(let-values(((ref-j-1_0)" +"(let-values(((ref-j-1_204)" "(unsafe-vector-ref" " A_0" "(unsafe-fx-" @@ -754,15 +757,15 @@ static const char *startup_source = " Blo_0" " j_0)" "(less-than?_0" -" ref-i_0" -" ref-j-1_0)" +" ref-i_201" +" ref-j-1_204)" " #f)" "(begin" "(unsafe-vector-set!" " A_0" " j_0" -" ref-j-1_0)" -"(jloop_0" +" ref-j-1_204)" +"(jloop_202" "(unsafe-fx-" " j_0" " 1)))" @@ -770,1032 +773,1075 @@ static const char *startup_source = "(unsafe-vector-set!" " A_0" " j_0" -" ref-i_0)" -"(iloop_0" +" ref-i_201)" +"(iloop_199" "(unsafe-fx+" -" i_4" +" i_0" " 1)))))))))" -" jloop_0)" -"(unsafe-fx+ Blo_0 i_4))))" +" jloop_202)" +"(unsafe-fx+ Blo_0 i_0))))" "(void))))))" -" iloop_0)" +" iloop_199)" " 1)))" "(let-values()" -"(let-values(((n/2-_1)(unsafe-fxrshift n_2 1)))" -"(let-values(((n/2+_1)(unsafe-fx- n_2 n/2-_1)))" -"(let-values(((Amid1_0)(unsafe-fx+ Alo_0 n/2-_1))" -"((Amid2_0)(unsafe-fx+ Alo_0 n/2+_1))" -"((Bmid1_0)(unsafe-fx+ Blo_0 n/2-_1)))" +"(let-values(((n/2-_205)(unsafe-fxrshift n_1 1)))" +"(let-values(((n/2+_206)(unsafe-fx- n_1 n/2-_205)))" +"(let-values(((Amid1_207)(unsafe-fx+ Alo_0 n/2-_205))" +"((Amid2_208)(unsafe-fx+ Alo_0 n/2+_206))" +"((Bmid1_209)(unsafe-fx+ Blo_0 n/2-_205)))" "(begin" -"(copying-mergesort_0 Amid1_0 Bmid1_0 n/2+_1)" -"(copying-mergesort_0 Alo_0 Amid2_0 n/2-_1)" -"(let-values(((b2_0)(unsafe-fx+ Blo_0 n_2)))" -"((letrec-values(((loop_9)" +"(copying-mergesort_193 Amid1_207 Bmid1_209 n/2+_206)" +"(copying-mergesort_193 Alo_0 Amid2_208 n/2-_205)" +"(let-values(((b2_210)(unsafe-fx+ Blo_0 n_1)))" +"((letrec-values(((loop_211)" "(lambda(a1_0 b1_0 c1_0)" "(begin" " 'loop" -"(let-values(((x_1)" +"(let-values(((x_215)" "(unsafe-vector-ref" " A_0" " a1_0))" -"((y_1)" +"((y_216)" "(unsafe-vector-ref" " A_0" " b1_0)))" "(if(not" "(less-than?_0" -" y_1" -" x_1))" +" y_216" +" x_215))" "(begin" "(unsafe-vector-set!" " A_0" " c1_0" -" x_1)" -"(let-values(((a1_1)" +" x_215)" +"(let-values(((a1_217)" "(unsafe-fx+" " a1_0" " 1))" -"((c1_1)" +"((c1_218)" "(unsafe-fx+" " c1_0" " 1)))" "(if(unsafe-fx<" -" c1_1" +" c1_218" " b1_0)" "(let-values()" -"(loop_9" -" a1_1" +"(loop_211" +" a1_217" " b1_0" -" c1_1))" +" c1_218))" "(void))))" "(begin" "(unsafe-vector-set!" " A_0" " c1_0" -" y_1)" -"(let-values(((b1_1)" +" y_216)" +"(let-values(((b1_219)" "(unsafe-fx+" " b1_0" " 1))" -"((c1_2)" +"((c1_220)" "(unsafe-fx+" " c1_0" " 1)))" "(if(unsafe-fx<=" -" b2_0" -" b1_1)" -"((letrec-values(((loop_10)" -"(lambda(a1_2" -" c1_3)" +" b2_210" +" b1_219)" +"((letrec-values(((loop_221)" +"(lambda(a1_1" +" c1_1)" "(begin" " 'loop" "(if(unsafe-fx<" -" c1_3" -" b1_1)" +" c1_1" +" b1_219)" "(let-values()" "(begin" "(unsafe-vector-set!" " A_0" -" c1_3" +" c1_1" "(unsafe-vector-ref" " A_0" -" a1_2))" -"(loop_10" +" a1_1))" +"(loop_221" "(unsafe-fx+" -" a1_2" +" a1_1" " 1)" "(unsafe-fx+" -" c1_3" +" c1_1" " 1))))" "(void))))))" -" loop_10)" +" loop_221)" " a1_0" -" c1_2)" -"(loop_9" +" c1_220)" +"(loop_211" " a1_0" -" b1_1" -" c1_2))))))))))" -" loop_9)" -" Amid2_0" -" Bmid1_0" +" b1_219" +" c1_220))))))))))" +" loop_211)" +" Amid2_208" +" Bmid1_209" " Blo_0))))))))))))))" -"(let-values(((Alo_1) 0)" -"((Amid1_1) n/2-_0)" -"((Amid2_1) n/2+_0)" -"((Ahi_0) n_1)" -"((B1lo_0) n_1))" +"(let-values(((Alo_224) 0)" +"((Amid1_225) n/2-_156)" +"((Amid2_226) n/2+_157)" +"((Ahi_227) n_0)" +"((B1lo_228) n_0))" "(begin" -"(copying-mergesort_0 Amid1_1 B1lo_0 n/2+_0)" -"(if(zero? n/2-_0)" +"(copying-mergesort_193 Amid1_225 B1lo_228 n/2+_157)" +"(if(zero? n/2-_156)" "(void)" -"(let-values()(copying-mergesort_0 Alo_1 Amid2_1 n/2-_0)))" -"(let-values(((b2_1) Ahi_0))" -"((letrec-values(((loop_11)" -"(lambda(a1_3 b1_2 c1_4)" +"(let-values()(copying-mergesort_193 Alo_224 Amid2_226 n/2-_156)))" +"(let-values(((b2_229) Ahi_227))" +"((letrec-values(((loop_230)" +"(lambda(a1_0 b1_0 c1_0)" "(begin" " 'loop" -"(let-values(((x_2)(unsafe-vector-ref A_0 a1_3))" -"((y_2)(unsafe-vector-ref A_0 b1_2)))" -"(if(less-than?_0 x_2 y_2)" +"(let-values(((x_234)(unsafe-vector-ref A_0 a1_0))" +"((y_235)(unsafe-vector-ref A_0 b1_0)))" +"(if(less-than?_0 x_234 y_235)" "(begin" -"(unsafe-vector-set! A_0 c1_4 x_2)" -"(let-values(((a1_4)(unsafe-fx+ a1_3 1))" -"((c1_5)(unsafe-fx+ c1_4 1)))" -"(if(unsafe-fx< c1_5 b1_2)" -"(let-values()(loop_11 a1_4 b1_2 c1_5))" +"(unsafe-vector-set! A_0 c1_0 x_234)" +"(let-values(((a1_236)(unsafe-fx+ a1_0 1))" +"((c1_237)(unsafe-fx+ c1_0 1)))" +"(if(unsafe-fx< c1_237 b1_0)" +"(let-values()(loop_230 a1_236 b1_0 c1_237))" "(void))))" "(begin" -"(unsafe-vector-set! A_0 c1_4 y_2)" -"(let-values(((b1_3)(unsafe-fx+ b1_2 1))" -"((c1_6)(unsafe-fx+ c1_4 1)))" -"(if(unsafe-fx<= b2_1 b1_3)" -"((letrec-values(((loop_12)" -"(lambda(a1_5 c1_7)" +"(unsafe-vector-set! A_0 c1_0 y_235)" +"(let-values(((b1_238)(unsafe-fx+ b1_0 1))" +"((c1_239)(unsafe-fx+ c1_0 1)))" +"(if(unsafe-fx<= b2_229 b1_238)" +"((letrec-values(((loop_240)" +"(lambda(a1_1 c1_1)" "(begin" " 'loop" -"(if(unsafe-fx< c1_7 b1_3)" +"(if(unsafe-fx< c1_1 b1_238)" "(let-values()" "(begin" "(unsafe-vector-set!" " A_0" -" c1_7" +" c1_1" "(unsafe-vector-ref" " A_0" -" a1_5))" -"(loop_12" -"(unsafe-fx+ a1_5 1)" +" a1_1))" +"(loop_240" +"(unsafe-fx+ a1_1 1)" "(unsafe-fx+" -" c1_7" +" c1_1" " 1))))" "(void))))))" -" loop_12)" -" a1_3" -" c1_6)" -"(loop_11 a1_3 b1_3 c1_6))))))))))" -" loop_11)" -" B1lo_0" -" Amid2_1" -" Alo_1)))))))))))))" -"(let-values(((generic-sort/key_0)" -"(lambda(A_1 less-than?_1 n_3 key_6)" +" loop_240)" +" a1_0" +" c1_239)" +"(loop_230 a1_0 b1_238 c1_239))))))))))" +" loop_230)" +" B1lo_228" +" Amid2_226" +" Alo_224)))))))))))))" +"(let-values(((generic-sort/key_50)" +"(lambda(A_0 less-than?_0 n_0 key_0)" "(begin" " 'generic-sort/key" "(let-values()" "(let-values()" -"(let-values(((n/2-_2)(unsafe-fxrshift n_3 1)))" -"(let-values(((n/2+_2)(unsafe-fx- n_3 n/2-_2)))" -"(letrec-values(((copying-mergesort_1)" -"(lambda(Alo_2 Blo_1 n_4)" +"(let-values(((n/2-_286)(unsafe-fxrshift n_0 1)))" +"(let-values(((n/2+_287)(unsafe-fx- n_0 n/2-_286)))" +"(letrec-values(((copying-mergesort_323)" +"(lambda(Alo_0 Blo_0 n_1)" "(begin" " 'copying-mergesort" -"(if(unsafe-fx= n_4 1)" +"(if(unsafe-fx= n_1 1)" "(let-values()" -"(unsafe-vector-set! A_1 Blo_1(unsafe-vector-ref A_1 Alo_2)))" -"(if(unsafe-fx= n_4 2)" +"(unsafe-vector-set! A_0 Blo_0(unsafe-vector-ref A_0 Alo_0)))" +"(if(unsafe-fx= n_1 2)" "(let-values()" -"(let-values(((x_3)(unsafe-vector-ref A_1 Alo_2))" -"((y_3)" -"(unsafe-vector-ref A_1(unsafe-fx+ Alo_2 1))))" -"(if(if key_6" -"(less-than?_1(key_6 y_3)(key_6 x_3))" -"(less-than?_1 y_3 x_3))" +"(let-values(((x_327)(unsafe-vector-ref A_0 Alo_0))" +"((y_328)" +"(unsafe-vector-ref A_0(unsafe-fx+ Alo_0 1))))" +"(if(if key_0" +"(less-than?_0(key_0 y_328)(key_0 x_327))" +"(less-than?_0 y_328 x_327))" "(begin" -"(unsafe-vector-set! A_1 Blo_1 y_3)" -"(unsafe-vector-set! A_1(unsafe-fx+ Blo_1 1) x_3))" +"(unsafe-vector-set! A_0 Blo_0 y_328)" +"(unsafe-vector-set! A_0(unsafe-fx+ Blo_0 1) x_327))" "(begin" -"(unsafe-vector-set! A_1 Blo_1 x_3)" -"(unsafe-vector-set! A_1(unsafe-fx+ Blo_1 1) y_3)))))" -"(if(unsafe-fx< n_4 16)" +"(unsafe-vector-set! A_0 Blo_0 x_327)" +"(unsafe-vector-set! A_0(unsafe-fx+ Blo_0 1) y_328)))))" +"(if(unsafe-fx< n_1 16)" "(let-values()" "(begin" "(unsafe-vector-set!" -" A_1" -" Blo_1" -"(unsafe-vector-ref A_1 Alo_2))" -"((letrec-values(((iloop_1)" -"(lambda(i_5)" +" A_0" +" Blo_0" +"(unsafe-vector-ref A_0 Alo_0))" +"((letrec-values(((iloop_329)" +"(lambda(i_0)" "(begin" " 'iloop" -"(if(unsafe-fx< i_5 n_4)" +"(if(unsafe-fx< i_0 n_1)" "(let-values()" -"(let-values(((ref-i_1)" +"(let-values(((ref-i_331)" "(unsafe-vector-ref" -" A_1" +" A_0" "(unsafe-fx+" -" Alo_2" -" i_5))))" -"((letrec-values(((jloop_1)" -"(lambda(j_1)" +" Alo_0" +" i_0))))" +"((letrec-values(((jloop_332)" +"(lambda(j_0)" "(begin" " 'jloop" -"(let-values(((ref-j-1_1)" +"(let-values(((ref-j-1_334)" "(unsafe-vector-ref" -" A_1" +" A_0" "(unsafe-fx-" -" j_1" +" j_0" " 1))))" "(if(if(unsafe-fx<" -" Blo_1" -" j_1)" -"(if key_6" -"(less-than?_1" -"(key_6" -" ref-i_1)" -"(key_6" -" ref-j-1_1))" -"(less-than?_1" -" ref-i_1" -" ref-j-1_1))" +" Blo_0" +" j_0)" +"(if key_0" +"(less-than?_0" +"(key_0" +" ref-i_331)" +"(key_0" +" ref-j-1_334))" +"(less-than?_0" +" ref-i_331" +" ref-j-1_334))" " #f)" "(begin" "(unsafe-vector-set!" -" A_1" -" j_1" -" ref-j-1_1)" -"(jloop_1" +" A_0" +" j_0" +" ref-j-1_334)" +"(jloop_332" "(unsafe-fx-" -" j_1" +" j_0" " 1)))" "(begin" "(unsafe-vector-set!" -" A_1" -" j_1" -" ref-i_1)" -"(iloop_1" +" A_0" +" j_0" +" ref-i_331)" +"(iloop_329" "(unsafe-fx+" -" i_5" +" i_0" " 1)))))))))" -" jloop_1)" -"(unsafe-fx+ Blo_1 i_5))))" +" jloop_332)" +"(unsafe-fx+ Blo_0 i_0))))" "(void))))))" -" iloop_1)" +" iloop_329)" " 1)))" "(let-values()" -"(let-values(((n/2-_3)(unsafe-fxrshift n_4 1)))" -"(let-values(((n/2+_3)(unsafe-fx- n_4 n/2-_3)))" -"(let-values(((Amid1_2)(unsafe-fx+ Alo_2 n/2-_3))" -"((Amid2_2)(unsafe-fx+ Alo_2 n/2+_3))" -"((Bmid1_1)(unsafe-fx+ Blo_1 n/2-_3)))" +"(let-values(((n/2-_335)(unsafe-fxrshift n_1 1)))" +"(let-values(((n/2+_336)(unsafe-fx- n_1 n/2-_335)))" +"(let-values(((Amid1_337)(unsafe-fx+ Alo_0 n/2-_335))" +"((Amid2_338)(unsafe-fx+ Alo_0 n/2+_336))" +"((Bmid1_339)(unsafe-fx+ Blo_0 n/2-_335)))" "(begin" -"(copying-mergesort_1 Amid1_2 Bmid1_1 n/2+_3)" -"(copying-mergesort_1 Alo_2 Amid2_2 n/2-_3)" -"(let-values(((b2_2)(unsafe-fx+ Blo_1 n_4)))" -"((letrec-values(((loop_13)" -"(lambda(a1_6 b1_4 c1_8)" +"(copying-mergesort_323" +" Amid1_337" +" Bmid1_339" +" n/2+_336)" +"(copying-mergesort_323 Alo_0 Amid2_338 n/2-_335)" +"(let-values(((b2_340)(unsafe-fx+ Blo_0 n_1)))" +"((letrec-values(((loop_341)" +"(lambda(a1_0 b1_0 c1_0)" "(begin" " 'loop" -"(let-values(((x_4)" +"(let-values(((x_345)" "(unsafe-vector-ref" -" A_1" -" a1_6))" -"((y_4)" +" A_0" +" a1_0))" +"((y_346)" "(unsafe-vector-ref" -" A_1" -" b1_4)))" +" A_0" +" b1_0)))" "(if(not" -"(if key_6" -"(less-than?_1" -"(key_6 y_4)" -"(key_6 x_4))" -"(less-than?_1" -" y_4" -" x_4)))" +"(if key_0" +"(less-than?_0" +"(key_0 y_346)" +"(key_0 x_345))" +"(less-than?_0" +" y_346" +" x_345)))" "(begin" "(unsafe-vector-set!" -" A_1" -" c1_8" -" x_4)" -"(let-values(((a1_7)" +" A_0" +" c1_0" +" x_345)" +"(let-values(((a1_347)" "(unsafe-fx+" -" a1_6" +" a1_0" " 1))" -"((c1_9)" +"((c1_348)" "(unsafe-fx+" -" c1_8" +" c1_0" " 1)))" "(if(unsafe-fx<" -" c1_9" -" b1_4)" +" c1_348" +" b1_0)" "(let-values()" -"(loop_13" -" a1_7" -" b1_4" -" c1_9))" +"(loop_341" +" a1_347" +" b1_0" +" c1_348))" "(void))))" "(begin" "(unsafe-vector-set!" -" A_1" -" c1_8" -" y_4)" -"(let-values(((b1_5)" +" A_0" +" c1_0" +" y_346)" +"(let-values(((b1_349)" "(unsafe-fx+" -" b1_4" +" b1_0" " 1))" -"((c1_10)" +"((c1_350)" "(unsafe-fx+" -" c1_8" +" c1_0" " 1)))" "(if(unsafe-fx<=" -" b2_2" -" b1_5)" -"((letrec-values(((loop_14)" -"(lambda(a1_8" -" c1_11)" +" b2_340" +" b1_349)" +"((letrec-values(((loop_351)" +"(lambda(a1_1" +" c1_1)" "(begin" " 'loop" "(if(unsafe-fx<" -" c1_11" -" b1_5)" +" c1_1" +" b1_349)" "(let-values()" "(begin" "(unsafe-vector-set!" -" A_1" -" c1_11" +" A_0" +" c1_1" "(unsafe-vector-ref" -" A_1" -" a1_8))" -"(loop_14" +" A_0" +" a1_1))" +"(loop_351" "(unsafe-fx+" -" a1_8" +" a1_1" " 1)" "(unsafe-fx+" -" c1_11" +" c1_1" " 1))))" "(void))))))" -" loop_14)" -" a1_6" -" c1_10)" -"(loop_13" -" a1_6" -" b1_5" -" c1_10))))))))))" -" loop_13)" -" Amid2_2" -" Bmid1_1" -" Blo_1))))))))))))))" -"(let-values(((Alo_3) 0)" -"((Amid1_3) n/2-_2)" -"((Amid2_3) n/2+_2)" -"((Ahi_1) n_3)" -"((B1lo_1) n_3))" +" loop_351)" +" a1_0" +" c1_350)" +"(loop_341" +" a1_0" +" b1_349" +" c1_350))))))))))" +" loop_341)" +" Amid2_338" +" Bmid1_339" +" Blo_0))))))))))))))" +"(let-values(((Alo_354) 0)" +"((Amid1_355) n/2-_286)" +"((Amid2_356) n/2+_287)" +"((Ahi_357) n_0)" +"((B1lo_358) n_0))" "(begin" -"(copying-mergesort_1 Amid1_3 B1lo_1 n/2+_2)" -"(if(zero? n/2-_2)" +"(copying-mergesort_323 Amid1_355 B1lo_358 n/2+_287)" +"(if(zero? n/2-_286)" "(void)" -"(let-values()(copying-mergesort_1 Alo_3 Amid2_3 n/2-_2)))" -"(let-values(((b2_3) Ahi_1))" -"((letrec-values(((loop_15)" -"(lambda(a1_9 b1_6 c1_12)" +"(let-values()(copying-mergesort_323 Alo_354 Amid2_356 n/2-_286)))" +"(let-values(((b2_359) Ahi_357))" +"((letrec-values(((loop_360)" +"(lambda(a1_0 b1_0 c1_0)" "(begin" " 'loop" -"(let-values(((x_5)(unsafe-vector-ref A_1 a1_9))" -"((y_5)(unsafe-vector-ref A_1 b1_6)))" -"(if(if key_6" -"(less-than?_1(key_6 x_5)(key_6 y_5))" -"(less-than?_1 x_5 y_5))" +"(let-values(((x_364)(unsafe-vector-ref A_0 a1_0))" +"((y_365)(unsafe-vector-ref A_0 b1_0)))" +"(if(if key_0" +"(less-than?_0(key_0 x_364)(key_0 y_365))" +"(less-than?_0 x_364 y_365))" "(begin" -"(unsafe-vector-set! A_1 c1_12 x_5)" -"(let-values(((a1_10)(unsafe-fx+ a1_9 1))" -"((c1_13)(unsafe-fx+ c1_12 1)))" -"(if(unsafe-fx< c1_13 b1_6)" -"(let-values()(loop_15 a1_10 b1_6 c1_13))" +"(unsafe-vector-set! A_0 c1_0 x_364)" +"(let-values(((a1_366)(unsafe-fx+ a1_0 1))" +"((c1_367)(unsafe-fx+ c1_0 1)))" +"(if(unsafe-fx< c1_367 b1_0)" +"(let-values()(loop_360 a1_366 b1_0 c1_367))" "(void))))" "(begin" -"(unsafe-vector-set! A_1 c1_12 y_5)" -"(let-values(((b1_7)(unsafe-fx+ b1_6 1))" -"((c1_14)(unsafe-fx+ c1_12 1)))" -"(if(unsafe-fx<= b2_3 b1_7)" -"((letrec-values(((loop_16)" -"(lambda(a1_11 c1_15)" +"(unsafe-vector-set! A_0 c1_0 y_365)" +"(let-values(((b1_368)(unsafe-fx+ b1_0 1))" +"((c1_369)(unsafe-fx+ c1_0 1)))" +"(if(unsafe-fx<= b2_359 b1_368)" +"((letrec-values(((loop_370)" +"(lambda(a1_1 c1_1)" "(begin" " 'loop" "(if(unsafe-fx<" -" c1_15" -" b1_7)" +" c1_1" +" b1_368)" "(let-values()" "(begin" "(unsafe-vector-set!" -" A_1" -" c1_15" +" A_0" +" c1_1" "(unsafe-vector-ref" -" A_1" -" a1_11))" -"(loop_16" +" A_0" +" a1_1))" +"(loop_370" +"(unsafe-fx+ a1_1 1)" "(unsafe-fx+" -" a1_11" -" 1)" -"(unsafe-fx+" -" c1_15" +" c1_1" " 1))))" "(void))))))" -" loop_16)" -" a1_9" -" c1_14)" -"(loop_15 a1_9 b1_7 c1_14))))))))))" -" loop_15)" -" B1lo_1" -" Amid2_3" -" Alo_3)))))))))))))" +" loop_370)" +" a1_0" +" c1_369)" +"(loop_360 a1_0 b1_368 c1_369))))))))))" +" loop_360)" +" B1lo_358" +" Amid2_356" +" Alo_354)))))))))))))" "(values" "(case-lambda" -"((lst_0 less-than?_2)" -"(let-values(((n_5)(length lst_0)))" +"((lst_0 less-than?_0)" +"(let-values(((n_375)(length lst_0)))" "(let-values()" -"(if(unsafe-fx= n_5 0)" +"(if(unsafe-fx= n_375 0)" "(let-values() lst_0)" -"(if((letrec-values(((loop_17)" -"(lambda(last_0 next_1)" +"(if((letrec-values(((loop_399)" +"(lambda(last_0 next_0)" "(begin" " 'loop" -"(let-values(((or-part_14)(null? next_1)))" -"(if or-part_14" -" or-part_14" -"(if(not(less-than?_2(unsafe-car next_1) last_0))" -"(loop_17(unsafe-car next_1)(unsafe-cdr next_1))" +"(let-values(((or-part_402)(null? next_0)))" +"(if or-part_402" +" or-part_402" +"(if(not(less-than?_0(unsafe-car next_0) last_0))" +"(loop_399(unsafe-car next_0)(unsafe-cdr next_0))" " #f)))))))" -" loop_17)" +" loop_399)" "(car lst_0)" "(cdr lst_0))" "(let-values() lst_0)" -"(if(unsafe-fx<= n_5 3)" +"(if(unsafe-fx<= n_375 3)" "(let-values()" -"(if(unsafe-fx= n_5 1)" +"(if(unsafe-fx= n_375 1)" "(let-values() lst_0)" -"(if(unsafe-fx= n_5 2)" +"(if(unsafe-fx= n_375 2)" "(let-values()(list(cadr lst_0)(car lst_0)))" "(let-values()" -"(let-values(((a_3)(car lst_0))((b_1)(cadr lst_0))((c_0)(caddr lst_0)))" -"(if(less-than?_2 b_1 a_3)" -"(if(less-than?_2 c_0 b_1)" -"(list c_0 b_1 a_3)" -"(if(less-than?_2 c_0 a_3)(list b_1 c_0 a_3)(list b_1 a_3 c_0)))" -"(if(less-than?_2 c_0 a_3)(list c_0 a_3 b_1)(list a_3 c_0 b_1))))))))" +"(let-values(((a_403)(car lst_0))((b_404)(cadr lst_0))((c_405)(caddr lst_0)))" +"(if(less-than?_0 b_404 a_403)" +"(if(less-than?_0 c_405 b_404)" +"(list c_405 b_404 a_403)" +"(if(less-than?_0 c_405 a_403)(list b_404 c_405 a_403)(list b_404 a_403 c_405)))" +"(if(less-than?_0 c_405 a_403)(list c_405 a_403 b_404)(list a_403 c_405 b_404))))))))" "(let-values()" -"(let-values(((vec_0)(make-vector(+ n_5(ceiling(/ n_5 2))))))" +"(let-values(((vec_406)(make-vector(+ n_375(ceiling(/ n_375 2))))))" "(begin" -"((letrec-values(((loop_18)" -"(lambda(i_6 lst_1)" +"((letrec-values(((loop_407)" +"(lambda(i_0 lst_1)" "(begin" " 'loop" "(if(pair? lst_1)" "(let-values()" "(begin" -"(vector-set! vec_0 i_6(car lst_1))" -"(loop_18(add1 i_6)(cdr lst_1))))" +"(vector-set! vec_406 i_0(car lst_1))" +"(loop_407(add1 i_0)(cdr lst_1))))" "(void))))))" -" loop_18)" +" loop_407)" " 0" " lst_0)" -"(generic-sort_0 vec_0 less-than?_2 n_5)" -"((letrec-values(((loop_19)" -"(lambda(i_7 r_1)" +"(generic-sort_49 vec_406 less-than?_0 n_375)" +"((letrec-values(((loop_410)" +"(lambda(i_0 r_0)" "(begin" " 'loop" -"(let-values(((i_8)(sub1 i_7)))" -"(if(< i_8 0)" -" r_1" -"(loop_19 i_8(cons(vector-ref vec_0 i_8) r_1))))))))" -" loop_19)" -" n_5" +"(let-values(((i_413)(sub1 i_0)))" +"(if(< i_413 0)" +" r_0" +"(loop_410 i_413(cons(vector-ref vec_406 i_413) r_0))))))))" +" loop_410)" +" n_375" " '()))))))))))" -"((lst_2 less-than?_3 getkey_0)" +"((lst_0 less-than?_0 getkey_0)" "(if(if getkey_0(not(eq? values getkey_0)) #f)" -"(sort lst_2 less-than?_3 getkey_0 #f)" -"(sort lst_2 less-than?_3)))" -"((lst_3 less-than?_4 getkey_1 cache-keys?_0)" -"(if(if getkey_1(not(eq? values getkey_1)) #f)" -"(let-values(((n_6)(length lst_3)))" +"(sort lst_0 less-than?_0 getkey_0 #f)" +"(sort lst_0 less-than?_0)))" +"((lst_0 less-than?_0 getkey_0 cache-keys?_0)" +"(if(if getkey_0(not(eq? values getkey_0)) #f)" +"(let-values(((n_421)(length lst_0)))" "(let-values()" -"(if(unsafe-fx= n_6 0)" -"(let-values() lst_3)" +"(if(unsafe-fx= n_421 0)" +"(let-values() lst_0)" "(if cache-keys?_0" "(let-values()" -"(let-values(((vec_1)(make-vector(+ n_6(ceiling(/ n_6 2))))))" +"(let-values(((vec_436)(make-vector(+ n_421(ceiling(/ n_421 2))))))" "(begin" -"((letrec-values(((loop_20)" -"(lambda(i_9 lst_4)" +"((letrec-values(((loop_437)" +"(lambda(i_0 lst_1)" "(begin" " 'loop" -"(if(pair? lst_4)" +"(if(pair? lst_1)" "(let-values()" -"(let-values(((x_6)(car lst_4)))" +"(let-values(((x_440)(car lst_1)))" "(begin" -"(unsafe-vector-set! vec_1 i_9(cons(getkey_1 x_6) x_6))" -"(loop_20(unsafe-fx+ i_9 1)(cdr lst_4)))))" +"(unsafe-vector-set! vec_436 i_0(cons(getkey_0 x_440) x_440))" +"(loop_437(unsafe-fx+ i_0 1)(cdr lst_1)))))" "(void))))))" -" loop_20)" +" loop_437)" " 0" -" lst_3)" -"(generic-sort/key_0 vec_1 less-than?_4 n_6 unsafe-car)" -"((letrec-values(((loop_21)" -"(lambda(i_10 r_2)" +" lst_0)" +"(generic-sort/key_50 vec_436 less-than?_0 n_421 unsafe-car)" +"((letrec-values(((loop_441)" +"(lambda(i_0 r_0)" "(begin" " 'loop" -"(let-values(((i_11)(unsafe-fx- i_10 1)))" -"(if(unsafe-fx< i_11 0)" -" r_2" -"(loop_21" -" i_11" -"(cons(unsafe-cdr(unsafe-vector-ref vec_1 i_11)) r_2))))))))" -" loop_21)" -" n_6" +"(let-values(((i_444)(unsafe-fx- i_0 1)))" +"(if(unsafe-fx< i_444 0)" +" r_0" +"(loop_441" +" i_444" +"(cons(unsafe-cdr(unsafe-vector-ref vec_436 i_444)) r_0))))))))" +" loop_441)" +" n_421" " '()))))" -"(if((letrec-values(((loop_22)" -"(lambda(last_1 next_2)" +"(if((letrec-values(((loop_445)" +"(lambda(last_0 next_0)" "(begin" " 'loop" -"(let-values(((or-part_15)(null? next_2)))" -"(if or-part_15" -" or-part_15" +"(let-values(((or-part_448)(null? next_0)))" +"(if or-part_448" +" or-part_448" "(if(not" -"(if getkey_1" -"(less-than?_4" -"(getkey_1(unsafe-car next_2))" -"(getkey_1 last_1))" -"(less-than?_4(unsafe-car next_2) last_1)))" -"(loop_22(unsafe-car next_2)(unsafe-cdr next_2))" +"(if getkey_0" +"(less-than?_0" +"(getkey_0(unsafe-car next_0))" +"(getkey_0 last_0))" +"(less-than?_0(unsafe-car next_0) last_0)))" +"(loop_445(unsafe-car next_0)(unsafe-cdr next_0))" " #f)))))))" -" loop_22)" -"(car lst_3)" -"(cdr lst_3))" -"(let-values() lst_3)" -"(if(unsafe-fx<= n_6 3)" +" loop_445)" +"(car lst_0)" +"(cdr lst_0))" +"(let-values() lst_0)" +"(if(unsafe-fx<= n_421 3)" "(let-values()" -"(if(unsafe-fx= n_6 1)" -"(let-values() lst_3)" -"(if(unsafe-fx= n_6 2)" -"(let-values()(list(cadr lst_3)(car lst_3)))" +"(if(unsafe-fx= n_421 1)" +"(let-values() lst_0)" +"(if(unsafe-fx= n_421 2)" +"(let-values()(list(cadr lst_0)(car lst_0)))" "(let-values()" -"(let-values(((a_4)(car lst_3))((b_2)(cadr lst_3))((c_1)(caddr lst_3)))" -"(if(if getkey_1(less-than?_4(getkey_1 b_2)(getkey_1 a_4))(less-than?_4 b_2 a_4))" -"(if(if getkey_1" -"(less-than?_4(getkey_1 c_1)(getkey_1 b_2))" -"(less-than?_4 c_1 b_2))" -"(list c_1 b_2 a_4)" -"(if(if getkey_1" -"(less-than?_4(getkey_1 c_1)(getkey_1 a_4))" -"(less-than?_4 c_1 a_4))" -"(list b_2 c_1 a_4)" -"(list b_2 a_4 c_1)))" -"(if(if getkey_1" -"(less-than?_4(getkey_1 c_1)(getkey_1 a_4))" -"(less-than?_4 c_1 a_4))" -"(list c_1 a_4 b_2)" -"(list a_4 c_1 b_2))))))))" +"(let-values(((a_449)(car lst_0))((b_450)(cadr lst_0))((c_451)(caddr lst_0)))" +"(if(if getkey_0" +"(less-than?_0(getkey_0 b_450)(getkey_0 a_449))" +"(less-than?_0 b_450 a_449))" +"(if(if getkey_0" +"(less-than?_0(getkey_0 c_451)(getkey_0 b_450))" +"(less-than?_0 c_451 b_450))" +"(list c_451 b_450 a_449)" +"(if(if getkey_0" +"(less-than?_0(getkey_0 c_451)(getkey_0 a_449))" +"(less-than?_0 c_451 a_449))" +"(list b_450 c_451 a_449)" +"(list b_450 a_449 c_451)))" +"(if(if getkey_0" +"(less-than?_0(getkey_0 c_451)(getkey_0 a_449))" +"(less-than?_0 c_451 a_449))" +"(list c_451 a_449 b_450)" +"(list a_449 c_451 b_450))))))))" "(let-values()" -"(let-values(((vec_2)(make-vector(+ n_6(ceiling(/ n_6 2))))))" +"(let-values(((vec_452)(make-vector(+ n_421(ceiling(/ n_421 2))))))" "(begin" -"((letrec-values(((loop_23)" -"(lambda(i_12 lst_5)" +"((letrec-values(((loop_453)" +"(lambda(i_0 lst_1)" "(begin" " 'loop" -"(if(pair? lst_5)" +"(if(pair? lst_1)" "(let-values()" "(begin" -"(vector-set! vec_2 i_12(car lst_5))" -"(loop_23(add1 i_12)(cdr lst_5))))" +"(vector-set! vec_452 i_0(car lst_1))" +"(loop_453(add1 i_0)(cdr lst_1))))" "(void))))))" -" loop_23)" +" loop_453)" " 0" -" lst_3)" -"(generic-sort/key_0 vec_2 less-than?_4 n_6 getkey_1)" -"((letrec-values(((loop_24)" -"(lambda(i_13 r_3)" +" lst_0)" +"(generic-sort/key_50 vec_452 less-than?_0 n_421 getkey_0)" +"((letrec-values(((loop_456)" +"(lambda(i_0 r_0)" "(begin" " 'loop" -"(let-values(((i_14)(sub1 i_13)))" -"(if(< i_14 0)" -" r_3" -"(loop_24 i_14(cons(vector-ref vec_2 i_14) r_3))))))))" -" loop_24)" -" n_6" +"(let-values(((i_459)(sub1 i_0)))" +"(if(< i_459 0)" +" r_0" +"(loop_456 i_459(cons(vector-ref vec_452 i_459) r_0))))))))" +" loop_456)" +" n_421" " '()))))))))))" -"(sort lst_3 less-than?_4))))" +"(sort lst_0 less-than?_0))))" "(case-lambda" -"((vec_3 less-than?_5 start_0 end_0)" -"(let-values(((n_7)(- end_0 start_0)))" -"(let-values(((dst-vec_0)(make-vector n_7)))" -"(let-values(((dst-start_0) 0))" +"((vec_0 less-than?_0 start_0 end_0)" +"(let-values(((n_464)(- end_0 start_0)))" +"(let-values(((dst-vec_496)(make-vector n_464)))" +"(let-values(((dst-start_497) 0))" "(begin" -"(if(unsafe-fx= n_7 0)" +"(if(unsafe-fx= n_464 0)" "(let-values()(void))" -"(if((letrec-values(((loop_25)" +"(if((letrec-values(((loop_504)" "(lambda(prev-val_0 next-index_0)" "(begin" " 'loop" -"(let-values(((or-part_16)(unsafe-fx= next-index_0 end_0)))" -"(if or-part_16" -" or-part_16" -"(let-values(((next-val_0)(unsafe-vector-ref vec_3 next-index_0)))" -"(if(not(less-than?_5 next-val_0 prev-val_0))" -"(loop_25 next-val_0(unsafe-fx+ next-index_0 1))" +"(let-values(((or-part_507)(unsafe-fx= next-index_0 end_0)))" +"(if or-part_507" +" or-part_507" +"(let-values(((next-val_508)(unsafe-vector-ref vec_0 next-index_0)))" +"(if(not(less-than?_0 next-val_508 prev-val_0))" +"(loop_504 next-val_508(unsafe-fx+ next-index_0 1))" " #f))))))))" -" loop_25)" -"(unsafe-vector-ref vec_3 start_0)" +" loop_504)" +"(unsafe-vector-ref vec_0 start_0)" "(unsafe-fx+ start_0 1))" -"(let-values()(let-values()(vector-copy! dst-vec_0 dst-start_0 vec_3 start_0 end_0)))" -"(if(unsafe-fx<= n_7 3)" +"(let-values()(let-values()(vector-copy! dst-vec_496 dst-start_497 vec_0 start_0 end_0)))" +"(if(unsafe-fx<= n_464 3)" "(let-values()" "(begin" -"(let-values()(vector-copy! dst-vec_0 dst-start_0 vec_3 start_0 end_0))" -"(if(unsafe-fx= n_7 1)" +"(let-values()(vector-copy! dst-vec_496 dst-start_497 vec_0 start_0 end_0))" +"(if(unsafe-fx= n_464 1)" "(let-values()(void))" -"(if(unsafe-fx= n_7 2)" +"(if(unsafe-fx= n_464 2)" "(let-values()" -"(let-values(((tmp_0)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 0))))" +"(let-values(((tmp_509)" +"(unsafe-vector-ref dst-vec_496(unsafe-fx+ dst-start_497 0))))" "(begin" "(unsafe-vector-set!" -" dst-vec_0" -"(unsafe-fx+ dst-start_0 0)" -"(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 1)))" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) tmp_0))))" +" dst-vec_496" +"(unsafe-fx+ dst-start_497 0)" +"(unsafe-vector-ref dst-vec_496(unsafe-fx+ dst-start_497 1)))" +"(unsafe-vector-set! dst-vec_496(unsafe-fx+ dst-start_497 1) tmp_509))))" "(let-values()" -"(let-values(((a_5)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 0)))" -"((b_3)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 1)))" -"((c_2)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 2))))" -"(if(less-than?_5 b_3 a_5)" +"(let-values(((a_510)(unsafe-vector-ref dst-vec_496(unsafe-fx+ dst-start_497 0)))" +"((b_511)(unsafe-vector-ref dst-vec_496(unsafe-fx+ dst-start_497 1)))" +"((c_512)(unsafe-vector-ref dst-vec_496(unsafe-fx+ dst-start_497 2))))" +"(if(less-than?_0 b_511 a_510)" "(let-values()" -"(if(less-than?_5 c_2 b_3)" +"(if(less-than?_0 c_512 b_511)" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 0) c_2)" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) a_5)))" -"(if(less-than?_5 c_2 a_5)" +"(unsafe-vector-set! dst-vec_496(unsafe-fx+ dst-start_497 0) c_512)" +"(unsafe-vector-set! dst-vec_496(unsafe-fx+ dst-start_497 2) a_510)))" +"(if(less-than?_0 c_512 a_510)" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 0) b_3)" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) c_2)" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) a_5)))" +"(unsafe-vector-set! dst-vec_496(unsafe-fx+ dst-start_497 0) b_511)" +"(unsafe-vector-set! dst-vec_496(unsafe-fx+ dst-start_497 1) c_512)" +"(unsafe-vector-set! dst-vec_496(unsafe-fx+ dst-start_497 2) a_510)))" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 0) b_3)" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) a_5))))))" -"(if(less-than?_5 c_2 a_5)" +"(unsafe-vector-set! dst-vec_496(unsafe-fx+ dst-start_497 0) b_511)" +"(unsafe-vector-set!" +" dst-vec_496" +"(unsafe-fx+ dst-start_497 1)" +" a_510))))))" +"(if(less-than?_0 c_512 a_510)" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 0) c_2)" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) a_5)" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) b_3)))" +"(unsafe-vector-set! dst-vec_496(unsafe-fx+ dst-start_497 0) c_512)" +"(unsafe-vector-set! dst-vec_496(unsafe-fx+ dst-start_497 1) a_510)" +"(unsafe-vector-set! dst-vec_496(unsafe-fx+ dst-start_497 2) b_511)))" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) c_2)" -"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) b_3)))))))))))" +"(unsafe-vector-set! dst-vec_496(unsafe-fx+ dst-start_497 1) c_512)" +"(unsafe-vector-set!" +" dst-vec_496" +"(unsafe-fx+ dst-start_497 2)" +" b_511)))))))))))" "(let-values()" -"(let-values(((work-vec_0)(make-vector(+ n_7(ceiling(/ n_7 2))) #f)))" +"(let-values(((work-vec_513)(make-vector(+ n_464(ceiling(/ n_464 2))) #f)))" "(begin" -"(vector-copy! work-vec_0 0 vec_3 start_0 end_0)" -"(generic-sort_0 work-vec_0 less-than?_5 n_7)" -"(vector-copy! dst-vec_0 dst-start_0 work-vec_0 0 n_7)))))))" -" dst-vec_0)))))" -"((vec_4 less-than?_6 start_1 end_1 getkey_2 cache-keys?_1)" -"(if(if getkey_2(not(eq? values getkey_2)) #f)" -"(let-values(((n_8)(- end_1 start_1)))" -"(let-values(((dst-vec_1)(make-vector n_8)))" -"(let-values(((dst-start_1) 0))" +"(vector-copy! work-vec_513 0 vec_0 start_0 end_0)" +"(generic-sort_49 work-vec_513 less-than?_0 n_464)" +"(vector-copy! dst-vec_496 dst-start_497 work-vec_513 0 n_464)))))))" +" dst-vec_496)))))" +"((vec_0 less-than?_0 start_0 end_0 getkey_0 cache-keys?_0)" +"(if(if getkey_0(not(eq? values getkey_0)) #f)" +"(let-values(((n_520)(- end_0 start_0)))" +"(let-values(((dst-vec_552)(make-vector n_520)))" +"(let-values(((dst-start_553) 0))" "(begin" -"(if(unsafe-fx= n_8 0)" +"(if(unsafe-fx= n_520 0)" "(let-values()(void))" -"(if cache-keys?_1" +"(if cache-keys?_0" "(let-values()" -"(let-values(((work-vec_1)(make-vector(+ n_8(ceiling(/ n_8 2))) #t)))" +"(let-values(((work-vec_554)(make-vector(+ n_520(ceiling(/ n_520 2))) #t)))" "(begin" -"((letrec-values(((loop_26)" -"(lambda(i_15)" +"((letrec-values(((loop_555)" +"(lambda(i_0)" "(begin" " 'loop" -"(if(unsafe-fx< i_15 n_8)" +"(if(unsafe-fx< i_0 n_520)" "(let-values()" "(begin" -"(let-values(((x_7)" +"(let-values(((x_557)" "(unsafe-vector-ref" -" vec_4" -"(unsafe-fx+ i_15 start_1))))" +" vec_0" +"(unsafe-fx+ i_0 start_0))))" "(unsafe-vector-set!" -" work-vec_1" -" i_15" -"(cons(getkey_2 x_7) x_7)))" -"(loop_26(unsafe-fx+ i_15 1))))" +" work-vec_554" +" i_0" +"(cons(getkey_0 x_557) x_557)))" +"(loop_555(unsafe-fx+ i_0 1))))" "(void))))))" -" loop_26)" +" loop_555)" " 0)" -"(generic-sort/key_0 work-vec_1 less-than?_6 n_8 unsafe-car)" -"((letrec-values(((loop_27)" -"(lambda(i_16)" +"(generic-sort/key_50 work-vec_554 less-than?_0 n_520 unsafe-car)" +"((letrec-values(((loop_558)" +"(lambda(i_0)" "(begin" " 'loop" -"(if(unsafe-fx< i_16 n_8)" +"(if(unsafe-fx< i_0 n_520)" "(let-values()" "(begin" "(unsafe-vector-set!" -" dst-vec_1" -"(unsafe-fx+ i_16 dst-start_1)" -"(unsafe-cdr(unsafe-vector-ref work-vec_1 i_16)))" -"(loop_27(unsafe-fx+ i_16 1))))" +" dst-vec_552" +"(unsafe-fx+ i_0 dst-start_553)" +"(unsafe-cdr(unsafe-vector-ref work-vec_554 i_0)))" +"(loop_558(unsafe-fx+ i_0 1))))" "(void))))))" -" loop_27)" +" loop_558)" " 0))))" -"(if((letrec-values(((loop_28)" -"(lambda(prev-val_1 next-index_1)" +"(if((letrec-values(((loop_560)" +"(lambda(prev-val_0 next-index_0)" "(begin" " 'loop" -"(let-values(((or-part_17)(unsafe-fx= next-index_1 end_1)))" -"(if or-part_17" -" or-part_17" -"(let-values(((next-val_1)" -"(unsafe-vector-ref vec_4 next-index_1)))" +"(let-values(((or-part_563)(unsafe-fx= next-index_0 end_0)))" +"(if or-part_563" +" or-part_563" +"(let-values(((next-val_564)" +"(unsafe-vector-ref vec_0 next-index_0)))" "(if(not" -"(if getkey_2" -"(less-than?_6" -"(getkey_2 next-val_1)" -"(getkey_2 prev-val_1))" -"(less-than?_6 next-val_1 prev-val_1)))" -"(loop_28 next-val_1(unsafe-fx+ next-index_1 1))" +"(if getkey_0" +"(less-than?_0" +"(getkey_0 next-val_564)" +"(getkey_0 prev-val_0))" +"(less-than?_0 next-val_564 prev-val_0)))" +"(loop_560 next-val_564(unsafe-fx+ next-index_0 1))" " #f))))))))" -" loop_28)" -"(unsafe-vector-ref vec_4 start_1)" -"(unsafe-fx+ start_1 1))" -"(let-values()(let-values()(vector-copy! dst-vec_1 dst-start_1 vec_4 start_1 end_1)))" -"(if(unsafe-fx<= n_8 3)" +" loop_560)" +"(unsafe-vector-ref vec_0 start_0)" +"(unsafe-fx+ start_0 1))" +"(let-values()(let-values()(vector-copy! dst-vec_552 dst-start_553 vec_0 start_0 end_0)))" +"(if(unsafe-fx<= n_520 3)" "(let-values()" "(begin" -"(let-values()(vector-copy! dst-vec_1 dst-start_1 vec_4 start_1 end_1))" -"(if(unsafe-fx= n_8 1)" +"(let-values()(vector-copy! dst-vec_552 dst-start_553 vec_0 start_0 end_0))" +"(if(unsafe-fx= n_520 1)" "(let-values()(void))" -"(if(unsafe-fx= n_8 2)" +"(if(unsafe-fx= n_520 2)" "(let-values()" -"(let-values(((tmp_1)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 0))))" +"(let-values(((tmp_565)" +"(unsafe-vector-ref dst-vec_552(unsafe-fx+ dst-start_553 0))))" "(begin" "(unsafe-vector-set!" -" dst-vec_1" -"(unsafe-fx+ dst-start_1 0)" -"(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 1)))" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) tmp_1))))" +" dst-vec_552" +"(unsafe-fx+ dst-start_553 0)" +"(unsafe-vector-ref dst-vec_552(unsafe-fx+ dst-start_553 1)))" +"(unsafe-vector-set! dst-vec_552(unsafe-fx+ dst-start_553 1) tmp_565))))" "(let-values()" -"(let-values(((a_6)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 0)))" -"((b_4)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 1)))" -"((c_3)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 2))))" -"(if(if getkey_2" -"(less-than?_6(getkey_2 b_4)(getkey_2 a_6))" -"(less-than?_6 b_4 a_6))" +"(let-values(((a_566)" +"(unsafe-vector-ref dst-vec_552(unsafe-fx+ dst-start_553 0)))" +"((b_567)" +"(unsafe-vector-ref dst-vec_552(unsafe-fx+ dst-start_553 1)))" +"((c_568)" +"(unsafe-vector-ref dst-vec_552(unsafe-fx+ dst-start_553 2))))" +"(if(if getkey_0" +"(less-than?_0(getkey_0 b_567)(getkey_0 a_566))" +"(less-than?_0 b_567 a_566))" "(let-values()" -"(if(if getkey_2" -"(less-than?_6(getkey_2 c_3)(getkey_2 b_4))" -"(less-than?_6 c_3 b_4))" +"(if(if getkey_0" +"(less-than?_0(getkey_0 c_568)(getkey_0 b_567))" +"(less-than?_0 c_568 b_567))" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 0) c_3)" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) a_6)))" -"(if(if getkey_2" -"(less-than?_6(getkey_2 c_3)(getkey_2 a_6))" -"(less-than?_6 c_3 a_6))" +"(unsafe-vector-set! dst-vec_552(unsafe-fx+ dst-start_553 0) c_568)" +"(unsafe-vector-set! dst-vec_552(unsafe-fx+ dst-start_553 2) a_566)))" +"(if(if getkey_0" +"(less-than?_0(getkey_0 c_568)(getkey_0 a_566))" +"(less-than?_0 c_568 a_566))" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 0) b_4)" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) c_3)" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) a_6)))" +"(unsafe-vector-set! dst-vec_552(unsafe-fx+ dst-start_553 0) b_567)" +"(unsafe-vector-set! dst-vec_552(unsafe-fx+ dst-start_553 1) c_568)" +"(unsafe-vector-set!" +" dst-vec_552" +"(unsafe-fx+ dst-start_553 2)" +" a_566)))" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 0) b_4)" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) a_6))))))" -"(if(if getkey_2" -"(less-than?_6(getkey_2 c_3)(getkey_2 a_6))" -"(less-than?_6 c_3 a_6))" +"(unsafe-vector-set! dst-vec_552(unsafe-fx+ dst-start_553 0) b_567)" +"(unsafe-vector-set!" +" dst-vec_552" +"(unsafe-fx+ dst-start_553 1)" +" a_566))))))" +"(if(if getkey_0" +"(less-than?_0(getkey_0 c_568)(getkey_0 a_566))" +"(less-than?_0 c_568 a_566))" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 0) c_3)" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) a_6)" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) b_4)))" +"(unsafe-vector-set! dst-vec_552(unsafe-fx+ dst-start_553 0) c_568)" +"(unsafe-vector-set! dst-vec_552(unsafe-fx+ dst-start_553 1) a_566)" +"(unsafe-vector-set! dst-vec_552(unsafe-fx+ dst-start_553 2) b_567)))" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) c_3)" -"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) b_4)))))))))))" +"(unsafe-vector-set! dst-vec_552(unsafe-fx+ dst-start_553 1) c_568)" +"(unsafe-vector-set!" +" dst-vec_552" +"(unsafe-fx+ dst-start_553 2)" +" b_567)))))))))))" "(let-values()" -"(let-values(((work-vec_2)(make-vector(+ n_8(ceiling(/ n_8 2))) #f)))" +"(let-values(((work-vec_569)(make-vector(+ n_520(ceiling(/ n_520 2))) #f)))" "(begin" -"(vector-copy! work-vec_2 0 vec_4 start_1 end_1)" -"(generic-sort/key_0 work-vec_2 less-than?_6 n_8 getkey_2)" -"(vector-copy! dst-vec_1 dst-start_1 work-vec_2 0 n_8))))))))" -" dst-vec_1))))" -"(vector-sort vec_4 less-than?_6 start_1 end_1))))" +"(vector-copy! work-vec_569 0 vec_0 start_0 end_0)" +"(generic-sort/key_50 work-vec_569 less-than?_0 n_520 getkey_0)" +"(vector-copy! dst-vec_552 dst-start_553 work-vec_569 0 n_520))))))))" +" dst-vec_552))))" +"(vector-sort vec_0 less-than?_0 start_0 end_0))))" "(case-lambda" -"((vec_5 less-than?_7 start_2 end_2)" -"(let-values(((n_9)(- end_2 start_2)))" -"(let-values(((dst-vec_2) vec_5))" -"(let-values(((dst-start_2) start_2))" +"((vec_0 less-than?_0 start_0 end_0)" +"(let-values(((n_574)(- end_0 start_0)))" +"(let-values(((dst-vec_606) vec_0))" +"(let-values(((dst-start_607) start_0))" "(begin" -"(if(unsafe-fx= n_9 0)" +"(if(unsafe-fx= n_574 0)" "(let-values()(void))" -"(if((letrec-values(((loop_29)" -"(lambda(prev-val_2 next-index_2)" +"(if((letrec-values(((loop_614)" +"(lambda(prev-val_0 next-index_0)" "(begin" " 'loop" -"(let-values(((or-part_18)(unsafe-fx= next-index_2 end_2)))" -"(if or-part_18" -" or-part_18" -"(let-values(((next-val_2)(unsafe-vector-ref vec_5 next-index_2)))" -"(if(not(less-than?_7 next-val_2 prev-val_2))" -"(loop_29 next-val_2(unsafe-fx+ next-index_2 1))" +"(let-values(((or-part_617)(unsafe-fx= next-index_0 end_0)))" +"(if or-part_617" +" or-part_617" +"(let-values(((next-val_618)(unsafe-vector-ref vec_0 next-index_0)))" +"(if(not(less-than?_0 next-val_618 prev-val_0))" +"(loop_614 next-val_618(unsafe-fx+ next-index_0 1))" " #f))))))))" -" loop_29)" -"(unsafe-vector-ref vec_5 start_2)" -"(unsafe-fx+ start_2 1))" +" loop_614)" +"(unsafe-vector-ref vec_0 start_0)" +"(unsafe-fx+ start_0 1))" "(let-values()(void))" -"(if(unsafe-fx<= n_9 3)" +"(if(unsafe-fx<= n_574 3)" "(let-values()" "(begin" "(void)" -"(if(unsafe-fx= n_9 1)" +"(if(unsafe-fx= n_574 1)" "(let-values()(void))" -"(if(unsafe-fx= n_9 2)" +"(if(unsafe-fx= n_574 2)" "(let-values()" -"(let-values(((tmp_2)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 0))))" +"(let-values(((tmp_619)" +"(unsafe-vector-ref dst-vec_606(unsafe-fx+ dst-start_607 0))))" "(begin" "(unsafe-vector-set!" -" dst-vec_2" -"(unsafe-fx+ dst-start_2 0)" -"(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 1)))" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) tmp_2))))" +" dst-vec_606" +"(unsafe-fx+ dst-start_607 0)" +"(unsafe-vector-ref dst-vec_606(unsafe-fx+ dst-start_607 1)))" +"(unsafe-vector-set! dst-vec_606(unsafe-fx+ dst-start_607 1) tmp_619))))" "(let-values()" -"(let-values(((a_7)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 0)))" -"((b_5)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 1)))" -"((c_4)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 2))))" -"(if(less-than?_7 b_5 a_7)" +"(let-values(((a_620)(unsafe-vector-ref dst-vec_606(unsafe-fx+ dst-start_607 0)))" +"((b_621)(unsafe-vector-ref dst-vec_606(unsafe-fx+ dst-start_607 1)))" +"((c_622)(unsafe-vector-ref dst-vec_606(unsafe-fx+ dst-start_607 2))))" +"(if(less-than?_0 b_621 a_620)" "(let-values()" -"(if(less-than?_7 c_4 b_5)" +"(if(less-than?_0 c_622 b_621)" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 0) c_4)" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) a_7)))" -"(if(less-than?_7 c_4 a_7)" +"(unsafe-vector-set! dst-vec_606(unsafe-fx+ dst-start_607 0) c_622)" +"(unsafe-vector-set! dst-vec_606(unsafe-fx+ dst-start_607 2) a_620)))" +"(if(less-than?_0 c_622 a_620)" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 0) b_5)" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) c_4)" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) a_7)))" +"(unsafe-vector-set! dst-vec_606(unsafe-fx+ dst-start_607 0) b_621)" +"(unsafe-vector-set! dst-vec_606(unsafe-fx+ dst-start_607 1) c_622)" +"(unsafe-vector-set! dst-vec_606(unsafe-fx+ dst-start_607 2) a_620)))" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 0) b_5)" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) a_7))))))" -"(if(less-than?_7 c_4 a_7)" +"(unsafe-vector-set! dst-vec_606(unsafe-fx+ dst-start_607 0) b_621)" +"(unsafe-vector-set!" +" dst-vec_606" +"(unsafe-fx+ dst-start_607 1)" +" a_620))))))" +"(if(less-than?_0 c_622 a_620)" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 0) c_4)" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) a_7)" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) b_5)))" +"(unsafe-vector-set! dst-vec_606(unsafe-fx+ dst-start_607 0) c_622)" +"(unsafe-vector-set! dst-vec_606(unsafe-fx+ dst-start_607 1) a_620)" +"(unsafe-vector-set! dst-vec_606(unsafe-fx+ dst-start_607 2) b_621)))" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) c_4)" -"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) b_5)))))))))))" +"(unsafe-vector-set! dst-vec_606(unsafe-fx+ dst-start_607 1) c_622)" +"(unsafe-vector-set!" +" dst-vec_606" +"(unsafe-fx+ dst-start_607 2)" +" b_621)))))))))))" "(let-values()" -"(let-values(((work-vec_3)(make-vector(+ n_9(ceiling(/ n_9 2))) #f)))" +"(let-values(((work-vec_623)(make-vector(+ n_574(ceiling(/ n_574 2))) #f)))" "(begin" -"(vector-copy! work-vec_3 0 vec_5 start_2 end_2)" -"(generic-sort_0 work-vec_3 less-than?_7 n_9)" -"(vector-copy! dst-vec_2 dst-start_2 work-vec_3 0 n_9)))))))" +"(vector-copy! work-vec_623 0 vec_0 start_0 end_0)" +"(generic-sort_49 work-vec_623 less-than?_0 n_574)" +"(vector-copy! dst-vec_606 dst-start_607 work-vec_623 0 n_574)))))))" "(void))))))" -"((vec_6 less-than?_8 start_3 end_3 getkey_3 cache-keys?_2)" -"(if(if getkey_3(not(eq? values getkey_3)) #f)" -"(let-values(((n_10)(- end_3 start_3)))" -"(let-values(((dst-vec_3) vec_6))" -"(let-values(((dst-start_3) start_3))" +"((vec_0 less-than?_0 start_0 end_0 getkey_0 cache-keys?_0)" +"(if(if getkey_0(not(eq? values getkey_0)) #f)" +"(let-values(((n_630)(- end_0 start_0)))" +"(let-values(((dst-vec_662) vec_0))" +"(let-values(((dst-start_663) start_0))" "(begin" -"(if(unsafe-fx= n_10 0)" +"(if(unsafe-fx= n_630 0)" "(let-values()(void))" -"(if cache-keys?_2" +"(if cache-keys?_0" "(let-values()" -"(let-values(((work-vec_4)(make-vector(+ n_10(ceiling(/ n_10 2))) #t)))" +"(let-values(((work-vec_664)(make-vector(+ n_630(ceiling(/ n_630 2))) #t)))" "(begin" -"((letrec-values(((loop_30)" -"(lambda(i_17)" +"((letrec-values(((loop_665)" +"(lambda(i_0)" "(begin" " 'loop" -"(if(unsafe-fx< i_17 n_10)" +"(if(unsafe-fx< i_0 n_630)" "(let-values()" "(begin" -"(let-values(((x_8)" +"(let-values(((x_667)" "(unsafe-vector-ref" -" vec_6" -"(unsafe-fx+ i_17 start_3))))" +" vec_0" +"(unsafe-fx+ i_0 start_0))))" "(unsafe-vector-set!" -" work-vec_4" -" i_17" -"(cons(getkey_3 x_8) x_8)))" -"(loop_30(unsafe-fx+ i_17 1))))" +" work-vec_664" +" i_0" +"(cons(getkey_0 x_667) x_667)))" +"(loop_665(unsafe-fx+ i_0 1))))" "(void))))))" -" loop_30)" +" loop_665)" " 0)" -"(generic-sort/key_0 work-vec_4 less-than?_8 n_10 unsafe-car)" -"((letrec-values(((loop_31)" -"(lambda(i_18)" +"(generic-sort/key_50 work-vec_664 less-than?_0 n_630 unsafe-car)" +"((letrec-values(((loop_668)" +"(lambda(i_0)" "(begin" " 'loop" -"(if(unsafe-fx< i_18 n_10)" +"(if(unsafe-fx< i_0 n_630)" "(let-values()" "(begin" "(unsafe-vector-set!" -" dst-vec_3" -"(unsafe-fx+ i_18 dst-start_3)" -"(unsafe-cdr(unsafe-vector-ref work-vec_4 i_18)))" -"(loop_31(unsafe-fx+ i_18 1))))" +" dst-vec_662" +"(unsafe-fx+ i_0 dst-start_663)" +"(unsafe-cdr(unsafe-vector-ref work-vec_664 i_0)))" +"(loop_668(unsafe-fx+ i_0 1))))" "(void))))))" -" loop_31)" +" loop_668)" " 0))))" -"(if((letrec-values(((loop_32)" -"(lambda(prev-val_3 next-index_3)" +"(if((letrec-values(((loop_670)" +"(lambda(prev-val_0 next-index_0)" "(begin" " 'loop" -"(let-values(((or-part_19)(unsafe-fx= next-index_3 end_3)))" -"(if or-part_19" -" or-part_19" -"(let-values(((next-val_3)" -"(unsafe-vector-ref vec_6 next-index_3)))" +"(let-values(((or-part_673)(unsafe-fx= next-index_0 end_0)))" +"(if or-part_673" +" or-part_673" +"(let-values(((next-val_674)" +"(unsafe-vector-ref vec_0 next-index_0)))" "(if(not" -"(if getkey_3" -"(less-than?_8" -"(getkey_3 next-val_3)" -"(getkey_3 prev-val_3))" -"(less-than?_8 next-val_3 prev-val_3)))" -"(loop_32 next-val_3(unsafe-fx+ next-index_3 1))" +"(if getkey_0" +"(less-than?_0" +"(getkey_0 next-val_674)" +"(getkey_0 prev-val_0))" +"(less-than?_0 next-val_674 prev-val_0)))" +"(loop_670 next-val_674(unsafe-fx+ next-index_0 1))" " #f))))))))" -" loop_32)" -"(unsafe-vector-ref vec_6 start_3)" -"(unsafe-fx+ start_3 1))" +" loop_670)" +"(unsafe-vector-ref vec_0 start_0)" +"(unsafe-fx+ start_0 1))" "(let-values()(void))" -"(if(unsafe-fx<= n_10 3)" +"(if(unsafe-fx<= n_630 3)" "(let-values()" "(begin" "(void)" -"(if(unsafe-fx= n_10 1)" +"(if(unsafe-fx= n_630 1)" "(let-values()(void))" -"(if(unsafe-fx= n_10 2)" +"(if(unsafe-fx= n_630 2)" "(let-values()" -"(let-values(((tmp_3)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 0))))" +"(let-values(((tmp_675)" +"(unsafe-vector-ref dst-vec_662(unsafe-fx+ dst-start_663 0))))" "(begin" "(unsafe-vector-set!" -" dst-vec_3" -"(unsafe-fx+ dst-start_3 0)" -"(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 1)))" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) tmp_3))))" +" dst-vec_662" +"(unsafe-fx+ dst-start_663 0)" +"(unsafe-vector-ref dst-vec_662(unsafe-fx+ dst-start_663 1)))" +"(unsafe-vector-set! dst-vec_662(unsafe-fx+ dst-start_663 1) tmp_675))))" "(let-values()" -"(let-values(((a_8)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 0)))" -"((b_6)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 1)))" -"((c_5)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 2))))" -"(if(if getkey_3" -"(less-than?_8(getkey_3 b_6)(getkey_3 a_8))" -"(less-than?_8 b_6 a_8))" +"(let-values(((a_676)" +"(unsafe-vector-ref dst-vec_662(unsafe-fx+ dst-start_663 0)))" +"((b_677)" +"(unsafe-vector-ref dst-vec_662(unsafe-fx+ dst-start_663 1)))" +"((c_678)" +"(unsafe-vector-ref dst-vec_662(unsafe-fx+ dst-start_663 2))))" +"(if(if getkey_0" +"(less-than?_0(getkey_0 b_677)(getkey_0 a_676))" +"(less-than?_0 b_677 a_676))" "(let-values()" -"(if(if getkey_3" -"(less-than?_8(getkey_3 c_5)(getkey_3 b_6))" -"(less-than?_8 c_5 b_6))" +"(if(if getkey_0" +"(less-than?_0(getkey_0 c_678)(getkey_0 b_677))" +"(less-than?_0 c_678 b_677))" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 0) c_5)" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) a_8)))" -"(if(if getkey_3" -"(less-than?_8(getkey_3 c_5)(getkey_3 a_8))" -"(less-than?_8 c_5 a_8))" +"(unsafe-vector-set! dst-vec_662(unsafe-fx+ dst-start_663 0) c_678)" +"(unsafe-vector-set! dst-vec_662(unsafe-fx+ dst-start_663 2) a_676)))" +"(if(if getkey_0" +"(less-than?_0(getkey_0 c_678)(getkey_0 a_676))" +"(less-than?_0 c_678 a_676))" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 0) b_6)" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) c_5)" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) a_8)))" +"(unsafe-vector-set! dst-vec_662(unsafe-fx+ dst-start_663 0) b_677)" +"(unsafe-vector-set! dst-vec_662(unsafe-fx+ dst-start_663 1) c_678)" +"(unsafe-vector-set!" +" dst-vec_662" +"(unsafe-fx+ dst-start_663 2)" +" a_676)))" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 0) b_6)" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) a_8))))))" -"(if(if getkey_3" -"(less-than?_8(getkey_3 c_5)(getkey_3 a_8))" -"(less-than?_8 c_5 a_8))" +"(unsafe-vector-set! dst-vec_662(unsafe-fx+ dst-start_663 0) b_677)" +"(unsafe-vector-set!" +" dst-vec_662" +"(unsafe-fx+ dst-start_663 1)" +" a_676))))))" +"(if(if getkey_0" +"(less-than?_0(getkey_0 c_678)(getkey_0 a_676))" +"(less-than?_0 c_678 a_676))" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 0) c_5)" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) a_8)" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) b_6)))" +"(unsafe-vector-set! dst-vec_662(unsafe-fx+ dst-start_663 0) c_678)" +"(unsafe-vector-set! dst-vec_662(unsafe-fx+ dst-start_663 1) a_676)" +"(unsafe-vector-set! dst-vec_662(unsafe-fx+ dst-start_663 2) b_677)))" "(let-values()" "(begin" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) c_5)" -"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) b_6)))))))))))" +"(unsafe-vector-set! dst-vec_662(unsafe-fx+ dst-start_663 1) c_678)" +"(unsafe-vector-set!" +" dst-vec_662" +"(unsafe-fx+ dst-start_663 2)" +" b_677)))))))))))" "(let-values()" -"(let-values(((work-vec_5)(make-vector(+ n_10(ceiling(/ n_10 2))) #f)))" +"(let-values(((work-vec_679)(make-vector(+ n_630(ceiling(/ n_630 2))) #f)))" "(begin" -"(vector-copy! work-vec_5 0 vec_6 start_3 end_3)" -"(generic-sort/key_0 work-vec_5 less-than?_8 n_10 getkey_3)" -"(vector-copy! dst-vec_3 dst-start_3 work-vec_5 0 n_10))))))))" +"(vector-copy! work-vec_679 0 vec_0 start_0 end_0)" +"(generic-sort/key_50 work-vec_679 less-than?_0 n_630 getkey_0)" +"(vector-copy! dst-vec_662 dst-start_663 work-vec_679 0 n_630))))))))" "(void)))))" -"(vector-sort! vec_6 less-than?_8 start_3 end_3)))))))))" +"(vector-sort! vec_0 less-than?_0 start_0 end_0)))))))))" "(define-values" "(prop:stream stream-via-prop? stream-ref)" "(make-struct-type-property" " 'stream" -"(lambda(v_11 si_0)" +"(lambda(v_0 si_0)" "(begin" -"(if(if(vector? v_11)" -"(if(= 3(vector-length v_11))" -"(if(procedure?(vector-ref v_11 0))" -"(if(procedure-arity-includes?(vector-ref v_11 0) 1)" -"(if(procedure?(vector-ref v_11 1))" -"(if(procedure-arity-includes?(vector-ref v_11 1) 1)" -"(if(procedure?(vector-ref v_11 2))(procedure-arity-includes?(vector-ref v_11 2) 1) #f)" +"(if(if(vector? v_0)" +"(if(= 3(vector-length v_0))" +"(if(procedure?(vector-ref v_0 0))" +"(if(procedure-arity-includes?(vector-ref v_0 0) 1)" +"(if(procedure?(vector-ref v_0 1))" +"(if(procedure-arity-includes?(vector-ref v_0 1) 1)" +"(if(procedure?(vector-ref v_0 2))(procedure-arity-includes?(vector-ref v_0 2) 1) #f)" " #f)" " #f)" " #f)" @@ -1810,18 +1856,18 @@ static const char *startup_source = " \"(vector/c (procedure-arity-includes/c 1)\\n\"" " \" (procedure-arity-includes/c 1)\\n\"" " \" (procedure-arity-includes/c 1))\")" -" v_11)))" -"(vector->immutable-vector v_11)))))" +" v_0)))" +"(vector->immutable-vector v_0)))))" "(define-values" "(prop:gen-sequence sequence-via-prop? sequence-ref)" "(make-struct-type-property" " 'sequence" -"(lambda(v_12 si_1)" +"(lambda(v_0 si_0)" "(begin" -"(if(if(procedure? v_12)(procedure-arity-includes? v_12 1) #f)" +"(if(if(procedure? v_0)(procedure-arity-includes? v_0 1) #f)" "(void)" -" (let-values () (raise-argument-error 'guard-for-prop:sequence \"(procedure-arity-includes/c 1)\" v_12)))" -" v_12))))" +" (let-values () (raise-argument-error 'guard-for-prop:sequence \"(procedure-arity-includes/c 1)\" v_0)))" +" v_0))))" "(define-values" "(struct:range make-range range? range-ref range-set!)" "(make-struct-type" @@ -1834,27 +1880,28 @@ static const char *startup_source = "(cons" " prop:stream" "(vector" -"(lambda(v_13)(let-values(((cont?_0)(range-ref v_13 2)))(if cont?_0(not(cont?_0(range-ref v_13 0))) #f)))" -"(lambda(v_14)(range-ref v_14 0))" -"(lambda(v_15)(make-range((range-ref v_15 1)(range-ref v_15 0))(range-ref v_15 1)(range-ref v_15 2)))))" +"(lambda(v_0)" +"(let-values(((cont?_2946)(range-ref v_0 2)))(if cont?_2946(not(cont?_2946(range-ref v_0 0))) #f)))" +"(lambda(v_0)(range-ref v_0 0))" +"(lambda(v_0)(make-range((range-ref v_0 1)(range-ref v_0 0))(range-ref v_0 1)(range-ref v_0 2)))))" "(cons" " prop:gen-sequence" -"(lambda(v_16)(values values #f(range-ref v_16 1)(range-ref v_16 0)(range-ref v_16 2) #f #f))))))" +"(lambda(v_0)(values values #f(range-ref v_0 1)(range-ref v_0 0)(range-ref v_0 2) #f #f))))))" "(define-values" "(check-range)" -"(lambda(a_9 b_7 step_0)" +"(lambda(a_0 b_0 step_0)" "(begin" "(begin" -" (if (real? a_9) (void) (let-values () (raise-argument-error 'in-range \"real?\" a_9)))" -" (if (real? b_7) (void) (let-values () (raise-argument-error 'in-range \"real?\" b_7)))" +" (if (real? a_0) (void) (let-values () (raise-argument-error 'in-range \"real?\" a_0)))" +" (if (real? b_0) (void) (let-values () (raise-argument-error 'in-range \"real?\" b_0)))" " (if (real? step_0) (void) (let-values () (raise-argument-error 'in-range \"real?\" step_0)))))))" "(define-values" "(check-naturals)" -"(lambda(n_11)" +"(lambda(n_0)" "(begin" -"(if(if(integer? n_11)(if(exact? n_11)(>= n_11 0) #f) #f)" +"(if(if(integer? n_0)(if(exact? n_0)(>= n_0 0) #f) #f)" "(void)" -" (let-values () (raise-argument-error 'in-naturals \"exact-nonnegative-integer?\" n_11))))))" +" (let-values () (raise-argument-error 'in-naturals \"exact-nonnegative-integer?\" n_0))))))" "(define-values" "(struct:list-stream make-list-stream list-stream? list-stream-ref list-stream-set!)" "(make-struct-type" @@ -1867,104 +1914,106 @@ static const char *startup_source = "(cons" " prop:stream" "(vector" -"(lambda(v_17)(not(pair?(list-stream-ref v_17 0))))" -"(lambda(v_18)(car(list-stream-ref v_18 0)))" -"(lambda(v_19)(make-list-stream(cdr(list-stream-ref v_19 0))))))" -"(cons prop:gen-sequence(lambda(v_20)(values car cdr values(list-stream-ref v_20 0) pair? #f #f))))))" +"(lambda(v_0)(not(pair?(list-stream-ref v_0 0))))" +"(lambda(v_0)(car(list-stream-ref v_0 0)))" +"(lambda(v_0)(make-list-stream(cdr(list-stream-ref v_0 0))))))" +"(cons prop:gen-sequence(lambda(v_0)(values car cdr values(list-stream-ref v_0 0) pair? #f #f))))))" "(define-values" "(check-list)" -" (lambda (l_5) (begin (if (list? l_5) (void) (let-values () (raise-argument-error 'in-list \"list?\" l_5))))))" +" (lambda (l_0) (begin (if (list? l_0) (void) (let-values () (raise-argument-error 'in-list \"list?\" l_0))))))" "(define-values" "(check-in-hash)" -"(lambda(ht_6)" +"(lambda(ht_0)" "(begin" -" (if ((lambda (ht_7) (hash? ht_7)) ht_6) (void) (let-values () (raise-argument-error 'in-hash \"hash?\" ht_6))))))" +" (if ((lambda (ht_1) (hash? ht_1)) ht_0) (void) (let-values () (raise-argument-error 'in-hash \"hash?\" ht_0))))))" "(define-values" "(check-in-immutable-hash)" -"(lambda(ht_8)" +"(lambda(ht_0)" "(begin" -"(if((lambda(ht_9)(if(hash? ht_9)(immutable? ht_9) #f)) ht_8)" +"(if((lambda(ht_1)(if(hash? ht_1)(immutable? ht_1) #f)) ht_0)" "(void)" -" (let-values () (raise-argument-error 'in-immutable-hash \"(and/c hash? immutable?)\" ht_8))))))" +" (let-values () (raise-argument-error 'in-immutable-hash \"(and/c hash? immutable?)\" ht_0))))))" "(define-values" "(check-in-hash-keys)" -"(lambda(ht_10)" +"(lambda(ht_0)" "(begin" -"(if((lambda(ht_11)(hash? ht_11)) ht_10)" +"(if((lambda(ht_1)(hash? ht_1)) ht_0)" "(void)" -" (let-values () (raise-argument-error 'in-hash-keys \"hash?\" ht_10))))))" +" (let-values () (raise-argument-error 'in-hash-keys \"hash?\" ht_0))))))" "(define-values" "(check-in-immutable-hash-keys)" -"(lambda(ht_12)" +"(lambda(ht_0)" "(begin" -"(if((lambda(ht_13)(if(hash? ht_13)(immutable? ht_13) #f)) ht_12)" +"(if((lambda(ht_1)(if(hash? ht_1)(immutable? ht_1) #f)) ht_0)" "(void)" -" (let-values () (raise-argument-error 'in-immutable-hash-keys \"(and/c hash? immutable?)\" ht_12))))))" +" (let-values () (raise-argument-error 'in-immutable-hash-keys \"(and/c hash? immutable?)\" ht_0))))))" "(define-values" "(check-in-hash-values)" -"(lambda(ht_14)" +"(lambda(ht_0)" "(begin" -"(if((lambda(ht_15)(hash? ht_15)) ht_14)" +"(if((lambda(ht_1)(hash? ht_1)) ht_0)" "(void)" -" (let-values () (raise-argument-error 'in-hash-values \"hash?\" ht_14))))))" +" (let-values () (raise-argument-error 'in-hash-values \"hash?\" ht_0))))))" "(define-values" "(check-ranges)" -"(lambda(who_3 vec_7 start_4 stop_0 step_1 len_0)" +"(lambda(who_0 vec_0 start_0 stop_0 step_0 len_0)" "(begin" "(begin" -"(if(if(exact-nonnegative-integer? start_4)" -"(let-values(((or-part_20)(< start_4 len_0)))(if or-part_20 or-part_20(= len_0 start_4 stop_0)))" +"(if(if(exact-nonnegative-integer? start_0)" +"(let-values(((or-part_3061)(< start_0 len_0)))(if or-part_3061 or-part_3061(= len_0 start_0 stop_0)))" " #f)" "(void)" -" (let-values () (raise-range-error who_3 \"vector\" \"starting \" start_4 vec_7 0 (sub1 len_0))))" +" (let-values () (raise-range-error who_0 \"vector\" \"starting \" start_0 vec_0 0 (sub1 len_0))))" "(if(if(exact-integer? stop_0)(if(<= -1 stop_0)(<= stop_0 len_0) #f) #f)" "(void)" -" (let-values () (raise-range-error who_3 \"vector\" \"stopping \" stop_0 vec_7 -1 len_0)))" -"(if(if(exact-integer? step_1)(not(zero? step_1)) #f)" +" (let-values () (raise-range-error who_0 \"vector\" \"stopping \" stop_0 vec_0 -1 len_0)))" +"(if(if(exact-integer? step_0)(not(zero? step_0)) #f)" "(void)" -" (let-values () (raise-argument-error who_3 \"(and/c exact-integer? (not/c zero?))\" step_1)))" -"(if(if(< start_4 stop_0)(< step_1 0) #f)" +" (let-values () (raise-argument-error who_0 \"(and/c exact-integer? (not/c zero?))\" step_0)))" +"(if(if(< start_0 stop_0)(< step_0 0) #f)" "(let-values()" "(raise-arguments-error" -" who_3" +" who_0" " \"starting index less than stopping index, but given a negative step\"" " \"starting index\"" -" start_4" +" start_0" " \"stopping index\"" " stop_0" " \"step\"" -" step_1))" +" step_0))" "(void))" -"(if(if(< stop_0 start_4)(> step_1 0) #f)" +"(if(if(< stop_0 start_0)(> step_0 0) #f)" "(let-values()" "(raise-arguments-error" -" who_3" +" who_0" " \"starting index more than stopping index, but given a positive step\"" " \"starting index\"" -" start_4" +" start_0" " \"stopping index\"" " stop_0" " \"step\"" -" step_1))" +" step_0))" "(void))))))" "(define-values" "(normalise-inputs)" -"(lambda(who_4 type-name_0 vector?_0 unsafe-vector-length_0 vec_8 start_5 stop_1 step_2)" +"(lambda(who_0 type-name_0 vector?_0 unsafe-vector-length_0 vec_0 start_0 stop_0 step_0)" "(begin" "(begin" -"(if(vector?_0 vec_8)(void)(let-values()(raise-argument-error who_4 type-name_0 vec_8)))" -"(let-values(((len_1)(unsafe-vector-length_0 vec_8)))" -"(let-values(((stop*_0)(if stop_1 stop_1 len_1)))" -"(begin(check-ranges who_4 vec_8 start_5 stop*_0 step_2 len_1)(values vec_8 start_5 stop*_0 step_2))))))))" +"(if(vector?_0 vec_0)(void)(let-values()(raise-argument-error who_0 type-name_0 vec_0)))" +"(let-values(((len_3070)(unsafe-vector-length_0 vec_0)))" +"(let-values(((stop*_3071)(if stop_0 stop_0 len_3070)))" +"(begin" +"(check-ranges who_0 vec_0 start_0 stop*_3071 step_0 len_3070)" +"(values vec_0 start_0 stop*_3071 step_0))))))))" "(define-values" "(check-vector)" -" (lambda (v_21) (begin (if (vector? v_21) (void) (let-values () (raise-argument-error 'in-vector \"vector\" v_21))))))" +" (lambda (v_0) (begin (if (vector? v_0) (void) (let-values () (raise-argument-error 'in-vector \"vector\" v_0))))))" "(define-values" "(check-string)" -" (lambda (v_22) (begin (if (string? v_22) (void) (let-values () (raise-argument-error 'in-string \"string\" v_22))))))" +" (lambda (v_0) (begin (if (string? v_0) (void) (let-values () (raise-argument-error 'in-string \"string\" v_0))))))" "(define-values" "(check-bytes)" -" (lambda (v_23) (begin (if (bytes? v_23) (void) (let-values () (raise-argument-error 'in-bytes \"bytes\" v_23))))))" +" (lambda (v_0) (begin (if (bytes? v_0) (void) (let-values () (raise-argument-error 'in-bytes \"bytes\" v_0))))))" "(define-values" "(struct:do-stream make-do-stream do-stream? do-stream-ref do-stream-set!)" "(make-struct-type" @@ -1977,254 +2026,256 @@ static const char *startup_source = "(cons" " prop:stream" "(vector" -"(lambda(v_24)((do-stream-ref v_24 0)))" -"(lambda(v_25)((do-stream-ref v_25 1)))" -"(lambda(v_26)((do-stream-ref v_26 2))))))))" +"(lambda(v_0)((do-stream-ref v_0 0)))" +"(lambda(v_0)((do-stream-ref v_0 1)))" +"(lambda(v_0)((do-stream-ref v_0 2))))))))" "(define-values(empty-stream)(make-do-stream(lambda() #t) void void))" "(define-values" "(grow-vector)" -"(lambda(vec_9)" +"(lambda(vec_0)" "(begin" -"(let-values(((n_12)(vector-length vec_9)))" -"(let-values(((new-vec_0)(make-vector(* 2 n_12))))" -"(begin(vector-copy! new-vec_0 0 vec_9 0 n_12) new-vec_0))))))" +"(let-values(((n_3387)(vector-length vec_0)))" +"(let-values(((new-vec_3388)(make-vector(* 2 n_3387))))" +"(begin(vector-copy! new-vec_3388 0 vec_0 0 n_3387) new-vec_3388))))))" "(define-values" "(shrink-vector)" -"(lambda(vec_10 i_19)" -"(begin(let-values(((new-vec_1)(make-vector i_19)))(begin(vector-copy! new-vec_1 0 vec_10 0 i_19) new-vec_1)))))" +"(lambda(vec_0 i_0)" +"(begin" +"(let-values(((new-vec_3391)(make-vector i_0)))" +"(begin(vector-copy! new-vec_3391 0 vec_0 0 i_0) new-vec_3391)))))" "(define-values" "(map2)" -"(let-values(((map_0)" +"(let-values(((map_4)" "(case-lambda" -"((f_0 l_6)" +"((f_0 l_0)" "(begin" " 'map" "(if(if(variable-reference-from-unsafe?(#%variable-reference))" " #t" -"(if(procedure? f_0)(if(procedure-arity-includes? f_0 1)(list? l_6) #f) #f))" -"((letrec-values(((loop_33)" -"(lambda(l_7)" +"(if(procedure? f_0)(if(procedure-arity-includes? f_0 1)(list? l_0) #f) #f))" +"((letrec-values(((loop_7)" +"(lambda(l_1)" "(begin" " 'loop" -"(if(null? l_7)" +"(if(null? l_1)" "(let-values() null)" "(let-values()" -"(let-values(((r_4)(cdr l_7)))" -"(cons(f_0(car l_7))(loop_33 r_4)))))))))" -" loop_33)" -" l_6)" -"(gen-map f_0(list l_6)))))" -"((f_1 l1_0 l2_0)" +"(let-values(((r_9)(cdr l_1)))" +"(cons(f_0(car l_1))(loop_7 r_9)))))))))" +" loop_7)" +" l_0)" +"(gen-map f_0(list l_0)))))" +"((f_0 l1_0 l2_0)" "(if(if(variable-reference-from-unsafe?(#%variable-reference))" " #t" -"(if(procedure? f_1)" -"(if(procedure-arity-includes? f_1 2)" +"(if(procedure? f_0)" +"(if(procedure-arity-includes? f_0 2)" "(if(list? l1_0)(if(list? l2_0)(=(length l1_0)(length l2_0)) #f) #f)" " #f)" " #f))" -"((letrec-values(((loop_34)" +"((letrec-values(((loop_13)" "(lambda(l1_1 l2_1)" "(begin" " 'loop" "(if(null? l1_1)" "(let-values() null)" "(let-values()" -"(let-values(((r1_0)(cdr l1_1))((r2_0)(cdr l2_1)))" -"(cons(f_1(car l1_1)(car l2_1))(loop_34 r1_0 r2_0)))))))))" -" loop_34)" +"(let-values(((r1_16)(cdr l1_1))((r2_17)(cdr l2_1)))" +"(cons(f_0(car l1_1)(car l2_1))(loop_13 r1_16 r2_17)))))))))" +" loop_13)" " l1_0" " l2_0)" -"(gen-map f_1(list l1_0 l2_0))))" -"((f_2 l_8 . args_0)(gen-map f_2(cons l_8 args_0))))))" -" map_0))" +"(gen-map f_0(list l1_0 l2_0))))" +"((f_0 l_0 . args_0)(gen-map f_0(cons l_0 args_0))))))" +" map_4))" "(define-values" "(for-each2)" -"(let-values(((for-each_0)" +"(let-values(((for-each_21)" "(case-lambda" -"((f_3 l_9)" +"((f_0 l_0)" "(begin" " 'for-each" "(if(if(variable-reference-from-unsafe?(#%variable-reference))" " #t" -"(if(procedure? f_3)(if(procedure-arity-includes? f_3 1)(list? l_9) #f) #f))" -"((letrec-values(((loop_35)" -"(lambda(l_10)" +"(if(procedure? f_0)(if(procedure-arity-includes? f_0 1)(list? l_0) #f) #f))" +"((letrec-values(((loop_24)" +"(lambda(l_1)" "(begin" " 'loop" -"(if(null? l_10)" +"(if(null? l_1)" "(let-values()(void))" "(let-values()" -"(let-values(((r_5)(cdr l_10)))" -"(begin(f_3(car l_10))(loop_35 r_5)))))))))" -" loop_35)" -" l_9)" -"(gen-for-each f_3(list l_9)))))" -"((f_4 l1_2 l2_2)" +"(let-values(((r_26)(cdr l_1)))" +"(begin(f_0(car l_1))(loop_24 r_26)))))))))" +" loop_24)" +" l_0)" +"(gen-for-each f_0(list l_0)))))" +"((f_0 l1_0 l2_0)" "(if(if(variable-reference-from-unsafe?(#%variable-reference))" " #t" -"(if(procedure? f_4)" -"(if(procedure-arity-includes? f_4 2)" -"(if(list? l1_2)(if(list? l2_2)(=(length l1_2)(length l2_2)) #f) #f)" +"(if(procedure? f_0)" +"(if(procedure-arity-includes? f_0 2)" +"(if(list? l1_0)(if(list? l2_0)(=(length l1_0)(length l2_0)) #f) #f)" " #f)" " #f))" -"((letrec-values(((loop_36)" -"(lambda(l1_3 l2_3)" +"((letrec-values(((loop_30)" +"(lambda(l1_1 l2_1)" "(begin" " 'loop" -"(if(null? l1_3)" +"(if(null? l1_1)" "(let-values()(void))" "(let-values()" -"(let-values(((r1_1)(cdr l1_3))((r2_1)(cdr l2_3)))" -"(begin(f_4(car l1_3)(car l2_3))(loop_36 r1_1 r2_1)))))))))" -" loop_36)" -" l1_2" -" l2_2)" -"(gen-for-each f_4(list l1_2 l2_2))))" -"((f_5 l_11 . args_1)(gen-for-each f_5(cons l_11 args_1))))))" -" for-each_0))" +"(let-values(((r1_33)(cdr l1_1))((r2_34)(cdr l2_1)))" +"(begin(f_0(car l1_1)(car l2_1))(loop_30 r1_33 r2_34)))))))))" +" loop_30)" +" l1_0" +" l2_0)" +"(gen-for-each f_0(list l1_0 l2_0))))" +"((f_0 l_0 . args_0)(gen-for-each f_0(cons l_0 args_0))))))" +" for-each_21))" "(define-values" "(andmap2)" -"(let-values(((andmap_0)" +"(let-values(((andmap_38)" "(case-lambda" -"((f_6 l_12)" +"((f_0 l_0)" "(begin" " 'andmap" "(if(if(variable-reference-from-unsafe?(#%variable-reference))" " #t" -"(if(procedure? f_6)(if(procedure-arity-includes? f_6 1)(list? l_12) #f) #f))" -"(if(null? l_12)" +"(if(procedure? f_0)(if(procedure-arity-includes? f_0 1)(list? l_0) #f) #f))" +"(if(null? l_0)" " #t" -"((letrec-values(((loop_37)" -"(lambda(l_13)" +"((letrec-values(((loop_41)" +"(lambda(l_1)" "(begin" " 'loop" -"(if(null?(cdr l_13))" -"(let-values()(f_6(car l_13)))" +"(if(null?(cdr l_1))" +"(let-values()(f_0(car l_1)))" "(let-values()" -"(let-values(((r_6)(cdr l_13)))" -"(if(f_6(car l_13))(loop_37 r_6) #f))))))))" -" loop_37)" -" l_12))" -"(gen-andmap f_6(list l_12)))))" -"((f_7 l1_4 l2_4)" +"(let-values(((r_43)(cdr l_1)))" +"(if(f_0(car l_1))(loop_41 r_43) #f))))))))" +" loop_41)" +" l_0))" +"(gen-andmap f_0(list l_0)))))" +"((f_0 l1_0 l2_0)" "(if(if(variable-reference-from-unsafe?(#%variable-reference))" " #t" -"(if(procedure? f_7)" -"(if(procedure-arity-includes? f_7 2)" -"(if(list? l1_4)(if(list? l2_4)(=(length l1_4)(length l2_4)) #f) #f)" +"(if(procedure? f_0)" +"(if(procedure-arity-includes? f_0 2)" +"(if(list? l1_0)(if(list? l2_0)(=(length l1_0)(length l2_0)) #f) #f)" " #f)" " #f))" -"(if(null? l1_4)" +"(if(null? l1_0)" " #t" -"((letrec-values(((loop_38)" -"(lambda(l1_5 l2_5)" +"((letrec-values(((loop_47)" +"(lambda(l1_1 l2_1)" "(begin" " 'loop" -"(if(null?(cdr l1_5))" -"(let-values()(f_7(car l1_5)(car l2_5)))" +"(if(null?(cdr l1_1))" +"(let-values()(f_0(car l1_1)(car l2_1)))" "(let-values()" -"(let-values(((r1_2)(cdr l1_5))((r2_2)(cdr l2_5)))" -"(if(f_7(car l1_5)(car l2_5))(loop_38 r1_2 r2_2) #f))))))))" -" loop_38)" -" l1_4" -" l2_4))" -"(gen-andmap f_7(list l1_4 l2_4))))" -"((f_8 l_14 . args_2)(gen-andmap f_8(cons l_14 args_2))))))" -" andmap_0))" +"(let-values(((r1_50)(cdr l1_1))((r2_51)(cdr l2_1)))" +"(if(f_0(car l1_1)(car l2_1))(loop_47 r1_50 r2_51) #f))))))))" +" loop_47)" +" l1_0" +" l2_0))" +"(gen-andmap f_0(list l1_0 l2_0))))" +"((f_0 l_0 . args_0)(gen-andmap f_0(cons l_0 args_0))))))" +" andmap_38))" "(define-values" "(ormap2)" -"(let-values(((ormap_0)" +"(let-values(((ormap_55)" "(case-lambda" -"((f_9 l_15)" +"((f_0 l_0)" "(begin" " 'ormap" "(if(if(variable-reference-from-unsafe?(#%variable-reference))" " #t" -"(if(procedure? f_9)(if(procedure-arity-includes? f_9 1)(list? l_15) #f) #f))" -"(if(null? l_15)" +"(if(procedure? f_0)(if(procedure-arity-includes? f_0 1)(list? l_0) #f) #f))" +"(if(null? l_0)" " #f" -"((letrec-values(((loop_39)" -"(lambda(l_16)" +"((letrec-values(((loop_58)" +"(lambda(l_1)" "(begin" " 'loop" -"(if(null?(cdr l_16))" -"(let-values()(f_9(car l_16)))" +"(if(null?(cdr l_1))" +"(let-values()(f_0(car l_1)))" "(let-values()" -"(let-values(((r_7)(cdr l_16)))" -"(let-values(((or-part_21)(f_9(car l_16))))" -"(if or-part_21 or-part_21(loop_39 r_7))))))))))" -" loop_39)" -" l_15))" -"(gen-ormap f_9(list l_15)))))" -"((f_10 l1_6 l2_6)" +"(let-values(((r_60)(cdr l_1)))" +"(let-values(((or-part_61)(f_0(car l_1))))" +"(if or-part_61 or-part_61(loop_58 r_60))))))))))" +" loop_58)" +" l_0))" +"(gen-ormap f_0(list l_0)))))" +"((f_0 l1_0 l2_0)" "(if(if(variable-reference-from-unsafe?(#%variable-reference))" " #t" -"(if(procedure? f_10)" -"(if(procedure-arity-includes? f_10 2)" -"(if(list? l1_6)(if(list? l2_6)(=(length l1_6)(length l2_6)) #f) #f)" +"(if(procedure? f_0)" +"(if(procedure-arity-includes? f_0 2)" +"(if(list? l1_0)(if(list? l2_0)(=(length l1_0)(length l2_0)) #f) #f)" " #f)" " #f))" -"(if(null? l1_6)" +"(if(null? l1_0)" " #f" -"((letrec-values(((loop_40)" -"(lambda(l1_7 l2_7)" +"((letrec-values(((loop_65)" +"(lambda(l1_1 l2_1)" "(begin" " 'loop" -"(if(null?(cdr l1_7))" -"(let-values()(f_10(car l1_7)(car l2_7)))" +"(if(null?(cdr l1_1))" +"(let-values()(f_0(car l1_1)(car l2_1)))" "(let-values()" -"(let-values(((r1_3)(cdr l1_7))((r2_3)(cdr l2_7)))" -"(let-values(((or-part_22)(f_10(car l1_7)(car l2_7))))" -"(if or-part_22 or-part_22(loop_40 r1_3 r2_3))))))))))" -" loop_40)" -" l1_6" -" l2_6))" -"(gen-ormap f_10(list l1_6 l2_6))))" -"((f_11 l_17 . args_3)(gen-ormap f_11(cons l_17 args_3))))))" -" ormap_0))" +"(let-values(((r1_68)(cdr l1_1))((r2_69)(cdr l2_1)))" +"(let-values(((or-part_70)(f_0(car l1_1)(car l2_1))))" +"(if or-part_70 or-part_70(loop_65 r1_68 r2_69))))))))))" +" loop_65)" +" l1_0" +" l2_0))" +"(gen-ormap f_0(list l1_0 l2_0))))" +"((f_0 l_0 . args_0)(gen-ormap f_0(cons l_0 args_0))))))" +" ormap_55))" "(define-values" "(check-args)" -"(lambda(who_5 f_12 ls_4)" +"(lambda(who_0 f_0 ls_0)" "(begin" "(begin" -" (if (procedure? f_12) (void) (let-values () (raise-argument-error who_5 \"procedure?\" f_12)))" -"((letrec-values(((loop_41)" -"(lambda(prev-len_0 ls_5 i_20)" +" (if (procedure? f_0) (void) (let-values () (raise-argument-error who_0 \"procedure?\" f_0)))" +"((letrec-values(((loop_77)" +"(lambda(prev-len_0 ls_1 i_0)" "(begin" " 'loop" -"(if(null? ls_5)" +"(if(null? ls_1)" "(void)" "(let-values()" -"(let-values(((l_18)(car ls_5)))" +"(let-values(((l_81)(car ls_1)))" "(begin" -" (if (list? l_18) (void) (let-values () (raise-argument-error who_5 \"list?\" l_18)))" -"(let-values(((len_2)(length l_18)))" +" (if (list? l_81) (void) (let-values () (raise-argument-error who_0 \"list?\" l_81)))" +"(let-values(((len_82)(length l_81)))" "(begin" -"(if(if prev-len_0(not(= len_2 prev-len_0)) #f)" +"(if(if prev-len_0(not(= len_82 prev-len_0)) #f)" "(let-values()" "(raise-arguments-error" -" who_5" +" who_0" " \"all lists must have same size\"" " \"first list length\"" " prev-len_0" " \"other list length\"" -" len_2" +" len_82" " \"procedure\"" -" f_12))" +" f_0))" "(void))" -"(loop_41 len_2(cdr ls_5)(add1 i_20))))))))))))" -" loop_41)" +"(loop_77 len_82(cdr ls_1)(add1 i_0))))))))))))" +" loop_77)" " #f" -" ls_4" +" ls_0" " 1)" -"(if(procedure-arity-includes? f_12(length ls_4))" +"(if(procedure-arity-includes? f_0(length ls_0))" "(void)" "(let-values()" -"(let-values(((required-keywords_0 optional-keywords_0)(procedure-keywords f_12)))" +"(let-values(((required-keywords_83 optional-keywords_84)(procedure-keywords f_0)))" "(apply" " raise-arguments-error" -" who_5" -"(if(pair? required-keywords_0)" +" who_0" +"(if(pair? required-keywords_83)" " (string-append \"argument mismatch;\\n\" \" the given procedure expects keyword arguments\")" "(string-append" " \"argument mismatch;\\n\"" @@ -2232,24 +2283,24 @@ static const char *startup_source = " \" the given number of lists\"))" " \"given procedure\"" "(unquoted-printing-string" -"(let-values(((or-part_23)" -"(let-values(((n_13)(object-name f_12)))(if(symbol? n_13)(symbol->string n_13) #f))))" -" (if or-part_23 or-part_23 \"#\")))" +"(let-values(((or-part_85)" +"(let-values(((n_86)(object-name f_0)))(if(symbol? n_86)(symbol->string n_86) #f))))" +" (if or-part_85 or-part_85 \"#\")))" "(append" -"(let-values(((a_10)(procedure-arity f_12)))" -"(if(pair? required-keywords_0)" +"(let-values(((a_87)(procedure-arity f_0)))" +"(if(pair? required-keywords_83)" "(let-values() null)" -"(if(integer? a_10)" -" (let-values () (list \"expected\" a_10))" -"(if(arity-at-least? a_10)" +"(if(integer? a_87)" +" (let-values () (list \"expected\" a_87))" +"(if(arity-at-least? a_87)" "(let-values()" "(list" " \"expected\"" "(unquoted-printing-string" -" (string-append \"at least \" (number->string (arity-at-least-value a_10))))))" +" (string-append \"at least \" (number->string (arity-at-least-value a_87))))))" "(let-values() null)))))" -" (if (pair? required-keywords_0) (let-values () null) (let-values () (list \"given\" (length ls_4))))" -"(if(pair? required-keywords_0)" +" (if (pair? required-keywords_83) (let-values () null) (let-values () (list \"given\" (length ls_0))))" +"(if(pair? required-keywords_83)" "(let-values()" "(list" " \"required keywords\"" @@ -2257,7 +2308,7 @@ static const char *startup_source = "(apply" " string-append" "(cdr" -"((letrec-values(((loop_42)" +"((letrec-values(((loop_88)" "(lambda(kws_0)" "(begin" " 'loop" @@ -2267,115 +2318,117 @@ static const char *startup_source = "(list*" " \" \"" " (string-append \"#:\" (keyword->string (car kws_0)))" -"(loop_42(cdr kws_0)))))))))" -" loop_42)" -" required-keywords_0))))))" +"(loop_88(cdr kws_0)))))))))" +" loop_88)" +" required-keywords_83))))))" "(let-values() null))" -"(let-values(((w_0)(quotient(error-print-width)(length ls_4))))" -"(if(> w_0 10)" +"(let-values(((w_90)(quotient(error-print-width)(length ls_0))))" +"(if(> w_90 10)" "(list" " \"argument lists...\"" "(unquoted-printing-string" "(apply" " string-append" -"((letrec-values(((loop_43)" -"(lambda(ls_6)" +"((letrec-values(((loop_91)" +"(lambda(ls_1)" "(begin" " 'loop" -"(if(null? ls_6)" +"(if(null? ls_1)" "(let-values() null)" "(let-values()" "(cons" -" (string-append \"\\n \" ((error-value->string-handler) (car ls_6) w_0))" -"(loop_43(cdr ls_6)))))))))" -" loop_43)" -" ls_4))))" +"(string-append" +" \"\\n \"" +"((error-value->string-handler)(car ls_1) w_90))" +"(loop_91(cdr ls_1)))))))))" +" loop_91)" +" ls_0))))" " null)))))))))))" "(define-values" "(gen-map)" -"(lambda(f_13 ls_7)" +"(lambda(f_0 ls_0)" "(begin" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'map f_13 ls_7))" -"((letrec-values(((loop_44)" -"(lambda(ls_8)" +"(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'map f_0 ls_0))" +"((letrec-values(((loop_95)" +"(lambda(ls_1)" "(begin" " 'loop" -"(if(null?(car ls_8))" +"(if(null?(car ls_1))" "(let-values() null)" "(let-values()" -"(let-values(((next-ls_0)(map2 cdr ls_8)))" -"(cons(apply f_13(map2 car ls_8))(loop_44 next-ls_0)))))))))" -" loop_44)" -" ls_7)))))" +"(let-values(((next-ls_97)(map2 cdr ls_1)))" +"(cons(apply f_0(map2 car ls_1))(loop_95 next-ls_97)))))))))" +" loop_95)" +" ls_0)))))" "(define-values" "(gen-for-each)" -"(lambda(f_14 ls_9)" +"(lambda(f_0 ls_0)" "(begin" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'for-each f_14 ls_9))" -"((letrec-values(((loop_45)" -"(lambda(ls_10)" +"(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'for-each f_0 ls_0))" +"((letrec-values(((loop_100)" +"(lambda(ls_1)" "(begin" " 'loop" -"(if(null?(car ls_10))" +"(if(null?(car ls_1))" "(void)" "(let-values()" -"(let-values(((next-ls_1)(map2 cdr ls_10)))" -"(begin(apply f_14(map2 car ls_10))(loop_45 next-ls_1)))))))))" -" loop_45)" -" ls_9)))))" +"(let-values(((next-ls_102)(map2 cdr ls_1)))" +"(begin(apply f_0(map2 car ls_1))(loop_100 next-ls_102)))))))))" +" loop_100)" +" ls_0)))))" "(define-values" "(gen-andmap)" -"(lambda(f_15 ls_11)" +"(lambda(f_0 ls_0)" "(begin" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'andmap f_15 ls_11))" -"((letrec-values(((loop_46)" -"(lambda(ls_12)" +"(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'andmap f_0 ls_0))" +"((letrec-values(((loop_105)" +"(lambda(ls_1)" "(begin" " 'loop" -"(if(null?(car ls_12))" +"(if(null?(car ls_1))" "(let-values() #t)" -"(if(null?(cdar ls_12))" -"(let-values()(apply f_15(map2 car ls_12)))" +"(if(null?(cdar ls_1))" +"(let-values()(apply f_0(map2 car ls_1)))" "(let-values()" -"(let-values(((next-ls_2)(map2 cdr ls_12)))" -"(if(apply f_15(map2 car ls_12))(loop_46 next-ls_2) #f)))))))))" -" loop_46)" -" ls_11)))))" +"(let-values(((next-ls_107)(map2 cdr ls_1)))" +"(if(apply f_0(map2 car ls_1))(loop_105 next-ls_107) #f)))))))))" +" loop_105)" +" ls_0)))))" "(define-values" "(gen-ormap)" -"(lambda(f_16 ls_13)" +"(lambda(f_0 ls_0)" "(begin" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'ormap f_16 ls_13))" -"((letrec-values(((loop_47)" -"(lambda(ls_14)" +"(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'ormap f_0 ls_0))" +"((letrec-values(((loop_110)" +"(lambda(ls_1)" "(begin" " 'loop" -"(if(null?(car ls_14))" +"(if(null?(car ls_1))" "(let-values() #f)" -"(if(null?(cdar ls_14))" -"(let-values()(apply f_16(map2 car ls_14)))" +"(if(null?(cdar ls_1))" +"(let-values()(apply f_0(map2 car ls_1)))" "(let-values()" -"(let-values(((next-ls_3)(map2 cdr ls_14)))" -"(let-values(((or-part_24)(apply f_16(map2 car ls_14))))" -"(if or-part_24 or-part_24(loop_47 next-ls_3)))))))))))" -" loop_47)" -" ls_13)))))" +"(let-values(((next-ls_112)(map2 cdr ls_1)))" +"(let-values(((or-part_113)(apply f_0(map2 car ls_1))))" +"(if or-part_113 or-part_113(loop_110 next-ls_112)))))))))))" +" loop_110)" +" ls_0)))))" "(define-values" "(hash-keys)" "(lambda(h_0)" "(begin" -"((letrec-values(((loop_8)" +"((letrec-values(((loop_2)" "(lambda(pos_0)" "(begin" " 'loop" "(if pos_0" -"(cons(hash-iterate-key h_0 pos_0)(loop_8(hash-iterate-next h_0 pos_0)))" +"(cons(hash-iterate-key h_0 pos_0)(loop_2(hash-iterate-next h_0 pos_0)))" " null)))))" -" loop_8)" +" loop_2)" "(hash-iterate-first h_0)))))" "(define-values" "(hash-values)" @@ -2383,247 +2436,247 @@ static const char *startup_source = "(begin" "(begin" " (if (hash? table_0) (void) (let-values () (raise-argument-error 'hash-values \"hash?\" table_0)))" -"(hash-map table_0(lambda(k_0 v_27) v_27))))))" +"(hash-map table_0(lambda(k_0 v_0) v_0))))))" "(define-values" "(sort7.1)" "(lambda(cache-keys?2_0 key1_0 lst5_0 less?6_0)" "(begin" " 'sort7" -"(let-values(((lst_6) lst5_0))" -"(let-values(((less?_0) less?6_0))" -"(let-values(((getkey_4) key1_0))" -"(let-values(((cache-keys?_3) cache-keys?2_0))" +"(let-values(((lst_5) lst5_0))" +"(let-values(((less?_6) less?6_0))" +"(let-values(((getkey_7) key1_0))" +"(let-values(((cache-keys?_8) cache-keys?2_0))" "(let-values()" "(begin" -" (if (list? lst_6) (void) (let-values () (raise-argument-error 'sort \"list?\" lst_6)))" -"(if(if(procedure? less?_0)(procedure-arity-includes? less?_0 2) #f)" +" (if (list? lst_5) (void) (let-values () (raise-argument-error 'sort \"list?\" lst_5)))" +"(if(if(procedure? less?_6)(procedure-arity-includes? less?_6 2) #f)" "(void)" -" (let-values () (raise-argument-error 'sort \"(any/c any/c . -> . any/c)\" less?_0)))" -"(if(if getkey_4(not(if(procedure? getkey_4)(procedure-arity-includes? getkey_4 1) #f)) #f)" -" (let-values () (raise-argument-error 'sort \"(any/c . -> . any/c)\" getkey_4))" +" (let-values () (raise-argument-error 'sort \"(any/c any/c . -> . any/c)\" less?_6)))" +"(if(if getkey_7(not(if(procedure? getkey_7)(procedure-arity-includes? getkey_7 1) #f)) #f)" +" (let-values () (raise-argument-error 'sort \"(any/c . -> . any/c)\" getkey_7))" "(void))" -"(if getkey_4(sort lst_6 less?_0 getkey_4 cache-keys?_3)(sort lst_6 less?_0)))))))))))" +"(if getkey_7(sort lst_5 less?_6 getkey_7 cache-keys?_8)(sort lst_5 less?_6)))))))))))" "(define-values" "(bad-list)" -" (lambda (who_5 orig-l_7) (begin (raise-mismatch-error who_5 \"not a proper list: \" orig-l_7))))" +" (lambda (who_0 orig-l_0) (begin (raise-mismatch-error who_0 \"not a proper list: \" orig-l_0))))" "(define-values" "(bad-item)" -" (lambda (who_6 a_11 orig-l_8) (begin (raise-mismatch-error who_6 \"non-pair found in list: \" a_11 \" in \" orig-l_8))))" +" (lambda (who_0 a_0 orig-l_0) (begin (raise-mismatch-error who_0 \"non-pair found in list: \" a_0 \" in \" orig-l_0))))" "(define-values" "(1/assq 1/assv 1/assoc assf)" "(let-values()" "(let-values()" -"(let-values(((assq_0)" -"(lambda(x_9 l_19)" +"(let-values(((assq_95)" +"(lambda(x_0 l_0)" "(begin" " 'assq" -"((letrec-values(((loop_48)" -"(lambda(l_20 t_0)" +"((letrec-values(((loop_101)" +"(lambda(l_1 t_0)" "(begin" " 'loop" -"(if(pair? l_20)" +"(if(pair? l_1)" "(let-values()" -"(let-values(((a_12)(unsafe-car l_20)))" -"(if(pair? a_12)" -"(if(eq? x_9(unsafe-car a_12))" -" a_12" -"(let-values(((l_21)(unsafe-cdr l_20)))" -"(if(pair? l_21)" +"(let-values(((a_104)(unsafe-car l_1)))" +"(if(pair? a_104)" +"(if(eq? x_0(unsafe-car a_104))" +" a_104" +"(let-values(((l_105)(unsafe-cdr l_1)))" +"(if(pair? l_105)" "(let-values()" -"(let-values(((a_0)(unsafe-car l_21)))" -"(if(pair? a_0)" -"(if(eq? x_9(unsafe-car a_0))" -" a_0" -"(let-values(((t_1)(unsafe-cdr t_0))" -"((l_22)(unsafe-cdr l_21)))" -"(if(eq? l_22 t_1)" -"(bad-list 'assq l_19)" -"(loop_48 l_22 t_1))))" -"(bad-item 'assq a_0 l_19))))" -"(if(null? l_21)" +"(let-values(((a_106)(unsafe-car l_105)))" +"(if(pair? a_106)" +"(if(eq? x_0(unsafe-car a_106))" +" a_106" +"(let-values(((t_107)(unsafe-cdr t_0))" +"((l_108)(unsafe-cdr l_105)))" +"(if(eq? l_108 t_107)" +"(bad-list 'assq l_0)" +"(loop_101 l_108 t_107))))" +"(bad-item 'assq a_106 l_0))))" +"(if(null? l_105)" "(let-values() #f)" -"(let-values()(bad-list 'assq l_19))))))" -"(bad-item 'assq a_12 l_19))))" -"(if(null? l_20)" +"(let-values()(bad-list 'assq l_0))))))" +"(bad-item 'assq a_104 l_0))))" +"(if(null? l_1)" "(let-values() #f)" -"(let-values()(bad-list 'assq l_19))))))))" -" loop_48)" -" l_19" -" l_19))))" -"((assv_0)" -"(lambda(x_10 l_23)" +"(let-values()(bad-list 'assq l_0))))))))" +" loop_101)" +" l_0" +" l_0))))" +"((assv_96)" +"(lambda(x_0 l_0)" "(begin" " 'assv" -"((letrec-values(((loop_49)" -"(lambda(l_24 t_2)" +"((letrec-values(((loop_111)" +"(lambda(l_1 t_0)" "(begin" " 'loop" -"(if(pair? l_24)" +"(if(pair? l_1)" "(let-values()" -"(let-values(((a_13)(unsafe-car l_24)))" -"(if(pair? a_13)" -"(if(eqv? x_10(unsafe-car a_13))" -" a_13" -"(let-values(((l_25)(unsafe-cdr l_24)))" -"(if(pair? l_25)" +"(let-values(((a_114)(unsafe-car l_1)))" +"(if(pair? a_114)" +"(if(eqv? x_0(unsafe-car a_114))" +" a_114" +"(let-values(((l_115)(unsafe-cdr l_1)))" +"(if(pair? l_115)" "(let-values()" -"(let-values(((a_14)(unsafe-car l_25)))" -"(if(pair? a_14)" -"(if(eqv? x_10(unsafe-car a_14))" -" a_14" -"(let-values(((t_3)(unsafe-cdr t_2))" -"((l_26)(unsafe-cdr l_25)))" -"(if(eq? l_26 t_3)" -"(bad-list 'assv l_23)" -"(loop_49 l_26 t_3))))" -"(bad-item 'assv a_14 l_23))))" -"(if(null? l_25)" +"(let-values(((a_116)(unsafe-car l_115)))" +"(if(pair? a_116)" +"(if(eqv? x_0(unsafe-car a_116))" +" a_116" +"(let-values(((t_117)(unsafe-cdr t_0))" +"((l_118)(unsafe-cdr l_115)))" +"(if(eq? l_118 t_117)" +"(bad-list 'assv l_0)" +"(loop_111 l_118 t_117))))" +"(bad-item 'assv a_116 l_0))))" +"(if(null? l_115)" "(let-values() #f)" -"(let-values()(bad-list 'assv l_23))))))" -"(bad-item 'assv a_13 l_23))))" -"(if(null? l_24)" +"(let-values()(bad-list 'assv l_0))))))" +"(bad-item 'assv a_114 l_0))))" +"(if(null? l_1)" "(let-values() #f)" -"(let-values()(bad-list 'assv l_23))))))))" -" loop_49)" -" l_23" -" l_23))))" -"((assoc_0)" +"(let-values()(bad-list 'assv l_0))))))))" +" loop_111)" +" l_0" +" l_0))))" +"((assoc_97)" "(case-lambda" -"((x_11 l_27)" +"((x_0 l_0)" "(begin" " 'assoc" -"((letrec-values(((loop_50)" -"(lambda(l_28 t_4)" +"((letrec-values(((loop_121)" +"(lambda(l_1 t_0)" "(begin" " 'loop" -"(if(pair? l_28)" +"(if(pair? l_1)" "(let-values()" -"(let-values(((a_15)(unsafe-car l_28)))" -"(if(pair? a_15)" -"(if(equal? x_11(unsafe-car a_15))" -" a_15" -"(let-values(((l_29)(unsafe-cdr l_28)))" -"(if(pair? l_29)" +"(let-values(((a_124)(unsafe-car l_1)))" +"(if(pair? a_124)" +"(if(equal? x_0(unsafe-car a_124))" +" a_124" +"(let-values(((l_125)(unsafe-cdr l_1)))" +"(if(pair? l_125)" "(let-values()" -"(let-values(((a_16)(unsafe-car l_29)))" -"(if(pair? a_16)" -"(if(equal? x_11(unsafe-car a_16))" -" a_16" -"(let-values(((t_5)(unsafe-cdr t_4))" -"((l_30)(unsafe-cdr l_29)))" -"(if(eq? l_30 t_5)" -"(bad-list 'assoc l_27)" -"(loop_50 l_30 t_5))))" -"(bad-item 'assoc a_16 l_27))))" -"(if(null? l_29)" +"(let-values(((a_126)(unsafe-car l_125)))" +"(if(pair? a_126)" +"(if(equal? x_0(unsafe-car a_126))" +" a_126" +"(let-values(((t_127)(unsafe-cdr t_0))" +"((l_128)(unsafe-cdr l_125)))" +"(if(eq? l_128 t_127)" +"(bad-list 'assoc l_0)" +"(loop_121 l_128 t_127))))" +"(bad-item 'assoc a_126 l_0))))" +"(if(null? l_125)" "(let-values() #f)" -"(let-values()(bad-list 'assoc l_27))))))" -"(bad-item 'assoc a_15 l_27))))" -"(if(null? l_28)" +"(let-values()(bad-list 'assoc l_0))))))" +"(bad-item 'assoc a_124 l_0))))" +"(if(null? l_1)" "(let-values() #f)" -"(let-values()(bad-list 'assoc l_27))))))))" -" loop_50)" -" l_27" -" l_27)))" -"((x_12 l_31 is-equal?_0)" +"(let-values()(bad-list 'assoc l_0))))))))" +" loop_121)" +" l_0" +" l_0)))" +"((x_0 l_0 is-equal?_0)" "(begin" "(if(if(procedure? is-equal?_0)(procedure-arity-includes? is-equal?_0 2) #f)" "(void)" " (let-values () (raise-argument-error 'assoc \"(any/c any/c . -> . any/c)\" is-equal?_0)))" -"((letrec-values(((loop_51)" -"(lambda(l_32 t_6)" +"((letrec-values(((loop_132)" +"(lambda(l_1 t_0)" "(begin" " 'loop" -"(if(pair? l_32)" +"(if(pair? l_1)" "(let-values()" -"(let-values(((a_17)(unsafe-car l_32)))" -"(if(pair? a_17)" -"(if(is-equal?_0 x_12(unsafe-car a_17))" -" a_17" -"(let-values(((l_33)(unsafe-cdr l_32)))" -"(if(pair? l_33)" +"(let-values(((a_135)(unsafe-car l_1)))" +"(if(pair? a_135)" +"(if(is-equal?_0 x_0(unsafe-car a_135))" +" a_135" +"(let-values(((l_136)(unsafe-cdr l_1)))" +"(if(pair? l_136)" "(let-values()" -"(let-values(((a_18)(unsafe-car l_33)))" -"(if(pair? a_18)" -"(if(is-equal?_0 x_12(unsafe-car a_18))" -" a_18" -"(let-values(((t_7)(unsafe-cdr t_6))" -"((l_34)(unsafe-cdr l_33)))" -"(if(eq? l_34 t_7)" -"(bad-list 'assoc l_31)" -"(loop_51 l_34 t_7))))" -"(bad-item 'assoc a_18 l_31))))" -"(if(null? l_33)" +"(let-values(((a_137)(unsafe-car l_136)))" +"(if(pair? a_137)" +"(if(is-equal?_0 x_0(unsafe-car a_137))" +" a_137" +"(let-values(((t_138)(unsafe-cdr t_0))" +"((l_139)(unsafe-cdr l_136)))" +"(if(eq? l_139 t_138)" +"(bad-list 'assoc l_0)" +"(loop_132 l_139 t_138))))" +"(bad-item 'assoc a_137 l_0))))" +"(if(null? l_136)" "(let-values() #f)" -"(let-values()(bad-list 'assoc l_31))))))" -"(bad-item 'assoc a_17 l_31))))" -"(if(null? l_32)" +"(let-values()(bad-list 'assoc l_0))))))" +"(bad-item 'assoc a_135 l_0))))" +"(if(null? l_1)" "(let-values() #f)" -"(let-values()(bad-list 'assoc l_31))))))))" -" loop_51)" -" l_31" -" l_31)))))" -"((assf_0)" -"(lambda(f_17 l_35)" +"(let-values()(bad-list 'assoc l_0))))))))" +" loop_132)" +" l_0" +" l_0)))))" +"((assf_98)" +"(lambda(f_0 l_0)" "(begin" " 'assf" "(begin" -"(if(if(procedure? f_17)(procedure-arity-includes? f_17 1) #f)" +"(if(if(procedure? f_0)(procedure-arity-includes? f_0 1) #f)" "(void)" -" (let-values () (raise-argument-error 'assf \"(any/c any/c . -> . any/c)\" f_17)))" -"((letrec-values(((loop_52)" -"(lambda(l_36 t_8)" +" (let-values () (raise-argument-error 'assf \"(any/c any/c . -> . any/c)\" f_0)))" +"((letrec-values(((loop_142)" +"(lambda(l_1 t_0)" "(begin" " 'loop" -"(if(pair? l_36)" +"(if(pair? l_1)" "(let-values()" -"(let-values(((a_19)(unsafe-car l_36)))" -"(if(pair? a_19)" -"(if((lambda(__0 a_20)(f_17 a_20)) #f(unsafe-car a_19))" -" a_19" -"(let-values(((l_37)(unsafe-cdr l_36)))" -"(if(pair? l_37)" +"(let-values(((a_145)(unsafe-car l_1)))" +"(if(pair? a_145)" +"(if((lambda(__0 a_0)(f_0 a_0)) #f(unsafe-car a_145))" +" a_145" +"(let-values(((l_148)(unsafe-cdr l_1)))" +"(if(pair? l_148)" "(let-values()" -"(let-values(((a_21)(unsafe-car l_37)))" -"(if(pair? a_21)" -"(if((lambda(__1 a_22)(f_17 a_22))" +"(let-values(((a_149)(unsafe-car l_148)))" +"(if(pair? a_149)" +"(if((lambda(__0 a_0)(f_0 a_0))" " #f" -"(unsafe-car a_21))" -" a_21" -"(let-values(((t_9)(unsafe-cdr t_8))" -"((l_38)(unsafe-cdr l_37)))" -"(if(eq? l_38 t_9)" -"(bad-list 'assf l_35)" -"(loop_52 l_38 t_9))))" -"(bad-item 'assf a_21 l_35))))" -"(if(null? l_37)" +"(unsafe-car a_149))" +" a_149" +"(let-values(((t_152)(unsafe-cdr t_0))" +"((l_153)(unsafe-cdr l_148)))" +"(if(eq? l_153 t_152)" +"(bad-list 'assf l_0)" +"(loop_142 l_153 t_152))))" +"(bad-item 'assf a_149 l_0))))" +"(if(null? l_148)" "(let-values() #f)" -"(let-values()(bad-list 'assf l_35))))))" -"(bad-item 'assf a_19 l_35))))" -"(if(null? l_36)" +"(let-values()(bad-list 'assf l_0))))))" +"(bad-item 'assf a_145 l_0))))" +"(if(null? l_1)" "(let-values() #f)" -"(let-values()(bad-list 'assf l_35))))))))" -" loop_52)" -" l_35" -" l_35))))))" -"(values assq_0 assv_0 assoc_0 assf_0)))))" +"(let-values()(bad-list 'assf l_0))))))))" +" loop_142)" +" l_0" +" l_0))))))" +"(values assq_95 assv_96 assoc_97 assf_98)))))" "(define-values" "(filter)" -"(lambda(f_18 list_0)" +"(lambda(f_0 list_0)" "(begin" "(begin" -"(if(if(procedure? f_18)(procedure-arity-includes? f_18 1) #f)" +"(if(if(procedure? f_0)(procedure-arity-includes? f_0 1) #f)" "(void)" -" (let-values () (raise-argument-error 'filter \"(any/c . -> . any/c)\" f_18)))" +" (let-values () (raise-argument-error 'filter \"(any/c . -> . any/c)\" f_0)))" " (if (list? list_0) (void) (let-values () (raise-argument-error 'filter \"list?\" list_0)))" -"((letrec-values(((loop_53)" -"(lambda(l_39 result_0)" +"((letrec-values(((loop_195)" +"(lambda(l_0 result_0)" "(begin" " 'loop" -"(if(null? l_39)" +"(if(null? l_0)" "(reverse$1 result_0)" -"(loop_53(cdr l_39)(if(f_18(car l_39))(cons(car l_39) result_0) result_0)))))))" -" loop_53)" +"(loop_195(cdr l_0)(if(f_0(car l_0))(cons(car l_0) result_0) result_0)))))))" +" loop_195)" " list_0" " null)))))" "(define-values(no-empty-edge-table)(make-hash))" @@ -2633,59 +2686,59 @@ static const char *startup_source = "(lambda(for-module?2_0 mode1_0 path5_0)" "(begin" " 'open-input-file6" -"(let-values(((path_0) path5_0))" -"(let-values(((mode_0) mode1_0))" -"(let-values(((for-module?_0) for-module?2_0))" +"(let-values(((path_4) path5_0))" +"(let-values(((mode_5) mode1_0))" +"(let-values(((for-module?_6) for-module?2_0))" "(let-values()" "(begin" -"(if(path-string? path_0)" +"(if(path-string? path_4)" "(void)" -" (let-values () (raise-argument-error 'open-input-file \"path-string?\" path_0)))" -"(if(memq mode_0 '(binary text))" +" (let-values () (raise-argument-error 'open-input-file \"path-string?\" path_4)))" +"(if(memq mode_5 '(binary text))" "(void)" -"(let-values()(raise-argument-error 'open-input-file binary-or-text-desc mode_0)))" -"(open-input-file path_0 mode_0(if for-module?_0 'module 'none))))))))))" +"(let-values()(raise-argument-error 'open-input-file binary-or-text-desc mode_5)))" +"(open-input-file path_4 mode_5(if for-module?_6 'module 'none))))))))))" "(define-values" "(with-input-from-file45.1)" "(lambda(mode41_0 path43_0 proc44_0)" "(begin" " 'with-input-from-file45" -"(let-values(((path_1) path43_0))" -"(let-values(((proc_0) proc44_0))" -"(let-values(((mode_1) mode41_0))" +"(let-values(((path_136) path43_0))" +"(let-values(((proc_137) proc44_0))" +"(let-values(((mode_138) mode41_0))" "(let-values()" "(begin" -"(if(path-string? path_1)" +"(if(path-string? path_136)" "(void)" -" (let-values () (raise-argument-error 'with-input-from-file \"path-string?\" path_1)))" -"(if(if(procedure? proc_0)(procedure-arity-includes? proc_0 0) #f)" +" (let-values () (raise-argument-error 'with-input-from-file \"path-string?\" path_136)))" +"(if(if(procedure? proc_137)(procedure-arity-includes? proc_137 0) #f)" "(void)" -" (let-values () (raise-argument-error 'with-input-from-file \"(-> any)\" proc_0)))" -"(if(memq mode_1 '(binary text))" +" (let-values () (raise-argument-error 'with-input-from-file \"(-> any)\" proc_137)))" +"(if(memq mode_138 '(binary text))" "(void)" -"(let-values()(raise-argument-error 'with-input-from-file binary-or-text-desc mode_1)))" -"(with-input-from-file path_1 proc_0 mode_1)))))))))" +"(let-values()(raise-argument-error 'with-input-from-file binary-or-text-desc mode_138)))" +"(with-input-from-file path_136 proc_137 mode_138)))))))))" "(define-values" "(call-with-input-file*61.1)" "(lambda(mode57_0 path59_0 proc60_0)" "(begin" " 'call-with-input-file*61" -"(let-values(((path_2) path59_0))" -"(let-values(((proc_1) proc60_0))" -"(let-values(((mode_2) mode57_0))" +"(let-values(((path_190) path59_0))" +"(let-values(((proc_191) proc60_0))" +"(let-values(((mode_192) mode57_0))" "(let-values()" "(begin" -"(if(path-string? path_2)" +"(if(path-string? path_190)" "(void)" -" (let-values () (raise-argument-error 'call-with-input-file* \"path-string?\" path_2)))" -"(if(if(procedure? proc_1)(procedure-arity-includes? proc_1 1) #f)" +" (let-values () (raise-argument-error 'call-with-input-file* \"path-string?\" path_190)))" +"(if(if(procedure? proc_191)(procedure-arity-includes? proc_191 1) #f)" "(void)" -" (let-values () (raise-argument-error 'call-with-input-file* \"(input-port? . -> . any)\" proc_1)))" -"(if(memq mode_2 '(binary text))" +" (let-values () (raise-argument-error 'call-with-input-file* \"(input-port? . -> . any)\" proc_191)))" +"(if(memq mode_192 '(binary text))" "(void)" -"(let-values()(raise-argument-error 'call-with-input-file* binary-or-text-desc mode_2)))" -"(let-values(((p_3)(open-input-file path_2 mode_2)))" -"(dynamic-wind void(lambda()(proc_1 p_3))(lambda()(close-input-port p_3))))))))))))" +"(let-values()(raise-argument-error 'call-with-input-file* binary-or-text-desc mode_192)))" +"(let-values(((p_193)(open-input-file path_190 mode_192)))" +"(dynamic-wind void(lambda()(proc_191 p_193))(lambda()(close-input-port p_193))))))))))))" "(define-values(the-empty-hash) '#hash())" "(define-values(the-empty-hasheq) '#hasheq())" "(define-values(the-empty-hasheqv) '#hasheqv())" @@ -2693,263 +2746,264 @@ static const char *startup_source = "(set)" "(case-lambda" "(()(begin the-empty-hash))" -"(l_40" -"(let-values(((lst_7) l_40))" +"(l_0" +"(let-values(((lst_77) l_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_7)))" -"((letrec-values(((for-loop_0)" -"(lambda(s_11 lst_8)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_77)))" +"((letrec-values(((for-loop_78)" +"(lambda(s_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_8)" -"(let-values(((e_2)(unsafe-car lst_8))((rest_0)(unsafe-cdr lst_8)))" -"(let-values(((s_12)" -"(let-values(((s_13) s_11))" -"(let-values(((s_14)(let-values()(hash-set s_13 e_2 #t))))" -"(values s_14)))))" -"(if(not #f)(for-loop_0 s_12 rest_0) s_12)))" -" s_11)))))" -" for-loop_0)" +"(if(pair? lst_0)" +"(let-values(((e_81)(unsafe-car lst_0))((rest_82)(unsafe-cdr lst_0)))" +"(let-values(((s_83)" +"(let-values(((s_84) s_0))" +"(let-values(((s_85)(let-values()(hash-set s_84 e_81 #t))))" +"(values s_85)))))" +"(if(not #f)(for-loop_78 s_83 rest_82) s_83)))" +" s_0)))))" +" for-loop_78)" " the-empty-hash" -" lst_7))))))" +" lst_77))))))" "(define-values" "(seteq)" "(case-lambda" "(()(begin the-empty-hasheq))" -"(l_41" -"(let-values(((lst_9) l_41))" +"(l_0" +"(let-values(((lst_87) l_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_9)))" -"((letrec-values(((for-loop_1)" -"(lambda(s_15 lst_10)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_87)))" +"((letrec-values(((for-loop_88)" +"(lambda(s_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_10)" -"(let-values(((e_3)(unsafe-car lst_10))((rest_1)(unsafe-cdr lst_10)))" -"(let-values(((s_16)" -"(let-values(((s_17) s_15))" -"(let-values(((s_18)(let-values()(hash-set s_17 e_3 #t))))" -"(values s_18)))))" -"(if(not #f)(for-loop_1 s_16 rest_1) s_16)))" -" s_15)))))" -" for-loop_1)" +"(if(pair? lst_0)" +"(let-values(((e_91)(unsafe-car lst_0))((rest_92)(unsafe-cdr lst_0)))" +"(let-values(((s_93)" +"(let-values(((s_94) s_0))" +"(let-values(((s_95)(let-values()(hash-set s_94 e_91 #t))))" +"(values s_95)))))" +"(if(not #f)(for-loop_88 s_93 rest_92) s_93)))" +" s_0)))))" +" for-loop_88)" " the-empty-hasheq" -" lst_9))))))" +" lst_87))))))" "(define-values(seteqv)(lambda()(begin the-empty-hasheqv)))" -"(define-values(set?)(lambda(s_19)(begin(hash? s_19))))" -"(define-values(set-empty?)(lambda(s_20)(begin(zero?(hash-count s_20)))))" -"(define-values(set-member?)(lambda(s_21 e_4)(begin(hash-ref s_21 e_4 #f))))" -"(define-values(set-count)(lambda(s_22)(begin(hash-count s_22))))" -"(define-values(set-add)(lambda(s_23 e_5)(begin(hash-set s_23 e_5 #t))))" -"(define-values(set-remove)(lambda(s_24 e_6)(begin(hash-remove s_24 e_6))))" -"(define-values(set-first)(lambda(s_25)(begin(hash-iterate-key s_25(hash-iterate-first s_25)))))" +"(define-values(set?)(lambda(s_0)(begin(hash? s_0))))" +"(define-values(set-empty?)(lambda(s_0)(begin(zero?(hash-count s_0)))))" +"(define-values(set-member?)(lambda(s_0 e_0)(begin(hash-ref s_0 e_0 #f))))" +"(define-values(set-count)(lambda(s_0)(begin(hash-count s_0))))" +"(define-values(set-add)(lambda(s_0 e_0)(begin(hash-set s_0 e_0 #t))))" +"(define-values(set-remove)(lambda(s_0 e_0)(begin(hash-remove s_0 e_0))))" +"(define-values(set-first)(lambda(s_0)(begin(hash-iterate-key s_0(hash-iterate-first s_0)))))" "(define-values(subset?)(lambda(s1_0 s2_0)(begin(hash-keys-subset? s1_0 s2_0))))" "(define-values" "(set=?)" -"(lambda(s1_1 s2_1)" +"(lambda(s1_0 s2_0)" "(begin" -"(let-values(((or-part_25)(eq? s1_1 s2_1)))" -"(if or-part_25 or-part_25(if(=(hash-count s1_1)(hash-count s2_1))(hash-keys-subset? s1_1 s2_1) #f))))))" +"(let-values(((or-part_110)(eq? s1_0 s2_0)))" +"(if or-part_110 or-part_110(if(=(hash-count s1_0)(hash-count s2_0))(hash-keys-subset? s1_0 s2_0) #f))))))" "(define-values" "(set-subtract)" -"(lambda(s1_2 s2_2)" +"(lambda(s1_0 s2_0)" "(begin" -"(let-values(((ht_16) s2_2))" +"(let-values(((ht_113) s2_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_16)))" -"((letrec-values(((for-loop_2)" -"(lambda(s1_3 i_21)" +"(let-values()(check-in-immutable-hash-keys ht_113)))" +"((letrec-values(((for-loop_114)" +"(lambda(s1_1 i_0)" "(begin" " 'for-loop" -"(if i_21" -"(let-values(((k_1)(unsafe-immutable-hash-iterate-key ht_16 i_21)))" -"(let-values(((s1_4)" -"(let-values(((s1_5) s1_3))" -"(let-values(((s1_6)(let-values()(hash-remove s1_5 k_1))))" -"(values s1_6)))))" +"(if i_0" +"(let-values(((k_117)(unsafe-immutable-hash-iterate-key ht_113 i_0)))" +"(let-values(((s1_118)" +"(let-values(((s1_119) s1_1))" +"(let-values(((s1_120)(let-values()(hash-remove s1_119 k_117))))" +"(values s1_120)))))" "(if(not #f)" -"(for-loop_2 s1_4(unsafe-immutable-hash-iterate-next ht_16 i_21))" -" s1_4)))" -" s1_3)))))" -" for-loop_2)" -" s1_2" -"(unsafe-immutable-hash-iterate-first ht_16)))))))" +"(for-loop_114 s1_118(unsafe-immutable-hash-iterate-next ht_113 i_0))" +" s1_118)))" +" s1_1)))))" +" for-loop_114)" +" s1_0" +"(unsafe-immutable-hash-iterate-first ht_113)))))))" "(define-values" "(set-union)" -"(lambda(s1_7 s2_3)" +"(lambda(s1_0 s2_0)" "(begin" -"(if(<(set-count s1_7)(set-count s2_3))" -"(set-union s2_3 s1_7)" -"(let-values(((ht_17) s2_3))" +"(if(<(set-count s1_0)(set-count s2_0))" +"(set-union s2_0 s1_0)" +"(let-values(((ht_123) s2_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_17)))" -"((letrec-values(((for-loop_3)" -"(lambda(s1_8 i_22)" +"(let-values()(check-in-immutable-hash-keys ht_123)))" +"((letrec-values(((for-loop_124)" +"(lambda(s1_1 i_0)" "(begin" " 'for-loop" -"(if i_22" -"(let-values(((k_2)(unsafe-immutable-hash-iterate-key ht_17 i_22)))" -"(let-values(((s1_9)" -"(let-values(((s1_10) s1_8))" -"(let-values(((s1_11)(let-values()(hash-set s1_10 k_2 #t))))" -"(values s1_11)))))" +"(if i_0" +"(let-values(((k_127)(unsafe-immutable-hash-iterate-key ht_123 i_0)))" +"(let-values(((s1_128)" +"(let-values(((s1_129) s1_1))" +"(let-values(((s1_130)" +"(let-values()(hash-set s1_129 k_127 #t))))" +"(values s1_130)))))" "(if(not #f)" -"(for-loop_3 s1_9(unsafe-immutable-hash-iterate-next ht_17 i_22))" -" s1_9)))" -" s1_8)))))" -" for-loop_3)" -" s1_7" -"(unsafe-immutable-hash-iterate-first ht_17))))))))" +"(for-loop_124 s1_128(unsafe-immutable-hash-iterate-next ht_123 i_0))" +" s1_128)))" +" s1_1)))))" +" for-loop_124)" +" s1_0" +"(unsafe-immutable-hash-iterate-first ht_123))))))))" "(define-values" "(set-intersect)" -"(lambda(s1_12 s2_4)" +"(lambda(s1_0 s2_0)" "(begin" -"(if(<(set-count s1_12)(set-count s2_4))" -"(set-intersect s2_4 s1_12)" -"(let-values(((ht_18) s2_4))" +"(if(<(set-count s1_0)(set-count s2_0))" +"(set-intersect s2_0 s1_0)" +"(let-values(((ht_133) s2_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_18)))" -"((letrec-values(((for-loop_4)" -"(lambda(s_26 i_23)" +"(let-values()(check-in-immutable-hash-keys ht_133)))" +"((letrec-values(((for-loop_134)" +"(lambda(s_0 i_0)" "(begin" " 'for-loop" -"(if i_23" -"(let-values(((k_3)(unsafe-immutable-hash-iterate-key ht_18 i_23)))" -"(let-values(((s_27)" -"(let-values(((s_28) s_26))" -"(let-values(((s_29)" +"(if i_0" +"(let-values(((k_137)(unsafe-immutable-hash-iterate-key ht_133 i_0)))" +"(let-values(((s_138)" +"(let-values(((s_139) s_0))" +"(let-values(((s_140)" "(let-values()" -"(if(hash-ref s1_12 k_3 #f)" -" s_28" -"(hash-remove s_28 k_3)))))" -"(values s_29)))))" +"(if(hash-ref s1_0 k_137 #f)" +" s_139" +"(hash-remove s_139 k_137)))))" +"(values s_140)))))" "(if(not #f)" -"(for-loop_4 s_27(unsafe-immutable-hash-iterate-next ht_18 i_23))" -" s_27)))" -" s_26)))))" -" for-loop_4)" -" s2_4" -"(unsafe-immutable-hash-iterate-first ht_18))))))))" +"(for-loop_134 s_138(unsafe-immutable-hash-iterate-next ht_133 i_0))" +" s_138)))" +" s_0)))))" +" for-loop_134)" +" s2_0" +"(unsafe-immutable-hash-iterate-first ht_133))))))))" "(define-values" "(set-partition)" -"(lambda(s_30 pred_0 empty-y-set_0 empty-n-set_0)" +"(lambda(s_0 pred_0 empty-y-set_0 empty-n-set_0)" "(begin" -"(let-values(((ht_19) s_30))" +"(let-values(((ht_145) s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_19)))" -"((letrec-values(((for-loop_5)" -"(lambda(y_6 n_14 i_24)" +"(let-values()(check-in-immutable-hash-keys ht_145)))" +"((letrec-values(((for-loop_146)" +"(lambda(y_0 n_0 i_0)" "(begin" " 'for-loop" -"(if i_24" -"(let-values(((v_28)(unsafe-immutable-hash-iterate-key ht_19 i_24)))" -"(let-values(((y_7 n_15)" -"(let-values(((y_8) y_6)((n_16) n_14))" -"(let-values(((y_9 n_17)" +"(if i_0" +"(let-values(((v_150)(unsafe-immutable-hash-iterate-key ht_145 i_0)))" +"(let-values(((y_151 n_152)" +"(let-values(((y_153) y_0)((n_154) n_0))" +"(let-values(((y_155 n_156)" "(let-values()" -"(if(pred_0 v_28)" -"(values(set-add y_8 v_28) n_16)" -"(values y_8(set-add n_16 v_28))))))" -"(values y_9 n_17)))))" +"(if(pred_0 v_150)" +"(values(set-add y_153 v_150) n_154)" +"(values y_153(set-add n_154 v_150))))))" +"(values y_155 n_156)))))" "(if(not #f)" -"(for-loop_5 y_7 n_15(unsafe-immutable-hash-iterate-next ht_19 i_24))" -"(values y_7 n_15))))" -"(values y_6 n_14))))))" -" for-loop_5)" +"(for-loop_146 y_151 n_152(unsafe-immutable-hash-iterate-next ht_145 i_0))" +"(values y_151 n_152))))" +"(values y_0 n_0))))))" +" for-loop_146)" " empty-y-set_0" " empty-n-set_0" -"(unsafe-immutable-hash-iterate-first ht_19)))))))" +"(unsafe-immutable-hash-iterate-first ht_145)))))))" "(define-values" "(set->list)" -"(lambda(s_31)" +"(lambda(s_0)" "(begin" "(reverse$1" -"(let-values(((ht_20) s_31))" +"(let-values(((ht_158) s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_20)))" -"((letrec-values(((for-loop_6)" -"(lambda(fold-var_0 i_25)" +"(let-values()(check-in-immutable-hash-keys ht_158)))" +"((letrec-values(((for-loop_159)" +"(lambda(fold-var_0 i_0)" "(begin" " 'for-loop" -"(if i_25" -"(let-values(((k_4)(unsafe-immutable-hash-iterate-key ht_20 i_25)))" -"(let-values(((fold-var_1)" -"(let-values(((fold-var_2) fold-var_0))" -"(let-values(((fold-var_3)" +"(if i_0" +"(let-values(((k_162)(unsafe-immutable-hash-iterate-key ht_158 i_0)))" +"(let-values(((fold-var_163)" +"(let-values(((fold-var_164) fold-var_0))" +"(let-values(((fold-var_165)" "(let-values()" -"(cons(let-values() k_4) fold-var_2))))" -"(values fold-var_3)))))" +"(cons(let-values() k_162) fold-var_164))))" +"(values fold-var_165)))))" "(if(not #f)" -"(for-loop_6 fold-var_1(unsafe-immutable-hash-iterate-next ht_20 i_25))" -" fold-var_1)))" +"(for-loop_159 fold-var_163(unsafe-immutable-hash-iterate-next ht_158 i_0))" +" fold-var_163)))" " fold-var_0)))))" -" for-loop_6)" +" for-loop_159)" " null" -"(unsafe-immutable-hash-iterate-first ht_20))))))))" +"(unsafe-immutable-hash-iterate-first ht_158))))))))" "(define-values" "(list->set)" -"(lambda(l_42)" +"(lambda(l_0)" "(begin" -"(let-values(((lst_11) l_42))" +"(let-values(((lst_167) l_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_11)))" -"((letrec-values(((for-loop_7)" -"(lambda(table_1 lst_12)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_167)))" +"((letrec-values(((for-loop_168)" +"(lambda(table_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_12)" -"(let-values(((k_5)(unsafe-car lst_12))((rest_2)(unsafe-cdr lst_12)))" -"(let-values(((table_2)" -"(let-values(((table_3) table_1))" -"(let-values(((table_4)" +"(if(pair? lst_0)" +"(let-values(((k_171)(unsafe-car lst_0))((rest_172)(unsafe-cdr lst_0)))" +"(let-values(((table_173)" +"(let-values(((table_174) table_0))" +"(let-values(((table_175)" "(let-values()" -"(let-values(((key_7 val_0)" +"(let-values(((key_176 val_177)" "(let-values()" -"(values(let-values() k_5) #t))))" -"(hash-set table_3 key_7 val_0)))))" -"(values table_4)))))" -"(if(not #f)(for-loop_7 table_2 rest_2) table_2)))" -" table_1)))))" -" for-loop_7)" +"(values(let-values() k_171) #t))))" +"(hash-set table_174 key_176 val_177)))))" +"(values table_175)))))" +"(if(not #f)(for-loop_168 table_173 rest_172) table_173)))" +" table_0)))))" +" for-loop_168)" " '#hash()" -" lst_11))))))" +" lst_167))))))" "(define-values" "(list->seteq)" -"(lambda(l_43)" +"(lambda(l_0)" "(begin" -"(let-values(((lst_13) l_43))" +"(let-values(((lst_179) l_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_13)))" -"((letrec-values(((for-loop_8)" -"(lambda(table_5 lst_14)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_179)))" +"((letrec-values(((for-loop_180)" +"(lambda(table_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_14)" -"(let-values(((k_6)(unsafe-car lst_14))((rest_3)(unsafe-cdr lst_14)))" -"(let-values(((table_6)" -"(let-values(((table_7) table_5))" -"(let-values(((table_8)" +"(if(pair? lst_0)" +"(let-values(((k_183)(unsafe-car lst_0))((rest_184)(unsafe-cdr lst_0)))" +"(let-values(((table_185)" +"(let-values(((table_186) table_0))" +"(let-values(((table_187)" "(let-values()" -"(let-values(((key_8 val_1)" +"(let-values(((key_188 val_189)" "(let-values()" -"(values(let-values() k_6) #t))))" -"(hash-set table_7 key_8 val_1)))))" -"(values table_8)))))" -"(if(not #f)(for-loop_8 table_6 rest_3) table_6)))" -" table_5)))))" -" for-loop_8)" +"(values(let-values() k_183) #t))))" +"(hash-set table_186 key_188 val_189)))))" +"(values table_187)))))" +"(if(not #f)(for-loop_180 table_185 rest_184) table_185)))" +" table_0)))))" +" for-loop_180)" " '#hasheq()" -" lst_13))))))" +" lst_179))))))" "(define-values(start-atomic)(lambda()(begin(unsafe-start-atomic))))" "(define-values(end-atomic)(lambda()(begin(unsafe-end-atomic))))" "(define-values(start-breakable-atomic)(lambda()(begin(unsafe-start-breakable-atomic))))" @@ -2957,7 +3011,7 @@ static const char *startup_source = "(define-values(monitor-owner) #f)" "(define-values" "(entered-err-string-handler)" -"(lambda(s_0 n_18)(begin(call-as-nonatomic(lambda()((error-value->string-handler) s_0 n_18))))))" +"(lambda(s_0 n_0)(begin(call-as-nonatomic(lambda()((error-value->string-handler) s_0 n_0))))))" "(define-values(old-paramz) #f)" "(define-values(old-break-paramz) #f)" "(define-values(extra-atomic-depth) 0)" @@ -2965,17 +3019,17 @@ static const char *startup_source = "(define-values(lock-tag)(make-continuation-prompt-tag 'lock))" "(define-values" "(call-as-atomic)" -"(lambda(f_19)" +"(lambda(f_0)" "(begin" "(begin" -"(if(if(procedure? f_19)(procedure-arity-includes? f_19 0) #f)" +"(if(if(procedure? f_0)(procedure-arity-includes? f_0 0) #f)" "(void)" -" (let-values () (raise-type-error 'call-as-atomic \"procedure (arity 0)\" f_19)))" +" (let-values () (raise-type-error 'call-as-atomic \"procedure (arity 0)\" f_0)))" "(if(eq? monitor-owner(current-thread))" "(let-values()" "(dynamic-wind" "(lambda()(begin(start-breakable-atomic)(set! extra-atomic-depth(add1 extra-atomic-depth))))" -" f_19" +" f_0" "(lambda()(begin(set! extra-atomic-depth(sub1 extra-atomic-depth))(end-breakable-atomic)))))" "(let-values()" "(with-continuation-mark" @@ -3007,7 +3061,7 @@ static const char *startup_source = "(if(continuation-mark-set-first #f exited-key)" " exn_0" "(abort-current-continuation lock-tag(lambda()(raise exn_0)))))" -" f_19))))))))" +" f_0))))))))" "(lambda()" "(begin" "(set! monitor-owner #f)" @@ -3015,27 +3069,27 @@ static const char *startup_source = "(set! old-break-paramz #f)" "(end-breakable-atomic)))))" " lock-tag" -"(lambda(t_10)(t_10))))))))))" +"(lambda(t_0)(t_0))))))))))" "(define-values" "(call-as-nonatomic)" -"(lambda(f_20)" +"(lambda(f_0)" "(begin" "(begin" -"(if(if(procedure? f_20)(procedure-arity-includes? f_20 0) #f)" +"(if(if(procedure? f_0)(procedure-arity-includes? f_0 0) #f)" "(void)" -" (let-values () (raise-type-error 'call-as-nonatomic \"procedure (arity 0)\" f_20)))" +" (let-values () (raise-type-error 'call-as-nonatomic \"procedure (arity 0)\" f_0)))" "(if(eq? monitor-owner(current-thread))" "(void)" -" (let-values () (error 'call-as-nonatomic \"not in atomic area for ~e\" f_20)))" -"(let-values(((paramz_2) old-paramz)((break-paramz_0) old-break-paramz)((extra-depth_0) extra-atomic-depth))" +" (let-values () (error 'call-as-nonatomic \"not in atomic area for ~e\" f_0)))" +"(let-values(((paramz_7) old-paramz)((break-paramz_8) old-break-paramz)((extra-depth_9) extra-atomic-depth))" "(with-continuation-mark" " exited-key" " #t" "(call-with-parameterization" -" paramz_2" +" paramz_7" "(lambda()" "(call-with-break-parameterization" -" break-paramz_0" +" break-paramz_8" "(lambda()" "(dynamic-wind" "(lambda()" @@ -3043,32 +3097,31 @@ static const char *startup_source = "(set! monitor-owner #f)" "(set! extra-atomic-depth 0)" "(end-breakable-atomic)" -"((letrec-values(((loop_54)" -"(lambda(i_26)" +"((letrec-values(((loop_10)" +"(lambda(i_0)" "(begin" " 'loop" -"(if(zero? i_26)" +"(if(zero? i_0)" "(void)" -"(let-values()(begin(end-breakable-atomic)(loop_54(sub1 i_26)))))))))" -" loop_54)" -" extra-depth_0)))" -" f_20" +"(let-values()(begin(end-breakable-atomic)(loop_10(sub1 i_0)))))))))" +" loop_10)" +" extra-depth_9)))" +" f_0" "(lambda()" "(begin" "(start-breakable-atomic)" -"(set! old-paramz paramz_2)" -"(set! old-break-paramz break-paramz_0)" -"((letrec-values(((loop_55)" -"(lambda(i_27)" +"(set! old-paramz paramz_7)" +"(set! old-break-paramz break-paramz_8)" +"((letrec-values(((loop_12)" +"(lambda(i_0)" "(begin" " 'loop" -"(if(zero? i_27)" +"(if(zero? i_0)" "(void)" -"(let-values()" -"(begin(start-breakable-atomic)(loop_55(sub1 i_27)))))))))" -" loop_55)" -" extra-depth_0)" -"(set! extra-atomic-depth extra-depth_0)" +"(let-values()(begin(start-breakable-atomic)(loop_12(sub1 i_0)))))))))" +" loop_12)" +" extra-depth_9)" +"(set! extra-atomic-depth extra-depth_9)" "(set! monitor-owner(current-thread)))))))))))))))" "(define-values(prop:serialize serialize? serialize-ref)(make-struct-type-property 'serialize))" "(define-values" @@ -3083,215 +3136,213 @@ static const char *startup_source = "(make-struct-type-property 'binding-reach-scopes))" "(define-values" "(1/module-path?)" -"(lambda(v_29)" +"(lambda(v_0)" "(begin" " 'module-path?" -"(let-values(((or-part_0)(if(pair? v_29)(if(eq?(car v_29) 'submod)(submodule-module-path? v_29) #f) #f)))" -"(if or-part_0 or-part_0(root-module-path? v_29))))))" +"(let-values(((or-part_2)(if(pair? v_0)(if(eq?(car v_0) 'submod)(submodule-module-path? v_0) #f) #f)))" +"(if or-part_2 or-part_2(root-module-path? v_0))))))" "(define-values" "(root-module-path?)" -"(lambda(v_30)" +"(lambda(v_0)" "(begin" -"(let-values(((or-part_11)(path? v_30)))" -"(if or-part_11" -" or-part_11" -"(let-values(((or-part_2)(if(string? v_30)(string-module-path? v_30) #f)))" -"(if or-part_2" -" or-part_2" -"(let-values(((or-part_26)(if(symbol? v_30)(symbol-module-path? v_30) #f)))" -"(if or-part_26" -" or-part_26" -"(if(pair? v_30)" -"(let-values(((tmp_4)(car v_30)))" -"(if(equal? tmp_4 'quote)" -"(let-values()(if(pair?(cdr v_30))(if(symbol?(cadr v_30))(null?(cddr v_30)) #f) #f))" -"(if(equal? tmp_4 'lib)" -"(let-values()(lib-module-path? v_30))" -"(if(equal? tmp_4 'file)" +"(let-values(((or-part_4)(path? v_0)))" +"(if or-part_4" +" or-part_4" +"(let-values(((or-part_5)(if(string? v_0)(string-module-path? v_0) #f)))" +"(if or-part_5" +" or-part_5" +"(let-values(((or-part_6)(if(symbol? v_0)(symbol-module-path? v_0) #f)))" +"(if or-part_6" +" or-part_6" +"(if(pair? v_0)" +"(let-values(((tmp_7)(car v_0)))" +"(if(equal? tmp_7 'quote)" +"(let-values()(if(pair?(cdr v_0))(if(symbol?(cadr v_0))(null?(cddr v_0)) #f) #f))" +"(if(equal? tmp_7 'lib)" +"(let-values()(lib-module-path? v_0))" +"(if(equal? tmp_7 'file)" "(let-values()" -"(if(pair?(cdr v_30))" -"(if(string?(cadr v_30))(if(path-string?(cadr v_30))(null?(cddr v_30)) #f) #f)" +"(if(pair?(cdr v_0))" +"(if(string?(cadr v_0))(if(path-string?(cadr v_0))(null?(cddr v_0)) #f) #f)" " #f))" -"(if(equal? tmp_4 'planet)" -"(let-values()(planet-module-path? v_30))" -"(let-values() #f))))))" +"(if(equal? tmp_7 'planet)(let-values()(planet-module-path? v_0))(let-values() #f))))))" " #f))))))))))" "(define-values" "(submodule-module-path?)" -"(lambda(v_31)" +"(lambda(v_0)" "(begin" -"(if(pair?(cdr v_31))" -"(if(list? v_31)" -" (if (let-values (((or-part_27) (equal? (cadr v_31) \"..\")))" -"(if or-part_27" -" or-part_27" -" (let-values (((or-part_10) (equal? (cadr v_31) \".\")))" -"(if or-part_10 or-part_10(root-module-path?(cadr v_31))))))" -"(let-values(((lst_15)(cddr v_31)))" +"(if(pair?(cdr v_0))" +"(if(list? v_0)" +" (if (let-values (((or-part_9) (equal? (cadr v_0) \"..\")))" +"(if or-part_9" +" or-part_9" +" (let-values (((or-part_10) (equal? (cadr v_0) \".\")))" +"(if or-part_10 or-part_10(root-module-path?(cadr v_0))))))" +"(let-values(((lst_11)(cddr v_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_15)))" -"((letrec-values(((for-loop_9)" -"(lambda(result_1 lst_16)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_11)))" +"((letrec-values(((for-loop_12)" +"(lambda(result_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_16)" -"(let-values(((e_7)(unsafe-car lst_16))((rest_4)(unsafe-cdr lst_16)))" -"(let-values(((result_2)" +"(if(pair? lst_0)" +"(let-values(((e_15)(unsafe-car lst_0))((rest_16)(unsafe-cdr lst_0)))" +"(let-values(((result_17)" "(let-values()" -"(let-values(((result_3)" +"(let-values(((result_19)" "(let-values()" "(let-values()" -"(let-values(((or-part_28)" -" (equal? e_7 \"..\")))" -"(if or-part_28" -" or-part_28" -"(symbol? e_7)))))))" -"(values result_3)))))" -"(if(if(not((lambda x_13(not result_2)) e_7))(not #f) #f)" -"(for-loop_9 result_2 rest_4)" -" result_2)))" -" result_1)))))" -" for-loop_9)" +"(let-values(((or-part_20)" +" (equal? e_15 \"..\")))" +"(if or-part_20" +" or-part_20" +"(symbol? e_15)))))))" +"(values result_19)))))" +"(if(if(not((lambda x_0(not result_17)) e_15))(not #f) #f)" +"(for-loop_12 result_17 rest_16)" +" result_17)))" +" result_0)))))" +" for-loop_12)" " #t" -" lst_15)))" +" lst_11)))" " #f)" " #f)" " #f))))" "(define-values" "(string-module-path?)" -"(lambda(v_32)" +"(lambda(v_0)" "(begin" -"(let-values(((v13_0) v_32)((temp14_0) #t)((temp15_0) #t)((temp16_0) #t))" -"(module-path-string?10.1 temp14_0 temp16_0 #f temp15_0 v13_0)))))" +"(let-values(((v13_24) v_0)((temp14_25) #t)((temp15_26) #t)((temp16_27) #t))" +"(module-path-string?10.1 temp14_25 temp16_27 #f temp15_26 v13_24)))))" "(define-values" "(symbol-module-path?)" -"(lambda(v_33)" -"(begin(let-values(((temp17_0)(symbol->string v_33)))(module-path-string?10.1 #f #f #f #f temp17_0)))))" +"(lambda(v_0)" +"(begin(let-values(((temp17_29)(symbol->string v_0)))(module-path-string?10.1 #f #f #f #f temp17_29)))))" "(define-values" "(lib-module-path?)" -"(lambda(v_34)" +"(lambda(v_0)" "(begin" -"(if(list? v_34)" -"(if(pair?(cdr v_34))" -"((letrec-values(((loop_56)" -"(lambda(v_35 first?_0)" +"(if(list? v_0)" +"(if(pair?(cdr v_0))" +"((letrec-values(((loop_31)" +"(lambda(v_1 first?_0)" "(begin" " 'loop" -"(let-values(((or-part_29)(null? v_35)))" -"(if or-part_29" -" or-part_29" -"(if(string?(car v_35))" -"(if(let-values(((temp18_0)(car v_35))" -"((first?19_0) first?_0)" -"((first?20_0) first?_0))" -"(module-path-string?10.1 #f first?20_0 #f first?19_0 temp18_0))" -"(loop_56(cdr v_35) #f)" +"(let-values(((or-part_34)(null? v_1)))" +"(if or-part_34" +" or-part_34" +"(if(string?(car v_1))" +"(if(let-values(((temp18_36)(car v_1))" +"((first?19_37) first?_0)" +"((first?20_38) first?_0))" +"(module-path-string?10.1 #f first?20_38 #f first?19_37 temp18_36))" +"(loop_31(cdr v_1) #f)" " #f)" " #f)))))))" -" loop_56)" -"(cdr v_34)" +" loop_31)" +"(cdr v_0)" " #t)" " #f)" " #f))))" "(define-values" "(planet-module-path?)" -"(lambda(v_36)" +"(lambda(v_0)" "(begin" -"(if(list? v_36)" -"(let-values(((tmp_5)(length v_36)))" -"(if(equal? tmp_5 1)" +"(if(list? v_0)" +"(let-values(((tmp_40)(length v_0)))" +"(if(equal? tmp_40 1)" "(let-values() #f)" -"(if(equal? tmp_5 2)" +"(if(equal? tmp_40 2)" "(let-values()" -"(let-values(((e_8)(cadr v_36)))" -"(if(string? e_8)" +"(let-values(((e_41)(cadr v_0)))" +"(if(string? e_41)" "(let-values()" -"(let-values(((e21_0) e_8)((temp22_0) #t)((temp23_0) #t))" -"(module-path-string?10.1 #f temp23_0 temp22_0 #f e21_0)))" -"(if(symbol? e_8)" +"(let-values(((e21_43) e_41)((temp22_44) #t)((temp23_45) #t))" +"(module-path-string?10.1 #f temp23_45 temp22_44 #f e21_43)))" +"(if(symbol? e_41)" "(let-values()" -"(let-values(((temp24_0)(symbol->string e_8))((temp25_0) #t))" -"(module-path-string?10.1 #f #f temp25_0 #f temp24_0)))" +"(let-values(((temp24_47)(symbol->string e_41))((temp25_48) #t))" +"(module-path-string?10.1 #f #f temp25_48 #f temp24_47)))" "(let-values() #f)))))" "(let-values()" -"(let-values(((file_0)(cadr v_36)))" -"(let-values(((pkg_0)(caddr v_36)))" -"(let-values(((subs_0)(cdddr v_36)))" -"(if file_0" -"(if(let-values(((file26_0) file_0)((temp27_0) #t)((temp28_0) #t))" -"(module-path-string?10.1 #f temp28_0 #f temp27_0 file26_0))" -"(if(if(list? pkg_0)" -"(if(<= 2(length pkg_0) 4)" -"(if(planet-user/pkg-string?(car pkg_0))" -"(if(planet-user/pkg-string?(cadr pkg_0))" -"(let-values(((or-part_30)(null?(cddr pkg_0))))" -"(if or-part_30" -" or-part_30" -"(let-values(((or-part_31)(planet-version-number?(caddr pkg_0))))" -"(if or-part_31" -" or-part_31" -"(let-values(((or-part_32)(null?(cddr pkg_0))))" -"(if or-part_32" -" or-part_32" -"(planet-version-minor-spec?(cadddr pkg_0))))))))" +"(let-values(((file_49)(cadr v_0)))" +"(let-values(((pkg_50)(caddr v_0)))" +"(let-values(((subs_51)(cdddr v_0)))" +"(if file_49" +"(if(let-values(((file26_53) file_49)((temp27_54) #t)((temp28_55) #t))" +"(module-path-string?10.1 #f temp28_55 #f temp27_54 file26_53))" +"(if(if(list? pkg_50)" +"(if(<= 2(length pkg_50) 4)" +"(if(planet-user/pkg-string?(car pkg_50))" +"(if(planet-user/pkg-string?(cadr pkg_50))" +"(let-values(((or-part_56)(null?(cddr pkg_50))))" +"(if or-part_56" +" or-part_56" +"(let-values(((or-part_57)(planet-version-number?(caddr pkg_50))))" +"(if or-part_57" +" or-part_57" +"(let-values(((or-part_58)(null?(cddr pkg_50))))" +"(if or-part_58" +" or-part_58" +"(planet-version-minor-spec?(cadddr pkg_50))))))))" " #f)" " #f)" " #f)" " #f)" -"(let-values(((lst_17) subs_0))" +"(let-values(((lst_59) subs_51))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_17)))" -"((letrec-values(((for-loop_10)" -"(lambda(result_4 lst_18)" +"(let-values()(check-list lst_59)))" +"((letrec-values(((for-loop_60)" +"(lambda(result_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_18)" -"(let-values(((sub_0)(unsafe-car lst_18))" -"((rest_5)(unsafe-cdr lst_18)))" -"(let-values(((result_5)" +"(if(pair? lst_0)" +"(let-values(((sub_63)(unsafe-car lst_0))" +"((rest_64)(unsafe-cdr lst_0)))" +"(let-values(((result_65)" "(let-values()" -"(let-values(((result_6)" +"(let-values(((result_67)" "(let-values()" "(let-values()" -"(let-values(((sub29_0)" -" sub_0))" +"(let-values(((sub29_68)" +" sub_63))" "(module-path-string?10.1" " #f" " #f" " #f" " #f" -" sub29_0))))))" -"(values result_6)))))" -"(if(if(not((lambda x_14(not result_5)) sub_0))" +" sub29_68))))))" +"(values result_67)))))" +"(if(if(not((lambda x_0(not result_65)) sub_63))" "(not #f)" " #f)" -"(for-loop_10 result_5 rest_5)" -" result_5)))" -" result_4)))))" -" for-loop_10)" +"(for-loop_60 result_65 rest_64)" +" result_65)))" +" result_0)))))" +" for-loop_60)" " #t" -" lst_17)))" +" lst_59)))" " #f)" " #f)" " #f))))))))" " #f))))" -"(define-values(planet-version-number?)(lambda(v_37)(begin(exact-nonnegative-integer? v_37))))" +"(define-values(planet-version-number?)(lambda(v_0)(begin(exact-nonnegative-integer? v_0))))" "(define-values" "(planet-version-minor-spec?)" -"(lambda(v_38)" +"(lambda(v_0)" "(begin" -"(let-values(((or-part_33)(planet-version-number? v_38)))" -"(if or-part_33" -" or-part_33" -"(if(pair? v_38)" -"(if(list? v_38)" -"(if(= 2(length v_38))" -"(let-values(((tmp_6)(car v_38)))" -"(if(if(equal? tmp_6 '=) #t(if(equal? tmp_6 '+) #t(equal? tmp_6 '-)))" -"(let-values()(planet-version-number?(cadr v_38)))" -"(let-values()(if(planet-version-number?(car v_38))(planet-version-number?(cadr v_38)) #f))))" +"(let-values(((or-part_72)(planet-version-number? v_0)))" +"(if or-part_72" +" or-part_72" +"(if(pair? v_0)" +"(if(list? v_0)" +"(if(= 2(length v_0))" +"(let-values(((tmp_73)(car v_0)))" +"(if(if(equal? tmp_73 '=) #t(if(equal? tmp_73 '+) #t(equal? tmp_73 '-)))" +"(let-values()(planet-version-number?(cadr v_0)))" +"(let-values()(if(planet-version-number?(car v_0))(planet-version-number?(cadr v_0)) #f))))" " #f)" " #f)" " #f))))))" @@ -3300,138 +3351,137 @@ static const char *startup_source = "(lambda(dots-dir-ok?2_0 file-end-ok?4_0 for-planet?1_0 just-file-ok?3_0 v9_0)" "(begin" " 'module-path-string?10" -"(let-values(((v_39) v9_0))" -"(let-values(((for-planet?_0) for-planet?1_0))" -"(let-values(((dots-dir-ok?_0) dots-dir-ok?2_0))" -"(let-values(((just-file-ok?_0) just-file-ok?3_0))" -"(let-values(((file-end-ok?_0) file-end-ok?4_0))" +"(let-values(((v_79) v9_0))" +"(let-values(((for-planet?_80) for-planet?1_0))" +"(let-values(((dots-dir-ok?_81) dots-dir-ok?2_0))" +"(let-values(((just-file-ok?_82) just-file-ok?3_0))" +"(let-values(((file-end-ok?_83) file-end-ok?4_0))" "(let-values()" -"(let-values(((len_3)(string-length v_39)))" -"(if(positive? len_3)" -"(if(not(char=? '#\\/(string-ref v_39 0)))" -"(if(not(char=? '#\\/(string-ref v_39(sub1 len_3))))" -"(let-values(((start-package-version-pos_0 end-package-version-pos_0)" -"(if for-planet?_0(check-planet-part v_39 len_3)(values 0 0))))" -"(if start-package-version-pos_0" -"((letrec-values(((loop_57)" -"(lambda(i_28 prev-was-slash?_0 saw-slash?_0 saw-dot?_0)" +"(let-values(((len_84)(string-length v_79)))" +"(if(positive? len_84)" +"(if(not(char=? '#\\/(string-ref v_79 0)))" +"(if(not(char=? '#\\/(string-ref v_79(sub1 len_84))))" +"(let-values(((start-package-version-pos_85 end-package-version-pos_86)" +"(if for-planet?_80(check-planet-part v_79 len_84)(values 0 0))))" +"(if start-package-version-pos_85" +"((letrec-values(((loop_87)" +"(lambda(i_0 prev-was-slash?_0 saw-slash?_0 saw-dot?_0)" "(begin" " 'loop" -"(if(not(negative? i_28))" +"(if(not(negative? i_0))" "(let-values()" -"(let-values(((c_6)(string-ref v_39 i_28)))" -"(if(char=? c_6 '#\\/)" +"(let-values(((c_92)(string-ref v_79 i_0)))" +"(if(char=? c_92 '#\\/)" "(let-values()" "(if(not prev-was-slash?_0)" -"(loop_57(sub1 i_28) #t #t saw-dot?_0)" +"(loop_87(sub1 i_0) #t #t saw-dot?_0)" " #f))" -"(if(char=? c_6 '#\\.)" +"(if(char=? c_92 '#\\.)" "(let-values()" -"(if(if(<(add1 i_28) len_3)" +"(if(if(<(add1 i_0) len_84)" "(if(not" -"(char=?(string-ref v_39(add1 i_28)) '#\\/))" -"(not" -"(char=?(string-ref v_39(add1 i_28)) '#\\.))" +"(char=?(string-ref v_79(add1 i_0)) '#\\/))" +"(not(char=?(string-ref v_79(add1 i_0)) '#\\.))" " #f)" " #f)" "(if(not saw-slash?_0)" -"(loop_57(sub1 i_28) #f saw-slash?_0 #t)" +"(loop_87(sub1 i_0) #f saw-slash?_0 #t)" " #f)" -"(loop_57(sub1 i_28) #f saw-slash?_0 saw-dot?_0)))" -"(if(let-values(((or-part_34)(plain-char? c_6)))" -"(if or-part_34" -" or-part_34" -"(if(char=? c_6 '#\\%)" -"(if(<(+ i_28 2) len_3)" -"(hex-sequence? v_39(add1 i_28))" +"(loop_87(sub1 i_0) #f saw-slash?_0 saw-dot?_0)))" +"(if(let-values(((or-part_93)(plain-char? c_92)))" +"(if or-part_93" +" or-part_93" +"(if(char=? c_92 '#\\%)" +"(if(<(+ i_0 2) len_84)" +"(hex-sequence? v_79(add1 i_0))" " #f)" " #f)))" "(let-values()" -"(loop_57(sub1 i_28) #f saw-slash?_0 saw-dot?_0))" -"(if(if(>= i_28 start-package-version-pos_0)" -"(< i_28 end-package-version-pos_0)" +"(loop_87(sub1 i_0) #f saw-slash?_0 saw-dot?_0))" +"(if(if(>= i_0 start-package-version-pos_85)" +"(< i_0 end-package-version-pos_86)" " #f)" "(let-values()" -"(loop_57(sub1 i_28) #f saw-slash?_0 saw-dot?_0))" +"(loop_87(sub1 i_0) #f saw-slash?_0 saw-dot?_0))" "(let-values() #f)))))))" "(let-values()" "(if(not" -"(if(not just-file-ok?_0)" +"(if(not just-file-ok?_82)" "(if saw-dot?_0(not saw-slash?_0) #f)" " #f))" -"(let-values(((or-part_35) dots-dir-ok?_0))" -"(if or-part_35" -" or-part_35" -"((letrec-values(((loop_44)" -"(lambda(i_29)" +"(let-values(((or-part_94) dots-dir-ok?_81))" +"(if or-part_94" +" or-part_94" +"((letrec-values(((loop_95)" +"(lambda(i_1)" "(begin" " 'loop" -"(if(= i_29 len_3)" +"(if(= i_1 len_84)" "(let-values() #t)" "(if(char=?" -"(string-ref v_39 i_29)" +"(string-ref v_79 i_1)" " '#\\.)" "(let-values()" "(if(not" -"(let-values(((or-part_36)" +"(let-values(((or-part_97)" "(=" -" len_3" +" len_84" "(add1" -" i_29))))" -"(if or-part_36" -" or-part_36" +" i_1))))" +"(if or-part_97" +" or-part_97" "(char=?" "(string-ref" -" v_39" -"(add1 i_29))" +" v_79" +"(add1 i_1))" " '#\\/))))" "(if(not" "(if(char=?" "(string-ref" -" v_39" -"(add1 i_29))" +" v_79" +"(add1 i_1))" " '#\\.)" -"(let-values(((or-part_37)" +"(let-values(((or-part_98)" "(=" -" len_3" +" len_84" "(+" -" i_29" +" i_1" " 2))))" -"(if or-part_37" -" or-part_37" +"(if or-part_98" +" or-part_98" "(char=?" "(string-ref" -" v_39" -"(+ i_29 2))" +" v_79" +"(+ i_1 2))" " '#\\/)))" " #f))" -"(loop_44" -"((letrec-values(((loop_58)" -"(lambda(i_30)" +"(loop_95" +"((letrec-values(((loop_99)" +"(lambda(i_2)" "(begin" " 'loop" "(if(char=?" " '#\\." "(string-ref" -" v_39" -" i_30))" -"(loop_58" +" v_79" +" i_2))" +"(loop_99" "(add1" -" i_30))" -" i_30)))))" -" loop_58)" -" i_29))" +" i_2))" +" i_2)))))" +" loop_99)" +" i_1))" " #f)" " #f))" "(let-values()" -"(loop_44(add1 i_29)))))))))" -" loop_44)" +"(loop_95(add1 i_1)))))))))" +" loop_95)" " 0)))" " #f)))))))" -" loop_57)" -"(sub1 len_3)" +" loop_87)" +"(sub1 len_84)" " #f" -"(not file-end-ok?_0)" +"(not file-end-ok?_83)" " #f)" " #f))" " #f)" @@ -3439,303 +3489,307 @@ static const char *startup_source = " #f)))))))))))" "(define-values" "(planet-user/pkg-string?)" -"(lambda(v_40)" +"(lambda(v_0)" "(begin" -"(if(string? v_40)" -"(let-values(((len_4)(string-length v_40)))" -"(if(positive? len_4)" -"(let-values(((vec_11 len_5)" -"(let-values(((vec_12) v_40))" -"(begin(check-string vec_12)(values vec_12(unsafe-string-length vec_12)))))" -"((start_6) 0))" +"(if(string? v_0)" +"(let-values(((len_134)(string-length v_0)))" +"(if(positive? len_134)" +"(let-values(((vec_135 len_136)" +"(let-values(((vec_138) v_0))" +"(begin(check-string vec_138)(values vec_138(unsafe-string-length vec_138)))))" +"((start_137) 0))" "(begin" " #f" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_6)))" -"((letrec-values(((for-loop_11)" -"(lambda(result_7 pos_1 pos_2)" +"(let-values()(check-naturals start_137)))" +"((letrec-values(((for-loop_139)" +"(lambda(result_0 pos_0 pos_1)" "(begin" " 'for-loop" -"(if(if(unsafe-fx< pos_1 len_5) #t #f)" -"(let-values(((c_7)(string-ref vec_11 pos_1))((i_31) pos_2))" -"(let-values(((result_8)" +"(if(if(unsafe-fx< pos_0 len_136) #t #f)" +"(let-values(((c_143)(string-ref vec_135 pos_0))((i_144) pos_1))" +"(let-values(((result_145)" "(let-values()" -"(let-values(((result_9)" +"(let-values(((result_147)" "(let-values()" "(let-values()" -"(let-values(((or-part_38)" -"(plain-char? c_7)))" -"(if or-part_38" -" or-part_38" -"(let-values(((or-part_39)" -"(char=? '#\\. c_7)))" -"(if or-part_39" -" or-part_39" -"(if(char=? '#\\% c_7)" -"(if(< i_31(- len_4 2))" -"(hex-sequence? v_40(add1 i_31))" +"(let-values(((or-part_148)" +"(plain-char? c_143)))" +"(if or-part_148" +" or-part_148" +"(let-values(((or-part_149)" +"(char=? '#\\. c_143)))" +"(if or-part_149" +" or-part_149" +"(if(char=? '#\\% c_143)" +"(if(< i_144(- len_134 2))" +"(hex-sequence? v_0(add1 i_144))" " #f)" " #f)))))))))" -"(values result_9)))))" -"(if(if(not((lambda x_15(not result_8)) c_7))" -"(if(not((lambda x_16(not result_8)) i_31))(not #f) #f)" +"(values result_147)))))" +"(if(if(not((lambda x_0(not result_145)) c_143))" +"(if(not((lambda x_0(not result_145)) i_144))(not #f) #f)" " #f)" -"(for-loop_11 result_8(unsafe-fx+ 1 pos_1)(+ pos_2 1))" -" result_8)))" -" result_7)))))" -" for-loop_11)" +"(for-loop_139 result_145(unsafe-fx+ 1 pos_0)(+ pos_1 1))" +" result_145)))" +" result_0)))))" +" for-loop_139)" " #t" " 0" -" start_6)))" +" start_137)))" " #f))" " #f))))" "(define-values" "(plain-char?)" -"(lambda(c_8)" +"(lambda(c_0)" "(begin" -"(let-values(((or-part_40)(char<=? '#\\a c_8 '#\\z)))" -"(if or-part_40" -" or-part_40" -"(let-values(((or-part_41)(char<=? '#\\A c_8 '#\\Z)))" -"(if or-part_41" -" or-part_41" -"(let-values(((or-part_42)(char<=? '#\\0 c_8 '#\\9)))" -"(if or-part_42" -" or-part_42" -"(let-values(((or-part_43)(char=? '#\\- c_8)))" -"(if or-part_43" -" or-part_43" -"(let-values(((or-part_44)(char=? '#\\_ c_8)))" -"(if or-part_44 or-part_44(char=? '#\\+ c_8))))))))))))))" +"(let-values(((or-part_153)(char<=? '#\\a c_0 '#\\z)))" +"(if or-part_153" +" or-part_153" +"(let-values(((or-part_154)(char<=? '#\\A c_0 '#\\Z)))" +"(if or-part_154" +" or-part_154" +"(let-values(((or-part_155)(char<=? '#\\0 c_0 '#\\9)))" +"(if or-part_155" +" or-part_155" +"(let-values(((or-part_156)(char=? '#\\- c_0)))" +"(if or-part_156" +" or-part_156" +"(let-values(((or-part_157)(char=? '#\\_ c_0)))" +"(if or-part_157 or-part_157(char=? '#\\+ c_0))))))))))))))" "(define-values" "(hex-sequence?)" -"(lambda(s_32 i_32)" +"(lambda(s_0 i_0)" "(begin" -"(let-values(((c1_16)(string-ref s_32 i_32)))" -"(let-values(((c2_0)(string-ref s_32(add1 i_32))))" -"(if(hex-char? c1_16)" -"(if(hex-char? c2_0)" -"(let-values(((c_9)(integer->char(+(*(hex-char->integer c1_16) 16)(hex-char->integer c2_0)))))" -"(not(plain-char? c_9)))" +"(let-values(((c1_160)(string-ref s_0 i_0)))" +"(let-values(((c2_161)(string-ref s_0(add1 i_0))))" +"(if(hex-char? c1_160)" +"(if(hex-char? c2_161)" +"(let-values(((c_162)(integer->char(+(*(hex-char->integer c1_160) 16)(hex-char->integer c2_161)))))" +"(not(plain-char? c_162)))" " #f)" " #f))))))" "(define-values" "(hex-char?)" -"(lambda(c_10)" -"(begin(let-values(((or-part_45)(char<=? '#\\a c_10 '#\\f)))(if or-part_45 or-part_45(char<=? '#\\0 c_10 '#\\9))))))" +"(lambda(c_0)" +"(begin" +"(let-values(((or-part_164)(char<=? '#\\a c_0 '#\\f)))(if or-part_164 or-part_164(char<=? '#\\0 c_0 '#\\9))))))" "(define-values" "(hex-char->integer)" -"(lambda(c_11)" +"(lambda(c_0)" "(begin" -"(if(char<=? '#\\a c_11 '#\\f)" -"(let-values()(-(char->integer c_11)(+ 10(char->integer '#\\a))))" -"(if(char<=? '#\\A c_11 '#\\F)" -"(let-values()(-(char->integer c_11)(+ 10(char->integer '#\\A))))" -"(let-values()(-(char->integer c_11)(char->integer '#\\0))))))))" +"(if(char<=? '#\\a c_0 '#\\f)" +"(let-values()(-(char->integer c_0)(+ 10(char->integer '#\\a))))" +"(if(char<=? '#\\A c_0 '#\\F)" +"(let-values()(-(char->integer c_0)(+ 10(char->integer '#\\A))))" +"(let-values()(-(char->integer c_0)(char->integer '#\\0))))))))" "(define-values" "(check-planet-part)" -"(lambda(v_41 len_6)" +"(lambda(v_0 len_0)" "(begin" -"(let-values(((start-package-version-pos_1 end-package-version-pos_1 colon1-pos_0 colon2-pos_0)" -"((letrec-values(((loop_59)" -"(lambda(j_2" -" start-package-version-pos_2" -" end-package-version-pos_2" -" colon1-pos_1" -" colon2-pos_1)" +"(let-values(((start-package-version-pos_168 end-package-version-pos_169 colon1-pos_170 colon2-pos_171)" +"((letrec-values(((loop_172)" +"(lambda(j_0" +" start-package-version-pos_0" +" end-package-version-pos_0" +" colon1-pos_0" +" colon2-pos_0)" "(begin" " 'loop" -"(if(= j_2 len_6)" +"(if(= j_0 len_0)" "(let-values()" "(values" -" start-package-version-pos_2" -"(let-values(((or-part_46) end-package-version-pos_2))" -"(if or-part_46 or-part_46 j_2))" -" colon1-pos_1" -" colon2-pos_1))" +" start-package-version-pos_0" +"(let-values(((or-part_178) end-package-version-pos_0))" +"(if or-part_178 or-part_178 j_0))" +" colon1-pos_0" +" colon2-pos_0))" "(let-values()" -"(let-values(((tmp_7)(string-ref v_41 j_2)))" -"(if(equal? tmp_7 '#\\/)" +"(let-values(((tmp_179)(string-ref v_0 j_0)))" +"(if(equal? tmp_179 '#\\/)" "(let-values()" -"(loop_59" -"(add1 j_2)" -"(let-values(((or-part_47) start-package-version-pos_2))" -"(if or-part_47 or-part_47(add1 j_2)))" -"(if start-package-version-pos_2" -"(let-values(((or-part_48) end-package-version-pos_2))" -"(if or-part_48 or-part_48 j_2))" +"(loop_172" +"(add1 j_0)" +"(let-values(((or-part_180) start-package-version-pos_0))" +"(if or-part_180 or-part_180(add1 j_0)))" +"(if start-package-version-pos_0" +"(let-values(((or-part_181) end-package-version-pos_0))" +"(if or-part_181 or-part_181 j_0))" " #f)" -" colon1-pos_1" -" colon2-pos_1))" -"(if(equal? tmp_7 '#\\:)" +" colon1-pos_0" +" colon2-pos_0))" +"(if(equal? tmp_179 '#\\:)" "(let-values()" -"(if colon2-pos_1" +"(if colon2-pos_0" "(let-values()(values #f #f #f #f))" -"(if colon1-pos_1" +"(if colon1-pos_0" "(let-values()" -"(loop_59" -"(add1 j_2)" -" start-package-version-pos_2" -" end-package-version-pos_2" -" colon1-pos_1" -" j_2))" +"(loop_172" +"(add1 j_0)" +" start-package-version-pos_0" +" end-package-version-pos_0" +" colon1-pos_0" +" j_0))" "(let-values()" -"(loop_59" -"(add1 j_2)" -" start-package-version-pos_2" -" end-package-version-pos_2" -" j_2" +"(loop_172" +"(add1 j_0)" +" start-package-version-pos_0" +" end-package-version-pos_0" +" j_0" " #f)))))" "(let-values()" -"(loop_59" -"(add1 j_2)" -" start-package-version-pos_2" -" end-package-version-pos_2" -" colon1-pos_1" -" colon2-pos_1)))))))))))" -" loop_59)" +"(loop_172" +"(add1 j_0)" +" start-package-version-pos_0" +" end-package-version-pos_0" +" colon1-pos_0" +" colon2-pos_0)))))))))))" +" loop_172)" " 0" " #f" " #f" " #f" " #f)))" -"(if(if start-package-version-pos_1" -"(if(> end-package-version-pos_1 start-package-version-pos_1)" -"(let-values(((or-part_49)(not colon2-pos_0)))" -"(if or-part_49 or-part_49(<(add1 colon2-pos_0) end-package-version-pos_1)))" +"(if(if start-package-version-pos_168" +"(if(> end-package-version-pos_169 start-package-version-pos_168)" +"(let-values(((or-part_182)(not colon2-pos_171)))" +"(if or-part_182 or-part_182(<(add1 colon2-pos_171) end-package-version-pos_169)))" " #f)" " #f)" "(let-values()" -"(if colon1-pos_0" +"(if colon1-pos_170" "(let-values()" -"(let-values(((colon1-end_0)" -"(let-values(((or-part_50) colon2-pos_0))" -"(if or-part_50 or-part_50 end-package-version-pos_1))))" -"(if(if(integer-sequence? v_41(add1 colon1-pos_0) colon1-end_0)" -"(let-values(((or-part_51)(not colon2-pos_0)))" -"(if or-part_51" -" or-part_51" -"(let-values(((tmp_8)(string-ref v_41(add1 colon2-pos_0))))" -"(if(equal? tmp_8 '#\\=)" -"(let-values()(integer-sequence? v_41(+ 2 colon2-pos_0) end-package-version-pos_1))" -"(if(if(equal? tmp_8 '#\\>) #t(equal? tmp_8 '#\\<))" +"(let-values(((colon1-end_183)" +"(let-values(((or-part_184) colon2-pos_171))" +"(if or-part_184 or-part_184 end-package-version-pos_169))))" +"(if(if(integer-sequence? v_0(add1 colon1-pos_170) colon1-end_183)" +"(let-values(((or-part_185)(not colon2-pos_171)))" +"(if or-part_185" +" or-part_185" +"(let-values(((tmp_186)(string-ref v_0(add1 colon2-pos_171))))" +"(if(equal? tmp_186 '#\\=)" +"(let-values()(integer-sequence? v_0(+ 2 colon2-pos_171) end-package-version-pos_169))" +"(if(if(equal? tmp_186 '#\\>) #t(equal? tmp_186 '#\\<))" "(let-values()" -"(if(if(<(+ 2 colon2-pos_0) end-package-version-pos_1)" -"(char=? '#\\=(string-ref v_41(+ colon2-pos_0 2)))" +"(if(if(<(+ 2 colon2-pos_171) end-package-version-pos_169)" +"(char=? '#\\=(string-ref v_0(+ colon2-pos_171 2)))" " #f)" "(let-values()" -"(integer-sequence? v_41(+ 3 colon2-pos_0) end-package-version-pos_1))" +"(integer-sequence? v_0(+ 3 colon2-pos_171) end-package-version-pos_169))" "(let-values()" -"(integer-sequence? v_41(+ 2 colon2-pos_0) end-package-version-pos_1))))" +"(integer-sequence? v_0(+ 2 colon2-pos_171) end-package-version-pos_169))))" "(let-values()" -"(integer-range-sequence? v_41(add1 colon2-pos_0) end-package-version-pos_1)))))))" +"(integer-range-sequence?" +" v_0" +"(add1 colon2-pos_171)" +" end-package-version-pos_169)))))))" " #f)" -"(let-values()(values colon1-pos_0 end-package-version-pos_1))" +"(let-values()(values colon1-pos_170 end-package-version-pos_169))" "(let-values()(values #f #f)))))" "(let-values()(values 0 0))))" "(let-values()(values #f #f)))))))" "(define-values" "(integer-sequence?)" -"(lambda(s_33 start_7 end_4)" +"(lambda(s_0 start_0 end_0)" "(begin" -"(if(< start_7 end_4)" -"(let-values(((start_8) start_7)((end_5) end_4)((inc_0) 1))" +"(if(< start_0 end_0)" +"(let-values(((start_190) start_0)((end_191) end_0)((inc_192) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_8 end_5 inc_0)))" -"((letrec-values(((for-loop_12)" -"(lambda(result_10 pos_3)" +"(let-values()(check-range start_190 end_191 inc_192)))" +"((letrec-values(((for-loop_193)" +"(lambda(result_0 pos_0)" "(begin" " 'for-loop" -"(if(< pos_3 end_5)" -"(let-values(((i_33) pos_3))" -"(let-values(((result_0)" +"(if(< pos_0 end_191)" +"(let-values(((i_196) pos_0))" +"(let-values(((result_197)" "(let-values()" -"(let-values(((result_11)" +"(let-values(((result_199)" "(let-values()" "(let-values()" -"(char<=? '#\\0(string-ref s_33 i_33) '#\\9)))))" -"(values result_11)))))" -"(if(if(not((lambda x_17(not result_0)) i_33))(not #f) #f)" -"(for-loop_12 result_0(+ pos_3 inc_0))" -" result_0)))" -" result_10)))))" -" for-loop_12)" +"(char<=? '#\\0(string-ref s_0 i_196) '#\\9)))))" +"(values result_199)))))" +"(if(if(not((lambda x_0(not result_197)) i_196))(not #f) #f)" +"(for-loop_193 result_197(+ pos_0 inc_192))" +" result_197)))" +" result_0)))))" +" for-loop_193)" " #t" -" start_8)))" +" start_190)))" " #f))))" "(define-values" "(integer-range-sequence?)" -"(lambda(s_34 start_9 end_6)" +"(lambda(s_0 start_0 end_0)" "(begin" -"(if(< start_9 end_6)" -"(if(let-values(((start_10) start_9)((end_7) end_6)((inc_1) 1))" +"(if(< start_0 end_0)" +"(if(let-values(((start_204) start_0)((end_205) end_0)((inc_206) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_10 end_7 inc_1)))" -"((letrec-values(((for-loop_13)" -"(lambda(result_12 pos_4)" +"(let-values()(check-range start_204 end_205 inc_206)))" +"((letrec-values(((for-loop_207)" +"(lambda(result_0 pos_0)" "(begin" " 'for-loop" -"(if(< pos_4 end_7)" -"(let-values(((i_34) pos_4))" -"(let-values(((result_13)" +"(if(< pos_0 end_205)" +"(let-values(((i_210) pos_0))" +"(let-values(((result_211)" "(let-values()" -"(let-values(((result_14)" +"(let-values(((result_213)" "(let-values()" "(let-values()" -"(let-values(((c_12)" -"(string-ref s_34 i_34)))" -"(let-values(((or-part_52)" -"(char=? c_12 '#\\-)))" -"(if or-part_52" -" or-part_52" -"(char<=? '#\\0 c_12 '#\\9))))))))" -"(values result_14)))))" -"(if(if(not((lambda x_18(not result_13)) i_34))(not #f) #f)" -"(for-loop_13 result_13(+ pos_4 inc_1))" -" result_13)))" -" result_12)))))" -" for-loop_13)" +"(let-values(((c_214)" +"(string-ref s_0 i_210)))" +"(let-values(((or-part_215)" +"(char=? c_214 '#\\-)))" +"(if or-part_215" +" or-part_215" +"(char<=? '#\\0 c_214 '#\\9))))))))" +"(values result_213)))))" +"(if(if(not((lambda x_0(not result_211)) i_210))(not #f) #f)" +"(for-loop_207 result_211(+ pos_0 inc_206))" +" result_211)))" +" result_0)))))" +" for-loop_207)" " #t" -" start_10)))" +" start_204)))" "(>=" " 1" -"(let-values(((start_11) start_9)((end_8) end_6)((inc_2) 1))" +"(let-values(((start_217) start_0)((end_218) end_0)((inc_219) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_11 end_8 inc_2)))" -"((letrec-values(((for-loop_14)" -"(lambda(result_15 pos_5)" +"(let-values()(check-range start_217 end_218 inc_219)))" +"((letrec-values(((for-loop_220)" +"(lambda(result_0 pos_0)" "(begin" " 'for-loop" -"(if(< pos_5 end_8)" -"(let-values(((i_35) pos_5))" -"(let-values(((result_16)" -"(let-values(((result_17) result_15))" -"(let-values(((result_18)" +"(if(< pos_0 end_218)" +"(let-values(((i_223) pos_0))" +"(let-values(((result_224)" +"(let-values(((result_225) result_0))" +"(let-values(((result_226)" "(let-values()" "(+" -" result_17" +" result_225" "(let-values()" -"(if(char=?(string-ref s_34 i_35) '#\\-)" +"(if(char=?(string-ref s_0 i_223) '#\\-)" " 1" " 0))))))" -"(values result_18)))))" -"(if(not #f)(for-loop_14 result_16(+ pos_5 inc_2)) result_16)))" -" result_15)))))" -" for-loop_14)" +"(values result_226)))))" +"(if(not #f)(for-loop_220 result_224(+ pos_0 inc_219)) result_224)))" +" result_0)))))" +" for-loop_220)" " 0" -" start_11))))" +" start_217))))" " #f)" " #f))))" "(define-values" "(struct:weak-intern-table weak-intern-table1.1 weak-intern-table? weak-intern-table-box)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -3750,10 +3804,10 @@ static const char *startup_source = " '(0)" " #f" " 'weak-intern-table)))))" -"(values struct:_0 make-_0 ?_0(make-struct-field-accessor -ref_0 0 'box))))" +"(values struct:_1 make-_2 ?_3(make-struct-field-accessor -ref_4 0 'box))))" "(define-values" "(struct:table table2.1 table? table-ht table-count table-prune-at)" -"(let-values(((struct:_1 make-_1 ?_1 -ref_1 -set!_1)" +"(let-values(((struct:_21 make-_22 ?_23 -ref_24 -set!_25)" "(let-values()" "(let-values()" "(make-struct-type" @@ -3769,199 +3823,201 @@ static const char *startup_source = " #f" " 'table)))))" "(values" -" struct:_1" -" make-_1" -" ?_1" -"(make-struct-field-accessor -ref_1 0 'ht)" -"(make-struct-field-accessor -ref_1 1 'count)" -"(make-struct-field-accessor -ref_1 2 'prune-at))))" +" struct:_21" +" make-_22" +" ?_23" +"(make-struct-field-accessor -ref_24 0 'ht)" +"(make-struct-field-accessor -ref_24 1 'count)" +"(make-struct-field-accessor -ref_24 2 'prune-at))))" "(define-values(make-weak-intern-table)(lambda()(begin(weak-intern-table1.1(box(table2.1(hasheqv) 0 128))))))" "(define-values" "(weak-intern!)" -"(lambda(tt_0 v_42)" +"(lambda(tt_0 v_0)" "(begin" -"(let-values(((b_8)(weak-intern-table-box tt_0)))" -"(let-values(((t_11)(unbox b_8)))" -"(let-values(((code_0)(equal-hash-code v_42)))" -"(let-values(((vals_0)(hash-ref(table-ht t_11) code_0 null)))" -"(let-values(((or-part_31)" -"(let-values(((lst_19) vals_0))" +"(let-values(((b_53)(weak-intern-table-box tt_0)))" +"(let-values(((t_54)(unbox b_53)))" +"(let-values(((code_55)(equal-hash-code v_0)))" +"(let-values(((vals_56)(hash-ref(table-ht t_54) code_55 null)))" +"(let-values(((or-part_57)" +"(let-values(((lst_58) vals_56))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_19)))" -"((letrec-values(((for-loop_15)" -"(lambda(result_19 lst_20)" +"(let-values()(check-list lst_58)))" +"((letrec-values(((for-loop_59)" +"(lambda(result_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_20)" -"(let-values(((b_9)(unsafe-car lst_20))" -"((rest_6)(unsafe-cdr lst_20)))" -"(let-values(((result_20)" +"(if(pair? lst_0)" +"(let-values(((b_62)(unsafe-car lst_0))" +"((rest_63)(unsafe-cdr lst_0)))" +"(let-values(((result_64)" "(let-values()" -"(let-values(((result_21)" +"(let-values(((result_66)" "(let-values()" "(let-values()" -"(let-values(((bv_0)" +"(let-values(((bv_67)" "(weak-box-value" -" b_9)))" -"(if(equal? bv_0 v_42)" -" bv_0" +" b_62)))" +"(if(equal? bv_67 v_0)" +" bv_67" " #f))))))" -"(values result_21)))))" -"(if(if(not((lambda x_19 result_20) b_9))(not #f) #f)" -"(for-loop_15 result_20 rest_6)" -" result_20)))" -" result_19)))))" -" for-loop_15)" +"(values result_66)))))" +"(if(if(not((lambda x_0 result_64) b_62))(not #f) #f)" +"(for-loop_59 result_64 rest_63)" +" result_64)))" +" result_0)))))" +" for-loop_59)" " #f" -" lst_19)))))" -"(if or-part_31" -" or-part_31" -"(let-values(((pruned-t_0)(if(=(table-count t_11)(table-prune-at t_11))(prune-table t_11) t_11)))" -"(let-values(((ht_21)(table-ht pruned-t_0)))" -"(let-values(((new-t_0)" +" lst_58)))))" +"(if or-part_57" +" or-part_57" +"(let-values(((pruned-t_69)" +"(if(=(table-count t_54)(table-prune-at t_54))(prune-table t_54) t_54)))" +"(let-values(((ht_70)(table-ht pruned-t_69)))" +"(let-values(((new-t_71)" "(table2.1" -"(hash-set ht_21 code_0(cons(make-weak-box v_42)(hash-ref ht_21 code_0 null)))" -"(add1(table-count pruned-t_0))" -"(table-prune-at pruned-t_0))))" -"(let-values(((or-part_33)(if(box-cas! b_8 t_11 new-t_0) v_42 #f)))" -"(if or-part_33 or-part_33(weak-intern! tt_0 v_42)))))))))))))))" +"(hash-set ht_70 code_55(cons(make-weak-box v_0)(hash-ref ht_70 code_55 null)))" +"(add1(table-count pruned-t_69))" +"(table-prune-at pruned-t_69))))" +"(let-values(((or-part_72)(if(box-cas! b_53 t_54 new-t_71) v_0 #f)))" +"(if or-part_72 or-part_72(weak-intern! tt_0 v_0)))))))))))))))" "(define-values" "(prune-table)" -"(lambda(t_12)" +"(lambda(t_0)" "(begin" -"(let-values(((new-ht_0)" -"(let-values(((ht_22)(table-ht t_12)))" +"(let-values(((new-ht_74)" +"(let-values(((ht_76)(table-ht t_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_22)))" -"((letrec-values(((for-loop_16)" -"(lambda(table_9 i_36)" +"(let-values()(check-in-hash ht_76)))" +"((letrec-values(((for-loop_77)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_36" -"(let-values(((k_7 vals_1)(hash-iterate-key+value ht_22 i_36)))" -"(let-values(((table_10)" -"(let-values(((new-vals_0)" +"(if i_0" +"(let-values(((k_80 vals_81)(hash-iterate-key+value ht_76 i_0)))" +"(let-values(((table_82)" +"(let-values(((new-vals_83)" "(reverse$1" -"(let-values(((lst_21) vals_1))" +"(let-values(((lst_84) vals_81))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_21)))" -"((letrec-values(((for-loop_17)" -"(lambda(fold-var_4" -" lst_9)" +"(check-list lst_84)))" +"((letrec-values(((for-loop_85)" +"(lambda(fold-var_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_9)" -"(let-values(((b_10)" +" lst_0)" +"(let-values(((b_88)" "(unsafe-car" -" lst_9))" -"((rest_7)" +" lst_0))" +"((rest_89)" "(unsafe-cdr" -" lst_9)))" -"(let-values(((fold-var_5)" -"(let-values(((fold-var_6)" -" fold-var_4))" +" lst_0)))" +"(let-values(((fold-var_90)" +"(let-values(((fold-var_91)" +" fold-var_0))" "(if(weak-box-value" -" b_10)" -"(let-values(((fold-var_7)" -" fold-var_6))" -"(let-values(((fold-var_8)" +" b_88)" +"(let-values(((fold-var_92)" +" fold-var_91))" +"(let-values(((fold-var_93)" "(let-values()" "(cons" "(let-values()" -" b_10)" -" fold-var_7))))" +" b_88)" +" fold-var_92))))" "(values" -" fold-var_8)))" -" fold-var_6))))" +" fold-var_93)))" +" fold-var_91))))" "(if(not" " #f)" -"(for-loop_17" -" fold-var_5" -" rest_7)" -" fold-var_5)))" -" fold-var_4)))))" -" for-loop_17)" +"(for-loop_85" +" fold-var_90" +" rest_89)" +" fold-var_90)))" +" fold-var_0)))))" +" for-loop_85)" " null" -" lst_21))))))" +" lst_84))))))" "(begin" " #t" -"((letrec-values(((for-loop_18)" -"(lambda(table_11)" +"((letrec-values(((for-loop_94)" +"(lambda(table_1)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_12)" -"(let-values(((table_13)" -" table_11))" +"(let-values(((table_96)" +"(let-values(((table_97)" +" table_1))" "(if(pair?" -" new-vals_0)" -"(let-values(((table_14)" -" table_13))" -"(let-values(((table_15)" +" new-vals_83)" +"(let-values(((table_98)" +" table_97))" +"(let-values(((table_99)" "(let-values()" -"(let-values(((key_9" -" val_2)" +"(let-values(((key_100" +" val_101)" "(let-values()" "(values" -" k_7" -" new-vals_0))))" +" k_80" +" new-vals_83))))" "(hash-set" -" table_14" -" key_9" -" val_2)))))" +" table_98" +" key_100" +" val_101)))))" "(values" -" table_15)))" -" table_13))))" -" table_12))))))" -" for-loop_18)" -" table_9)))))" +" table_99)))" +" table_97))))" +" table_96))))))" +" for-loop_94)" +" table_0)))))" "(if(not #f)" -"(for-loop_16 table_10(hash-iterate-next ht_22 i_36))" -" table_10)))" -" table_9)))))" -" for-loop_16)" +"(for-loop_77 table_82(hash-iterate-next ht_76 i_0))" +" table_82)))" +" table_0)))))" +" for-loop_77)" " '#hash()" -"(hash-iterate-first ht_22))))))" -"(let-values(((count_0)" -"(let-values(((ht_23) new-ht_0))" +"(hash-iterate-first ht_76))))))" +"(let-values(((count_75)" +"(let-values(((ht_102) new-ht_74))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_23)))" -"((letrec-values(((for-loop_19)" -"(lambda(result_22 i_37)" +"(let-values()(check-in-hash ht_102)))" +"((letrec-values(((for-loop_103)" +"(lambda(result_0 i_0)" "(begin" " 'for-loop" -"(if i_37" -"(let-values(((k_8 vals_2)(hash-iterate-key+value ht_23 i_37)))" -"(let-values(((result_23)" -"(let-values(((result_24) result_22))" -"(let-values(((result_25)" +"(if i_0" +"(let-values(((k_106 vals_107)(hash-iterate-key+value ht_102 i_0)))" +"(let-values(((result_108)" +"(let-values(((result_109) result_0))" +"(let-values(((result_110)" "(let-values()" "(+" -" result_24" -"(let-values()(length vals_2))))))" -"(values result_25)))))" +" result_109" +"(let-values()" +"(length vals_107))))))" +"(values result_110)))))" "(if(not #f)" -"(for-loop_19 result_23(hash-iterate-next ht_23 i_37))" -" result_23)))" -" result_22)))))" -" for-loop_19)" +"(for-loop_103 result_108(hash-iterate-next ht_102 i_0))" +" result_108)))" +" result_0)))))" +" for-loop_103)" " 0" -"(hash-iterate-first ht_23))))))" -"(table2.1 new-ht_0 count_0(max 128(* 2 count_0))))))))" +"(hash-iterate-first ht_102))))))" +"(table2.1 new-ht_74 count_75(max 128(* 2 count_75))))))))" "(define-values" "(struct:resolved-module-path resolved-module-path1.1 1/resolved-module-path? 1/resolved-module-path-name)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -3974,124 +4030,124 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(r_8 ser-push!_0 state_0)" +"(lambda(r_0 ser-push!_0 state_0)" "(begin" "(ser-push!_0 'tag '#:resolved-module-path)" -"(ser-push!_0(1/resolved-module-path-name r_8)))))" +"(ser-push!_0(1/resolved-module-path-name r_0)))))" "(cons" " prop:custom-write" -"(lambda(r_9 port_0 mode_3)" +"(lambda(r_0 port_0 mode_0)" "(begin" -" (if mode_3 (let-values () (write-string \"#\" port_0)) (void)))))" +" (if mode_0 (let-values () (write-string \"#\" port_0)) (void)))))" "(cons" " prop:equal+hash" "(list" -"(lambda(a_23 b_11 eql?_0)" -"(eql?_0(1/resolved-module-path-name a_23)(1/resolved-module-path-name b_11)))" -"(lambda(a_24 hash-code_0)(hash-code_0(1/resolved-module-path-name a_24)))" -"(lambda(a_25 hash-code_1)(hash-code_1(1/resolved-module-path-name a_25))))))" +"(lambda(a_0 b_0 eql?_0)" +"(eql?_0(1/resolved-module-path-name a_0)(1/resolved-module-path-name b_0)))" +"(lambda(a_0 hash-code_0)(hash-code_0(1/resolved-module-path-name a_0)))" +"(lambda(a_0 hash-code_0)(hash-code_0(1/resolved-module-path-name a_0))))))" "(current-inspector)" " #f" " '(0)" " #f" " 'resolved-module-path)))))" -"(values struct:_0 make-_0 ?_0(make-struct-field-accessor -ref_0 0 'name))))" +"(values struct:_1 make-_2 ?_3(make-struct-field-accessor -ref_4 0 'name))))" "(define-values" "(format-resolved-module-path-name)" -"(lambda(p_4)" +"(lambda(p_0)" "(begin" -"(if(path? p_4)" -" (let-values () (string-append \"\\\"\" (path->string p_4) \"\\\"\"))" -"(if(symbol? p_4)" -"(let-values()(format-symbol p_4))" -"(let-values()(format-submod(format-resolved-module-path-name(car p_4))(cdr p_4))))))))" +"(if(path? p_0)" +" (let-values () (string-append \"\\\"\" (path->string p_0) \"\\\"\"))" +"(if(symbol? p_0)" +"(let-values()(format-symbol p_0))" +"(let-values()(format-submod(format-resolved-module-path-name(car p_0))(cdr p_0))))))))" "(define-values" "(format-symbol)" -" (lambda (p_5) (begin (format \"'~s~a\" p_5 (if (symbol-interned? p_5) \"\" (format \"[~a]\" (eq-hash-code p_5)))))))" +" (lambda (p_0) (begin (format \"'~s~a\" p_0 (if (symbol-interned? p_0) \"\" (format \"[~a]\" (eq-hash-code p_0)))))))" "(define-values" "(format-submod)" -"(lambda(base_5 syms_0)" +"(lambda(base_0 syms_0)" "(begin" "(format" " \"(submod ~a~a)\"" -" base_5" +" base_0" "(apply" " string-append" "(reverse$1" -"(let-values(((lst_22) syms_0))" +"(let-values(((lst_39) syms_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_22)))" -"((letrec-values(((for-loop_20)" -"(lambda(fold-var_9 lst_23)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_39)))" +"((letrec-values(((for-loop_40)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_23)" -"(let-values(((i_38)(unsafe-car lst_23))((rest_8)(unsafe-cdr lst_23)))" -"(let-values(((fold-var_10)" -"(let-values(((fold-var_11) fold-var_9))" -"(let-values(((fold-var_12)" +"(if(pair? lst_0)" +"(let-values(((i_43)(unsafe-car lst_0))((rest_44)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_45)" +"(let-values(((fold-var_46) fold-var_0))" +"(let-values(((fold-var_47)" "(let-values()" "(cons" -" (let-values () (format \" ~s\" i_38))" -" fold-var_11))))" -"(values fold-var_12)))))" -"(if(not #f)(for-loop_20 fold-var_10 rest_8) fold-var_10)))" -" fold-var_9)))))" -" for-loop_20)" +" (let-values () (format \" ~s\" i_43))" +" fold-var_46))))" +"(values fold-var_47)))))" +"(if(not #f)(for-loop_40 fold-var_45 rest_44) fold-var_45)))" +" fold-var_0)))))" +" for-loop_40)" " null" -" lst_22)))))))))" +" lst_39)))))))))" "(define-values" "(resolved-module-path-root-name)" -"(lambda(r_10)" -"(begin(let-values(((name_6)(1/resolved-module-path-name r_10)))(if(pair? name_6)(car name_6) name_6)))))" +"(lambda(r_0)" +"(begin(let-values(((name_49)(1/resolved-module-path-name r_0)))(if(pair? name_49)(car name_49) name_49)))))" "(define-values(resolved-module-paths)(make-weak-intern-table))" "(define-values" "(1/make-resolved-module-path)" -"(lambda(p_6)" +"(lambda(p_0)" "(begin" " 'make-resolved-module-path" "(begin" -"(if(let-values(((or-part_53)(symbol? p_6)))" -"(if or-part_53" -" or-part_53" -"(let-values(((or-part_54)(if(path? p_6)(complete-path? p_6) #f)))" -"(if or-part_54" -" or-part_54" -"(if(pair? p_6)" -"(if(pair?(cdr p_6))" -"(if(list? p_6)" -"(if(let-values(((or-part_7)(symbol?(car p_6))))" -"(if or-part_7 or-part_7(if(path?(car p_6))(complete-path?(car p_6)) #f)))" -"(let-values(((lst_24)(cdr p_6)))" +"(if(let-values(((or-part_51)(symbol? p_0)))" +"(if or-part_51" +" or-part_51" +"(let-values(((or-part_52)(if(path? p_0)(complete-path? p_0) #f)))" +"(if or-part_52" +" or-part_52" +"(if(pair? p_0)" +"(if(pair?(cdr p_0))" +"(if(list? p_0)" +"(if(let-values(((or-part_53)(symbol?(car p_0))))" +"(if or-part_53 or-part_53(if(path?(car p_0))(complete-path?(car p_0)) #f)))" +"(let-values(((lst_54)(cdr p_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_21)" -"(lambda(result_26 lst_25)" +"(let-values()(check-list lst_54)))" +"((letrec-values(((for-loop_55)" +"(lambda(result_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_25)" -"(let-values(((s_35)(unsafe-car lst_25))" -"((rest_9)(unsafe-cdr lst_25)))" -"(let-values(((result_19)" +"(if(pair? lst_0)" +"(let-values(((s_58)(unsafe-car lst_0))" +"((rest_59)(unsafe-cdr lst_0)))" +"(let-values(((result_60)" "(let-values()" -"(let-values(((result_27)" +"(let-values(((result_62)" "(let-values()" "(let-values()" -"(symbol? s_35)))))" -"(values result_27)))))" -"(if(if(not((lambda x_20(not result_19)) s_35))" +"(symbol? s_58)))))" +"(values result_62)))))" +"(if(if(not((lambda x_0(not result_60)) s_58))" "(not #f)" " #f)" -"(for-loop_21 result_19 rest_9)" -" result_19)))" -" result_26)))))" -" for-loop_21)" +"(for-loop_55 result_60 rest_59)" +" result_60)))" +" result_0)))))" +" for-loop_55)" " #t" -" lst_24)))" +" lst_54)))" " #f)" " #f)" " #f)" @@ -4106,16 +4162,16 @@ static const char *startup_source = " \" (cons/c (or/c symbol?\\n\"" " \" (and/c path? complete-path?))\\n\"" " \" (non-empty-listof symbol?)))\")" -" p_6)))" -"(weak-intern! resolved-module-paths(resolved-module-path1.1 p_6))))))" +" p_0)))" +"(weak-intern! resolved-module-paths(resolved-module-path1.1 p_0))))))" "(define-values" "(resolved-module-path->module-path)" -"(lambda(r_11)" +"(lambda(r_0)" "(begin" -"(let-values(((name_7)(1/resolved-module-path-name r_11)))" -"(let-values(((root-name_0)(if(pair? name_7)(car name_7) name_7)))" -"(let-values(((root-mod-path_0)(if(path? root-name_0) root-name_0(list 'quote root-name_0))))" -"(if(pair? name_7)(list* 'submod root-mod-path_0(cdr name_7)) root-mod-path_0)))))))" +"(let-values(((name_65)(1/resolved-module-path-name r_0)))" +"(let-values(((root-name_66)(if(pair? name_65)(car name_65) name_65)))" +"(let-values(((root-mod-path_67)(if(path? root-name_66) root-name_66(list 'quote root-name_66))))" +"(if(pair? name_65)(list* 'submod root-mod-path_67(cdr name_65)) root-mod-path_67)))))))" "(define-values" "(struct:module-path-index" " module-path-index2.1" @@ -4126,7 +4182,7 @@ static const char *startup_source = " module-path-index-shift-cache" " set-module-path-index-resolved!" " set-module-path-index-shift-cache!)" -"(let-values(((struct:_2 make-_2 ?_2 -ref_2 -set!_2)" +"(let-values(((struct:_68 make-_69 ?_70 -ref_71 -set!_72)" "(let-values()" "(let-values()" "(make-struct-type" @@ -4139,590 +4195,596 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:custom-write" -"(lambda(r_12 port_1 mode_4)" +"(lambda(r_0 port_0 mode_0)" "(begin" -" (write-string \"#\" port_1))))" +" (write-string \">\" port_0))))" "(cons" " prop:equal+hash" "(list" -"(lambda(a_26 b_12 eql?_1)" -"(if(eql?_1(module-path-index-path a_26)(module-path-index-path b_12))" -"(eql?_1(module-path-index-base a_26)(module-path-index-base b_12))" +"(lambda(a_0 b_0 eql?_0)" +"(if(eql?_0(module-path-index-path a_0)(module-path-index-path b_0))" +"(eql?_0(module-path-index-base a_0)(module-path-index-base b_0))" " #f))" -"(lambda(a_27 hash-code_2)" -"(+(hash-code_2(module-path-index-path a_27))(hash-code_2(module-path-index-base a_27))))" -"(lambda(a_28 hash-code_3)" -"(+" -"(hash-code_3(module-path-index-path a_28))" -"(hash-code_3(module-path-index-base a_28)))))))" +"(lambda(a_0 hash-code_0)" +"(+(hash-code_0(module-path-index-path a_0))(hash-code_0(module-path-index-base a_0))))" +"(lambda(a_0 hash-code_0)" +"(+(hash-code_0(module-path-index-path a_0))(hash-code_0(module-path-index-base a_0)))))))" "(current-inspector)" " #f" " '(0 1)" " #f" " 'module-path-index)))))" "(values" -" struct:_2" -" make-_2" -" ?_2" -"(make-struct-field-accessor -ref_2 0 'path)" -"(make-struct-field-accessor -ref_2 1 'base)" -"(make-struct-field-accessor -ref_2 2 'resolved)" -"(make-struct-field-accessor -ref_2 3 'shift-cache)" -"(make-struct-field-mutator -set!_2 2 'resolved)" -"(make-struct-field-mutator -set!_2 3 'shift-cache))))" +" struct:_68" +" make-_69" +" ?_70" +"(make-struct-field-accessor -ref_71 0 'path)" +"(make-struct-field-accessor -ref_71 1 'base)" +"(make-struct-field-accessor -ref_71 2 'resolved)" +"(make-struct-field-accessor -ref_71 3 'shift-cache)" +"(make-struct-field-mutator -set!_72 2 'resolved)" +"(make-struct-field-mutator -set!_72 3 'shift-cache))))" "(define-values" "(deserialize-module-path-index)" "(case-lambda" -"((path_3 base_6)(begin(1/module-path-index-join path_3 base_6)))" -"((name_8)(make-self-module-path-index(1/make-resolved-module-path name_8)))" +"((path_0 base_0)(begin(1/module-path-index-join path_0 base_0)))" +"((name_0)(make-self-module-path-index(1/make-resolved-module-path name_0)))" "(() top-level-module-path-index)))" "(define-values" "(1/module-path-index-resolve)" -"(let-values(((module-path-index-resolve5_0)" +"(let-values(((module-path-index-resolve5_130)" "(lambda(mpi4_0 load?3_0)" "(begin" " 'module-path-index-resolve5" -"(let-values(((mpi_0) mpi4_0))" -"(let-values(((load?_0) load?3_0))" +"(let-values(((mpi_133) mpi4_0))" +"(let-values(((load?_134) load?3_0))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(1/module-path-index? mpi_0)" +"(if(1/module-path-index? mpi_133)" "(void)" "(let-values()" -" (raise-argument-error 'module-path-index-resolve \"module-path-index?\" mpi_0)))" -"(let-values(((or-part_55)(module-path-index-resolved mpi_0)))" -"(if or-part_55" -" or-part_55" -"(let-values(((mod-name_0)" +" (raise-argument-error 'module-path-index-resolve \"module-path-index?\" mpi_133)))" +"(let-values(((or-part_136)(module-path-index-resolved mpi_133)))" +"(if or-part_136" +" or-part_136" +"(let-values(((mod-name_137)" "((1/current-module-name-resolver)" -"(module-path-index-path mpi_0)" +"(module-path-index-path mpi_133)" "(module-path-index-resolve/maybe" -"(module-path-index-base mpi_0)" -" load?_0)" +"(module-path-index-base mpi_133)" +" load?_134)" " #f" -" load?_0)))" +" load?_134)))" "(begin" -"(if(1/resolved-module-path? mod-name_0)" +"(if(1/resolved-module-path? mod-name_137)" "(void)" "(let-values()" "(raise-arguments-error" " 'module-path-index-resolve" " \"current module name resolver's result is not a resolved module path\"" " \"result\"" -" mod-name_0)))" -"(set-module-path-index-resolved! mpi_0 mod-name_0)" -" mod-name_0))))))))))))))" +" mod-name_137)))" +"(set-module-path-index-resolved! mpi_133 mod-name_137)" +" mod-name_137))))))))))))))" "(case-lambda" -"((mpi_1)(begin 'module-path-index-resolve(module-path-index-resolve5_0 mpi_1 #f)))" -"((mpi_2 load?3_1)(module-path-index-resolve5_0 mpi_2 load?3_1)))))" +"((mpi_0)(begin 'module-path-index-resolve(module-path-index-resolve5_130 mpi_0 #f)))" +"((mpi_0 load?3_0)(module-path-index-resolve5_130 mpi_0 load?3_0)))))" "(define-values" "(module-path-index-unresolve)" -"(lambda(mpi_3)" +"(lambda(mpi_0)" "(begin" -"(if(module-path-index-resolved mpi_3)" +"(if(module-path-index-resolved mpi_0)" "(let-values()" -"(let-values(((path_4 base_7)(1/module-path-index-split mpi_3)))(1/module-path-index-join path_4 base_7)))" -"(let-values() mpi_3)))))" +"(let-values(((path_142 base_143)(1/module-path-index-split mpi_0)))" +"(1/module-path-index-join path_142 base_143)))" +"(let-values() mpi_0)))))" "(define-values" "(1/module-path-index-join)" -"(let-values(((module-path-index-join10_0)" +"(let-values(((module-path-index-join10_144)" "(lambda(mod-path8_0 base9_0 submod7_0)" "(begin" " 'module-path-index-join10" -"(let-values(((mod-path_0) mod-path8_0))" -"(let-values(((base_8) base9_0))" -"(let-values(((submod_0) submod7_0))" +"(let-values(((mod-path_148) mod-path8_0))" +"(let-values(((base_149) base9_0))" +"(let-values(((submod_150) submod7_0))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if((lambda(x_21)" -"(let-values(((or-part_40)(not x_21)))" -"(if or-part_40 or-part_40(1/module-path? x_21))))" -" mod-path_0)" +"(if((lambda(x_0)" +"(let-values(((or-part_153)(not x_0)))" +"(if or-part_153 or-part_153(1/module-path? x_0))))" +" mod-path_148)" "(void)" "(let-values()" "(raise-argument-error" " 'module-path-index-join" " \"(or/c #f module-path?)\"" -" mod-path_0)))" -"(if(let-values(((or-part_41)(not base_8)))" -"(if or-part_41" -" or-part_41" -"(let-values(((or-part_42)(1/resolved-module-path? base_8)))" -"(if or-part_42 or-part_42(1/module-path-index? base_8)))))" +" mod-path_148)))" +"(if(let-values(((or-part_154)(not base_149)))" +"(if or-part_154" +" or-part_154" +"(let-values(((or-part_155)(1/resolved-module-path? base_149)))" +"(if or-part_155 or-part_155(1/module-path-index? base_149)))))" "(void)" "(let-values()" "(raise-argument-error" " 'module-path-index-join" " \"(or/c #f resolved-module-path? module-path-index?)\"" -" base_8)))" -"(if(let-values(((or-part_43)(not submod_0)))" -"(if or-part_43" -" or-part_43" -"(if(pair? submod_0)(if(list? submod_0)(andmap2 symbol? submod_0) #f) #f)))" +" base_149)))" +"(if(let-values(((or-part_156)(not submod_150)))" +"(if or-part_156" +" or-part_156" +"(if(pair? submod_150)" +"(if(list? submod_150)(andmap2 symbol? submod_150) #f)" +" #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'module-path-index-join" " \"(or/c #f (non-empty-listof symbol?))\"" -" submod_0)))" -"(if(if(not mod-path_0) base_8 #f)" +" submod_150)))" +"(if(if(not mod-path_148) base_149 #f)" "(let-values()" "(raise-arguments-error" " 'module-path-index-join" " \"cannot combine #f path with non-#f base\"" " \"given base\"" -" base_8))" +" base_149))" "(void))" -"(if(if submod_0 mod-path_0 #f)" +"(if(if submod_150 mod-path_148 #f)" "(let-values()" "(raise-arguments-error" " 'module-path-index-join" " \"cannot combine #f submodule list with non-#f module path\"" " \"given module path\"" -" mod-path_0" +" mod-path_148" " \"given submodule list\"" -" submod_0))" +" submod_150))" "(void))" -"(if submod_0" +"(if submod_150" "(let-values()" "(make-self-module-path-index" -"(1/make-resolved-module-path(cons generic-module-name submod_0))))" +"(1/make-resolved-module-path(cons generic-module-name submod_150))))" "(let-values()" -"(let-values(((keep-base_0)" -"((letrec-values(((loop_62)" -"(lambda(mod-path_1)" +"(let-values(((keep-base_157)" +"((letrec-values(((loop_158)" +"(lambda(mod-path_0)" "(begin" " 'loop" -"(if(path? mod-path_1)" +"(if(path? mod-path_0)" "(let-values() #f)" -"(if(if(pair? mod-path_1)" -"(eq? 'quote(car mod-path_1))" +"(if(if(pair? mod-path_0)" +"(eq? 'quote(car mod-path_0))" " #f)" "(let-values() #f)" -"(if(symbol? mod-path_1)" +"(if(symbol? mod-path_0)" "(let-values() #f)" -"(if(if(pair? mod-path_1)" -"(eq? 'submod(car mod-path_1))" +"(if(if(pair? mod-path_0)" +"(eq? 'submod(car mod-path_0))" " #f)" "(let-values()" -"(loop_62(cadr mod-path_1)))" -"(let-values() base_8)))))))))" -" loop_62)" -" mod-path_0)))" -"(module-path-index2.1 mod-path_0 keep-base_0 #f #f)))))))))))))))" +"(loop_158(cadr mod-path_0)))" +"(let-values() base_149)))))))))" +" loop_158)" +" mod-path_148)))" +"(module-path-index2.1 mod-path_148 keep-base_157 #f #f)))))))))))))))" "(case-lambda" -"((mod-path_2 base_9)(begin 'module-path-index-join(module-path-index-join10_0 mod-path_2 base_9 #f)))" -"((mod-path_3 base_10 submod7_1)(module-path-index-join10_0 mod-path_3 base_10 submod7_1)))))" +"((mod-path_0 base_0)(begin 'module-path-index-join(module-path-index-join10_144 mod-path_0 base_0 #f)))" +"((mod-path_0 base_0 submod7_0)(module-path-index-join10_144 mod-path_0 base_0 submod7_0)))))" "(define-values" "(module-path-index-resolve/maybe)" -"(lambda(base_11 load?_1)" -"(begin(if(1/module-path-index? base_11)(1/module-path-index-resolve base_11 load?_1) base_11))))" +"(lambda(base_0 load?_0)" +"(begin(if(1/module-path-index? base_0)(1/module-path-index-resolve base_0 load?_0) base_0))))" "(define-values" "(1/module-path-index-split)" -"(lambda(mpi_4)" +"(lambda(mpi_0)" "(begin" " 'module-path-index-split" "(let-values()" "(let-values()" "(begin" -"(if(1/module-path-index? mpi_4)" +"(if(1/module-path-index? mpi_0)" "(void)" -" (let-values () (raise-argument-error 'module-path-index-split \"module-path-index?\" mpi_4)))" -"(values(module-path-index-path mpi_4)(module-path-index-base mpi_4))))))))" +" (let-values () (raise-argument-error 'module-path-index-split \"module-path-index?\" mpi_0)))" +"(values(module-path-index-path mpi_0)(module-path-index-base mpi_0))))))))" "(define-values" "(1/module-path-index-submodule)" -"(lambda(mpi_5)" +"(lambda(mpi_0)" "(begin" " 'module-path-index-submodule" "(let-values()" "(let-values()" "(begin" -"(if(1/module-path-index? mpi_5)" +"(if(1/module-path-index? mpi_0)" "(void)" -" (let-values () (raise-argument-error 'module-path-index-submodule \"module-path-index?\" mpi_5)))" -"(if(not(module-path-index-path mpi_5))" -"(let-values(((r_14)(module-path-index-resolved mpi_5)))" -"(if r_14(let-values(((p_7)(1/resolved-module-path-name r_14)))(if(pair? p_7)(cdr p_7) #f)) #f))" +" (let-values () (raise-argument-error 'module-path-index-submodule \"module-path-index?\" mpi_0)))" +"(if(not(module-path-index-path mpi_0))" +"(let-values(((r_171)(module-path-index-resolved mpi_0)))" +"(if r_171" +"(let-values(((p_172)(1/resolved-module-path-name r_171)))(if(pair? p_172)(cdr p_172) #f))" +" #f))" " #f)))))))" "(define-values" "(make-self-module-path-index)" "(case-lambda" -"((name_9)(begin(module-path-index2.1 #f #f name_9 #f)))" -"((name_10 enclosing_0)" +"((name_0)(begin(module-path-index2.1 #f #f name_0 #f)))" +"((name_0 enclosing_0)" "(make-self-module-path-index" -"(let-values(((name25_0) name_10)((temp26_0)(if enclosing_0(1/module-path-index-resolve enclosing_0) #f)))" -"(build-module-name16.1 unsafe-undefined name25_0 temp26_0))))))" +"(let-values(((name25_176) name_0)((temp26_177)(if enclosing_0(1/module-path-index-resolve enclosing_0) #f)))" +"(build-module-name16.1 unsafe-undefined name25_176 temp26_177))))))" "(define-values(generic-self-mpis)(make-weak-hash))" "(define-values(generic-module-name) '|expanded module|)" "(define-values" "(make-generic-self-module-path-index)" "(lambda(self_0)" "(begin" -"(let-values(((r_15)(resolved-module-path-to-generic-resolved-module-path(module-path-index-resolved self_0))))" +"(let-values(((r_179)(resolved-module-path-to-generic-resolved-module-path(module-path-index-resolved self_0))))" "(begin" "(start-atomic)" "(begin0" -"(let-values(((or-part_47)" -"(let-values(((e_9)(hash-ref generic-self-mpis r_15 #f)))" -"(if e_9(ephemeron-value e_9) #f))))" -"(if or-part_47" -" or-part_47" -"(let-values(((mpi_6)(module-path-index2.1 #f #f r_15 #f)))" -"(begin(hash-set! generic-self-mpis r_15(make-ephemeron r_15 mpi_6)) mpi_6))))" +"(let-values(((or-part_180)" +"(let-values(((e_181)(hash-ref generic-self-mpis r_179 #f)))" +"(if e_181(ephemeron-value e_181) #f))))" +"(if or-part_180" +" or-part_180" +"(let-values(((mpi_182)(module-path-index2.1 #f #f r_179 #f)))" +"(begin(hash-set! generic-self-mpis r_179(make-ephemeron r_179 mpi_182)) mpi_182))))" "(end-atomic)))))))" "(define-values" "(resolved-module-path-to-generic-resolved-module-path)" -"(lambda(r_16)" +"(lambda(r_0)" "(begin" -"(let-values(((name_11)(1/resolved-module-path-name r_16)))" +"(let-values(((name_184)(1/resolved-module-path-name r_0)))" "(1/make-resolved-module-path" -"(if(symbol? name_11) generic-module-name(cons generic-module-name(cdr name_11))))))))" +"(if(symbol? name_184) generic-module-name(cons generic-module-name(cdr name_184))))))))" "(define-values" "(imitate-generic-module-path-index!)" -"(lambda(mpi_7)" +"(lambda(mpi_0)" "(begin" -"(let-values(((r_17)(module-path-index-resolved mpi_7)))" -"(if r_17" +"(let-values(((r_186)(module-path-index-resolved mpi_0)))" +"(if r_186" "(let-values()" -"(set-module-path-index-resolved! mpi_7(resolved-module-path-to-generic-resolved-module-path r_17)))" +"(set-module-path-index-resolved! mpi_0(resolved-module-path-to-generic-resolved-module-path r_186)))" "(void))))))" "(define-values" "(module-path-index-shift)" -"(lambda(mpi_8 from-mpi_0 to-mpi_0)" +"(lambda(mpi_0 from-mpi_0 to-mpi_0)" "(begin" -"(if(eq? mpi_8 from-mpi_0)" +"(if(eq? mpi_0 from-mpi_0)" "(let-values() to-mpi_0)" "(let-values()" -"(let-values(((base_12)(module-path-index-base mpi_8)))" -"(if(not base_12)" -"(let-values() mpi_8)" +"(let-values(((base_190)(module-path-index-base mpi_0)))" +"(if(not base_190)" +"(let-values() mpi_0)" "(let-values()" -"(let-values(((shifted-base_0)(module-path-index-shift base_12 from-mpi_0 to-mpi_0)))" -"(if(eq? shifted-base_0 base_12)" -"(let-values() mpi_8)" -"(let-values(((c1_17)(shift-cache-ref(module-path-index-shift-cache shifted-base_0) mpi_8)))" -"(if c1_17" -" c1_17" +"(let-values(((shifted-base_191)(module-path-index-shift base_190 from-mpi_0 to-mpi_0)))" +"(if(eq? shifted-base_191 base_190)" +"(let-values() mpi_0)" +"(let-values(((c1_192)(shift-cache-ref(module-path-index-shift-cache shifted-base_191) mpi_0)))" +"(if c1_192" +" c1_192" "(let-values()" -"(let-values(((shifted-mpi_0)" -"(module-path-index2.1(module-path-index-path mpi_8) shifted-base_0 #f #f)))" +"(let-values(((shifted-mpi_193)" +"(module-path-index2.1(module-path-index-path mpi_0) shifted-base_191 #f #f)))" "(begin" -"(shift-cache-set!(module-path-index-shift-cache! shifted-base_0) mpi_8 shifted-mpi_0)" -" shifted-mpi_0)))))))))))))))" +"(shift-cache-set!(module-path-index-shift-cache! shifted-base_191) mpi_0 shifted-mpi_193)" +" shifted-mpi_193)))))))))))))))" "(define-values" "(module-path-index-shift-cache!)" -"(lambda(mpi_9)" +"(lambda(mpi_0)" "(begin" -"(let-values(((or-part_56)" -"(let-values(((cache_0)(module-path-index-shift-cache mpi_9)))" -"(if cache_0(if(weak-box-value cache_0) cache_0 #f) #f))))" -"(if or-part_56" -" or-part_56" -"(let-values(((cache_1)(make-weak-box(box '#hasheq()))))" -"(begin(set-module-path-index-shift-cache! mpi_9 cache_1) cache_1)))))))" +"(let-values(((or-part_195)" +"(let-values(((cache_196)(module-path-index-shift-cache mpi_0)))" +"(if cache_196(if(weak-box-value cache_196) cache_196 #f) #f))))" +"(if or-part_195" +" or-part_195" +"(let-values(((cache_197)(make-weak-box(box '#hasheq()))))" +"(begin(set-module-path-index-shift-cache! mpi_0 cache_197) cache_197)))))))" "(define-values" "(shift-cache-ref)" -"(lambda(cache_2 v_44)" +"(lambda(cache_0 v_0)" "(begin" -"(if cache_2(let-values(((b_13)(weak-box-value cache_2)))(if b_13(hash-ref(unbox b_13) v_44 #f) #f)) #f))))" +"(if cache_0(let-values(((b_200)(weak-box-value cache_0)))(if b_200(hash-ref(unbox b_200) v_0 #f) #f)) #f))))" "(define-values" "(shift-cache-set!)" -"(lambda(cache_3 v_45 r_18)" +"(lambda(cache_0 v_0 r_0)" "(begin" -"(let-values(((b_14)(weak-box-value cache_3)))" -"(if b_14(let-values()(set-box! b_14(hash-set(unbox b_14) v_45 r_18)))(void))))))" +"(let-values(((b_204)(weak-box-value cache_0)))" +"(if b_204(let-values()(set-box! b_204(hash-set(unbox b_204) v_0 r_0)))(void))))))" "(define-values(top-level-module-path-index)(make-self-module-path-index(1/make-resolved-module-path 'top-level)))" -"(define-values(top-level-module-path-index?)(lambda(mpi_10)(begin(eq? top-level-module-path-index mpi_10))))" -"(define-values(non-self-module-path-index?)(lambda(mpi_11)(begin(if(module-path-index-path mpi_11) #t #f))))" +"(define-values(top-level-module-path-index?)(lambda(mpi_0)(begin(eq? top-level-module-path-index mpi_0))))" +"(define-values(non-self-module-path-index?)(lambda(mpi_0)(begin(if(module-path-index-path mpi_0) #t #f))))" "(define-values" "(core-module-name-resolver)" "(case-lambda" -"((name_12 from-namespace_0)(begin(void)))" -"((p_8 enclosing_1 source-stx-stx_0 load?_2)" +"((name_0 from-namespace_0)(begin(void)))" +"((p_0 enclosing_0 source-stx-stx_0 load?_0)" "(begin" -"(if(1/module-path? p_8)" +"(if(1/module-path? p_0)" "(void)" -" (let-values () (raise-argument-error 'core-module-name-resolver \"module-path?\" p_8)))" -"(if(let-values(((or-part_52)(not enclosing_1)))" -"(if or-part_52 or-part_52(1/resolved-module-path? enclosing_1)))" +" (let-values () (raise-argument-error 'core-module-name-resolver \"module-path?\" p_0)))" +"(if(let-values(((or-part_215)(not enclosing_0)))" +"(if or-part_215 or-part_215(1/resolved-module-path? enclosing_0)))" "(void)" -" (let-values () (raise-argument-error 'core-module-name-resolver \"resolved-module-path?\" enclosing_1)))" -"(if(if(list? p_8)(if(=(length p_8) 2)(if(eq? 'quote(car p_8))(symbol?(cadr p_8)) #f) #f) #f)" -"(let-values()(1/make-resolved-module-path(cadr p_8)))" -" (if (if (list? p_8) (if (eq? 'submod (car p_8)) (equal? \"..\" (cadr p_8)) #f) #f)" +" (let-values () (raise-argument-error 'core-module-name-resolver \"resolved-module-path?\" enclosing_0)))" +"(if(if(list? p_0)(if(=(length p_0) 2)(if(eq? 'quote(car p_0))(symbol?(cadr p_0)) #f) #f) #f)" +"(let-values()(1/make-resolved-module-path(cadr p_0)))" +" (if (if (list? p_0) (if (eq? 'submod (car p_0)) (equal? \"..\" (cadr p_0)) #f) #f)" "(let-values()" -"(let-values(((lst_28)(cdr p_8)))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_28)))" -"((letrec-values(((for-loop_23)" -"(lambda(enclosing_2 lst_29)" -"(begin" -" 'for-loop" -"(if(pair? lst_29)" -"(let-values(((s_36)(unsafe-car lst_29))((rest_11)(unsafe-cdr lst_29)))" -"(let-values(((enclosing_3)" -"(let-values(((enclosing_4) enclosing_2))" -"(let-values(((enclosing_5)" -"(let-values()" -"(let-values(((s27_0) s_36)" -"((enclosing28_0) enclosing_4)" -"((p29_0) p_8))" -"(build-module-name16.1" -" p29_0" -" s27_0" -" enclosing28_0)))))" -"(values enclosing_5)))))" -"(if(not #f)(for-loop_23 enclosing_3 rest_11) enclosing_3)))" -" enclosing_2)))))" -" for-loop_23)" -" enclosing_1" -" lst_28))))" -" (if (if (list? p_8) (if (eq? 'submod (car p_8)) (equal? \".\" (cadr p_8)) #f) #f)" -"(let-values()" -"(let-values(((lst_30)(cddr p_8)))" +"(let-values(((lst_216)(cdr p_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_30)))" -"((letrec-values(((for-loop_24)" -"(lambda(enclosing_6 lst_31)" +"(let-values()(check-list lst_216)))" +"((letrec-values(((for-loop_217)" +"(lambda(enclosing_1 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_31)" -"(let-values(((s_37)(unsafe-car lst_31))((rest_12)(unsafe-cdr lst_31)))" -"(let-values(((enclosing_7)" -"(let-values(((enclosing_8) enclosing_6))" -"(let-values(((enclosing_9)" +"(if(pair? lst_0)" +"(let-values(((s_220)(unsafe-car lst_0))((rest_221)(unsafe-cdr lst_0)))" +"(let-values(((enclosing_222)" +"(let-values(((enclosing_223) enclosing_1))" +"(let-values(((enclosing_224)" "(let-values()" -"(let-values(((s30_0) s_37)" -"((enclosing31_0) enclosing_8)" -"((p32_0) p_8))" +"(let-values(((s27_226) s_220)" +"((enclosing28_227) enclosing_223)" +"((p29_228) p_0))" "(build-module-name16.1" -" p32_0" -" s30_0" -" enclosing31_0)))))" -"(values enclosing_9)))))" -"(if(not #f)(for-loop_24 enclosing_7 rest_12) enclosing_7)))" -" enclosing_6)))))" -" for-loop_24)" -" enclosing_1" -" lst_30))))" -"(if(if(list? p_8)(eq? 'submod(car p_8)) #f)" +" p29_228" +" s27_226" +" enclosing28_227)))))" +"(values enclosing_224)))))" +"(if(not #f)(for-loop_217 enclosing_222 rest_221) enclosing_222)))" +" enclosing_1)))))" +" for-loop_217)" +" enclosing_0" +" lst_216))))" +" (if (if (list? p_0) (if (eq? 'submod (car p_0)) (equal? \".\" (cadr p_0)) #f) #f)" "(let-values()" -"(let-values(((base_13)((1/current-module-name-resolver)(cadr p_8) enclosing_1 #f #f)))" -"(let-values(((lst_32)(cddr p_8)))" +"(let-values(((lst_229)(cddr p_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_32)))" -"((letrec-values(((for-loop_25)" -"(lambda(enclosing_10 lst_33)" +"(let-values()(check-list lst_229)))" +"((letrec-values(((for-loop_230)" +"(lambda(enclosing_1 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_33)" -"(let-values(((s_38)(unsafe-car lst_33))((rest_13)(unsafe-cdr lst_33)))" -"(let-values(((enclosing_11)" -"(let-values(((enclosing_12) enclosing_10))" -"(let-values(((enclosing_13)" +"(if(pair? lst_0)" +"(let-values(((s_233)(unsafe-car lst_0))((rest_234)(unsafe-cdr lst_0)))" +"(let-values(((enclosing_235)" +"(let-values(((enclosing_236) enclosing_1))" +"(let-values(((enclosing_237)" "(let-values()" -"(let-values(((s33_0) s_38)" -"((enclosing34_0)" -" enclosing_12)" -"((p35_0) p_8))" +"(let-values(((s30_239) s_233)" +"((enclosing31_240)" +" enclosing_236)" +"((p32_241) p_0))" "(build-module-name16.1" -" p35_0" -" s33_0" -" enclosing34_0)))))" -"(values enclosing_13)))))" -"(if(not #f)(for-loop_25 enclosing_11 rest_13) enclosing_11)))" -" enclosing_10)))))" -" for-loop_25)" -" base_13" -" lst_32)))))" -" (let-values () (error 'core-module-name-resolver \"not a supported module path: ~v\" p_8))))))))))" +" p32_241" +" s30_239" +" enclosing31_240)))))" +"(values enclosing_237)))))" +"(if(not #f)(for-loop_230 enclosing_235 rest_234) enclosing_235)))" +" enclosing_1)))))" +" for-loop_230)" +" enclosing_0" +" lst_229))))" +"(if(if(list? p_0)(eq? 'submod(car p_0)) #f)" +"(let-values()" +"(let-values(((base_242)((1/current-module-name-resolver)(cadr p_0) enclosing_0 #f #f)))" +"(let-values(((lst_243)(cddr p_0)))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_243)))" +"((letrec-values(((for-loop_244)" +"(lambda(enclosing_1 lst_0)" +"(begin" +" 'for-loop" +"(if(pair? lst_0)" +"(let-values(((s_247)(unsafe-car lst_0))((rest_248)(unsafe-cdr lst_0)))" +"(let-values(((enclosing_249)" +"(let-values(((enclosing_250) enclosing_1))" +"(let-values(((enclosing_251)" +"(let-values()" +"(let-values(((s33_253) s_247)" +"((enclosing34_254)" +" enclosing_250)" +"((p35_255) p_0))" +"(build-module-name16.1" +" p35_255" +" s33_253" +" enclosing34_254)))))" +"(values enclosing_251)))))" +"(if(not #f)(for-loop_244 enclosing_249 rest_248) enclosing_249)))" +" enclosing_1)))))" +" for-loop_244)" +" base_242" +" lst_243)))))" +" (let-values () (error 'core-module-name-resolver \"not a supported module path: ~v\" p_0))))))))))" "(define-values" "(build-module-name16.1)" "(lambda(original12_0 name14_0 enclosing15_0)" "(begin" " 'build-module-name16" -"(let-values(((name_13) name14_0))" -"(let-values(((enclosing_14) enclosing15_0))" -"(let-values(((orig-name_0)(if(eq? original12_0 unsafe-undefined) name_13 original12_0)))" +"(let-values(((name_259) name14_0))" +"(let-values(((enclosing_260) enclosing15_0))" +"(let-values(((orig-name_261)(if(eq? original12_0 unsafe-undefined) name_259 original12_0)))" "(let-values()" -"(let-values(((enclosing-module-name_0)(if enclosing_14(1/resolved-module-path-name enclosing_14) #f)))" +"(let-values(((enclosing-module-name_262)" +"(if enclosing_260(1/resolved-module-path-name enclosing_260) #f)))" "(1/make-resolved-module-path" -"(if(not enclosing-module-name_0)" -"(let-values() name_13)" -"(if(symbol? enclosing-module-name_0)" -"(let-values()(list enclosing-module-name_0 name_13))" -" (if (equal? name_13 \"..\")" +"(if(not enclosing-module-name_262)" +"(let-values() name_259)" +"(if(symbol? enclosing-module-name_262)" +"(let-values()(list enclosing-module-name_262 name_259))" +" (if (equal? name_259 \"..\")" "(let-values()" -"(if(symbol? enclosing-module-name_0)" -" (let-values () (error \"too many \\\"..\\\"s:\" orig-name_0))" -"(if(= 2(length enclosing-module-name_0))" -"(let-values()(car enclosing-module-name_0))" -"(let-values()(reverse$1(cdr(reverse$1 enclosing-module-name_0)))))))" -"(let-values()(append enclosing-module-name_0(list name_13)))))))))))))))" +"(if(symbol? enclosing-module-name_262)" +" (let-values () (error \"too many \\\"..\\\"s:\" orig-name_261))" +"(if(= 2(length enclosing-module-name_262))" +"(let-values()(car enclosing-module-name_262))" +"(let-values()(reverse$1(cdr(reverse$1 enclosing-module-name_262)))))))" +"(let-values()(append enclosing-module-name_262(list name_259)))))))))))))))" "(define-values" "(1/current-module-name-resolver)" "(make-parameter" " core-module-name-resolver" -"(lambda(v_46)" +"(lambda(v_0)" "(begin" -"(if(if(procedure? v_46)(if(procedure-arity-includes? v_46 2)(procedure-arity-includes? v_46 4) #f) #f)" +"(if(if(procedure? v_0)(if(procedure-arity-includes? v_0 2)(procedure-arity-includes? v_0 4) #f) #f)" "(void)" "(let-values()" "(raise-argument-error" " 'current-module-name-resolver" " \"(and/c (procedure-arity-includes/c 2) (procedure-arity-includes/c 4))\"" -" v_46)))" -" v_46))))" +" v_0)))" +" v_0))))" "(define-values" "(1/current-module-declare-name)" "(make-parameter" " #f" -"(lambda(r_19)" +"(lambda(r_0)" "(begin" -"(if(let-values(((or-part_57)(not r_19)))(if or-part_57 or-part_57(1/resolved-module-path? r_19)))" +"(if(let-values(((or-part_282)(not r_0)))(if or-part_282 or-part_282(1/resolved-module-path? r_0)))" "(void)" -" (let-values () (raise-argument-error 'current-module-declare-name \"(or/c #f resolved-module-path?)\" r_19)))" -" r_19))))" +" (let-values () (raise-argument-error 'current-module-declare-name \"(or/c #f resolved-module-path?)\" r_0)))" +" r_0))))" "(define-values" "(1/current-module-declare-source)" "(make-parameter" " #f" -"(lambda(s_39)" +"(lambda(s_0)" "(begin" -"(if(let-values(((or-part_58)(not s_39)))" -"(if or-part_58" -" or-part_58" -"(let-values(((or-part_59)(symbol? s_39)))" -"(if or-part_59 or-part_59(if(path? s_39)(complete-path? s_39) #f)))))" +"(if(let-values(((or-part_284)(not s_0)))" +"(if or-part_284" +" or-part_284" +"(let-values(((or-part_285)(symbol? s_0)))" +"(if or-part_285 or-part_285(if(path? s_0)(complete-path? s_0) #f)))))" "(void)" "(let-values()" -" (raise-argument-error 'current-module-declare-source \"(or/c #f symbol? (and/c path? complete-path?))\" s_39)))" -" s_39))))" +" (raise-argument-error 'current-module-declare-source \"(or/c #f symbol? (and/c path? complete-path?))\" s_0)))" +" s_0))))" "(define-values" "(substitute-module-declare-name)" "(lambda(default-name_0)" "(begin" -"(let-values(((current-name_0)(1/current-module-declare-name)))" -"(let-values(((root-name_1)" -"(if current-name_0" -"(resolved-module-path-root-name current-name_0)" +"(let-values(((current-name_287)(1/current-module-declare-name)))" +"(let-values(((root-name_288)" +"(if current-name_287" +"(resolved-module-path-root-name current-name_287)" "(if(pair? default-name_0)(car default-name_0) default-name_0))))" "(1/make-resolved-module-path" -"(if(pair? default-name_0)(cons root-name_1(cdr default-name_0)) root-name_1)))))))" +"(if(pair? default-name_0)(cons root-name_288(cdr default-name_0)) root-name_288)))))))" "(define-values" "(struct:promise promise1.1 promise? promise-val promise-status set-promise-val! set-promise-status!)" -"(let-values(((struct:_3 make-_3 ?_3 -ref_3 -set!_3)" +"(let-values(((struct:_13 make-_14 ?_15 -ref_16 -set!_17)" "(let-values()" "(let-values()" "(make-struct-type" @@ -4738,47 +4800,47 @@ static const char *startup_source = " #f" " 'promise)))))" "(values" -" struct:_3" -" make-_3" -" ?_3" -"(make-struct-field-accessor -ref_3 0 'val)" -"(make-struct-field-accessor -ref_3 1 'status)" -"(make-struct-field-mutator -set!_3 0 'val)" -"(make-struct-field-mutator -set!_3 1 'status))))" +" struct:_13" +" make-_14" +" ?_15" +"(make-struct-field-accessor -ref_16 0 'val)" +"(make-struct-field-accessor -ref_16 1 'status)" +"(make-struct-field-mutator -set!_17 0 'val)" +"(make-struct-field-mutator -set!_17 1 'status))))" "(define-values" "(force)" -"(lambda(v_47)" +"(lambda(v_0)" "(begin" -"(if(promise? v_47)" +"(if(promise? v_0)" "(let-values()" -"(let-values(((s_5)(promise-status v_47)))" -"(if(not s_5)" +"(let-values(((s_39)(promise-status v_0)))" +"(if(not s_39)" "(let-values()" -"(let-values(((result_28)((promise-val v_47))))" -"(begin(set-promise-val! v_47 result_28)(set-promise-status! v_47 #t) result_28)))" -"(let-values()(promise-val v_47)))))" -"(let-values() v_47)))))" +"(let-values(((result_40)((promise-val v_0))))" +"(begin(set-promise-val! v_0 result_40)(set-promise-status! v_0 #t) result_40)))" +"(let-values()(promise-val v_0)))))" +"(let-values() v_0)))))" "(define-values" "(phase?)" -"(lambda(v_29)(begin(let-values(((or-part_0)(not v_29)))(if or-part_0 or-part_0(exact-integer? v_29))))))" -"(define-values(phase+)(lambda(a_2 b_15)(begin(if a_2(if b_15(+ a_2 b_15) #f) #f))))" -"(define-values(phase-)(lambda(a_29 b_16)(begin(if a_29(if b_16(- a_29 b_16) #f) #f))))" +"(lambda(v_0)(begin(let-values(((or-part_2)(not v_0)))(if or-part_2 or-part_2(exact-integer? v_0))))))" +"(define-values(phase+)(lambda(a_0 b_0)(begin(if a_0(if b_0(+ a_0 b_0) #f) #f))))" +"(define-values(phase-)(lambda(a_0 b_0)(begin(if a_0(if b_0(- a_0 b_0) #f) #f))))" "(define-values" "(phaseimmutable-vector" -"(let-values(((len_7)(vector-length s_7)))" +"(let-values(((len_50)(vector-length s_1)))" "(begin" -"(if(exact-nonnegative-integer? len_7)" +"(if(exact-nonnegative-integer? len_50)" "(void)" "(let-values()" "(raise-argument-error" " 'for/vector" " \"exact-nonnegative-integer?\"" -" len_7)))" -"(let-values(((v_52)(make-vector len_7 0)))" +" len_50)))" +"(let-values(((v_51)(make-vector len_50 0)))" "(begin" -"(if(zero? len_7)" +"(if(zero? len_50)" "(void)" "(let-values()" -"(let-values(((vec_14 len_8)" -"(let-values(((vec_15) s_7))" +"(let-values(((vec_52 len_53)" +"(let-values(((vec_54) s_1))" "(begin" -"(check-vector vec_15)" +"(check-vector vec_54)" "(values" -" vec_15" -"(unsafe-vector-length vec_15))))))" +" vec_54" +"(unsafe-vector-length vec_54))))))" "(begin" " #f" -"((letrec-values(((for-loop_21)" -"(lambda(i_40 pos_6)" +"((letrec-values(((for-loop_55)" +"(lambda(i_0 pos_0)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_6 len_8)" -"(let-values(((e_10)" +"(if(unsafe-fx< pos_0 len_53)" +"(let-values(((e_58)" "(unsafe-vector-ref" -" vec_14" -" pos_6)))" -"(let-values(((i_41)" -"(let-values(((i_42)" -" i_40))" -"(let-values(((i_43)" +" vec_52" +" pos_0)))" +"(let-values(((i_59)" +"(let-values(((i_60)" +" i_0))" +"(let-values(((i_61)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_52" -" i_42" +" v_51" +" i_60" "(let-values()" -"(loop_63" +"(loop_43" " #f" -" e_10" -" seen_1)))" +" e_58" +" seen_47)))" "(unsafe-fx+" " 1" -" i_42)))))" -"(values i_43)))))" +" i_60)))))" +"(values i_61)))))" "(if(if(not" -"((lambda x_22" +"((lambda x_0" "(unsafe-fx=" -" i_41" -" len_7))" -" e_10))" +" i_59" +" len_50))" +" e_58))" "(not #f)" " #f)" -"(for-loop_21" -" i_41" -"(unsafe-fx+ 1 pos_6))" -" i_41)))" -" i_40)))))" -" for-loop_21)" +"(for-loop_55" +" i_59" +"(unsafe-fx+ 1 pos_0))" +" i_59)))" +" i_0)))))" +" for-loop_55)" " 0" " 0)))))" -" v_52)))))))" -"(if(box? s_7)" -"(let-values()(f_21 #f(box-immutable(loop_63 #f(unbox s_7) seen_1))))" -"(let-values(((c1_19)(immutable-prefab-struct-key s_7)))" -"(if c1_19" -"((lambda(key_12)" -"(f_21" +" v_51)))))))" +"(if(box? s_1)" +"(let-values()(f_0 #f(box-immutable(loop_43 #f(unbox s_1) seen_47))))" +"(let-values(((c1_63)(immutable-prefab-struct-key s_1)))" +"(if c1_63" +"((lambda(key_0)" +"(f_0" " #f" "(apply" " make-prefab-struct" -" key_12" +" key_0" "(reverse$1" -"(let-values(((v*_0 start*_0 stop*_1 step*_0)" +"(let-values(((v*_65 start*_66 stop*_67 step*_68)" "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_14)(vector? x_14))" -"(lambda(x_23)(unsafe-vector-length x_23))" -"(struct->vector s_7)" +"(lambda(x_0)(vector? x_0))" +"(lambda(x_0)(unsafe-vector-length x_0))" +"(struct->vector s_1)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_26)" -"(lambda(fold-var_17 idx_0)" +"((letrec-values(((for-loop_71)" +"(lambda(fold-var_0 idx_0)" "(begin" " 'for-loop" -"(if(unsafe-fx< idx_0 stop*_1)" -"(let-values(((e_11)" +"(if(unsafe-fx< idx_0 stop*_67)" +"(let-values(((e_74)" "(unsafe-vector-ref" -" v*_0" +" v*_65" " idx_0)))" -"(let-values(((fold-var_18)" -"(let-values(((fold-var_19)" -" fold-var_17))" -"(let-values(((fold-var_20)" +"(let-values(((fold-var_75)" +"(let-values(((fold-var_76)" +" fold-var_0))" +"(let-values(((fold-var_77)" "(let-values()" "(cons" "(let-values()" -"(loop_63" +"(loop_43" " #f" -" e_11" -" seen_1))" -" fold-var_19))))" +" e_74" +" seen_47))" +" fold-var_76))))" "(values" -" fold-var_20)))))" +" fold-var_77)))))" "(if(not #f)" -"(for-loop_26" -" fold-var_18" +"(for-loop_71" +" fold-var_75" "(unsafe-fx+ idx_0 1))" -" fold-var_18)))" -" fold-var_17)))))" -" for-loop_26)" +" fold-var_75)))" +" fold-var_0)))))" +" for-loop_71)" " null" -" start*_0)))))))" -" c1_19)" -"(if(if(hash? s_7)(immutable? s_7) #f)" +" start*_66)))))))" +" c1_63)" +"(if(if(hash? s_1)(immutable? s_1) #f)" "(let-values()" -"(if(hash-eq? s_7)" +"(if(hash-eq? s_1)" "(let-values()" -"(f_21" +"(f_0" " #f" -"(let-values(((ht_26) s_7))" +"(let-values(((ht_78) s_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_26)))" -"((letrec-values(((for-loop_27)" -"(lambda(table_16 i_44)" +"(let-values()(check-in-hash ht_78)))" +"((letrec-values(((for-loop_79)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_44" -"(let-values(((k_11 v_53)" +"(if i_0" +"(let-values(((k_82 v_83)" "(hash-iterate-key+value" -" ht_26" -" i_44)))" -"(let-values(((table_17)" -"(let-values(((table_18)" -" table_16))" -"(let-values(((table_19)" +" ht_78" +" i_0)))" +"(let-values(((table_84)" +"(let-values(((table_85)" +" table_0))" +"(let-values(((table_86)" "(let-values()" -"(let-values(((key_13" -" val_4)" +"(let-values(((key_87" +" val_88)" "(let-values()" "(values" -" k_11" -"(loop_63" +" k_82" +"(loop_43" " #f" -" v_53" -" seen_1)))))" +" v_83" +" seen_47)))))" "(hash-set" -" table_18" -" key_13" -" val_4)))))" +" table_85" +" key_87" +" val_88)))))" "(values" -" table_19)))))" +" table_86)))))" "(if(not #f)" -"(for-loop_27" -" table_17" -"(hash-iterate-next ht_26 i_44))" -" table_17)))" -" table_16)))))" -" for-loop_27)" +"(for-loop_79" +" table_84" +"(hash-iterate-next ht_78 i_0))" +" table_84)))" +" table_0)))))" +" for-loop_79)" " '#hasheq()" -"(hash-iterate-first ht_26))))))" -"(if(hash-eqv? s_7)" +"(hash-iterate-first ht_78))))))" +"(if(hash-eqv? s_1)" "(let-values()" -"(f_21" +"(f_0" " #f" -"(let-values(((ht_27) s_7))" +"(let-values(((ht_89) s_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_27)))" -"((letrec-values(((for-loop_28)" -"(lambda(table_20 i_45)" +"(let-values()(check-in-hash ht_89)))" +"((letrec-values(((for-loop_90)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_45" -"(let-values(((k_12 v_54)" +"(if i_0" +"(let-values(((k_93 v_94)" "(hash-iterate-key+value" -" ht_27" -" i_45)))" -"(let-values(((table_11)" -"(let-values(((table_12)" -" table_20))" -"(let-values(((table_13)" +" ht_89" +" i_0)))" +"(let-values(((table_95)" +"(let-values(((table_96)" +" table_0))" +"(let-values(((table_97)" "(let-values()" -"(let-values(((key_14" -" val_5)" +"(let-values(((key_98" +" val_99)" "(let-values()" "(values" -" k_12" -"(loop_63" +" k_93" +"(loop_43" " #f" -" v_54" -" seen_1)))))" +" v_94" +" seen_47)))))" "(hash-set" -" table_12" -" key_14" -" val_5)))))" +" table_96" +" key_98" +" val_99)))))" "(values" -" table_13)))))" +" table_97)))))" "(if(not #f)" -"(for-loop_28" -" table_11" -"(hash-iterate-next" -" ht_27" -" i_45))" -" table_11)))" -" table_20)))))" -" for-loop_28)" +"(for-loop_90" +" table_95" +"(hash-iterate-next ht_89 i_0))" +" table_95)))" +" table_0)))))" +" for-loop_90)" " '#hasheqv()" -"(hash-iterate-first ht_27))))))" +"(hash-iterate-first ht_89))))))" "(let-values()" -"(f_21" +"(f_0" " #f" -"(let-values(((ht_25) s_7))" +"(let-values(((ht_100) s_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_25)))" -"((letrec-values(((for-loop_29)" -"(lambda(table_21 i_46)" +"(let-values()(check-in-hash ht_100)))" +"((letrec-values(((for-loop_101)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_46" -"(let-values(((k_13 v_55)" +"(if i_0" +"(let-values(((k_104 v_105)" "(hash-iterate-key+value" -" ht_25" -" i_46)))" -"(let-values(((table_22)" -"(let-values(((table_23)" -" table_21))" -"(let-values(((table_24)" +" ht_100" +" i_0)))" +"(let-values(((table_106)" +"(let-values(((table_107)" +" table_0))" +"(let-values(((table_108)" "(let-values()" -"(let-values(((key_15" -" val_6)" +"(let-values(((key_109" +" val_110)" "(let-values()" "(values" -" k_13" -"(loop_63" +" k_104" +"(loop_43" " #f" -" v_55" -" seen_1)))))" +" v_105" +" seen_47)))))" "(hash-set" -" table_23" -" key_15" -" val_6)))))" +" table_107" +" key_109" +" val_110)))))" "(values" -" table_24)))))" +" table_108)))))" "(if(not #f)" -"(for-loop_29" -" table_22" +"(for-loop_101" +" table_106" "(hash-iterate-next" -" ht_25" -" i_46))" -" table_22)))" -" table_21)))))" -" for-loop_29)" +" ht_100" +" i_0))" +" table_106)))" +" table_0)))))" +" for-loop_101)" " '#hash()" -"(hash-iterate-first ht_25)))))))))" -"(let-values()(f_21 #f s_7)))))))))))))))" -" loop_63)" +"(hash-iterate-first ht_100)))))))))" +"(let-values()(f_0 #f s_1)))))))))))))))" +" loop_43)" " tail?_0" -" s_40" +" s_0" " seen_0))))" "(define-values" "(datum-has-elements?)" "(lambda(d_0)" "(begin" -"(let-values(((or-part_69)(pair? d_0)))" -"(if or-part_69" -" or-part_69" -"(let-values(((or-part_24)(vector? d_0)))" -"(if or-part_24" -" or-part_24" -"(let-values(((or-part_70)(box? d_0)))" -"(if or-part_70" -" or-part_70" -"(let-values(((or-part_71)(immutable-prefab-struct-key d_0)))" -"(if or-part_71" -" or-part_71" +"(let-values(((or-part_112)(pair? d_0)))" +"(if or-part_112" +" or-part_112" +"(let-values(((or-part_113)(vector? d_0)))" +"(if or-part_113" +" or-part_113" +"(let-values(((or-part_114)(box? d_0)))" +"(if or-part_114" +" or-part_114" +"(let-values(((or-part_115)(immutable-prefab-struct-key d_0)))" +"(if or-part_115" +" or-part_115" "(if(hash? d_0)(if(immutable? d_0)(positive?(hash-count d_0)) #f) #f))))))))))))" "(define-values" "(struct:preserved-property-value" " preserved-property-value1.1" " preserved-property-value?" " preserved-property-value-content)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -5307,106 +5368,106 @@ static const char *startup_source = " '(0)" " #f" " 'preserved-property-value)))))" -"(values struct:_0 make-_0 ?_0(make-struct-field-accessor -ref_0 0 'content))))" +"(values struct:_1 make-_2 ?_3(make-struct-field-accessor -ref_4 0 'content))))" "(define-values" "(plain-property-value)" -"(lambda(v_56)(begin(if(preserved-property-value? v_56)(preserved-property-value-content v_56) v_56))))" +"(lambda(v_0)(begin(if(preserved-property-value? v_0)(preserved-property-value-content v_0) v_0))))" "(define-values" "(check-value-to-preserve)" -"(lambda(v_57 syntax?_0)" +"(lambda(v_0 syntax?_0)" "(begin" -"(let-values(((check-preserve_0)" -"(lambda(tail?_2 v_58)" +"(let-values(((check-preserve_25)" +"(lambda(tail?_0 v_1)" "(begin" " 'check-preserve" "(begin" -"(if(let-values(((or-part_72)(null? v_58)))" -"(if or-part_72" -" or-part_72" -"(let-values(((or-part_73)(boolean? v_58)))" -"(if or-part_73" -" or-part_73" -"(let-values(((or-part_74)(symbol? v_58)))" -"(if or-part_74" -" or-part_74" -"(let-values(((or-part_75)(number? v_58)))" -"(if or-part_75" -" or-part_75" -"(let-values(((or-part_76)(char? v_58)))" -"(if or-part_76" -" or-part_76" -"(let-values(((or-part_77)(string? v_58)))" -"(if or-part_77" -" or-part_77" -"(let-values(((or-part_29)(bytes? v_58)))" +"(if(let-values(((or-part_28)(null? v_1)))" +"(if or-part_28" +" or-part_28" +"(let-values(((or-part_29)(boolean? v_1)))" "(if or-part_29" " or-part_29" -"(let-values(((or-part_78)(regexp? v_58)))" -"(if or-part_78" -" or-part_78" -"(let-values(((or-part_79)(syntax?_0 v_58)))" -"(if or-part_79" -" or-part_79" -"(let-values(((or-part_80)(pair? v_58)))" -"(if or-part_80" -" or-part_80" -"(let-values(((or-part_81)(vector? v_58)))" -"(if or-part_81" -" or-part_81" -"(let-values(((or-part_82)(box? v_58)))" -"(if or-part_82" -" or-part_82" -"(let-values(((or-part_83)(hash? v_58)))" -"(if or-part_83" -" or-part_83" +"(let-values(((or-part_30)(symbol? v_1)))" +"(if or-part_30" +" or-part_30" +"(let-values(((or-part_31)(number? v_1)))" +"(if or-part_31" +" or-part_31" +"(let-values(((or-part_32)(char? v_1)))" +"(if or-part_32" +" or-part_32" +"(let-values(((or-part_33)(string? v_1)))" +"(if or-part_33" +" or-part_33" +"(let-values(((or-part_34)(bytes? v_1)))" +"(if or-part_34" +" or-part_34" +"(let-values(((or-part_35)(regexp? v_1)))" +"(if or-part_35" +" or-part_35" +"(let-values(((or-part_36)(syntax?_0 v_1)))" +"(if or-part_36" +" or-part_36" +"(let-values(((or-part_37)(pair? v_1)))" +"(if or-part_37" +" or-part_37" +"(let-values(((or-part_38)(vector? v_1)))" +"(if or-part_38" +" or-part_38" +"(let-values(((or-part_39)(box? v_1)))" +"(if or-part_39" +" or-part_39" +"(let-values(((or-part_40)(hash? v_1)))" +"(if or-part_40" +" or-part_40" "(immutable-prefab-struct-key" -" v_58)))))))))))))))))))))))))))" +" v_1)))))))))))))))))))))))))))" "(void)" "(let-values()" "(raise-arguments-error" " 'write" " \"disallowed value in preserved syntax property\"" " \"value\"" -" v_58)))" -" v_58)))))" -"(let-values(((s_41) v_57)((f_22) check-preserve_0)((gf_0) check-preserve_0)((seen_2) disallow-cycles$1))" -"((letrec-values(((loop_64)" -"(lambda(tail?_3 s_42 prev-depth_0)" +" v_1)))" +" v_1)))))" +"(let-values(((s_41) v_0)((f_42) check-preserve_25)((gf_43) check-preserve_25)((seen_44) disallow-cycles$1))" +"((letrec-values(((loop_45)" +"(lambda(tail?_0 s_0 prev-depth_0)" "(begin" " 'loop" -"(let-values(((depth_0)(fx+ 1 prev-depth_0)))" -"(if(if seen_2(fx> depth_0 32) #f)" +"(let-values(((depth_49)(fx+ 1 prev-depth_0)))" +"(if(if seen_44(fx> depth_49 32) #f)" "(let-values()" -"(datum-map-slow tail?_3 s_42(lambda(tail?_4 s_43)(gf_0 tail?_4 s_43)) seen_2))" -"(if(null? s_42)" -"(let-values()(f_22 tail?_3 s_42))" -"(if(pair? s_42)" +"(datum-map-slow tail?_0 s_0(lambda(tail?_1 s_1)(gf_43 tail?_1 s_1)) seen_44))" +"(if(null? s_0)" +"(let-values()(f_42 tail?_0 s_0))" +"(if(pair? s_0)" "(let-values()" -"(f_22" -" tail?_3" -"(cons(loop_64 #f(car s_42) depth_0)(loop_64 #t(cdr s_42) depth_0))))" -"(if(symbol? s_42)" -"(let-values()(f_22 #f s_42))" -"(if(boolean? s_42)" -"(let-values()(f_22 #f s_42))" -"(if(number? s_42)" -"(let-values()(f_22 #f s_42))" -"(if(let-values(((or-part_54)(vector? s_42)))" -"(if or-part_54" -" or-part_54" -"(let-values(((or-part_7)(box? s_42)))" -"(if or-part_7" -" or-part_7" -"(let-values(((or-part_8)(prefab-struct-key s_42)))" -"(if or-part_8 or-part_8(hash? s_42)))))))" +"(f_42" +" tail?_0" +"(cons(loop_45 #f(car s_0) depth_49)(loop_45 #t(cdr s_0) depth_49))))" +"(if(symbol? s_0)" +"(let-values()(f_42 #f s_0))" +"(if(boolean? s_0)" +"(let-values()(f_42 #f s_0))" +"(if(number? s_0)" +"(let-values()(f_42 #f s_0))" +"(if(let-values(((or-part_52)(vector? s_0)))" +"(if or-part_52" +" or-part_52" +"(let-values(((or-part_53)(box? s_0)))" +"(if or-part_53" +" or-part_53" +"(let-values(((or-part_54)(prefab-struct-key s_0)))" +"(if or-part_54 or-part_54(hash? s_0)))))))" "(let-values()" "(datum-map-slow" -" tail?_3" -" s_42" -"(lambda(tail?_5 s_44)(gf_0 tail?_5 s_44))" -" seen_2))" -"(let-values()(gf_0 #f s_42))))))))))))))" -" loop_64)" +" tail?_0" +" s_0" +"(lambda(tail?_1 s_1)(gf_43 tail?_1 s_1))" +" seen_44))" +"(let-values()(gf_43 #f s_0))))))))))))))" +" loop_45)" " #f" " s_41" " 0))))))" @@ -5414,24 +5475,24 @@ static const char *startup_source = "(disallow-cycles$1)" "(hash" " 'cycle-fail" -" (lambda (v_59) (raise-arguments-error 'write \"disallowed cycle in preserved syntax property\" \"at\" v_59))))" +" (lambda (v_0) (raise-arguments-error 'write \"disallowed cycle in preserved syntax property\" \"at\" v_0))))" "(define-values" "(tamper?)" -"(lambda(v_29)" +"(lambda(v_0)" "(begin" -"(let-values(((or-part_0)(not v_29)))" -"(if or-part_0 or-part_0(let-values(((or-part_1)(symbol? v_29)))(if or-part_1 or-part_1(set? v_29))))))))" -"(define-values(tamper-tainted?)(lambda(v_60)(begin(symbol? v_60))))" -"(define-values(tamper-armed?)(lambda(v_61)(begin(set? v_61))))" -"(define-values(tamper-clean?)(lambda(v_27)(begin(not v_27))))" +"(let-values(((or-part_2)(not v_0)))" +"(if or-part_2 or-part_2(let-values(((or-part_3)(symbol? v_0)))(if or-part_3 or-part_3(set? v_0))))))))" +"(define-values(tamper-tainted?)(lambda(v_0)(begin(symbol? v_0))))" +"(define-values(tamper-armed?)(lambda(v_0)(begin(set? v_0))))" +"(define-values(tamper-clean?)(lambda(v_0)(begin(not v_0))))" "(define-values" "(tamper-tainted-for-content)" -"(lambda(v_62)(begin(if(datum-has-elements? v_62) 'tainted/need-propagate 'tainted))))" -"(define-values(tamper-needs-propagate?)(lambda(t_13)(begin(eq? t_13 'tainted/need-propagate))))" -"(define-values(tamper-propagated)(lambda(t_14)(begin(if(eq? t_14 'tainted/need-propagate) 'tainted t_14))))" -"(define-values(serialize-tamper)(lambda(t_15)(begin(if(tamper-armed? t_15) 'armed t_15))))" +"(lambda(v_0)(begin(if(datum-has-elements? v_0) 'tainted/need-propagate 'tainted))))" +"(define-values(tamper-needs-propagate?)(lambda(t_0)(begin(eq? t_0 'tainted/need-propagate))))" +"(define-values(tamper-propagated)(lambda(t_0)(begin(if(eq? t_0 'tainted/need-propagate) 'tainted t_0))))" +"(define-values(serialize-tamper)(lambda(t_0)(begin(if(tamper-armed? t_0) 'armed t_0))))" "(define-values(current-arm-inspectors)(make-parameter(seteq)))" -"(define-values(deserialize-tamper)(lambda(t_16)(begin(if(eq? t_16 'armed)(current-arm-inspectors) t_16))))" +"(define-values(deserialize-tamper)(lambda(t_0)(begin(if(eq? t_0 'armed)(current-arm-inspectors) t_0))))" "(define-values" "(struct:syntax" " syntax1.1" @@ -5446,7 +5507,7 @@ static const char *startup_source = " syntax-inspector" " set-syntax-content!" " set-syntax-scope-propagations+tamper!)" -"(let-values(((struct:_4 make-_4 ?_4 -ref_4 -set!_4)" +"(let-values(((struct:_65 make-_66 ?_67 -ref_68 -set!_69)" "(let-values()" "(let-values()" "(make-struct-type" @@ -5459,30 +5520,30 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:reach-scopes" -"(lambda(s_45 reach_0)" -"(let-values(((prop_0)(syntax-scope-propagations+tamper s_45)))" +"(lambda(s_0 reach_0)" +"(let-values(((prop_122)(syntax-scope-propagations+tamper s_0)))" "(begin" "(reach_0" -"(if(propagation?$1 prop_0)((propagation-ref prop_0) s_45)(syntax-content s_45)))" -"(reach_0(syntax-scopes s_45))" -"(reach_0(syntax-shifted-multi-scopes s_45))" -"(let-values(((ht_17)(syntax-props s_45)))" +"(if(propagation?$1 prop_122)((propagation-ref prop_122) s_0)(syntax-content s_0)))" +"(reach_0(syntax-scopes s_0))" +"(reach_0(syntax-shifted-multi-scopes s_0))" +"(let-values(((ht_123)(syntax-props s_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_17)))" -"((letrec-values(((for-loop_3)" -"(lambda(i_47)" +"(let-values()(check-in-immutable-hash ht_123)))" +"((letrec-values(((for-loop_124)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_47" -"(let-values(((k_14 v_63)" +"(if i_0" +"(let-values(((k_126 v_127)" "(unsafe-immutable-hash-iterate-key+value" -" ht_17" -" i_47)))" +" ht_123" +" i_0)))" "(let-values((()" "(let-values()" -"(if(preserved-property-value? v_63)" +"(if(preserved-property-value? v_127)" "(let-values()" "(let-values((()" "(let-values()" @@ -5490,202 +5551,203 @@ static const char *startup_source = "(let-values()" "(reach_0" "(plain-property-value" -" v_63)))" +" v_127)))" "(values)))))" "(values)))" "(values)))))" "(if(not #f)" -"(for-loop_3" -"(unsafe-immutable-hash-iterate-next ht_17 i_47))" +"(for-loop_124" +"(unsafe-immutable-hash-iterate-next ht_123 i_0))" "(values))))" "(values))))))" -" for-loop_3)" -"(unsafe-immutable-hash-iterate-first ht_17))))" +" for-loop_124)" +"(unsafe-immutable-hash-iterate-first ht_123))))" "(void)" -"(reach_0(syntax-srcloc s_45))))))" +"(reach_0(syntax-srcloc s_0))))))" "(cons" " prop:serialize" -"(lambda(s_46 ser-push!_1 state_10)" -"(let-values(((prop_1)(syntax-scope-propagations+tamper s_46)))" -"(let-values(((content_0)" -"(if(propagation?$1 prop_1)" -"((propagation-ref prop_1) s_46)" -"(syntax-content s_46))))" -"(let-values(((properties_0)" +"(lambda(s_0 ser-push!_0 state_0)" +"(let-values(((prop_131)(syntax-scope-propagations+tamper s_0)))" +"(let-values(((content_132)" +"(if(propagation?$1 prop_131)" +"((propagation-ref prop_131) s_0)" +"(syntax-content s_0))))" +"(let-values(((properties_133)" "(intern-properties" -"(syntax-props s_46)" +"(syntax-props s_0)" "(lambda()" -"(let-values(((ht_28)(syntax-props s_46)))" +"(let-values(((ht_137)(syntax-props s_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_28)))" -"((letrec-values(((for-loop_30)" -"(lambda(table_25 i_48)" +"(let-values()(check-in-hash ht_137)))" +"((letrec-values(((for-loop_138)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_48" -"(let-values(((k_15 v_64)" +"(if i_0" +"(let-values(((k_141 v_142)" "(hash-iterate-key+value" -" ht_28" -" i_48)))" -"(let-values(((table_26)" -"(let-values(((table_27)" -" table_25))" +" ht_137" +" i_0)))" +"(let-values(((table_143)" +"(let-values(((table_144)" +" table_0))" "(if(preserved-property-value?" -" v_64)" -"(let-values(((table_28)" -" table_27))" -"(let-values(((table_29)" +" v_142)" +"(let-values(((table_145)" +" table_144))" +"(let-values(((table_146)" "(let-values()" -"(let-values(((key_16" -" val_7)" +"(let-values(((key_147" +" val_148)" "(let-values()" "(values" -" k_15" +" k_141" "(check-value-to-preserve" "(plain-property-value" -" v_64)" +" v_142)" " syntax?$1)))))" "(hash-set" -" table_28" -" key_16" -" val_7)))))" -"(values table_29)))" -" table_27))))" +" table_145" +" key_147" +" val_148)))))" +"(values table_146)))" +" table_144))))" "(if(not #f)" -"(for-loop_30" -" table_26" -"(hash-iterate-next ht_28 i_48))" -" table_26)))" -" table_25)))))" -" for-loop_30)" +"(for-loop_138" +" table_143" +"(hash-iterate-next ht_137 i_0))" +" table_143)))" +" table_0)))))" +" for-loop_138)" " '#hasheq()" -"(hash-iterate-first ht_28)))))" -" state_10)))" -"(let-values(((tamper_0)(serialize-tamper(syntax-tamper s_46))))" -"(let-values(((context-triple_0)" +"(hash-iterate-first ht_137)))))" +" state_0)))" +"(let-values(((tamper_134)(serialize-tamper(syntax-tamper s_0))))" +"(let-values(((context-triple_135)" "(intern-context-triple" -"(intern-scopes(syntax-scopes s_46) state_10)" -"(intern-shifted-multi-scopes" -"(syntax-shifted-multi-scopes s_46)" -" state_10)" -"(intern-mpi-shifts(syntax-mpi-shifts s_46) state_10)" -" state_10)))" -"(let-values(((stx-state_0)(get-syntax-context state_10)))" -"(if(let-values(((or-part_39) properties_0))(if or-part_39 or-part_39 tamper_0))" +"(intern-scopes(syntax-scopes s_0) state_0)" +"(intern-shifted-multi-scopes(syntax-shifted-multi-scopes s_0) state_0)" +"(intern-mpi-shifts(syntax-mpi-shifts s_0) state_0)" +" state_0)))" +"(let-values(((stx-state_136)(get-syntax-context state_0)))" +"(if(let-values(((or-part_149) properties_133))" +"(if or-part_149 or-part_149 tamper_134))" "(let-values()" "(begin" -"(ser-push!_1 'tag '#:syntax+props)" -"(push-syntax-context! state_10 #f)" -"(ser-push!_1 content_0)" -"(pop-syntax-context! state_10)" -"(ser-push!_1 'reference context-triple_0)" -"(ser-push!_1 'reference(syntax-srcloc s_46))" -"(ser-push!_1 properties_0)" -"(ser-push!_1 tamper_0)" -"(if stx-state_0" -"(let-values()(set-syntax-state-all-sharing?! stx-state_0 #f))" +"(ser-push!_0 'tag '#:syntax+props)" +"(push-syntax-context! state_0 #f)" +"(ser-push!_0 content_132)" +"(pop-syntax-context! state_0)" +"(ser-push!_0 'reference context-triple_135)" +"(ser-push!_0 'reference(syntax-srcloc s_0))" +"(ser-push!_0 properties_133)" +"(ser-push!_0 tamper_134)" +"(if stx-state_136" +"(let-values()(set-syntax-state-all-sharing?! stx-state_136 #f))" "(void))))" "(let-values()" -"(let-values(((sharing-mode_0)" +"(let-values(((sharing-mode_150)" "(hash-ref" -"(serialize-state-sharing-syntaxes state_10)" -" s_46" +"(serialize-state-sharing-syntaxes state_0)" +" s_0" " 'unknown)))" "(begin" -"(if(eq? sharing-mode_0 'share)" +"(if(eq? sharing-mode_150 'share)" "(let-values()" "(begin" -"(ser-push!_1 'tag '#:datum->syntax)" -"(ser-push!_1(syntax->datum$1 s_46))))" -"(if(eq? sharing-mode_0 'unknown)" +"(ser-push!_0 'tag '#:datum->syntax)" +"(ser-push!_0(syntax->datum$1 s_0))))" +"(if(eq? sharing-mode_150 'unknown)" "(let-values()" -"(let-values((()(begin(ser-push!_1 'tag '#:syntax)(values))))" -"(let-values(((this-state_0)" -"(if(no-pair-syntax-in-cdr? content_0)" +"(let-values((()(begin(ser-push!_0 'tag '#:syntax)(values))))" +"(let-values(((this-state_151)" +"(if(no-pair-syntax-in-cdr? content_132)" "(syntax-state17.1" " #t" -" context-triple_0" -"(syntax-srcloc s_46))" +" context-triple_135" +"(syntax-srcloc s_0))" " #f)))" "(let-values((()" "(begin" -"(push-syntax-context! state_10 this-state_0)" +"(push-syntax-context! state_0 this-state_151)" "(values))))" -"(let-values((()(begin(ser-push!_1 content_0)(values))))" +"(let-values((()(begin(ser-push!_0 content_132)(values))))" "(let-values((()" "(begin" -"(pop-syntax-context! state_10)" +"(pop-syntax-context! state_0)" "(values))))" -"(let-values(((new-sharing-mode_0)" -"(if(if this-state_0" +"(let-values(((new-sharing-mode_152)" +"(if(if this-state_151" "(syntax-state-all-sharing?" -" this-state_0)" +" this-state_151)" " #f)" " 'share" " 'none)))" "(begin" "(hash-set!" -"(serialize-state-sharing-syntaxes state_10)" -" s_46" -"(if(datum-has-elements? content_0)" -" new-sharing-mode_0" +"(serialize-state-sharing-syntaxes state_0)" +" s_0" +"(if(datum-has-elements? content_132)" +" new-sharing-mode_152" " 'none))" -"(if(if stx-state_0(eq? new-sharing-mode_0 'none) #f)" +"(if(if stx-state_136" +"(eq? new-sharing-mode_152 'none)" +" #f)" "(let-values()" -"(set-syntax-state-all-sharing?! stx-state_0 #f))" +"(set-syntax-state-all-sharing?! stx-state_136 #f))" "(void))))))))))" "(let-values()" "(begin" -"(ser-push!_1 'tag '#:syntax)" -"(push-syntax-context! state_10 #f)" -"(ser-push!_1 content_0)" -"(pop-syntax-context! state_10)))))" -"(ser-push!_1 'reference context-triple_0)" -"(ser-push!_1 'reference(syntax-srcloc s_46))" -"(if stx-state_0" +"(ser-push!_0 'tag '#:syntax)" +"(push-syntax-context! state_0 #f)" +"(ser-push!_0 content_132)" +"(pop-syntax-context! state_0)))))" +"(ser-push!_0 'reference context-triple_135)" +"(ser-push!_0 'reference(syntax-srcloc s_0))" +"(if stx-state_136" "(let-values()" "(if(if(eq?" -" context-triple_0" -"(syntax-state-context-triple stx-state_0))" -"(equal?(syntax-srcloc s_46)(syntax-state-srcloc stx-state_0))" +" context-triple_135" +"(syntax-state-context-triple stx-state_136))" +"(equal?(syntax-srcloc s_0)(syntax-state-srcloc stx-state_136))" " #f)" "(void)" -"(let-values()(set-syntax-state-all-sharing?! stx-state_0 #f))))" +"(let-values()(set-syntax-state-all-sharing?! stx-state_136 #f))))" "(void))))))))))))))" "(cons" " prop:custom-write" -"(lambda(s_47 port_2 mode_5)" -" (let-values ((() (begin (write-string \"#string srcloc_0)))" -" (if srcloc-str_0 (let-values () (fprintf port_2 \":~a\" srcloc-str_0)) (void))))" +"(let-values(((srcloc-str_157)(srcloc->string srcloc_156)))" +" (if srcloc-str_157 (let-values () (fprintf port_0 \":~a\" srcloc-str_157)) (void))))" "(void))" -" (fprintf port_2 \" ~.s\" (syntax->datum$1 s_47))" -" (write-string \">\" port_2)))))))" +" (fprintf port_0 \" ~.s\" (syntax->datum$1 s_0))" +" (write-string \">\" port_0)))))))" "(current-inspector)" " #f" " '(1 2 4 5 6 7)" " #f" " 'syntax)))))" "(values" -" struct:_4" -" make-_4" -" ?_4" -"(make-struct-field-accessor -ref_4 0 'content)" -"(make-struct-field-accessor -ref_4 1 'scopes)" -"(make-struct-field-accessor -ref_4 2 'shifted-multi-scopes)" -"(make-struct-field-accessor -ref_4 3 'scope-propagations+tamper)" -"(make-struct-field-accessor -ref_4 4 'mpi-shifts)" -"(make-struct-field-accessor -ref_4 5 'srcloc)" -"(make-struct-field-accessor -ref_4 6 'props)" -"(make-struct-field-accessor -ref_4 7 'inspector)" -"(make-struct-field-mutator -set!_4 0 'content)" -"(make-struct-field-mutator -set!_4 3 'scope-propagations+tamper))))" +" struct:_65" +" make-_66" +" ?_67" +"(make-struct-field-accessor -ref_68 0 'content)" +"(make-struct-field-accessor -ref_68 1 'scopes)" +"(make-struct-field-accessor -ref_68 2 'shifted-multi-scopes)" +"(make-struct-field-accessor -ref_68 3 'scope-propagations+tamper)" +"(make-struct-field-accessor -ref_68 4 'mpi-shifts)" +"(make-struct-field-accessor -ref_68 5 'srcloc)" +"(make-struct-field-accessor -ref_68 6 'props)" +"(make-struct-field-accessor -ref_68 7 'inspector)" +"(make-struct-field-mutator -set!_69 0 'content)" +"(make-struct-field-mutator -set!_69 3 'scope-propagations+tamper))))" "(define-values(prop:propagation propagation?$1 propagation-ref)(make-struct-type-property 'propagation))" "(define-values" "(prop:propagation-tamper propagation-tamper? propagation-tamper-ref)" @@ -5695,10 +5757,10 @@ static const char *startup_source = "(make-struct-type-property 'propagation-set-tamper))" "(define-values" "(syntax-tamper)" -"(lambda(s_32)" +"(lambda(s_0)" "(begin" -"(let-values(((v_65)(syntax-scope-propagations+tamper s_32)))" -"(if(tamper? v_65) v_65((propagation-tamper-ref v_65) v_65))))))" +"(let-values(((v_159)(syntax-scope-propagations+tamper s_0)))" +"(if(tamper? v_159) v_159((propagation-tamper-ref v_159) v_159))))))" "(define-values(empty-scopes)(seteq))" "(define-values(empty-shifted-multi-scopes)(seteq))" "(define-values(empty-mpi-shifts) null)" @@ -5706,221 +5768,224 @@ static const char *startup_source = "(define-values" "(empty-syntax)" "(syntax1.1 #f empty-scopes empty-shifted-multi-scopes #f empty-mpi-shifts #f empty-props #f))" -"(define-values(identifier?)(lambda(s_48)(begin(if(syntax?$1 s_48)(symbol?(syntax-content s_48)) #f))))" -"(define-values(syntax-identifier?)(lambda(s_49)(begin(symbol?(syntax-content s_49)))))" +"(define-values(identifier?)(lambda(s_0)(begin(if(syntax?$1 s_0)(symbol?(syntax-content s_0)) #f))))" +"(define-values(syntax-identifier?)(lambda(s_0)(begin(symbol?(syntax-content s_0)))))" "(define-values" "(syntax->datum$1)" -"(lambda(s_50)" +"(lambda(s_0)" "(begin" " 'syntax->datum" -"(let-values(((s_51) s_50)" -"((f_23)(lambda(tail?_6 x_24)(begin 'f x_24)))" -"((d->s_0)(lambda(s_52 d_1)(begin 'd->s d_1)))" -"((s-e_0) syntax-content)" -"((seen_3) #f))" -"((letrec-values(((loop_59)" -"(lambda(s_53)" +"(let-values(((s_163) s_0)" +"((f_164)(lambda(tail?_0 x_0)(begin 'f x_0)))" +"((d->s_165)(lambda(s_1 d_0)(begin 'd->s d_0)))" +"((s-e_166) syntax-content)" +"((seen_167) #f))" +"((letrec-values(((loop_172)" +"(lambda(s_1)" "(begin" " 'loop" -"(let-values(((s_54) s_53)" -"((f_24) f_23)" -"((gf_1)" -"(lambda(tail?_7 v_66)" +"(let-values(((s_174) s_1)" +"((f_175) f_164)" +"((gf_176)" +"(lambda(tail?_0 v_0)" "(begin" " 'gf" -"(if(syntax?$1 v_66)" -"(let-values()(d->s_0 v_66(loop_59(s-e_0 v_66))))" -"(let-values()(f_23 tail?_7 v_66))))))" -"((seen_4) seen_3))" -"((letrec-values(((loop_65)" -"(lambda(tail?_8 s_55 prev-depth_1)" +"(if(syntax?$1 v_0)" +"(let-values()(d->s_165 v_0(loop_172(s-e_166 v_0))))" +"(let-values()(f_164 tail?_0 v_0))))))" +"((seen_177) seen_167))" +"((letrec-values(((loop_180)" +"(lambda(tail?_0 s_2 prev-depth_0)" "(begin" " 'loop" -"(let-values(((depth_1)(fx+ 1 prev-depth_1)))" -"(if(if seen_4(fx> depth_1 32) #f)" +"(let-values(((depth_184)(fx+ 1 prev-depth_0)))" +"(if(if seen_177(fx> depth_184 32) #f)" "(let-values()" "(datum-map-slow" -" tail?_8" -" s_55" -"(lambda(tail?_9 s_56)(gf_1 tail?_9 s_56))" -" seen_4))" -"(if(null? s_55)" -"(let-values()(f_24 tail?_8 s_55))" -"(if(pair? s_55)" +" tail?_0" +" s_2" +"(lambda(tail?_1 s_3)(gf_176 tail?_1 s_3))" +" seen_177))" +"(if(null? s_2)" +"(let-values()(f_175 tail?_0 s_2))" +"(if(pair? s_2)" "(let-values()" -"(f_24" -" tail?_8" +"(f_175" +" tail?_0" "(cons" -"(loop_65 #f(car s_55) depth_1)" -"(loop_65 #t(cdr s_55) depth_1))))" -"(if(symbol? s_55)" -"(let-values()(f_24 #f s_55))" -"(if(boolean? s_55)" -"(let-values()(f_24 #f s_55))" -"(if(number? s_55)" -"(let-values()(f_24 #f s_55))" -"(if(let-values(((or-part_84)(vector? s_55)))" -"(if or-part_84" -" or-part_84" -"(let-values(((or-part_85)(box? s_55)))" -"(if or-part_85" -" or-part_85" -"(let-values(((or-part_86)" -"(prefab-struct-key s_55)))" -"(if or-part_86" -" or-part_86" -"(hash? s_55)))))))" +"(loop_180 #f(car s_2) depth_184)" +"(loop_180 #t(cdr s_2) depth_184))))" +"(if(symbol? s_2)" +"(let-values()(f_175 #f s_2))" +"(if(boolean? s_2)" +"(let-values()(f_175 #f s_2))" +"(if(number? s_2)" +"(let-values()(f_175 #f s_2))" +"(if(let-values(((or-part_187)(vector? s_2)))" +"(if or-part_187" +" or-part_187" +"(let-values(((or-part_188)(box? s_2)))" +"(if or-part_188" +" or-part_188" +"(let-values(((or-part_189)" +"(prefab-struct-key s_2)))" +"(if or-part_189" +" or-part_189" +"(hash? s_2)))))))" "(let-values()" "(datum-map-slow" -" tail?_8" -" s_55" -"(lambda(tail?_10 s_57)(gf_1 tail?_10 s_57))" -" seen_4))" -"(let-values()(gf_1 #f s_55))))))))))))))" -" loop_65)" +" tail?_0" +" s_2" +"(lambda(tail?_1 s_3)(gf_176 tail?_1 s_3))" +" seen_177))" +"(let-values()(gf_176 #f s_2))))))))))))))" +" loop_180)" " #f" -" s_54" +" s_174" " 0))))))" -" loop_59)" -" s_51)))))" +" loop_172)" +" s_163)))))" "(define-values" "(datum->syntax$1)" -"(let-values(((datum->syntax6_0)" +"(let-values(((datum->syntax6_192)" "(lambda(stx-c4_0 s5_0 stx-l2_0 stx-p3_0)" "(begin" " 'datum->syntax6" -"(let-values(((stx-c_0) stx-c4_0))" -"(let-values(((s_58) s5_0))" -"(let-values(((stx-l_0) stx-l2_0))" -"(let-values(((stx-p_0) stx-p3_0))" +"(let-values(((stx-c_197) stx-c4_0))" +"(let-values(((s_198) s5_0))" +"(let-values(((stx-l_199) stx-l2_0))" +"(let-values(((stx-p_200) stx-p3_0))" "(let-values()" -"(if(syntax?$1 s_58)" -"(let-values() s_58)" +"(if(syntax?$1 s_198)" +"(let-values() s_198)" "(let-values()" -"(let-values(((wrap_0)" -"(lambda(content_1)" +"(let-values(((wrap_201)" +"(lambda(content_0)" "(begin" " 'wrap" "(syntax1.1" -" content_1" -"(if stx-c_0(syntax-scopes stx-c_0) empty-scopes)" -"(if stx-c_0" -"(syntax-shifted-multi-scopes stx-c_0)" +" content_0" +"(if stx-c_197(syntax-scopes stx-c_197) empty-scopes)" +"(if stx-c_197" +"(syntax-shifted-multi-scopes stx-c_197)" " empty-shifted-multi-scopes)" -"(if stx-c_0" -"(if(syntax-tamper stx-c_0)" -"(tamper-tainted-for-content content_1)" +"(if stx-c_197" +"(if(syntax-tamper stx-c_197)" +"(tamper-tainted-for-content content_0)" " #f)" " #f)" -"(if stx-c_0(syntax-mpi-shifts stx-c_0) empty-mpi-shifts)" -"(if stx-l_0(syntax-srcloc stx-l_0) #f)" +"(if stx-c_197(syntax-mpi-shifts stx-c_197) empty-mpi-shifts)" +"(if stx-l_199(syntax-srcloc stx-l_199) #f)" " empty-props" -"(if stx-c_0(syntax-inspector stx-c_0) #f))))))" -"(let-values(((result-s_0)" -"(let-values(((s_59) s_58)" -"((f_25)" -"(lambda(tail?_11 x_25)" -"(begin 'f(if tail?_11 x_25(wrap_0 x_25)))))" -"((s->_0)(lambda(s_60)(begin 's-> s_60)))" -"((seen_5) disallow-cycles))" -"(let-values(((s_61) s_59)" -"((f_26) f_25)" -"((gf_2)" -"(lambda(tail?_12 v_67)" +"(if stx-c_197(syntax-inspector stx-c_197) #f))))))" +"(let-values(((result-s_202)" +"(let-values(((s_204) s_198)" +"((f_205)" +"(lambda(tail?_0 x_0)" +"(begin 'f(if tail?_0 x_0(wrap_201 x_0)))))" +"((s->_206)(lambda(s_0)(begin 's-> s_0)))" +"((seen_207) disallow-cycles))" +"(let-values(((s_211) s_204)" +"((f_212) f_205)" +"((gf_213)" +"(lambda(tail?_0 v_0)" "(begin" " 'gf" -"(if(syntax?$1 v_67)" -"(let-values()(s->_0 v_67))" -"(let-values()(f_25 tail?_12 v_67))))))" -"((seen_6) seen_5))" -"((letrec-values(((loop_66)" -"(lambda(tail?_13 s_62 prev-depth_2)" +"(if(syntax?$1 v_0)" +"(let-values()(s->_206 v_0))" +"(let-values()(f_205 tail?_0 v_0))))))" +"((seen_214) seen_207))" +"((letrec-values(((loop_217)" +"(lambda(tail?_0 s_0 prev-depth_0)" "(begin" " 'loop" -"(let-values(((depth_2)" -"(fx+ 1 prev-depth_2)))" -"(if(if seen_6(fx> depth_2 32) #f)" +"(let-values(((depth_221)" +"(fx+ 1 prev-depth_0)))" +"(if(if seen_214(fx> depth_221 32) #f)" "(let-values()" "(datum-map-slow" -" tail?_13" -" s_62" -"(lambda(tail?_14 s_63)" -"(gf_2 tail?_14 s_63))" -" seen_6))" -"(if(null? s_62)" -"(let-values()(f_26 tail?_13 s_62))" -"(if(pair? s_62)" +" tail?_0" +" s_0" +"(lambda(tail?_1 s_1)" +"(gf_213 tail?_1 s_1))" +" seen_214))" +"(if(null? s_0)" +"(let-values()(f_212 tail?_0 s_0))" +"(if(pair? s_0)" "(let-values()" -"(f_26" -" tail?_13" +"(f_212" +" tail?_0" "(cons" -"(loop_66 #f(car s_62) depth_2)" -"(loop_66" +"(loop_217" +" #f" +"(car s_0)" +" depth_221)" +"(loop_217" " #t" -"(cdr s_62)" -" depth_2))))" -"(if(symbol? s_62)" -"(let-values()(f_26 #f s_62))" -"(if(boolean? s_62)" -"(let-values()(f_26 #f s_62))" -"(if(number? s_62)" -"(let-values()(f_26 #f s_62))" -"(if(let-values(((or-part_87)" +"(cdr s_0)" +" depth_221))))" +"(if(symbol? s_0)" +"(let-values()(f_212 #f s_0))" +"(if(boolean? s_0)" +"(let-values()(f_212 #f s_0))" +"(if(number? s_0)" +"(let-values()(f_212 #f s_0))" +"(if(let-values(((or-part_224)" "(vector?" -" s_62)))" -"(if or-part_87" -" or-part_87" -"(let-values(((or-part_88)" +" s_0)))" +"(if or-part_224" +" or-part_224" +"(let-values(((or-part_225)" "(box?" -" s_62)))" -"(if or-part_88" -" or-part_88" -"(let-values(((or-part_89)" +" s_0)))" +"(if or-part_225" +" or-part_225" +"(let-values(((or-part_226)" "(prefab-struct-key" -" s_62)))" -"(if or-part_89" -" or-part_89" +" s_0)))" +"(if or-part_226" +" or-part_226" "(hash?" -" s_62)))))))" +" s_0)))))))" "(let-values()" "(datum-map-slow" -" tail?_13" -" s_62" -"(lambda(tail?_15 s_64)" -"(gf_2 tail?_15 s_64))" -" seen_6))" +" tail?_0" +" s_0" +"(lambda(tail?_1 s_1)" +"(gf_213 tail?_1 s_1))" +" seen_214))" "(let-values()" -"(gf_2" +"(gf_213" " #f" -" s_62))))))))))))))" -" loop_66)" +" s_0))))))))))))))" +" loop_217)" " #f" -" s_61" +" s_211" " 0)))))" -"(if(if stx-p_0(not(eq?(syntax-props stx-p_0) empty-props)) #f)" -"(let-values(((the-struct_0) result-s_0))" -"(if(syntax?$1 the-struct_0)" -"(let-values(((props19_0)(syntax-props stx-p_0)))" +"(if(if stx-p_200(not(eq?(syntax-props stx-p_200) empty-props)) #f)" +"(let-values(((the-struct_229) result-s_202))" +"(if(syntax?$1 the-struct_229)" +"(let-values(((props19_230)(syntax-props stx-p_200)))" "(syntax1.1" -"(syntax-content the-struct_0)" -"(syntax-scopes the-struct_0)" -"(syntax-shifted-multi-scopes the-struct_0)" -"(syntax-scope-propagations+tamper the-struct_0)" -"(syntax-mpi-shifts the-struct_0)" -"(syntax-srcloc the-struct_0)" -" props19_0" -"(syntax-inspector the-struct_0)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_0)))" -" result-s_0))))))))))))))" +"(syntax-content the-struct_229)" +"(syntax-scopes the-struct_229)" +"(syntax-shifted-multi-scopes the-struct_229)" +"(syntax-scope-propagations+tamper the-struct_229)" +"(syntax-mpi-shifts the-struct_229)" +"(syntax-srcloc the-struct_229)" +" props19_230" +"(syntax-inspector the-struct_229)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_229)))" +" result-s_202))))))))))))))" "(case-lambda" -"((stx-c_1 s_65)(begin 'datum->syntax(datum->syntax6_0 stx-c_1 s_65 #f #f)))" -"((stx-c_2 s_66 stx-l_1 stx-p3_1)(datum->syntax6_0 stx-c_2 s_66 stx-l_1 stx-p3_1))" -"((stx-c_3 s_67 stx-l2_1)(datum->syntax6_0 stx-c_3 s_67 stx-l2_1 #f)))))" +"((stx-c_0 s_0)(begin 'datum->syntax(datum->syntax6_192 stx-c_0 s_0 #f #f)))" +"((stx-c_0 s_0 stx-l_0 stx-p3_0)(datum->syntax6_192 stx-c_0 s_0 stx-l_0 stx-p3_0))" +"((stx-c_0 s_0 stx-l2_0)(datum->syntax6_192 stx-c_0 s_0 stx-l2_0 #f)))))" "(define-values" "(disallow-cycles)" "(hasheq" " 'cycle-fail" -" (lambda (s_68) (raise-arguments-error 'datum->syntax \"cannot create syntax from cyclic datum\" \"datum\" s_68))))" +" (lambda (s_0) (raise-arguments-error 'datum->syntax \"cannot create syntax from cyclic datum\" \"datum\" s_0))))" "(define-values" "(struct:syntax-state" " syntax-state17.1" @@ -5929,89 +5994,89 @@ static const char *startup_source = " syntax-state-context-triple" " syntax-state-srcloc" " set-syntax-state-all-sharing?!)" -"(let-values(((struct:_5 make-_5 ?_5 -ref_5 -set!_5)" +"(let-values(((struct:_241 make-_242 ?_243 -ref_244 -set!_245)" "(let-values()" "(let-values()" "(make-struct-type 'syntax-state #f 3 0 #f null(current-inspector) #f '(1 2) #f 'syntax-state)))))" "(values" -" struct:_5" -" make-_5" -" ?_5" -"(make-struct-field-accessor -ref_5 0 'all-sharing?)" -"(make-struct-field-accessor -ref_5 1 'context-triple)" -"(make-struct-field-accessor -ref_5 2 'srcloc)" -"(make-struct-field-mutator -set!_5 0 'all-sharing?))))" +" struct:_241" +" make-_242" +" ?_243" +"(make-struct-field-accessor -ref_244 0 'all-sharing?)" +"(make-struct-field-accessor -ref_244 1 'context-triple)" +"(make-struct-field-accessor -ref_244 2 'srcloc)" +"(make-struct-field-mutator -set!_245 0 'all-sharing?))))" "(define-values" "(no-pair-syntax-in-cdr?)" -"(lambda(content_2)" +"(lambda(content_0)" "(begin" -"(if(pair? content_2)" +"(if(pair? content_0)" "(let-values()" -"((letrec-values(((loop_67)" -"(lambda(content_3)" +"((letrec-values(((loop_272)" +"(lambda(content_1)" "(begin" " 'loop" -"(if(if(syntax?$1 content_3)(pair?(syntax-content content_3)) #f)" +"(if(if(syntax?$1 content_1)(pair?(syntax-content content_1)) #f)" "(let-values() #f)" -"(if(pair? content_3)" -"(let-values()(loop_67(cdr content_3)))" +"(if(pair? content_1)" +"(let-values()(loop_272(cdr content_1)))" "(let-values() #t)))))))" -" loop_67)" -"(cdr content_2)))" +" loop_272)" +"(cdr content_0)))" "(let-values() #t)))))" "(define-values" "(deserialize-syntax)" -"(lambda(content_4 context-triple_1 srcloc_1 props_0 tamper_1 inspector_0)" +"(lambda(content_0 context-triple_0 srcloc_0 props_0 tamper_0 inspector_0)" "(begin" "(syntax1.1" -" content_4" -"(vector*-ref context-triple_1 0)" -"(vector*-ref context-triple_1 1)" -"(deserialize-tamper tamper_1)" -"(vector*-ref context-triple_1 2)" -" srcloc_1" +" content_0" +"(vector*-ref context-triple_0 0)" +"(vector*-ref context-triple_0 1)" +"(deserialize-tamper tamper_0)" +"(vector*-ref context-triple_0 2)" +" srcloc_0" "(if props_0" -"(let-values(((ht_29) props_0))" +"(let-values(((ht_280) props_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_29)))" -"((letrec-values(((for-loop_31)" -"(lambda(table_30 i_49)" +"(let-values()(check-in-immutable-hash ht_280)))" +"((letrec-values(((for-loop_281)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_49" -"(let-values(((k_16 v_68)(unsafe-immutable-hash-iterate-key+value ht_29 i_49)))" -"(let-values(((table_31)" -"(let-values(((table_32) table_30))" -"(let-values(((table_33)" +"(if i_0" +"(let-values(((k_284 v_285)(unsafe-immutable-hash-iterate-key+value ht_280 i_0)))" +"(let-values(((table_286)" +"(let-values(((table_287) table_0))" +"(let-values(((table_288)" "(let-values()" -"(let-values(((key_17 val_8)" +"(let-values(((key_289 val_290)" "(let-values()" "(values" -" k_16" +" k_284" "(preserved-property-value1.1" -" v_68)))))" -"(hash-set table_32 key_17 val_8)))))" -"(values table_33)))))" +" v_285)))))" +"(hash-set table_287 key_289 val_290)))))" +"(values table_288)))))" "(if(not #f)" -"(for-loop_31 table_31(unsafe-immutable-hash-iterate-next ht_29 i_49))" -" table_31)))" -" table_30)))))" -" for-loop_31)" +"(for-loop_281 table_286(unsafe-immutable-hash-iterate-next ht_280 i_0))" +" table_286)))" +" table_0)))))" +" for-loop_281)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_29))))" +"(unsafe-immutable-hash-iterate-first ht_280))))" " empty-props)" " inspector_0))))" "(define-values" "(deserialize-datum->syntax)" -"(lambda(content_5 context-triple_2 srcloc_2 inspector_1)" +"(lambda(content_0 context-triple_0 srcloc_0 inspector_0)" "(begin" -"(let-values(((s_69)(deserialize-syntax #f context-triple_2 srcloc_2 #f #f inspector_1)))" -"(datum->syntax$1 s_69 content_5 s_69 s_69)))))" +"(let-values(((s_295)(deserialize-syntax #f context-triple_0 srcloc_0 #f #f inspector_0)))" +"(datum->syntax$1 s_295 content_0 s_295 s_295)))))" "(define-values" "(struct:full-binding full-binding1.1 full-binding? full-binding-frame-id full-binding-free=id)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -6022,20 +6087,20 @@ static const char *startup_source = " #f" "(list" "(cons prop:authentic #t)" -"(cons prop:binding-reach-scopes(lambda(b_21)(binding-free=id b_21))))" +"(cons prop:binding-reach-scopes(lambda(b_0)(binding-free=id b_0))))" "(current-inspector)" " #f" " '(0 1)" " #f" " 'full-binding)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 'frame-id)" -"(make-struct-field-accessor -ref_0 1 'free=id))))" -"(define-values(binding-frame-id)(lambda(b_22)(begin(if(full-binding? b_22)(full-binding-frame-id b_22) #f))))" -"(define-values(binding-free=id)(lambda(b_11)(begin(if(full-binding? b_11)(full-binding-free=id b_11) #f))))" +" struct:_1" +" make-_2" +" ?_3" +"(make-struct-field-accessor -ref_4 0 'frame-id)" +"(make-struct-field-accessor -ref_4 1 'free=id))))" +"(define-values(binding-frame-id)(lambda(b_0)(begin(if(full-binding? b_0)(full-binding-frame-id b_0) #f))))" +"(define-values(binding-free=id)(lambda(b_0)(begin(if(full-binding? b_0)(full-binding-free=id b_0) #f))))" "(define-values" "(make-module-binding22.1)" "(lambda(extra-inspector8_0" @@ -6052,56 +6117,57 @@ static const char *startup_source = " sym21_0)" "(begin" " 'make-module-binding22" -"(let-values(((module_0) module19_0))" -"(let-values(((phase_0) phase20_0))" -"(let-values(((sym_0) sym21_0))" +"(let-values(((module_13) module19_0))" +"(let-values(((phase_14) phase20_0))" +"(let-values(((sym_15) sym21_0))" "(let-values()" -"(let-values(((nominal-module_0)" -"(if(eq? nominal-module2_0 unsafe-undefined) module_0 nominal-module2_0)))" -"(let-values(((nominal-phase_0)(if(eq? nominal-phase3_0 unsafe-undefined) phase_0 nominal-phase3_0)))" -"(let-values(((nominal-sym_0)(if(eq? nominal-sym4_0 unsafe-undefined) sym_0 nominal-sym4_0)))" -"(let-values(((nominal-require-phase_0) nominal-require-phase5_0))" -"(let-values(((frame-id_0) frame-id6_0))" -"(let-values(((free=id_0) free=id7_0))" -"(let-values(((extra-inspector_0) extra-inspector8_0))" -"(let-values(((extra-nominal-bindings_0) extra-nominal-bindings9_0))" +"(let-values(((nominal-module_17)" +"(if(eq? nominal-module2_0 unsafe-undefined) module_13 nominal-module2_0)))" +"(let-values(((nominal-phase_18)" +"(if(eq? nominal-phase3_0 unsafe-undefined) phase_14 nominal-phase3_0)))" +"(let-values(((nominal-sym_19)(if(eq? nominal-sym4_0 unsafe-undefined) sym_15 nominal-sym4_0)))" +"(let-values(((nominal-require-phase_20) nominal-require-phase5_0))" +"(let-values(((frame-id_21) frame-id6_0))" +"(let-values(((free=id_22) free=id7_0))" +"(let-values(((extra-inspector_23) extra-inspector8_0))" +"(let-values(((extra-nominal-bindings_24) extra-nominal-bindings9_0))" "(let-values()" -"(if(let-values(((or-part_90) frame-id_0))" -"(if or-part_90" -" or-part_90" -"(let-values(((or-part_91) free=id_0))" -"(if or-part_91" -" or-part_91" -"(let-values(((or-part_92) extra-inspector_0))" -"(if or-part_92" -" or-part_92" +"(if(let-values(((or-part_25) frame-id_21))" +"(if or-part_25" +" or-part_25" +"(let-values(((or-part_26) free=id_22))" +"(if or-part_26" +" or-part_26" +"(let-values(((or-part_27) extra-inspector_23))" +"(if or-part_27" +" or-part_27" "(not" -"(if(eqv? nominal-phase_0 phase_0)" -"(if(eq? nominal-sym_0 sym_0)" -"(if(eqv? nominal-require-phase_0 0)" -"(null? extra-nominal-bindings_0)" +"(if(eqv? nominal-phase_18 phase_14)" +"(if(eq? nominal-sym_19 sym_15)" +"(if(eqv? nominal-require-phase_20 0)" +"(null? extra-nominal-bindings_24)" " #f)" " #f)" " #f))))))))" "(let-values()" "(full-module-binding51.1" -" frame-id_0" -" free=id_0" -" module_0" -" phase_0" -" sym_0" -" nominal-module_0" -" nominal-phase_0" -" nominal-sym_0" -" nominal-require-phase_0" -" extra-inspector_0" -" extra-nominal-bindings_0))" +" frame-id_21" +" free=id_22" +" module_13" +" phase_14" +" sym_15" +" nominal-module_17" +" nominal-phase_18" +" nominal-sym_19" +" nominal-require-phase_20" +" extra-inspector_23" +" extra-nominal-bindings_24))" "(let-values()" "(simple-module-binding52.1" -" module_0" -" phase_0" -" sym_0" -" nominal-module_0)))))))))))))))))))" +" module_13" +" phase_14" +" sym_15" +" nominal-module_17)))))))))))))))))))" "(define-values" "(module-binding-update48.1)" "(lambda(extra-inspector34_0" @@ -6118,69 +6184,69 @@ static const char *startup_source = " b47_0)" "(begin" " 'module-binding-update48" -"(let-values(((b_23) b47_0))" -"(let-values(((module_1)(if(eq? module25_0 unsafe-undefined)(module-binding-module b_23) module25_0)))" -"(let-values(((phase_1)(if(eq? phase26_0 unsafe-undefined)(module-binding-phase b_23) phase26_0)))" -"(let-values(((sym_1)(if(eq? sym27_0 unsafe-undefined)(module-binding-sym b_23) sym27_0)))" -"(let-values(((nominal-module_1)" +"(let-values(((b_108) b47_0))" +"(let-values(((module_109)(if(eq? module25_0 unsafe-undefined)(module-binding-module b_108) module25_0)))" +"(let-values(((phase_110)(if(eq? phase26_0 unsafe-undefined)(module-binding-phase b_108) phase26_0)))" +"(let-values(((sym_111)(if(eq? sym27_0 unsafe-undefined)(module-binding-sym b_108) sym27_0)))" +"(let-values(((nominal-module_112)" "(if(eq? nominal-module28_0 unsafe-undefined)" -"(module-binding-nominal-module b_23)" +"(module-binding-nominal-module b_108)" " nominal-module28_0)))" -"(let-values(((nominal-phase_1)" +"(let-values(((nominal-phase_113)" "(if(eq? nominal-phase29_0 unsafe-undefined)" -"(module-binding-nominal-phase b_23)" +"(module-binding-nominal-phase b_108)" " nominal-phase29_0)))" -"(let-values(((nominal-sym_1)" +"(let-values(((nominal-sym_114)" "(if(eq? nominal-sym30_0 unsafe-undefined)" -"(module-binding-nominal-sym b_23)" +"(module-binding-nominal-sym b_108)" " nominal-sym30_0)))" -"(let-values(((nominal-require-phase_1)" +"(let-values(((nominal-require-phase_115)" "(if(eq? nominal-require-phase31_0 unsafe-undefined)" -"(module-binding-nominal-require-phase b_23)" +"(module-binding-nominal-require-phase b_108)" " nominal-require-phase31_0)))" -"(let-values(((frame-id_1)" -"(if(eq? frame-id32_0 unsafe-undefined)(binding-frame-id b_23) frame-id32_0)))" -"(let-values(((free=id_1)" -"(if(eq? free=id33_0 unsafe-undefined)(binding-free=id b_23) free=id33_0)))" -"(let-values(((extra-inspector_1)" +"(let-values(((frame-id_116)" +"(if(eq? frame-id32_0 unsafe-undefined)(binding-frame-id b_108) frame-id32_0)))" +"(let-values(((free=id_117)" +"(if(eq? free=id33_0 unsafe-undefined)(binding-free=id b_108) free=id33_0)))" +"(let-values(((extra-inspector_118)" "(if(eq? extra-inspector34_0 unsafe-undefined)" -"(module-binding-extra-inspector b_23)" +"(module-binding-extra-inspector b_108)" " extra-inspector34_0)))" -"(let-values(((extra-nominal-bindings_1)" +"(let-values(((extra-nominal-bindings_119)" "(if(eq? extra-nominal-bindings35_0 unsafe-undefined)" -"(module-binding-extra-nominal-bindings b_23)" +"(module-binding-extra-nominal-bindings b_108)" " extra-nominal-bindings35_0)))" "(let-values()" -"(let-values(((module53_0) module_1)" -"((phase54_0) phase_1)" -"((sym55_0) sym_1)" -"((nominal-module56_0) nominal-module_1)" -"((nominal-phase57_0) nominal-phase_1)" -"((nominal-sym58_0) nominal-sym_1)" -"((nominal-require-phase59_0) nominal-require-phase_1)" -"((frame-id60_0) frame-id_1)" -"((free=id61_0) free=id_1)" -"((extra-inspector62_0) extra-inspector_1)" -"((extra-nominal-bindings63_0) extra-nominal-bindings_1))" +"(let-values(((module53_121) module_109)" +"((phase54_122) phase_110)" +"((sym55_123) sym_111)" +"((nominal-module56_124) nominal-module_112)" +"((nominal-phase57_125) nominal-phase_113)" +"((nominal-sym58_126) nominal-sym_114)" +"((nominal-require-phase59_127) nominal-require-phase_115)" +"((frame-id60_128) frame-id_116)" +"((free=id61_129) free=id_117)" +"((extra-inspector62_130) extra-inspector_118)" +"((extra-nominal-bindings63_131) extra-nominal-bindings_119))" "(make-module-binding22.1" -" extra-inspector62_0" -" extra-nominal-bindings63_0" -" frame-id60_0" -" free=id61_0" -" nominal-module56_0" -" nominal-phase57_0" -" nominal-require-phase59_0" -" nominal-sym58_0" +" extra-inspector62_130" +" extra-nominal-bindings63_131" +" frame-id60_128" +" free=id61_129" +" nominal-module56_124" +" nominal-phase57_125" +" nominal-require-phase59_127" +" nominal-sym58_126" " unsafe-undefined" -" module53_0" -" phase54_0" -" sym55_0))))))))))))))))))" +" module53_121" +" phase54_122" +" sym55_123))))))))))))))))))" "(define-values" "(module-binding?)" -"(lambda(b_24)" +"(lambda(b_0)" "(begin" -"(let-values(((or-part_93)(simple-module-binding? b_24)))" -"(if or-part_93 or-part_93(full-module-binding? b_24))))))" +"(let-values(((or-part_207)(simple-module-binding? b_0)))" +"(if or-part_207 or-part_207(full-module-binding? b_0))))))" "(define-values" "(struct:full-module-binding" " full-module-binding51.1" @@ -6194,7 +6260,7 @@ static const char *startup_source = " full-module-binding-nominal-require-phase" " full-module-binding-extra-inspector" " full-module-binding-extra-nominal-bindings)" -"(let-values(((struct:_6 make-_6 ?_6 -ref_6 -set!_6)" +"(let-values(((struct:_208 make-_209 ?_210 -ref_211 -set!_212)" "(let-values()" "(let-values()" "(make-struct-type" @@ -6207,14 +6273,14 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(b_25 ser-push!_2 state_11)" -"(let-values(((simplified-b_0)" -"(if(full-binding-frame-id b_25)" -"(let-values(((b65_0) b_25)((temp66_0) #f))" +"(lambda(b_0 ser-push!_0 state_0)" +"(let-values(((simplified-b_271)" +"(if(full-binding-frame-id b_0)" +"(let-values(((b65_273) b_0)((temp66_274) #f))" "(module-binding-update48.1" " unsafe-undefined" " unsafe-undefined" -" temp66_0" +" temp66_274" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" @@ -6223,43 +6289,43 @@ static const char *startup_source = " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" -" b65_0))" -" b_25)))" -"(if(full-module-binding? simplified-b_0)" +" b65_273))" +" b_0)))" +"(if(full-module-binding? simplified-b_271)" "(let-values()" "(begin" -"(ser-push!_2 'tag '#:module-binding)" -"(ser-push!_2(full-module-binding-module b_25))" -"(ser-push!_2(full-module-binding-sym b_25))" -"(ser-push!_2(full-module-binding-phase b_25))" -"(ser-push!_2(full-module-binding-nominal-module b_25))" -"(ser-push!_2(full-module-binding-nominal-phase b_25))" -"(ser-push!_2(full-module-binding-nominal-sym b_25))" -"(ser-push!_2(full-module-binding-nominal-require-phase b_25))" -"(ser-push!_2(full-binding-free=id b_25))" -"(if(full-module-binding-extra-inspector b_25)" -"(ser-push!_2 'tag '#:inspector)" -"(ser-push!_2 #f))" -"(ser-push!_2(full-module-binding-extra-nominal-bindings b_25))))" -"(let-values()(ser-push!_2 simplified-b_0)))))))" +"(ser-push!_0 'tag '#:module-binding)" +"(ser-push!_0(full-module-binding-module b_0))" +"(ser-push!_0(full-module-binding-sym b_0))" +"(ser-push!_0(full-module-binding-phase b_0))" +"(ser-push!_0(full-module-binding-nominal-module b_0))" +"(ser-push!_0(full-module-binding-nominal-phase b_0))" +"(ser-push!_0(full-module-binding-nominal-sym b_0))" +"(ser-push!_0(full-module-binding-nominal-require-phase b_0))" +"(ser-push!_0(full-binding-free=id b_0))" +"(if(full-module-binding-extra-inspector b_0)" +"(ser-push!_0 'tag '#:inspector)" +"(ser-push!_0 #f))" +"(ser-push!_0(full-module-binding-extra-nominal-bindings b_0))))" +"(let-values()(ser-push!_0 simplified-b_271)))))))" " #f" " #f" " '(0 1 2 3 4 5 6 7 8)" " #f" " 'full-module-binding)))))" "(values" -" struct:_6" -" make-_6" -" ?_6" -"(make-struct-field-accessor -ref_6 0 'module)" -"(make-struct-field-accessor -ref_6 1 'phase)" -"(make-struct-field-accessor -ref_6 2 'sym)" -"(make-struct-field-accessor -ref_6 3 'nominal-module)" -"(make-struct-field-accessor -ref_6 4 'nominal-phase)" -"(make-struct-field-accessor -ref_6 5 'nominal-sym)" -"(make-struct-field-accessor -ref_6 6 'nominal-require-phase)" -"(make-struct-field-accessor -ref_6 7 'extra-inspector)" -"(make-struct-field-accessor -ref_6 8 'extra-nominal-bindings))))" +" struct:_208" +" make-_209" +" ?_210" +"(make-struct-field-accessor -ref_211 0 'module)" +"(make-struct-field-accessor -ref_211 1 'phase)" +"(make-struct-field-accessor -ref_211 2 'sym)" +"(make-struct-field-accessor -ref_211 3 'nominal-module)" +"(make-struct-field-accessor -ref_211 4 'nominal-phase)" +"(make-struct-field-accessor -ref_211 5 'nominal-sym)" +"(make-struct-field-accessor -ref_211 6 'nominal-require-phase)" +"(make-struct-field-accessor -ref_211 7 'extra-inspector)" +"(make-struct-field-accessor -ref_211 8 'extra-nominal-bindings))))" "(define-values" "(struct:simple-module-binding" " simple-module-binding52.1" @@ -6268,7 +6334,7 @@ static const char *startup_source = " simple-module-binding-phase" " simple-module-binding-sym" " simple-module-binding-nominal-module)" -"(let-values(((struct:_7 make-_7 ?_7 -ref_7 -set!_7)" +"(let-values(((struct:_275 make-_276 ?_277 -ref_278 -set!_279)" "(let-values()" "(let-values()" "(make-struct-type" @@ -6281,103 +6347,103 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(b_26 ser-push!_3 state_12)" +"(lambda(b_0 ser-push!_0 state_0)" "(begin" -"(ser-push!_3 'tag '#:simple-module-binding)" -"(ser-push!_3(simple-module-binding-module b_26))" -"(ser-push!_3(simple-module-binding-sym b_26))" -"(ser-push!_3(simple-module-binding-phase b_26))" -"(ser-push!_3(simple-module-binding-nominal-module b_26))))))" +"(ser-push!_0 'tag '#:simple-module-binding)" +"(ser-push!_0(simple-module-binding-module b_0))" +"(ser-push!_0(simple-module-binding-sym b_0))" +"(ser-push!_0(simple-module-binding-phase b_0))" +"(ser-push!_0(simple-module-binding-nominal-module b_0))))))" " #f" " #f" " '(0 1 2 3)" " #f" " 'simple-module-binding)))))" "(values" -" struct:_7" -" make-_7" -" ?_7" -"(make-struct-field-accessor -ref_7 0 'module)" -"(make-struct-field-accessor -ref_7 1 'phase)" -"(make-struct-field-accessor -ref_7 2 'sym)" -"(make-struct-field-accessor -ref_7 3 'nominal-module))))" +" struct:_275" +" make-_276" +" ?_277" +"(make-struct-field-accessor -ref_278 0 'module)" +"(make-struct-field-accessor -ref_278 1 'phase)" +"(make-struct-field-accessor -ref_278 2 'sym)" +"(make-struct-field-accessor -ref_278 3 'nominal-module))))" "(define-values" "(deserialize-full-module-binding)" -"(lambda(module_2" -" sym_2" -" phase_2" -" nominal-module_2" -" nominal-phase_2" -" nominal-sym_2" -" nominal-require-phase_2" -" free=id_2" -" extra-inspector_2" -" extra-nominal-bindings_2)" +"(lambda(module_0" +" sym_0" +" phase_0" +" nominal-module_0" +" nominal-phase_0" +" nominal-sym_0" +" nominal-require-phase_0" +" free=id_0" +" extra-inspector_0" +" extra-nominal-bindings_0)" "(begin" -"(let-values(((module68_0) module_2)" -"((phase69_0) phase_2)" -"((sym70_0) sym_2)" -"((nominal-module71_0) nominal-module_2)" -"((nominal-phase72_0) nominal-phase_2)" -"((nominal-sym73_0) nominal-sym_2)" -"((nominal-require-phase74_0) nominal-require-phase_2)" -"((free=id75_0) free=id_2)" -"((extra-inspector76_0) extra-inspector_2)" -"((extra-nominal-bindings77_0) extra-nominal-bindings_2))" +"(let-values(((module68_324) module_0)" +"((phase69_325) phase_0)" +"((sym70_326) sym_0)" +"((nominal-module71_327) nominal-module_0)" +"((nominal-phase72_328) nominal-phase_0)" +"((nominal-sym73_329) nominal-sym_0)" +"((nominal-require-phase74_330) nominal-require-phase_0)" +"((free=id75_331) free=id_0)" +"((extra-inspector76_332) extra-inspector_0)" +"((extra-nominal-bindings77_333) extra-nominal-bindings_0))" "(make-module-binding22.1" -" extra-inspector76_0" -" extra-nominal-bindings77_0" +" extra-inspector76_332" +" extra-nominal-bindings77_333" " #f" -" free=id75_0" -" nominal-module71_0" -" nominal-phase72_0" -" nominal-require-phase74_0" -" nominal-sym73_0" +" free=id75_331" +" nominal-module71_327" +" nominal-phase72_328" +" nominal-require-phase74_330" +" nominal-sym73_329" " unsafe-undefined" -" module68_0" -" phase69_0" -" sym70_0)))))" +" module68_324" +" phase69_325" +" sym70_326)))))" "(define-values" "(deserialize-simple-module-binding)" -"(lambda(module_3 sym_3 phase_3 nominal-module_3)" -"(begin(simple-module-binding52.1 module_3 phase_3 sym_3 nominal-module_3))))" +"(lambda(module_0 sym_0 phase_0 nominal-module_0)" +"(begin(simple-module-binding52.1 module_0 phase_0 sym_0 nominal-module_0))))" "(define-values" "(module-binding-module)" -"(lambda(b_27)" -"(begin(if(simple-module-binding? b_27)(simple-module-binding-module b_27)(full-module-binding-module b_27)))))" +"(lambda(b_0)" +"(begin(if(simple-module-binding? b_0)(simple-module-binding-module b_0)(full-module-binding-module b_0)))))" "(define-values" "(module-binding-phase)" -"(lambda(b_28)" -"(begin(if(simple-module-binding? b_28)(simple-module-binding-phase b_28)(full-module-binding-phase b_28)))))" +"(lambda(b_0)" +"(begin(if(simple-module-binding? b_0)(simple-module-binding-phase b_0)(full-module-binding-phase b_0)))))" "(define-values" "(module-binding-sym)" -"(lambda(b_29)" -"(begin(if(simple-module-binding? b_29)(simple-module-binding-sym b_29)(full-module-binding-sym b_29)))))" +"(lambda(b_0)" +"(begin(if(simple-module-binding? b_0)(simple-module-binding-sym b_0)(full-module-binding-sym b_0)))))" "(define-values" "(module-binding-nominal-module)" -"(lambda(b_30)" +"(lambda(b_0)" "(begin" -"(if(simple-module-binding? b_30)" -"(simple-module-binding-nominal-module b_30)" -"(full-module-binding-nominal-module b_30)))))" +"(if(simple-module-binding? b_0)" +"(simple-module-binding-nominal-module b_0)" +"(full-module-binding-nominal-module b_0)))))" "(define-values" "(module-binding-nominal-phase)" -"(lambda(b_31)" +"(lambda(b_0)" "(begin" -"(if(simple-module-binding? b_31)(simple-module-binding-phase b_31)(full-module-binding-nominal-phase b_31)))))" +"(if(simple-module-binding? b_0)(simple-module-binding-phase b_0)(full-module-binding-nominal-phase b_0)))))" "(define-values" "(module-binding-nominal-sym)" -"(lambda(b_32)" -"(begin(if(simple-module-binding? b_32)(simple-module-binding-sym b_32)(full-module-binding-nominal-sym b_32)))))" +"(lambda(b_0)" +"(begin(if(simple-module-binding? b_0)(simple-module-binding-sym b_0)(full-module-binding-nominal-sym b_0)))))" "(define-values" "(module-binding-nominal-require-phase)" -"(lambda(b_33)(begin(if(simple-module-binding? b_33) 0(full-module-binding-nominal-require-phase b_33)))))" +"(lambda(b_0)(begin(if(simple-module-binding? b_0) 0(full-module-binding-nominal-require-phase b_0)))))" "(define-values" "(module-binding-extra-inspector)" -"(lambda(b_34)(begin(if(simple-module-binding? b_34) #f(full-module-binding-extra-inspector b_34)))))" +"(lambda(b_0)(begin(if(simple-module-binding? b_0) #f(full-module-binding-extra-inspector b_0)))))" "(define-values" "(module-binding-extra-nominal-bindings)" -"(lambda(b_35)(begin(if(simple-module-binding? b_35) null(full-module-binding-extra-nominal-bindings b_35)))))" +"(lambda(b_0)(begin(if(simple-module-binding? b_0) null(full-module-binding-extra-nominal-bindings b_0)))))" "(define-values(empty-binding-table) '#hasheq())" "(define-values" "(struct:table-with-bulk-bindings" @@ -6386,7 +6452,7 @@ static const char *startup_source = " table-with-bulk-bindings-syms" " table-with-bulk-bindings-syms/serialize" " table-with-bulk-bindings-bulk-bindings)" -"(let-values(((struct:_8 make-_8 ?_8 -ref_8 -set!_8)" +"(let-values(((struct:_40 make-_41 ?_42 -ref_43 -set!_44)" "(let-values()" "(let-values()" "(make-struct-type" @@ -6399,29 +6465,29 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(twbb_0 ser-push!_4 state_13)" +"(lambda(twbb_0 ser-push!_0 state_0)" "(begin" -"(ser-push!_4 'tag '#:table-with-bulk-bindings)" -"(ser-push!_4(table-with-bulk-bindings-syms/serialize twbb_0))" -"(ser-push!_4(table-with-bulk-bindings-bulk-bindings twbb_0))))))" +"(ser-push!_0 'tag '#:table-with-bulk-bindings)" +"(ser-push!_0(table-with-bulk-bindings-syms/serialize twbb_0))" +"(ser-push!_0(table-with-bulk-bindings-bulk-bindings twbb_0))))))" "(current-inspector)" " #f" " '(0 1 2)" " #f" " 'table-with-bulk-bindings)))))" "(values" -" struct:_8" -" make-_8" -" ?_8" -"(make-struct-field-accessor -ref_8 0 'syms)" -"(make-struct-field-accessor -ref_8 1 'syms/serialize)" -"(make-struct-field-accessor -ref_8 2 'bulk-bindings))))" +" struct:_40" +" make-_41" +" ?_42" +"(make-struct-field-accessor -ref_43 0 'syms)" +"(make-struct-field-accessor -ref_43 1 'syms/serialize)" +"(make-struct-field-accessor -ref_43 2 'bulk-bindings))))" "(define-values" "(deserialize-table-with-bulk-bindings)" -"(lambda(syms_1 bulk-bindings_0)(begin(table-with-bulk-bindings1.1 syms_1 syms_1 bulk-bindings_0))))" +"(lambda(syms_0 bulk-bindings_0)(begin(table-with-bulk-bindings1.1 syms_0 syms_0 bulk-bindings_0))))" "(define-values" "(struct:bulk-binding-at bulk-binding-at2.1 bulk-binding-at? bulk-binding-at-scopes bulk-binding-at-bulk)" -"(let-values(((struct:_9 make-_9 ?_9 -ref_9 -set!_9)" +"(let-values(((struct:_75 make-_76 ?_77 -ref_78 -set!_79)" "(let-values()" "(let-values()" "(make-struct-type" @@ -6432,25 +6498,25 @@ static const char *startup_source = " #f" "(list" "(cons prop:authentic #t)" -" (cons prop:reach-scopes (lambda (sms_2 reach_1) (error \"shouldn't get here\")))" +" (cons prop:reach-scopes (lambda (sms_0 reach_0) (error \"shouldn't get here\")))" "(cons" " prop:serialize" -"(lambda(bba_0 ser-push!_5 state_14)" +"(lambda(bba_0 ser-push!_0 state_0)" "(begin" -"(ser-push!_5 'tag '#:bulk-binding-at)" -"(ser-push!_5(bulk-binding-at-scopes bba_0))" -"(ser-push!_5(bulk-binding-at-bulk bba_0))))))" +"(ser-push!_0 'tag '#:bulk-binding-at)" +"(ser-push!_0(bulk-binding-at-scopes bba_0))" +"(ser-push!_0(bulk-binding-at-bulk bba_0))))))" "(current-inspector)" " #f" " '(0 1)" " #f" " 'bulk-binding-at)))))" "(values" -" struct:_9" -" make-_9" -" ?_9" -"(make-struct-field-accessor -ref_9 0 'scopes)" -"(make-struct-field-accessor -ref_9 1 'bulk))))" +" struct:_75" +" make-_76" +" ?_77" +"(make-struct-field-accessor -ref_78 0 'scopes)" +"(make-struct-field-accessor -ref_78 1 'bulk))))" "(define-values(deserialize-bulk-binding-at)(lambda(scopes_0 bulk_0)(begin(bulk-binding-at2.1 scopes_0 bulk_0))))" "(define-values(prop:bulk-binding bulk-binding?$1 bulk-binding-ref)(make-struct-type-property 'bulk-binding))" "(define-values" @@ -6459,7 +6525,7 @@ static const char *startup_source = " bulk-binding-class?" " bulk-binding-class-get-symbols" " bulk-binding-class-create)" -"(let-values(((struct:_10 make-_10 ?_10 -ref_10 -set!_10)" +"(let-values(((struct:_107 make-_108 ?_109 -ref_110 -set!_111)" "(let-values()" "(let-values()" "(make-struct-type" @@ -6475,56 +6541,56 @@ static const char *startup_source = " #f" " 'bulk-binding-class)))))" "(values" -" struct:_10" -" make-_10" -" ?_10" -"(make-struct-field-accessor -ref_10 0 'get-symbols)" -"(make-struct-field-accessor -ref_10 1 'create))))" +" struct:_107" +" make-_108" +" ?_109" +"(make-struct-field-accessor -ref_110 0 'get-symbols)" +"(make-struct-field-accessor -ref_110 1 'create))))" "(define-values" "(bulk-binding-symbols)" -"(lambda(b_36 s_70 extra-shifts_0)" +"(lambda(b_0 s_0 extra-shifts_0)" "(begin" -"((bulk-binding-class-get-symbols(bulk-binding-ref b_36))" -" b_36" -"(append extra-shifts_0(if s_70(syntax-mpi-shifts s_70) null))))))" -"(define-values(bulk-binding-create)(lambda(b_37)(begin(bulk-binding-class-create(bulk-binding-ref b_37)))))" +"((bulk-binding-class-get-symbols(bulk-binding-ref b_0))" +" b_0" +"(append extra-shifts_0(if s_0(syntax-mpi-shifts s_0) null))))))" +"(define-values(bulk-binding-create)(lambda(b_0)(begin(bulk-binding-class-create(bulk-binding-ref b_0)))))" "(define-values(binding-table-empty?)(lambda(bt_0)(begin(if(hash? bt_0)(zero?(hash-count bt_0)) #f))))" "(define-values" "(binding-table-add)" -"(lambda(bt_1 scopes_1 sym_4 binding_0 just-for-nominal?_0)" +"(lambda(bt_0 scopes_0 sym_0 binding_0 just-for-nominal?_0)" "(begin" -"(if(hash? bt_1)" -"(let-values()(hash-set bt_1 sym_4(hash-set(hash-ref bt_1 sym_4 '#hash()) scopes_1 binding_0)))" +"(if(hash? bt_0)" +"(let-values()(hash-set bt_0 sym_0(hash-set(hash-ref bt_0 sym_0 '#hash()) scopes_0 binding_0)))" "(let-values()" -"(let-values(((new-syms_0)" +"(let-values(((new-syms_142)" "(binding-table-add" -"(table-with-bulk-bindings-syms bt_1)" -" scopes_1" -" sym_4" +"(table-with-bulk-bindings-syms bt_0)" +" scopes_0" +" sym_0" " binding_0" " just-for-nominal?_0)))" -"(let-values(((new-syms/serialize_0)" +"(let-values(((new-syms/serialize_143)" "(if just-for-nominal?_0" -"(let-values()(table-with-bulk-bindings-syms/serialize bt_1))" +"(let-values()(table-with-bulk-bindings-syms/serialize bt_0))" "(if(eq?" -"(table-with-bulk-bindings-syms bt_1)" -"(table-with-bulk-bindings-syms/serialize bt_1))" -"(let-values() new-syms_0)" +"(table-with-bulk-bindings-syms bt_0)" +"(table-with-bulk-bindings-syms/serialize bt_0))" +"(let-values() new-syms_142)" "(let-values()" "(binding-table-add" -"(table-with-bulk-bindings-syms/serialize bt_1)" -" scopes_1" -" sym_4" +"(table-with-bulk-bindings-syms/serialize bt_0)" +" scopes_0" +" sym_0" " binding_0" " #f))))))" -"(let-values(((the-struct_1) bt_1))" -"(if(table-with-bulk-bindings? the-struct_1)" -"(let-values(((syms32_0) new-syms_0)((syms/serialize33_0) new-syms/serialize_0))" +"(let-values(((the-struct_144) bt_0))" +"(if(table-with-bulk-bindings? the-struct_144)" +"(let-values(((syms32_145) new-syms_142)((syms/serialize33_146) new-syms/serialize_143))" "(table-with-bulk-bindings1.1" -" syms32_0" -" syms/serialize33_0" -"(table-with-bulk-bindings-bulk-bindings the-struct_1)))" -" (raise-argument-error 'struct-copy \"table-with-bulk-bindings?\" the-struct_1))))))))))" +" syms32_145" +" syms/serialize33_146" +"(table-with-bulk-bindings-bulk-bindings the-struct_144)))" +" (raise-argument-error 'struct-copy \"table-with-bulk-bindings?\" the-struct_144))))))))))" "(define-values" "(prop:implicitly-reachable implicitly-reachable? implicitly-reachable-ref)" "(make-struct-type-property 'implicitly-reachable))" @@ -6533,586 +6599,599 @@ static const char *startup_source = "(lambda(shadow-except4_0 bt6_0 scopes7_0 bulk8_0)" "(begin" " 'binding-table-add-bulk9" -"(let-values(((bt_2) bt6_0))" -"(let-values(((scopes_2) scopes7_0))" -"(let-values(((bulk_1) bulk8_0))" -"(let-values(((shadow-except_0) shadow-except4_0))" +"(let-values(((bt_151) bt6_0))" +"(let-values(((scopes_152) scopes7_0))" +"(let-values(((bulk_153) bulk8_0))" +"(let-values(((shadow-except_154) shadow-except4_0))" "(let-values()" -"(if(table-with-bulk-bindings? bt_2)" +"(if(table-with-bulk-bindings? bt_151)" "(let-values()" -"(let-values(((new-syms_1)" -"(let-values(((temp34_0)(table-with-bulk-bindings-syms bt_2))" -"((scopes35_0) scopes_2)" -"((bulk36_0) bulk_1)" -"((shadow-except37_0) shadow-except_0))" -"(remove-matching-bindings17.1 shadow-except37_0 temp34_0 scopes35_0 bulk36_0))))" -"(let-values(((new-syms/serialize_1)" -"(if(eq?" -"(table-with-bulk-bindings-syms bt_2)" -"(table-with-bulk-bindings-syms/serialize bt_2))" -" new-syms_1" -"(let-values(((temp38_0)(table-with-bulk-bindings-syms/serialize bt_2))" -"((scopes39_0) scopes_2)" -"((bulk40_0) bulk_1)" -"((shadow-except41_0) shadow-except_0))" +"(let-values(((new-syms_155)" +"(let-values(((temp34_158)(table-with-bulk-bindings-syms bt_151))" +"((scopes35_159) scopes_152)" +"((bulk36_160) bulk_153)" +"((shadow-except37_161) shadow-except_154))" "(remove-matching-bindings17.1" -" shadow-except41_0" -" temp38_0" -" scopes39_0" -" bulk40_0)))))" +" shadow-except37_161" +" temp34_158" +" scopes35_159" +" bulk36_160))))" +"(let-values(((new-syms/serialize_156)" +"(if(eq?" +"(table-with-bulk-bindings-syms bt_151)" +"(table-with-bulk-bindings-syms/serialize bt_151))" +" new-syms_155" +"(let-values(((temp38_163)(table-with-bulk-bindings-syms/serialize bt_151))" +"((scopes39_164) scopes_152)" +"((bulk40_165) bulk_153)" +"((shadow-except41_166) shadow-except_154))" +"(remove-matching-bindings17.1" +" shadow-except41_166" +" temp38_163" +" scopes39_164" +" bulk40_165)))))" "(table-with-bulk-bindings1.1" -" new-syms_1" -" new-syms/serialize_1" -"(cons(bulk-binding-at2.1 scopes_2 bulk_1)(table-with-bulk-bindings-bulk-bindings bt_2))))))" +" new-syms_155" +" new-syms/serialize_156" +"(cons" +"(bulk-binding-at2.1 scopes_152 bulk_153)" +"(table-with-bulk-bindings-bulk-bindings bt_151))))))" "(let-values()" -"(let-values(((temp42_0)(table-with-bulk-bindings1.1 bt_2 bt_2 null))" -"((scopes43_0) scopes_2)" -"((bulk44_0) bulk_1))" -"(binding-table-add-bulk9.1 #f temp42_0 scopes43_0 bulk44_0))))))))))))" +"(let-values(((temp42_167)(table-with-bulk-bindings1.1 bt_151 bt_151 null))" +"((scopes43_168) scopes_152)" +"((bulk44_169) bulk_153))" +"(binding-table-add-bulk9.1 #f temp42_167 scopes43_168 bulk44_169))))))))))))" "(define-values" "(remove-matching-bindings17.1)" "(lambda(except12_0 syms14_0 scopes15_0 bulk16_0)" "(begin" " 'remove-matching-bindings17" -"(let-values(((syms_2) syms14_0))" -"(let-values(((scopes_3) scopes15_0))" -"(let-values(((bulk_2) bulk16_0))" -"(let-values(((except_0) except12_0))" +"(let-values(((syms_202) syms14_0))" +"(let-values(((scopes_203) scopes15_0))" +"(let-values(((bulk_204) bulk16_0))" +"(let-values(((except_205) except12_0))" "(let-values()" -"(let-values(((bulk-symbols_0)(bulk-binding-symbols bulk_2 #f null)))" -"(if(<(hash-count syms_2)(hash-count bulk-symbols_0))" +"(let-values(((bulk-symbols_206)(bulk-binding-symbols bulk_204 #f null)))" +"(if(<(hash-count syms_202)(hash-count bulk-symbols_206))" "(let-values()" -"(let-values(((ht_30) syms_2))" +"(let-values(((ht_207) syms_202))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_30)))" -"((letrec-values(((for-loop_32)" -"(lambda(syms_3 i_34)" +"(let-values()(check-in-immutable-hash ht_207)))" +"((letrec-values(((for-loop_208)" +"(lambda(syms_0 i_0)" "(begin" " 'for-loop" -"(if i_34" -"(let-values(((sym_5 sym-bindings_0)" -"(unsafe-immutable-hash-iterate-key+value ht_30 i_34)))" -"(let-values(((syms_4)" -"(let-values(((syms_5) syms_3))" -"(let-values(((syms_6)" +"(if i_0" +"(let-values(((sym_211 sym-bindings_212)" +"(unsafe-immutable-hash-iterate-key+value ht_207 i_0)))" +"(let-values(((syms_213)" +"(let-values(((syms_214) syms_0))" +"(let-values(((syms_215)" "(let-values()" "(if(hash-ref" -" bulk-symbols_0" -" sym_5" +" bulk-symbols_206" +" sym_211" " #f)" -"(let-values(((syms45_0) syms_5)" -"((sym46_0) sym_5)" -"((sym-bindings47_0)" -" sym-bindings_0)" -"((scopes48_0)" -" scopes_3)" -"((except49_0)" -" except_0))" +"(let-values(((syms45_217)" +" syms_214)" +"((sym46_218) sym_211)" +"((sym-bindings47_219)" +" sym-bindings_212)" +"((scopes48_220)" +" scopes_203)" +"((except49_221)" +" except_205))" "(remove-matching-binding26.1" -" except49_0" -" syms45_0" -" sym46_0" -" sym-bindings47_0" -" scopes48_0))" -" syms_5))))" -"(values syms_6)))))" +" except49_221" +" syms45_217" +" sym46_218" +" sym-bindings47_219" +" scopes48_220))" +" syms_214))))" +"(values syms_215)))))" "(if(not #f)" -"(for-loop_32" -" syms_4" -"(unsafe-immutable-hash-iterate-next ht_30 i_34))" -" syms_4)))" -" syms_3)))))" -" for-loop_32)" -" syms_2" -"(unsafe-immutable-hash-iterate-first ht_30)))))" +"(for-loop_208" +" syms_213" +"(unsafe-immutable-hash-iterate-next ht_207 i_0))" +" syms_213)))" +" syms_0)))))" +" for-loop_208)" +" syms_202" +"(unsafe-immutable-hash-iterate-first ht_207)))))" "(let-values()" -"(let-values(((ht_31) bulk-symbols_0))" +"(let-values(((ht_222) bulk-symbols_206))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_31)))" -"((letrec-values(((for-loop_33)" -"(lambda(syms_7 i_50)" +"(let-values()(check-in-immutable-hash-keys ht_222)))" +"((letrec-values(((for-loop_223)" +"(lambda(syms_0 i_0)" "(begin" " 'for-loop" -"(if i_50" -"(let-values(((sym_6)(unsafe-immutable-hash-iterate-key ht_31 i_50)))" -"(let-values(((syms_8)" -"(let-values(((syms_9) syms_7))" -"(let-values(((syms_10)" +"(if i_0" +"(let-values(((sym_226)" +"(unsafe-immutable-hash-iterate-key ht_222 i_0)))" +"(let-values(((syms_227)" +"(let-values(((syms_228) syms_0))" +"(let-values(((syms_229)" "(let-values()" -"(let-values(((sym-bindings_1)" +"(let-values(((sym-bindings_230)" "(hash-ref" -" syms_9" -" sym_6" +" syms_228" +" sym_226" " #f)))" -"(if sym-bindings_1" -"(let-values(((syms50_0) syms_9)" -"((sym51_0) sym_6)" -"((sym-bindings52_0)" -" sym-bindings_1)" -"((scopes53_0)" -" scopes_3)" -"((except54_0)" -" except_0))" +"(if sym-bindings_230" +"(let-values(((syms50_232)" +" syms_228)" +"((sym51_233)" +" sym_226)" +"((sym-bindings52_234)" +" sym-bindings_230)" +"((scopes53_235)" +" scopes_203)" +"((except54_236)" +" except_205))" "(remove-matching-binding26.1" -" except54_0" -" syms50_0" -" sym51_0" -" sym-bindings52_0" -" scopes53_0))" -" syms_9)))))" -"(values syms_10)))))" +" except54_236" +" syms50_232" +" sym51_233" +" sym-bindings52_234" +" scopes53_235))" +" syms_228)))))" +"(values syms_229)))))" "(if(not #f)" -"(for-loop_33" -" syms_8" -"(unsafe-immutable-hash-iterate-next ht_31 i_50))" -" syms_8)))" -" syms_7)))))" -" for-loop_33)" -" syms_2" -"(unsafe-immutable-hash-iterate-first ht_31)))))))))))))))" +"(for-loop_223" +" syms_227" +"(unsafe-immutable-hash-iterate-next ht_222 i_0))" +" syms_227)))" +" syms_0)))))" +" for-loop_223)" +" syms_202" +"(unsafe-immutable-hash-iterate-first ht_222)))))))))))))))" "(define-values" "(remove-matching-binding26.1)" "(lambda(except20_0 syms22_0 sym23_0 sym-bindings24_0 scopes25_0)" "(begin" " 'remove-matching-binding26" -"(let-values(((syms_11) syms22_0))" -"(let-values(((sym_7) sym23_0))" -"(let-values(((sym-bindings_2) sym-bindings24_0))" -"(let-values(((scopes_4) scopes25_0))" -"(let-values(((except_1) except20_0))" +"(let-values(((syms_266) syms22_0))" +"(let-values(((sym_267) sym23_0))" +"(let-values(((sym-bindings_268) sym-bindings24_0))" +"(let-values(((scopes_269) scopes25_0))" +"(let-values(((except_270) except20_0))" "(let-values()" -"(if(if except_1" -"(let-values(((b_38)(hash-ref sym-bindings_2 scopes_4 #f)))" -"(if(module-binding? b_38)(eq? except_1(module-binding-module b_38)) #f))" +"(if(if except_270" +"(let-values(((b_271)(hash-ref sym-bindings_268 scopes_269 #f)))" +"(if(module-binding? b_271)(eq? except_270(module-binding-module b_271)) #f))" " #f)" -"(let-values() syms_11)" -"(let-values()(hash-set syms_11 sym_7(hash-remove sym-bindings_2 scopes_4)))))))))))))" +"(let-values() syms_266)" +"(let-values()(hash-set syms_266 sym_267(hash-remove sym-bindings_268 scopes_269)))))))))))))" "(define-values" "(next-state-in-full-binding-table)" "(lambda(sym-ht_0 sym-i_0)" "(begin" "(if sym-i_0" -"(let-values(((ht_32)(hash-iterate-value sym-ht_0 sym-i_0)))" -"(let-values(((i_51)(hash-iterate-first ht_32)))" -"(if i_51" -"(cons(vector sym-i_0(hash-iterate-key sym-ht_0 sym-i_0) ht_32) i_51)" +"(let-values(((ht_290)(hash-iterate-value sym-ht_0 sym-i_0)))" +"(let-values(((i_291)(hash-iterate-first ht_290)))" +"(if i_291" +"(cons(vector sym-i_0(hash-iterate-key sym-ht_0 sym-i_0) ht_290) i_291)" "(next-state-in-full-binding-table sym-ht_0(hash-iterate-next sym-ht_0 sym-i_0)))))" " '(#f . #f)))))" "(define-values" "(binding-table-symbols)" -"(lambda(table_34 scs_2 s_71 extra-shifts_1)" +"(lambda(table_0 scs_0 s_0 extra-shifts_0)" "(begin" -"(let-values(((ht_33 bulk-bindings_1)" -"(if(hash? table_34)" -"(values table_34 null)" +"(let-values(((ht_296 bulk-bindings_297)" +"(if(hash? table_0)" +"(values table_0 null)" "(values" -"(table-with-bulk-bindings-syms table_34)" -"(table-with-bulk-bindings-bulk-bindings table_34)))))" +"(table-with-bulk-bindings-syms table_0)" +"(table-with-bulk-bindings-bulk-bindings table_0)))))" "(set-union" -"(let-values(((ht_34) ht_33))" +"(let-values(((ht_298) ht_296))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_34)))" -"((letrec-values(((for-loop_34)" -"(lambda(table_35 i_52)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_298)))" +"((letrec-values(((for-loop_299)" +"(lambda(table_1 i_0)" "(begin" " 'for-loop" -"(if i_52" -"(let-values(((sym_8 at-sym_0)(hash-iterate-key+value ht_34 i_52)))" -"(let-values(((table_36)" -"(let-values(((table_37) table_35))" -"(if(let-values(((ht_35) at-sym_0))" +"(if i_0" +"(let-values(((sym_302 at-sym_303)(hash-iterate-key+value ht_298 i_0)))" +"(let-values(((table_304)" +"(let-values(((table_305) table_1))" +"(if(let-values(((ht_306) at-sym_303))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_35)))" -"((letrec-values(((for-loop_35)" -"(lambda(result_29 i_53)" +"(let-values()(check-in-hash-keys ht_306)))" +"((letrec-values(((for-loop_307)" +"(lambda(result_0 i_1)" "(begin" " 'for-loop" -"(if i_53" -"(let-values(((an-scs_0)" +"(if i_1" +"(let-values(((an-scs_310)" "(hash-iterate-key" -" ht_35" -" i_53)))" -"(let-values(((result_30)" +" ht_306" +" i_1)))" +"(let-values(((result_311)" "(let-values()" -"(let-values(((result_31)" +"(let-values(((result_313)" "(let-values()" "(let-values()" "(subset?" -" an-scs_0" -" scs_2)))))" +" an-scs_310" +" scs_0)))))" "(values" -" result_31)))))" +" result_313)))))" "(if(if(not" -"((lambda x_26" -" result_30)" -" an-scs_0))" +"((lambda x_0" +" result_311)" +" an-scs_310))" "(not #f)" " #f)" -"(for-loop_35" -" result_30" +"(for-loop_307" +" result_311" "(hash-iterate-next" -" ht_35" -" i_53))" -" result_30)))" -" result_29)))))" -" for-loop_35)" +" ht_306" +" i_1))" +" result_311)))" +" result_0)))))" +" for-loop_307)" " #f" -"(hash-iterate-first ht_35))))" -"(let-values(((table_38) table_37))" -"(let-values(((table_39)" +"(hash-iterate-first ht_306))))" +"(let-values(((table_315) table_305))" +"(let-values(((table_316)" "(let-values()" -"(let-values(((key_18 val_9)" +"(let-values(((key_317 val_318)" "(let-values()" "(values" -"(let-values() sym_8)" +"(let-values() sym_302)" " #t))))" -"(hash-set table_38 key_18 val_9)))))" -"(values table_39)))" -" table_37))))" -"(if(not #f)(for-loop_34 table_36(hash-iterate-next ht_34 i_52)) table_36)))" -" table_35)))))" -" for-loop_34)" +"(hash-set table_315 key_317 val_318)))))" +"(values table_316)))" +" table_305))))" +"(if(not #f)" +"(for-loop_299 table_304(hash-iterate-next ht_298 i_0))" +" table_304)))" +" table_1)))))" +" for-loop_299)" " '#hasheq()" -"(hash-iterate-first ht_34))))" -"(let-values(((lst_34) bulk-bindings_1))" +"(hash-iterate-first ht_298))))" +"(let-values(((lst_319) bulk-bindings_297))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_34)))" -"((letrec-values(((for-loop_36)" -"(lambda(table_40 lst_35)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_319)))" +"((letrec-values(((for-loop_320)" +"(lambda(table_1 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_35)" -"(let-values(((bba_1)(unsafe-car lst_35))((rest_14)(unsafe-cdr lst_35)))" -"(let-values(((table_41)" -"(let-values(((table_42) table_40))" -"(if(subset?(bulk-binding-at-scopes bba_1) scs_2)" -"(let-values(((ht_36)" +"(if(pair? lst_0)" +"(let-values(((bba_323)(unsafe-car lst_0))((rest_324)(unsafe-cdr lst_0)))" +"(let-values(((table_325)" +"(let-values(((table_326) table_1))" +"(if(subset?(bulk-binding-at-scopes bba_323) scs_0)" +"(let-values(((ht_327)" "(bulk-binding-symbols" -"(bulk-binding-at-bulk bba_1)" -" s_71" -" extra-shifts_1)))" +"(bulk-binding-at-bulk bba_323)" +" s_0" +" extra-shifts_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_36)))" -"((letrec-values(((for-loop_37)" -"(lambda(table_43 i_5)" +"(let-values()(check-in-hash-keys ht_327)))" +"((letrec-values(((for-loop_328)" +"(lambda(table_2 i_0)" "(begin" " 'for-loop" -"(if i_5" -"(let-values(((sym_9)" +"(if i_0" +"(let-values(((sym_331)" "(hash-iterate-key" -" ht_36" -" i_5)))" -"(let-values(((table_44)" -"(let-values(((table_45)" -" table_43))" -"(let-values(((table_46)" +" ht_327" +" i_0)))" +"(let-values(((table_332)" +"(let-values(((table_333)" +" table_2))" +"(let-values(((table_334)" "(let-values()" -"(let-values(((key_19" -" val_10)" +"(let-values(((key_335" +" val_336)" "(let-values()" "(values" "(let-values()" -" sym_9)" +" sym_331)" " #t))))" "(hash-set" -" table_45" -" key_19" -" val_10)))))" +" table_333" +" key_335" +" val_336)))))" "(values" -" table_46)))))" +" table_334)))))" "(if(not #f)" -"(for-loop_37" -" table_44" +"(for-loop_328" +" table_332" "(hash-iterate-next" -" ht_36" -" i_5))" -" table_44)))" -" table_43)))))" -" for-loop_37)" -" table_42" -"(hash-iterate-first ht_36))))" -" table_42))))" -"(if(not #f)(for-loop_36 table_41 rest_14) table_41)))" -" table_40)))))" -" for-loop_36)" +" ht_327" +" i_0))" +" table_332)))" +" table_2)))))" +" for-loop_328)" +" table_326" +"(hash-iterate-first ht_327))))" +" table_326))))" +"(if(not #f)(for-loop_320 table_325 rest_324) table_325)))" +" table_1)))))" +" for-loop_320)" " '#hasheq()" -" lst_34))))))))" +" lst_319))))))))" "(define-values" "(binding-table-prune-to-reachable)" -"(lambda(bt_3 state_15)" +"(lambda(bt_0 state_0)" "(begin" -"(let-values(((or-part_94)(hash-ref(serialize-state-bindings-intern state_15) bt_3 #f)))" -"(if or-part_94" -" or-part_94" -"(let-values(((reachable-scopes_1)(serialize-state-reachable-scopes state_15)))" -"(let-values(((new-syms_2)" -"(let-values(((ht_37)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))" +"(let-values(((or-part_339)(hash-ref(serialize-state-bindings-intern state_0) bt_0 #f)))" +"(if or-part_339" +" or-part_339" +"(let-values(((reachable-scopes_340)(serialize-state-reachable-scopes state_0)))" +"(let-values(((new-syms_341)" +"(let-values(((ht_344)(if(hash? bt_0) bt_0(table-with-bulk-bindings-syms/serialize bt_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_37)))" -"((letrec-values(((for-loop_38)" -"(lambda(table_47 i_54)" +"(let-values()(check-in-immutable-hash ht_344)))" +"((letrec-values(((for-loop_345)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_54" -"(let-values(((sym_10 bindings-for-sym_0)" +"(if i_0" +"(let-values(((sym_348 bindings-for-sym_349)" "(unsafe-immutable-hash-iterate-key+value" -" ht_37" -" i_54)))" -"(let-values(((table_48)" -"(let-values(((new-bindings-for-sym_0)" -"(let-values(((ht_38)" -" bindings-for-sym_0))" +" ht_344" +" i_0)))" +"(let-values(((table_350)" +"(let-values(((new-bindings-for-sym_351)" +"(let-values(((ht_352)" +" bindings-for-sym_349))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-immutable-hash" -" ht_38)))" -"((letrec-values(((for-loop_39)" -"(lambda(table_49" -" i_55)" +" ht_352)))" +"((letrec-values(((for-loop_353)" +"(lambda(table_1" +" i_1)" "(begin" " 'for-loop" -"(if i_55" -"(let-values(((scopes_5" -" binding_1)" +"(if i_1" +"(let-values(((scopes_356" +" binding_357)" "(unsafe-immutable-hash-iterate-key+value" -" ht_38" -" i_55)))" -"(let-values(((table_50)" -"(let-values(((table_51)" -" table_49))" +" ht_352" +" i_1)))" +"(let-values(((table_358)" +"(let-values(((table_359)" +" table_1))" "(if(subset?" -" scopes_5" -" reachable-scopes_1)" -"(let-values(((table_52)" -" table_51))" -"(let-values(((table_53)" +" scopes_356" +" reachable-scopes_340)" +"(let-values(((table_360)" +" table_359))" +"(let-values(((table_361)" "(let-values()" -"(let-values(((key_20" -" val_11)" +"(let-values(((key_362" +" val_363)" "(let-values()" "(values" "(intern-scopes" -" scopes_5" -" state_15)" -" binding_1))))" +" scopes_356" +" state_0)" +" binding_357))))" "(hash-set" -" table_52" -" key_20" -" val_11)))))" +" table_360" +" key_362" +" val_363)))))" "(values" -" table_53)))" -" table_51))))" +" table_361)))" +" table_359))))" "(if(not" " #f)" -"(for-loop_39" -" table_50" +"(for-loop_353" +" table_358" "(unsafe-immutable-hash-iterate-next" -" ht_38" -" i_55))" -" table_50)))" -" table_49)))))" -" for-loop_39)" +" ht_352" +" i_1))" +" table_358)))" +" table_1)))))" +" for-loop_353)" " '#hash()" "(unsafe-immutable-hash-iterate-first" -" ht_38))))))" +" ht_352))))))" "(begin" " #t" -"((letrec-values(((for-loop_40)" -"(lambda(table_54)" +"((letrec-values(((for-loop_364)" +"(lambda(table_1)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_55)" -"(let-values(((table_56)" -" table_54))" +"(let-values(((table_366)" +"(let-values(((table_367)" +" table_1))" "(if(positive?" "(hash-count" -" new-bindings-for-sym_0))" -"(let-values(((table_57)" -" table_56))" -"(let-values(((table_58)" +" new-bindings-for-sym_351))" +"(let-values(((table_368)" +" table_367))" +"(let-values(((table_369)" "(let-values()" -"(let-values(((key_21" -" val_12)" +"(let-values(((key_370" +" val_371)" "(let-values()" "(values" -" sym_10" -" new-bindings-for-sym_0))))" +" sym_348" +" new-bindings-for-sym_351))))" "(hash-set" -" table_57" -" key_21" -" val_12)))))" +" table_368" +" key_370" +" val_371)))))" "(values" -" table_58)))" -" table_56))))" -" table_55))))))" -" for-loop_40)" -" table_47)))))" +" table_369)))" +" table_367))))" +" table_366))))))" +" for-loop_364)" +" table_0)))))" "(if(not #f)" -"(for-loop_38" -" table_48" -"(unsafe-immutable-hash-iterate-next ht_37 i_54))" -" table_48)))" -" table_47)))))" -" for-loop_38)" +"(for-loop_345" +" table_350" +"(unsafe-immutable-hash-iterate-next ht_344 i_0))" +" table_350)))" +" table_0)))))" +" for-loop_345)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_37))))))" -"(let-values(((new-bulk-bindings_0)" -"(if(hash? bt_3)" +"(unsafe-immutable-hash-iterate-first ht_344))))))" +"(let-values(((new-bulk-bindings_342)" +"(if(hash? bt_0)" " null" "(reverse$1" -"(let-values(((lst_36)(table-with-bulk-bindings-bulk-bindings bt_3)))" +"(let-values(((lst_372)(table-with-bulk-bindings-bulk-bindings bt_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_36)))" -"((letrec-values(((for-loop_41)" -"(lambda(fold-var_21 lst_37)" +"(let-values()(check-list lst_372)))" +"((letrec-values(((for-loop_373)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_37)" -"(let-values(((bba_2)(unsafe-car lst_37))" -"((rest_15)(unsafe-cdr lst_37)))" -"(let-values(((fold-var_22)" -"(let-values(((fold-var_23) fold-var_21))" +"(if(pair? lst_0)" +"(let-values(((bba_376)(unsafe-car lst_0))" +"((rest_377)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_378)" +"(let-values(((fold-var_379) fold-var_0))" "(if(subset?" -"(bulk-binding-at-scopes bba_2)" -" reachable-scopes_1)" -"(let-values(((fold-var_24) fold-var_23))" -"(let-values(((fold-var_25)" +"(bulk-binding-at-scopes bba_376)" +" reachable-scopes_340)" +"(let-values(((fold-var_380)" +" fold-var_379))" +"(let-values(((fold-var_381)" "(let-values()" "(cons" "(let-values()" -"(let-values(((the-struct_2)" -" bba_2))" +"(let-values(((the-struct_382)" +" bba_376))" "(if(bulk-binding-at?" -" the-struct_2)" -"(let-values(((scopes55_0)" +" the-struct_382)" +"(let-values(((scopes55_383)" "(intern-scopes" "(bulk-binding-at-scopes" -" bba_2)" -" state_15)))" +" bba_376)" +" state_0)))" "(bulk-binding-at2.1" -" scopes55_0" +" scopes55_383" "(bulk-binding-at-bulk" -" the-struct_2)))" +" the-struct_382)))" "(raise-argument-error" " 'struct-copy" " \"bulk-binding-at?\"" -" the-struct_2))))" -" fold-var_24))))" -"(values fold-var_25)))" -" fold-var_23))))" +" the-struct_382))))" +" fold-var_380))))" +"(values fold-var_381)))" +" fold-var_379))))" "(if(not #f)" -"(for-loop_41 fold-var_22 rest_15)" -" fold-var_22)))" -" fold-var_21)))))" -" for-loop_41)" +"(for-loop_373 fold-var_378 rest_377)" +" fold-var_378)))" +" fold-var_0)))))" +" for-loop_373)" " null" -" lst_36)))))))" -"(let-values(((new-bt_0)" -"(if(pair? new-bulk-bindings_0)" -"(table-with-bulk-bindings1.1 new-syms_2 new-syms_2 new-bulk-bindings_0)" -" new-syms_2)))" -"(begin(hash-set!(serialize-state-bulk-bindings-intern state_15) bt_3 new-bt_0) new-bt_0))))))))))" +" lst_372)))))))" +"(let-values(((new-bt_343)" +"(if(pair? new-bulk-bindings_342)" +"(table-with-bulk-bindings1.1 new-syms_341 new-syms_341 new-bulk-bindings_342)" +" new-syms_341)))" +"(begin(hash-set!(serialize-state-bulk-bindings-intern state_0) bt_0 new-bt_343) new-bt_343))))))))))" "(define-values" "(binding-table-register-reachable)" -"(lambda(bt_4 get-reachable-scopes_0 reach_2 register-trigger_0)" +"(lambda(bt_0 get-reachable-scopes_0 reach_0 register-trigger_0)" "(begin" "(begin" -"(let-values(((ht_39)(if(hash? bt_4) bt_4(table-with-bulk-bindings-syms/serialize bt_4))))" +"(let-values(((ht_388)(if(hash? bt_0) bt_0(table-with-bulk-bindings-syms/serialize bt_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_39)))" -"((letrec-values(((for-loop_42)" -"(lambda(i_56)" +"(let-values()(check-in-immutable-hash ht_388)))" +"((letrec-values(((for-loop_389)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_56" -"(let-values(((sym_11 bindings-for-sym_1)" -"(unsafe-immutable-hash-iterate-key+value ht_39 i_56)))" +"(if i_0" +"(let-values(((sym_391 bindings-for-sym_392)" +"(unsafe-immutable-hash-iterate-key+value ht_388 i_0)))" "(let-values((()" -"(let-values(((ht_40) bindings-for-sym_1))" +"(let-values(((ht_393) bindings-for-sym_392))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_40)))" -"((letrec-values(((for-loop_43)" -"(lambda(i_57)" +"(let-values()(check-in-immutable-hash ht_393)))" +"((letrec-values(((for-loop_394)" +"(lambda(i_1)" "(begin" " 'for-loop" -"(if i_57" -"(let-values(((scopes_6 binding_2)" +"(if i_1" +"(let-values(((scopes_396 binding_397)" "(unsafe-immutable-hash-iterate-key+value" -" ht_40" -" i_57)))" +" ht_393" +" i_1)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((v_69)" +"(let-values(((v_398)" "(if(binding-reach-scopes?" -" binding_2)" +" binding_397)" "((binding-reach-scopes-ref" -" binding_2)" -" binding_2)" +" binding_397)" +" binding_397)" " #f)))" "(scopes-register-reachable" -" scopes_6" -" v_69" +" scopes_396" +" v_398" " get-reachable-scopes_0" -" reach_2" +" reach_0" " register-trigger_0)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_43" +"(for-loop_394" "(unsafe-immutable-hash-iterate-next" -" ht_40" -" i_57))" +" ht_393" +" i_1))" "(values))))" "(values))))))" -" for-loop_43)" -"(unsafe-immutable-hash-iterate-first ht_40))))))" +" for-loop_394)" +"(unsafe-immutable-hash-iterate-first ht_393))))))" "(if(not #f)" -"(for-loop_42(unsafe-immutable-hash-iterate-next ht_39 i_56))" +"(for-loop_389(unsafe-immutable-hash-iterate-next ht_388 i_0))" "(values))))" "(values))))))" -" for-loop_42)" -"(unsafe-immutable-hash-iterate-first ht_39))))" +" for-loop_389)" +"(unsafe-immutable-hash-iterate-first ht_388))))" "(void)" -"(if(table-with-bulk-bindings? bt_4)" +"(if(table-with-bulk-bindings? bt_0)" "(let-values()" "(begin" -"(let-values(((lst_38)(table-with-bulk-bindings-bulk-bindings bt_4)))" +"(let-values(((lst_399)(table-with-bulk-bindings-bulk-bindings bt_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_38)))" -"((letrec-values(((for-loop_44)" -"(lambda(lst_39)" +"(let-values()(check-list lst_399)))" +"((letrec-values(((for-loop_400)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_39)" -"(let-values(((bba_3)(unsafe-car lst_39))((rest_16)(unsafe-cdr lst_39)))" +"(if(pair? lst_0)" +"(let-values(((bba_402)(unsafe-car lst_0))((rest_403)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -7120,96 +7199,96 @@ static const char *startup_source = "(begin" "(let-values()" "(scopes-register-reachable" -"(bulk-binding-at-scopes bba_3)" +"(bulk-binding-at-scopes bba_402)" " #f" " get-reachable-scopes_0" -" reach_2" +" reach_0" " register-trigger_0))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_44 rest_16)(values))))" +"(if(not #f)(for-loop_400 rest_403)(values))))" "(values))))))" -" for-loop_44)" -" lst_38)))" +" for-loop_400)" +" lst_399)))" "(void)))" "(void))))))" "(define-values" "(scopes-register-reachable)" -"(lambda(scopes_7 v_70 get-reachable-scopes_1 reach_3 register-trigger_1)" +"(lambda(scopes_0 v_0 get-reachable-scopes_0 reach_0 register-trigger_0)" "(begin" -"(let-values(((reachable-scopes_2)(get-reachable-scopes_1)))" -"(if(subset? scopes_7 reachable-scopes_2)" -"(let-values()(reach_3 v_70))" +"(let-values(((reachable-scopes_409)(get-reachable-scopes_0)))" +"(if(subset? scopes_0 reachable-scopes_409)" +"(let-values()(reach_0 v_0))" "(let-values()" -"(let-values(((pending-scopes_0)" -"(let-values(((ht_41) scopes_7))" +"(let-values(((pending-scopes_410)" +"(let-values(((ht_412) scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_41)))" -"((letrec-values(((for-loop_45)" -"(lambda(table_59 i_58)" +"(let-values()(check-in-immutable-hash-keys ht_412)))" +"((letrec-values(((for-loop_413)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_58" -"(let-values(((sc_0)" -"(unsafe-immutable-hash-iterate-key ht_41 i_58)))" -"(let-values(((table_60)" -"(let-values(((table_61) table_59))" -"(if(let-values(((or-part_95)" +"(if i_0" +"(let-values(((sc_416)" +"(unsafe-immutable-hash-iterate-key ht_412 i_0)))" +"(let-values(((table_417)" +"(let-values(((table_418) table_0))" +"(if(let-values(((or-part_419)" "(set-member?" -" reachable-scopes_2" -" sc_0)))" -"(if or-part_95" -" or-part_95" -"(implicitly-reachable? sc_0)))" -" table_61" -"(let-values(((table_62) table_61))" -"(let-values(((table_63)" +" reachable-scopes_409" +" sc_416)))" +"(if or-part_419" +" or-part_419" +"(implicitly-reachable? sc_416)))" +" table_418" +"(let-values(((table_420) table_418))" +"(let-values(((table_421)" "(let-values()" -"(let-values(((key_22" -" val_13)" +"(let-values(((key_422" +" val_423)" "(let-values()" "(values" "(let-values()" -" sc_0)" +" sc_416)" " #t))))" "(hash-set" -" table_62" -" key_22" -" val_13)))))" -"(values table_63)))))))" +" table_420" +" key_422" +" val_423)))))" +"(values table_421)))))))" "(if(not #f)" -"(for-loop_45" -" table_60" -"(unsafe-immutable-hash-iterate-next ht_41 i_58))" -" table_60)))" -" table_59)))))" -" for-loop_45)" +"(for-loop_413" +" table_417" +"(unsafe-immutable-hash-iterate-next ht_412 i_0))" +" table_417)))" +" table_0)))))" +" for-loop_413)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_41))))))" -"(let-values(((check-trigger_0)" -"(lambda(reach_4)" +"(unsafe-immutable-hash-iterate-first ht_412))))))" +"(let-values(((check-trigger_411)" +"(lambda(reach_1)" "(begin" " 'check-trigger" -"(if(zero?(hash-count pending-scopes_0))" +"(if(zero?(hash-count pending-scopes_410))" "(let-values()" "(begin" -"(reach_4 v_70)" -"(let-values(((ht_42) scopes_7))" +"(reach_1 v_0)" +"(let-values(((ht_425) scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_42)))" -"((letrec-values(((for-loop_46)" -"(lambda(i_59)" +"(let-values()(check-in-immutable-hash-keys ht_425)))" +"((letrec-values(((for-loop_426)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_59" -"(let-values(((sc_1)" +"(if i_0" +"(let-values(((sc_428)" "(unsafe-immutable-hash-iterate-key" -" ht_42" -" i_59)))" +" ht_425" +" i_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -7217,711 +7296,708 @@ static const char *startup_source = "(begin" "(let-values()" "(if(implicitly-reachable?" -" sc_1)" +" sc_428)" "(let-values()" -"(reach_4" -" sc_1))" +"(reach_1" +" sc_428))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_46" +"(for-loop_426" "(unsafe-immutable-hash-iterate-next" -" ht_42" -" i_59))" +" ht_425" +" i_0))" "(values))))" "(values))))))" -" for-loop_46)" -"(unsafe-immutable-hash-iterate-first ht_42))))" +" for-loop_426)" +"(unsafe-immutable-hash-iterate-first ht_425))))" "(void)))" "(void))))))" "(begin" -"(let-values(((ht_43) pending-scopes_0))" +"(let-values(((ht_429) pending-scopes_410))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_43)))" -"((letrec-values(((for-loop_47)" -"(lambda(i_60)" +"(let-values()(check-in-immutable-hash-keys ht_429)))" +"((letrec-values(((for-loop_430)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_60" -"(let-values(((sc_2)(unsafe-immutable-hash-iterate-key ht_43 i_60)))" +"(if i_0" +"(let-values(((sc_432)(unsafe-immutable-hash-iterate-key ht_429 i_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(register-trigger_1" -" sc_2" -"(lambda(reach_5)" +"(register-trigger_0" +" sc_432" +"(lambda(reach_1)" "(begin" -"(set! pending-scopes_0" +"(set! pending-scopes_410" "(hash-remove" -" pending-scopes_0" -" sc_2))" -"(check-trigger_0 reach_5)))))" +" pending-scopes_410" +" sc_432))" +"(check-trigger_411 reach_1)))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_47(unsafe-immutable-hash-iterate-next ht_43 i_60))" +"(for-loop_430(unsafe-immutable-hash-iterate-next ht_429 i_0))" "(values))))" "(values))))))" -" for-loop_47)" -"(unsafe-immutable-hash-iterate-first ht_43))))" +" for-loop_430)" +"(unsafe-immutable-hash-iterate-first ht_429))))" "(void)" -"(check-trigger_0 reach_3))))))))))" +"(check-trigger_411 reach_0))))))))))" "(define-values" "(syntax-property$1)" "(let-values()" "(let-values()" "(case-lambda" -"((s_72 key_23)" +"((s_0 key_0)" "(begin" " 'syntax-property" "(let-values((()" "(begin" -"(if(syntax?$1 s_72)" +"(if(syntax?$1 s_0)" "(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_72)))" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_0)))" "(values))))" -"(let-values(((v_60)(hash-ref(syntax-props s_72) key_23 #f)))(plain-property-value v_60)))))" -"((s_73 key_24 val_14)" +"(let-values(((v_4)(hash-ref(syntax-props s_0) key_0 #f)))(plain-property-value v_4)))))" +"((s_0 key_0 val_0)" "(let-values((()" "(begin" -"(if(syntax?$1 s_73)" +"(if(syntax?$1 s_0)" "(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_73)))" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_0)))" "(values))))" -"(let-values(((pval_0)(if(eq? key_24 'paren-shape)(preserved-property-value1.1 val_14) val_14)))" -"(let-values(((the-struct_3) s_73))" -"(if(syntax?$1 the-struct_3)" -"(let-values(((props2_0)(hash-set(syntax-props s_73) key_24 pval_0)))" +"(let-values(((pval_8)(if(eq? key_0 'paren-shape)(preserved-property-value1.1 val_0) val_0)))" +"(let-values(((the-struct_9) s_0))" +"(if(syntax?$1 the-struct_9)" +"(let-values(((props2_10)(hash-set(syntax-props s_0) key_0 pval_8)))" "(syntax1.1" -"(syntax-content the-struct_3)" -"(syntax-scopes the-struct_3)" -"(syntax-shifted-multi-scopes the-struct_3)" -"(syntax-scope-propagations+tamper the-struct_3)" -"(syntax-mpi-shifts the-struct_3)" -"(syntax-srcloc the-struct_3)" -" props2_0" -"(syntax-inspector the-struct_3)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_3))))))" -"((s_74 key_25 val_15 preserved?_0)" +"(syntax-content the-struct_9)" +"(syntax-scopes the-struct_9)" +"(syntax-shifted-multi-scopes the-struct_9)" +"(syntax-scope-propagations+tamper the-struct_9)" +"(syntax-mpi-shifts the-struct_9)" +"(syntax-srcloc the-struct_9)" +" props2_10" +"(syntax-inspector the-struct_9)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_9))))))" +"((s_0 key_0 val_0 preserved?_0)" "(let-values((()" "(begin" -"(if(syntax?$1 s_74)" +"(if(syntax?$1 s_0)" "(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_74)))" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_0)))" "(values))))" "(let-values((()" "(begin" "(if preserved?_0" "(let-values()" -"(if(if(symbol? key_25)(symbol-interned? key_25) #f)" +"(if(if(symbol? key_0)(symbol-interned? key_0) #f)" "(void)" "(let-values()" "(raise-arguments-error" " 'syntax-property" " \"key for a perserved property must be an interned symbol\"" " \"given key\"" -" key_25" +" key_0" " \"given value\"" -" val_15))))" +" val_0))))" "(void))" "(values))))" -"(let-values(((pval_1)(if preserved?_0(preserved-property-value1.1 val_15) val_15)))" -"(let-values(((the-struct_4) s_74))" -"(if(syntax?$1 the-struct_4)" -"(let-values(((props3_0)(hash-set(syntax-props s_74) key_25 pval_1)))" +"(let-values(((pval_15)(if preserved?_0(preserved-property-value1.1 val_0) val_0)))" +"(let-values(((the-struct_16) s_0))" +"(if(syntax?$1 the-struct_16)" +"(let-values(((props3_17)(hash-set(syntax-props s_0) key_0 pval_15)))" "(syntax1.1" -"(syntax-content the-struct_4)" -"(syntax-scopes the-struct_4)" -"(syntax-shifted-multi-scopes the-struct_4)" -"(syntax-scope-propagations+tamper the-struct_4)" -"(syntax-mpi-shifts the-struct_4)" -"(syntax-srcloc the-struct_4)" -" props3_0" -"(syntax-inspector the-struct_4)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_4)))))))))))" +"(syntax-content the-struct_16)" +"(syntax-scopes the-struct_16)" +"(syntax-shifted-multi-scopes the-struct_16)" +"(syntax-scope-propagations+tamper the-struct_16)" +"(syntax-mpi-shifts the-struct_16)" +"(syntax-srcloc the-struct_16)" +" props3_17" +"(syntax-inspector the-struct_16)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_16)))))))))))" "(define-values" "(1/syntax-property-preserved?)" -"(lambda(s_75 key_26)" +"(lambda(s_0 key_0)" "(begin" " 'syntax-property-preserved?" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_75)" -"(void)" -" (let-values () (raise-argument-error 'syntax-property-preserved? \"syntax?\" s_75)))" -"(if(if(symbol? key_26)(symbol-interned? key_26) #f)" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'syntax-property-preserved? \"syntax?\" s_0)))" +"(if(if(symbol? key_0)(symbol-interned? key_0) #f)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-property-preserved? \"(and/c symbol? symbol-interned?)\" key_26)))" -"(preserved-property-value?(hash-ref(syntax-props s_75) key_26 #f))))))))" +" (raise-argument-error 'syntax-property-preserved? \"(and/c symbol? symbol-interned?)\" key_0)))" +"(preserved-property-value?(hash-ref(syntax-props s_0) key_0 #f))))))))" "(define-values" "(1/syntax-property-symbol-keys)" -"(lambda(s_10)" +"(lambda(s_0)" "(begin" " 'syntax-property-symbol-keys" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_10)" -"(void)" -" (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_10)))" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_0)))" "(reverse$1" -"(let-values(((ht_44)(syntax-props s_10)))" +"(let-values(((ht_23)(syntax-props s_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_44)))" -"((letrec-values(((for-loop_48)" -"(lambda(fold-var_26 i_61)" +"(let-values()(check-in-immutable-hash ht_23)))" +"((letrec-values(((for-loop_24)" +"(lambda(fold-var_0 i_0)" "(begin" " 'for-loop" -"(if i_61" -"(let-values(((k_17 v_33)" -"(unsafe-immutable-hash-iterate-key+value ht_44 i_61)))" -"(let-values(((fold-var_27)" -"(let-values(((fold-var_28) fold-var_26))" -"(if(if(symbol? k_17)(symbol-interned? k_17) #f)" -"(let-values(((fold-var_29) fold-var_28))" -"(let-values(((fold-var_30)" +"(if i_0" +"(let-values(((k_27 v_28)(unsafe-immutable-hash-iterate-key+value ht_23 i_0)))" +"(let-values(((fold-var_29)" +"(let-values(((fold-var_30) fold-var_0))" +"(if(if(symbol? k_27)(symbol-interned? k_27) #f)" +"(let-values(((fold-var_31) fold-var_30))" +"(let-values(((fold-var_32)" "(let-values()" "(cons" -"(let-values() k_17)" -" fold-var_29))))" -"(values fold-var_30)))" -" fold-var_28))))" +"(let-values() k_27)" +" fold-var_31))))" +"(values fold-var_32)))" +" fold-var_30))))" "(if(not #f)" -"(for-loop_48 fold-var_27(unsafe-immutable-hash-iterate-next ht_44 i_61))" -" fold-var_27)))" -" fold-var_26)))))" -" for-loop_48)" +"(for-loop_24 fold-var_29(unsafe-immutable-hash-iterate-next ht_23 i_0))" +" fold-var_29)))" +" fold-var_0)))))" +" for-loop_24)" " null" -"(unsafe-immutable-hash-iterate-first ht_44)))))))))))" +"(unsafe-immutable-hash-iterate-first ht_23)))))))))))" "(define-values" "(1/syntax-property-remove)" -"(lambda(s_76 key_27)" +"(lambda(s_0 key_0)" "(begin" " 'syntax-property-remove" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_76) (void) (let-values () (raise-argument-error 'syntax-property-remove \"syntax?\" s_76)))" -"(if(hash-ref(syntax-props s_76) key_27 #f)" -"(let-values(((the-struct_5) s_76))" -"(if(syntax?$1 the-struct_5)" -"(let-values(((props7_0)(hash-remove(syntax-props s_76) key_27)))" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'syntax-property-remove \"syntax?\" s_0)))" +"(if(hash-ref(syntax-props s_0) key_0 #f)" +"(let-values(((the-struct_36) s_0))" +"(if(syntax?$1 the-struct_36)" +"(let-values(((props7_37)(hash-remove(syntax-props s_0) key_0)))" "(syntax1.1" -"(syntax-content the-struct_5)" -"(syntax-scopes the-struct_5)" -"(syntax-shifted-multi-scopes the-struct_5)" -"(syntax-scope-propagations+tamper the-struct_5)" -"(syntax-mpi-shifts the-struct_5)" -"(syntax-srcloc the-struct_5)" -" props7_0" -"(syntax-inspector the-struct_5)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_5)))" -" s_76)))))))" +"(syntax-content the-struct_36)" +"(syntax-scopes the-struct_36)" +"(syntax-shifted-multi-scopes the-struct_36)" +"(syntax-scope-propagations+tamper the-struct_36)" +"(syntax-mpi-shifts the-struct_36)" +"(syntax-srcloc the-struct_36)" +" props7_37" +"(syntax-inspector the-struct_36)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_36)))" +" s_0)))))))" "(define-values" "(taint-content)" -"(lambda(d_2)" +"(lambda(d_0)" "(begin" -"(let-values(((s_74) d_2)" -"((f_27)(lambda(tail?_16 x_27)(begin 'f x_27)))" -"((s->_1)" +"(let-values(((s_11) d_0)" +"((f_12)(lambda(tail?_0 x_0)(begin 'f x_0)))" +"((s->_13)" "(lambda(sub-s_0)" "(begin" " 's->" "(if(tamper-tainted?(syntax-tamper sub-s_0))" "(let-values() sub-s_0)" "(let-values()" -"(let-values(((stx_0) sub-s_0))" -"(let-values(((the-struct_6) stx_0))" -"(if(syntax?$1 the-struct_6)" -"(let-values(((scope-propagations+tamper5_0)" -"(let-values(((t_17)" +"(let-values(((stx_18) sub-s_0))" +"(let-values(((the-struct_19) stx_18))" +"(if(syntax?$1 the-struct_19)" +"(let-values(((scope-propagations+tamper5_20)" +"(let-values(((t_21)" "(tamper-tainted-for-content(syntax-content sub-s_0)))" -"((p_11)(syntax-scope-propagations+tamper stx_0)))" -"(if(tamper? p_11)" -" t_17" -"((propagation-set-tamper-ref p_11) p_11 t_17)))))" +"((p_22)(syntax-scope-propagations+tamper stx_18)))" +"(if(tamper? p_22)" +" t_21" +"((propagation-set-tamper-ref p_22) p_22 t_21)))))" "(syntax1.1" -"(syntax-content the-struct_6)" -"(syntax-scopes the-struct_6)" -"(syntax-shifted-multi-scopes the-struct_6)" -" scope-propagations+tamper5_0" -"(syntax-mpi-shifts the-struct_6)" -"(syntax-srcloc the-struct_6)" -"(syntax-props the-struct_6)" -"(syntax-inspector the-struct_6)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_6)))))))))" -"((seen_7) #f))" -"(let-values(((s_77) s_74)" -"((f_28) f_27)" -"((gf_3)" -"(lambda(tail?_17 v_33)" +"(syntax-content the-struct_19)" +"(syntax-scopes the-struct_19)" +"(syntax-shifted-multi-scopes the-struct_19)" +" scope-propagations+tamper5_20" +"(syntax-mpi-shifts the-struct_19)" +"(syntax-srcloc the-struct_19)" +"(syntax-props the-struct_19)" +"(syntax-inspector the-struct_19)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_19)))))))))" +"((seen_14) #f))" +"(let-values(((s_23) s_11)" +"((f_24) f_12)" +"((gf_25)" +"(lambda(tail?_0 v_0)" "(begin" " 'gf" -"(if(syntax?$1 v_33)(let-values()(s->_1 v_33))(let-values()(f_27 tail?_17 v_33))))))" -"((seen_8) seen_7))" -"((letrec-values(((loop_68)" -"(lambda(tail?_18 s_78 prev-depth_3)" +"(if(syntax?$1 v_0)(let-values()(s->_13 v_0))(let-values()(f_12 tail?_0 v_0))))))" +"((seen_26) seen_14))" +"((letrec-values(((loop_29)" +"(lambda(tail?_0 s_0 prev-depth_0)" "(begin" " 'loop" -"(let-values(((depth_3)(fx+ 1 prev-depth_3)))" -"(if(if seen_8(fx> depth_3 32) #f)" +"(let-values(((depth_33)(fx+ 1 prev-depth_0)))" +"(if(if seen_26(fx> depth_33 32) #f)" +"(let-values()" +"(datum-map-slow tail?_0 s_0(lambda(tail?_1 s_1)(gf_25 tail?_1 s_1)) seen_26))" +"(if(null? s_0)" +"(let-values()(f_24 tail?_0 s_0))" +"(if(pair? s_0)" +"(let-values()" +"(f_24" +" tail?_0" +"(cons(loop_29 #f(car s_0) depth_33)(loop_29 #t(cdr s_0) depth_33))))" +"(if(symbol? s_0)" +"(let-values()(f_24 #f s_0))" +"(if(boolean? s_0)" +"(let-values()(f_24 #f s_0))" +"(if(number? s_0)" +"(let-values()(f_24 #f s_0))" +"(if(let-values(((or-part_36)(vector? s_0)))" +"(if or-part_36" +" or-part_36" +"(let-values(((or-part_37)(box? s_0)))" +"(if or-part_37" +" or-part_37" +"(let-values(((or-part_38)(prefab-struct-key s_0)))" +"(if or-part_38 or-part_38(hash? s_0)))))))" "(let-values()" "(datum-map-slow" -" tail?_18" -" s_78" -"(lambda(tail?_19 s_79)(gf_3 tail?_19 s_79))" -" seen_8))" -"(if(null? s_78)" -"(let-values()(f_28 tail?_18 s_78))" -"(if(pair? s_78)" -"(let-values()" -"(f_28" -" tail?_18" -"(cons(loop_68 #f(car s_78) depth_3)(loop_68 #t(cdr s_78) depth_3))))" -"(if(symbol? s_78)" -"(let-values()(f_28 #f s_78))" -"(if(boolean? s_78)" -"(let-values()(f_28 #f s_78))" -"(if(number? s_78)" -"(let-values()(f_28 #f s_78))" -"(if(let-values(((or-part_79)(vector? s_78)))" -"(if or-part_79" -" or-part_79" -"(let-values(((or-part_80)(box? s_78)))" -"(if or-part_80" -" or-part_80" -"(let-values(((or-part_81)(prefab-struct-key s_78)))" -"(if or-part_81 or-part_81(hash? s_78)))))))" -"(let-values()" -"(datum-map-slow" -" tail?_18" -" s_78" -"(lambda(tail?_0 s_40)(gf_3 tail?_0 s_40))" -" seen_8))" -"(let-values()(gf_3 #f s_78))))))))))))))" -" loop_68)" +" tail?_0" +" s_0" +"(lambda(tail?_1 s_1)(gf_25 tail?_1 s_1))" +" seen_26))" +"(let-values()(gf_25 #f s_0))))))))))))))" +" loop_29)" " #f" -" s_77" +" s_23" " 0))))))" -"(define-values(syntax-tainted?$1)(lambda(s_41)(begin 'syntax-tainted?(tamper-tainted?(syntax-tamper s_41)))))" -"(define-values(syntax-clean?)(lambda(s_80)(begin(tamper-clean?(syntax-tamper s_80)))))" +"(define-values(syntax-tainted?$1)(lambda(s_0)(begin 'syntax-tainted?(tamper-tainted?(syntax-tamper s_0)))))" +"(define-values(syntax-clean?)(lambda(s_0)(begin(tamper-clean?(syntax-tamper s_0)))))" "(define-values" "(syntax-arm$1)" -"(lambda(s_6 insp_0)" +"(lambda(s_0 insp_0)" "(begin" " 'syntax-arm" -"(let-values(((t_18)(syntax-tamper s_6)))" -"(if(tamper-tainted? t_18)" -"(let-values() s_6)" -"(if(if t_18" -"(let-values(((or-part_96)(set-member? t_18 insp_0)))" -"(if or-part_96" -" or-part_96" -"(let-values(((ht_45) t_18))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-in-immutable-hash-keys ht_45)))" -"((letrec-values(((for-loop_49)" -"(lambda(result_32 i_62)" -"(begin" -" 'for-loop" -"(if i_62" -"(let-values(((already-insp_0)" -"(unsafe-immutable-hash-iterate-key ht_45 i_62)))" -"(let-values(((result_33)" -"(let-values()" -"(let-values(((result_34)" -"(let-values()" -"(let-values()" -"(inspector-superior-or-same?" -" already-insp_0" -" insp_0)))))" -"(values result_34)))))" -"(if(if(not((lambda x_28 result_33) already-insp_0))(not #f) #f)" -"(for-loop_49" -" result_33" -"(unsafe-immutable-hash-iterate-next ht_45 i_62))" -" result_33)))" -" result_32)))))" -" for-loop_49)" -" #f" -"(unsafe-immutable-hash-iterate-first ht_45))))))" -" #f)" -"(let-values() s_6)" -"(let-values()" -"(let-values(((stx_1) s_6))" -"(let-values(((the-struct_7) stx_1))" -"(if(syntax?$1 the-struct_7)" -"(let-values(((scope-propagations+tamper6_0)" -"(let-values(((t_19)(set-add(if t_18(remove-inferior t_18 insp_0)(seteq)) insp_0))" -"((p_12)(syntax-scope-propagations+tamper stx_1)))" -"(if(tamper? p_12) t_19((propagation-set-tamper-ref p_12) p_12 t_19)))))" -"(syntax1.1" -"(syntax-content the-struct_7)" -"(syntax-scopes the-struct_7)" -"(syntax-shifted-multi-scopes the-struct_7)" -" scope-propagations+tamper6_0" -"(syntax-mpi-shifts the-struct_7)" -"(syntax-srcloc the-struct_7)" -"(syntax-props the-struct_7)" -"(syntax-inspector the-struct_7)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_7)))))))))))" -"(define-values" -"(remove-inferior)" -"(lambda(t_20 insp_1)" -"(begin" -"(let-values(((ht_46) t_20))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-in-immutable-hash-keys ht_46)))" -"((letrec-values(((for-loop_50)" -"(lambda(table_64 i_63)" -"(begin" -" 'for-loop" -"(if i_63" -"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_46 i_63)))" -"(let-values(((table_65)" -"(let-values(((table_66) table_64))" -"(if(inspector-superior-or-same? insp_1 already-insp_1)" -" table_66" -"(let-values(((table_67) table_66))" -"(let-values(((table_68)" -"(let-values()" -"(let-values(((key_28 val_16)" -"(let-values()" -"(values" -"(let-values() already-insp_1)" -" #t))))" -"(hash-set table_67 key_28 val_16)))))" -"(values table_68)))))))" -"(if(not #f)" -"(for-loop_50 table_65(unsafe-immutable-hash-iterate-next ht_46 i_63))" -" table_65)))" -" table_64)))))" -" for-loop_50)" -" '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_46)))))))" -"(define-values" -"(syntax-disarm$1)" -"(let-values(((syntax-disarm3_0)" -"(lambda(s2_5 insp1_0)" -"(begin" -" 'syntax-disarm3" -"(let-values(((s_81) s2_5))" -"(let-values(((insp_2) insp1_0))" -"(let-values()" -"(let-values(((t_21)(syntax-tamper s_81)))" -"(if(not(tamper-armed? t_21))" -"(let-values() s_81)" -"(if(not insp_2)" -"(let-values()" -"(let-values(((stx_2) s_81))" -"(let-values(((the-struct_8) stx_2))" -"(if(syntax?$1 the-struct_8)" -"(let-values(((scope-propagations+tamper7_0)" -"(let-values(((t_22) #f)" -"((p_13)(syntax-scope-propagations+tamper stx_2)))" -"(if(tamper? p_13)" -" t_22" -"((propagation-set-tamper-ref p_13) p_13 t_22)))))" -"(syntax1.1" -"(syntax-content the-struct_8)" -"(syntax-scopes the-struct_8)" -"(syntax-shifted-multi-scopes the-struct_8)" -" scope-propagations+tamper7_0" -"(syntax-mpi-shifts the-struct_8)" -"(syntax-srcloc the-struct_8)" -"(syntax-props the-struct_8)" -"(syntax-inspector the-struct_8)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_8)))))" -"(let-values()" -"(let-values(((new-t_1)(remove-inferior t_21 insp_2)))" -"(let-values(((stx_3) s_81))" -"(let-values(((the-struct_9) stx_3))" -"(if(syntax?$1 the-struct_9)" -"(let-values(((scope-propagations+tamper8_0)" -"(let-values(((t_23)(if(not(set-empty? new-t_1)) new-t_1 #f))" -"((p_14)(syntax-scope-propagations+tamper stx_3)))" -"(if(tamper? p_14)" -" t_23" -"((propagation-set-tamper-ref p_14) p_14 t_23)))))" -"(syntax1.1" -"(syntax-content the-struct_9)" -"(syntax-scopes the-struct_9)" -"(syntax-shifted-multi-scopes the-struct_9)" -" scope-propagations+tamper8_0" -"(syntax-mpi-shifts the-struct_9)" -"(syntax-srcloc the-struct_9)" -"(syntax-props the-struct_9)" -"(syntax-inspector the-struct_9)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_9))))))))))))))))" -"(case-lambda" -"((s_82)(begin 'syntax-disarm(syntax-disarm3_0 s_82 #f)))" -"((s_83 insp1_1)(syntax-disarm3_0 s_83 insp1_1)))))" -"(define-values" -"(syntax-rearm$1)" -"(lambda(s_17 from-s_0)" -"(begin" -" 'syntax-rearm" -"(let-values(((t_24)(syntax-tamper s_17)))" -"(if(tamper-tainted? t_24)" -"(let-values() s_17)" -"(let-values()" -"(let-values(((from-t_0)(syntax-tamper from-s_0)))" -"(if(tamper-clean? from-t_0)" -"(let-values() s_17)" -"(if(tamper-tainted? from-t_0)" -"(let-values()" -"(let-values(((stx_4) s_17))" -"(let-values(((the-struct_10) stx_4))" -"(if(syntax?$1 the-struct_10)" -"(let-values(((scope-propagations+tamper9_0)" -"(let-values(((t_25)(tamper-tainted-for-content(syntax-content s_17)))" -"((p_15)(syntax-scope-propagations+tamper stx_4)))" -"(if(tamper? p_15) t_25((propagation-set-tamper-ref p_15) p_15 t_25)))))" -"(syntax1.1" -"(syntax-content the-struct_10)" -"(syntax-scopes the-struct_10)" -"(syntax-shifted-multi-scopes the-struct_10)" -" scope-propagations+tamper9_0" -"(syntax-mpi-shifts the-struct_10)" -"(syntax-srcloc the-struct_10)" -"(syntax-props the-struct_10)" -"(syntax-inspector the-struct_10)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_10)))))" -"(if(tamper-clean? t_24)" -"(let-values()" -"(let-values(((stx_5) s_17))" -"(let-values(((the-struct_11) stx_5))" -"(if(syntax?$1 the-struct_11)" -"(let-values(((scope-propagations+tamper10_0)" -"(let-values(((t_26) from-t_0)" -"((p_16)(syntax-scope-propagations+tamper stx_5)))" -"(if(tamper? p_16) t_26((propagation-set-tamper-ref p_16) p_16 t_26)))))" -"(syntax1.1" -"(syntax-content the-struct_11)" -"(syntax-scopes the-struct_11)" -"(syntax-shifted-multi-scopes the-struct_11)" -" scope-propagations+tamper10_0" -"(syntax-mpi-shifts the-struct_11)" -"(syntax-srcloc the-struct_11)" -"(syntax-props the-struct_11)" -"(syntax-inspector the-struct_11)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_11)))))" -"(let-values()" -"(let-values(((stx_6) s_17))" -"(let-values(((the-struct_12) stx_6))" -"(if(syntax?$1 the-struct_12)" -"(let-values(((scope-propagations+tamper11_0)" -"(let-values(((t_27)" -"(let-values(((ht_16) from-t_0))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-in-immutable-hash-keys ht_16)))" -"((letrec-values(((for-loop_2)" -"(lambda(t_28 i_21)" -"(begin" -" 'for-loop" -"(if i_21" -"(let-values(((from-i_0)" -"(unsafe-immutable-hash-iterate-key" -" ht_16" -" i_21)))" -"(let-values(((t_29)" -"(let-values(((t_30)" -" t_28))" -"(let-values(((t_31)" -"(let-values()" -"(if(set-member?" -" t_30" -" from-i_0)" -"(let-values()" -" t_30)" -"(if(any-superior?" -" t_30" -" from-i_0)" -"(let-values()" -" t_30)" -"(let-values()" -"(set-add" -"(remove-inferior" -" t_30" -" from-i_0)" -" from-i_0)))))))" -"(values" -" t_31)))))" -"(if(not #f)" -"(for-loop_2" -" t_29" -"(unsafe-immutable-hash-iterate-next" -" ht_16" -" i_21))" -" t_29)))" -" t_28)))))" -" for-loop_2)" -" t_24" -"(unsafe-immutable-hash-iterate-first ht_16)))))" -"((p_10)(syntax-scope-propagations+tamper stx_6)))" -"(if(tamper? p_10) t_27((propagation-set-tamper-ref p_10) p_10 t_27)))))" -"(syntax1.1" -"(syntax-content the-struct_12)" -"(syntax-scopes the-struct_12)" -"(syntax-shifted-multi-scopes the-struct_12)" -" scope-propagations+tamper11_0" -"(syntax-mpi-shifts the-struct_12)" -"(syntax-srcloc the-struct_12)" -"(syntax-props the-struct_12)" -"(syntax-inspector the-struct_12)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_12)))))))))))))))" -"(define-values" -"(syntax-taint$1)" -"(lambda(s_84)" -"(begin" -" 'syntax-taint" -"(if(tamper-tainted?(syntax-tamper s_84))" -" s_84" -"(let-values(((stx_7) s_84))" -"(let-values(((the-struct_13) stx_7))" -"(if(syntax?$1 the-struct_13)" -"(let-values(((scope-propagations+tamper12_0)" -"(let-values(((t_32)(tamper-tainted-for-content(syntax-content s_84)))" -"((p_17)(syntax-scope-propagations+tamper stx_7)))" -"(if(tamper? p_17) t_32((propagation-set-tamper-ref p_17) p_17 t_32)))))" -"(syntax1.1" -"(syntax-content the-struct_13)" -"(syntax-scopes the-struct_13)" -"(syntax-shifted-multi-scopes the-struct_13)" -" scope-propagations+tamper12_0" -"(syntax-mpi-shifts the-struct_13)" -"(syntax-srcloc the-struct_13)" -"(syntax-props the-struct_13)" -"(syntax-inspector the-struct_13)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_13))))))))" -"(define-values" -"(any-superior?)" -"(lambda(t_5 from-i_1)" -"(begin" -"(let-values(((ht_47) t_5))" +"(let-values(((t_45)(syntax-tamper s_0)))" +"(if(tamper-tainted? t_45)" +"(let-values() s_0)" +"(if(if t_45" +"(let-values(((or-part_46)(set-member? t_45 insp_0)))" +"(if or-part_46" +" or-part_46" +"(let-values(((ht_47) t_45))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_47)))" -"((letrec-values(((for-loop_51)" -"(lambda(result_35 i_64)" +"((letrec-values(((for-loop_48)" +"(lambda(result_0 i_0)" "(begin" " 'for-loop" -"(if i_64" -"(let-values(((i_65)(unsafe-immutable-hash-iterate-key ht_47 i_64)))" -"(let-values(((result_36)" +"(if i_0" +"(let-values(((already-insp_51)" +"(unsafe-immutable-hash-iterate-key ht_47 i_0)))" +"(let-values(((result_52)" "(let-values()" -"(let-values(((result_37)" +"(let-values(((result_54)" "(let-values()" "(let-values()" -"(inspector-superior-or-same? i_65 from-i_1)))))" -"(values result_37)))))" -"(if(if(not((lambda x_29 result_36) i_65))(not #f) #f)" -"(for-loop_51 result_36(unsafe-immutable-hash-iterate-next ht_47 i_64))" -" result_36)))" -" result_35)))))" -" for-loop_51)" +"(inspector-superior-or-same?" +" already-insp_51" +" insp_0)))))" +"(values result_54)))))" +"(if(if(not((lambda x_0 result_52) already-insp_51))(not #f) #f)" +"(for-loop_48" +" result_52" +"(unsafe-immutable-hash-iterate-next ht_47 i_0))" +" result_52)))" +" result_0)))))" +" for-loop_48)" " #f" -"(unsafe-immutable-hash-iterate-first ht_47)))))))" +"(unsafe-immutable-hash-iterate-first ht_47))))))" +" #f)" +"(let-values() s_0)" +"(let-values()" +"(let-values(((stx_56) s_0))" +"(let-values(((the-struct_57) stx_56))" +"(if(syntax?$1 the-struct_57)" +"(let-values(((scope-propagations+tamper6_58)" +"(let-values(((t_59)(set-add(if t_45(remove-inferior t_45 insp_0)(seteq)) insp_0))" +"((p_60)(syntax-scope-propagations+tamper stx_56)))" +"(if(tamper? p_60) t_59((propagation-set-tamper-ref p_60) p_60 t_59)))))" +"(syntax1.1" +"(syntax-content the-struct_57)" +"(syntax-scopes the-struct_57)" +"(syntax-shifted-multi-scopes the-struct_57)" +" scope-propagations+tamper6_58" +"(syntax-mpi-shifts the-struct_57)" +"(syntax-srcloc the-struct_57)" +"(syntax-props the-struct_57)" +"(syntax-inspector the-struct_57)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_57)))))))))))" +"(define-values" +"(remove-inferior)" +"(lambda(t_0 insp_0)" +"(begin" +"(let-values(((ht_63) t_0))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-immutable-hash-keys ht_63)))" +"((letrec-values(((for-loop_64)" +"(lambda(table_0 i_0)" +"(begin" +" 'for-loop" +"(if i_0" +"(let-values(((already-insp_67)(unsafe-immutable-hash-iterate-key ht_63 i_0)))" +"(let-values(((table_68)" +"(let-values(((table_69) table_0))" +"(if(inspector-superior-or-same? insp_0 already-insp_67)" +" table_69" +"(let-values(((table_70) table_69))" +"(let-values(((table_71)" +"(let-values()" +"(let-values(((key_72 val_73)" +"(let-values()" +"(values" +"(let-values() already-insp_67)" +" #t))))" +"(hash-set table_70 key_72 val_73)))))" +"(values table_71)))))))" +"(if(not #f)" +"(for-loop_64 table_68(unsafe-immutable-hash-iterate-next ht_63 i_0))" +" table_68)))" +" table_0)))))" +" for-loop_64)" +" '#hasheq()" +"(unsafe-immutable-hash-iterate-first ht_63)))))))" +"(define-values" +"(syntax-disarm$1)" +"(let-values(((syntax-disarm3_74)" +"(lambda(s2_0 insp1_0)" +"(begin" +" 'syntax-disarm3" +"(let-values(((s_77) s2_0))" +"(let-values(((insp_78) insp1_0))" +"(let-values()" +"(let-values(((t_79)(syntax-tamper s_77)))" +"(if(not(tamper-armed? t_79))" +"(let-values() s_77)" +"(if(not insp_78)" +"(let-values()" +"(let-values(((stx_80) s_77))" +"(let-values(((the-struct_81) stx_80))" +"(if(syntax?$1 the-struct_81)" +"(let-values(((scope-propagations+tamper7_82)" +"(let-values(((t_83) #f)" +"((p_84)(syntax-scope-propagations+tamper stx_80)))" +"(if(tamper? p_84)" +" t_83" +"((propagation-set-tamper-ref p_84) p_84 t_83)))))" +"(syntax1.1" +"(syntax-content the-struct_81)" +"(syntax-scopes the-struct_81)" +"(syntax-shifted-multi-scopes the-struct_81)" +" scope-propagations+tamper7_82" +"(syntax-mpi-shifts the-struct_81)" +"(syntax-srcloc the-struct_81)" +"(syntax-props the-struct_81)" +"(syntax-inspector the-struct_81)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_81)))))" +"(let-values()" +"(let-values(((new-t_85)(remove-inferior t_79 insp_78)))" +"(let-values(((stx_86) s_77))" +"(let-values(((the-struct_87) stx_86))" +"(if(syntax?$1 the-struct_87)" +"(let-values(((scope-propagations+tamper8_88)" +"(let-values(((t_89)" +"(if(not(set-empty? new-t_85)) new-t_85 #f))" +"((p_90)(syntax-scope-propagations+tamper stx_86)))" +"(if(tamper? p_90)" +" t_89" +"((propagation-set-tamper-ref p_90) p_90 t_89)))))" +"(syntax1.1" +"(syntax-content the-struct_87)" +"(syntax-scopes the-struct_87)" +"(syntax-shifted-multi-scopes the-struct_87)" +" scope-propagations+tamper8_88" +"(syntax-mpi-shifts the-struct_87)" +"(syntax-srcloc the-struct_87)" +"(syntax-props the-struct_87)" +"(syntax-inspector the-struct_87)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_87))))))))))))))))" +"(case-lambda" +"((s_0)(begin 'syntax-disarm(syntax-disarm3_74 s_0 #f)))" +"((s_0 insp1_0)(syntax-disarm3_74 s_0 insp1_0)))))" +"(define-values" +"(syntax-rearm$1)" +"(lambda(s_0 from-s_0)" +"(begin" +" 'syntax-rearm" +"(let-values(((t_96)(syntax-tamper s_0)))" +"(if(tamper-tainted? t_96)" +"(let-values() s_0)" +"(let-values()" +"(let-values(((from-t_97)(syntax-tamper from-s_0)))" +"(if(tamper-clean? from-t_97)" +"(let-values() s_0)" +"(if(tamper-tainted? from-t_97)" +"(let-values()" +"(let-values(((stx_98) s_0))" +"(let-values(((the-struct_99) stx_98))" +"(if(syntax?$1 the-struct_99)" +"(let-values(((scope-propagations+tamper9_100)" +"(let-values(((t_101)(tamper-tainted-for-content(syntax-content s_0)))" +"((p_102)(syntax-scope-propagations+tamper stx_98)))" +"(if(tamper? p_102) t_101((propagation-set-tamper-ref p_102) p_102 t_101)))))" +"(syntax1.1" +"(syntax-content the-struct_99)" +"(syntax-scopes the-struct_99)" +"(syntax-shifted-multi-scopes the-struct_99)" +" scope-propagations+tamper9_100" +"(syntax-mpi-shifts the-struct_99)" +"(syntax-srcloc the-struct_99)" +"(syntax-props the-struct_99)" +"(syntax-inspector the-struct_99)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_99)))))" +"(if(tamper-clean? t_96)" +"(let-values()" +"(let-values(((stx_103) s_0))" +"(let-values(((the-struct_104) stx_103))" +"(if(syntax?$1 the-struct_104)" +"(let-values(((scope-propagations+tamper10_105)" +"(let-values(((t_106) from-t_97)" +"((p_107)(syntax-scope-propagations+tamper stx_103)))" +"(if(tamper? p_107)" +" t_106" +"((propagation-set-tamper-ref p_107) p_107 t_106)))))" +"(syntax1.1" +"(syntax-content the-struct_104)" +"(syntax-scopes the-struct_104)" +"(syntax-shifted-multi-scopes the-struct_104)" +" scope-propagations+tamper10_105" +"(syntax-mpi-shifts the-struct_104)" +"(syntax-srcloc the-struct_104)" +"(syntax-props the-struct_104)" +"(syntax-inspector the-struct_104)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_104)))))" +"(let-values()" +"(let-values(((stx_108) s_0))" +"(let-values(((the-struct_109) stx_108))" +"(if(syntax?$1 the-struct_109)" +"(let-values(((scope-propagations+tamper11_110)" +"(let-values(((t_111)" +"(let-values(((ht_113) from-t_97))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-immutable-hash-keys ht_113)))" +"((letrec-values(((for-loop_114)" +"(lambda(t_0 i_0)" +"(begin" +" 'for-loop" +"(if i_0" +"(let-values(((from-i_117)" +"(unsafe-immutable-hash-iterate-key" +" ht_113" +" i_0)))" +"(let-values(((t_118)" +"(let-values(((t_119)" +" t_0))" +"(let-values(((t_120)" +"(let-values()" +"(if(set-member?" +" t_119" +" from-i_117)" +"(let-values()" +" t_119)" +"(if(any-superior?" +" t_119" +" from-i_117)" +"(let-values()" +" t_119)" +"(let-values()" +"(set-add" +"(remove-inferior" +" t_119" +" from-i_117)" +" from-i_117)))))))" +"(values" +" t_120)))))" +"(if(not #f)" +"(for-loop_114" +" t_118" +"(unsafe-immutable-hash-iterate-next" +" ht_113" +" i_0))" +" t_118)))" +" t_0)))))" +" for-loop_114)" +" t_96" +"(unsafe-immutable-hash-iterate-first ht_113)))))" +"((p_112)(syntax-scope-propagations+tamper stx_108)))" +"(if(tamper? p_112)" +" t_111" +"((propagation-set-tamper-ref p_112) p_112 t_111)))))" +"(syntax1.1" +"(syntax-content the-struct_109)" +"(syntax-scopes the-struct_109)" +"(syntax-shifted-multi-scopes the-struct_109)" +" scope-propagations+tamper11_110" +"(syntax-mpi-shifts the-struct_109)" +"(syntax-srcloc the-struct_109)" +"(syntax-props the-struct_109)" +"(syntax-inspector the-struct_109)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_109)))))))))))))))" +"(define-values" +"(syntax-taint$1)" +"(lambda(s_0)" +"(begin" +" 'syntax-taint" +"(if(tamper-tainted?(syntax-tamper s_0))" +" s_0" +"(let-values(((stx_122) s_0))" +"(let-values(((the-struct_123) stx_122))" +"(if(syntax?$1 the-struct_123)" +"(let-values(((scope-propagations+tamper12_124)" +"(let-values(((t_125)(tamper-tainted-for-content(syntax-content s_0)))" +"((p_126)(syntax-scope-propagations+tamper stx_122)))" +"(if(tamper? p_126) t_125((propagation-set-tamper-ref p_126) p_126 t_125)))))" +"(syntax1.1" +"(syntax-content the-struct_123)" +"(syntax-scopes the-struct_123)" +"(syntax-shifted-multi-scopes the-struct_123)" +" scope-propagations+tamper12_124" +"(syntax-mpi-shifts the-struct_123)" +"(syntax-srcloc the-struct_123)" +"(syntax-props the-struct_123)" +"(syntax-inspector the-struct_123)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_123))))))))" +"(define-values" +"(any-superior?)" +"(lambda(t_0 from-i_0)" +"(begin" +"(let-values(((ht_129) t_0))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-immutable-hash-keys ht_129)))" +"((letrec-values(((for-loop_130)" +"(lambda(result_0 i_0)" +"(begin" +" 'for-loop" +"(if i_0" +"(let-values(((i_133)(unsafe-immutable-hash-iterate-key ht_129 i_0)))" +"(let-values(((result_134)" +"(let-values()" +"(let-values(((result_136)" +"(let-values()" +"(let-values()" +"(inspector-superior-or-same? i_133 from-i_0)))))" +"(values result_136)))))" +"(if(if(not((lambda x_0 result_134) i_133))(not #f) #f)" +"(for-loop_130 result_134(unsafe-immutable-hash-iterate-next ht_129 i_0))" +" result_134)))" +" result_0)))))" +" for-loop_130)" +" #f" +"(unsafe-immutable-hash-iterate-first ht_129)))))))" "(define-values" "(inspector-superior-or-same?)" -"(lambda(sup-i_0 i_66)" +"(lambda(sup-i_0 i_0)" "(begin" -"(let-values(((or-part_97)(eq? sup-i_0 i_66)))(if or-part_97 or-part_97(inspector-superior? sup-i_0 i_66))))))" +"(let-values(((or-part_140)(eq? sup-i_0 i_0)))(if or-part_140 or-part_140(inspector-superior? sup-i_0 i_0))))))" "(define-values" "(struct:fallback fallback1.1 fallback? fallback-search-list)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()(make-struct-type 'fallback #f 1 0 #f null 'prefab #f '(0) #f 'fallback)))))" -"(values struct:_0 make-_0 ?_0(make-struct-field-accessor -ref_0 0 'search-list))))" +"(values struct:_1 make-_2 ?_3(make-struct-field-accessor -ref_4 0 'search-list))))" "(define-values" "(fallback-first)" "(lambda(smss_0)(begin(if(fallback? smss_0)(car(fallback-search-list smss_0)) smss_0))))" "(define-values" "(fallback-rest)" -"(lambda(smss_1)" +"(lambda(smss_0)" "(begin" -"(let-values(((l_9)(cdr(fallback-search-list smss_1))))(if(null?(cdr l_9))(car l_9)(fallback1.1 l_9))))))" +"(let-values(((l_23)(cdr(fallback-search-list smss_0))))" +"(if(null?(cdr l_23))(car l_23)(fallback1.1 l_23))))))" "(define-values" "(fallback-push)" -"(lambda(smss_2 smss/maybe-fallback_0)" +"(lambda(smss_0 smss/maybe-fallback_0)" "(begin" "(fallback1.1" "(cons" -" smss_2" +" smss_0" "(if(fallback? smss/maybe-fallback_0)" "(fallback-search-list smss/maybe-fallback_0)" "(list smss/maybe-fallback_0)))))))" "(define-values" "(fallback-update-first)" -"(lambda(smss_3 f_4)" +"(lambda(smss_0 f_0)" "(begin" -"(if(fallback? smss_3)" -"(let-values(((l_45)(fallback-search-list smss_3)))(fallback1.1(cons(f_4(car l_45))(cdr l_45))))" -"(f_4 smss_3)))))" +"(if(fallback? smss_0)" +"(let-values(((l_28)(fallback-search-list smss_0)))(fallback1.1(cons(f_0(car l_28))(cdr l_28))))" +"(f_0 smss_0)))))" "(define-values" "(fallback-map)" -"(lambda(smss_4 f_29)" +"(lambda(smss_0 f_0)" "(begin" -"(if(fallback? smss_4)" +"(if(fallback? smss_0)" "(fallback1.1" "(reverse$1" -"(let-values(((lst_40)(fallback-search-list smss_4)))" +"(let-values(((lst_31)(fallback-search-list smss_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_40)))" -"((letrec-values(((for-loop_52)" -"(lambda(fold-var_31 lst_41)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_31)))" +"((letrec-values(((for-loop_32)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_41)" -"(let-values(((smss_5)(unsafe-car lst_41))((rest_17)(unsafe-cdr lst_41)))" -"(let-values(((fold-var_32)" -"(let-values(((fold-var_33) fold-var_31))" -"(let-values(((fold-var_34)" +"(if(pair? lst_0)" +"(let-values(((smss_35)(unsafe-car lst_0))((rest_36)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_37)" +"(let-values(((fold-var_38) fold-var_0))" +"(let-values(((fold-var_39)" "(let-values()" "(cons" -"(let-values()(f_29 smss_5))" -" fold-var_33))))" -"(values fold-var_34)))))" -"(if(not #f)(for-loop_52 fold-var_32 rest_17) fold-var_32)))" -" fold-var_31)))))" -" for-loop_52)" +"(let-values()(f_0 smss_35))" +" fold-var_38))))" +"(values fold-var_39)))))" +"(if(not #f)(for-loop_32 fold-var_37 rest_36) fold-var_37)))" +" fold-var_0)))))" +" for-loop_32)" " null" -" lst_40)))))" -"(f_29 smss_4)))))" +" lst_31)))))" +"(f_0 smss_0)))))" "(define-values" "(fallback->list)" -"(lambda(smss_6)(begin(if(fallback? smss_6)(fallback-search-list smss_6)(list smss_6)))))" +"(lambda(smss_0)(begin(if(fallback? smss_0)(fallback-search-list smss_0)(list smss_0)))))" "(define-values(cache)(box(make-weak-box #f)))" "(define-values" "(clear-resolve-cache!)" "(case-lambda" -"((sym_12)" +"((sym_0)" "(begin" -"(let-values(((c_13)(weak-box-value(unbox* cache))))" -"(begin(if c_13(let-values()(hash-remove! c_13 sym_12))(void))(set-box*! shifted-cache #f)))))" +"(let-values(((c_17)(weak-box-value(unbox* cache))))" +"(begin(if c_17(let-values()(hash-remove! c_17 sym_0))(void))(set-box*! shifted-cache #f)))))" "(()" -"(let-values(((c_14)(weak-box-value(unbox* cache))))" -"(begin(if c_14(let-values()(hash-clear! c_14))(void))(set-box*! shifted-cache #f))))))" +"(let-values(((c_18)(weak-box-value(unbox* cache))))" +"(begin(if c_18(let-values()(hash-clear! c_18))(void))(set-box*! shifted-cache #f))))))" "(define-values" "(struct:entry entry1.1 entry? entry-scs entry-smss entry-phase entry-binding)" -"(let-values(((struct:_11 make-_11 ?_11 -ref_11 -set!_11)" +"(let-values(((struct:_19 make-_20 ?_21 -ref_22 -set!_23)" "(let-values()" "(let-values()" "(make-struct-type" @@ -7937,44 +8013,44 @@ static const char *startup_source = " #f" " 'entry)))))" "(values" -" struct:_11" -" make-_11" -" ?_11" -"(make-struct-field-accessor -ref_11 0 'scs)" -"(make-struct-field-accessor -ref_11 1 'smss)" -"(make-struct-field-accessor -ref_11 2 'phase)" -"(make-struct-field-accessor -ref_11 3 'binding))))" +" struct:_19" +" make-_20" +" ?_21" +"(make-struct-field-accessor -ref_22 0 'scs)" +"(make-struct-field-accessor -ref_22 1 'smss)" +"(make-struct-field-accessor -ref_22 2 'phase)" +"(make-struct-field-accessor -ref_22 3 'binding))))" "(define-values" "(resolve-cache-get)" -"(lambda(sym_13 phase_4 scs_3 smss_7)" +"(lambda(sym_0 phase_0 scs_0 smss_0)" "(begin" -"(let-values(((c_15)(weak-box-value(unbox* cache))))" -"(if c_15" -"(let-values(((v_71)(hash-ref c_15 sym_13 #f)))" -"(if v_71" -"(if(eqv? phase_4(entry-phase v_71))" -"(if(set=? scs_3(entry-scs v_71))(if(set=? smss_7(entry-smss v_71))(entry-binding v_71) #f) #f)" +"(let-values(((c_58)(weak-box-value(unbox* cache))))" +"(if c_58" +"(let-values(((v_59)(hash-ref c_58 sym_0 #f)))" +"(if v_59" +"(if(eqv? phase_0(entry-phase v_59))" +"(if(set=? scs_0(entry-scs v_59))(if(set=? smss_0(entry-smss v_59))(entry-binding v_59) #f) #f)" " #f)" " #f))" " #f)))))" "(define-values" "(resolve-cache-set!)" -"(lambda(sym_14 phase_5 scs_4 smss_8 b_39)" +"(lambda(sym_0 phase_0 scs_0 smss_0 b_0)" "(begin" -"(let-values(((wb_0)(unbox* cache)))" -"(let-values(((c_16)(weak-box-value wb_0)))" -"(if(not c_16)" +"(let-values(((wb_65)(unbox* cache)))" +"(let-values(((c_66)(weak-box-value wb_65)))" +"(if(not c_66)" "(let-values()" "(begin" -"(box-cas! cache wb_0(make-weak-box(make-hasheq)))" -"(resolve-cache-set! sym_14 phase_5 scs_4 smss_8 b_39)))" -"(let-values()(hash-set! c_16 sym_14(entry1.1 scs_4 smss_8 phase_5 b_39)))))))))" +"(box-cas! cache wb_65(make-weak-box(make-hasheq)))" +"(resolve-cache-set! sym_0 phase_0 scs_0 smss_0 b_0)))" +"(let-values()(hash-set! c_66 sym_0(entry1.1 scs_0 smss_0 phase_0 b_0)))))))))" "(define-values(SHIFTED-CACHE-SIZE) 16)" "(define-values(shifted-cache)(box #f))" "(define-values(shifted-cache-pos) 0)" "(define-values" "(struct:shifted-entry shifted-entry2.1 shifted-entry? shifted-entry-s shifted-entry-phase shifted-entry-binding)" -"(let-values(((struct:_12 make-_12 ?_12 -ref_12 -set!_12)" +"(let-values(((struct:_67 make-_68 ?_69 -ref_70 -set!_71)" "(let-values()" "(let-values()" "(make-struct-type" @@ -7990,70 +8066,70 @@ static const char *startup_source = " #f" " 'shifted-entry)))))" "(values" -" struct:_12" -" make-_12" -" ?_12" -"(make-struct-field-accessor -ref_12 0 's)" -"(make-struct-field-accessor -ref_12 1 'phase)" -"(make-struct-field-accessor -ref_12 2 'binding))))" +" struct:_67" +" make-_68" +" ?_69" +"(make-struct-field-accessor -ref_70 0 's)" +"(make-struct-field-accessor -ref_70 1 'phase)" +"(make-struct-field-accessor -ref_70 2 'binding))))" "(define-values" "(shifted-cache-vector)" "(lambda()" "(begin" -"(let-values(((wb_1)(unbox* shifted-cache)))" -"(let-values(((c1_20)(if wb_1(weak-box-value wb_1) #f)))" -"(if c1_20" -"((lambda(vec_16) vec_16) c1_20)" +"(let-values(((wb_97)(unbox* shifted-cache)))" +"(let-values(((c1_98)(if wb_97(weak-box-value wb_97) #f)))" +"(if c1_98" +"((lambda(vec_0) vec_0) c1_98)" "(let-values()" -"(let-values(((vec_17)(make-vector SHIFTED-CACHE-SIZE #f)))" -"(begin(set-box*! shifted-cache(make-weak-box vec_17)) vec_17)))))))))" +"(let-values(((vec_100)(make-vector SHIFTED-CACHE-SIZE #f)))" +"(begin(set-box*! shifted-cache(make-weak-box vec_100)) vec_100)))))))))" "(define-values" "(resolve+shift-cache-get)" -"(lambda(s_23 phase_6)" +"(lambda(s_0 phase_0)" "(begin" -"(let-values(((vec_18)(shifted-cache-vector)))" -"(let-values(((vec_13 len_9)" -"(let-values(((vec_19) vec_18))" -"(begin(check-vector vec_19)(values vec_19(unsafe-vector-length vec_19))))))" +"(let-values(((vec_103)(shifted-cache-vector)))" +"(let-values(((vec_104 len_105)" +"(let-values(((vec_106) vec_103))" +"(begin(check-vector vec_106)(values vec_106(unsafe-vector-length vec_106))))))" "(begin" " #f" -"((letrec-values(((for-loop_53)" -"(lambda(result_23 pos_7)" +"((letrec-values(((for-loop_107)" +"(lambda(result_0 pos_0)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_7 len_9)" -"(let-values(((e_12)(unsafe-vector-ref vec_13 pos_7)))" -"(let-values(((result_38)" +"(if(unsafe-fx< pos_0 len_105)" +"(let-values(((e_110)(unsafe-vector-ref vec_104 pos_0)))" +"(let-values(((result_111)" "(let-values()" -"(let-values(((result_39)" +"(let-values(((result_113)" "(let-values()" "(let-values()" -"(if e_12" -"(if(eq? s_23(shifted-entry-s e_12))" +"(if e_110" +"(if(eq? s_0(shifted-entry-s e_110))" "(if(eqv?" -" phase_6" -"(shifted-entry-phase e_12))" -"(shifted-entry-binding e_12)" +" phase_0" +"(shifted-entry-phase e_110))" +"(shifted-entry-binding e_110)" " #f)" " #f)" " #f)))))" -"(values result_39)))))" -"(if(if(not((lambda x_30 result_38) e_12))(not #f) #f)" -"(for-loop_53 result_38(unsafe-fx+ 1 pos_7))" -" result_38)))" -" result_23)))))" -" for-loop_53)" +"(values result_113)))))" +"(if(if(not((lambda x_0 result_111) e_110))(not #f) #f)" +"(for-loop_107 result_111(unsafe-fx+ 1 pos_0))" +" result_111)))" +" result_0)))))" +" for-loop_107)" " #f" " 0)))))))" "(define-values" "(resolve+shift-cache-set!)" -"(lambda(s_85 phase_7 b_19)" +"(lambda(s_0 phase_0 b_0)" "(begin" -"(let-values(((vec_20)(shifted-cache-vector)))" -"(let-values(((p_18) shifted-cache-pos))" +"(let-values(((vec_118)(shifted-cache-vector)))" +"(let-values(((p_119) shifted-cache-pos))" "(begin" -"(vector*-set! vec_20 p_18(shifted-entry2.1 s_85 phase_7 b_19))" -"(set! shifted-cache-pos(fxand(fx+ 1 p_18)(fx- SHIFTED-CACHE-SIZE 1)))))))))" +"(vector*-set! vec_118 p_119(shifted-entry2.1 s_0 phase_0 b_0))" +"(set! shifted-cache-pos(fxand(fx+ 1 p_119)(fx- SHIFTED-CACHE-SIZE 1)))))))))" "(define-values(NUM-CACHE-SLOTS) 8)" "(define-values(cached-sets)(make-weak-box(make-vector NUM-CACHE-SLOTS #f)))" "(define-values(cached-sets-pos) 0)" @@ -8061,95 +8137,99 @@ static const char *startup_source = "(define-values(cached-hashes-pos) 0)" "(define-values" "(cache-or-reuse-set)" -"(lambda(s_45)" +"(lambda(s_0)" "(begin" -"(let-values(((vec_21)" -"(let-values(((or-part_98)(weak-box-value cached-sets)))" -"(if or-part_98" -" or-part_98" -"(let-values(((vec_22)(make-vector NUM-CACHE-SLOTS #f)))" -"(begin(set! cached-sets(make-weak-box vec_22)) vec_22))))))" -"(let-values(((or-part_99)" -"(let-values(((vec_23 len_10)" -"(let-values(((vec_24) vec_21))" -"(begin(check-vector vec_24)(values vec_24(unsafe-vector-length vec_24))))))" +"(let-values(((vec_121)" +"(let-values(((or-part_122)(weak-box-value cached-sets)))" +"(if or-part_122" +" or-part_122" +"(let-values(((vec_123)(make-vector NUM-CACHE-SLOTS #f)))" +"(begin(set! cached-sets(make-weak-box vec_123)) vec_123))))))" +"(let-values(((or-part_124)" +"(let-values(((vec_125 len_126)" +"(let-values(((vec_127) vec_121))" +"(begin(check-vector vec_127)(values vec_127(unsafe-vector-length vec_127))))))" "(begin" " #f" -"((letrec-values(((for-loop_54)" -"(lambda(result_40 pos_8)" +"((letrec-values(((for-loop_128)" +"(lambda(result_0 pos_0)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_8 len_10)" -"(let-values(((s2_6)(unsafe-vector-ref vec_23 pos_8)))" -"(let-values(((result_41)" +"(if(unsafe-fx< pos_0 len_126)" +"(let-values(((s2_131)(unsafe-vector-ref vec_125 pos_0)))" +"(let-values(((result_132)" "(let-values()" -"(let-values(((result_36)" +"(let-values(((result_134)" "(let-values()" "(let-values()" -"(if s2_6" -"(if(set=? s_45 s2_6) s2_6 #f)" +"(if s2_131" +"(if(set=? s_0 s2_131)" +" s2_131" +" #f)" " #f)))))" -"(values result_36)))))" -"(if(if(not((lambda x_31 result_41) s2_6))(not #f) #f)" -"(for-loop_54 result_41(unsafe-fx+ 1 pos_8))" -" result_41)))" -" result_40)))))" -" for-loop_54)" +"(values result_134)))))" +"(if(if(not((lambda x_0 result_132) s2_131))(not #f) #f)" +"(for-loop_128 result_132(unsafe-fx+ 1 pos_0))" +" result_132)))" +" result_0)))))" +" for-loop_128)" " #f" " 0)))))" -"(if or-part_99" -" or-part_99" +"(if or-part_124" +" or-part_124" "(begin" -"(vector*-set! vec_21 cached-sets-pos s_45)" +"(vector*-set! vec_121 cached-sets-pos s_0)" "(set! cached-sets-pos(fxand(fx+ 1 cached-sets-pos)(fx- NUM-CACHE-SLOTS 1)))" -" s_45)))))))" +" s_0)))))))" "(define-values" "(cache-or-reuse-hash)" -"(lambda(s_86)" +"(lambda(s_0)" "(begin" -"(let-values(((vec_25)" -"(let-values(((or-part_100)(weak-box-value cached-hashes)))" -"(if or-part_100" -" or-part_100" -"(let-values(((vec_26)(make-vector NUM-CACHE-SLOTS #f)))" -"(begin(set! cached-hashes(make-weak-box vec_26)) vec_26))))))" -"(let-values(((or-part_97)" -"(let-values(((vec_27 len_11)" -"(let-values(((vec_28) vec_25))" -"(begin(check-vector vec_28)(values vec_28(unsafe-vector-length vec_28))))))" +"(let-values(((vec_137)" +"(let-values(((or-part_138)(weak-box-value cached-hashes)))" +"(if or-part_138" +" or-part_138" +"(let-values(((vec_139)(make-vector NUM-CACHE-SLOTS #f)))" +"(begin(set! cached-hashes(make-weak-box vec_139)) vec_139))))))" +"(let-values(((or-part_140)" +"(let-values(((vec_141 len_142)" +"(let-values(((vec_143) vec_137))" +"(begin(check-vector vec_143)(values vec_143(unsafe-vector-length vec_143))))))" "(begin" " #f" -"((letrec-values(((for-loop_55)" -"(lambda(result_8 pos_9)" +"((letrec-values(((for-loop_144)" +"(lambda(result_0 pos_0)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_9 len_11)" -"(let-values(((s2_7)(unsafe-vector-ref vec_27 pos_9)))" -"(let-values(((result_42)" +"(if(unsafe-fx< pos_0 len_142)" +"(let-values(((s2_147)(unsafe-vector-ref vec_141 pos_0)))" +"(let-values(((result_148)" "(let-values()" -"(let-values(((result_43)" +"(let-values(((result_150)" "(let-values()" "(let-values()" -"(if s2_7" -"(if(equal? s_86 s2_7) s2_7 #f)" +"(if s2_147" +"(if(equal? s_0 s2_147)" +" s2_147" +" #f)" " #f)))))" -"(values result_43)))))" -"(if(if(not((lambda x_16 result_42) s2_7))(not #f) #f)" -"(for-loop_55 result_42(unsafe-fx+ 1 pos_9))" -" result_42)))" -" result_8)))))" -" for-loop_55)" +"(values result_150)))))" +"(if(if(not((lambda x_0 result_148) s2_147))(not #f) #f)" +"(for-loop_144 result_148(unsafe-fx+ 1 pos_0))" +" result_148)))" +" result_0)))))" +" for-loop_144)" " #f" " 0)))))" -"(if or-part_97" -" or-part_97" +"(if or-part_140" +" or-part_140" "(begin" -"(vector*-set! vec_25 cached-hashes-pos s_86)" +"(vector*-set! vec_137 cached-hashes-pos s_0)" "(set! cached-hashes-pos(fxand(fx+ 1 cached-hashes-pos)(fx- NUM-CACHE-SLOTS 1)))" -" s_86)))))))" +" s_0)))))))" "(define-values" "(struct:scope scope1.1 scope? scope-id scope-kind scope-binding-table set-scope-binding-table!)" -"(let-values(((struct:_13 make-_13 ?_13 -ref_13 -set!_13)" +"(let-values(((struct:_14 make-_15 ?_16 -ref_17 -set!_18)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8162,64 +8242,63 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:scope-with-bindings" -"(lambda(s_87 get-reachable-scopes_2 reach_6 register-trigger_2)" +"(lambda(s_0 get-reachable-scopes_0 reach_0 register-trigger_0)" "(binding-table-register-reachable" -"(scope-binding-table s_87)" -" get-reachable-scopes_2" -" reach_6" -" register-trigger_2)))" -"(cons prop:reach-scopes(lambda(s_88 reach_7)(void)))" +"(scope-binding-table s_0)" +" get-reachable-scopes_0" +" reach_0" +" register-trigger_0)))" +"(cons prop:reach-scopes(lambda(s_0 reach_0)(void)))" "(cons" " prop:serialize-fill!" -"(lambda(s_89 ser-push!_6 state_16)" -"(if(binding-table-empty?(scope-binding-table s_89))" -"(let-values()(ser-push!_6 'tag #f))" +"(lambda(s_0 ser-push!_0 state_0)" +"(if(binding-table-empty?(scope-binding-table s_0))" +"(let-values()(ser-push!_0 'tag #f))" "(let-values()" "(begin" -"(ser-push!_6 'tag '#:scope-fill!)" -"(ser-push!_6(binding-table-prune-to-reachable(scope-binding-table s_89) state_16)))))))" +"(ser-push!_0 'tag '#:scope-fill!)" +"(ser-push!_0(binding-table-prune-to-reachable(scope-binding-table s_0) state_0)))))))" "(cons" " prop:serialize" -"(lambda(s_90 ser-push!_7 state_17)" +"(lambda(s_0 ser-push!_0 state_0)" "(begin" -"(if(set-member?(serialize-state-reachable-scopes state_17) s_90)" +"(if(set-member?(serialize-state-reachable-scopes state_0) s_0)" "(void)" " (let-values () (error \"internal error: found supposedly unreachable scope\")))" -"(if(eq? s_90 top-level-common-scope)" -"(let-values()(ser-push!_7 'tag '#:scope))" -"(let-values()" -"(begin(ser-push!_7 'tag '#:scope+kind)(ser-push!_7(scope-kind s_90))))))))" +"(if(eq? s_0 top-level-common-scope)" +"(let-values()(ser-push!_0 'tag '#:scope))" +"(let-values()(begin(ser-push!_0 'tag '#:scope+kind)(ser-push!_0(scope-kind s_0))))))))" "(cons" " prop:custom-write" -"(lambda(sc_3 port_3 mode_6)" +"(lambda(sc_0 port_0 mode_0)" "(begin" -" (write-string \"#\" port_3)))))" +" (write-string \"#\" port_0)))))" "(current-inspector)" " #f" " '(0 1)" " #f" " 'scope)))))" "(values" -" struct:_13" -" make-_13" -" ?_13" -"(make-struct-field-accessor -ref_13 0 'id)" -"(make-struct-field-accessor -ref_13 1 'kind)" -"(make-struct-field-accessor -ref_13 2 'binding-table)" -"(make-struct-field-mutator -set!_13 2 'binding-table))))" +" struct:_14" +" make-_15" +" ?_16" +"(make-struct-field-accessor -ref_17 0 'id)" +"(make-struct-field-accessor -ref_17 1 'kind)" +"(make-struct-field-accessor -ref_17 2 'binding-table)" +"(make-struct-field-mutator -set!_18 2 'binding-table))))" "(define-values" "(deserialize-scope)" "(case-lambda" "(()(begin top-level-common-scope))" "((kind_0)(scope1.1(new-deserialize-scope-id!) kind_0 empty-binding-table))))" -"(define-values(deserialize-scope-fill!)(lambda(s_91 bt_5)(begin(set-scope-binding-table! s_91 bt_5))))" +"(define-values(deserialize-scope-fill!)(lambda(s_0 bt_0)(begin(set-scope-binding-table! s_0 bt_0))))" "(define-values" "(struct:interned-scope interned-scope2.1 interned-scope? interned-scope-key)" -"(let-values(((struct:_14 make-_14 ?_14 -ref_14 -set!_14)" +"(let-values(((struct:_62 make-_63 ?_64 -ref_65 -set!_66)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8232,30 +8311,30 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(s_92 ser-push!_8 state_18)" +"(lambda(s_0 ser-push!_0 state_0)" "(begin" -"(if(set-member?(serialize-state-reachable-scopes state_18) s_92)" +"(if(set-member?(serialize-state-reachable-scopes state_0) s_0)" "(void)" " (let-values () (error \"internal error: found supposedly unreachable scope\")))" -"(ser-push!_8 'tag '#:interned-scope)" -"(ser-push!_8(interned-scope-key s_92)))))" +"(ser-push!_0 'tag '#:interned-scope)" +"(ser-push!_0(interned-scope-key s_0)))))" "(cons" " prop:custom-write" -"(lambda(sc_4 port_4 mode_7)" +"(lambda(sc_0 port_0 mode_0)" "(begin" -" (write-string \"#\" port_4)))))" +" (write-string \"#\" port_0)))))" "(current-inspector)" " #f" " '(0)" " #f" " 'interned-scope)))))" -"(values struct:_14 make-_14 ?_14(make-struct-field-accessor -ref_14 0 'key))))" +"(values struct:_62 make-_63 ?_64(make-struct-field-accessor -ref_65 0 'key))))" "(define-values" "(struct:multi-scope" " multi-scope3.1" @@ -8265,7 +8344,7 @@ static const char *startup_source = " multi-scope-scopes" " multi-scope-shifted" " multi-scope-label-shifted)" -"(let-values(((struct:_15 make-_15 ?_15 -ref_15 -set!_15)" +"(let-values(((struct:_88 make-_89 ?_90 -ref_91 -set!_92)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8278,19 +8357,19 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:scope-with-bindings" -"(lambda(ms_0 get-reachable-scopes_3 reach_8 register-trigger_3)" +"(lambda(ms_0 get-reachable-scopes_0 reach_0 register-trigger_0)" "(begin" -"(let-values(((ht_48)(multi-scope-scopes ms_0)))" +"(let-values(((ht_132)(multi-scope-scopes ms_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-values ht_48)))" -"((letrec-values(((for-loop_56)" -"(lambda(i_67)" +"(let-values()(check-in-hash-values ht_132)))" +"((letrec-values(((for-loop_133)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_67" -"(let-values(((sc_5)(hash-iterate-value ht_48 i_67)))" +"(if i_0" +"(let-values(((sc_135)(hash-iterate-value ht_132 i_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -8299,45 +8378,45 @@ static const char *startup_source = "(let-values()" "(if(binding-table-empty?" "(scope-binding-table" -" sc_5))" +" sc_135))" "(void)" "(let-values()" -"(reach_8 sc_5))))" +"(reach_0 sc_135))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_56(hash-iterate-next ht_48 i_67))" +"(for-loop_133(hash-iterate-next ht_132 i_0))" "(values))))" "(values))))))" -" for-loop_56)" -"(hash-iterate-first ht_48))))" +" for-loop_133)" +"(hash-iterate-first ht_132))))" "(void))))" -"(cons prop:reach-scopes(lambda(s_86 reach_9)(void)))" +"(cons prop:reach-scopes(lambda(s_0 reach_0)(void)))" "(cons" " prop:serialize" -"(lambda(ms_1 ser-push!_9 state_19)" -"(let-values((()(begin(ser-push!_9 'tag '#:multi-scope)(values))))" -"(let-values((()(begin(ser-push!_9(multi-scope-name ms_1))(values))))" -"(let-values(((multi-scope-tables_0)(serialize-state-multi-scope-tables state_19)))" -"(ser-push!_9" -"(let-values(((or-part_101)" -"(hash-ref multi-scope-tables_0(multi-scope-scopes ms_1) #f)))" -"(if or-part_101" -" or-part_101" -"(let-values(((ht_49)(make-hasheqv)))" +"(lambda(ms_0 ser-push!_0 state_0)" +"(let-values((()(begin(ser-push!_0 'tag '#:multi-scope)(values))))" +"(let-values((()(begin(ser-push!_0(multi-scope-name ms_0))(values))))" +"(let-values(((multi-scope-tables_141)(serialize-state-multi-scope-tables state_0)))" +"(ser-push!_0" +"(let-values(((or-part_142)" +"(hash-ref multi-scope-tables_141(multi-scope-scopes ms_0) #f)))" +"(if or-part_142" +" or-part_142" +"(let-values(((ht_143)(make-hasheqv)))" "(begin" -"(let-values(((ht_50)(multi-scope-scopes ms_1)))" +"(let-values(((ht_144)(multi-scope-scopes ms_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_50)))" -"((letrec-values(((for-loop_57)" -"(lambda(i_68)" +"(let-values()(check-in-hash ht_144)))" +"((letrec-values(((for-loop_145)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_68" -"(let-values(((phase_8 sc_6)" -"(hash-iterate-key+value ht_50 i_68)))" +"(if i_0" +"(let-values(((phase_147 sc_148)" +"(hash-iterate-key+value ht_144 i_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -8346,43 +8425,43 @@ static const char *startup_source = "(let-values()" "(if(set-member?" "(serialize-state-reachable-scopes" -" state_19)" -" sc_6)" +" state_0)" +" sc_148)" "(let-values()" "(hash-set!" -" ht_49" -" phase_8" -" sc_6))" +" ht_143" +" phase_147" +" sc_148))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_57(hash-iterate-next ht_50 i_68))" +"(for-loop_145(hash-iterate-next ht_144 i_0))" "(values))))" "(values))))))" -" for-loop_57)" -"(hash-iterate-first ht_50))))" +" for-loop_145)" +"(hash-iterate-first ht_144))))" "(void)" -"(hash-set! multi-scope-tables_0(multi-scope-scopes ms_1) ht_49)" -" ht_49)))))))))))" +"(hash-set! multi-scope-tables_141(multi-scope-scopes ms_0) ht_143)" +" ht_143)))))))))))" "(current-inspector)" " #f" " '(0 1 2 3 4)" " #f" " 'multi-scope)))))" "(values" -" struct:_15" -" make-_15" -" ?_15" -"(make-struct-field-accessor -ref_15 0 'id)" -"(make-struct-field-accessor -ref_15 1 'name)" -"(make-struct-field-accessor -ref_15 2 'scopes)" -"(make-struct-field-accessor -ref_15 3 'shifted)" -"(make-struct-field-accessor -ref_15 4 'label-shifted))))" +" struct:_88" +" make-_89" +" ?_90" +"(make-struct-field-accessor -ref_91 0 'id)" +"(make-struct-field-accessor -ref_91 1 'name)" +"(make-struct-field-accessor -ref_91 2 'scopes)" +"(make-struct-field-accessor -ref_91 3 'shifted)" +"(make-struct-field-accessor -ref_91 4 'label-shifted))))" "(define-values" "(deserialize-multi-scope)" -"(lambda(name_14 scopes_8)" -"(begin(multi-scope3.1(new-deserialize-scope-id!) name_14 scopes_8(box(hasheqv))(box(hash))))))" +"(lambda(name_0 scopes_0)" +"(begin(multi-scope3.1(new-deserialize-scope-id!) name_0 scopes_0(box(hasheqv))(box(hash))))))" "(define-values" "(struct:representative-scope" " representative-scope4.1" @@ -8391,7 +8470,7 @@ static const char *startup_source = " representative-scope-phase" " set-representative-scope-owner!" " set-representative-scope-phase!)" -"(let-values(((struct:_16 make-_16 ?_16 -ref_16 -set!_16)" +"(let-values(((struct:_151 make-_152 ?_153 -ref_154 -set!_155)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8403,64 +8482,64 @@ static const char *startup_source = "(list" "(cons prop:authentic #t)" "(cons prop:implicitly-reachable #t)" -"(cons prop:reach-scopes(lambda(s_93 reach_10)(reach_10(representative-scope-owner s_93))))" +"(cons prop:reach-scopes(lambda(s_0 reach_0)(reach_0(representative-scope-owner s_0))))" "(cons" " prop:serialize-fill!" -"(lambda(s_94 ser-push!_10 state_20)" +"(lambda(s_0 ser-push!_0 state_0)" "(begin" -"(ser-push!_10 'tag '#:representative-scope-fill!)" -"(ser-push!_10(binding-table-prune-to-reachable(scope-binding-table s_94) state_20))" -"(ser-push!_10(representative-scope-owner s_94)))))" +"(ser-push!_0 'tag '#:representative-scope-fill!)" +"(ser-push!_0(binding-table-prune-to-reachable(scope-binding-table s_0) state_0))" +"(ser-push!_0(representative-scope-owner s_0)))))" "(cons" " prop:serialize" -"(lambda(s_95 ser-push!_11 state_21)" +"(lambda(s_0 ser-push!_0 state_0)" "(begin" -"(ser-push!_11 'tag '#:representative-scope)" -"(ser-push!_11(scope-kind s_95))" -"(ser-push!_11(representative-scope-phase s_95)))))" +"(ser-push!_0 'tag '#:representative-scope)" +"(ser-push!_0(scope-kind s_0))" +"(ser-push!_0(representative-scope-phase s_0)))))" "(cons" " prop:custom-write" -"(lambda(sc_7 port_5 mode_8)" +"(lambda(sc_0 port_0 mode_0)" "(begin" -" (write-string \"#\" port_5)))))" +" (write-string \"@\" port_0)" +"(display(representative-scope-phase sc_0) port_0)" +" (write-string \">\" port_0)))))" "(current-inspector)" " #f" " '()" " #f" " 'representative-scope)))))" "(values" -" struct:_16" -" make-_16" -" ?_16" -"(make-struct-field-accessor -ref_16 0 'owner)" -"(make-struct-field-accessor -ref_16 1 'phase)" -"(make-struct-field-mutator -set!_16 0 'owner)" -"(make-struct-field-mutator -set!_16 1 'phase))))" +" struct:_151" +" make-_152" +" ?_153" +"(make-struct-field-accessor -ref_154 0 'owner)" +"(make-struct-field-accessor -ref_154 1 'phase)" +"(make-struct-field-mutator -set!_155 0 'owner)" +"(make-struct-field-mutator -set!_155 1 'phase))))" "(define-values" "(deserialize-representative-scope)" -"(lambda(kind_1 phase_9)" -"(begin(let-values(((v_72)(representative-scope4.1(new-deserialize-scope-id!) kind_1 #f #f phase_9))) v_72))))" +"(lambda(kind_0 phase_0)" +"(begin(let-values(((v_189)(representative-scope4.1(new-deserialize-scope-id!) kind_0 #f #f phase_0))) v_189))))" "(define-values" "(deserialize-representative-scope-fill!)" -"(lambda(s_96 bt_6 owner_0)" -"(begin(begin(deserialize-scope-fill! s_96 bt_6)(set-representative-scope-owner! s_96 owner_0)))))" +"(lambda(s_0 bt_0 owner_0)" +"(begin(begin(deserialize-scope-fill! s_0 bt_0)(set-representative-scope-owner! s_0 owner_0)))))" "(define-values" "(struct:shifted-multi-scope" " shifted-multi-scope5.1" " shifted-multi-scope?" " shifted-multi-scope-phase" " shifted-multi-scope-multi-scope)" -"(let-values(((struct:_17 make-_17 ?_17 -ref_17 -set!_17)" +"(let-values(((struct:_193 make-_194 ?_195 -ref_196 -set!_197)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8473,74 +8552,74 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:reach-scopes" -"(lambda(sms_3 reach_11)(reach_11(shifted-multi-scope-multi-scope sms_3))))" +"(lambda(sms_0 reach_0)(reach_0(shifted-multi-scope-multi-scope sms_0))))" "(cons" " prop:serialize" -"(lambda(sms_4 ser-push!_12 state_22)" +"(lambda(sms_0 ser-push!_0 state_0)" "(begin" -"(ser-push!_12 'tag '#:shifted-multi-scope)" -"(ser-push!_12(shifted-multi-scope-phase sms_4))" -"(ser-push!_12(shifted-multi-scope-multi-scope sms_4)))))" +"(ser-push!_0 'tag '#:shifted-multi-scope)" +"(ser-push!_0(shifted-multi-scope-phase sms_0))" +"(ser-push!_0(shifted-multi-scope-multi-scope sms_0)))))" "(cons" " prop:custom-write" -"(lambda(sms_5 port_6 mode_9)" +"(lambda(sms_0 port_0 mode_0)" "(begin" -" (write-string \"#\" port_6)))))" +" (write-string \"#\" port_0)))))" "(current-inspector)" " #f" " '(0 1)" " #f" " 'shifted-multi-scope)))))" "(values" -" struct:_17" -" make-_17" -" ?_17" -"(make-struct-field-accessor -ref_17 0 'phase)" -"(make-struct-field-accessor -ref_17 1 'multi-scope))))" +" struct:_193" +" make-_194" +" ?_195" +"(make-struct-field-accessor -ref_196 0 'phase)" +"(make-struct-field-accessor -ref_196 1 'multi-scope))))" "(define-values" "(deserialize-shifted-multi-scope)" -"(lambda(phase_10 multi-scope_0)(begin(intern-shifted-multi-scope phase_10 multi-scope_0))))" +"(lambda(phase_0 multi-scope_0)(begin(intern-shifted-multi-scope phase_0 multi-scope_0))))" "(define-values" "(intern-shifted-multi-scope)" -"(lambda(phase_11 multi-scope_1)" +"(lambda(phase_0 multi-scope_0)" "(begin" -"(letrec-values(((transaction-loop_0)" -"(lambda(boxed-table_0 key_29 make_0)" +"(letrec-values(((transaction-loop_230)" +"(lambda(boxed-table_0 key_0 make_0)" "(begin" " 'transaction-loop" -"(let-values(((or-part_102)(hash-ref(unbox boxed-table_0) phase_11 #f)))" -"(if or-part_102" -" or-part_102" -"(let-values(((val_17)(make_0)))" -"(let-values(((current_0)(unbox boxed-table_0)))" -"(let-values(((next_3)(hash-set current_0 key_29 val_17)))" -"(if(box-cas! boxed-table_0 current_0 next_3)" -" val_17" -"(transaction-loop_0 boxed-table_0 key_29 make_0)))))))))))" -"(if(phase? phase_11)" +"(let-values(((or-part_234)(hash-ref(unbox boxed-table_0) phase_0 #f)))" +"(if or-part_234" +" or-part_234" +"(let-values(((val_235)(make_0)))" +"(let-values(((current_236)(unbox boxed-table_0)))" +"(let-values(((next_237)(hash-set current_236 key_0 val_235)))" +"(if(box-cas! boxed-table_0 current_236 next_237)" +" val_235" +"(transaction-loop_230 boxed-table_0 key_0 make_0)))))))))))" +"(if(phase? phase_0)" "(let-values()" -"(let-values(((or-part_103)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_11 #f)))" -"(if or-part_103" -" or-part_103" -"(transaction-loop_0" -"(multi-scope-shifted multi-scope_1)" -" phase_11" -"(lambda()(shifted-multi-scope5.1 phase_11 multi-scope_1))))))" +"(let-values(((or-part_238)(hash-ref(unbox(multi-scope-shifted multi-scope_0)) phase_0 #f)))" +"(if or-part_238" +" or-part_238" +"(transaction-loop_230" +"(multi-scope-shifted multi-scope_0)" +" phase_0" +"(lambda()(shifted-multi-scope5.1 phase_0 multi-scope_0))))))" "(let-values()" -"(let-values(((or-part_104)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_11 #f)))" -"(if or-part_104" -" or-part_104" -"(transaction-loop_0" -"(multi-scope-label-shifted multi-scope_1)" -" phase_11" -"(lambda()(shifted-multi-scope5.1 phase_11 multi-scope_1)))))))))))" +"(let-values(((or-part_239)(hash-ref(unbox(multi-scope-label-shifted multi-scope_0)) phase_0 #f)))" +"(if or-part_239" +" or-part_239" +"(transaction-loop_230" +"(multi-scope-label-shifted multi-scope_0)" +" phase_0" +"(lambda()(shifted-multi-scope5.1 phase_0 multi-scope_0)))))))))))" "(define-values" "(struct:shifted-to-label-phase shifted-to-label-phase6.1 shifted-to-label-phase? shifted-to-label-phase-from)" -"(let-values(((struct:_18 make-_18 ?_18 -ref_18 -set!_18)" +"(let-values(((struct:_240 make-_241 ?_242 -ref_243 -set!_244)" "(let-values()" "(let-values()" "(make-struct-type" @@ -8555,589 +8634,591 @@ static const char *startup_source = " '(0)" " #f" " 'shifted-to-label-phase)))))" -"(values struct:_18 make-_18 ?_18(make-struct-field-accessor -ref_18 0 'from))))" +"(values struct:_240 make-_241 ?_242(make-struct-field-accessor -ref_243 0 'from))))" "(define-values(id-counter) 0)" "(define-values(new-scope-id!)(lambda()(begin(begin(set! id-counter(add1 id-counter)) id-counter))))" "(define-values(new-deserialize-scope-id!)(lambda()(begin(-(new-scope-id!)))))" "(define-values(deserialized-scope-id?)(lambda(scope-id_0)(begin(negative? scope-id_0))))" "(define-values(top-level-common-scope)(scope1.1 0 'module empty-binding-table))" -"(define-values(new-scope)(lambda(kind_2)(begin(scope1.1(new-scope-id!) kind_2 empty-binding-table))))" +"(define-values(new-scope)(lambda(kind_0)(begin(scope1.1(new-scope-id!) kind_0 empty-binding-table))))" "(define-values(interned-scopes-table)(make-weak-hasheq))" "(define-values" "(make-interned-scope)" -"(lambda(sym_15)" +"(lambda(sym_0)" "(begin" -"(let-values(((make_1)" +"(let-values(((make_263)" "(lambda()" "(begin" " 'make" "(make-ephemeron" -" sym_15" -"(interned-scope2.1(-(new-scope-id!)) 'interned empty-binding-table sym_15))))))" +" sym_0" +"(interned-scope2.1(-(new-scope-id!)) 'interned empty-binding-table sym_0))))))" "(call-as-atomic" "(lambda()" -"(let-values(((or-part_105)(ephemeron-value(hash-ref! interned-scopes-table sym_15 make_1))))" -"(if or-part_105" -" or-part_105" -"(let-values(((new_1)(make_1)))" -"(begin(hash-set! interned-scopes-table sym_15 new_1)(ephemeron-value new_1)))))))))))" +"(let-values(((or-part_264)(ephemeron-value(hash-ref! interned-scopes-table sym_0 make_263))))" +"(if or-part_264" +" or-part_264" +"(let-values(((new_265)(make_263)))" +"(begin(hash-set! interned-scopes-table sym_0 new_265)(ephemeron-value new_265)))))))))))" "(define-values" "(new-multi-scope)" -"(let-values(((new-multi-scope8_0)" +"(let-values(((new-multi-scope8_266)" "(lambda(name7_0)" "(begin" " 'new-multi-scope8" -"(let-values(((name_15) name7_0))" +"(let-values(((name_268) name7_0))" "(let-values()" "(intern-shifted-multi-scope" " 0" -"(multi-scope3.1(new-scope-id!) name_15(make-hasheqv)(box(hasheqv))(box(hash))))))))))" -"(case-lambda(()(begin(new-multi-scope8_0 #f)))((name7_1)(new-multi-scope8_0 name7_1)))))" +"(multi-scope3.1(new-scope-id!) name_268(make-hasheqv)(box(hasheqv))(box(hash))))))))))" +"(case-lambda(()(begin(new-multi-scope8_266 #f)))((name7_0)(new-multi-scope8_266 name7_0)))))" "(define-values" "(multi-scope-to-scope-at-phase)" -"(lambda(ms_2 phase_12)" +"(lambda(ms_0 phase_0)" "(begin" -"(let-values(((or-part_106)(hash-ref(multi-scope-scopes ms_2) phase_12 #f)))" -"(if or-part_106" -" or-part_106" -"(let-values(((s_97)" +"(let-values(((or-part_272)(hash-ref(multi-scope-scopes ms_0) phase_0 #f)))" +"(if or-part_272" +" or-part_272" +"(let-values(((s_273)" "(representative-scope4.1" -"(if(deserialized-scope-id?(multi-scope-id ms_2))(new-deserialize-scope-id!)(new-scope-id!))" +"(if(deserialized-scope-id?(multi-scope-id ms_0))(new-deserialize-scope-id!)(new-scope-id!))" " 'module" " empty-binding-table" -" ms_2" -" phase_12)))" -"(begin(hash-set!(multi-scope-scopes ms_2) phase_12 s_97) s_97)))))))" +" ms_0" +" phase_0)))" +"(begin(hash-set!(multi-scope-scopes ms_0) phase_0 s_273) s_273)))))))" "(define-values(scope>?)(lambda(sc1_0 sc2_0)(begin(>(scope-id sc1_0)(scope-id sc2_0)))))" -"(define-values(scope_2)" -"(lambda(sub-s_1)" +"(let-values(((prop_285)(syntax-scope-propagations+tamper s_0)))" +"(if(let-values(((or-part_286)(propagation? prop_285)))" +"(if or-part_286 or-part_286(tamper-needs-propagate? prop_285)))" +"(let-values(((new-content_287)" +"(let-values(((s_288)(syntax-content s_0))" +"((f_289)(lambda(tail?_0 x_0)(begin 'f x_0)))" +"((s->_290)" +"(lambda(sub-s_0)" "(begin" " 's->" -"(if(propagation? prop_2)" -"(let-values(((the-struct_14) sub-s_1))" -"(if(syntax?$1 the-struct_14)" -"(let-values(((scopes49_0)" -"(propagation-apply prop_2(syntax-scopes sub-s_1) s_98))" -"((shifted-multi-scopes50_0)" +"(if(propagation? prop_285)" +"(let-values(((the-struct_295) sub-s_0))" +"(if(syntax?$1 the-struct_295)" +"(let-values(((scopes49_296)" +"(propagation-apply prop_285(syntax-scopes sub-s_0) s_0))" +"((shifted-multi-scopes50_297)" "(propagation-apply-shifted" -" prop_2" -"(syntax-shifted-multi-scopes sub-s_1)" -" s_98))" -"((mpi-shifts51_0)" +" prop_285" +"(syntax-shifted-multi-scopes sub-s_0)" +" s_0))" +"((mpi-shifts51_298)" "(propagation-apply-mpi-shifts" -" prop_2" -"(syntax-mpi-shifts sub-s_1)" -" s_98))" -"((inspector52_0)" +" prop_285" +"(syntax-mpi-shifts sub-s_0)" +" s_0))" +"((inspector52_299)" "(propagation-apply-inspector" -" prop_2" -"(syntax-inspector sub-s_1)))" -"((scope-propagations+tamper53_0)" +" prop_285" +"(syntax-inspector sub-s_0)))" +"((scope-propagations+tamper53_300)" "(propagation-merge" -"(syntax-content sub-s_1)" -" prop_2" -"(syntax-scope-propagations+tamper sub-s_1)" -"(syntax-scopes sub-s_1)" -"(syntax-shifted-multi-scopes sub-s_1)" -"(syntax-mpi-shifts sub-s_1))))" +"(syntax-content sub-s_0)" +" prop_285" +"(syntax-scope-propagations+tamper sub-s_0)" +"(syntax-scopes sub-s_0)" +"(syntax-shifted-multi-scopes sub-s_0)" +"(syntax-mpi-shifts sub-s_0))))" "(syntax1.1" -"(syntax-content the-struct_14)" -" scopes49_0" -" shifted-multi-scopes50_0" -" scope-propagations+tamper53_0" -" mpi-shifts51_0" -"(syntax-srcloc the-struct_14)" -"(syntax-props the-struct_14)" -" inspector52_0))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_14)))" -"(let-values(((stx_8) sub-s_1))" -"(let-values(((the-struct_15) stx_8))" -"(if(syntax?$1 the-struct_15)" -"(let-values(((scope-propagations+tamper54_0)" -"(let-values(((t_33)" +"(syntax-content the-struct_295)" +" scopes49_296" +" shifted-multi-scopes50_297" +" scope-propagations+tamper53_300" +" mpi-shifts51_298" +"(syntax-srcloc the-struct_295)" +"(syntax-props the-struct_295)" +" inspector52_299))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_295)))" +"(let-values(((stx_301) sub-s_0))" +"(let-values(((the-struct_302) stx_301))" +"(if(syntax?$1 the-struct_302)" +"(let-values(((scope-propagations+tamper54_303)" +"(let-values(((t_304)" "(tamper-tainted-for-content" -"(syntax-content sub-s_1)))" -"((p_19)" -"(syntax-scope-propagations+tamper stx_8)))" -"(if(tamper? p_19)" -" t_33" -"((propagation-set-tamper-ref p_19) p_19 t_33)))))" +"(syntax-content sub-s_0)))" +"((p_305)" +"(syntax-scope-propagations+tamper" +" stx_301)))" +"(if(tamper? p_305)" +" t_304" +"((propagation-set-tamper-ref p_305) p_305 t_304)))))" "(syntax1.1" -"(syntax-content the-struct_15)" -"(syntax-scopes the-struct_15)" -"(syntax-shifted-multi-scopes the-struct_15)" -" scope-propagations+tamper54_0" -"(syntax-mpi-shifts the-struct_15)" -"(syntax-srcloc the-struct_15)" -"(syntax-props the-struct_15)" -"(syntax-inspector the-struct_15)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_15))))))))" -"((seen_9) #f))" -"(let-values(((s_100) s_99)" -"((f_31) f_30)" -"((gf_4)" -"(lambda(tail?_21 v_73)" +"(syntax-content the-struct_302)" +"(syntax-scopes the-struct_302)" +"(syntax-shifted-multi-scopes the-struct_302)" +" scope-propagations+tamper54_303" +"(syntax-mpi-shifts the-struct_302)" +"(syntax-srcloc the-struct_302)" +"(syntax-props the-struct_302)" +"(syntax-inspector the-struct_302)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_302))))))))" +"((seen_291) #f))" +"(let-values(((s_306) s_288)" +"((f_307) f_289)" +"((gf_308)" +"(lambda(tail?_0 v_0)" "(begin" " 'gf" -"(if(syntax?$1 v_73)" -"(let-values()(s->_2 v_73))" -"(let-values()(f_30 tail?_21 v_73))))))" -"((seen_10) seen_9))" -"((letrec-values(((loop_69)" -"(lambda(tail?_22 s_101 prev-depth_4)" +"(if(syntax?$1 v_0)" +"(let-values()(s->_290 v_0))" +"(let-values()(f_289 tail?_0 v_0))))))" +"((seen_309) seen_291))" +"((letrec-values(((loop_312)" +"(lambda(tail?_0 s_1 prev-depth_0)" "(begin" " 'loop" -"(let-values(((depth_4)(fx+ 1 prev-depth_4)))" -"(if(if seen_10(fx> depth_4 32) #f)" +"(let-values(((depth_316)(fx+ 1 prev-depth_0)))" +"(if(if seen_309(fx> depth_316 32) #f)" "(let-values()" "(datum-map-slow" -" tail?_22" -" s_101" -"(lambda(tail?_23 s_102)(gf_4 tail?_23 s_102))" -" seen_10))" -"(if(null? s_101)" -"(let-values()(f_31 tail?_22 s_101))" -"(if(pair? s_101)" +" tail?_0" +" s_1" +"(lambda(tail?_1 s_2)(gf_308 tail?_1 s_2))" +" seen_309))" +"(if(null? s_1)" +"(let-values()(f_307 tail?_0 s_1))" +"(if(pair? s_1)" "(let-values()" -"(f_31" -" tail?_22" +"(f_307" +" tail?_0" "(cons" -"(loop_69 #f(car s_101) depth_4)" -"(loop_69 #t(cdr s_101) depth_4))))" -"(if(symbol? s_101)" -"(let-values()(f_31 #f s_101))" -"(if(boolean? s_101)" -"(let-values()(f_31 #f s_101))" -"(if(number? s_101)" -"(let-values()(f_31 #f s_101))" -"(if(let-values(((or-part_108)(vector? s_101)))" -"(if or-part_108" -" or-part_108" -"(let-values(((or-part_109)(box? s_101)))" -"(if or-part_109" -" or-part_109" -"(let-values(((or-part_110)" -"(prefab-struct-key s_101)))" -"(if or-part_110" -" or-part_110" -"(hash? s_101)))))))" +"(loop_312 #f(car s_1) depth_316)" +"(loop_312 #t(cdr s_1) depth_316))))" +"(if(symbol? s_1)" +"(let-values()(f_307 #f s_1))" +"(if(boolean? s_1)" +"(let-values()(f_307 #f s_1))" +"(if(number? s_1)" +"(let-values()(f_307 #f s_1))" +"(if(let-values(((or-part_319)(vector? s_1)))" +"(if or-part_319" +" or-part_319" +"(let-values(((or-part_320)(box? s_1)))" +"(if or-part_320" +" or-part_320" +"(let-values(((or-part_321)" +"(prefab-struct-key s_1)))" +"(if or-part_321" +" or-part_321" +"(hash? s_1)))))))" "(let-values()" "(datum-map-slow" -" tail?_22" -" s_101" -"(lambda(tail?_24 s_103)(gf_4 tail?_24 s_103))" -" seen_10))" -"(let-values()(gf_4 #f s_101))))))))))))))" -" loop_69)" +" tail?_0" +" s_1" +"(lambda(tail?_1 s_2)(gf_308 tail?_1 s_2))" +" seen_309))" +"(let-values()(gf_308 #f s_1))))))))))))))" +" loop_312)" " #f" -" s_100" +" s_306" " 0)))))" "(begin" -"(set-syntax-content! s_98 new-content_0)" +"(set-syntax-content! s_0 new-content_287)" "(set-syntax-scope-propagations+tamper!" -" s_98" -"(tamper-propagated(if(propagation? prop_2)(propagation-tamper prop_2) prop_2)))" -" new-content_0))" -"(syntax-content s_98))))))" +" s_0" +"(tamper-propagated(if(propagation? prop_285)(propagation-tamper prop_285) prop_285)))" +" new-content_287))" +"(syntax-content s_0))))))" "(define-values" "(syntax-e$1)" -"(lambda(s_104)" +"(lambda(s_0)" "(begin" " 'syntax-e" -"(let-values(((e_13)(syntax-content s_104)))" -"(if(symbol? e_13)" -"(let-values() e_13)" +"(let-values(((e_325)(syntax-content s_0)))" +"(if(symbol? e_325)" +"(let-values() e_325)" "(let-values()" -"(let-values(((content_6)(syntax-e/no-taint s_104)))" -"(if(not(tamper-armed?(syntax-scope-propagations+tamper s_104)))" -"(let-values() content_6)" -"(if(datum-has-elements? content_6)" -"(let-values()(taint-content content_6))" -"(let-values() content_6))))))))))" +"(let-values(((content_326)(syntax-e/no-taint s_0)))" +"(if(not(tamper-armed?(syntax-scope-propagations+tamper s_0)))" +"(let-values() content_326)" +"(if(datum-has-elements? content_326)" +"(let-values()(taint-content content_326))" +"(let-values() content_326))))))))))" "(define-values" "(generalize-scope)" -"(lambda(sc_8)" +"(lambda(sc_0)" "(begin" -"(if(representative-scope? sc_8)" -"(intern-shifted-multi-scope(representative-scope-phase sc_8)(representative-scope-owner sc_8))" -" sc_8))))" +"(if(representative-scope? sc_0)" +"(intern-shifted-multi-scope(representative-scope-phase sc_0)(representative-scope-owner sc_0))" +" sc_0))))" "(define-values" "(add-scope)" -"(lambda(s_105 sc_9)" +"(lambda(s_0 sc_0)" "(begin" -"(let-values(((s_106) s_105)((sc_10)(generalize-scope sc_9))((op_0) set-add)((prop-op_0) propagation-add))" -"(if(shifted-multi-scope? sc_10)" -"(let-values(((the-struct_16) s_106))" -"(if(syntax?$1 the-struct_16)" -"(let-values(((shifted-multi-scopes55_0)" +"(let-values(((s_330) s_0)((sc_331)(generalize-scope sc_0))((op_332) set-add)((prop-op_333) propagation-add))" +"(if(shifted-multi-scope? sc_331)" +"(let-values(((the-struct_334) s_330))" +"(if(syntax?$1 the-struct_334)" +"(let-values(((shifted-multi-scopes55_335)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_106)" -"(lambda(smss_9)(op_0(fallback-first smss_9) sc_10))))" -"((scope-propagations+tamper56_0)" -"(if(datum-has-elements?(syntax-content s_106))" -"(prop-op_0" -"(syntax-scope-propagations+tamper s_106)" -" sc_10" -"(syntax-scopes s_106)" -"(syntax-shifted-multi-scopes s_106)" -"(syntax-mpi-shifts s_106))" -"(syntax-scope-propagations+tamper s_106))))" +"(syntax-shifted-multi-scopes s_330)" +"(lambda(smss_0)(op_332(fallback-first smss_0) sc_331))))" +"((scope-propagations+tamper56_336)" +"(if(datum-has-elements?(syntax-content s_330))" +"(prop-op_333" +"(syntax-scope-propagations+tamper s_330)" +" sc_331" +"(syntax-scopes s_330)" +"(syntax-shifted-multi-scopes s_330)" +"(syntax-mpi-shifts s_330))" +"(syntax-scope-propagations+tamper s_330))))" "(syntax1.1" -"(syntax-content the-struct_16)" -"(syntax-scopes the-struct_16)" -" shifted-multi-scopes55_0" -" scope-propagations+tamper56_0" -"(syntax-mpi-shifts the-struct_16)" -"(syntax-srcloc the-struct_16)" -"(syntax-props the-struct_16)" -"(syntax-inspector the-struct_16)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_16)))" -"(let-values(((the-struct_17) s_106))" -"(if(syntax?$1 the-struct_17)" -"(let-values(((scopes57_0)(op_0(syntax-scopes s_106) sc_10))" -"((scope-propagations+tamper58_0)" -"(if(datum-has-elements?(syntax-content s_106))" -"(prop-op_0" -"(syntax-scope-propagations+tamper s_106)" -" sc_10" -"(syntax-scopes s_106)" -"(syntax-shifted-multi-scopes s_106)" -"(syntax-mpi-shifts s_106))" -"(syntax-scope-propagations+tamper s_106))))" +"(syntax-content the-struct_334)" +"(syntax-scopes the-struct_334)" +" shifted-multi-scopes55_335" +" scope-propagations+tamper56_336" +"(syntax-mpi-shifts the-struct_334)" +"(syntax-srcloc the-struct_334)" +"(syntax-props the-struct_334)" +"(syntax-inspector the-struct_334)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_334)))" +"(let-values(((the-struct_338) s_330))" +"(if(syntax?$1 the-struct_338)" +"(let-values(((scopes57_339)(op_332(syntax-scopes s_330) sc_331))" +"((scope-propagations+tamper58_340)" +"(if(datum-has-elements?(syntax-content s_330))" +"(prop-op_333" +"(syntax-scope-propagations+tamper s_330)" +" sc_331" +"(syntax-scopes s_330)" +"(syntax-shifted-multi-scopes s_330)" +"(syntax-mpi-shifts s_330))" +"(syntax-scope-propagations+tamper s_330))))" "(syntax1.1" -"(syntax-content the-struct_17)" -" scopes57_0" -"(syntax-shifted-multi-scopes the-struct_17)" -" scope-propagations+tamper58_0" -"(syntax-mpi-shifts the-struct_17)" -"(syntax-srcloc the-struct_17)" -"(syntax-props the-struct_17)" -"(syntax-inspector the-struct_17)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_17))))))))" +"(syntax-content the-struct_338)" +" scopes57_339" +"(syntax-shifted-multi-scopes the-struct_338)" +" scope-propagations+tamper58_340" +"(syntax-mpi-shifts the-struct_338)" +"(syntax-srcloc the-struct_338)" +"(syntax-props the-struct_338)" +"(syntax-inspector the-struct_338)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_338))))))))" "(define-values" "(add-scopes)" -"(lambda(s_107 scs_5)" +"(lambda(s_0 scs_0)" "(begin" -"(let-values(((lst_42) scs_5))" +"(let-values(((lst_343) scs_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" -"((letrec-values(((for-loop_58)" -"(lambda(s_108 lst_43)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_343)))" +"((letrec-values(((for-loop_344)" +"(lambda(s_1 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_43)" -"(let-values(((sc_11)(unsafe-car lst_43))((rest_18)(unsafe-cdr lst_43)))" -"(let-values(((s_109)" -"(let-values(((s_110) s_108))" -"(let-values(((s_111)(let-values()(add-scope s_110 sc_11))))" -"(values s_111)))))" -"(if(not #f)(for-loop_58 s_109 rest_18) s_109)))" -" s_108)))))" -" for-loop_58)" -" s_107" -" lst_42))))))" +"(if(pair? lst_0)" +"(let-values(((sc_347)(unsafe-car lst_0))((rest_348)(unsafe-cdr lst_0)))" +"(let-values(((s_349)" +"(let-values(((s_350) s_1))" +"(let-values(((s_351)(let-values()(add-scope s_350 sc_347))))" +"(values s_351)))))" +"(if(not #f)(for-loop_344 s_349 rest_348) s_349)))" +" s_1)))))" +" for-loop_344)" +" s_0" +" lst_343))))))" "(define-values" "(remove-scope)" -"(lambda(s_112 sc_12)" +"(lambda(s_0 sc_0)" "(begin" -"(let-values(((s_113) s_112)" -"((sc_13)(generalize-scope sc_12))" -"((op_1) set-remove)" -"((prop-op_1) propagation-remove))" -"(if(shifted-multi-scope? sc_13)" -"(let-values(((the-struct_18) s_113))" -"(if(syntax?$1 the-struct_18)" -"(let-values(((shifted-multi-scopes59_0)" +"(let-values(((s_354) s_0)" +"((sc_355)(generalize-scope sc_0))" +"((op_356) set-remove)" +"((prop-op_357) propagation-remove))" +"(if(shifted-multi-scope? sc_355)" +"(let-values(((the-struct_358) s_354))" +"(if(syntax?$1 the-struct_358)" +"(let-values(((shifted-multi-scopes59_359)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_113)" -"(lambda(smss_10)(op_1(fallback-first smss_10) sc_13))))" -"((scope-propagations+tamper60_0)" -"(if(datum-has-elements?(syntax-content s_113))" -"(prop-op_1" -"(syntax-scope-propagations+tamper s_113)" -" sc_13" -"(syntax-scopes s_113)" -"(syntax-shifted-multi-scopes s_113)" -"(syntax-mpi-shifts s_113))" -"(syntax-scope-propagations+tamper s_113))))" +"(syntax-shifted-multi-scopes s_354)" +"(lambda(smss_0)(op_356(fallback-first smss_0) sc_355))))" +"((scope-propagations+tamper60_360)" +"(if(datum-has-elements?(syntax-content s_354))" +"(prop-op_357" +"(syntax-scope-propagations+tamper s_354)" +" sc_355" +"(syntax-scopes s_354)" +"(syntax-shifted-multi-scopes s_354)" +"(syntax-mpi-shifts s_354))" +"(syntax-scope-propagations+tamper s_354))))" "(syntax1.1" -"(syntax-content the-struct_18)" -"(syntax-scopes the-struct_18)" -" shifted-multi-scopes59_0" -" scope-propagations+tamper60_0" -"(syntax-mpi-shifts the-struct_18)" -"(syntax-srcloc the-struct_18)" -"(syntax-props the-struct_18)" -"(syntax-inspector the-struct_18)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_18)))" -"(let-values(((the-struct_19) s_113))" -"(if(syntax?$1 the-struct_19)" -"(let-values(((scopes61_0)(op_1(syntax-scopes s_113) sc_13))" -"((scope-propagations+tamper62_0)" -"(if(datum-has-elements?(syntax-content s_113))" -"(prop-op_1" -"(syntax-scope-propagations+tamper s_113)" -" sc_13" -"(syntax-scopes s_113)" -"(syntax-shifted-multi-scopes s_113)" -"(syntax-mpi-shifts s_113))" -"(syntax-scope-propagations+tamper s_113))))" +"(syntax-content the-struct_358)" +"(syntax-scopes the-struct_358)" +" shifted-multi-scopes59_359" +" scope-propagations+tamper60_360" +"(syntax-mpi-shifts the-struct_358)" +"(syntax-srcloc the-struct_358)" +"(syntax-props the-struct_358)" +"(syntax-inspector the-struct_358)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_358)))" +"(let-values(((the-struct_362) s_354))" +"(if(syntax?$1 the-struct_362)" +"(let-values(((scopes61_363)(op_356(syntax-scopes s_354) sc_355))" +"((scope-propagations+tamper62_364)" +"(if(datum-has-elements?(syntax-content s_354))" +"(prop-op_357" +"(syntax-scope-propagations+tamper s_354)" +" sc_355" +"(syntax-scopes s_354)" +"(syntax-shifted-multi-scopes s_354)" +"(syntax-mpi-shifts s_354))" +"(syntax-scope-propagations+tamper s_354))))" "(syntax1.1" -"(syntax-content the-struct_19)" -" scopes61_0" -"(syntax-shifted-multi-scopes the-struct_19)" -" scope-propagations+tamper62_0" -"(syntax-mpi-shifts the-struct_19)" -"(syntax-srcloc the-struct_19)" -"(syntax-props the-struct_19)" -"(syntax-inspector the-struct_19)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_19))))))))" +"(syntax-content the-struct_362)" +" scopes61_363" +"(syntax-shifted-multi-scopes the-struct_362)" +" scope-propagations+tamper62_364" +"(syntax-mpi-shifts the-struct_362)" +"(syntax-srcloc the-struct_362)" +"(syntax-props the-struct_362)" +"(syntax-inspector the-struct_362)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_362))))))))" "(define-values" "(remove-scopes)" -"(lambda(s_114 scs_6)" +"(lambda(s_0 scs_0)" "(begin" -"(let-values(((lst_44) scs_6))" +"(let-values(((lst_367) scs_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_44)))" -"((letrec-values(((for-loop_59)" -"(lambda(s_115 lst_45)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_367)))" +"((letrec-values(((for-loop_368)" +"(lambda(s_1 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_45)" -"(let-values(((sc_14)(unsafe-car lst_45))((rest_19)(unsafe-cdr lst_45)))" -"(let-values(((s_116)" -"(let-values(((s_117) s_115))" -"(let-values(((s_118)(let-values()(remove-scope s_117 sc_14))))" -"(values s_118)))))" -"(if(not #f)(for-loop_59 s_116 rest_19) s_116)))" -" s_115)))))" -" for-loop_59)" -" s_114" -" lst_44))))))" -"(define-values" -"(set-flip)" -"(lambda(s_119 e_14)(begin(if(set-member? s_119 e_14)(set-remove s_119 e_14)(set-add s_119 e_14)))))" +"(if(pair? lst_0)" +"(let-values(((sc_371)(unsafe-car lst_0))((rest_372)(unsafe-cdr lst_0)))" +"(let-values(((s_373)" +"(let-values(((s_374) s_1))" +"(let-values(((s_375)(let-values()(remove-scope s_374 sc_371))))" +"(values s_375)))))" +"(if(not #f)(for-loop_368 s_373 rest_372) s_373)))" +" s_1)))))" +" for-loop_368)" +" s_0" +" lst_367))))))" +"(define-values(set-flip)(lambda(s_0 e_0)(begin(if(set-member? s_0 e_0)(set-remove s_0 e_0)(set-add s_0 e_0)))))" "(define-values" "(flip-scope)" -"(lambda(s_120 sc_15)" +"(lambda(s_0 sc_0)" "(begin" -"(let-values(((s_121) s_120)((sc_16)(generalize-scope sc_15))((op_2) set-flip)((prop-op_2) propagation-flip))" -"(if(shifted-multi-scope? sc_16)" -"(let-values(((the-struct_20) s_121))" -"(if(syntax?$1 the-struct_20)" -"(let-values(((shifted-multi-scopes63_0)" +"(let-values(((s_380) s_0)" +"((sc_381)(generalize-scope sc_0))" +"((op_382) set-flip)" +"((prop-op_383) propagation-flip))" +"(if(shifted-multi-scope? sc_381)" +"(let-values(((the-struct_384) s_380))" +"(if(syntax?$1 the-struct_384)" +"(let-values(((shifted-multi-scopes63_385)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_121)" -"(lambda(smss_11)(op_2(fallback-first smss_11) sc_16))))" -"((scope-propagations+tamper64_0)" -"(if(datum-has-elements?(syntax-content s_121))" -"(prop-op_2" -"(syntax-scope-propagations+tamper s_121)" -" sc_16" -"(syntax-scopes s_121)" -"(syntax-shifted-multi-scopes s_121)" -"(syntax-mpi-shifts s_121))" -"(syntax-scope-propagations+tamper s_121))))" +"(syntax-shifted-multi-scopes s_380)" +"(lambda(smss_0)(op_382(fallback-first smss_0) sc_381))))" +"((scope-propagations+tamper64_386)" +"(if(datum-has-elements?(syntax-content s_380))" +"(prop-op_383" +"(syntax-scope-propagations+tamper s_380)" +" sc_381" +"(syntax-scopes s_380)" +"(syntax-shifted-multi-scopes s_380)" +"(syntax-mpi-shifts s_380))" +"(syntax-scope-propagations+tamper s_380))))" "(syntax1.1" -"(syntax-content the-struct_20)" -"(syntax-scopes the-struct_20)" -" shifted-multi-scopes63_0" -" scope-propagations+tamper64_0" -"(syntax-mpi-shifts the-struct_20)" -"(syntax-srcloc the-struct_20)" -"(syntax-props the-struct_20)" -"(syntax-inspector the-struct_20)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_20)))" -"(let-values(((the-struct_21) s_121))" -"(if(syntax?$1 the-struct_21)" -"(let-values(((scopes65_0)(op_2(syntax-scopes s_121) sc_16))" -"((scope-propagations+tamper66_0)" -"(if(datum-has-elements?(syntax-content s_121))" -"(prop-op_2" -"(syntax-scope-propagations+tamper s_121)" -" sc_16" -"(syntax-scopes s_121)" -"(syntax-shifted-multi-scopes s_121)" -"(syntax-mpi-shifts s_121))" -"(syntax-scope-propagations+tamper s_121))))" +"(syntax-content the-struct_384)" +"(syntax-scopes the-struct_384)" +" shifted-multi-scopes63_385" +" scope-propagations+tamper64_386" +"(syntax-mpi-shifts the-struct_384)" +"(syntax-srcloc the-struct_384)" +"(syntax-props the-struct_384)" +"(syntax-inspector the-struct_384)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_384)))" +"(let-values(((the-struct_388) s_380))" +"(if(syntax?$1 the-struct_388)" +"(let-values(((scopes65_389)(op_382(syntax-scopes s_380) sc_381))" +"((scope-propagations+tamper66_390)" +"(if(datum-has-elements?(syntax-content s_380))" +"(prop-op_383" +"(syntax-scope-propagations+tamper s_380)" +" sc_381" +"(syntax-scopes s_380)" +"(syntax-shifted-multi-scopes s_380)" +"(syntax-mpi-shifts s_380))" +"(syntax-scope-propagations+tamper s_380))))" "(syntax1.1" -"(syntax-content the-struct_21)" -" scopes65_0" -"(syntax-shifted-multi-scopes the-struct_21)" -" scope-propagations+tamper66_0" -"(syntax-mpi-shifts the-struct_21)" -"(syntax-srcloc the-struct_21)" -"(syntax-props the-struct_21)" -"(syntax-inspector the-struct_21)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_21))))))))" +"(syntax-content the-struct_388)" +" scopes65_389" +"(syntax-shifted-multi-scopes the-struct_388)" +" scope-propagations+tamper66_390" +"(syntax-mpi-shifts the-struct_388)" +"(syntax-srcloc the-struct_388)" +"(syntax-props the-struct_388)" +"(syntax-inspector the-struct_388)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_388))))))))" "(define-values" "(flip-scopes)" -"(lambda(s_122 scs_7)" +"(lambda(s_0 scs_0)" "(begin" -"(let-values(((lst_46) scs_7))" +"(let-values(((lst_393) scs_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_46)))" -"((letrec-values(((for-loop_43)" -"(lambda(s_123 lst_47)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_393)))" +"((letrec-values(((for-loop_394)" +"(lambda(s_1 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_47)" -"(let-values(((sc_17)(unsafe-car lst_47))((rest_20)(unsafe-cdr lst_47)))" -"(let-values(((s_124)" -"(let-values(((s_125) s_123))" -"(let-values(((s_126)(let-values()(flip-scope s_125 sc_17))))" -"(values s_126)))))" -"(if(not #f)(for-loop_43 s_124 rest_20) s_124)))" -" s_123)))))" -" for-loop_43)" -" s_122" -" lst_46))))))" +"(if(pair? lst_0)" +"(let-values(((sc_397)(unsafe-car lst_0))((rest_398)(unsafe-cdr lst_0)))" +"(let-values(((s_399)" +"(let-values(((s_400) s_1))" +"(let-values(((s_401)(let-values()(flip-scope s_400 sc_397))))" +"(values s_401)))))" +"(if(not #f)(for-loop_394 s_399 rest_398) s_399)))" +" s_1)))))" +" for-loop_394)" +" s_0" +" lst_393))))))" "(define-values" "(push-scope)" -"(lambda(s_127 sms_6)" +"(lambda(s_0 sms_0)" "(begin" -"(let-values(((smss/maybe-fallbacks67_0) #f))" -"(let-values(((prev-result_0) #f))" -"(let-values(((push_0)" +"(let-values(((smss/maybe-fallbacks67_404) #f))" +"(let-values(((prev-result_405) #f))" +"(let-values(((push_406)" "(lambda(smss/maybe-fallbacks_0)" "(begin" " 'push" -"(if(eq? smss/maybe-fallbacks67_0 smss/maybe-fallbacks_0)" -"(let-values() prev-result_0)" +"(if(eq? smss/maybe-fallbacks67_404 smss/maybe-fallbacks_0)" +"(let-values() prev-result_405)" "(let-values()" -"(let-values(((r_20)" +"(let-values(((r_408)" "(let-values()" -"(let-values(((smss_12)(fallback-first smss/maybe-fallbacks_0)))" -"(if(set-empty? smss_12)" -"(let-values()(set-add smss_12 sms_6))" -"(if(set-member? smss_12 sms_6)" +"(let-values(((smss_409)(fallback-first smss/maybe-fallbacks_0)))" +"(if(set-empty? smss_409)" +"(let-values()(set-add smss_409 sms_0))" +"(if(set-member? smss_409 sms_0)" "(let-values() smss/maybe-fallbacks_0)" "(let-values()" "(fallback-push" -"(set-add smss_12 sms_6)" +"(set-add smss_409 sms_0)" " smss/maybe-fallbacks_0))))))))" "(begin" -"(set! smss/maybe-fallbacks67_0 smss/maybe-fallbacks_0)" -"(set! prev-result_0 r_20)" -" r_20))))))))" -"(let-values(((s_128) s_127)" -"((f_32)(lambda(tail?_25 x_33)(begin 'f x_33)))" -"((d->s_1)" -"(lambda(s_129 d_3)" +"(set! smss/maybe-fallbacks67_404 smss/maybe-fallbacks_0)" +"(set! prev-result_405 r_408)" +" r_408))))))))" +"(let-values(((s_410) s_0)" +"((f_411)(lambda(tail?_0 x_0)(begin 'f x_0)))" +"((d->s_412)" +"(lambda(s_1 d_0)" "(begin" " 'd->s" -"(let-values(((the-struct_22) s_129))" -"(if(syntax?$1 the-struct_22)" -"(let-values(((content68_0) d_3)" -"((shifted-multi-scopes69_0)" -"(push_0(syntax-shifted-multi-scopes s_129))))" +"(let-values(((the-struct_419) s_1))" +"(if(syntax?$1 the-struct_419)" +"(let-values(((content68_420) d_0)" +"((shifted-multi-scopes69_421)" +"(push_406(syntax-shifted-multi-scopes s_1))))" "(syntax1.1" -" content68_0" -"(syntax-scopes the-struct_22)" -" shifted-multi-scopes69_0" -"(syntax-scope-propagations+tamper the-struct_22)" -"(syntax-mpi-shifts the-struct_22)" -"(syntax-srcloc the-struct_22)" -"(syntax-props the-struct_22)" -"(syntax-inspector the-struct_22)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_22))))))" -"((s-e_1) syntax-e/no-taint)" -"((seen_11) #f))" -"((letrec-values(((loop_70)" -"(lambda(s_130)" +" content68_420" +"(syntax-scopes the-struct_419)" +" shifted-multi-scopes69_421" +"(syntax-scope-propagations+tamper the-struct_419)" +"(syntax-mpi-shifts the-struct_419)" +"(syntax-srcloc the-struct_419)" +"(syntax-props the-struct_419)" +"(syntax-inspector the-struct_419)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_419))))))" +"((s-e_413) syntax-e/no-taint)" +"((seen_414) #f))" +"((letrec-values(((loop_422)" +"(lambda(s_1)" "(begin" " 'loop" -"(let-values(((s_131) s_130)" -"((f_33) f_32)" -"((gf_5)" -"(lambda(tail?_26 v_74)" +"(let-values(((s_424) s_1)" +"((f_425) f_411)" +"((gf_426)" +"(lambda(tail?_0 v_0)" "(begin" " 'gf" -"(if(syntax?$1 v_74)" -"(let-values()(d->s_1 v_74(loop_70(s-e_1 v_74))))" -"(let-values()(f_32 tail?_26 v_74))))))" -"((seen_12) seen_11))" -"((letrec-values(((loop_71)" -"(lambda(tail?_27 s_132 prev-depth_5)" +"(if(syntax?$1 v_0)" +"(let-values()(d->s_412 v_0(loop_422(s-e_413 v_0))))" +"(let-values()(f_411 tail?_0 v_0))))))" +"((seen_427) seen_414))" +"((letrec-values(((loop_430)" +"(lambda(tail?_0 s_2 prev-depth_0)" "(begin" " 'loop" -"(let-values(((depth_5)(fx+ 1 prev-depth_5)))" -"(if(if seen_12(fx> depth_5 32) #f)" +"(let-values(((depth_434)(fx+ 1 prev-depth_0)))" +"(if(if seen_427(fx> depth_434 32) #f)" "(let-values()" "(datum-map-slow" -" tail?_27" -" s_132" -"(lambda(tail?_28 s_133)(gf_5 tail?_28 s_133))" -" seen_12))" -"(if(null? s_132)" -"(let-values()(f_33 tail?_27 s_132))" -"(if(pair? s_132)" +" tail?_0" +" s_2" +"(lambda(tail?_1 s_3)(gf_426 tail?_1 s_3))" +" seen_427))" +"(if(null? s_2)" +"(let-values()(f_425 tail?_0 s_2))" +"(if(pair? s_2)" "(let-values()" -"(f_33" -" tail?_27" +"(f_425" +" tail?_0" "(cons" -"(loop_71 #f(car s_132) depth_5)" -"(loop_71 #t(cdr s_132) depth_5))))" -"(if(symbol? s_132)" -"(let-values()(f_33 #f s_132))" -"(if(boolean? s_132)" -"(let-values()(f_33 #f s_132))" -"(if(number? s_132)" -"(let-values()(f_33 #f s_132))" -"(if(let-values(((or-part_111)" -"(vector? s_132)))" -"(if or-part_111" -" or-part_111" -"(let-values(((or-part_112)" -"(box? s_132)))" -"(if or-part_112" -" or-part_112" -"(let-values(((or-part_113)" +"(loop_430 #f(car s_2) depth_434)" +"(loop_430 #t(cdr s_2) depth_434))))" +"(if(symbol? s_2)" +"(let-values()(f_425 #f s_2))" +"(if(boolean? s_2)" +"(let-values()(f_425 #f s_2))" +"(if(number? s_2)" +"(let-values()(f_425 #f s_2))" +"(if(let-values(((or-part_437)" +"(vector? s_2)))" +"(if or-part_437" +" or-part_437" +"(let-values(((or-part_438)" +"(box? s_2)))" +"(if or-part_438" +" or-part_438" +"(let-values(((or-part_439)" "(prefab-struct-key" -" s_132)))" -"(if or-part_113" -" or-part_113" -"(hash? s_132)))))))" +" s_2)))" +"(if or-part_439" +" or-part_439" +"(hash? s_2)))))))" "(let-values()" "(datum-map-slow" -" tail?_27" -" s_132" -"(lambda(tail?_29 s_134)" -"(gf_5 tail?_29 s_134))" -" seen_12))" -"(let-values()(gf_5 #f s_132))))))))))))))" -" loop_71)" +" tail?_0" +" s_2" +"(lambda(tail?_1 s_3)" +"(gf_426 tail?_1 s_3))" +" seen_427))" +"(let-values()(gf_426 #f s_2))))))))))))))" +" loop_430)" " #f" -" s_131" +" s_424" " 0))))))" -" loop_70)" -" s_128))))))))" +" loop_422)" +" s_410))))))))" "(define-values" "(struct:propagation" " propagation14.1" @@ -9149,7 +9230,7 @@ static const char *startup_source = " propagation-add-mpi-shifts" " propagation-inspector" " propagation-tamper)" -"(let-values(((struct:_19 make-_19 ?_19 -ref_19 -set!_19)" +"(let-values(((struct:_442 make-_443 ?_444 -ref_445 -set!_446)" "(let-values()" "(let-values()" "(make-struct-type" @@ -9160,8 +9241,8 @@ static const char *startup_source = " #f" "(list" "(cons prop:authentic #t)" -"(cons prop:propagation-set-tamper(lambda(p_20 v_75)(propagation-set-tamper p_20 v_75)))" -"(cons prop:propagation-tamper(lambda(p_21)(propagation-tamper p_21)))" +"(cons prop:propagation-set-tamper(lambda(p_0 v_0)(propagation-set-tamper p_0 v_0)))" +"(cons prop:propagation-tamper(lambda(p_0)(propagation-tamper p_0)))" "(cons prop:propagation syntax-e$1))" "(current-inspector)" " #f" @@ -9169,1310 +9250,1319 @@ static const char *startup_source = " #f" " 'propagation)))))" "(values" -" struct:_19" -" make-_19" -" ?_19" -"(make-struct-field-accessor -ref_19 0 'prev-scs)" -"(make-struct-field-accessor -ref_19 1 'prev-smss)" -"(make-struct-field-accessor -ref_19 2 'scope-ops)" -"(make-struct-field-accessor -ref_19 3 'prev-mss)" -"(make-struct-field-accessor -ref_19 4 'add-mpi-shifts)" -"(make-struct-field-accessor -ref_19 5 'inspector)" -"(make-struct-field-accessor -ref_19 6 'tamper))))" +" struct:_442" +" make-_443" +" ?_444" +"(make-struct-field-accessor -ref_445 0 'prev-scs)" +"(make-struct-field-accessor -ref_445 1 'prev-smss)" +"(make-struct-field-accessor -ref_445 2 'scope-ops)" +"(make-struct-field-accessor -ref_445 3 'prev-mss)" +"(make-struct-field-accessor -ref_445 4 'add-mpi-shifts)" +"(make-struct-field-accessor -ref_445 5 'inspector)" +"(make-struct-field-accessor -ref_445 6 'tamper))))" "(define-values" "(propagation-add)" -"(lambda(prop_3 sc_18 prev-scs_0 prev-smss_0 prev-mss_0)" +"(lambda(prop_0 sc_0 prev-scs_0 prev-smss_0 prev-mss_0)" "(begin" -"(if(propagation? prop_3)" -"(let-values(((the-struct_23) prop_3))" -"(if(propagation? the-struct_23)" -"(let-values(((scope-ops71_0)(hash-set(propagation-scope-ops prop_3) sc_18 'add)))" +"(if(propagation? prop_0)" +"(let-values(((the-struct_500) prop_0))" +"(if(propagation? the-struct_500)" +"(let-values(((scope-ops71_501)(hash-set(propagation-scope-ops prop_0) sc_0 'add)))" "(propagation14.1" -"(propagation-prev-scs the-struct_23)" -"(propagation-prev-smss the-struct_23)" -" scope-ops71_0" -"(propagation-prev-mss the-struct_23)" -"(propagation-add-mpi-shifts the-struct_23)" -"(propagation-inspector the-struct_23)" -"(propagation-tamper the-struct_23)))" -" (raise-argument-error 'struct-copy \"propagation?\" the-struct_23)))" -"(propagation14.1 prev-scs_0 prev-smss_0(hasheq sc_18 'add) prev-mss_0 #f #f prop_3)))))" +"(propagation-prev-scs the-struct_500)" +"(propagation-prev-smss the-struct_500)" +" scope-ops71_501" +"(propagation-prev-mss the-struct_500)" +"(propagation-add-mpi-shifts the-struct_500)" +"(propagation-inspector the-struct_500)" +"(propagation-tamper the-struct_500)))" +" (raise-argument-error 'struct-copy \"propagation?\" the-struct_500)))" +"(propagation14.1 prev-scs_0 prev-smss_0(hasheq sc_0 'add) prev-mss_0 #f #f prop_0)))))" "(define-values" "(propagation-remove)" -"(lambda(prop_4 sc_19 prev-scs_1 prev-smss_1 prev-mss_1)" +"(lambda(prop_0 sc_0 prev-scs_0 prev-smss_0 prev-mss_0)" "(begin" -"(if(propagation? prop_4)" -"(let-values(((the-struct_24) prop_4))" -"(if(propagation? the-struct_24)" -"(let-values(((scope-ops72_0)(hash-set(propagation-scope-ops prop_4) sc_19 'remove)))" +"(if(propagation? prop_0)" +"(let-values(((the-struct_507) prop_0))" +"(if(propagation? the-struct_507)" +"(let-values(((scope-ops72_508)(hash-set(propagation-scope-ops prop_0) sc_0 'remove)))" "(propagation14.1" -"(propagation-prev-scs the-struct_24)" -"(propagation-prev-smss the-struct_24)" -" scope-ops72_0" -"(propagation-prev-mss the-struct_24)" -"(propagation-add-mpi-shifts the-struct_24)" -"(propagation-inspector the-struct_24)" -"(propagation-tamper the-struct_24)))" -" (raise-argument-error 'struct-copy \"propagation?\" the-struct_24)))" -"(propagation14.1 prev-scs_1 prev-smss_1(hasheq sc_19 'remove) prev-mss_1 #f #f prop_4)))))" +"(propagation-prev-scs the-struct_507)" +"(propagation-prev-smss the-struct_507)" +" scope-ops72_508" +"(propagation-prev-mss the-struct_507)" +"(propagation-add-mpi-shifts the-struct_507)" +"(propagation-inspector the-struct_507)" +"(propagation-tamper the-struct_507)))" +" (raise-argument-error 'struct-copy \"propagation?\" the-struct_507)))" +"(propagation14.1 prev-scs_0 prev-smss_0(hasheq sc_0 'remove) prev-mss_0 #f #f prop_0)))))" "(define-values" "(propagation-flip)" -"(lambda(prop_5 sc_20 prev-scs_2 prev-smss_2 prev-mss_2)" +"(lambda(prop_0 sc_0 prev-scs_0 prev-smss_0 prev-mss_0)" "(begin" -"(if(propagation? prop_5)" -"(let-values(((ops_0)(propagation-scope-ops prop_5)))" -"(let-values(((current-op_0)(hash-ref ops_0 sc_20 #f)))" -"(if(if(eq? current-op_0 'flip)" -"(if(= 1(hash-count ops_0))" -"(if(not(propagation-inspector prop_5))(not(propagation-add-mpi-shifts prop_5)) #f)" +"(if(propagation? prop_0)" +"(let-values(((ops_514)(propagation-scope-ops prop_0)))" +"(let-values(((current-op_515)(hash-ref ops_514 sc_0 #f)))" +"(if(if(eq? current-op_515 'flip)" +"(if(= 1(hash-count ops_514))" +"(if(not(propagation-inspector prop_0))(not(propagation-add-mpi-shifts prop_0)) #f)" " #f)" " #f)" "(let-values() #f)" "(let-values()" -"(let-values(((the-struct_25) prop_5))" -"(if(propagation? the-struct_25)" -"(let-values(((scope-ops73_0)" -"(if(eq? current-op_0 'flip)" -"(hash-remove ops_0 sc_20)" +"(let-values(((the-struct_516) prop_0))" +"(if(propagation? the-struct_516)" +"(let-values(((scope-ops73_517)" +"(if(eq? current-op_515 'flip)" +"(hash-remove ops_514 sc_0)" "(hash-set" -" ops_0" -" sc_20" -"(let-values(((tmp_9) current-op_0))" -"(if(equal? tmp_9 'add)" +" ops_514" +" sc_0" +"(let-values(((tmp_518) current-op_515))" +"(if(equal? tmp_518 'add)" "(let-values() 'remove)" -"(if(equal? tmp_9 'remove)(let-values() 'add)(let-values() 'flip))))))))" +"(if(equal? tmp_518 'remove)(let-values() 'add)(let-values() 'flip))))))))" "(propagation14.1" -"(propagation-prev-scs the-struct_25)" -"(propagation-prev-smss the-struct_25)" -" scope-ops73_0" -"(propagation-prev-mss the-struct_25)" -"(propagation-add-mpi-shifts the-struct_25)" -"(propagation-inspector the-struct_25)" -"(propagation-tamper the-struct_25)))" -" (raise-argument-error 'struct-copy \"propagation?\" the-struct_25)))))))" -"(propagation14.1 prev-scs_2 prev-smss_2(hasheq sc_20 'flip) prev-mss_2 #f #f prop_5)))))" +"(propagation-prev-scs the-struct_516)" +"(propagation-prev-smss the-struct_516)" +" scope-ops73_517" +"(propagation-prev-mss the-struct_516)" +"(propagation-add-mpi-shifts the-struct_516)" +"(propagation-inspector the-struct_516)" +"(propagation-tamper the-struct_516)))" +" (raise-argument-error 'struct-copy \"propagation?\" the-struct_516)))))))" +"(propagation14.1 prev-scs_0 prev-smss_0(hasheq sc_0 'flip) prev-mss_0 #f #f prop_0)))))" "(define-values" "(propagation-mpi-shift)" -"(lambda(prop_6 add_0 inspector_2 prev-scs_3 prev-smss_3 prev-mss_3)" +"(lambda(prop_0 add_0 inspector_0 prev-scs_0 prev-smss_0 prev-mss_0)" "(begin" -"(if(propagation? prop_6)" -"(let-values(((the-struct_26) prop_6))" -"(if(propagation? the-struct_26)" -"(let-values(((add-mpi-shifts74_0)" -"(let-values(((base-add_0)(propagation-add-mpi-shifts prop_6)))" -"(if(if add_0 base-add_0 #f)" -"(lambda(mss_0)(begin 'add-mpi-shifts74(add_0(base-add_0 mss_0))))" -"(let-values(((or-part_114) add_0))(if or-part_114 or-part_114 base-add_0)))))" -"((inspector75_0)" -"(let-values(((or-part_115)(propagation-inspector prop_6)))" -"(if or-part_115 or-part_115 inspector_2))))" +"(if(propagation? prop_0)" +"(let-values(((the-struct_525) prop_0))" +"(if(propagation? the-struct_525)" +"(let-values(((add-mpi-shifts74_526)" +"(let-values(((base-add_528)(propagation-add-mpi-shifts prop_0)))" +"(if(if add_0 base-add_528 #f)" +"(lambda(mss_0)(begin 'add-mpi-shifts74(add_0(base-add_528 mss_0))))" +"(let-values(((or-part_530) add_0))(if or-part_530 or-part_530 base-add_528)))))" +"((inspector75_527)" +"(let-values(((or-part_531)(propagation-inspector prop_0)))" +"(if or-part_531 or-part_531 inspector_0))))" "(propagation14.1" -"(propagation-prev-scs the-struct_26)" -"(propagation-prev-smss the-struct_26)" -"(propagation-scope-ops the-struct_26)" -"(propagation-prev-mss the-struct_26)" -" add-mpi-shifts74_0" -" inspector75_0" -"(propagation-tamper the-struct_26)))" -" (raise-argument-error 'struct-copy \"propagation?\" the-struct_26)))" -"(propagation14.1 prev-scs_3 prev-smss_3 '#hasheq() prev-mss_3 add_0 inspector_2 prop_6)))))" +"(propagation-prev-scs the-struct_525)" +"(propagation-prev-smss the-struct_525)" +"(propagation-scope-ops the-struct_525)" +"(propagation-prev-mss the-struct_525)" +" add-mpi-shifts74_526" +" inspector75_527" +"(propagation-tamper the-struct_525)))" +" (raise-argument-error 'struct-copy \"propagation?\" the-struct_525)))" +"(propagation14.1 prev-scs_0 prev-smss_0 '#hasheq() prev-mss_0 add_0 inspector_0 prop_0)))))" "(define-values" "(propagation-apply)" -"(lambda(prop_7 scs_8 parent-s_0)" +"(lambda(prop_0 scs_0 parent-s_0)" "(begin" -"(if(eq?(propagation-prev-scs prop_7) scs_8)" +"(if(eq?(propagation-prev-scs prop_0) scs_0)" "(let-values()(syntax-scopes parent-s_0))" "(let-values()" -"(let-values(((new-scs_0)" -"(let-values(((ht_51)(propagation-scope-ops prop_7)))" +"(let-values(((new-scs_535)" +"(let-values(((ht_536)(propagation-scope-ops prop_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_51)))" -"((letrec-values(((for-loop_60)" -"(lambda(scs_9 i_69)" +"(let-values()(check-in-immutable-hash ht_536)))" +"((letrec-values(((for-loop_537)" +"(lambda(scs_1 i_0)" "(begin" " 'for-loop" -"(if i_69" -"(let-values(((sc_21 op_3)" -"(unsafe-immutable-hash-iterate-key+value ht_51 i_69)))" -"(let-values(((scs_10)" -"(let-values(((scs_11) scs_9))" -"(if(not(shifted-multi-scope? sc_21))" -"(let-values(((scs_12) scs_11))" -"(let-values(((scs_13)" +"(if i_0" +"(let-values(((sc_540 op_541)" +"(unsafe-immutable-hash-iterate-key+value ht_536 i_0)))" +"(let-values(((scs_542)" +"(let-values(((scs_543) scs_1))" +"(if(not(shifted-multi-scope? sc_540))" +"(let-values(((scs_544) scs_543))" +"(let-values(((scs_545)" "(let-values()" -"(let-values(((tmp_10) op_3))" -"(if(equal? tmp_10 'add)" -"(let-values()" -"(set-add scs_12 sc_21))" -"(if(equal?" -" tmp_10" -" 'remove)" -"(let-values()" -"(set-remove" -" scs_12" -" sc_21))" -"(let-values()" -"(set-flip" -" scs_12" -" sc_21))))))))" -"(values scs_13)))" -" scs_11))))" -"(if(not #f)" -"(for-loop_60" -" scs_10" -"(unsafe-immutable-hash-iterate-next ht_51 i_69))" -" scs_10)))" -" scs_9)))))" -" for-loop_60)" -" scs_8" -"(unsafe-immutable-hash-iterate-first ht_51))))))" -"(if(set=? new-scs_0(syntax-scopes parent-s_0))" -"(syntax-scopes parent-s_0)" -"(cache-or-reuse-set new-scs_0))))))))" -"(define-values" -"(propagation-apply-shifted)" -"(lambda(prop_8 smss_13 parent-s_1)" -"(begin" -"(if(eq?(propagation-prev-smss prop_8) smss_13)" -"(let-values()(syntax-shifted-multi-scopes parent-s_1))" -"(let-values()" -"(let-values(((new-smss_0)" -"(let-values(((ht_52)(propagation-scope-ops prop_8)))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-in-immutable-hash ht_52)))" -"((letrec-values(((for-loop_61)" -"(lambda(smss_14 i_70)" -"(begin" -" 'for-loop" -"(if i_70" -"(let-values(((sms_7 op_4)" -"(unsafe-immutable-hash-iterate-key+value ht_52 i_70)))" -"(let-values(((smss_15)" -"(let-values(((smss_16) smss_14))" -"(if(shifted-multi-scope? sms_7)" -"(let-values(((smss_17) smss_16))" -"(let-values(((smss_18)" -"(let-values()" -"(fallback-update-first" -" smss_17" -"(lambda(smss_19)" -"(let-values(((tmp_11)" -" op_4))" -"(if(equal? tmp_11 'add)" +"(let-values(((tmp_546)" +" op_541))" +"(if(equal? tmp_546 'add)" "(let-values()" "(set-add" -" smss_19" -" sms_7))" +" scs_544" +" sc_540))" "(if(equal?" -" tmp_11" +" tmp_546" " 'remove)" "(let-values()" "(set-remove" -" smss_19" -" sms_7))" +" scs_544" +" sc_540))" "(let-values()" "(set-flip" -" smss_19" -" sms_7))))))))))" -"(values smss_18)))" -" smss_16))))" +" scs_544" +" sc_540))))))))" +"(values scs_545)))" +" scs_543))))" "(if(not #f)" -"(for-loop_61" -" smss_15" -"(unsafe-immutable-hash-iterate-next ht_52 i_70))" -" smss_15)))" -" smss_14)))))" -" for-loop_61)" -" smss_13" -"(unsafe-immutable-hash-iterate-first ht_52))))))" -"(let-values(((parent-smss_0)(syntax-shifted-multi-scopes parent-s_1)))" -"(if(if(set? new-smss_0)(if(set? parent-smss_0)(set=? new-smss_0 parent-smss_0) #f) #f)" -" parent-smss_0" -"(cache-or-reuse-hash new-smss_0)))))))))" +"(for-loop_537" +" scs_542" +"(unsafe-immutable-hash-iterate-next ht_536 i_0))" +" scs_542)))" +" scs_1)))))" +" for-loop_537)" +" scs_0" +"(unsafe-immutable-hash-iterate-first ht_536))))))" +"(if(set=? new-scs_535(syntax-scopes parent-s_0))" +"(syntax-scopes parent-s_0)" +"(cache-or-reuse-set new-scs_535))))))))" "(define-values" -"(propagation-apply-mpi-shifts)" -"(lambda(prop_9 mss_1 parent-s_2)" +"(propagation-apply-shifted)" +"(lambda(prop_0 smss_0 parent-s_0)" "(begin" -"(if(eq?(propagation-prev-mss prop_9) mss_1)" -"(let-values()(syntax-mpi-shifts parent-s_2))" -"(let-values()(let-values(((add_1)(propagation-add-mpi-shifts prop_9)))(if add_1(add_1 mss_1) mss_1)))))))" -"(define-values" -"(propagation-apply-inspector)" -"(lambda(prop_10 i_71)" -"(begin(let-values(((or-part_116) i_71))(if or-part_116 or-part_116(propagation-inspector prop_10))))))" -"(define-values" -"(propagation-set-tamper)" -"(lambda(prop_11 t_34)" -"(begin" -"(if(propagation? prop_11)" -"(let-values(((the-struct_27) prop_11))" -"(if(propagation? the-struct_27)" -"(let-values(((tamper76_0) t_34))" -"(propagation14.1" -"(propagation-prev-scs the-struct_27)" -"(propagation-prev-smss the-struct_27)" -"(propagation-scope-ops the-struct_27)" -"(propagation-prev-mss the-struct_27)" -"(propagation-add-mpi-shifts the-struct_27)" -"(propagation-inspector the-struct_27)" -" tamper76_0))" -" (raise-argument-error 'struct-copy \"propagation?\" the-struct_27)))" -" t_34))))" -"(define-values" -"(propagation-merge)" -"(lambda(content_7 prop_12 base-prop_0 prev-scs_4 prev-smss_4 prev-mss_4)" -"(begin" -"(if(not(datum-has-elements? content_7))" -"(let-values()(if(tamper-tainted?(propagation-tamper prop_12)) 'tainted base-prop_0))" -"(if(not(propagation? base-prop_0))" +"(if(eq?(propagation-prev-smss prop_0) smss_0)" +"(let-values()(syntax-shifted-multi-scopes parent-s_0))" "(let-values()" -"(if(if(eq?(propagation-prev-scs prop_12) prev-scs_4)" -"(if(eq?(propagation-prev-smss prop_12) prev-smss_4)" -"(if(eq?(propagation-prev-mss prop_12) prev-mss_4)" -"(eq?(propagation-tamper prop_12) base-prop_0)" -" #f)" -" #f)" -" #f)" -"(let-values() prop_12)" -"(let-values()" -"(propagation14.1" -" prev-scs_4" -" prev-smss_4" -"(propagation-scope-ops prop_12)" -" prev-mss_4" -"(propagation-add-mpi-shifts prop_12)" -"(propagation-inspector prop_12)" -"(if(tamper-tainted?(propagation-tamper prop_12)) 'tainted/need-propagate base-prop_0)))))" -"(let-values()" -"(let-values(((new-ops_0)" -"(let-values(((ht_53)(propagation-scope-ops prop_12)))" +"(let-values(((new-smss_550)" +"(let-values(((ht_552)(propagation-scope-ops prop_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_53)))" -"((letrec-values(((for-loop_62)" -"(lambda(ops_1 i_72)" +"(let-values()(check-in-immutable-hash ht_552)))" +"((letrec-values(((for-loop_553)" +"(lambda(smss_1 i_0)" "(begin" " 'for-loop" -"(if i_72" -"(let-values(((sc_22 op_5)" +"(if i_0" +"(let-values(((sms_556 op_557)" +"(unsafe-immutable-hash-iterate-key+value ht_552 i_0)))" +"(let-values(((smss_558)" +"(let-values(((smss_559) smss_1))" +"(if(shifted-multi-scope? sms_556)" +"(let-values(((smss_560) smss_559))" +"(let-values(((smss_561)" +"(let-values()" +"(fallback-update-first" +" smss_560" +"(lambda(smss_2)" +"(let-values(((tmp_563)" +" op_557))" +"(if(equal? tmp_563 'add)" +"(let-values()" +"(set-add" +" smss_2" +" sms_556))" +"(if(equal?" +" tmp_563" +" 'remove)" +"(let-values()" +"(set-remove" +" smss_2" +" sms_556))" +"(let-values()" +"(set-flip" +" smss_2" +" sms_556))))))))))" +"(values smss_561)))" +" smss_559))))" +"(if(not #f)" +"(for-loop_553" +" smss_558" +"(unsafe-immutable-hash-iterate-next ht_552 i_0))" +" smss_558)))" +" smss_1)))))" +" for-loop_553)" +" smss_0" +"(unsafe-immutable-hash-iterate-first ht_552))))))" +"(let-values(((parent-smss_551)(syntax-shifted-multi-scopes parent-s_0)))" +"(if(if(set? new-smss_550)(if(set? parent-smss_551)(set=? new-smss_550 parent-smss_551) #f) #f)" +" parent-smss_551" +"(cache-or-reuse-hash new-smss_550)))))))))" +"(define-values" +"(propagation-apply-mpi-shifts)" +"(lambda(prop_0 mss_0 parent-s_0)" +"(begin" +"(if(eq?(propagation-prev-mss prop_0) mss_0)" +"(let-values()(syntax-mpi-shifts parent-s_0))" +"(let-values()" +"(let-values(((add_567)(propagation-add-mpi-shifts prop_0)))(if add_567(add_567 mss_0) mss_0)))))))" +"(define-values" +"(propagation-apply-inspector)" +"(lambda(prop_0 i_0)" +"(begin(let-values(((or-part_570) i_0))(if or-part_570 or-part_570(propagation-inspector prop_0))))))" +"(define-values" +"(propagation-set-tamper)" +"(lambda(prop_0 t_0)" +"(begin" +"(if(propagation? prop_0)" +"(let-values(((the-struct_573) prop_0))" +"(if(propagation? the-struct_573)" +"(let-values(((tamper76_574) t_0))" +"(propagation14.1" +"(propagation-prev-scs the-struct_573)" +"(propagation-prev-smss the-struct_573)" +"(propagation-scope-ops the-struct_573)" +"(propagation-prev-mss the-struct_573)" +"(propagation-add-mpi-shifts the-struct_573)" +"(propagation-inspector the-struct_573)" +" tamper76_574))" +" (raise-argument-error 'struct-copy \"propagation?\" the-struct_573)))" +" t_0))))" +"(define-values" +"(propagation-merge)" +"(lambda(content_0 prop_0 base-prop_0 prev-scs_0 prev-smss_0 prev-mss_0)" +"(begin" +"(if(not(datum-has-elements? content_0))" +"(let-values()(if(tamper-tainted?(propagation-tamper prop_0)) 'tainted base-prop_0))" +"(if(not(propagation? base-prop_0))" +"(let-values()" +"(if(if(eq?(propagation-prev-scs prop_0) prev-scs_0)" +"(if(eq?(propagation-prev-smss prop_0) prev-smss_0)" +"(if(eq?(propagation-prev-mss prop_0) prev-mss_0)(eq?(propagation-tamper prop_0) base-prop_0) #f)" +" #f)" +" #f)" +"(let-values() prop_0)" +"(let-values()" +"(propagation14.1" +" prev-scs_0" +" prev-smss_0" +"(propagation-scope-ops prop_0)" +" prev-mss_0" +"(propagation-add-mpi-shifts prop_0)" +"(propagation-inspector prop_0)" +"(if(tamper-tainted?(propagation-tamper prop_0)) 'tainted/need-propagate base-prop_0)))))" +"(let-values()" +"(let-values(((new-ops_581)" +"(let-values(((ht_585)(propagation-scope-ops prop_0)))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-immutable-hash ht_585)))" +"((letrec-values(((for-loop_586)" +"(lambda(ops_0 i_0)" +"(begin" +" 'for-loop" +"(if i_0" +"(let-values(((sc_589 op_590)" "(unsafe-immutable-hash-iterate-key+value" -" ht_53" -" i_72)))" -"(let-values(((ops_2)" -"(let-values(((ops_3) ops_1))" -"(let-values(((ops_4)" +" ht_585" +" i_0)))" +"(let-values(((ops_591)" +"(let-values(((ops_592) ops_0))" +"(let-values(((ops_593)" "(let-values()" -"(let-values(((tmp_12) op_5))" -"(if(equal? tmp_12 'add)" +"(let-values(((tmp_594) op_590))" +"(if(equal? tmp_594 'add)" "(let-values()" "(hash-set" -" ops_3" -" sc_22" +" ops_592" +" sc_589" " 'add))" -"(if(equal? tmp_12 'remove)" +"(if(equal? tmp_594 'remove)" "(let-values()" "(hash-set" -" ops_3" -" sc_22" +" ops_592" +" sc_589" " 'remove))" "(let-values()" -"(let-values(((current-op_1)" +"(let-values(((current-op_595)" "(hash-ref" -" ops_3" -" sc_22" +" ops_592" +" sc_589" " #f)))" -"(let-values(((tmp_13)" -" current-op_1))" +"(let-values(((tmp_596)" +" current-op_595))" "(if(equal?" -" tmp_13" +" tmp_596" " 'add)" "(let-values()" "(hash-set" -" ops_3" -" sc_22" +" ops_592" +" sc_589" " 'remove))" "(if(equal?" -" tmp_13" +" tmp_596" " 'remove)" "(let-values()" "(hash-set" -" ops_3" -" sc_22" +" ops_592" +" sc_589" " 'add))" "(if(equal?" -" tmp_13" +" tmp_596" " 'flip)" "(let-values()" "(hash-remove" -" ops_3" -" sc_22))" +" ops_592" +" sc_589))" "(let-values()" "(hash-set" -" ops_3" -" sc_22" +" ops_592" +" sc_589" " 'flip))))))))))))))" -"(values ops_4)))))" +"(values ops_593)))))" "(if(not #f)" -"(for-loop_62" -" ops_2" -"(unsafe-immutable-hash-iterate-next ht_53 i_72))" -" ops_2)))" -" ops_1)))))" -" for-loop_62)" +"(for-loop_586" +" ops_591" +"(unsafe-immutable-hash-iterate-next ht_585 i_0))" +" ops_591)))" +" ops_0)))))" +" for-loop_586)" "(propagation-scope-ops base-prop_0)" -"(unsafe-immutable-hash-iterate-first ht_53))))))" -"(let-values(((add_2)(propagation-add-mpi-shifts prop_12)))" -"(let-values(((base-add_1)(propagation-add-mpi-shifts base-prop_0)))" -"(let-values(((new-tamper_0)" -"(if(let-values(((or-part_117)(tamper-tainted?(propagation-tamper prop_12))))" -"(if or-part_117 or-part_117(tamper-tainted?(propagation-tamper base-prop_0))))" +"(unsafe-immutable-hash-iterate-first ht_585))))))" +"(let-values(((add_582)(propagation-add-mpi-shifts prop_0)))" +"(let-values(((base-add_583)(propagation-add-mpi-shifts base-prop_0)))" +"(let-values(((new-tamper_584)" +"(if(let-values(((or-part_597)(tamper-tainted?(propagation-tamper prop_0))))" +"(if or-part_597 or-part_597(tamper-tainted?(propagation-tamper base-prop_0))))" " 'tainted/need-propagate" "(propagation-tamper base-prop_0))))" -"(if(if(zero?(hash-count new-ops_0))" -"(if(not add_2)" -"(if(not base-add_1)" -"(if(not(propagation-inspector prop_12))(not(propagation-inspector base-prop_0)) #f)" +"(if(if(zero?(hash-count new-ops_581))" +"(if(not add_582)" +"(if(not base-add_583)" +"(if(not(propagation-inspector prop_0))(not(propagation-inspector base-prop_0)) #f)" " #f)" " #f)" " #f)" -" new-tamper_0" -"(let-values(((the-struct_28) base-prop_0))" -"(if(propagation? the-struct_28)" -"(let-values(((scope-ops77_0) new-ops_0)" -"((add-mpi-shifts78_0)" -"(if(if add_2 base-add_1 #f)" -"(lambda(mss_2)(begin 'add-mpi-shifts78(add_2(base-add_1 mss_2))))" -"(let-values(((or-part_118) add_2))(if or-part_118 or-part_118 base-add_1))))" -"((inspector79_0)" -"(let-values(((or-part_119)(propagation-inspector base-prop_0)))" -"(if or-part_119 or-part_119(propagation-inspector prop_12))))" -"((tamper80_0) new-tamper_0))" +" new-tamper_584" +"(let-values(((the-struct_598) base-prop_0))" +"(if(propagation? the-struct_598)" +"(let-values(((scope-ops77_599) new-ops_581)" +"((add-mpi-shifts78_600)" +"(if(if add_582 base-add_583 #f)" +"(lambda(mss_0)(begin 'add-mpi-shifts78(add_582(base-add_583 mss_0))))" +"(let-values(((or-part_604) add_582))" +"(if or-part_604 or-part_604 base-add_583))))" +"((inspector79_601)" +"(let-values(((or-part_605)(propagation-inspector base-prop_0)))" +"(if or-part_605 or-part_605(propagation-inspector prop_0))))" +"((tamper80_602) new-tamper_584))" "(propagation14.1" -"(propagation-prev-scs the-struct_28)" -"(propagation-prev-smss the-struct_28)" -" scope-ops77_0" -"(propagation-prev-mss the-struct_28)" -" add-mpi-shifts78_0" -" inspector79_0" -" tamper80_0))" -" (raise-argument-error 'struct-copy \"propagation?\" the-struct_28))))))))))))))" +"(propagation-prev-scs the-struct_598)" +"(propagation-prev-smss the-struct_598)" +" scope-ops77_599" +"(propagation-prev-mss the-struct_598)" +" add-mpi-shifts78_600" +" inspector79_601" +" tamper80_602))" +" (raise-argument-error 'struct-copy \"propagation?\" the-struct_598))))))))))))))" "(define-values" "(shift-multi-scope)" -"(lambda(sms_8 delta_0)" +"(lambda(sms_0 delta_0)" "(begin" "(if(zero-phase? delta_0)" -"(let-values() sms_8)" +"(let-values() sms_0)" "(if(label-phase? delta_0)" "(let-values()" -"(if(shifted-to-label-phase?(shifted-multi-scope-phase sms_8))" +"(if(shifted-to-label-phase?(shifted-multi-scope-phase sms_0))" "(let-values() #f)" "(let-values()" "(intern-shifted-multi-scope" -"(shifted-to-label-phase6.1(phase- 0(shifted-multi-scope-phase sms_8)))" -"(shifted-multi-scope-multi-scope sms_8)))))" -"(if(shifted-to-label-phase?(shifted-multi-scope-phase sms_8))" -"(let-values() sms_8)" +"(shifted-to-label-phase6.1(phase- 0(shifted-multi-scope-phase sms_0)))" +"(shifted-multi-scope-multi-scope sms_0)))))" +"(if(shifted-to-label-phase?(shifted-multi-scope-phase sms_0))" +"(let-values() sms_0)" "(let-values()" "(intern-shifted-multi-scope" -"(phase+ delta_0(shifted-multi-scope-phase sms_8))" -"(shifted-multi-scope-multi-scope sms_8)))))))))" +"(phase+ delta_0(shifted-multi-scope-phase sms_0))" +"(shifted-multi-scope-multi-scope sms_0)))))))))" "(define-values" "(syntax-shift-phase-level$1)" -"(lambda(s_135 phase_13)" +"(lambda(s_0 phase_0)" "(begin" " 'syntax-shift-phase-level" -"(if(eqv? phase_13 0)" -" s_135" +"(if(eqv? phase_0 0)" +" s_0" "(let-values()" -"(let-values(((smss81_0) #f))" -"(let-values(((prev-result_1) #f))" -"(let-values(((shift-all_0)" -"(lambda(smss_20)" +"(let-values(((smss81_610) #f))" +"(let-values(((prev-result_611) #f))" +"(let-values(((shift-all_612)" +"(lambda(smss_0)" "(begin" " 'shift-all" -"(if(eq? smss81_0 smss_20)" -"(let-values() prev-result_1)" +"(if(eq? smss81_610 smss_0)" +"(let-values() prev-result_611)" "(let-values()" -"(let-values(((r_21)" +"(let-values(((r_614)" "(let-values()" "(fallback-map" -" smss_20" -"(lambda(smss_21)" -"(let-values(((ht_54) smss_21))" +" smss_0" +"(lambda(smss_1)" +"(let-values(((ht_616) smss_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_54)))" -"((letrec-values(((for-loop_63)" -"(lambda(table_69 i_73)" +"(let-values()(check-in-immutable-hash-keys ht_616)))" +"((letrec-values(((for-loop_617)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_73" -"(let-values(((sms_9)" +"(if i_0" +"(let-values(((sms_620)" "(unsafe-immutable-hash-iterate-key" -" ht_54" -" i_73)))" -"(let-values(((table_70)" -"(let-values(((new-sms_0)" +" ht_616" +" i_0)))" +"(let-values(((table_621)" +"(let-values(((new-sms_622)" "(shift-multi-scope" -" sms_9" -" phase_13)))" +" sms_620" +" phase_0)))" "(begin" " #t" -"((letrec-values(((for-loop_64)" -"(lambda(table_71)" +"((letrec-values(((for-loop_623)" +"(lambda(table_1)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_72)" -"(let-values(((table_73)" -" table_71))" -"(if new-sms_0" -"(let-values(((table_74)" -" table_73))" -"(let-values(((table_75)" +"(let-values(((table_625)" +"(let-values(((table_626)" +" table_1))" +"(if new-sms_622" +"(let-values(((table_627)" +" table_626))" +"(let-values(((table_628)" "(let-values()" -"(let-values(((key_30" -" val_18)" +"(let-values(((key_629" +" val_630)" "(let-values()" "(values" "(let-values()" -" new-sms_0)" +" new-sms_622)" " #t))))" "(hash-set" -" table_74" -" key_30" -" val_18)))))" +" table_627" +" key_629" +" val_630)))))" "(values" -" table_75)))" -" table_73))))" -" table_72))))))" -" for-loop_64)" -" table_69)))))" +" table_628)))" +" table_626))))" +" table_625))))))" +" for-loop_623)" +" table_0)))))" "(if(not #f)" -"(for-loop_63" -" table_70" +"(for-loop_617" +" table_621" "(unsafe-immutable-hash-iterate-next" -" ht_54" -" i_73))" -" table_70)))" -" table_69)))))" -" for-loop_63)" +" ht_616" +" i_0))" +" table_621)))" +" table_0)))))" +" for-loop_617)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_54)))))))))" -"(begin(set! smss81_0 smss_20)(set! prev-result_1 r_21) r_21))))))))" -"(let-values(((s_136) s_135)" -"((f_34)(lambda(tail?_30 d_4)(begin 'f d_4)))" -"((d->s_2)" -"(lambda(s_137 d_5)" +"(unsafe-immutable-hash-iterate-first ht_616)))))))))" +"(begin(set! smss81_610 smss_0)(set! prev-result_611 r_614) r_614))))))))" +"(let-values(((s_631) s_0)" +"((f_632)(lambda(tail?_0 d_0)(begin 'f d_0)))" +"((d->s_633)" +"(lambda(s_1 d_0)" "(begin" " 'd->s" -"(let-values(((the-struct_29) s_137))" -"(if(syntax?$1 the-struct_29)" -"(let-values(((content82_0) d_5)" -"((shifted-multi-scopes83_0)" -"(shift-all_0(syntax-shifted-multi-scopes s_137))))" +"(let-values(((the-struct_640) s_1))" +"(if(syntax?$1 the-struct_640)" +"(let-values(((content82_641) d_0)" +"((shifted-multi-scopes83_642)" +"(shift-all_612(syntax-shifted-multi-scopes s_1))))" "(syntax1.1" -" content82_0" -"(syntax-scopes the-struct_29)" -" shifted-multi-scopes83_0" -"(syntax-scope-propagations+tamper the-struct_29)" -"(syntax-mpi-shifts the-struct_29)" -"(syntax-srcloc the-struct_29)" -"(syntax-props the-struct_29)" -"(syntax-inspector the-struct_29)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_29))))))" -"((s-e_2) syntax-e/no-taint)" -"((seen_13) #f))" -"((letrec-values(((loop_72)" -"(lambda(s_138)" +" content82_641" +"(syntax-scopes the-struct_640)" +" shifted-multi-scopes83_642" +"(syntax-scope-propagations+tamper the-struct_640)" +"(syntax-mpi-shifts the-struct_640)" +"(syntax-srcloc the-struct_640)" +"(syntax-props the-struct_640)" +"(syntax-inspector the-struct_640)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_640))))))" +"((s-e_634) syntax-e/no-taint)" +"((seen_635) #f))" +"((letrec-values(((loop_643)" +"(lambda(s_1)" "(begin" " 'loop" -"(let-values(((s_139) s_138)" -"((f_35) f_34)" -"((gf_6)" -"(lambda(tail?_31 v_76)" +"(let-values(((s_645) s_1)" +"((f_646) f_632)" +"((gf_647)" +"(lambda(tail?_0 v_0)" "(begin" " 'gf" -"(if(syntax?$1 v_76)" -"(let-values()(d->s_2 v_76(loop_72(s-e_2 v_76))))" -"(let-values()(f_34 tail?_31 v_76))))))" -"((seen_14) seen_13))" -"((letrec-values(((loop_73)" -"(lambda(tail?_32 s_140 prev-depth_6)" +"(if(syntax?$1 v_0)" +"(let-values()(d->s_633 v_0(loop_643(s-e_634 v_0))))" +"(let-values()(f_632 tail?_0 v_0))))))" +"((seen_648) seen_635))" +"((letrec-values(((loop_651)" +"(lambda(tail?_0 s_2 prev-depth_0)" "(begin" " 'loop" -"(let-values(((depth_6)(fx+ 1 prev-depth_6)))" -"(if(if seen_14(fx> depth_6 32) #f)" +"(let-values(((depth_655)(fx+ 1 prev-depth_0)))" +"(if(if seen_648(fx> depth_655 32) #f)" "(let-values()" "(datum-map-slow" -" tail?_32" -" s_140" -"(lambda(tail?_33 s_141)(gf_6 tail?_33 s_141))" -" seen_14))" -"(if(null? s_140)" -"(let-values()(f_35 tail?_32 s_140))" -"(if(pair? s_140)" +" tail?_0" +" s_2" +"(lambda(tail?_1 s_3)(gf_647 tail?_1 s_3))" +" seen_648))" +"(if(null? s_2)" +"(let-values()(f_646 tail?_0 s_2))" +"(if(pair? s_2)" "(let-values()" -"(f_35" -" tail?_32" +"(f_646" +" tail?_0" "(cons" -"(loop_73 #f(car s_140) depth_6)" -"(loop_73 #t(cdr s_140) depth_6))))" -"(if(symbol? s_140)" -"(let-values()(f_35 #f s_140))" -"(if(boolean? s_140)" -"(let-values()(f_35 #f s_140))" -"(if(number? s_140)" -"(let-values()(f_35 #f s_140))" -"(if(let-values(((or-part_120)" -"(vector? s_140)))" -"(if or-part_120" -" or-part_120" -"(let-values(((or-part_121)" -"(box? s_140)))" -"(if or-part_121" -" or-part_121" -"(let-values(((or-part_122)" +"(loop_651 #f(car s_2) depth_655)" +"(loop_651 #t(cdr s_2) depth_655))))" +"(if(symbol? s_2)" +"(let-values()(f_646 #f s_2))" +"(if(boolean? s_2)" +"(let-values()(f_646 #f s_2))" +"(if(number? s_2)" +"(let-values()(f_646 #f s_2))" +"(if(let-values(((or-part_658)" +"(vector? s_2)))" +"(if or-part_658" +" or-part_658" +"(let-values(((or-part_659)" +"(box? s_2)))" +"(if or-part_659" +" or-part_659" +"(let-values(((or-part_660)" "(prefab-struct-key" -" s_140)))" -"(if or-part_122" -" or-part_122" -"(hash? s_140)))))))" +" s_2)))" +"(if or-part_660" +" or-part_660" +"(hash? s_2)))))))" "(let-values()" "(datum-map-slow" -" tail?_32" -" s_140" -"(lambda(tail?_34 s_142)" -"(gf_6 tail?_34 s_142))" -" seen_14))" +" tail?_0" +" s_2" +"(lambda(tail?_1 s_3)" +"(gf_647 tail?_1 s_3))" +" seen_648))" "(let-values()" -"(gf_6 #f s_140))))))))))))))" -" loop_73)" +"(gf_647 #f s_2))))))))))))))" +" loop_651)" " #f" -" s_139" +" s_645" " 0))))))" -" loop_72)" -" s_136))))))))))" +" loop_643)" +" s_631))))))))))" "(define-values" "(syntax-swap-scopes)" -"(lambda(s_143 src-scopes_0 dest-scopes_0)" +"(lambda(s_0 src-scopes_0 dest-scopes_0)" "(begin" "(if(equal? src-scopes_0 dest-scopes_0)" -" s_143" -"(let-values(((src-smss_0 src-scs_0)" +" s_0" +"(let-values(((src-smss_666 src-scs_667)" "(set-partition" -"(let-values(((ht_55) src-scopes_0))" +"(let-values(((ht_670) src-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_55)))" -"((letrec-values(((for-loop_65)" -"(lambda(table_76 i_74)" +"(let-values()(check-in-immutable-hash-keys ht_670)))" +"((letrec-values(((for-loop_671)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_74" -"(let-values(((sc_23)" -"(unsafe-immutable-hash-iterate-key ht_55 i_74)))" -"(let-values(((table_77)" -"(let-values(((table_78) table_76))" -"(let-values(((table_79)" +"(if i_0" +"(let-values(((sc_674)" +"(unsafe-immutable-hash-iterate-key ht_670 i_0)))" +"(let-values(((table_675)" +"(let-values(((table_676) table_0))" +"(let-values(((table_677)" "(let-values()" -"(let-values(((key_31 val_19)" +"(let-values(((key_678 val_679)" "(let-values()" "(values" "(let-values()" "(generalize-scope" -" sc_23))" +" sc_674))" " #t))))" "(hash-set" -" table_78" -" key_31" -" val_19)))))" -"(values table_79)))))" +" table_676" +" key_678" +" val_679)))))" +"(values table_677)))))" "(if(not #f)" -"(for-loop_65" -" table_77" -"(unsafe-immutable-hash-iterate-next ht_55 i_74))" -" table_77)))" -" table_76)))))" -" for-loop_65)" +"(for-loop_671" +" table_675" +"(unsafe-immutable-hash-iterate-next ht_670 i_0))" +" table_675)))" +" table_0)))))" +" for-loop_671)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_55))))" +"(unsafe-immutable-hash-iterate-first ht_670))))" " shifted-multi-scope?" "(seteq)" "(seteq)))" -"((dest-smss_0 dest-scs_0)" +"((dest-smss_668 dest-scs_669)" "(set-partition" -"(let-values(((ht_56) dest-scopes_0))" +"(let-values(((ht_680) dest-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_56)))" -"((letrec-values(((for-loop_66)" -"(lambda(table_80 i_75)" +"(let-values()(check-in-immutable-hash-keys ht_680)))" +"((letrec-values(((for-loop_681)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_75" -"(let-values(((sc_24)" -"(unsafe-immutable-hash-iterate-key ht_56 i_75)))" -"(let-values(((table_81)" -"(let-values(((table_82) table_80))" -"(let-values(((table_83)" +"(if i_0" +"(let-values(((sc_684)" +"(unsafe-immutable-hash-iterate-key ht_680 i_0)))" +"(let-values(((table_685)" +"(let-values(((table_686) table_0))" +"(let-values(((table_687)" "(let-values()" -"(let-values(((key_32 val_20)" +"(let-values(((key_688 val_689)" "(let-values()" "(values" "(let-values()" "(generalize-scope" -" sc_24))" +" sc_684))" " #t))))" "(hash-set" -" table_82" -" key_32" -" val_20)))))" -"(values table_83)))))" +" table_686" +" key_688" +" val_689)))))" +"(values table_687)))))" "(if(not #f)" -"(for-loop_66" -" table_81" -"(unsafe-immutable-hash-iterate-next ht_56 i_75))" -" table_81)))" -" table_80)))))" -" for-loop_66)" +"(for-loop_681" +" table_685" +"(unsafe-immutable-hash-iterate-next ht_680 i_0))" +" table_685)))" +" table_0)))))" +" for-loop_681)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_56))))" +"(unsafe-immutable-hash-iterate-first ht_680))))" " shifted-multi-scope?" "(seteq)" "(seteq))))" -"(let-values(((scs84_0) #f))" -"(let-values(((prev-result_2) #f))" -"(let-values(((swap-scs_0)" -"(lambda(scs_14)" +"(let-values(((scs84_690) #f))" +"(let-values(((prev-result_691) #f))" +"(let-values(((swap-scs_692)" +"(lambda(scs_0)" "(begin" " 'swap-scs" -"(if(eq? scs84_0 scs_14)" -"(let-values() prev-result_2)" +"(if(eq? scs84_690 scs_0)" +"(let-values() prev-result_691)" "(let-values()" -"(let-values(((r_22)" +"(let-values(((r_697)" "(let-values()" -"(if(subset? src-scs_0 scs_14)" -"(set-union(set-subtract scs_14 src-scs_0) dest-scs_0)" -" scs_14))))" -"(begin(set! scs84_0 scs_14)(set! prev-result_2 r_22) r_22))))))))" -"(let-values(((smss85_0) #f))" -"(let-values(((prev-result_3) #f))" -"(let-values(((swap-smss_0)" -"(lambda(smss_22)" +"(if(subset? src-scs_667 scs_0)" +"(set-union(set-subtract scs_0 src-scs_667) dest-scs_669)" +" scs_0))))" +"(begin(set! scs84_690 scs_0)(set! prev-result_691 r_697) r_697))))))))" +"(let-values(((smss85_693) #f))" +"(let-values(((prev-result_694) #f))" +"(let-values(((swap-smss_695)" +"(lambda(smss_0)" "(begin" " 'swap-smss" -"(if(eq? smss85_0 smss_22)" -"(let-values() prev-result_3)" +"(if(eq? smss85_693 smss_0)" +"(let-values() prev-result_694)" "(let-values()" -"(let-values(((r_23)" +"(let-values(((r_699)" "(let-values()" "(fallback-update-first" -" smss_22" -"(lambda(smss_23)" -"(if(subset? src-smss_0 smss_23)" -"(set-union(set-subtract smss_23 src-smss_0) dest-smss_0)" -" smss_23))))))" -"(begin(set! smss85_0 smss_22)(set! prev-result_3 r_23) r_23))))))))" -"(let-values(((s_144) s_143)" -"((f_36)(lambda(tail?_35 d_6)(begin 'f d_6)))" -"((d->s_3)" -"(lambda(s_145 d_7)" +" smss_0" +"(lambda(smss_1)" +"(if(subset? src-smss_666 smss_1)" +"(set-union" +"(set-subtract smss_1 src-smss_666)" +" dest-smss_668)" +" smss_1))))))" +"(begin(set! smss85_693 smss_0)(set! prev-result_694 r_699) r_699))))))))" +"(let-values(((s_701) s_0)" +"((f_702)(lambda(tail?_0 d_0)(begin 'f d_0)))" +"((d->s_703)" +"(lambda(s_1 d_0)" "(begin" " 'd->s" -"(let-values(((the-struct_30) s_145))" -"(if(syntax?$1 the-struct_30)" -"(let-values(((content86_0) d_7)" -"((scopes87_0)(swap-scs_0(syntax-scopes s_145)))" -"((shifted-multi-scopes88_0)" -"(swap-smss_0(syntax-shifted-multi-scopes s_145))))" +"(let-values(((the-struct_710) s_1))" +"(if(syntax?$1 the-struct_710)" +"(let-values(((content86_711) d_0)" +"((scopes87_712)(swap-scs_692(syntax-scopes s_1)))" +"((shifted-multi-scopes88_713)" +"(swap-smss_695(syntax-shifted-multi-scopes s_1))))" "(syntax1.1" -" content86_0" -" scopes87_0" -" shifted-multi-scopes88_0" -"(syntax-scope-propagations+tamper the-struct_30)" -"(syntax-mpi-shifts the-struct_30)" -"(syntax-srcloc the-struct_30)" -"(syntax-props the-struct_30)" -"(syntax-inspector the-struct_30)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_30))))))" -"((s-e_3) syntax-e/no-taint)" -"((seen_15) #f))" -"((letrec-values(((loop_74)" -"(lambda(s_146)" +" content86_711" +" scopes87_712" +" shifted-multi-scopes88_713" +"(syntax-scope-propagations+tamper the-struct_710)" +"(syntax-mpi-shifts the-struct_710)" +"(syntax-srcloc the-struct_710)" +"(syntax-props the-struct_710)" +"(syntax-inspector the-struct_710)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_710))))))" +"((s-e_704) syntax-e/no-taint)" +"((seen_705) #f))" +"((letrec-values(((loop_714)" +"(lambda(s_1)" "(begin" " 'loop" -"(let-values(((s_147) s_146)" -"((f_37) f_36)" -"((gf_7)" -"(lambda(tail?_36 v_77)" +"(let-values(((s_716) s_1)" +"((f_717) f_702)" +"((gf_718)" +"(lambda(tail?_0 v_0)" "(begin" " 'gf" -"(if(syntax?$1 v_77)" -"(let-values()(d->s_3 v_77(loop_74(s-e_3 v_77))))" -"(let-values()(f_36 tail?_36 v_77))))))" -"((seen_16) seen_15))" -"((letrec-values(((loop_75)" -"(lambda(tail?_37 s_148 prev-depth_7)" +"(if(syntax?$1 v_0)" +"(let-values()" +"(d->s_703 v_0(loop_714(s-e_704 v_0))))" +"(let-values()(f_702 tail?_0 v_0))))))" +"((seen_719) seen_705))" +"((letrec-values(((loop_722)" +"(lambda(tail?_0 s_2 prev-depth_0)" "(begin" " 'loop" -"(let-values(((depth_7)(fx+ 1 prev-depth_7)))" -"(if(if seen_16(fx> depth_7 32) #f)" +"(let-values(((depth_726)(fx+ 1 prev-depth_0)))" +"(if(if seen_719(fx> depth_726 32) #f)" "(let-values()" "(datum-map-slow" -" tail?_37" -" s_148" -"(lambda(tail?_38 s_149)" -"(gf_7 tail?_38 s_149))" -" seen_16))" -"(if(null? s_148)" -"(let-values()(f_37 tail?_37 s_148))" -"(if(pair? s_148)" +" tail?_0" +" s_2" +"(lambda(tail?_1 s_3)(gf_718 tail?_1 s_3))" +" seen_719))" +"(if(null? s_2)" +"(let-values()(f_717 tail?_0 s_2))" +"(if(pair? s_2)" "(let-values()" -"(f_37" -" tail?_37" +"(f_717" +" tail?_0" "(cons" -"(loop_75 #f(car s_148) depth_7)" -"(loop_75 #t(cdr s_148) depth_7))))" -"(if(symbol? s_148)" -"(let-values()(f_37 #f s_148))" -"(if(boolean? s_148)" -"(let-values()(f_37 #f s_148))" -"(if(number? s_148)" -"(let-values()(f_37 #f s_148))" -"(if(let-values(((or-part_123)" -"(vector? s_148)))" -"(if or-part_123" -" or-part_123" -"(let-values(((or-part_124)" -"(box? s_148)))" -"(if or-part_124" -" or-part_124" -"(let-values(((or-part_125)" +"(loop_722 #f(car s_2) depth_726)" +"(loop_722 #t(cdr s_2) depth_726))))" +"(if(symbol? s_2)" +"(let-values()(f_717 #f s_2))" +"(if(boolean? s_2)" +"(let-values()(f_717 #f s_2))" +"(if(number? s_2)" +"(let-values()(f_717 #f s_2))" +"(if(let-values(((or-part_729)" +"(vector? s_2)))" +"(if or-part_729" +" or-part_729" +"(let-values(((or-part_730)" +"(box? s_2)))" +"(if or-part_730" +" or-part_730" +"(let-values(((or-part_731)" "(prefab-struct-key" -" s_148)))" -"(if or-part_125" -" or-part_125" -"(hash? s_148)))))))" +" s_2)))" +"(if or-part_731" +" or-part_731" +"(hash? s_2)))))))" "(let-values()" "(datum-map-slow" -" tail?_37" -" s_148" -"(lambda(tail?_39 s_150)" -"(gf_7 tail?_39 s_150))" -" seen_16))" +" tail?_0" +" s_2" +"(lambda(tail?_1 s_3)" +"(gf_718 tail?_1 s_3))" +" seen_719))" "(let-values()" -"(gf_7 #f s_148))))))))))))))" -" loop_75)" +"(gf_718 #f s_2))))))))))))))" +" loop_722)" " #f" -" s_147" +" s_716" " 0))))))" -" loop_74)" -" s_144)))))))))))))" +" loop_714)" +" s_701)))))))))))))" "(define-values" "(syntax-scope-set)" -"(lambda(s_151 phase_14)" -"(begin(scope-set-at-fallback s_151(fallback-first(syntax-shifted-multi-scopes s_151)) phase_14))))" +"(lambda(s_0 phase_0)(begin(scope-set-at-fallback s_0(fallback-first(syntax-shifted-multi-scopes s_0)) phase_0))))" "(define-values" "(scope-set-at-fallback)" -"(lambda(s_152 smss_24 phase_15)" +"(lambda(s_0 smss_0 phase_0)" "(begin" -"(let-values(((ht_57) smss_24))" +"(let-values(((ht_739) smss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_57)))" -"((letrec-values(((for-loop_67)" -"(lambda(scopes_9 i_76)" +"(let-values()(check-in-immutable-hash-keys ht_739)))" +"((letrec-values(((for-loop_740)" +"(lambda(scopes_0 i_0)" "(begin" " 'for-loop" -"(if i_76" -"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_57 i_76)))" -"(let-values(((scopes_10)" -"(let-values(((scopes_11) scopes_9))" -"(if(let-values(((or-part_126)(label-phase? phase_15)))" -"(if or-part_126" -" or-part_126" +"(if i_0" +"(let-values(((sms_743)(unsafe-immutable-hash-iterate-key ht_739 i_0)))" +"(let-values(((scopes_744)" +"(let-values(((scopes_745) scopes_0))" +"(if(let-values(((or-part_746)(label-phase? phase_0)))" +"(if or-part_746" +" or-part_746" "(not" "(shifted-to-label-phase?" -"(shifted-multi-scope-phase sms_10)))))" -"(let-values(((scopes_12) scopes_11))" -"(let-values(((scopes_13)" +"(shifted-multi-scope-phase sms_743)))))" +"(let-values(((scopes_747) scopes_745))" +"(let-values(((scopes_748)" "(let-values()" "(set-add" -" scopes_12" +" scopes_747" "(multi-scope-to-scope-at-phase" -"(shifted-multi-scope-multi-scope sms_10)" -"(let-values(((ph_0)" +"(shifted-multi-scope-multi-scope sms_743)" +"(let-values(((ph_749)" "(shifted-multi-scope-phase" -" sms_10)))" -"(if(shifted-to-label-phase? ph_0)" -"(shifted-to-label-phase-from ph_0)" -"(phase- ph_0 phase_15))))))))" -"(values scopes_13)))" -" scopes_11))))" +" sms_743)))" +"(if(shifted-to-label-phase? ph_749)" +"(shifted-to-label-phase-from ph_749)" +"(phase- ph_749 phase_0))))))))" +"(values scopes_748)))" +" scopes_745))))" "(if(not #f)" -"(for-loop_67 scopes_10(unsafe-immutable-hash-iterate-next ht_57 i_76))" -" scopes_10)))" -" scopes_9)))))" -" for-loop_67)" -"(syntax-scopes s_152)" -"(unsafe-immutable-hash-iterate-first ht_57)))))))" +"(for-loop_740 scopes_744(unsafe-immutable-hash-iterate-next ht_739 i_0))" +" scopes_744)))" +" scopes_0)))))" +" for-loop_740)" +"(syntax-scopes s_0)" +"(unsafe-immutable-hash-iterate-first ht_739)))))))" "(define-values" "(find-max-scope)" -"(lambda(scopes_14)" +"(lambda(scopes_0)" "(begin" "(begin" -" (if (set-empty? scopes_14) (let-values () (error \"cannot bind in empty scope set\")) (void))" -"(let-values(((ht_58) scopes_14))" +" (if (set-empty? scopes_0) (let-values () (error \"cannot bind in empty scope set\")) (void))" +"(let-values(((ht_751) scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_58)))" -"((letrec-values(((for-loop_68)" -"(lambda(max-sc_0 i_77)" +"(let-values()(check-in-immutable-hash-keys ht_751)))" +"((letrec-values(((for-loop_752)" +"(lambda(max-sc_0 i_0)" "(begin" " 'for-loop" -"(if i_77" -"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_58 i_77)))" -"(let-values(((max-sc_1)" -"(let-values(((max-sc_2) max-sc_0))" -"(let-values(((max-sc_3)" +"(if i_0" +"(let-values(((sc_755)(unsafe-immutable-hash-iterate-key ht_751 i_0)))" +"(let-values(((max-sc_756)" +"(let-values(((max-sc_757) max-sc_0))" +"(let-values(((max-sc_758)" "(let-values()" -"(if(scope>? sc_25 max-sc_2) sc_25 max-sc_2))))" -"(values max-sc_3)))))" +"(if(scope>? sc_755 max-sc_757)" +" sc_755" +" max-sc_757))))" +"(values max-sc_758)))))" "(if(not #f)" -"(for-loop_68 max-sc_1(unsafe-immutable-hash-iterate-next ht_58 i_77))" -" max-sc_1)))" +"(for-loop_752 max-sc_756(unsafe-immutable-hash-iterate-next ht_751 i_0))" +" max-sc_756)))" " max-sc_0)))))" -" for-loop_68)" -"(set-first scopes_14)" -"(unsafe-immutable-hash-iterate-first ht_58))))))))" +" for-loop_752)" +"(set-first scopes_0)" +"(unsafe-immutable-hash-iterate-first ht_751))))))))" "(define-values" "(add-binding-in-scopes!20.1)" "(lambda(just-for-nominal?15_0 scopes17_0 sym18_0 binding19_0)" "(begin" " 'add-binding-in-scopes!20" -"(let-values(((scopes_15) scopes17_0))" -"(let-values(((sym_16) sym18_0))" -"(let-values(((binding_3) binding19_0))" -"(let-values(((just-for-nominal?_1) just-for-nominal?15_0))" +"(let-values(((scopes_763) scopes17_0))" +"(let-values(((sym_764) sym18_0))" +"(let-values(((binding_765) binding19_0))" +"(let-values(((just-for-nominal?_766) just-for-nominal?15_0))" "(let-values()" -"(let-values(((max-sc_4)(find-max-scope scopes_15)))" -"(let-values(((bt_7)" +"(let-values(((max-sc_767)(find-max-scope scopes_763)))" +"(let-values(((bt_768)" "(binding-table-add" -"(scope-binding-table max-sc_4)" -" scopes_15" -" sym_16" -" binding_3" -" just-for-nominal?_1)))" -"(begin(set-scope-binding-table! max-sc_4 bt_7)(clear-resolve-cache! sym_16))))))))))))" +"(scope-binding-table max-sc_767)" +" scopes_763" +" sym_764" +" binding_765" +" just-for-nominal?_766)))" +"(begin(set-scope-binding-table! max-sc_767 bt_768)(clear-resolve-cache! sym_764))))))))))))" "(define-values" "(add-bulk-binding-in-scopes!27.1)" -"(lambda(shadow-except23_0 scopes25_1 bulk-binding26_0)" +"(lambda(shadow-except23_0 scopes25_0 bulk-binding26_0)" "(begin" " 'add-bulk-binding-in-scopes!27" -"(let-values(((scopes_16) scopes25_1))" -"(let-values(((bulk-binding_0) bulk-binding26_0))" -"(let-values(((shadow-except_1) shadow-except23_0))" +"(let-values(((scopes_792) scopes25_0))" +"(let-values(((bulk-binding_793) bulk-binding26_0))" +"(let-values(((shadow-except_794) shadow-except23_0))" "(let-values()" -"(let-values(((max-sc_5)(find-max-scope scopes_16)))" -"(let-values(((bt_8)" -"(let-values(((temp89_0)(scope-binding-table max-sc_5))" -"((scopes90_0) scopes_16)" -"((bulk-binding91_0) bulk-binding_0)" -"((shadow-except92_0) shadow-except_1))" -"(binding-table-add-bulk9.1 shadow-except92_0 temp89_0 scopes90_0 bulk-binding91_0))))" -"(begin(set-scope-binding-table! max-sc_5 bt_8)(clear-resolve-cache!)))))))))))" +"(let-values(((max-sc_795)(find-max-scope scopes_792)))" +"(let-values(((bt_796)" +"(let-values(((temp89_798)(scope-binding-table max-sc_795))" +"((scopes90_799) scopes_792)" +"((bulk-binding91_800) bulk-binding_793)" +"((shadow-except92_801) shadow-except_794))" +"(binding-table-add-bulk9.1" +" shadow-except92_801" +" temp89_798" +" scopes90_799" +" bulk-binding91_800))))" +"(begin(set-scope-binding-table! max-sc_795 bt_796)(clear-resolve-cache!)))))))))))" "(define-values" "(syntax-any-macro-scopes?)" -"(lambda(s_153)" +"(lambda(s_0)" "(begin" -"(let-values(((ht_59)(syntax-scopes s_153)))" +"(let-values(((ht_821)(syntax-scopes s_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_59)))" -"((letrec-values(((for-loop_69)" -"(lambda(result_44 i_78)" +"(let-values()(check-in-immutable-hash-keys ht_821)))" +"((letrec-values(((for-loop_822)" +"(lambda(result_0 i_0)" "(begin" " 'for-loop" -"(if i_78" -"(let-values(((sc_26)(unsafe-immutable-hash-iterate-key ht_59 i_78)))" -"(let-values(((result_45)" +"(if i_0" +"(let-values(((sc_825)(unsafe-immutable-hash-iterate-key ht_821 i_0)))" +"(let-values(((result_826)" "(let-values()" -"(let-values(((result_46)" +"(let-values(((result_828)" "(let-values()" -"(let-values()(eq?(scope-kind sc_26) 'macro)))))" -"(values result_46)))))" -"(if(if(not((lambda x_34 result_45) sc_26))(not #f) #f)" -"(for-loop_69 result_45(unsafe-immutable-hash-iterate-next ht_59 i_78))" -" result_45)))" -" result_44)))))" -" for-loop_69)" +"(let-values()(eq?(scope-kind sc_825) 'macro)))))" +"(values result_828)))))" +"(if(if(not((lambda x_0 result_826) sc_825))(not #f) #f)" +"(for-loop_822 result_826(unsafe-immutable-hash-iterate-next ht_821 i_0))" +" result_826)))" +" result_0)))))" +" for-loop_822)" " #f" -"(unsafe-immutable-hash-iterate-first ht_59)))))))" +"(unsafe-immutable-hash-iterate-first ht_821)))))))" "(define-values" "(resolve40.1)" "(lambda(ambiguous-value30_0 exactly?31_0 extra-shifts33_0 get-scopes?32_0 s38_0 phase39_0)" "(begin" " 'resolve40" -"(let-values(((s_154) s38_0))" -"(let-values(((phase_16) phase39_0))" -"(let-values(((ambiguous-value_0) ambiguous-value30_0))" -"(let-values(((exactly?_0) exactly?31_0))" -"(let-values(((get-scopes?_0) get-scopes?32_0))" -"(let-values(((extra-shifts_2) extra-shifts33_0))" +"(let-values(((s_836) s38_0))" +"(let-values(((phase_837) phase39_0))" +"(let-values(((ambiguous-value_838) ambiguous-value30_0))" +"(let-values(((exactly?_839) exactly?31_0))" +"(let-values(((get-scopes?_840) get-scopes?32_0))" +"(let-values(((extra-shifts_841) extra-shifts33_0))" "(let-values()" -"(let-values(((sym_17)(syntax-content s_154)))" -"((letrec-values(((fallback-loop_0)" -"(lambda(smss_25)" +"(let-values(((sym_842)(syntax-content s_836)))" +"((letrec-values(((fallback-loop_843)" +"(lambda(smss_0)" "(begin" " 'fallback-loop" -"(let-values(((c1_21)" -"(if(not exactly?_0)" -"(if(not get-scopes?_0)" +"(let-values(((c1_845)" +"(if(not exactly?_839)" +"(if(not get-scopes?_840)" "(resolve-cache-get" -" sym_17" -" phase_16" -"(syntax-scopes s_154)" -"(fallback-first smss_25))" +" sym_842" +" phase_837" +"(syntax-scopes s_836)" +"(fallback-first smss_0))" " #f)" " #f)))" -"(if c1_21" -"((lambda(b_40)" -"(if(eq? b_40 '#:none)" +"(if c1_845" +"((lambda(b_0)" +"(if(eq? b_0 '#:none)" "(let-values()" -"(if(fallback? smss_25)" -"(fallback-loop_0(fallback-rest smss_25))" +"(if(fallback? smss_0)" +"(fallback-loop_843(fallback-rest smss_0))" " #f))" -"(let-values() b_40)))" -" c1_21)" +"(let-values() b_0)))" +" c1_845)" "(let-values()" -"(let-values(((scopes_17)" +"(let-values(((scopes_847)" "(scope-set-at-fallback" -" s_154" -"(fallback-first smss_25)" -" phase_16)))" -"(let-values(((best-scopes_0 best-binding_0)" -"(let-values(((ht_60) scopes_17))" +" s_836" +"(fallback-first smss_0)" +" phase_837)))" +"(let-values(((best-scopes_848 best-binding_849)" +"(let-values(((ht_850) scopes_847))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-immutable-hash-keys ht_60)))" -"((letrec-values(((for-loop_70)" -"(lambda(best-scopes_1" -" best-binding_1" -" i_79)" +"(check-in-immutable-hash-keys ht_850)))" +"((letrec-values(((for-loop_851)" +"(lambda(best-scopes_0" +" best-binding_0" +" i_0)" "(begin" " 'for-loop" -"(if i_79" -"(let-values(((sc_27)" +"(if i_0" +"(let-values(((sc_855)" "(unsafe-immutable-hash-iterate-key" -" ht_60" -" i_79)))" -"(let-values(((best-scopes_2" -" best-binding_2)" -"(let-values(((ht_61" -" bulk-bindings_2)" -"(let-values(((table_84)" +" ht_850" +" i_0)))" +"(let-values(((best-scopes_856" +" best-binding_857)" +"(let-values(((ht_858" +" bulk-bindings_859)" +"(let-values(((table_862)" "(scope-binding-table" -" sc_27)))" +" sc_855)))" "(if(hash?" -" table_84)" +" table_862)" "(values" "(hash-ref" -" table_84" -" sym_17" +" table_862" +" sym_842" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" -" table_84)" -" sym_17" +" table_862)" +" sym_842" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" -" table_84)))))" -"((s_155)" -" s_154)" -"((extra-shifts_3)" -" extra-shifts_2))" +" table_862)))))" +"((s_860)" +" s_836)" +"((extra-shifts_861)" +" extra-shifts_841))" "(begin" " #t" -"((letrec-values(((for-loop_71)" -"(lambda(best-scopes_3" -" best-binding_3" -" i_80)" +"((letrec-values(((for-loop_863)" +"(lambda(best-scopes_1" +" best-binding_1" +" i_1)" "(begin" " 'for-loop" "(if(not" "(null?" -" i_80))" -"(let-values(((b-scopes_0)" +" i_1))" +"(let-values(((b-scopes_867)" "(if(pair?" -" i_80)" +" i_1)" "(let-values()" "(bulk-binding-at-scopes" "(car" -" i_80)))" +" i_1)))" "(let-values()" "(hash-iterate-key" -" ht_61" -" i_80))))" -"((binding_4)" +" ht_858" +" i_1))))" +"((binding_868)" "(if(pair?" -" i_80)" +" i_1)" "(let-values()" -"(let-values(((bulk_3)" +"(let-values(((bulk_869)" "(bulk-binding-at-bulk" "(car" -" i_80))))" -"(let-values(((b-info_0)" +" i_1))))" +"(let-values(((b-info_870)" "(if(symbol-interned?" -" sym_17)" +" sym_842)" "(hash-ref" "(bulk-binding-symbols" -" bulk_3" -" s_155" -" extra-shifts_3)" -" sym_17" +" bulk_869" +" s_860" +" extra-shifts_861)" +" sym_842" " #f)" " #f)))" -"(if b-info_0" +"(if b-info_870" "((bulk-binding-create" -" bulk_3)" -" bulk_3" -" b-info_0" -" sym_17)" +" bulk_869)" +" bulk_869" +" b-info_870" +" sym_842)" " #f))))" "(let-values()" "(hash-iterate-value" -" ht_61" -" i_80)))))" -"(let-values(((best-scopes_4" -" best-binding_4)" -"(let-values(((best-scopes_5)" -" best-scopes_3)" -"((best-binding_5)" -" best-binding_3))" -"(if(if b-scopes_0" -"(if binding_4" +" ht_858" +" i_1)))))" +"(let-values(((best-scopes_871" +" best-binding_872)" +"(let-values(((best-scopes_873)" +" best-scopes_1)" +"((best-binding_874)" +" best-binding_1))" +"(if(if b-scopes_867" +"(if binding_868" "(subset?" -" b-scopes_0" -" scopes_17)" +" b-scopes_867" +" scopes_847)" " #f)" " #f)" -"(let-values(((best-scopes_6)" -" best-scopes_5)" -"((best-binding_6)" -" best-binding_5))" -"(let-values(((best-scopes_7" -" best-binding_7)" +"(let-values(((best-scopes_875)" +" best-scopes_873)" +"((best-binding_876)" +" best-binding_874))" +"(let-values(((best-scopes_877" +" best-binding_878)" "(let-values()" "(if(pair?" -" best-scopes_6)" +" best-scopes_875)" "(let-values()" -"(if(let-values(((lst_48)" -" best-scopes_6))" +"(if(let-values(((lst_879)" +" best-scopes_875))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_48)))" -"((letrec-values(((for-loop_72)" -"(lambda(result_47" -" lst_49)" +" lst_879)))" +"((letrec-values(((for-loop_880)" +"(lambda(result_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_49)" -"(let-values(((amb-scopes_0)" +" lst_0)" +"(let-values(((amb-scopes_883)" "(unsafe-car" -" lst_49))" -"((rest_21)" +" lst_0))" +"((rest_884)" "(unsafe-cdr" -" lst_49)))" -"(let-values(((result_48)" +" lst_0)))" +"(let-values(((result_885)" "(let-values()" -"(let-values(((result_49)" +"(let-values(((result_887)" "(let-values()" "(let-values()" "(subset?" -" amb-scopes_0" -" b-scopes_0)))))" +" amb-scopes_883" +" b-scopes_867)))))" "(values" -" result_49)))))" +" result_887)))))" "(if(if(not" -"((lambda x_35" +"((lambda x_0" "(not" -" result_48))" -" amb-scopes_0))" +" result_885))" +" amb-scopes_883))" "(not" " #f)" " #f)" -"(for-loop_72" -" result_48" -" rest_21)" -" result_48)))" -" result_47)))))" -" for-loop_72)" +"(for-loop_880" +" result_885" +" rest_884)" +" result_885)))" +" result_0)))))" +" for-loop_880)" " #t" -" lst_48)))" +" lst_879)))" "(let-values()" "(values" -" b-scopes_0" -" binding_4))" +" b-scopes_867" +" binding_868))" "(let-values()" "(values" "(cons" -" b-scopes_0" -" best-scopes_6)" +" b-scopes_867" +" best-scopes_875)" " #f))))" "(if(not" -" best-scopes_6)" +" best-scopes_875)" "(let-values()" "(values" -" b-scopes_0" -" binding_4))" +" b-scopes_867" +" binding_868))" "(if(subset?" -" b-scopes_0" -" best-scopes_6)" +" b-scopes_867" +" best-scopes_875)" "(let-values()" "(values" -" best-scopes_6" -" best-binding_6))" +" best-scopes_875" +" best-binding_876))" "(if(subset?" -" best-scopes_6" -" b-scopes_0)" +" best-scopes_875" +" b-scopes_867)" "(let-values()" "(values" -" b-scopes_0" -" binding_4))" +" b-scopes_867" +" binding_868))" "(let-values()" "(values" "(list" -" best-scopes_6" -" b-scopes_0)" +" best-scopes_875" +" b-scopes_867)" " #f)))))))))" "(values" -" best-scopes_7" -" best-binding_7)))" +" best-scopes_877" +" best-binding_878)))" "(values" -" best-scopes_5" -" best-binding_5)))))" +" best-scopes_873" +" best-binding_874)))))" "(if(not" " #f)" -"(for-loop_71" -" best-scopes_4" -" best-binding_4" +"(for-loop_863" +" best-scopes_871" +" best-binding_872" "(if(pair?" -" i_80)" +" i_1)" "(let-values()" "(cdr" -" i_80))" +" i_1))" "(let-values()" -"(let-values(((or-part_127)" +"(let-values(((or-part_889)" "(hash-iterate-next" -" ht_61" -" i_80)))" -"(if or-part_127" -" or-part_127" -" bulk-bindings_2)))))" +" ht_858" +" i_1)))" +"(if or-part_889" +" or-part_889" +" bulk-bindings_859)))))" "(values" -" best-scopes_4" -" best-binding_4))))" -"(values" -" best-scopes_3" -" best-binding_3))))))" -" for-loop_71)" -" best-scopes_1" -" best-binding_1" -"(let-values(((or-part_128)" -"(hash-iterate-first" -" ht_61)))" -"(if or-part_128" -" or-part_128" -" bulk-bindings_2)))))))" -"(if(not #f)" -"(for-loop_70" -" best-scopes_2" -" best-binding_2" -"(unsafe-immutable-hash-iterate-next" -" ht_60" -" i_79))" -"(values" -" best-scopes_2" -" best-binding_2))))" +" best-scopes_871" +" best-binding_872))))" "(values" " best-scopes_1" " best-binding_1))))))" -" for-loop_70)" +" for-loop_863)" +" best-scopes_0" +" best-binding_0" +"(let-values(((or-part_890)" +"(hash-iterate-first" +" ht_858)))" +"(if or-part_890" +" or-part_890" +" bulk-bindings_859)))))))" +"(if(not #f)" +"(for-loop_851" +" best-scopes_856" +" best-binding_857" +"(unsafe-immutable-hash-iterate-next" +" ht_850" +" i_0))" +"(values" +" best-scopes_856" +" best-binding_857))))" +"(values" +" best-scopes_0" +" best-binding_0))))))" +" for-loop_851)" " #f" " #f" -"(unsafe-immutable-hash-iterate-first ht_60))))))" -"(if(pair? best-scopes_0)" +"(unsafe-immutable-hash-iterate-first ht_850))))))" +"(if(pair? best-scopes_848)" "(let-values()" -"(if(fallback? smss_25)" -"(fallback-loop_0(fallback-rest smss_25))" -" ambiguous-value_0))" -"(if best-scopes_0" +"(if(fallback? smss_0)" +"(fallback-loop_843(fallback-rest smss_0))" +" ambiguous-value_838))" +"(if best-scopes_848" "(let-values()" "(begin" "(resolve-cache-set!" -" sym_17" -" phase_16" -"(syntax-scopes s_154)" -"(fallback-first smss_25)" -" best-binding_0)" -"(if(let-values(((or-part_129)(not exactly?_0)))" -"(if or-part_129" -" or-part_129" +" sym_842" +" phase_837" +"(syntax-scopes s_836)" +"(fallback-first smss_0)" +" best-binding_849)" +"(if(let-values(((or-part_891)(not exactly?_839)))" +"(if or-part_891" +" or-part_891" "(eqv?" -"(set-count scopes_17)" -"(set-count best-scopes_0))))" -"(if get-scopes?_0 best-scopes_0 best-binding_0)" +"(set-count scopes_847)" +"(set-count best-scopes_848))))" +"(if get-scopes?_840 best-scopes_848 best-binding_849)" " #f)))" "(let-values()" "(begin" "(resolve-cache-set!" -" sym_17" -" phase_16" -"(syntax-scopes s_154)" -"(fallback-first smss_25)" +" sym_842" +" phase_837" +"(syntax-scopes s_836)" +"(fallback-first smss_0)" " '#:none)" -"(if(fallback? smss_25)" -"(fallback-loop_0(fallback-rest smss_25))" +"(if(fallback? smss_0)" +"(fallback-loop_843(fallback-rest smss_0))" " #f))))))))))))))" -" fallback-loop_0)" -"(syntax-shifted-multi-scopes s_154)))))))))))))" +" fallback-loop_843)" +"(syntax-shifted-multi-scopes s_836)))))))))))))" "(define-values" "(bound-identifier=?$1)" -"(lambda(a_33 b_41 phase_17)" +"(lambda(a_0 b_0 phase_0)" "(begin" " 'bound-identifier=?" -"(if(eq?(syntax-e$1 a_33)(syntax-e$1 b_41))" -"(equal?(syntax-scope-set a_33 phase_17)(syntax-scope-set b_41 phase_17))" +"(if(eq?(syntax-e$1 a_0)(syntax-e$1 b_0))" +"(equal?(syntax-scope-set a_0 phase_0)(syntax-scope-set b_0 phase_0))" " #f))))" "(define-values" "(local-binding?)" -"(lambda(b_42)" -"(begin(let-values(((or-part_0)(full-local-binding? b_42)))(if or-part_0 or-part_0(symbol? b_42))))))" +"(lambda(b_0)(begin(let-values(((or-part_2)(full-local-binding? b_0)))(if or-part_2 or-part_2(symbol? b_0))))))" "(define-values" "(struct:full-local-binding full-local-binding1.1 full-local-binding? full-local-binding-key)" -"(let-values(((struct:_20 make-_20 ?_20 -ref_20 -set!_20)" +"(let-values(((struct:_3 make-_4 ?_5 -ref_6 -set!_7)" "(let-values()" "(let-values()" "(make-struct-type" @@ -10485,59 +10575,59 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(b_43 ser-push!_13 state_23)" +"(lambda(b_0 ser-push!_0 state_0)" "(begin" -"(ser-push!_13 'tag '#:local-binding)" -"(ser-push!_13(full-local-binding-key b_43))" -"(ser-push!_13(full-binding-free=id b_43))))))" +"(ser-push!_0 'tag '#:local-binding)" +"(ser-push!_0(full-local-binding-key b_0))" +"(ser-push!_0(full-binding-free=id b_0))))))" "(current-inspector)" " #f" " '(0)" " #f" " 'full-local-binding)))))" -"(values struct:_20 make-_20 ?_20(make-struct-field-accessor -ref_20 0 'key))))" +"(values struct:_3 make-_4 ?_5(make-struct-field-accessor -ref_6 0 'key))))" "(define-values" "(deserialize-full-local-binding)" -"(lambda(key_33 free=id_3)(begin(full-local-binding1.1 #f free=id_3 key_33))))" +"(lambda(key_0 free=id_0)(begin(full-local-binding1.1 #f free=id_0 key_0))))" "(define-values" "(make-local-binding7.1)" "(lambda(frame-id2_0 free=id3_0 key6_0)" "(begin" " 'make-local-binding7" -"(let-values(((key_34) key6_0))" -"(let-values(((frame-id_2) frame-id2_0))" -"(let-values(((free=id_4) free=id3_0))" +"(let-values(((key_31) key6_0))" +"(let-values(((frame-id_32) frame-id2_0))" +"(let-values(((free=id_33) free=id3_0))" "(let-values()" -"(if(if(not frame-id_2)(not free=id_4) #f)" -"(let-values() key_34)" -"(let-values()(full-local-binding1.1 frame-id_2 free=id_4 key_34))))))))))" +"(if(if(not frame-id_32)(not free=id_33) #f)" +"(let-values() key_31)" +"(let-values()(full-local-binding1.1 frame-id_32 free=id_33 key_31))))))))))" "(define-values" "(local-binding-update17.1)" "(lambda(frame-id11_0 free=id12_0 key10_0 b16_0)" "(begin" " 'local-binding-update17" -"(let-values(((b_44) b16_0))" -"(let-values(((key_35)(if(eq? key10_0 unsafe-undefined)(local-binding-key b_44) key10_0)))" -"(let-values(((frame-id_3)(if(eq? frame-id11_0 unsafe-undefined)(binding-frame-id b_44) frame-id11_0)))" -"(let-values(((free=id_5)(if(eq? free=id12_0 unsafe-undefined)(binding-free=id b_44) free=id12_0)))" +"(let-values(((b_58) b16_0))" +"(let-values(((key_59)(if(eq? key10_0 unsafe-undefined)(local-binding-key b_58) key10_0)))" +"(let-values(((frame-id_60)(if(eq? frame-id11_0 unsafe-undefined)(binding-frame-id b_58) frame-id11_0)))" +"(let-values(((free=id_61)(if(eq? free=id12_0 unsafe-undefined)(binding-free=id b_58) free=id12_0)))" "(let-values()" -"(let-values(((key21_0) key_35)((frame-id22_0) frame-id_3)((free=id23_0) free=id_5))" -"(make-local-binding7.1 frame-id22_0 free=id23_0 key21_0))))))))))" +"(let-values(((key21_63) key_59)((frame-id22_64) frame-id_60)((free=id23_65) free=id_61))" +"(make-local-binding7.1 frame-id22_64 free=id23_65 key21_63))))))))))" "(define-values" "(local-binding-key)" -"(lambda(b_45)(begin(if(full-local-binding? b_45)(full-local-binding-key b_45) b_45))))" +"(lambda(b_0)(begin(if(full-local-binding? b_0)(full-local-binding-key b_0) b_0))))" "(define-values" "(1/prop:rename-transformer 1/rename-transformer? rename-transformer-value)" "(make-struct-type-property" " 'rename-transformer" -"(lambda(v_29 info_0)" +"(lambda(v_0 info_0)" "(let-values((()" "(begin" -"(if(let-values(((or-part_11)(exact-nonnegative-integer? v_29)))" -"(if or-part_11" -" or-part_11" -"(let-values(((or-part_2)(identifier? v_29)))" -"(if or-part_2 or-part_2(if(procedure? v_29)(procedure-arity-includes? v_29 1) #f)))))" +"(if(let-values(((or-part_4)(exact-nonnegative-integer? v_0)))" +"(if or-part_4" +" or-part_4" +"(let-values(((or-part_5)(identifier? v_0)))" +"(if or-part_5 or-part_5(if(procedure? v_0)(procedure-arity-includes? v_0 1) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -10546,57 +10636,56 @@ static const char *startup_source = " \"(or/c exact-nonnegative-integer?\\n\"" " \" identifier?\\n\"" " \" (procedure-arity-includes? proc 1))\")" -" v_29)))" +" v_0)))" "(values))))" "(let-values((()" "(begin" -"(if(exact-nonnegative-integer? v_29)" +"(if(exact-nonnegative-integer? v_0)" "(let-values()" "(begin" -"(if(<= v_29(list-ref info_0 1))" +"(if(<= v_0(list-ref info_0 1))" "(void)" "(let-values()" "(raise-arguments-error" " 'guard-for-prop:rename-transformer" " \"field index >= initialized-field count for structure type\"" " \"field index\"" -" v_29" +" v_0" " \"initialized-field count\"" "(list-ref info_0 1))))" -"(if(member v_29(list-ref info_0 5))" +"(if(member v_0(list-ref info_0 5))" "(void)" "(let-values()" "(raise-arguments-error" " 'guard-for-prop:rename-transformer" " \"field index not declared immutable\"" " \"field index\"" -" v_29)))))" +" v_0)))))" "(void))" "(values))))" -"(let-values(((ref_0)(list-ref info_0 3)))" -"(if(identifier? v_29)" -"(let-values()(lambda(t_35) v_29))" -"(if(integer? v_29)" +"(let-values(((ref_3)(list-ref info_0 3)))" +"(if(identifier? v_0)" +"(let-values()(lambda(t_0) v_0))" +"(if(integer? v_0)" "(let-values()" -"(lambda(t_36)" -"(let-values(((val_21)(ref_0 t_36 v_29)))" -"(if(identifier? val_21) val_21(datum->syntax$1 #f '?)))))" +"(lambda(t_0)" +"(let-values(((val_8)(ref_3 t_0 v_0)))(if(identifier? val_8) val_8(datum->syntax$1 #f '?)))))" "(let-values()" -"(lambda(t_14)" -"(let-values(((id_0)(call-with-continuation-prompt(lambda()(v_29 t_14)))))" +"(lambda(t_0)" +"(let-values(((id_10)(call-with-continuation-prompt(lambda()(v_0 t_0)))))" "(begin" -"(if(identifier? id_0)" +"(if(identifier? id_10)" "(void)" "(let-values()" "(raise-arguments-error" " 'prop:rename-transformer" " \"contract violation for given value; expected an identifier\"" " \"given\"" -" id_0)))" -" id_0))))))))))))" +" id_10)))" +" id_10))))))))))))" "(define-values" "(struct:id-rename-transformer id-rename-transformer1.1 id-rename-transformer? id-rename-transformer-id)" -"(let-values(((struct:_21 make-_21 ?_21 -ref_21 -set!_21)" +"(let-values(((struct:_11 make-_12 ?_13 -ref_14 -set!_15)" "(let-values()" "(let-values()" "(make-struct-type" @@ -10611,144 +10700,144 @@ static const char *startup_source = " '(0)" " #f" " 'id-rename-transformer)))))" -"(values struct:_21 make-_21 ?_21(make-struct-field-accessor -ref_21 0 'id))))" +"(values struct:_11 make-_12 ?_13(make-struct-field-accessor -ref_14 0 'id))))" "(define-values" "(1/make-rename-transformer)" -"(lambda(id_1)" +"(lambda(id_0)" "(begin" " 'make-rename-transformer" "(begin" -"(if(identifier? id_1)" +"(if(identifier? id_0)" "(void)" -" (let-values () (raise-argument-error 'make-rename-transformer \"identifier?\" id_1)))" -"(id-rename-transformer1.1 id_1)))))" +" (let-values () (raise-argument-error 'make-rename-transformer \"identifier?\" id_0)))" +"(id-rename-transformer1.1 id_0)))))" "(define-values" "(1/rename-transformer-target)" -"(lambda(t_37)(begin 'rename-transformer-target((rename-transformer-value t_37) t_37))))" +"(lambda(t_0)(begin 'rename-transformer-target((rename-transformer-value t_0) t_0))))" "(define-values" "(free-identifier=?$1)" -"(lambda(a_34 b_46 a-phase_0 b-phase_0)" +"(lambda(a_0 b_0 a-phase_0 b-phase_0)" "(begin" " 'free-identifier=?" -"(let-values(((ab_0)" +"(let-values(((ab_5)" "(toplevel-as-symbol" -"(let-values(((a51_0) a_34)((a-phase52_0) a-phase_0)((temp53_0) #t))" -"(resolve+shift28.1 #f #f null unsafe-undefined temp53_0 a51_0 a-phase52_0)))))" -"(let-values(((bb_0)" +"(let-values(((a51_8) a_0)((a-phase52_9) a-phase_0)((temp53_10) #t))" +"(resolve+shift28.1 #f #f null unsafe-undefined temp53_10 a51_8 a-phase52_9)))))" +"(let-values(((bb_6)" "(toplevel-as-symbol" -"(let-values(((b54_0) b_46)((b-phase55_0) b-phase_0)((temp56_0) #t))" -"(resolve+shift28.1 #f #f null unsafe-undefined temp56_0 b54_0 b-phase55_0)))))" -"(if(let-values(((or-part_3)(symbol? ab_0)))(if or-part_3 or-part_3(symbol? bb_0)))" -"(let-values()(eq? ab_0 bb_0))" -"(let-values()(same-binding? ab_0 bb_0))))))))" +"(let-values(((b54_12) b_0)((b-phase55_13) b-phase_0)((temp56_14) #t))" +"(resolve+shift28.1 #f #f null unsafe-undefined temp56_14 b54_12 b-phase55_13)))))" +"(if(let-values(((or-part_15)(symbol? ab_5)))(if or-part_15 or-part_15(symbol? bb_6)))" +"(let-values()(eq? ab_5 bb_6))" +"(let-values()(same-binding? ab_5 bb_6))))))))" "(define-values" "(toplevel-as-symbol)" -"(lambda(b_47)" +"(lambda(b_0)" "(begin" -"(if(if(module-binding? b_47)(top-level-module-path-index?(module-binding-module b_47)) #f)" -"(module-binding-sym b_47)" -" b_47))))" +"(if(if(module-binding? b_0)(top-level-module-path-index?(module-binding-module b_0)) #f)" +"(module-binding-sym b_0)" +" b_0))))" "(define-values" "(same-binding?)" -"(lambda(ab_1 bb_1)" +"(lambda(ab_0 bb_0)" "(begin" -"(if(module-binding? ab_1)" +"(if(module-binding? ab_0)" "(let-values()" -"(if(module-binding? bb_1)" -"(if(eq?(module-binding-sym ab_1)(module-binding-sym bb_1))" -"(if(eqv?(module-binding-phase ab_1)(module-binding-phase bb_1))" +"(if(module-binding? bb_0)" +"(if(eq?(module-binding-sym ab_0)(module-binding-sym bb_0))" +"(if(eqv?(module-binding-phase ab_0)(module-binding-phase bb_0))" "(eq?" -"(1/module-path-index-resolve(module-binding-module ab_1))" -"(1/module-path-index-resolve(module-binding-module bb_1)))" +"(1/module-path-index-resolve(module-binding-module ab_0))" +"(1/module-path-index-resolve(module-binding-module bb_0)))" " #f)" " #f)" " #f))" -"(if(local-binding? ab_1)" -"(let-values()(if(local-binding? bb_1)(eq?(local-binding-key ab_1)(local-binding-key bb_1)) #f))" -" (let-values () (error \"bad binding\" ab_1)))))))" +"(if(local-binding? ab_0)" +"(let-values()(if(local-binding? bb_0)(eq?(local-binding-key ab_0)(local-binding-key bb_0)) #f))" +" (let-values () (error \"bad binding\" ab_0)))))))" "(define-values" "(same-binding-nominals?)" -"(lambda(ab_2 bb_2)" +"(lambda(ab_0 bb_0)" "(begin" "(if(eq?" -"(1/module-path-index-resolve(module-binding-nominal-module ab_2))" -"(1/module-path-index-resolve(module-binding-nominal-module bb_2)))" -"(if(eqv?(module-binding-nominal-require-phase ab_2)(module-binding-nominal-require-phase bb_2))" -"(eqv?(module-binding-nominal-sym ab_2)(module-binding-nominal-sym bb_2))" +"(1/module-path-index-resolve(module-binding-nominal-module ab_0))" +"(1/module-path-index-resolve(module-binding-nominal-module bb_0)))" +"(if(eqv?(module-binding-nominal-require-phase ab_0)(module-binding-nominal-require-phase bb_0))" +"(eqv?(module-binding-nominal-sym ab_0)(module-binding-nominal-sym bb_0))" " #f)" " #f))))" "(define-values" "(identifier-binding-symbol$1)" -"(lambda(id_2 phase_18)" +"(lambda(id_0 phase_0)" "(begin" " 'identifier-binding-symbol" -"(let-values(((b_43)" -"(let-values(((id57_0) id_2)((phase58_0) phase_18)((temp59_0) #t))" -"(resolve+shift28.1 #f #f null unsafe-undefined temp59_0 id57_0 phase58_0))))" -"(if(symbol? b_43)" -"(let-values() b_43)" -"(if(module-binding? b_43)" -"(let-values()(module-binding-sym b_43))" -"(if(local-binding? b_43)(let-values()(local-binding-key b_43))(let-values()(syntax-e$1 id_2)))))))))" +"(let-values(((b_23)" +"(let-values(((id57_25) id_0)((phase58_26) phase_0)((temp59_27) #t))" +"(resolve+shift28.1 #f #f null unsafe-undefined temp59_27 id57_25 phase58_26))))" +"(if(symbol? b_23)" +"(let-values() b_23)" +"(if(module-binding? b_23)" +"(let-values()(module-binding-sym b_23))" +"(if(local-binding? b_23)(let-values()(local-binding-key b_23))(let-values()(syntax-e$1 id_0)))))))))" "(define-values" "(identifier-binding$1)" -"(let-values(((identifier-binding4_0)" +"(let-values(((identifier-binding4_28)" "(lambda(id2_0 phase3_0 top-level-symbol?1_0)" "(begin" " 'identifier-binding4" -"(let-values(((id_3) id2_0))" -"(let-values(((phase_19) phase3_0))" -"(let-values(((top-level-symbol?_0) top-level-symbol?1_0))" +"(let-values(((id_32) id2_0))" +"(let-values(((phase_33) phase3_0))" +"(let-values(((top-level-symbol?_34) top-level-symbol?1_0))" "(let-values()" -"(let-values(((b_48)" -"(let-values(((id60_0) id_3)((phase61_0) phase_19))" -"(resolve+shift28.1 #f #f null unsafe-undefined #f id60_0 phase61_0))))" -"(if(module-binding? b_48)" +"(let-values(((b_35)" +"(let-values(((id60_36) id_32)((phase61_37) phase_33))" +"(resolve+shift28.1 #f #f null unsafe-undefined #f id60_36 phase61_37))))" +"(if(module-binding? b_35)" "(let-values()" -"(if(top-level-module-path-index?(module-binding-module b_48))" -"(if top-level-symbol?_0(list(module-binding-nominal-sym b_48)) #f)" +"(if(top-level-module-path-index?(module-binding-module b_35))" +"(if top-level-symbol?_34(list(module-binding-nominal-sym b_35)) #f)" "(list" -"(module-binding-module b_48)" -"(module-binding-sym b_48)" -"(module-binding-nominal-module b_48)" -"(module-binding-nominal-sym b_48)" -"(module-binding-phase b_48)" -"(module-binding-nominal-require-phase b_48)" -"(module-binding-nominal-phase b_48))))" -"(if(local-binding? b_48)(let-values() 'lexical)(let-values() #f))))))))))))" +"(module-binding-module b_35)" +"(module-binding-sym b_35)" +"(module-binding-nominal-module b_35)" +"(module-binding-nominal-sym b_35)" +"(module-binding-phase b_35)" +"(module-binding-nominal-require-phase b_35)" +"(module-binding-nominal-phase b_35))))" +"(if(local-binding? b_35)(let-values() 'lexical)(let-values() #f))))))))))))" "(case-lambda" -"((id_4 phase_20)(begin 'identifier-binding(identifier-binding4_0 id_4 phase_20 #f)))" -"((id_5 phase_21 top-level-symbol?1_1)(identifier-binding4_0 id_5 phase_21 top-level-symbol?1_1)))))" +"((id_0 phase_0)(begin 'identifier-binding(identifier-binding4_28 id_0 phase_0 #f)))" +"((id_0 phase_0 top-level-symbol?1_0)(identifier-binding4_28 id_0 phase_0 top-level-symbol?1_0)))))" "(define-values" "(maybe-install-free=id!)" -"(lambda(val_22 id_6 phase_22)" +"(lambda(val_0 id_0 phase_0)" "(begin" -"(if(1/rename-transformer? val_22)" +"(if(1/rename-transformer? val_0)" "(let-values()" -"(let-values(((free=id_6)(1/rename-transformer-target val_22)))" -"(if(syntax-property$1 free=id_6 'not-free-identifier=?)" +"(let-values(((free=id_46)(1/rename-transformer-target val_0)))" +"(if(syntax-property$1 free=id_46 'not-free-identifier=?)" "(void)" "(let-values()" -"(let-values(((b_49)" -"(let-values(((id65_0) id_6)((phase66_0) phase_22)((temp67_0) #t)((temp68_0) #t))" -"(resolve+shift28.1 #f temp67_0 null temp68_0 #f id65_0 phase66_0))))" -"(let-values(((temp62_0)(syntax-scope-set id_6 phase_22))" -"((temp63_0)(syntax-e$1 id_6))" -"((temp64_0)(binding-set-free=id b_49 free=id_6)))" -"(add-binding-in-scopes!20.1 #f temp62_0 temp63_0 temp64_0)))))))" +"(let-values(((b_47)" +"(let-values(((id65_49) id_0)((phase66_50) phase_0)((temp67_51) #t)((temp68_52) #t))" +"(resolve+shift28.1 #f temp67_51 null temp68_52 #f id65_49 phase66_50))))" +"(let-values(((temp62_53)(syntax-scope-set id_0 phase_0))" +"((temp63_54)(syntax-e$1 id_0))" +"((temp64_55)(binding-set-free=id b_47 free=id_46)))" +"(add-binding-in-scopes!20.1 #f temp62_53 temp63_54 temp64_55)))))))" "(void)))))" "(define-values" "(binding-set-free=id)" -"(lambda(b_50 free=id_7)" +"(lambda(b_0 free=id_0)" "(begin" -"(if(module-binding? b_50)" +"(if(module-binding? b_0)" "(let-values()" -"(let-values(((b69_0) b_50)((free=id70_0) free=id_7))" +"(let-values(((b69_59) b_0)((free=id70_60) free=id_0))" "(module-binding-update48.1" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" -" free=id70_0" +" free=id70_60" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" @@ -10756,515 +10845,524 @@ static const char *startup_source = " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" -" b69_0)))" -"(if(local-binding? b_50)" +" b69_59)))" +"(if(local-binding? b_0)" "(let-values()" -"(let-values(((b71_0) b_50)((free=id72_0) free=id_7))" -"(local-binding-update17.1 unsafe-undefined free=id72_0 unsafe-undefined b71_0)))" -" (let-values () (error \"bad binding for free=id:\" b_50)))))))" +"(let-values(((b71_62) b_0)((free=id72_63) free=id_0))" +"(local-binding-update17.1 unsafe-undefined free=id72_63 unsafe-undefined b71_62)))" +" (let-values () (error \"bad binding for free=id:\" b_0)))))))" "(define-values" "(struct:non-source-shift non-source-shift6.1 non-source-shift? non-source-shift-from non-source-shift-to)" -"(let-values(((struct:_22 make-_22 ?_22 -ref_22 -set!_22)" +"(let-values(((struct:_64 make-_65 ?_66 -ref_67 -set!_68)" "(let-values()" "(let-values()" "(make-struct-type 'non-source-shift #f 2 0 #f null 'prefab #f '(0 1) #f 'non-source-shift)))))" "(values" -" struct:_22" -" make-_22" -" ?_22" -"(make-struct-field-accessor -ref_22 0 'from)" -"(make-struct-field-accessor -ref_22 1 'to))))" -"(define-values(shift-from)(lambda(s_15)(begin(if(pair? s_15)(car s_15)(non-source-shift-from s_15)))))" -"(define-values(shift-to)(lambda(s_156)(begin(if(pair? s_156)(cdr s_156)(non-source-shift-to s_156)))))" +" struct:_64" +" make-_65" +" ?_66" +"(make-struct-field-accessor -ref_67 0 'from)" +"(make-struct-field-accessor -ref_67 1 'to))))" +"(define-values(shift-from)(lambda(s_0)(begin(if(pair? s_0)(car s_0)(non-source-shift-from s_0)))))" +"(define-values(shift-to)(lambda(s_0)(begin(if(pair? s_0)(cdr s_0)(non-source-shift-to s_0)))))" "(define-values" "(syntax-module-path-index-shift13.1)" "(lambda(non-source?7_0 s10_0 from-mpi11_0 to-mpi12_0 inspector9_0)" "(begin" " 'syntax-module-path-index-shift13" -"(let-values(((s_19) s10_0))" -"(let-values(((from-mpi_1) from-mpi11_0))" -"(let-values(((to-mpi_1) to-mpi12_0))" -"(let-values(((inspector_3) inspector9_0))" -"(let-values(((non-source?_0) non-source?7_0))" +"(let-values(((s_96) s10_0))" +"(let-values(((from-mpi_97) from-mpi11_0))" +"(let-values(((to-mpi_98) to-mpi12_0))" +"(let-values(((inspector_99) inspector9_0))" +"(let-values(((non-source?_100) non-source?7_0))" "(let-values()" -"(if(eq? from-mpi_1 to-mpi_1)" -"(let-values()(if inspector_3(syntax-set-inspector s_19 inspector_3) s_19))" +"(if(eq? from-mpi_97 to-mpi_98)" +"(let-values()(if inspector_99(syntax-set-inspector s_96 inspector_99) s_96))" "(let-values()" -"(let-values(((shift_0)" -"(if non-source?_0" -"(non-source-shift6.1 from-mpi_1 to-mpi_1)" -"(cons from-mpi_1 to-mpi_1))))" -"(let-values(((the-struct_31) s_19))" -"(if(syntax?$1 the-struct_31)" -"(let-values(((mpi-shifts74_0)(shift-cons shift_0(syntax-mpi-shifts s_19)))" -"((inspector75_1)" -"(let-values(((or-part_130)(syntax-inspector s_19)))" -"(if or-part_130 or-part_130 inspector_3)))" -"((scope-propagations+tamper76_0)" -"(if(datum-has-elements?(syntax-content s_19))" +"(let-values(((shift_101)" +"(if non-source?_100" +"(non-source-shift6.1 from-mpi_97 to-mpi_98)" +"(cons from-mpi_97 to-mpi_98))))" +"(let-values(((the-struct_102) s_96))" +"(if(syntax?$1 the-struct_102)" +"(let-values(((mpi-shifts74_103)(shift-cons shift_101(syntax-mpi-shifts s_96)))" +"((inspector75_104)" +"(let-values(((or-part_106)(syntax-inspector s_96)))" +"(if or-part_106 or-part_106 inspector_99)))" +"((scope-propagations+tamper76_105)" +"(if(datum-has-elements?(syntax-content s_96))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_19)" -"(lambda(s_157)(shift-cons shift_0 s_157))" -" inspector_3" -"(syntax-scopes s_19)" -"(syntax-shifted-multi-scopes s_19)" -"(syntax-mpi-shifts s_19))" -"(syntax-scope-propagations+tamper s_19))))" +"(syntax-scope-propagations+tamper s_96)" +"(lambda(s_0)(shift-cons shift_101 s_0))" +" inspector_99" +"(syntax-scopes s_96)" +"(syntax-shifted-multi-scopes s_96)" +"(syntax-mpi-shifts s_96))" +"(syntax-scope-propagations+tamper s_96))))" "(syntax1.1" -"(syntax-content the-struct_31)" -"(syntax-scopes the-struct_31)" -"(syntax-shifted-multi-scopes the-struct_31)" -" scope-propagations+tamper76_0" -" mpi-shifts74_0" -"(syntax-srcloc the-struct_31)" -"(syntax-props the-struct_31)" -" inspector75_1))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_31)))))))))))))))" +"(syntax-content the-struct_102)" +"(syntax-scopes the-struct_102)" +"(syntax-shifted-multi-scopes the-struct_102)" +" scope-propagations+tamper76_105" +" mpi-shifts74_103" +"(syntax-srcloc the-struct_102)" +"(syntax-props the-struct_102)" +" inspector75_104))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_102)))))))))))))))" "(define-values" "(shift-cons)" -"(lambda(shift_1 shifts_0)" +"(lambda(shift_0 shifts_0)" "(begin" -"(if(if(pair? shifts_0)(eq?(shift-from shift_1)(shift-from(car shifts_0))) #f)" +"(if(if(pair? shifts_0)(eq?(shift-from shift_0)(shift-from(car shifts_0))) #f)" "(let-values() shifts_0)" -"(let-values()(cons shift_1 shifts_0))))))" +"(let-values()(cons shift_0 shifts_0))))))" "(define-values" "(resolve+shift28.1)" "(lambda(ambiguous-value16_0 exactly?17_0 extra-shifts20_0 immediate?18_0 unbound-sym?19_0 s26_0 phase27_0)" "(begin" " 'resolve+shift28" -"(let-values(((s_158) s26_0))" -"(let-values(((phase_23) phase27_0))" -"(let-values(((ambiguous-value_1) ambiguous-value16_0))" -"(let-values(((exactly?_1) exactly?17_0))" -"(let-values(((immediate?_0)(if(eq? immediate?18_0 unsafe-undefined) exactly?_1 immediate?18_0)))" -"(let-values(((unbound-sym?_0) unbound-sym?19_0))" -"(let-values(((extra-shifts_4) extra-shifts20_0))" +"(let-values(((s_148) s26_0))" +"(let-values(((phase_149) phase27_0))" +"(let-values(((ambiguous-value_150) ambiguous-value16_0))" +"(let-values(((exactly?_151) exactly?17_0))" +"(let-values(((immediate?_152)(if(eq? immediate?18_0 unsafe-undefined) exactly?_151 immediate?18_0)))" +"(let-values(((unbound-sym?_153) unbound-sym?19_0))" +"(let-values(((extra-shifts_154) extra-shifts20_0))" "(let-values()" -"(let-values(((can-cache?_0)" -"(if(not exactly?_1)(if(not immediate?_0)(null? extra-shifts_4) #f) #f)))" -"(let-values(((c1_22)(if can-cache?_0(resolve+shift-cache-get s_158 phase_23) #f)))" -"(if c1_22" -"((lambda(b_51)(if(eq? b_51 '#:none)(if unbound-sym?_0(syntax-content s_158) #f) b_51))" -" c1_22)" +"(let-values(((can-cache?_155)" +"(if(not exactly?_151)(if(not immediate?_152)(null? extra-shifts_154) #f) #f)))" +"(let-values(((c1_156)(if can-cache?_155(resolve+shift-cache-get s_148 phase_149) #f)))" +"(if c1_156" +"((lambda(b_0)(if(eq? b_0 '#:none)(if unbound-sym?_153(syntax-content s_148) #f) b_0))" +" c1_156)" "(let-values()" -"(let-values(((immediate-b_0)" -"(let-values(((s77_0) s_158)" -"((phase78_0) phase_23)" -"((ambiguous-value79_0) ambiguous-value_1)" -"((exactly?80_0) exactly?_1)" -"((extra-shifts81_0) extra-shifts_4))" +"(let-values(((immediate-b_158)" +"(let-values(((s77_161) s_148)" +"((phase78_162) phase_149)" +"((ambiguous-value79_163) ambiguous-value_150)" +"((exactly?80_164) exactly?_151)" +"((extra-shifts81_165) extra-shifts_154))" "(resolve40.1" -" ambiguous-value79_0" -" exactly?80_0" -" extra-shifts81_0" +" ambiguous-value79_163" +" exactly?80_164" +" extra-shifts81_165" " #f" -" s77_0" -" phase78_0))))" -"(let-values(((b_52)" -"(if(if immediate-b_0" -"(if(not immediate?_0)(binding-free=id immediate-b_0) #f)" +" s77_161" +" phase78_162))))" +"(let-values(((b_159)" +"(if(if immediate-b_158" +"(if(not immediate?_152)(binding-free=id immediate-b_158) #f)" " #f)" -"(let-values(((temp82_0)(binding-free=id immediate-b_0))" -"((phase83_0) phase_23)" -"((temp84_0)" -"(append extra-shifts_4(syntax-mpi-shifts s_158)))" -"((ambiguous-value85_0) ambiguous-value_1)" -"((exactly?86_0) exactly?_1)" -"((unbound-sym?87_0) unbound-sym?_0))" +"(let-values(((temp82_167)(binding-free=id immediate-b_158))" +"((phase83_168) phase_149)" +"((temp84_169)" +"(append extra-shifts_154(syntax-mpi-shifts s_148)))" +"((ambiguous-value85_170) ambiguous-value_150)" +"((exactly?86_171) exactly?_151)" +"((unbound-sym?87_172) unbound-sym?_153))" "(resolve+shift28.1" -" ambiguous-value85_0" -" exactly?86_0" -" temp84_0" +" ambiguous-value85_170" +" exactly?86_171" +" temp84_169" " unsafe-undefined" -" unbound-sym?87_0" -" temp82_0" -" phase83_0))" -" immediate-b_0)))" -"(if(module-binding? b_52)" +" unbound-sym?87_172" +" temp82_167" +" phase83_168))" +" immediate-b_158)))" +"(if(module-binding? b_159)" "(let-values()" -"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_158)))" -"(if(null? mpi-shifts_2)" -"(let-values() b_52)" +"(let-values(((mpi-shifts_173)(syntax-mpi-shifts s_148)))" +"(if(null? mpi-shifts_173)" +"(let-values() b_159)" "(let-values()" -"(let-values(((mod_0)(module-binding-module b_52)))" -"(let-values(((shifted-mod_0)(apply-syntax-shifts mod_0 mpi-shifts_2)))" -"(let-values(((nominal-mod_0)(module-binding-nominal-module b_52)))" -"(let-values(((shifted-nominal-mod_0)" -"(if(eq? mod_0 nominal-mod_0)" -" shifted-mod_0" -"(apply-syntax-shifts nominal-mod_0 mpi-shifts_2))))" -"(let-values(((result-b_0)" -"(if(if(eq? mod_0 shifted-mod_0)" -"(if(eq? nominal-mod_0 shifted-nominal-mod_0)" -"(if(not(binding-free=id b_52))" +"(let-values(((mod_174)(module-binding-module b_159)))" +"(let-values(((shifted-mod_175)" +"(apply-syntax-shifts mod_174 mpi-shifts_173)))" +"(let-values(((nominal-mod_176)(module-binding-nominal-module b_159)))" +"(let-values(((shifted-nominal-mod_177)" +"(if(eq? mod_174 nominal-mod_176)" +" shifted-mod_175" +"(apply-syntax-shifts" +" nominal-mod_176" +" mpi-shifts_173))))" +"(let-values(((result-b_178)" +"(if(if(eq? mod_174 shifted-mod_175)" +"(if(eq?" +" nominal-mod_176" +" shifted-nominal-mod_177)" +"(if(not(binding-free=id b_159))" "(null?" "(module-binding-extra-nominal-bindings" -" b_52))" +" b_159))" " #f)" " #f)" " #f)" -" b_52" -"(let-values(((b88_0) b_52)" -"((shifted-mod89_0) shifted-mod_0)" -"((shifted-nominal-mod90_0)" -" shifted-nominal-mod_0)" -"((temp91_0)" -"(if(binding-free=id b_52)" -"(let-values(((temp93_0)" +" b_159" +"(let-values(((b88_180) b_159)" +"((shifted-mod89_181) shifted-mod_175)" +"((shifted-nominal-mod90_182)" +" shifted-nominal-mod_177)" +"((temp91_183)" +"(if(binding-free=id b_159)" +"(let-values(((temp93_185)" "(binding-free=id" -" b_52))" -"((s94_0) s_158))" +" b_159))" +"((s94_186) s_148))" "(syntax-transfer-shifts36.1" " #f" -" temp93_0" -" s94_0" +" temp93_185" +" s94_186" " #f))" " #f))" -"((temp92_0)" +"((temp92_184)" "(reverse$1" -"(let-values(((lst_50)" +"(let-values(((lst_187)" "(module-binding-extra-nominal-bindings" -" b_52)))" +" b_159)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_50)))" -"((letrec-values(((for-loop_73)" -"(lambda(fold-var_35" -" lst_51)" +"(check-list lst_187)))" +"((letrec-values(((for-loop_188)" +"(lambda(fold-var_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_51)" -"(let-values(((b_53)" +" lst_0)" +"(let-values(((b_191)" "(unsafe-car" -" lst_51))" -"((rest_22)" +" lst_0))" +"((rest_192)" "(unsafe-cdr" -" lst_51)))" -"(let-values(((fold-var_36)" -"(let-values(((fold-var_37)" -" fold-var_35))" -"(let-values(((fold-var_38)" +" lst_0)))" +"(let-values(((fold-var_193)" +"(let-values(((fold-var_194)" +" fold-var_0))" +"(let-values(((fold-var_195)" "(let-values()" "(cons" "(let-values()" "(apply-syntax-shifts-to-binding" -" b_53" -" mpi-shifts_2))" -" fold-var_37))))" +" b_191" +" mpi-shifts_173))" +" fold-var_194))))" "(values" -" fold-var_38)))))" +" fold-var_195)))))" "(if(not" " #f)" -"(for-loop_73" -" fold-var_36" -" rest_22)" -" fold-var_36)))" -" fold-var_35)))))" -" for-loop_73)" +"(for-loop_188" +" fold-var_193" +" rest_192)" +" fold-var_193)))" +" fold-var_0)))))" +" for-loop_188)" " null" -" lst_50))))))" +" lst_187))))))" "(module-binding-update48.1" " unsafe-undefined" -" temp92_0" +" temp92_184" " unsafe-undefined" -" temp91_0" -" shifted-mod89_0" -" shifted-nominal-mod90_0" +" temp91_183" +" shifted-mod89_181" +" shifted-nominal-mod90_182" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" -" b88_0)))))" +" b88_180)))))" "(begin" -"(if can-cache?_0" +"(if can-cache?_155" "(let-values()" -"(resolve+shift-cache-set! s_158 phase_23 result-b_0))" +"(resolve+shift-cache-set! s_148 phase_149 result-b_178))" "(void))" -" result-b_0))))))))))" +" result-b_178))))))))))" "(let-values()" "(begin" -"(if can-cache?_0" +"(if can-cache?_155" "(let-values()" "(resolve+shift-cache-set!" -" s_158" -" phase_23" -"(let-values(((or-part_131) b_52))(if or-part_131 or-part_131 '#:none))))" +" s_148" +" phase_149" +"(let-values(((or-part_196) b_159))(if or-part_196 or-part_196 '#:none))))" "(void))" -"(let-values(((or-part_132) b_52))" -"(if or-part_132" -" or-part_132" -"(if unbound-sym?_0(syntax-content s_158) #f)))))))))))))))))))))))" +"(let-values(((or-part_197) b_159))" +"(if or-part_197" +" or-part_197" +"(if unbound-sym?_153(syntax-content s_148) #f)))))))))))))))))))))))" "(define-values" "(apply-syntax-shifts)" -"(lambda(mpi_12 shifts_1)" +"(lambda(mpi_0 shifts_0)" "(begin" -"(if(null? shifts_1)" -"(let-values() mpi_12)" +"(if(null? shifts_0)" +"(let-values() mpi_0)" "(let-values()" -"(let-values(((shifted-mpi_1)(apply-syntax-shifts mpi_12(cdr shifts_1))))" -"(let-values(((shift_2)(car shifts_1)))" -"(module-path-index-shift shifted-mpi_1(shift-from shift_2)(shift-to shift_2)))))))))" +"(let-values(((shifted-mpi_241)(apply-syntax-shifts mpi_0(cdr shifts_0))))" +"(let-values(((shift_242)(car shifts_0)))" +"(module-path-index-shift shifted-mpi_241(shift-from shift_242)(shift-to shift_242)))))))))" "(define-values" "(apply-syntax-shifts-to-binding)" -"(lambda(b_54 shifts_2)" +"(lambda(b_0 shifts_0)" "(begin" -"(if(null? shifts_2)" -"(let-values() b_54)" +"(if(null? shifts_0)" +"(let-values() b_0)" "(let-values()" -"(let-values(((shifted-b_0)(apply-syntax-shifts-to-binding b_54(cdr shifts_2))))" -"(let-values(((shift_3)(car shifts_2)))" -"(binding-module-path-index-shift shifted-b_0(shift-from shift_3)(shift-to shift_3)))))))))" +"(let-values(((shifted-b_245)(apply-syntax-shifts-to-binding b_0(cdr shifts_0))))" +"(let-values(((shift_246)(car shifts_0)))" +"(binding-module-path-index-shift shifted-b_245(shift-from shift_246)(shift-to shift_246)))))))))" "(define-values" "(binding-module-path-index-shift)" -"(lambda(b_55 from-mpi_2 to-mpi_2)" +"(lambda(b_0 from-mpi_0 to-mpi_0)" "(begin" -"(if(module-binding? b_55)" +"(if(module-binding? b_0)" "(let-values()" -"(let-values(((b95_0) b_55)" -"((temp96_0)(module-path-index-shift(module-binding-module b_55) from-mpi_2 to-mpi_2))" -"((temp97_0)(module-path-index-shift(module-binding-nominal-module b_55) from-mpi_2 to-mpi_2))" -"((temp98_0)" +"(let-values(((b95_253) b_0)" +"((temp96_254)(module-path-index-shift(module-binding-module b_0) from-mpi_0 to-mpi_0))" +"((temp97_255)(module-path-index-shift(module-binding-nominal-module b_0) from-mpi_0 to-mpi_0))" +"((temp98_256)" "(reverse$1" -"(let-values(((lst_52)(module-binding-extra-nominal-bindings b_55)))" +"(let-values(((lst_257)(module-binding-extra-nominal-bindings b_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_52)))" -"((letrec-values(((for-loop_74)" -"(lambda(fold-var_39 lst_53)" +"(let-values()(check-list lst_257)))" +"((letrec-values(((for-loop_258)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_53)" -"(let-values(((b_56)(unsafe-car lst_53))" -"((rest_23)(unsafe-cdr lst_53)))" -"(let-values(((fold-var_40)" -"(let-values(((fold-var_41) fold-var_39))" -"(let-values(((fold-var_42)" +"(if(pair? lst_0)" +"(let-values(((b_261)(unsafe-car lst_0))" +"((rest_262)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_263)" +"(let-values(((fold-var_264) fold-var_0))" +"(let-values(((fold-var_265)" "(let-values()" "(cons" "(let-values()" "(binding-module-path-index-shift" -" b_56" -" from-mpi_2" -" to-mpi_2))" -" fold-var_41))))" -"(values fold-var_42)))))" -"(if(not #f)(for-loop_74 fold-var_40 rest_23) fold-var_40)))" -" fold-var_39)))))" -" for-loop_74)" +" b_261" +" from-mpi_0" +" to-mpi_0))" +" fold-var_264))))" +"(values fold-var_265)))))" +"(if(not #f)" +"(for-loop_258 fold-var_263 rest_262)" +" fold-var_263)))" +" fold-var_0)))))" +" for-loop_258)" " null" -" lst_52))))))" +" lst_257))))))" "(module-binding-update48.1" " unsafe-undefined" -" temp98_0" +" temp98_256" " unsafe-undefined" " unsafe-undefined" -" temp96_0" -" temp97_0" +" temp96_254" +" temp97_255" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" -" b95_0)))" -"(let-values() b_55)))))" +" b95_253)))" +"(let-values() b_0)))))" "(define-values" "(syntax-transfer-shifts36.1)" "(lambda(non-source?31_0 to-s34_0 from-s35_0 inspector33_0)" "(begin" " 'syntax-transfer-shifts36" -"(let-values(((to-s_0) to-s34_0))" -"(let-values(((from-s_1) from-s35_0))" -"(let-values(((inspector_4) inspector33_0))" -"(let-values(((non-source?_1) non-source?31_0))" +"(let-values(((to-s_270) to-s34_0))" +"(let-values(((from-s_271) from-s35_0))" +"(let-values(((inspector_272) inspector33_0))" +"(let-values(((non-source?_273) non-source?31_0))" "(let-values()" -"(let-values(((to-s99_0) to-s_0)" -"((temp100_0)(syntax-mpi-shifts from-s_1))" -"((inspector101_0) inspector_4)" -"((non-source?102_0) non-source?_1))" -"(syntax-add-shifts44.1 non-source?102_0 to-s99_0 temp100_0 inspector101_0))))))))))" +"(let-values(((to-s99_275) to-s_270)" +"((temp100_276)(syntax-mpi-shifts from-s_271))" +"((inspector101_277) inspector_272)" +"((non-source?102_278) non-source?_273))" +"(syntax-add-shifts44.1 non-source?102_278 to-s99_275 temp100_276 inspector101_277))))))))))" "(define-values" "(syntax-add-shifts44.1)" "(lambda(non-source?39_0 to-s42_0 shifts43_0 inspector41_0)" "(begin" " 'syntax-add-shifts44" -"(let-values(((to-s_1) to-s42_0))" -"(let-values(((shifts_3) shifts43_0))" -"(let-values(((inspector_5) inspector41_0))" -"(let-values(((non-source?_2) non-source?39_0))" +"(let-values(((to-s_309) to-s42_0))" +"(let-values(((shifts_310) shifts43_0))" +"(let-values(((inspector_311) inspector41_0))" +"(let-values(((non-source?_312) non-source?39_0))" "(let-values()" -"(if(if(null? shifts_3) inspector_5 #f)" -"(let-values()(syntax-set-inspector to-s_1 inspector_5))" +"(if(if(null? shifts_310) inspector_311 #f)" +"(let-values()(syntax-set-inspector to-s_309 inspector_311))" "(let-values()" -"(let-values(((lst_54)(reverse$1 shifts_3))((start_12) 0))" +"(let-values(((lst_313)(reverse$1 shifts_310))((start_314) 0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_54)))" +"(let-values()(check-list lst_313)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_12)))" -"((letrec-values(((for-loop_75)" -"(lambda(s_159 lst_55 pos_10)" +"(let-values()(check-naturals start_314)))" +"((letrec-values(((for-loop_315)" +"(lambda(s_0 lst_0 pos_0)" "(begin" " 'for-loop" -"(if(if(pair? lst_55) #t #f)" -"(let-values(((shift_4)(unsafe-car lst_55))" -"((rest_24)(unsafe-cdr lst_55))" -"((i_81) pos_10))" -"(let-values(((s_160)" -"(let-values(((s_103) s_159))" -"(let-values(((s_104)" +"(if(if(pair? lst_0) #t #f)" +"(let-values(((shift_319)(unsafe-car lst_0))" +"((rest_320)(unsafe-cdr lst_0))" +"((i_321) pos_0))" +"(let-values(((s_322)" +"(let-values(((s_323) s_0))" +"(let-values(((s_324)" "(let-values()" -"(let-values(((s103_0) s_103)" -"((temp104_0)" -"(shift-from shift_4))" -"((temp105_0)" -"(shift-to shift_4))" -"((temp106_0)" -"(if(zero? i_81)" -" inspector_5" +"(let-values(((s103_326) s_323)" +"((temp104_327)" +"(shift-from shift_319))" +"((temp105_328)" +"(shift-to shift_319))" +"((temp106_329)" +"(if(zero? i_321)" +" inspector_311" " #f))" -"((non-source?107_0)" -" non-source?_2))" +"((non-source?107_330)" +" non-source?_312))" "(syntax-module-path-index-shift13.1" -" non-source?107_0" -" s103_0" -" temp104_0" -" temp105_0" -" temp106_0)))))" -"(values s_104)))))" -"(if(not #f)(for-loop_75 s_160 rest_24(+ pos_10 1)) s_160)))" -" s_159)))))" -" for-loop_75)" -" to-s_1" -" lst_54" -" start_12)))))))))))))" +" non-source?107_330" +" s103_326" +" temp104_327" +" temp105_328" +" temp106_329)))))" +"(values s_324)))))" +"(if(not #f)(for-loop_315 s_322 rest_320(+ pos_0 1)) s_322)))" +" s_0)))))" +" for-loop_315)" +" to-s_309" +" lst_313" +" start_314)))))))))))))" "(define-values" "(syntax-set-inspector)" -"(lambda(s_161 insp_3)" +"(lambda(s_0 insp_0)" "(begin" -"(let-values(((the-struct_32) s_161))" -"(if(syntax?$1 the-struct_32)" -"(let-values(((inspector108_0)" -"(let-values(((or-part_133)(syntax-inspector s_161)))(if or-part_133 or-part_133 insp_3)))" -"((scope-propagations+tamper109_0)" -"(if(datum-has-elements?(syntax-content s_161))" +"(let-values(((the-struct_359) s_0))" +"(if(syntax?$1 the-struct_359)" +"(let-values(((inspector108_360)" +"(let-values(((or-part_362)(syntax-inspector s_0)))(if or-part_362 or-part_362 insp_0)))" +"((scope-propagations+tamper109_361)" +"(if(datum-has-elements?(syntax-content s_0))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_161)" +"(syntax-scope-propagations+tamper s_0)" " #f" -" insp_3" -"(syntax-scopes s_161)" -"(syntax-shifted-multi-scopes s_161)" -"(syntax-mpi-shifts s_161))" -"(syntax-scope-propagations+tamper s_161))))" +" insp_0" +"(syntax-scopes s_0)" +"(syntax-shifted-multi-scopes s_0)" +"(syntax-mpi-shifts s_0))" +"(syntax-scope-propagations+tamper s_0))))" "(syntax1.1" -"(syntax-content the-struct_32)" -"(syntax-scopes the-struct_32)" -"(syntax-shifted-multi-scopes the-struct_32)" -" scope-propagations+tamper109_0" -"(syntax-mpi-shifts the-struct_32)" -"(syntax-srcloc the-struct_32)" -"(syntax-props the-struct_32)" -" inspector108_0))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_32))))))" +"(syntax-content the-struct_359)" +"(syntax-scopes the-struct_359)" +"(syntax-shifted-multi-scopes the-struct_359)" +" scope-propagations+tamper109_361" +"(syntax-mpi-shifts the-struct_359)" +"(syntax-srcloc the-struct_359)" +"(syntax-props the-struct_359)" +" inspector108_360))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_359))))))" "(define-values" "(1/syntax-source-module)" -"(let-values(((syntax-source-module49_0)" +"(let-values(((syntax-source-module49_363)" "(lambda(s48_0 source?47_0)" "(begin" " 'syntax-source-module49" -"(let-values(((s_162) s48_0))" -"(let-values(((source?_0) source?47_0))" +"(let-values(((s_366) s48_0))" +"(let-values(((source?_367) source?47_0))" "(let-values()" "(begin" -"(if(syntax?$1 s_162)" +"(if(syntax?$1 s_366)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_162)))" -"(let-values(((lst_56)(reverse$1(syntax-mpi-shifts s_162))))" +" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_366)))" +"(let-values(((lst_368)(reverse$1(syntax-mpi-shifts s_366))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_56)))" -"((letrec-values(((for-loop_76)" -"(lambda(result_50 lst_57)" +"(let-values()(check-list lst_368)))" +"((letrec-values(((for-loop_369)" +"(lambda(result_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_57)" -"(let-values(((shift_5)(unsafe-car lst_57))" -"((rest_25)(unsafe-cdr lst_57)))" -"(let-values(((result_51)" -"(let-values(((result_52) result_50))" -"(if(non-source-shift? shift_5)" -" result_52" +"(if(pair? lst_0)" +"(let-values(((shift_372)(unsafe-car lst_0))" +"((rest_373)(unsafe-cdr lst_0)))" +"(let-values(((result_374)" +"(let-values(((result_375) result_0))" +"(if(non-source-shift? shift_372)" +" result_375" "(let-values()" -"(let-values(((result_53)" +"(let-values(((result_377)" "(let-values()" "(let-values()" -"(let-values(((from-mpi_3)" +"(let-values(((from-mpi_378)" "(car" -" shift_5)))" -"(let-values(((path_5" -" base_14)" +" shift_372)))" +"(let-values(((path_379" +" base_380)" "(1/module-path-index-split" -" from-mpi_3)))" -"(if(not path_5)" +" from-mpi_378)))" +"(if(not path_379)" "(if(module-path-index-resolved" -" from-mpi_3)" -"(let-values(((mpi_13)" +" from-mpi_378)" +"(let-values(((mpi_381)" "(apply-syntax-shifts" -" from-mpi_3" +" from-mpi_378" "(syntax-mpi-shifts" -" s_162))))" -"(if source?_0" +" s_366))))" +"(if source?_367" "(1/resolved-module-path-name" "(1/module-path-index-resolve" -" mpi_13" +" mpi_381" " #f))" -" mpi_13))" +" mpi_381))" " #f)" " #f)))))))" -"(values result_53)))))))" -"(if(if(not((lambda x_36 result_51) shift_5))(not #f) #f)" -"(for-loop_76 result_51 rest_25)" -" result_51)))" -" result_50)))))" -" for-loop_76)" +"(values result_377)))))))" +"(if(if(not((lambda x_0 result_374) shift_372))" +"(not #f)" +" #f)" +"(for-loop_369 result_374 rest_373)" +" result_374)))" +" result_0)))))" +" for-loop_369)" " #f" -" lst_56)))))))))))" +" lst_368)))))))))))" "(case-lambda" -"((s_163)(begin 'syntax-source-module(syntax-source-module49_0 s_163 #f)))" -"((s_164 source?47_1)(syntax-source-module49_0 s_164 source?47_1)))))" +"((s_0)(begin 'syntax-source-module(syntax-source-module49_363 s_0 #f)))" +"((s_0 source?47_0)(syntax-source-module49_363 s_0 source?47_0)))))" "(define-values" "(1/identifier-prune-to-source-module)" -"(lambda(id_7)" +"(lambda(id_0)" "(begin" " 'identifier-prune-to-source-module" "(begin" -"(if(identifier? id_7)" +"(if(identifier? id_0)" "(void)" -" (let-values () (raise-argument-error 'identifier-prune-to-source-module \"identifier?\" id_7)))" -"(let-values(((the-struct_33)(datum->syntax$1 #f(syntax-e$1 id_7) id_7 id_7)))" -"(if(syntax?$1 the-struct_33)" -"(let-values(((mpi-shifts110_0)(syntax-mpi-shifts id_7)))" +" (let-values () (raise-argument-error 'identifier-prune-to-source-module \"identifier?\" id_0)))" +"(let-values(((the-struct_387)(datum->syntax$1 #f(syntax-e$1 id_0) id_0 id_0)))" +"(if(syntax?$1 the-struct_387)" +"(let-values(((mpi-shifts110_388)(syntax-mpi-shifts id_0)))" "(syntax1.1" -"(syntax-content the-struct_33)" -"(syntax-scopes the-struct_33)" -"(syntax-shifted-multi-scopes the-struct_33)" -"(syntax-scope-propagations+tamper the-struct_33)" -" mpi-shifts110_0" -"(syntax-srcloc the-struct_33)" -"(syntax-props the-struct_33)" -"(syntax-inspector the-struct_33)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_33)))))))" +"(syntax-content the-struct_387)" +"(syntax-scopes the-struct_387)" +"(syntax-shifted-multi-scopes the-struct_387)" +"(syntax-scope-propagations+tamper the-struct_387)" +" mpi-shifts110_388" +"(syntax-srcloc the-struct_387)" +"(syntax-props the-struct_387)" +"(syntax-inspector the-struct_387)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_387)))))))" "(define-values" "(struct:provided provided1.1 provided? provided-binding provided-protected? provided-syntax?)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11277,69 +11375,69 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:serialize" -"(lambda(p_22 ser-push!_14 state_24)" +"(lambda(p_0 ser-push!_0 state_0)" "(begin" -"(ser-push!_14 'tag '#:provided)" -"(ser-push!_14(provided-binding p_22))" -"(ser-push!_14(provided-protected? p_22))" -"(ser-push!_14(provided-syntax? p_22))))))" +"(ser-push!_0 'tag '#:provided)" +"(ser-push!_0(provided-binding p_0))" +"(ser-push!_0(provided-protected? p_0))" +"(ser-push!_0(provided-syntax? p_0))))))" " #f" " #f" " '(0 1 2)" " #f" " 'provided)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 'binding)" -"(make-struct-field-accessor -ref_0 1 'protected?)" -"(make-struct-field-accessor -ref_0 2 'syntax?))))" -"(define-values(provided-as-binding)(lambda(v_78)(begin(if(provided? v_78)(provided-binding v_78) v_78))))" -"(define-values(provided-as-protected?)(lambda(v_5)(begin(if(provided? v_5)(provided-protected? v_5) #f))))" -"(define-values(provided-as-transformer?)(lambda(v_79)(begin(if(provided? v_79)(provided-syntax? v_79) #f))))" +" struct:_1" +" make-_2" +" ?_3" +"(make-struct-field-accessor -ref_4 0 'binding)" +"(make-struct-field-accessor -ref_4 1 'protected?)" +"(make-struct-field-accessor -ref_4 2 'syntax?))))" +"(define-values(provided-as-binding)(lambda(v_0)(begin(if(provided? v_0)(provided-binding v_0) v_0))))" +"(define-values(provided-as-protected?)(lambda(v_0)(begin(if(provided? v_0)(provided-protected? v_0) #f))))" +"(define-values(provided-as-transformer?)(lambda(v_0)(begin(if(provided? v_0)(provided-syntax? v_0) #f))))" "(define-values" "(deserialize-provided)" -"(lambda(binding_5 protected?_0 syntax?_1)(begin(provided1.1 binding_5 protected?_0 syntax?_1))))" +"(lambda(binding_0 protected?_0 syntax?_0)(begin(provided1.1 binding_0 protected?_0 syntax?_0))))" "(define-values" "(provide-binding-to-require-binding11.1)" "(lambda(mpi2_0 phase-shift4_0 provide-phase-level3_0 self1_0 binding/p9_0 sym10_0)" "(begin" " 'provide-binding-to-require-binding11" -"(let-values(((binding/p_0) binding/p9_0))" -"(let-values(((sym_18) sym10_0))" -"(let-values(((self_1) self1_0))" -"(let-values(((mpi_14) mpi2_0))" -"(let-values(((provide-phase-level_0) provide-phase-level3_0))" -"(let-values(((phase-shift_0) phase-shift4_0))" +"(let-values(((binding/p_18) binding/p9_0))" +"(let-values(((sym_19) sym10_0))" +"(let-values(((self_20) self1_0))" +"(let-values(((mpi_21) mpi2_0))" +"(let-values(((provide-phase-level_22) provide-phase-level3_0))" +"(let-values(((phase-shift_23) phase-shift4_0))" "(let-values()" -"(let-values(((binding_6)(provided-as-binding binding/p_0)))" -"(let-values(((from-mod_0)(module-binding-module binding_6)))" -"(let-values(((binding17_0) binding_6)" -"((temp18_1)(module-path-index-shift from-mod_0 self_1 mpi_14))" -"((mpi19_0) mpi_14)" -"((provide-phase-level20_0) provide-phase-level_0)" -"((sym21_1) sym_18)" -"((phase-shift22_0) phase-shift_0)" -"((temp23_1) #f)" -"((temp24_1)" -"(if(not(provided-as-protected? binding/p_0))" -"(module-binding-extra-inspector binding_6)" +"(let-values(((binding_24)(provided-as-binding binding/p_18)))" +"(let-values(((from-mod_25)(module-binding-module binding_24)))" +"(let-values(((binding17_27) binding_24)" +"((temp18_28)(module-path-index-shift from-mod_25 self_20 mpi_21))" +"((mpi19_29) mpi_21)" +"((provide-phase-level20_30) provide-phase-level_22)" +"((sym21_31) sym_19)" +"((phase-shift22_32) phase-shift_23)" +"((temp23_33) #f)" +"((temp24_34)" +"(if(not(provided-as-protected? binding/p_18))" +"(module-binding-extra-inspector binding_24)" " #f))" -"((null25_0) null))" +"((null25_35) null))" "(module-binding-update48.1" -" temp24_1" -" null25_0" -" temp23_1" +" temp24_34" +" null25_35" +" temp23_33" " unsafe-undefined" -" temp18_1" -" mpi19_0" -" provide-phase-level20_0" -" phase-shift22_0" -" sym21_1" +" temp18_28" +" mpi19_29" +" provide-phase-level20_30" +" phase-shift22_32" +" sym21_31" " unsafe-undefined" " unsafe-undefined" -" binding17_0))))))))))))))" +" binding17_27))))))))))))))" "(define-values" "(struct:bulk-binding" " bulk-binding14.1" @@ -11354,7 +11452,7 @@ static const char *startup_source = " bulk-binding-bulk-binding-registry" " set-bulk-binding-provides!" " set-bulk-binding-self!)" -"(let-values(((struct:_23 make-_23 ?_23 -ref_23 -set!_23)" +"(let-values(((struct:_60 make-_61 ?_62 -ref_63 -set!_64)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11366,171 +11464,172 @@ static const char *startup_source = "(list" "(cons" " prop:serialize" -"(lambda(b_18 ser-push!_15 reachable-scopes_3)" +"(lambda(b_0 ser-push!_0 reachable-scopes_0)" "(begin" -"(ser-push!_15 'tag '#:bulk-binding)" -"(ser-push!_15(bulk-binding-prefix b_18))" -"(ser-push!_15(bulk-binding-excepts b_18))" -"(ser-push!_15(bulk-binding-mpi b_18))" -"(ser-push!_15(bulk-binding-provide-phase-level b_18))" -"(ser-push!_15(bulk-binding-phase-shift b_18))" -"(ser-push!_15 'tag '#:bulk-binding-registry))))" +"(ser-push!_0 'tag '#:bulk-binding)" +"(ser-push!_0(bulk-binding-prefix b_0))" +"(ser-push!_0(bulk-binding-excepts b_0))" +"(ser-push!_0(bulk-binding-mpi b_0))" +"(ser-push!_0(bulk-binding-provide-phase-level b_0))" +"(ser-push!_0(bulk-binding-phase-shift b_0))" +"(ser-push!_0 'tag '#:bulk-binding-registry))))" "(cons" " prop:bulk-binding" "(bulk-binding-class3.1" -"(lambda(b_57 mpi-shifts_3)" -"(let-values(((or-part_134)(bulk-binding-provides b_57)))" -"(if or-part_134" -" or-part_134" -"(let-values(((mod-name_1)" +"(lambda(b_0 mpi-shifts_0)" +"(let-values(((or-part_120)(bulk-binding-provides b_0)))" +"(if or-part_120" +" or-part_120" +"(let-values(((mod-name_121)" "(1/module-path-index-resolve" -"(apply-syntax-shifts(bulk-binding-mpi b_57) mpi-shifts_3))))" +"(apply-syntax-shifts(bulk-binding-mpi b_0) mpi-shifts_0))))" "(let-values((()" "(begin" -"(if(bulk-binding-bulk-binding-registry b_57)" +"(if(bulk-binding-bulk-binding-registry b_0)" "(void)" "(let-values()" "(error" " \"namespace mismatch: no bulk-binding registry available:\"" -" mod-name_1)))" +" mod-name_121)))" "(values))))" -"(let-values(((table_85)" -"(bulk-binding-registry-table" -"(bulk-binding-bulk-binding-registry b_57))))" -"(let-values(((bulk-provide_0)(hash-ref table_85 mod-name_1 #f)))" +"(let-values(((table_122)" +"(bulk-binding-registry-table(bulk-binding-bulk-binding-registry b_0))))" +"(let-values(((bulk-provide_123)(hash-ref table_122 mod-name_121 #f)))" "(let-values((()" "(begin" -"(if bulk-provide_0" +"(if bulk-provide_123" "(void)" "(let-values()" "(error" " \"namespace mismatch: bulk bindings not found in registry for module:\"" -" mod-name_1)))" +" mod-name_121)))" "(values))))" "(let-values((()" "(begin" -"(set-bulk-binding-self! b_57(bulk-provide-self bulk-provide_0))" +"(set-bulk-binding-self!" +" b_0" +"(bulk-provide-self bulk-provide_123))" "(values))))" -"(let-values(((provides_0)" +"(let-values(((provides_124)" "(hash-ref" -"(bulk-provide-provides bulk-provide_0)" -"(bulk-binding-provide-phase-level b_57))))" -"(let-values(((excepts_0)(bulk-binding-excepts b_57)))" -"(let-values(((prefix_0)(bulk-binding-prefix b_57)))" -"(let-values(((adjusted-provides_0)" -"(if(let-values(((or-part_135) prefix_0))" -"(if or-part_135" -" or-part_135" -"(positive?(hash-count excepts_0))))" +"(bulk-provide-provides bulk-provide_123)" +"(bulk-binding-provide-phase-level b_0))))" +"(let-values(((excepts_125)(bulk-binding-excepts b_0)))" +"(let-values(((prefix_126)(bulk-binding-prefix b_0)))" +"(let-values(((adjusted-provides_127)" +"(if(let-values(((or-part_128) prefix_126))" +"(if or-part_128" +" or-part_128" +"(positive?(hash-count excepts_125))))" "(let-values()" "(bulk-provides-add-prefix-remove-exceptions" -" provides_0" -" prefix_0" -" excepts_0))" -"(let-values() provides_0))))" +" provides_124" +" prefix_126" +" excepts_125))" +"(let-values() provides_124))))" "(begin" -"(set-bulk-binding-provides! b_57 adjusted-provides_0)" -" adjusted-provides_0))))))))))))))" -"(lambda(b_58 binding_7 sym_19)" -"(let-values(((binding27_0) binding_7)" -"((temp28_1)" -"(if(bulk-binding-prefix b_58)" +"(set-bulk-binding-provides! b_0 adjusted-provides_127)" +" adjusted-provides_127))))))))))))))" +"(lambda(b_0 binding_0 sym_0)" +"(let-values(((binding27_133) binding_0)" +"((temp28_134)" +"(if(bulk-binding-prefix b_0)" "(string->symbol" "(substring" -"(symbol->string sym_19)" -"(string-length(symbol->string(bulk-binding-prefix b_58)))))" -" sym_19))" -"((temp29_0)(bulk-binding-self b_58))" -"((temp30_0)(bulk-binding-mpi b_58))" -"((temp31_0)(bulk-binding-provide-phase-level b_58))" -"((temp32_0)(bulk-binding-phase-shift b_58)))" +"(symbol->string sym_0)" +"(string-length(symbol->string(bulk-binding-prefix b_0)))))" +" sym_0))" +"((temp29_135)(bulk-binding-self b_0))" +"((temp30_136)(bulk-binding-mpi b_0))" +"((temp31_137)(bulk-binding-provide-phase-level b_0))" +"((temp32_138)(bulk-binding-phase-shift b_0)))" "(provide-binding-to-require-binding11.1" -" temp30_0" -" temp32_0" -" temp31_0" -" temp29_0" -" binding27_0" -" temp28_1))))))" +" temp30_136" +" temp32_138" +" temp31_137" +" temp29_135" +" binding27_133" +" temp28_134))))))" "(current-inspector)" " #f" " '(1 2 4 5 6 7)" " #f" " 'bulk-binding)))))" "(values" -" struct:_23" -" make-_23" -" ?_23" -"(make-struct-field-accessor -ref_23 0 'provides)" -"(make-struct-field-accessor -ref_23 1 'prefix)" -"(make-struct-field-accessor -ref_23 2 'excepts)" -"(make-struct-field-accessor -ref_23 3 'self)" -"(make-struct-field-accessor -ref_23 4 'mpi)" -"(make-struct-field-accessor -ref_23 5 'provide-phase-level)" -"(make-struct-field-accessor -ref_23 6 'phase-shift)" -"(make-struct-field-accessor -ref_23 7 'bulk-binding-registry)" -"(make-struct-field-mutator -set!_23 0 'provides)" -"(make-struct-field-mutator -set!_23 3 'self))))" +" struct:_60" +" make-_61" +" ?_62" +"(make-struct-field-accessor -ref_63 0 'provides)" +"(make-struct-field-accessor -ref_63 1 'prefix)" +"(make-struct-field-accessor -ref_63 2 'excepts)" +"(make-struct-field-accessor -ref_63 3 'self)" +"(make-struct-field-accessor -ref_63 4 'mpi)" +"(make-struct-field-accessor -ref_63 5 'provide-phase-level)" +"(make-struct-field-accessor -ref_63 6 'phase-shift)" +"(make-struct-field-accessor -ref_63 7 'bulk-binding-registry)" +"(make-struct-field-mutator -set!_64 0 'provides)" +"(make-struct-field-mutator -set!_64 3 'self))))" "(define-values" "(deserialize-bulk-binding)" -"(lambda(prefix_1 excepts_1 mpi_3 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0)" +"(lambda(prefix_0 excepts_0 mpi_0 provide-phase-level_0 phase-shift_0 bulk-binding-registry_0)" "(begin" -"(bulk-binding14.1 #f prefix_1 excepts_1 #f mpi_3 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0))))" +"(bulk-binding14.1 #f prefix_0 excepts_0 #f mpi_0 provide-phase-level_0 phase-shift_0 bulk-binding-registry_0))))" "(define-values" "(bulk-provides-add-prefix-remove-exceptions)" -"(lambda(provides_1 prefix_2 excepts_2)" +"(lambda(provides_0 prefix_0 excepts_0)" "(begin" -"(let-values(((ht_62) provides_1))" +"(let-values(((ht_148) provides_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_62)))" -"((letrec-values(((for-loop_77)" -"(lambda(table_86 i_82)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_148)))" +"((letrec-values(((for-loop_149)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_82" -"(let-values(((sym_20 val_23)(hash-iterate-key+value ht_62 i_82)))" -"(let-values(((table_87)" -"(let-values(((table_88) table_86))" -"(if(hash-ref excepts_2 sym_20 #f)" -" table_88" -"(let-values(((table_89) table_88))" -"(if(symbol-interned? sym_20)" -"(let-values(((table_90) table_89))" -"(let-values(((table_91)" +"(if i_0" +"(let-values(((sym_152 val_153)(hash-iterate-key+value ht_148 i_0)))" +"(let-values(((table_154)" +"(let-values(((table_155) table_0))" +"(if(hash-ref excepts_0 sym_152 #f)" +" table_155" +"(let-values(((table_156) table_155))" +"(if(symbol-interned? sym_152)" +"(let-values(((table_157) table_156))" +"(let-values(((table_158)" "(let-values()" -"(let-values(((key_36 val_24)" +"(let-values(((key_159 val_160)" "(let-values()" "(values" -"(if prefix_2" +"(if prefix_0" "(string->symbol" "(format" " \"~a~a\"" -" prefix_2" -" sym_20))" -" sym_20)" -" val_23))))" -"(hash-set table_90 key_36 val_24)))))" -"(values table_91)))" -" table_89))))))" -"(if(not #f)(for-loop_77 table_87(hash-iterate-next ht_62 i_82)) table_87)))" -" table_86)))))" -" for-loop_77)" +" prefix_0" +" sym_152))" +" sym_152)" +" val_153))))" +"(hash-set table_157 key_159 val_160)))))" +"(values table_158)))" +" table_156))))))" +"(if(not #f)(for-loop_149 table_154(hash-iterate-next ht_148 i_0)) table_154)))" +" table_0)))))" +" for-loop_149)" " '#hash()" -"(hash-iterate-first ht_62)))))))" +"(hash-iterate-first ht_148)))))))" "(define-values" "(struct:bulk-provide bulk-provide15.1 bulk-provide? bulk-provide-self bulk-provide-provides)" -"(let-values(((struct:_24 make-_24 ?_24 -ref_24 -set!_24)" +"(let-values(((struct:_161 make-_162 ?_163 -ref_164 -set!_165)" "(let-values()" "(let-values()" "(make-struct-type 'bulk-provide #f 2 0 #f null(current-inspector) #f '(0 1) #f 'bulk-provide)))))" "(values" -" struct:_24" -" make-_24" -" ?_24" -"(make-struct-field-accessor -ref_24 0 'self)" -"(make-struct-field-accessor -ref_24 1 'provides))))" +" struct:_161" +" make-_162" +" ?_163" +"(make-struct-field-accessor -ref_164 0 'self)" +"(make-struct-field-accessor -ref_164 1 'provides))))" "(define-values" "(struct:bulk-binding-registry bulk-binding-registry16.1 bulk-binding-registry? bulk-binding-registry-table)" -"(let-values(((struct:_25 make-_25 ?_25 -ref_25 -set!_25)" +"(let-values(((struct:_186 make-_187 ?_188 -ref_189 -set!_190)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11545,20 +11644,20 @@ static const char *startup_source = " '(0)" " #f" " 'bulk-binding-registry)))))" -"(values struct:_25 make-_25 ?_25(make-struct-field-accessor -ref_25 0 'table))))" +"(values struct:_186 make-_187 ?_188(make-struct-field-accessor -ref_189 0 'table))))" "(define-values(make-bulk-binding-registry)(lambda()(begin(bulk-binding-registry16.1(make-hasheq)))))" "(define-values" "(register-bulk-provide!)" -"(lambda(bulk-binding-registry_1 mod-name_2 self_2 provides_2)" +"(lambda(bulk-binding-registry_0 mod-name_0 self_0 provides_0)" "(begin" "(hash-set!" -"(bulk-binding-registry-table bulk-binding-registry_1)" -" mod-name_2" -"(bulk-provide15.1 self_2 provides_2)))))" +"(bulk-binding-registry-table bulk-binding-registry_0)" +" mod-name_0" +"(bulk-provide15.1 self_0 provides_0)))))" "(define-values" "(registered-bulk-provide?)" -"(lambda(bulk-binding-registry_2 mod-name_3)" -"(begin(if(hash-ref(bulk-binding-registry-table bulk-binding-registry_2) mod-name_3 #f) #t #f))))" +"(lambda(bulk-binding-registry_0 mod-name_0)" +"(begin(if(hash-ref(bulk-binding-registry-table bulk-binding-registry_0) mod-name_0 #f) #t #f))))" "(define-values(generate-lift-key)(lambda()(begin(gensym 'lift))))" "(define-values" "(struct:root-expand-context/outer" @@ -11568,7 +11667,7 @@ static const char *startup_source = " root-expand-context/outer-post-expansion" " root-expand-context/outer-use-site-scopes" " root-expand-context/outer-frame-id)" -"(let-values(((struct:_26 make-_26 ?_26 -ref_26 -set!_26)" +"(let-values(((struct:_6 make-_7 ?_8 -ref_9 -set!_10)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11584,13 +11683,13 @@ static const char *startup_source = " #f" " 'root-expand-context/outer)))))" "(values" -" struct:_26" -" make-_26" -" ?_26" -"(make-struct-field-accessor -ref_26 0 'inner)" -"(make-struct-field-accessor -ref_26 1 'post-expansion)" -"(make-struct-field-accessor -ref_26 2 'use-site-scopes)" -"(make-struct-field-accessor -ref_26 3 'frame-id))))" +" struct:_6" +" make-_7" +" ?_8" +"(make-struct-field-accessor -ref_9 0 'inner)" +"(make-struct-field-accessor -ref_9 1 'post-expansion)" +"(make-struct-field-accessor -ref_9 2 'use-site-scopes)" +"(make-struct-field-accessor -ref_9 3 'frame-id))))" "(define-values" "(struct:root-expand-context/inner" " root-expand-context/inner2.1" @@ -11602,7 +11701,7 @@ static const char *startup_source = " root-expand-context/inner-defined-syms" " root-expand-context/inner-counter" " root-expand-context/inner-lift-key)" -"(let-values(((struct:_27 make-_27 ?_27 -ref_27 -set!_27)" +"(let-values(((struct:_41 make-_42 ?_43 -ref_44 -set!_45)" "(let-values()" "(let-values()" "(make-struct-type" @@ -11618,16 +11717,16 @@ static const char *startup_source = " #f" " 'root-expand-context/inner)))))" "(values" -" struct:_27" -" make-_27" -" ?_27" -"(make-struct-field-accessor -ref_27 0 'self-mpi)" -"(make-struct-field-accessor -ref_27 1 'module-scopes)" -"(make-struct-field-accessor -ref_27 2 'top-level-bind-scope)" -"(make-struct-field-accessor -ref_27 3 'all-scopes-stx)" -"(make-struct-field-accessor -ref_27 4 'defined-syms)" -"(make-struct-field-accessor -ref_27 5 'counter)" -"(make-struct-field-accessor -ref_27 6 'lift-key))))" +" struct:_41" +" make-_42" +" ?_43" +"(make-struct-field-accessor -ref_44 0 'self-mpi)" +"(make-struct-field-accessor -ref_44 1 'module-scopes)" +"(make-struct-field-accessor -ref_44 2 'top-level-bind-scope)" +"(make-struct-field-accessor -ref_44 3 'all-scopes-stx)" +"(make-struct-field-accessor -ref_44 4 'defined-syms)" +"(make-struct-field-accessor -ref_44 5 'counter)" +"(make-struct-field-accessor -ref_44 6 'lift-key))))" "(define-values" "(root-expand-context/make)" "(lambda(self-mpi_0" @@ -11637,7 +11736,7 @@ static const char *startup_source = " all-scopes-stx_0" " use-site-scopes_0" " defined-syms_0" -" frame-id_4" +" frame-id_0" " counter_0" " lift-key_0)" "(begin" @@ -11652,58 +11751,59 @@ static const char *startup_source = " lift-key_0)" " post-expansion_0" " use-site-scopes_0" -" frame-id_4))))" +" frame-id_0))))" "(define-values" "(root-expand-context-post-expansion)" -"(lambda(v_80)(begin(root-expand-context/outer-post-expansion v_80))))" +"(lambda(v_0)(begin(root-expand-context/outer-post-expansion v_0))))" "(define-values" "(root-expand-context-use-site-scopes)" -"(lambda(v_81)(begin(root-expand-context/outer-use-site-scopes v_81))))" -"(define-values(root-expand-context-frame-id)(lambda(v_82)(begin(root-expand-context/outer-frame-id v_82))))" +"(lambda(v_0)(begin(root-expand-context/outer-use-site-scopes v_0))))" +"(define-values(root-expand-context-frame-id)(lambda(v_0)(begin(root-expand-context/outer-frame-id v_0))))" "(define-values" "(root-expand-context-self-mpi)" -"(lambda(v_55)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_55)))))" +"(lambda(v_0)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_0)))))" "(define-values" "(root-expand-context-module-scopes)" -"(lambda(v_83)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_83)))))" +"(lambda(v_0)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_0)))))" "(define-values" "(root-expand-context-top-level-bind-scope)" -"(lambda(v_84)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_84)))))" +"(lambda(v_0)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_0)))))" "(define-values" "(root-expand-context-all-scopes-stx)" -"(lambda(v_49)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_49)))))" +"(lambda(v_0)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_0)))))" "(define-values" "(root-expand-context-defined-syms)" -"(lambda(v_85)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_85)))))" +"(lambda(v_0)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_0)))))" "(define-values" "(root-expand-context-counter)" -"(lambda(v_43)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_43)))))" +"(lambda(v_0)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_0)))))" "(define-values" "(root-expand-context-lift-key)" -"(lambda(v_86)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_86)))))" +"(lambda(v_0)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_0)))))" "(define-values" "(make-root-expand-context13.1)" "(lambda(all-scopes-stx7_0 initial-scopes4_0 outside-scope5_0 post-expansion-scope6_0 self-mpi3_0)" "(begin" " 'make-root-expand-context13" -"(let-values(((self-mpi_1) self-mpi3_0))" -"(let-values(((initial-scopes_0) initial-scopes4_0))" -"(let-values(((outside-scope_0)" +"(let-values(((self-mpi_119) self-mpi3_0))" +"(let-values(((initial-scopes_120) initial-scopes4_0))" +"(let-values(((outside-scope_121)" "(if(eq? outside-scope5_0 unsafe-undefined) top-level-common-scope outside-scope5_0)))" -"(let-values(((post-expansion-scope_0)" +"(let-values(((post-expansion-scope_122)" "(if(eq? post-expansion-scope6_0 unsafe-undefined)" "(new-multi-scope 'top-level)" " post-expansion-scope6_0)))" -"(let-values(((all-scopes-stx_1) all-scopes-stx7_0))" +"(let-values(((all-scopes-stx_123) all-scopes-stx7_0))" "(let-values()" -"(let-values(((module-scopes_1)(list* post-expansion-scope_0 outside-scope_0 initial-scopes_0)))" +"(let-values(((module-scopes_124)" +"(list* post-expansion-scope_122 outside-scope_121 initial-scopes_120)))" "(root-expand-context/make" -" self-mpi_1" -" module-scopes_1" -" post-expansion-scope_0" +" self-mpi_119" +" module-scopes_124" +" post-expansion-scope_122" "(new-scope 'module)" -"(let-values(((or-part_136) all-scopes-stx_1))" -"(if or-part_136 or-part_136(add-scopes empty-syntax module-scopes_1)))" +"(let-values(((or-part_125) all-scopes-stx_123))" +"(if or-part_125 or-part_125(add-scopes empty-syntax module-scopes_124)))" "(box null)" "(make-hasheqv)" " (string->uninterned-symbol \"root-frame\")" @@ -11711,26 +11811,26 @@ static const char *startup_source = "(generate-lift-key))))))))))))" "(define-values" "(apply-post-expansion)" -"(lambda(pe_0 s_165)" +"(lambda(pe_0 s_0)" "(begin" "(if(not pe_0)" -"(let-values() s_165)" +"(let-values() s_0)" "(if(shifted-multi-scope? pe_0)" -"(let-values()(push-scope s_165 pe_0))" +"(let-values()(push-scope s_0 pe_0))" "(if(pair? pe_0)" "(let-values()" -"(let-values(((temp18_2)(push-scope s_165(car pe_0)))((temp19_0)(cdr pe_0)))" -"(syntax-add-shifts44.1 #f temp18_2 temp19_0 #f)))" -"(let-values()(pe_0 s_165))))))))" +"(let-values(((temp18_151)(push-scope s_0(car pe_0)))((temp19_152)(cdr pe_0)))" +"(syntax-add-shifts44.1 #f temp18_151 temp19_152 #f)))" +"(let-values()(pe_0 s_0))))))))" "(define-values" "(post-expansion-scope)" -"(lambda(pe_1)" +"(lambda(pe_0)" "(begin" -"(if(shifted-multi-scope? pe_1)" -"(let-values() pe_1)" -"(if(pair? pe_1)" -"(let-values()(car pe_1))" -" (let-values () (error 'post-expansion-scope \"internal error: cannot extract scope from ~s\" pe_1)))))))" +"(if(shifted-multi-scope? pe_0)" +"(let-values() pe_0)" +"(if(pair? pe_0)" +"(let-values()(car pe_0))" +" (let-values () (error 'post-expansion-scope \"internal error: cannot extract scope from ~s\" pe_0)))))))" "(define-values" "(root-expand-context-encode-for-module)" "(lambda(ctx_0 orig-self_0 new-self_0)" @@ -11740,51 +11840,53 @@ static const char *startup_source = "(vector" "(add-scopes empty-syntax(root-expand-context-module-scopes ctx_0))" "(apply-post-expansion(root-expand-context-post-expansion ctx_0) empty-syntax)" -"(let-values(((temp20_0)(root-expand-context-all-scopes-stx ctx_0))" -"((orig-self21_0) orig-self_0)" -"((new-self22_0) new-self_0))" -"(syntax-module-path-index-shift13.1 #f temp20_0 orig-self21_0 new-self22_0 #f))" +"(let-values(((temp20_157)(root-expand-context-all-scopes-stx ctx_0))" +"((orig-self21_158) orig-self_0)" +"((new-self22_159) new-self_0))" +"(syntax-module-path-index-shift13.1 #f temp20_157 orig-self21_158 new-self22_159 #f))" "(add-scopes empty-syntax(unbox(root-expand-context-use-site-scopes ctx_0)))" -"(let-values(((ht_63)(root-expand-context-defined-syms ctx_0)))" +"(let-values(((ht_160)(root-expand-context-defined-syms ctx_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_63)))" -"((letrec-values(((for-loop_78)" -"(lambda(table_92 i_83)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_160)))" +"((letrec-values(((for-loop_161)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_83" -"(let-values(((phase_24 ht_64)(hash-iterate-key+value ht_63 i_83)))" -"(let-values(((table_93)" -"(let-values(((table_94) table_92))" -"(let-values(((table_95)" +"(if i_0" +"(let-values(((phase_164 ht_165)(hash-iterate-key+value ht_160 i_0)))" +"(let-values(((table_166)" +"(let-values(((table_167) table_0))" +"(let-values(((table_168)" "(let-values()" -"(let-values(((key_37 val_25)" +"(let-values(((key_169 val_170)" "(let-values()" -"(values phase_24 ht_64))))" -"(hash-set table_94 key_37 val_25)))))" -"(values table_95)))))" -"(if(not #f)(for-loop_78 table_93(hash-iterate-next ht_63 i_83)) table_93)))" -" table_92)))))" -" for-loop_78)" +"(values phase_164 ht_165))))" +"(hash-set table_167 key_169 val_170)))))" +"(values table_168)))))" +"(if(not #f)" +"(for-loop_161 table_166(hash-iterate-next ht_160 i_0))" +" table_166)))" +" table_0)))))" +" for-loop_161)" " '#hasheqv()" -"(hash-iterate-first ht_63))))" +"(hash-iterate-first ht_160))))" "(root-expand-context-frame-id ctx_0)" "(unbox(root-expand-context-counter ctx_0)))))))" "(define-values" "(root-expand-context-decode-for-module)" -"(lambda(vec-s_0 self_3)" +"(lambda(vec-s_0 self_0)" "(begin" -"(let-values(((vec_29)(if(syntax?$1 vec-s_0)(syntax-e$1 vec-s_0) #f)))" +"(let-values(((vec_173)(if(syntax?$1 vec-s_0)(syntax-e$1 vec-s_0) #f)))" "(begin" -"(if(if(vector? vec_29)" -"(if(=(vector-length vec_29) 7)" -"(if(syntax?$1(vector-ref vec_29 0))" -"(if(syntax-with-one-scope?(vector-ref vec_29 1))" -"(if(syntax?$1(vector-ref vec_29 2))" -"(if(syntax?$1(vector-ref vec_29 3))" -"(if(defined-syms-hash?(syntax-e$1(vector-ref vec_29 4)))" -"(if(symbol?(syntax-e$1(vector-ref vec_29 5)))" -"(exact-nonnegative-integer?(syntax-e$1(vector-ref vec_29 6)))" +"(if(if(vector? vec_173)" +"(if(=(vector-length vec_173) 7)" +"(if(syntax?$1(vector-ref vec_173 0))" +"(if(syntax-with-one-scope?(vector-ref vec_173 1))" +"(if(syntax?$1(vector-ref vec_173 2))" +"(if(syntax?$1(vector-ref vec_173 3))" +"(if(defined-syms-hash?(syntax-e$1(vector-ref vec_173 4)))" +"(if(symbol?(syntax-e$1(vector-ref vec_173 5)))" +"(exact-nonnegative-integer?(syntax-e$1(vector-ref vec_173 6)))" " #f)" " #f)" " #f)" @@ -11796,182 +11898,182 @@ static const char *startup_source = "(void)" " (let-values () (error 'root-expand-context-decode-for-module \"bad encoding: ~s\" vec-s_0)))" "(root-expand-context/make" -" self_3" -"(extract-scope-list(vector-ref vec_29 0))" -"(cons(extract-scope(vector-ref vec_29 1))(extract-shifts(vector-ref vec_29 1)))" +" self_0" +"(extract-scope-list(vector-ref vec_173 0))" +"(cons(extract-scope(vector-ref vec_173 1))(extract-shifts(vector-ref vec_173 1)))" "(new-scope 'module)" -"(vector-ref vec_29 2)" -"(box(extract-scope-list(vector-ref vec_29 3)))" -"(unpack-defined-syms(vector-ref vec_29 4))" -"(syntax-e$1(vector-ref vec_29 5))" -"(box(syntax-e$1(vector-ref vec_29 6)))" +"(vector-ref vec_173 2)" +"(box(extract-scope-list(vector-ref vec_173 3)))" +"(unpack-defined-syms(vector-ref vec_173 4))" +"(syntax-e$1(vector-ref vec_173 5))" +"(box(syntax-e$1(vector-ref vec_173 6)))" "(generate-lift-key)))))))" "(define-values" "(defined-syms-hash?)" -"(lambda(v_87)" +"(lambda(v_0)" "(begin" -"(let-values(((ht_65) v_87))" +"(let-values(((ht_175) v_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_65)))" -"((letrec-values(((for-loop_79)" -"(lambda(result_54 i_84)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_175)))" +"((letrec-values(((for-loop_176)" +"(lambda(result_0 i_0)" "(begin" " 'for-loop" -"(if i_84" -"(let-values(((phase_25 ht-s_0)(hash-iterate-key+value ht_65 i_84)))" -"(let-values(((result_55)" +"(if i_0" +"(let-values(((phase_179 ht-s_180)(hash-iterate-key+value ht_175 i_0)))" +"(let-values(((result_181)" "(let-values()" -"(let-values(((result_56)" +"(let-values(((result_183)" "(let-values()" "(let-values()" -"(if(phase? phase_25)" -"(if(hash?(syntax-e$1 ht-s_0))" -"(let-values(((ht_66)(syntax-e$1 ht-s_0)))" +"(if(phase? phase_179)" +"(if(hash?(syntax-e$1 ht-s_180))" +"(let-values(((ht_184)(syntax-e$1 ht-s_180)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_66)))" -"((letrec-values(((for-loop_80)" -"(lambda(result_57 i_85)" +"(let-values()(check-in-hash ht_184)))" +"((letrec-values(((for-loop_185)" +"(lambda(result_1 i_1)" "(begin" " 'for-loop" -"(if i_85" -"(let-values(((sym_21" -" id_8)" +"(if i_1" +"(let-values(((sym_188" +" id_189)" "(hash-iterate-key+value" -" ht_66" -" i_85)))" -"(let-values(((result_58)" +" ht_184" +" i_1)))" +"(let-values(((result_190)" "(let-values()" -"(let-values(((result_59)" +"(let-values(((result_192)" "(let-values()" "(let-values()" "(if(symbol?" -" sym_21)" +" sym_188)" "(identifier?" -" id_8)" +" id_189)" " #f)))))" "(values" -" result_59)))))" +" result_192)))))" "(if(if(not" -"((lambda x_37" +"((lambda x_0" "(not" -" result_58))" -" sym_21" -" id_8))" +" result_190))" +" sym_188" +" id_189))" "(not #f)" " #f)" -"(for-loop_80" -" result_58" +"(for-loop_185" +" result_190" "(hash-iterate-next" -" ht_66" -" i_85))" -" result_58)))" -" result_57)))))" -" for-loop_80)" +" ht_184" +" i_1))" +" result_190)))" +" result_1)))))" +" for-loop_185)" " #t" -"(hash-iterate-first ht_66))))" +"(hash-iterate-first ht_184))))" " #f)" " #f)))))" -"(values result_56)))))" -"(if(if(not((lambda x_38(not result_55)) phase_25 ht-s_0))(not #f) #f)" -"(for-loop_79 result_55(hash-iterate-next ht_65 i_84))" -" result_55)))" -" result_54)))))" -" for-loop_79)" +"(values result_183)))))" +"(if(if(not((lambda x_0(not result_181)) phase_179 ht-s_180))(not #f) #f)" +"(for-loop_176 result_181(hash-iterate-next ht_175 i_0))" +" result_181)))" +" result_0)))))" +" for-loop_176)" " #t" -"(hash-iterate-first ht_65)))))))" +"(hash-iterate-first ht_175)))))))" "(define-values" "(extract-scope-list)" -"(lambda(stx_9)(begin(map2 generalize-scope(set->list(syntax-scope-set stx_9 0))))))" +"(lambda(stx_0)(begin(map2 generalize-scope(set->list(syntax-scope-set stx_0 0))))))" "(define-values" "(syntax-with-one-scope?)" -"(lambda(stx_10)(begin(if(syntax?$1 stx_10)(= 1(set-count(syntax-scope-set stx_10 0))) #f))))" +"(lambda(stx_0)(begin(if(syntax?$1 stx_0)(= 1(set-count(syntax-scope-set stx_0 0))) #f))))" "(define-values" "(extract-scope)" -"(lambda(stx_11)(begin(let-values(((s_58)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_58))))))" -"(define-values(extract-shifts)(lambda(stx_12)(begin(syntax-mpi-shifts stx_12))))" +"(lambda(stx_0)(begin(let-values(((s_198)(syntax-scope-set stx_0 0)))(generalize-scope(set-first s_198))))))" +"(define-values(extract-shifts)(lambda(stx_0)(begin(syntax-mpi-shifts stx_0))))" "(define-values" "(unpack-defined-syms)" -"(lambda(v_88)" +"(lambda(v_0)" "(begin" "(hash-copy" -"(let-values(((ht_67)(syntax-e$1 v_88)))" +"(let-values(((ht_201)(syntax-e$1 v_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_67)))" -"((letrec-values(((for-loop_81)" -"(lambda(table_96 i_86)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_201)))" +"((letrec-values(((for-loop_202)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_86" -"(let-values(((phase_26 ht-s_1)(hash-iterate-key+value ht_67 i_86)))" -"(let-values(((table_97)" -"(let-values(((table_98) table_96))" -"(let-values(((table_99)" +"(if i_0" +"(let-values(((phase_205 ht-s_206)(hash-iterate-key+value ht_201 i_0)))" +"(let-values(((table_207)" +"(let-values(((table_208) table_0))" +"(let-values(((table_209)" "(let-values()" -"(let-values(((key_38 val_26)" +"(let-values(((key_210 val_211)" "(let-values()" "(values" -" phase_26" +" phase_205" "(hash-copy" -"(let-values(((ht_68)" +"(let-values(((ht_212)" "(syntax-e$1" -" ht-s_1)))" +" ht-s_206)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_68)))" -"((letrec-values(((for-loop_82)" -"(lambda(table_100" -" i_87)" +"(check-in-hash ht_212)))" +"((letrec-values(((for-loop_213)" +"(lambda(table_1" +" i_1)" "(begin" " 'for-loop" -"(if i_87" -"(let-values(((sym_22" -" id_9)" +"(if i_1" +"(let-values(((sym_216" +" id_217)" "(hash-iterate-key+value" -" ht_68" -" i_87)))" -"(let-values(((table_101)" -"(let-values(((table_102)" -" table_100))" -"(let-values(((table_103)" +" ht_212" +" i_1)))" +"(let-values(((table_218)" +"(let-values(((table_219)" +" table_1))" +"(let-values(((table_220)" "(let-values()" -"(let-values(((key_39" -" val_27)" +"(let-values(((key_221" +" val_222)" "(let-values()" "(values" -" sym_22" -" id_9))))" +" sym_216" +" id_217))))" "(hash-set" -" table_102" -" key_39" -" val_27)))))" +" table_219" +" key_221" +" val_222)))))" "(values" -" table_103)))))" +" table_220)))))" "(if(not" " #f)" -"(for-loop_82" -" table_101" +"(for-loop_213" +" table_218" "(hash-iterate-next" -" ht_68" -" i_87))" -" table_101)))" -" table_100)))))" -" for-loop_82)" +" ht_212" +" i_1))" +" table_218)))" +" table_1)))))" +" for-loop_213)" " '#hash()" "(hash-iterate-first" -" ht_68)))))))))" -"(hash-set table_98 key_38 val_26)))))" -"(values table_99)))))" -"(if(not #f)(for-loop_81 table_97(hash-iterate-next ht_67 i_86)) table_97)))" -" table_96)))))" -" for-loop_81)" +" ht_212)))))))))" +"(hash-set table_208 key_210 val_211)))))" +"(values table_209)))))" +"(if(not #f)(for-loop_202 table_207(hash-iterate-next ht_201 i_0)) table_207)))" +" table_0)))))" +" for-loop_202)" " '#hasheqv()" -"(hash-iterate-first ht_67))))))))" +"(hash-iterate-first ht_201))))))))" "(define-values(1/primitive-table) primitive-table)" "(define-values(1/primitive->compiled-position) primitive->compiled-position)" "(define-values(1/compiled-position->primitive) compiled-position->primitive)" @@ -12008,7 +12110,7 @@ static const char *startup_source = " (let-values () (error \"broken '#%linklet primitive table; maybe you need to use \\\"bootstrap-run.rkt\\\"\"))))" "(define-values" "(struct:module-registry module-registry1.1 module-registry? module-registry-declarations module-registry-lock-box)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12024,38 +12126,38 @@ static const char *startup_source = " #f" " 'module-registry)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 'declarations)" -"(make-struct-field-accessor -ref_0 1 'lock-box))))" +" struct:_1" +" make-_2" +" ?_3" +"(make-struct-field-accessor -ref_4 0 'declarations)" +"(make-struct-field-accessor -ref_4 1 'lock-box))))" "(define-values(make-module-registry)(lambda()(begin(module-registry1.1(make-hasheq)(box #f)))))" "(define-values" "(registry-call-with-lock)" -"(lambda(r_5 proc_2)" +"(lambda(r_0 proc_0)" "(begin" -"(let-values(((lock-box_0)(module-registry-lock-box r_5)))" -"((letrec-values(((loop_68)" +"(let-values(((lock-box_28)(module-registry-lock-box r_0)))" +"((letrec-values(((loop_29)" "(lambda()" "(begin" " 'loop" -"(let-values(((v_34)(unbox lock-box_0)))" -"(if(let-values(((or-part_75)(not v_34)))" -"(if or-part_75 or-part_75(sync/timeout 0(car v_34)(cdr v_34))))" +"(let-values(((v_30)(unbox lock-box_28)))" +"(if(let-values(((or-part_31)(not v_30)))" +"(if or-part_31 or-part_31(sync/timeout 0(car v_30)(cdr v_30))))" "(let-values()" -"(let-values(((sema_0)(make-semaphore)))" -"(let-values(((lock_0)(cons(semaphore-peek-evt sema_0)(current-thread))))" +"(let-values(((sema_32)(make-semaphore)))" +"(let-values(((lock_33)(cons(semaphore-peek-evt sema_32)(current-thread))))" "((dynamic-wind" " void" "(lambda()" -"(if(box-cas! lock-box_0 v_34 lock_0)" -"(let-values()(begin(proc_2) void))" -"(let-values()(lambda()(loop_68)))))" -"(lambda()(semaphore-post sema_0)))))))" -"(if(eq?(current-thread)(cdr v_34))" -"(let-values()(proc_2))" -"(let-values()(begin(sync(car v_34)(cdr v_34))(loop_68))))))))))" -" loop_68))))))" +"(if(box-cas! lock-box_28 v_30 lock_33)" +"(let-values()(begin(proc_0) void))" +"(let-values()(lambda()(loop_29)))))" +"(lambda()(semaphore-post sema_32)))))))" +"(if(eq?(current-thread)(cdr v_30))" +"(let-values()(proc_0))" +"(let-values()(begin(sync(car v_30)(cdr v_30))(loop_29))))))))))" +" loop_29))))))" "(define-values" "(struct:namespace" " namespace1.1" @@ -12076,7 +12178,7 @@ static const char *startup_source = " namespace-available-module-instances" " namespace-module-instances" " set-namespace-inspector!)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12089,54 +12191,54 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:custom-write" -"(lambda(ns_0 port_7 mode_10)" -" (let-values ((() (begin (write-string \"#name ns_0)))" +"(if n_94" +" (let-values () (fprintf port_0 \":~a\" (namespace->name ns_0)))" "(void))" "(values))))" -"(let-values(((0-phase_0)(namespace-0-phase ns_0)))" -"(let-values(((phase-level_0)(phase-(namespace-phase ns_0) 0-phase_0)))" +"(let-values(((0-phase_95)(namespace-0-phase ns_0)))" +"(let-values(((phase-level_96)(phase-(namespace-phase ns_0) 0-phase_95)))" "(begin" -"(if(zero-phase? phase-level_0)" +"(if(zero-phase? phase-level_96)" "(void)" -" (let-values () (fprintf port_7 \":~s\" phase-level_0)))" -"(if(zero-phase? 0-phase_0)" +" (let-values () (fprintf port_0 \":~s\" phase-level_96)))" +"(if(zero-phase? 0-phase_95)" "(void)" "(let-values()" -" (fprintf port_7 \"~a~s\" (if (positive? 0-phase_0) \"+\" \"\") 0-phase_0)))" -" (write-string \">\" port_7))))))))))" +" (fprintf port_0 \"~a~s\" (if (positive? 0-phase_95) \"+\" \"\") 0-phase_95)))" +" (write-string \">\" port_0))))))))))" "(current-inspector)" " #f" " '(0 1 2 3 4 5 6 7 8 9 10 11 13 14)" " #f" " 'namespace)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 'mpi)" -"(make-struct-field-accessor -ref_0 1 'source-name)" -"(make-struct-field-accessor -ref_0 2 'root-expand-ctx)" -"(make-struct-field-accessor -ref_0 3 'phase)" -"(make-struct-field-accessor -ref_0 4 '0-phase)" -"(make-struct-field-accessor -ref_0 5 'phase-to-namespace)" -"(make-struct-field-accessor -ref_0 6 'phase-level-to-definitions)" -"(make-struct-field-accessor -ref_0 7 'module-registry)" -"(make-struct-field-accessor -ref_0 8 'bulk-binding-registry)" -"(make-struct-field-accessor -ref_0 9 'submodule-declarations)" -"(make-struct-field-accessor -ref_0 10 'root-namespace)" -"(make-struct-field-accessor -ref_0 11 'declaration-inspector)" -"(make-struct-field-accessor -ref_0 12 'inspector)" -"(make-struct-field-accessor -ref_0 13 'available-module-instances)" -"(make-struct-field-accessor -ref_0 14 'module-instances)" -"(make-struct-field-mutator -set!_0 12 'inspector))))" +" struct:_1" +" make-_2" +" ?_3" +"(make-struct-field-accessor -ref_4 0 'mpi)" +"(make-struct-field-accessor -ref_4 1 'source-name)" +"(make-struct-field-accessor -ref_4 2 'root-expand-ctx)" +"(make-struct-field-accessor -ref_4 3 'phase)" +"(make-struct-field-accessor -ref_4 4 '0-phase)" +"(make-struct-field-accessor -ref_4 5 'phase-to-namespace)" +"(make-struct-field-accessor -ref_4 6 'phase-level-to-definitions)" +"(make-struct-field-accessor -ref_4 7 'module-registry)" +"(make-struct-field-accessor -ref_4 8 'bulk-binding-registry)" +"(make-struct-field-accessor -ref_4 9 'submodule-declarations)" +"(make-struct-field-accessor -ref_4 10 'root-namespace)" +"(make-struct-field-accessor -ref_4 11 'declaration-inspector)" +"(make-struct-field-accessor -ref_4 12 'inspector)" +"(make-struct-field-accessor -ref_4 13 'available-module-instances)" +"(make-struct-field-accessor -ref_4 14 'module-instances)" +"(make-struct-field-mutator -set!_5 12 'inspector))))" "(define-values" "(struct:definitions definitions2.1 definitions? definitions-variables definitions-transformers)" -"(let-values(((struct:_28 make-_28 ?_28 -ref_28 -set!_28)" +"(let-values(((struct:_97 make-_98 ?_99 -ref_100 -set!_101)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12152,201 +12254,206 @@ static const char *startup_source = " #f" " 'definitions)))))" "(values" -" struct:_28" -" make-_28" -" ?_28" -"(make-struct-field-accessor -ref_28 0 'variables)" -"(make-struct-field-accessor -ref_28 1 'transformers))))" +" struct:_97" +" make-_98" +" ?_99" +"(make-struct-field-accessor -ref_100 0 'variables)" +"(make-struct-field-accessor -ref_100 1 'transformers))))" "(define-values(make-namespace)(lambda()(begin(let-values()(new-namespace8.1 #t unsafe-undefined #f)))))" "(define-values" "(new-namespace8.1)" "(lambda(register?4_0 root-expand-ctx3_0 share-from-ns7_0)" "(begin" " 'new-namespace8" -"(let-values(((share-from-ns_0) share-from-ns7_0))" -"(let-values(((root-expand-ctx_0)" +"(let-values(((share-from-ns_125) share-from-ns7_0))" +"(let-values(((root-expand-ctx_126)" "(if(eq? root-expand-ctx3_0 unsafe-undefined)" -"(let-values(((top-level-module-path-index20_0) top-level-module-path-index))" +"(let-values(((top-level-module-path-index20_128) top-level-module-path-index))" "(make-root-expand-context13.1" " #f" " null" " unsafe-undefined" " unsafe-undefined" -" top-level-module-path-index20_0))" +" top-level-module-path-index20_128))" " root-expand-ctx3_0)))" -"(let-values(((register?_0) register?4_0))" +"(let-values(((register?_129) register?4_0))" "(let-values()" -"(let-values(((phase_27)(if share-from-ns_0(namespace-phase share-from-ns_0) 0)))" -"(let-values(((ns_1)" +"(let-values(((phase_130)(if share-from-ns_125(namespace-phase share-from-ns_125) 0)))" +"(let-values(((ns_131)" "(namespace1.1" " top-level-module-path-index" " #f" -"(box root-expand-ctx_0)" -" phase_27" -" phase_27" +"(box root-expand-ctx_126)" +" phase_130" +" phase_130" "(make-small-hasheqv)" "(make-small-hasheqv)" -"(if share-from-ns_0(namespace-module-registry$1 share-from-ns_0)(make-module-registry))" -"(if share-from-ns_0" -"(namespace-bulk-binding-registry share-from-ns_0)" +"(if share-from-ns_125" +"(namespace-module-registry$1 share-from-ns_125)" +"(make-module-registry))" +"(if share-from-ns_125" +"(namespace-bulk-binding-registry share-from-ns_125)" "(make-bulk-binding-registry))" "(make-small-hasheq)" -"(if share-from-ns_0" -"(let-values(((or-part_137)(namespace-root-namespace share-from-ns_0)))" -"(if or-part_137 or-part_137 share-from-ns_0))" +"(if share-from-ns_125" +"(let-values(((or-part_132)(namespace-root-namespace share-from-ns_125)))" +"(if or-part_132 or-part_132 share-from-ns_125))" " #f)" " #f" "(make-inspector(current-code-inspector))" -"(if share-from-ns_0" -"(namespace-available-module-instances share-from-ns_0)" +"(if share-from-ns_125" +"(namespace-available-module-instances share-from-ns_125)" "(make-hasheqv))" -"(if share-from-ns_0(namespace-module-instances share-from-ns_0)(make-hasheqv)))))" +"(if share-from-ns_125(namespace-module-instances share-from-ns_125)(make-hasheqv)))))" "(begin" -"(if register?_0" -"(let-values()(small-hash-set!(namespace-phase-to-namespace ns_1) phase_27 ns_1))" +"(if register?_129" +"(let-values()(small-hash-set!(namespace-phase-to-namespace ns_131) phase_130 ns_131))" "(void))" -" ns_1))))))))))" +" ns_131))))))))))" "(define-values" "(1/current-namespace)" "(make-parameter" "(make-namespace)" -"(lambda(v_89)" +"(lambda(v_0)" "(begin" -" (if (1/namespace? v_89) (void) (let-values () (raise-argument-error 'current-namespace \"namespace?\" v_89)))" -" v_89))))" +" (if (1/namespace? v_0) (void) (let-values () (raise-argument-error 'current-namespace \"namespace?\" v_0)))" +" v_0))))" "(define-values" "(namespace-get-root-expand-ctx)" -"(lambda(ns_2)(begin(force(unbox(namespace-root-expand-ctx ns_2))))))" +"(lambda(ns_0)(begin(force(unbox(namespace-root-expand-ctx ns_0))))))" "(define-values" "(namespace-set-root-expand-ctx!)" -"(lambda(ns_3 root-ctx_0)(begin(set-box!(namespace-root-expand-ctx ns_3) root-ctx_0))))" +"(lambda(ns_0 root-ctx_0)(begin(set-box!(namespace-root-expand-ctx ns_0) root-ctx_0))))" "(define-values" "(namespace-self-mpi)" -"(lambda(ns_4)(begin(root-expand-context-self-mpi(namespace-get-root-expand-ctx ns_4)))))" +"(lambda(ns_0)(begin(root-expand-context-self-mpi(namespace-get-root-expand-ctx ns_0)))))" "(define-values" "(namespace->module)" -"(lambda(ns_5 name_16)" +"(lambda(ns_0 name_0)" "(begin" -"(let-values(((or-part_138)(small-hash-ref(namespace-submodule-declarations ns_5) name_16 #f)))" -"(if or-part_138" -" or-part_138" -"(hash-ref(module-registry-declarations(namespace-module-registry$1 ns_5)) name_16 #f))))))" +"(let-values(((or-part_162)(small-hash-ref(namespace-submodule-declarations ns_0) name_0 #f)))" +"(if or-part_162" +" or-part_162" +"(hash-ref(module-registry-declarations(namespace-module-registry$1 ns_0)) name_0 #f))))))" "(define-values" "(namespace->namespace-at-phase)" -"(lambda(ns_6 phase_24)" +"(lambda(ns_0 phase_0)" "(begin" -"(let-values(((or-part_139)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_24 #f)))" -"(if or-part_139" -" or-part_139" -"(let-values(((p-ns_0)" -"(let-values(((the-struct_34) ns_6))" -"(if(1/namespace? the-struct_34)" -"(let-values(((phase21_0) phase_24))" +"(let-values(((or-part_165)(small-hash-ref(namespace-phase-to-namespace ns_0) phase_0 #f)))" +"(if or-part_165" +" or-part_165" +"(let-values(((p-ns_166)" +"(let-values(((the-struct_167) ns_0))" +"(if(1/namespace? the-struct_167)" +"(let-values(((phase21_168) phase_0))" "(namespace1.1" -"(namespace-mpi the-struct_34)" -"(namespace-source-name the-struct_34)" -"(namespace-root-expand-ctx the-struct_34)" -" phase21_0" -"(namespace-0-phase the-struct_34)" -"(namespace-phase-to-namespace the-struct_34)" -"(namespace-phase-level-to-definitions the-struct_34)" -"(namespace-module-registry$1 the-struct_34)" -"(namespace-bulk-binding-registry the-struct_34)" -"(namespace-submodule-declarations the-struct_34)" -"(namespace-root-namespace the-struct_34)" -"(namespace-declaration-inspector the-struct_34)" -"(namespace-inspector the-struct_34)" -"(namespace-available-module-instances the-struct_34)" -"(namespace-module-instances the-struct_34)))" -" (raise-argument-error 'struct-copy \"namespace?\" the-struct_34)))))" -"(begin(small-hash-set!(namespace-phase-to-namespace ns_6) phase_24 p-ns_0) p-ns_0)))))))" +"(namespace-mpi the-struct_167)" +"(namespace-source-name the-struct_167)" +"(namespace-root-expand-ctx the-struct_167)" +" phase21_168" +"(namespace-0-phase the-struct_167)" +"(namespace-phase-to-namespace the-struct_167)" +"(namespace-phase-level-to-definitions the-struct_167)" +"(namespace-module-registry$1 the-struct_167)" +"(namespace-bulk-binding-registry the-struct_167)" +"(namespace-submodule-declarations the-struct_167)" +"(namespace-root-namespace the-struct_167)" +"(namespace-declaration-inspector the-struct_167)" +"(namespace-inspector the-struct_167)" +"(namespace-available-module-instances the-struct_167)" +"(namespace-module-instances the-struct_167)))" +" (raise-argument-error 'struct-copy \"namespace?\" the-struct_167)))))" +"(begin(small-hash-set!(namespace-phase-to-namespace ns_0) phase_0 p-ns_166) p-ns_166)))))))" "(define-values" "(namespace->name)" -"(lambda(ns_7)" +"(lambda(ns_0)" "(begin" -"(let-values(((n_20)(namespace-source-name ns_7)))" -"(let-values(((s_166)" -"(if(not n_20)" +"(let-values(((n_170)(namespace-source-name ns_0)))" +"(let-values(((s_171)" +"(if(not n_170)" "(let-values() 'top-level)" -"(if(symbol? n_20)" -" (let-values () (format \"'~s\" n_20))" -" (let-values () (string-append \"\\\"\" (path->string n_20) \"\\\"\"))))))" -"(let-values(((r_24)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" -" (if (pair? r_24) (string-append \"(submod \" s_166 \" \" (substring (format \"~s\" (cdr r_24)) 1)) s_166)))))))" +"(if(symbol? n_170)" +" (let-values () (format \"'~s\" n_170))" +" (let-values () (string-append \"\\\"\" (path->string n_170) \"\\\"\"))))))" +"(let-values(((r_172)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_0)))))" +" (if (pair? r_172) (string-append \"(submod \" s_171 \" \" (substring (format \"~s\" (cdr r_172)) 1)) s_171)))))))" "(define-values" "(namespace->definitions)" -"(lambda(ns_8 phase-level_1)" +"(lambda(ns_0 phase-level_0)" "(begin" -"(let-values(((d_8)(small-hash-ref(namespace-phase-level-to-definitions ns_8) phase-level_1 #f)))" -"(let-values(((or-part_140) d_8))" -"(if or-part_140" -" or-part_140" +"(let-values(((d_175)(small-hash-ref(namespace-phase-level-to-definitions ns_0) phase-level_0 #f)))" +"(let-values(((or-part_176) d_175))" +"(if or-part_176" +" or-part_176" "(let-values()" -"(let-values(((p-ns_1)" -"(namespace->namespace-at-phase ns_8(phase+(namespace-0-phase ns_8) phase-level_1))))" -"(let-values(((d_9)(definitions2.1(1/make-instance(namespace->name p-ns_1) p-ns_1)(make-hasheq))))" -"(begin(small-hash-set!(namespace-phase-level-to-definitions ns_8) phase-level_1 d_9) d_9))))))))))" +"(let-values(((p-ns_177)" +"(namespace->namespace-at-phase ns_0(phase+(namespace-0-phase ns_0) phase-level_0))))" +"(let-values(((d_178)" +"(definitions2.1(1/make-instance(namespace->name p-ns_177) p-ns_177)(make-hasheq))))" +"(begin" +"(small-hash-set!(namespace-phase-level-to-definitions ns_0) phase-level_0 d_178)" +" d_178))))))))))" "(define-values" "(namespace-set-variable!)" -"(let-values(((namespace-set-variable!16_0)" -"(lambda(ns12_0 phase-level13_0 name14_1 val15_0 as-constant?11_0)" +"(let-values(((namespace-set-variable!16_179)" +"(lambda(ns12_0 phase-level13_0 name14_0 val15_0 as-constant?11_0)" "(begin" " 'namespace-set-variable!16" -"(let-values(((ns_9) ns12_0))" -"(let-values(((phase-level_2) phase-level13_0))" -"(let-values(((name_17) name14_1))" -"(let-values(((val_28) val15_0))" -"(let-values(((as-constant?_0) as-constant?11_0))" +"(let-values(((ns_185) ns12_0))" +"(let-values(((phase-level_186) phase-level13_0))" +"(let-values(((name_187) name14_0))" +"(let-values(((val_188) val15_0))" +"(let-values(((as-constant?_189) as-constant?11_0))" "(let-values()" -"(let-values(((d_10)(namespace->definitions ns_9 phase-level_2)))" +"(let-values(((d_190)(namespace->definitions ns_185 phase-level_186)))" "(1/instance-set-variable-value!" -"(definitions-variables d_10)" -" name_17" -" val_28" -"(if as-constant?_0 'constant #f)))))))))))))" +"(definitions-variables d_190)" +" name_187" +" val_188" +"(if as-constant?_189 'constant #f)))))))))))))" "(case-lambda" -"((ns_10 phase-level_3 name_18 val_29)(begin(namespace-set-variable!16_0 ns_10 phase-level_3 name_18 val_29 #f)))" -"((ns_11 phase-level_4 name_19 val_30 as-constant?11_1)" -"(namespace-set-variable!16_0 ns_11 phase-level_4 name_19 val_30 as-constant?11_1)))))" +"((ns_0 phase-level_0 name_0 val_0)(begin(namespace-set-variable!16_179 ns_0 phase-level_0 name_0 val_0 #f)))" +"((ns_0 phase-level_0 name_0 val_0 as-constant?11_0)" +"(namespace-set-variable!16_179 ns_0 phase-level_0 name_0 val_0 as-constant?11_0)))))" "(define-values" "(namespace-set-consistent!)" -"(lambda(ns_12 phase-level_5 name_20 val_31)" +"(lambda(ns_0 phase-level_0 name_0 val_0)" "(begin" -"(let-values(((d_11)(namespace->definitions ns_12 phase-level_5)))" -"(1/instance-set-variable-value!(definitions-variables d_11) name_20 val_31 'consistent)))))" +"(let-values(((d_204)(namespace->definitions ns_0 phase-level_0)))" +"(1/instance-set-variable-value!(definitions-variables d_204) name_0 val_0 'consistent)))))" "(define-values" "(namespace-unset-variable!)" -"(lambda(ns_13 phase-level_6 name_21)" +"(lambda(ns_0 phase-level_0 name_0)" "(begin" -"(let-values(((d_12)(namespace->definitions ns_13 phase-level_6)))" -"(1/instance-unset-variable!(definitions-variables d_12) name_21)))))" +"(let-values(((d_208)(namespace->definitions ns_0 phase-level_0)))" +"(1/instance-unset-variable!(definitions-variables d_208) name_0)))))" "(define-values" "(namespace-set-transformer!)" -"(lambda(ns_14 phase-level_7 name_22 val_32)" +"(lambda(ns_0 phase-level_0 name_0 val_0)" "(begin" -"(let-values(((d_13)(namespace->definitions ns_14(add1 phase-level_7))))" -"(hash-set!(definitions-transformers d_13) name_22 val_32)))))" +"(let-values(((d_213)(namespace->definitions ns_0(add1 phase-level_0))))" +"(hash-set!(definitions-transformers d_213) name_0 val_0)))))" "(define-values" "(namespace-unset-transformer!)" -"(lambda(ns_15 phase-level_8 name_23)" +"(lambda(ns_0 phase-level_0 name_0)" "(begin" -"(let-values(((d_14)(namespace->definitions ns_15(add1 phase-level_8))))" -"(hash-remove!(definitions-transformers d_14) name_23)))))" +"(let-values(((d_217)(namespace->definitions ns_0(add1 phase-level_0))))" +"(hash-remove!(definitions-transformers d_217) name_0)))))" "(define-values" "(namespace-get-variable)" -"(lambda(ns_16 phase-level_9 name_24 fail-k_0)" +"(lambda(ns_0 phase-level_0 name_0 fail-k_0)" "(begin" -"(let-values(((d_15)(namespace->definitions ns_16 phase-level_9)))" -"(1/instance-variable-value(definitions-variables d_15) name_24 fail-k_0)))))" +"(let-values(((d_222)(namespace->definitions ns_0 phase-level_0)))" +"(1/instance-variable-value(definitions-variables d_222) name_0 fail-k_0)))))" "(define-values" "(namespace-get-transformer)" -"(lambda(ns_17 phase-level_10 name_25 fail-k_1)" +"(lambda(ns_0 phase-level_0 name_0 fail-k_0)" "(begin" -"(let-values(((d_16)(namespace->definitions ns_17(add1 phase-level_10))))" -"(hash-ref(definitions-transformers d_16) name_25 fail-k_1)))))" +"(let-values(((d_227)(namespace->definitions ns_0(add1 phase-level_0))))" +"(hash-ref(definitions-transformers d_227) name_0 fail-k_0)))))" "(define-values" "(namespace->instance)" -"(lambda(ns_18 phase-shift_2)(begin(definitions-variables(namespace->definitions ns_18 phase-shift_2)))))" +"(lambda(ns_0 phase-shift_0)(begin(definitions-variables(namespace->definitions ns_0 phase-shift_0)))))" "(define-values" "(namespace-same-instance?)" "(lambda(a-ns_0 b-ns_0)" @@ -12360,249 +12467,249 @@ static const char *startup_source = "(lambda(s_0)" "(begin" " 'syntax->list" -"(let-values(((l_46)" -"((letrec-values(((loop_76)" +"(let-values(((l_2)" +"((letrec-values(((loop_3)" "(lambda(s_1)" "(begin" " 'loop" "(if(pair? s_1)" -"(let-values()(cons(car s_1)(loop_76(cdr s_1))))" +"(let-values()(cons(car s_1)(loop_3(cdr s_1))))" "(if(syntax?$1 s_1)" -"(let-values()(loop_76(syntax-e$1 s_1)))" +"(let-values()(loop_3(syntax-e$1 s_1)))" "(let-values() s_1)))))))" -" loop_76)" +" loop_3)" " s_0)))" -"(if(list? l_46) l_46 #f)))))" +"(if(list? l_2) l_2 #f)))))" "(define-values(missing$1)(gensym))" "(define-values" "(syntax-track-origin$1)" -"(let-values(((syntax-track-origin4_0)" +"(let-values(((syntax-track-origin4_1)" "(lambda(new-stx2_0 old-stx3_0 id1_0)" "(begin" " 'syntax-track-origin4" -"(let-values(((new-stx_0) new-stx2_0))" -"(let-values(((old-stx_0) old-stx3_0))" -"(let-values(((id_10)" +"(let-values(((new-stx_5) new-stx2_0))" +"(let-values(((old-stx_6) old-stx3_0))" +"(let-values(((id_7)" "(if(eq? id1_0 unsafe-undefined)" -"(if(identifier? old-stx_0)" -" old-stx_0" -"(let-values(((v_31)(syntax-e/no-taint old-stx_0)))" -"(if(pair? v_31)(car v_31) #f)))" +"(if(identifier? old-stx_6)" +" old-stx_6" +"(let-values(((v_8)(syntax-e/no-taint old-stx_6)))" +"(if(pair? v_8)(car v_8) #f)))" " id1_0)))" "(let-values()" -"(let-values(((old-props_0)(syntax-props old-stx_0)))" -"(if(zero?(hash-count old-props_0))" +"(let-values(((old-props_9)(syntax-props old-stx_6)))" +"(if(zero?(hash-count old-props_9))" "(let-values()" -"(if id_10" +"(if id_7" "(syntax-property$1" -" new-stx_0" +" new-stx_5" " 'origin" -"(cons id_10(hash-ref(syntax-props new-stx_0) 'origin null)))" -" new-stx_0))" +"(cons id_7(hash-ref(syntax-props new-stx_5) 'origin null)))" +" new-stx_5))" "(let-values()" -"(let-values(((new-props_0)(syntax-props new-stx_0)))" -"(if(zero?(hash-count new-props_0))" +"(let-values(((new-props_10)(syntax-props new-stx_5)))" +"(if(zero?(hash-count new-props_10))" "(let-values()" -"(if id_10" +"(if id_7" "(let-values()" -"(let-values(((old-origin_0)" +"(let-values(((old-origin_11)" "(plain-property-value" -"(hash-ref old-props_0 'origin missing$1))))" -"(let-values(((origin_0)" -"(if(eq? old-origin_0 missing$1)" -"(list id_10)" -"(cons id_10 old-origin_0))))" -"(let-values(((the-struct_35) new-stx_0))" -"(if(syntax?$1 the-struct_35)" -"(let-values(((props6_0)(hash-set old-props_0 'origin origin_0)))" +"(hash-ref old-props_9 'origin missing$1))))" +"(let-values(((origin_12)" +"(if(eq? old-origin_11 missing$1)" +"(list id_7)" +"(cons id_7 old-origin_11))))" +"(let-values(((the-struct_13) new-stx_5))" +"(if(syntax?$1 the-struct_13)" +"(let-values(((props6_14)(hash-set old-props_9 'origin origin_12)))" "(syntax1.1" -"(syntax-content the-struct_35)" -"(syntax-scopes the-struct_35)" -"(syntax-shifted-multi-scopes the-struct_35)" -"(syntax-scope-propagations+tamper the-struct_35)" -"(syntax-mpi-shifts the-struct_35)" -"(syntax-srcloc the-struct_35)" -" props6_0" -"(syntax-inspector the-struct_35)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_35))))))" +"(syntax-content the-struct_13)" +"(syntax-scopes the-struct_13)" +"(syntax-shifted-multi-scopes the-struct_13)" +"(syntax-scope-propagations+tamper the-struct_13)" +"(syntax-mpi-shifts the-struct_13)" +"(syntax-srcloc the-struct_13)" +" props6_14" +"(syntax-inspector the-struct_13)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_13))))))" "(let-values()" -"(let-values(((the-struct_36) new-stx_0))" -"(if(syntax?$1 the-struct_36)" -"(let-values(((props7_1) old-props_0))" +"(let-values(((the-struct_15) new-stx_5))" +"(if(syntax?$1 the-struct_15)" +"(let-values(((props7_16) old-props_9))" "(syntax1.1" -"(syntax-content the-struct_36)" -"(syntax-scopes the-struct_36)" -"(syntax-shifted-multi-scopes the-struct_36)" -"(syntax-scope-propagations+tamper the-struct_36)" -"(syntax-mpi-shifts the-struct_36)" -"(syntax-srcloc the-struct_36)" -" props7_1" -"(syntax-inspector the-struct_36)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_36))))))" +"(syntax-content the-struct_15)" +"(syntax-scopes the-struct_15)" +"(syntax-shifted-multi-scopes the-struct_15)" +"(syntax-scope-propagations+tamper the-struct_15)" +"(syntax-mpi-shifts the-struct_15)" +"(syntax-srcloc the-struct_15)" +" props7_16" +"(syntax-inspector the-struct_15)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_15))))))" "(let-values()" -"(let-values(((old-props-with-origin_0)" -"(if id_10" +"(let-values(((old-props-with-origin_17)" +"(if id_7" "(hash-set" -" old-props_0" +" old-props_9" " 'origin" -"(cons id_10(hash-ref old-props_0 'origin null)))" -" old-props_0)))" -"(let-values(((updated-props_0)" +"(cons id_7(hash-ref old-props_9 'origin null)))" +" old-props_9)))" +"(let-values(((updated-props_18)" "(if(<" -"(hash-count old-props-with-origin_0)" -"(hash-count new-props_0))" +"(hash-count old-props-with-origin_17)" +"(hash-count new-props_10))" "(let-values()" -"(let-values(((ht_69) old-props-with-origin_0))" +"(let-values(((ht_19) old-props-with-origin_17))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_69)))" -"((letrec-values(((for-loop_83)" -"(lambda(new-props_1 i_88)" -"(begin" -" 'for-loop" -"(if i_88" -"(let-values(((k_18 v_2)" -"(unsafe-immutable-hash-iterate-key+value" -" ht_69" -" i_88)))" -"(let-values(((new-props_2)" -"(let-values(((new-props_3)" -" new-props_1))" -"(let-values(((new-props_4)" -"(let-values()" -"(let-values(((new-v_0)" -"(hash-ref" -" new-props_3" -" k_18" -" missing$1)))" -"(hash-set" -" new-props_3" -" k_18" -"(if(eq?" -" new-v_0" -" missing$1)" -" v_2" -"(cons/preserve" -" new-v_0" -" v_2)))))))" -"(values" -" new-props_4)))))" -"(if(not #f)" -"(for-loop_83" -" new-props_2" -"(unsafe-immutable-hash-iterate-next" -" ht_69" -" i_88))" -" new-props_2)))" -" new-props_1)))))" -" for-loop_83)" -" new-props_0" -"(unsafe-immutable-hash-iterate-first ht_69)))))" -"(let-values()" -"(let-values(((ht_70) new-props_0))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-in-immutable-hash ht_70)))" -"((letrec-values(((for-loop_84)" -"(lambda(old-props_1 i_0)" +"(let-values()(check-in-immutable-hash ht_19)))" +"((letrec-values(((for-loop_20)" +"(lambda(new-props_0 i_0)" "(begin" " 'for-loop" "(if i_0" -"(let-values(((k_19 v_78)" +"(let-values(((k_23 v_24)" "(unsafe-immutable-hash-iterate-key+value" -" ht_70" +" ht_19" " i_0)))" -"(let-values(((old-props_2)" -"(let-values(((old-props_3)" -" old-props_1))" -"(let-values(((old-props_4)" +"(let-values(((new-props_25)" +"(let-values(((new-props_26)" +" new-props_0))" +"(let-values(((new-props_27)" "(let-values()" -"(let-values(((old-v_0)" +"(let-values(((new-v_28)" "(hash-ref" -" old-props_3" -" k_19" +" new-props_26" +" k_23" " missing$1)))" "(hash-set" -" old-props_3" -" k_19" +" new-props_26" +" k_23" "(if(eq?" -" old-v_0" +" new-v_28" " missing$1)" -" v_78" +" v_24" "(cons/preserve" -" v_78" -" old-v_0)))))))" +" new-v_28" +" v_24)))))))" "(values" -" old-props_4)))))" +" new-props_27)))))" "(if(not #f)" -"(for-loop_84" -" old-props_2" +"(for-loop_20" +" new-props_25" "(unsafe-immutable-hash-iterate-next" -" ht_70" +" ht_19" " i_0))" -" old-props_2)))" -" old-props_1)))))" -" for-loop_84)" -" old-props-with-origin_0" -"(unsafe-immutable-hash-iterate-first ht_70))))))))" -"(let-values(((the-struct_37) new-stx_0))" -"(if(syntax?$1 the-struct_37)" -"(let-values(((props8_0) updated-props_0))" +" new-props_25)))" +" new-props_0)))))" +" for-loop_20)" +" new-props_10" +"(unsafe-immutable-hash-iterate-first ht_19)))))" +"(let-values()" +"(let-values(((ht_29) new-props_10))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-in-immutable-hash ht_29)))" +"((letrec-values(((for-loop_30)" +"(lambda(old-props_0 i_0)" +"(begin" +" 'for-loop" +"(if i_0" +"(let-values(((k_33 v_34)" +"(unsafe-immutable-hash-iterate-key+value" +" ht_29" +" i_0)))" +"(let-values(((old-props_35)" +"(let-values(((old-props_36)" +" old-props_0))" +"(let-values(((old-props_37)" +"(let-values()" +"(let-values(((old-v_38)" +"(hash-ref" +" old-props_36" +" k_33" +" missing$1)))" +"(hash-set" +" old-props_36" +" k_33" +"(if(eq?" +" old-v_38" +" missing$1)" +" v_34" +"(cons/preserve" +" v_34" +" old-v_38)))))))" +"(values" +" old-props_37)))))" +"(if(not #f)" +"(for-loop_30" +" old-props_35" +"(unsafe-immutable-hash-iterate-next" +" ht_29" +" i_0))" +" old-props_35)))" +" old-props_0)))))" +" for-loop_30)" +" old-props-with-origin_17" +"(unsafe-immutable-hash-iterate-first ht_29))))))))" +"(let-values(((the-struct_39) new-stx_5))" +"(if(syntax?$1 the-struct_39)" +"(let-values(((props8_40) updated-props_18))" "(syntax1.1" -"(syntax-content the-struct_37)" -"(syntax-scopes the-struct_37)" -"(syntax-shifted-multi-scopes the-struct_37)" -"(syntax-scope-propagations+tamper the-struct_37)" -"(syntax-mpi-shifts the-struct_37)" -"(syntax-srcloc the-struct_37)" -" props8_0" -"(syntax-inspector the-struct_37)))" +"(syntax-content the-struct_39)" +"(syntax-scopes the-struct_39)" +"(syntax-shifted-multi-scopes the-struct_39)" +"(syntax-scope-propagations+tamper the-struct_39)" +"(syntax-mpi-shifts the-struct_39)" +"(syntax-srcloc the-struct_39)" +" props8_40" +"(syntax-inspector the-struct_39)))" "(raise-argument-error" " 'struct-copy" " \"syntax?\"" -" the-struct_37)))))))))))))))))))" +" the-struct_39)))))))))))))))))))" "(case-lambda" -"((new-stx_1 old-stx_1)(begin 'syntax-track-origin(syntax-track-origin4_0 new-stx_1 old-stx_1 unsafe-undefined)))" -"((new-stx_2 old-stx_2 id1_1)(syntax-track-origin4_0 new-stx_2 old-stx_2 id1_1)))))" +"((new-stx_0 old-stx_0)(begin 'syntax-track-origin(syntax-track-origin4_1 new-stx_0 old-stx_0 unsafe-undefined)))" +"((new-stx_0 old-stx_0 id1_0)(syntax-track-origin4_1 new-stx_0 old-stx_0 id1_0)))))" "(define-values" "(cons/preserve)" -"(lambda(a_35 b_49)" +"(lambda(a_0 b_0)" "(begin" -"(if(let-values(((or-part_67)(preserved-property-value? a_35)))" -"(if or-part_67 or-part_67(preserved-property-value? b_49)))" -"(preserved-property-value1.1(cons(plain-property-value a_35)(plain-property-value b_49)))" -"(cons a_35 b_49)))))" +"(if(let-values(((or-part_48)(preserved-property-value? a_0)))" +"(if or-part_48 or-part_48(preserved-property-value? b_0)))" +"(preserved-property-value1.1(cons(plain-property-value a_0)(plain-property-value b_0)))" +"(cons a_0 b_0)))))" "(define-values" "(syntax-track-origin*)" -"(lambda(old-stxes_0 new-stx_3)" +"(lambda(old-stxes_0 new-stx_0)" "(begin" -"(let-values(((lst_58) old-stxes_0))" +"(let-values(((lst_51) old-stxes_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_58)))" -"((letrec-values(((for-loop_85)" -"(lambda(new-stx_4 lst_24)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_51)))" +"((letrec-values(((for-loop_52)" +"(lambda(new-stx_1 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_24)" -"(let-values(((old-stx_3)(unsafe-car lst_24))((rest_26)(unsafe-cdr lst_24)))" -"(let-values(((new-stx_5)" -"(let-values(((new-stx_6) new-stx_4))" -"(let-values(((new-stx_7)" +"(if(pair? lst_0)" +"(let-values(((old-stx_55)(unsafe-car lst_0))((rest_56)(unsafe-cdr lst_0)))" +"(let-values(((new-stx_57)" +"(let-values(((new-stx_58) new-stx_1))" +"(let-values(((new-stx_59)" "(let-values()" -"(syntax-track-origin$1 new-stx_6 old-stx_3))))" -"(values new-stx_7)))))" -"(if(not #f)(for-loop_85 new-stx_5 rest_26) new-stx_5)))" -" new-stx_4)))))" -" for-loop_85)" -" new-stx_3" -" lst_58))))))" +"(syntax-track-origin$1 new-stx_58 old-stx_55))))" +"(values new-stx_59)))))" +"(if(not #f)(for-loop_52 new-stx_57 rest_56) new-stx_57)))" +" new-stx_1)))))" +" for-loop_52)" +" new-stx_0" +" lst_51))))))" "(define-values" "(1/struct:exn:fail:syntax make-exn:fail:syntax$1 1/exn:fail:syntax? 1/exn:fail:syntax-exprs)" -"(let-values(((struct:_20 make-_20 ?_20 -ref_20 -set!_20)" +"(let-values(((struct:_3 make-_4 ?_5 -ref_6 -set!_7)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12614,21 +12721,21 @@ static const char *startup_source = "(list" "(cons" " prop:exn:srclocs" -"(lambda(e_15)(filter values(map2 syntax-srcloc(1/exn:fail:syntax-exprs e_15))))))" +"(lambda(e_0)(filter values(map2 syntax-srcloc(1/exn:fail:syntax-exprs e_0))))))" " #f" " #f" " '(0)" -"(lambda(str_1 cm_0 exprs_0 info_1)" +"(lambda(str_0 cm_0 exprs_0 info_0)" "(begin" "(if(if(list? exprs_0)(andmap2 syntax?$1 exprs_0) #f)" "(void)" " (let-values () (raise-argument-error 'exn:fail:syntax \"(listof syntax?)\" exprs_0)))" -"(values str_1 cm_0 exprs_0)))" +"(values str_0 cm_0 exprs_0)))" " 'exn:fail:syntax)))))" -"(values struct:_20 make-_20 ?_20(make-struct-field-accessor -ref_20 0 'exprs))))" +"(values struct:_3 make-_4 ?_5(make-struct-field-accessor -ref_6 0 'exprs))))" "(define-values" "(1/struct:exn:fail:syntax:unbound make-exn:fail:syntax:unbound$1 1/exn:fail:syntax:unbound?)" -"(let-values(((struct:_29 make-_29 ?_29 -ref_29 -set!_29)" +"(let-values(((struct:_28 make-_29 ?_30 -ref_31 -set!_32)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12643,173 +12750,178 @@ static const char *startup_source = " '()" " #f" " 'exn:fail:syntax:unbound)))))" -"(values struct:_29 make-_29 ?_29)))" +"(values struct:_28 make-_29 ?_30)))" "(define-values" "(raise-syntax-error$1)" -"(let-values(((raise-syntax-error7_0)" +"(let-values(((raise-syntax-error7_43)" "(lambda(given-name5_0 message6_0 expr1_0 sub-expr2_0 extra-sources3_0 message-suffix4_0)" "(begin" " 'raise-syntax-error7" -"(let-values(((given-name_0) given-name5_0))" -"(let-values(((message_0) message6_0))" -"(let-values(((expr_0) expr1_0))" -"(let-values(((sub-expr_0) sub-expr2_0))" -"(let-values(((extra-sources_0) extra-sources3_0))" -"(let-values(((message-suffix_0) message-suffix4_0))" +"(let-values(((given-name_50) given-name5_0))" +"(let-values(((message_51) message6_0))" +"(let-values(((expr_52) expr1_0))" +"(let-values(((sub-expr_53) sub-expr2_0))" +"(let-values(((extra-sources_54) extra-sources3_0))" +"(let-values(((message-suffix_55) message-suffix4_0))" "(let-values()" "(let-values()" "(let-values()" "(do-raise-syntax-error" " 'raise-syntax-error" " make-exn:fail:syntax$1" -" given-name_0" -" message_0" -" expr_0" -" sub-expr_0" -" extra-sources_0" -" message-suffix_0))))))))))))))" +" given-name_50" +" message_51" +" expr_52" +" sub-expr_53" +" extra-sources_54" +" message-suffix_55))))))))))))))" "(case-lambda" -" ((given-name_1 message_1) (begin 'raise-syntax-error (raise-syntax-error7_0 given-name_1 message_1 #f #f null \"\")))" -"((given-name_2 message_2 expr_1 sub-expr_1 extra-sources_1 message-suffix4_1)" -"(raise-syntax-error7_0 given-name_2 message_2 expr_1 sub-expr_1 extra-sources_1 message-suffix4_1))" -"((given-name_3 message_3 expr_2 sub-expr_2 extra-sources3_1)" -" (raise-syntax-error7_0 given-name_3 message_3 expr_2 sub-expr_2 extra-sources3_1 \"\"))" -"((given-name_4 message_4 expr_3 sub-expr2_1)" -" (raise-syntax-error7_0 given-name_4 message_4 expr_3 sub-expr2_1 null \"\"))" -" ((given-name_5 message_5 expr1_1) (raise-syntax-error7_0 given-name_5 message_5 expr1_1 #f null \"\")))))" +"((given-name_0 message_0)" +" (begin 'raise-syntax-error (raise-syntax-error7_43 given-name_0 message_0 #f #f null \"\")))" +"((given-name_0 message_0 expr_0 sub-expr_0 extra-sources_0 message-suffix4_0)" +"(raise-syntax-error7_43 given-name_0 message_0 expr_0 sub-expr_0 extra-sources_0 message-suffix4_0))" +"((given-name_0 message_0 expr_0 sub-expr_0 extra-sources3_0)" +" (raise-syntax-error7_43 given-name_0 message_0 expr_0 sub-expr_0 extra-sources3_0 \"\"))" +"((given-name_0 message_0 expr_0 sub-expr2_0)" +" (raise-syntax-error7_43 given-name_0 message_0 expr_0 sub-expr2_0 null \"\"))" +" ((given-name_0 message_0 expr1_0) (raise-syntax-error7_43 given-name_0 message_0 expr1_0 #f null \"\")))))" "(define-values" "(raise-unbound-syntax-error)" -"(let-values(((raise-unbound-syntax-error15_0)" +"(let-values(((raise-unbound-syntax-error15_77)" "(lambda(given-name13_0 message14_0 expr9_0 sub-expr10_0 extra-sources11_0 message-suffix12_0)" "(begin" " 'raise-unbound-syntax-error15" -"(let-values(((given-name_6) given-name13_0))" -"(let-values(((message_6) message14_0))" -"(let-values(((expr_4) expr9_0))" -"(let-values(((sub-expr_3) sub-expr10_0))" -"(let-values(((extra-sources_2) extra-sources11_0))" -"(let-values(((message-suffix_1) message-suffix12_0))" +"(let-values(((given-name_84) given-name13_0))" +"(let-values(((message_85) message14_0))" +"(let-values(((expr_86) expr9_0))" +"(let-values(((sub-expr_87) sub-expr10_0))" +"(let-values(((extra-sources_88) extra-sources11_0))" +"(let-values(((message-suffix_89) message-suffix12_0))" "(let-values()" "(let-values()" "(let-values()" "(do-raise-syntax-error" " 'raise-unbound-syntax-error" " make-exn:fail:syntax:unbound$1" -" given-name_6" -" message_6" -" expr_4" -" sub-expr_3" -" extra-sources_2" -" message-suffix_1))))))))))))))" +" given-name_84" +" message_85" +" expr_86" +" sub-expr_87" +" extra-sources_88" +" message-suffix_89))))))))))))))" "(case-lambda" -" ((given-name_7 message_7) (begin (raise-unbound-syntax-error15_0 given-name_7 message_7 #f #f null \"\")))" -"((given-name_8 message_8 expr_5 sub-expr_4 extra-sources_3 message-suffix12_1)" -"(raise-unbound-syntax-error15_0 given-name_8 message_8 expr_5 sub-expr_4 extra-sources_3 message-suffix12_1))" -"((given-name_9 message_9 expr_6 sub-expr_5 extra-sources11_1)" -" (raise-unbound-syntax-error15_0 given-name_9 message_9 expr_6 sub-expr_5 extra-sources11_1 \"\"))" -"((given-name_10 message_10 expr_7 sub-expr10_1)" -" (raise-unbound-syntax-error15_0 given-name_10 message_10 expr_7 sub-expr10_1 null \"\"))" -"((given-name_11 message_11 expr9_1)" -" (raise-unbound-syntax-error15_0 given-name_11 message_11 expr9_1 #f null \"\")))))" +" ((given-name_0 message_0) (begin (raise-unbound-syntax-error15_77 given-name_0 message_0 #f #f null \"\")))" +"((given-name_0 message_0 expr_0 sub-expr_0 extra-sources_0 message-suffix12_0)" +"(raise-unbound-syntax-error15_77 given-name_0 message_0 expr_0 sub-expr_0 extra-sources_0 message-suffix12_0))" +"((given-name_0 message_0 expr_0 sub-expr_0 extra-sources11_0)" +" (raise-unbound-syntax-error15_77 given-name_0 message_0 expr_0 sub-expr_0 extra-sources11_0 \"\"))" +"((given-name_0 message_0 expr_0 sub-expr10_0)" +" (raise-unbound-syntax-error15_77 given-name_0 message_0 expr_0 sub-expr10_0 null \"\"))" +" ((given-name_0 message_0 expr9_0) (raise-unbound-syntax-error15_77 given-name_0 message_0 expr9_0 #f null \"\")))))" "(define-values" "(do-raise-syntax-error)" -"(lambda(who_8 exn:fail:syntax_0 given-name_12 message_12 expr_8 sub-expr_6 extra-sources_4 message-suffix_2)" +"(lambda(who_0 exn:fail:syntax_0 given-name_0 message_0 expr_0 sub-expr_0 extra-sources_0 message-suffix_0)" "(begin" "(let-values((()" "(begin" -"(if((lambda(x_39)" -"(let-values(((or-part_99)(not x_39)))(if or-part_99 or-part_99(symbol? x_39))))" -" given-name_12)" +"(if((lambda(x_0)" +"(let-values(((or-part_124)(not x_0)))(if or-part_124 or-part_124(symbol? x_0))))" +" given-name_0)" "(void)" -" (let-values () (raise-argument-error who_8 \"(or/c symbol? #f)\" given-name_12)))" +" (let-values () (raise-argument-error who_0 \"(or/c symbol? #f)\" given-name_0)))" "(values))))" "(let-values((()" "(begin" -"(if(string? message_12)" -"(void)" -" (let-values () (raise-argument-error who_8 \"string?\" message_12)))" +" (if (string? message_0) (void) (let-values () (raise-argument-error who_0 \"string?\" message_0)))" "(values))))" "(let-values((()" "(begin" -"(if(if(list? extra-sources_4)(andmap2 syntax?$1 extra-sources_4) #f)" +"(if(if(list? extra-sources_0)(andmap2 syntax?$1 extra-sources_0) #f)" "(void)" -" (let-values () (raise-argument-error who_8 \"(listof syntax?)\" extra-sources_4)))" +" (let-values () (raise-argument-error who_0 \"(listof syntax?)\" extra-sources_0)))" "(values))))" "(let-values((()" "(begin" -"(if(string? message-suffix_2)" +"(if(string? message-suffix_0)" "(void)" -" (let-values () (raise-argument-error who_8 \"string?\" message-suffix_2)))" +" (let-values () (raise-argument-error who_0 \"string?\" message-suffix_0)))" "(values))))" -"(let-values(((name_26)" +"(let-values(((name_119)" "(format" " \"~a\"" -"(let-values(((or-part_136) given-name_12))" -"(if or-part_136" -" or-part_136" -"(let-values(((or-part_141)(extract-form-name expr_8)))" -"(if or-part_141 or-part_141 '?)))))))" -"(let-values(((at-message_0)" -"(let-values(((or-part_142)" -"(if sub-expr_6" +"(let-values(((or-part_125) given-name_0))" +"(if or-part_125" +" or-part_125" +"(let-values(((or-part_126)(extract-form-name expr_0)))" +"(if or-part_126 or-part_126 '?)))))))" +"(let-values(((at-message_120)" +"(let-values(((or-part_127)" +"(if sub-expr_0" "(if(error-print-source-location)" -" (format \"\\n at: ~.s\" (syntax->datum$1 (datum->syntax$1 #f sub-expr_6)))" +" (format \"\\n at: ~.s\" (syntax->datum$1 (datum->syntax$1 #f sub-expr_0)))" " #f)" " #f)))" -" (if or-part_142 or-part_142 \"\"))))" -"(let-values(((in-message_0)" -"(let-values(((or-part_135)" -"(if expr_8" +" (if or-part_127 or-part_127 \"\"))))" +"(let-values(((in-message_121)" +"(let-values(((or-part_128)" +"(if expr_0" "(if(error-print-source-location)" -" (format \"\\n in: ~.s\" (syntax->datum$1 (datum->syntax$1 #f expr_8)))" +" (format \"\\n in: ~.s\" (syntax->datum$1 (datum->syntax$1 #f expr_0)))" " #f)" " #f)))" -" (if or-part_135 or-part_135 \"\"))))" -"(let-values(((src-loc-str_0)" -"(let-values(((or-part_143)" +" (if or-part_128 or-part_128 \"\"))))" +"(let-values(((src-loc-str_122)" +"(let-values(((or-part_129)" "(if(error-print-source-location)" -"(let-values(((or-part_144)(extract-source-location sub-expr_6)))" -"(if or-part_144 or-part_144(extract-source-location expr_8)))" +"(let-values(((or-part_130)(extract-source-location sub-expr_0)))" +"(if or-part_130 or-part_130(extract-source-location expr_0)))" " #f)))" -" (if or-part_143 or-part_143 \"\"))))" +" (if or-part_129 or-part_129 \"\"))))" "(raise" "(exn:fail:syntax_0" -" (string-append src-loc-str_0 name_26 \": \" message_12 at-message_0 in-message_0 message-suffix_2)" +"(string-append" +" src-loc-str_122" +" name_119" +" \": \"" +" message_0" +" at-message_120" +" in-message_121" +" message-suffix_0)" "(current-continuation-marks)" "(map2" " syntax-taint$1" -"(if(let-values(((or-part_145) sub-expr_6))(if or-part_145 or-part_145 expr_8))" +"(if(let-values(((or-part_131) sub-expr_0))(if or-part_131 or-part_131 expr_0))" "(cons" "(datum->syntax$1" " #f" -"(let-values(((or-part_137) sub-expr_6))(if or-part_137 or-part_137 expr_8)))" -" extra-sources_4)" -" extra-sources_4)))))))))))))))" +"(let-values(((or-part_132) sub-expr_0))(if or-part_132 or-part_132 expr_0)))" +" extra-sources_0)" +" extra-sources_0)))))))))))))))" "(define-values" "(extract-form-name)" -"(lambda(s_70)" +"(lambda(s_0)" "(begin" -"(if(syntax?$1 s_70)" +"(if(syntax?$1 s_0)" "(let-values()" -"(let-values(((e_16)(syntax-e$1 s_70)))" -"(if(symbol? e_16)" -"(let-values() e_16)" -"(if(if(pair? e_16)(identifier?(car e_16)) #f)" -"(let-values()(syntax-e$1(car e_16)))" +"(let-values(((e_134)(syntax-e$1 s_0)))" +"(if(symbol? e_134)" +"(let-values() e_134)" +"(if(if(pair? e_134)(identifier?(car e_134)) #f)" +"(let-values()(syntax-e$1(car e_134)))" "(let-values() #f)))))" "(let-values() #f)))))" "(define-values" "(extract-source-location)" -"(lambda(s_26)" +"(lambda(s_0)" "(begin" -"(if(syntax?$1 s_26)" -"(if(syntax-srcloc s_26)" -" (let-values (((str_2) (srcloc->string (syntax-srcloc s_26)))) (if str_2 (string-append str_2 \": \") #f))" +"(if(syntax?$1 s_0)" +"(if(syntax-srcloc s_0)" +" (let-values (((str_136) (srcloc->string (syntax-srcloc s_0)))) (if str_136 (string-append str_136 \": \") #f))" " #f)" " #f))))" "(define-values" "(struct:module-use module-use1.1 module-use? module-use-module module-use-phase)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12822,39 +12934,39 @@ static const char *startup_source = "(cons" " prop:equal+hash" "(list" -"(lambda(a_36 b_22 eql?_2)" -"(let-values(((a-mod_0)(module-use-module a_36)))" -"(let-values(((b-mod_0)(module-use-module b_22)))" -"(if(eql?_2 a-mod_0 b-mod_0)" -"(if(eql?_2(module-use-phase a_36)(module-use-phase b_22))" -"(let-values(((a-path_0 a-base_0)(1/module-path-index-split a-mod_0))" -"((b-path_0 b-base_0)(1/module-path-index-split b-mod_0)))" -"(let-values(((or-part_78) a-path_0))" -"(if or-part_78" -" or-part_78" -"(let-values(((or-part_79) b-path_0))" -"(if or-part_79" -" or-part_79" +"(lambda(a_0 b_0 eql?_0)" +"(let-values(((a-mod_29)(module-use-module a_0)))" +"(let-values(((b-mod_30)(module-use-module b_0)))" +"(if(eql?_0 a-mod_29 b-mod_30)" +"(if(eql?_0(module-use-phase a_0)(module-use-phase b_0))" +"(let-values(((a-path_31 a-base_32)(1/module-path-index-split a-mod_29))" +"((b-path_33 b-base_34)(1/module-path-index-split b-mod_30)))" +"(let-values(((or-part_35) a-path_31))" +"(if or-part_35" +" or-part_35" +"(let-values(((or-part_36) b-path_33))" +"(if or-part_36" +" or-part_36" "(eq?" -"(module-path-index-resolved a-mod_0)" -"(module-path-index-resolved b-mod_0)))))))" +"(module-path-index-resolved a-mod_29)" +"(module-path-index-resolved b-mod_30)))))))" " #f)" " #f))))" -"(lambda(a_37 hash-code_4)" -"(+(hash-code_4(module-use-module a_37))(hash-code_4(module-use-phase a_37))))" -"(lambda(a_38 hash-code_5)" -"(+(hash-code_5(module-use-module a_38))(hash-code_5(module-use-phase a_38)))))))" +"(lambda(a_0 hash-code_0)" +"(+(hash-code_0(module-use-module a_0))(hash-code_0(module-use-phase a_0))))" +"(lambda(a_0 hash-code_0)" +"(+(hash-code_0(module-use-module a_0))(hash-code_0(module-use-phase a_0)))))))" "(current-inspector)" " #f" " '(0 1)" " #f" " 'module-use)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 'module)" -"(make-struct-field-accessor -ref_0 1 'phase))))" +" struct:_1" +" make-_2" +" ?_3" +"(make-struct-field-accessor -ref_4 0 'module)" +"(make-struct-field-accessor -ref_4 1 'phase))))" "(define-values" "(struct:module" " module1.1" @@ -12880,7 +12992,7 @@ static const char *startup_source = " module-supermodule-name" " module-get-all-variables" " set-module-access!)" -"(let-values(((struct:_1 make-_1 ?_1 -ref_1 -set!_1)" +"(let-values(((struct:_21 make-_22 ?_23 -ref_24 -set!_25)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12896,30 +13008,30 @@ static const char *startup_source = " #f" " 'module)))))" "(values" -" struct:_1" -" make-_1" -" ?_1" -"(make-struct-field-accessor -ref_1 0 'source-name)" -"(make-struct-field-accessor -ref_1 1 'self)" -"(make-struct-field-accessor -ref_1 2 'requires)" -"(make-struct-field-accessor -ref_1 3 'provides)" -"(make-struct-field-accessor -ref_1 4 'access)" -"(make-struct-field-accessor -ref_1 5 'language-info)" -"(make-struct-field-accessor -ref_1 6 'min-phase-level)" -"(make-struct-field-accessor -ref_1 7 'max-phase-level)" -"(make-struct-field-accessor -ref_1 8 'phase-level-linklet-info-callback)" -"(make-struct-field-accessor -ref_1 9 'force-bulk-binding)" -"(make-struct-field-accessor -ref_1 10 'prepare-instance)" -"(make-struct-field-accessor -ref_1 11 'instantiate-phase)" -"(make-struct-field-accessor -ref_1 12 'primitive?)" -"(make-struct-field-accessor -ref_1 13 'is-predefined?)" -"(make-struct-field-accessor -ref_1 14 'cross-phase-persistent?)" -"(make-struct-field-accessor -ref_1 15 'no-protected?)" -"(make-struct-field-accessor -ref_1 16 'inspector)" -"(make-struct-field-accessor -ref_1 17 'submodule-names)" -"(make-struct-field-accessor -ref_1 18 'supermodule-name)" -"(make-struct-field-accessor -ref_1 19 'get-all-variables)" -"(make-struct-field-mutator -set!_1 4 'access))))" +" struct:_21" +" make-_22" +" ?_23" +"(make-struct-field-accessor -ref_24 0 'source-name)" +"(make-struct-field-accessor -ref_24 1 'self)" +"(make-struct-field-accessor -ref_24 2 'requires)" +"(make-struct-field-accessor -ref_24 3 'provides)" +"(make-struct-field-accessor -ref_24 4 'access)" +"(make-struct-field-accessor -ref_24 5 'language-info)" +"(make-struct-field-accessor -ref_24 6 'min-phase-level)" +"(make-struct-field-accessor -ref_24 7 'max-phase-level)" +"(make-struct-field-accessor -ref_24 8 'phase-level-linklet-info-callback)" +"(make-struct-field-accessor -ref_24 9 'force-bulk-binding)" +"(make-struct-field-accessor -ref_24 10 'prepare-instance)" +"(make-struct-field-accessor -ref_24 11 'instantiate-phase)" +"(make-struct-field-accessor -ref_24 12 'primitive?)" +"(make-struct-field-accessor -ref_24 13 'is-predefined?)" +"(make-struct-field-accessor -ref_24 14 'cross-phase-persistent?)" +"(make-struct-field-accessor -ref_24 15 'no-protected?)" +"(make-struct-field-accessor -ref_24 16 'inspector)" +"(make-struct-field-accessor -ref_24 17 'submodule-names)" +"(make-struct-field-accessor -ref_24 18 'supermodule-name)" +"(make-struct-field-accessor -ref_24 19 'get-all-variables)" +"(make-struct-field-mutator -set!_25 4 'access))))" "(define-values" "(struct:module-linklet-info" " module-linklet-info2.1" @@ -12930,7 +13042,7 @@ static const char *startup_source = " module-linklet-info-inspector" " module-linklet-info-extra-inspector" " module-linklet-info-extra-inspectorsss)" -"(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)" +"(let-values(((struct:_136 make-_137 ?_138 -ref_139 -set!_140)" "(let-values()" "(let-values()" "(make-struct-type" @@ -12946,15 +13058,15 @@ static const char *startup_source = " #f" " 'module-linklet-info)))))" "(values" -" struct:_30" -" make-_30" -" ?_30" -"(make-struct-field-accessor -ref_30 0 'linklet-or-instance)" -"(make-struct-field-accessor -ref_30 1 'module-uses)" -"(make-struct-field-accessor -ref_30 2 'self)" -"(make-struct-field-accessor -ref_30 3 'inspector)" -"(make-struct-field-accessor -ref_30 4 'extra-inspector)" -"(make-struct-field-accessor -ref_30 5 'extra-inspectorsss))))" +" struct:_136" +" make-_137" +" ?_138" +"(make-struct-field-accessor -ref_139 0 'linklet-or-instance)" +"(make-struct-field-accessor -ref_139 1 'module-uses)" +"(make-struct-field-accessor -ref_139 2 'self)" +"(make-struct-field-accessor -ref_139 3 'inspector)" +"(make-struct-field-accessor -ref_139 4 'extra-inspector)" +"(make-struct-field-accessor -ref_139 5 'extra-inspectorsss))))" "(define-values" "(make-module39.1)" "(lambda(cross-phase-persistent?16_0" @@ -12977,62 +13089,62 @@ static const char *startup_source = " supermodule-name19_0)" "(begin" " 'make-module39" -"(let-values(((source-name_0) source-name3_0))" -"(let-values(((self_4) self4_0))" -"(let-values(((requires_0) requires5_0))" -"(let-values(((provides_3) provides6_0))" -"(let-values(((min-phase-level_0) min-phase-level7_0))" -"(let-values(((max-phase-level_0) max-phase-level8_0))" -"(let-values(((instantiate-phase_0) instantiate-phase-callback9_0))" -"(let-values(((force-bulk-binding_0)" +"(let-values(((source-name_201) source-name3_0))" +"(let-values(((self_202) self4_0))" +"(let-values(((requires_203) requires5_0))" +"(let-values(((provides_204) provides6_0))" +"(let-values(((min-phase-level_205) min-phase-level7_0))" +"(let-values(((max-phase-level_206) max-phase-level8_0))" +"(let-values(((instantiate-phase_207) instantiate-phase-callback9_0))" +"(let-values(((force-bulk-binding_208)" "(if(eq? force-bulk-binding-callback10_0 unsafe-undefined)" " void" " force-bulk-binding-callback10_0)))" -"(let-values(((prepare-instance_0)" +"(let-values(((prepare-instance_209)" "(if(eq? prepare-instance-callback11_0 unsafe-undefined)" " void" " prepare-instance-callback11_0)))" -"(let-values(((phase-level-linklet-info-callback_0)" +"(let-values(((phase-level-linklet-info-callback_210)" "(if(eq? phase-level-linklet-info-callback12_0 unsafe-undefined)" -"(lambda(phase-level_11 ns_19 insp_4)" +"(lambda(phase-level_0 ns_0 insp_0)" "(begin 'phase-level-linklet-info-callback #f))" " phase-level-linklet-info-callback12_0)))" -"(let-values(((language-info_0) language-info13_0))" -"(let-values(((primitive?_0) primitive?14_0))" -"(let-values(((predefined?_0) predefined?15_0))" -"(let-values(((cross-phase-persistent?_0)" +"(let-values(((language-info_214) language-info13_0))" +"(let-values(((primitive?_215) primitive?14_0))" +"(let-values(((predefined?_216) predefined?15_0))" +"(let-values(((cross-phase-persistent?_217)" "(if(eq? cross-phase-persistent?16_0 unsafe-undefined)" -" primitive?_0" +" primitive?_215" " cross-phase-persistent?16_0)))" -"(let-values(((no-protected?_0) no-protected?17_0))" -"(let-values(((submodule-names_0) submodule-names18_0))" -"(let-values(((supermodule-name_0) supermodule-name19_0))" -"(let-values(((get-all-variables_0)" +"(let-values(((no-protected?_218) no-protected?17_0))" +"(let-values(((submodule-names_219) submodule-names18_0))" +"(let-values(((supermodule-name_220) supermodule-name19_0))" +"(let-values(((get-all-variables_221)" "(if(eq? get-all-variables20_0 unsafe-undefined)" "(lambda()(begin 'get-all-variables null))" " get-all-variables20_0)))" "(let-values()" "(module1.1" -" source-name_0" -" self_4" -"(unresolve-requires requires_0)" -" provides_3" +" source-name_201" +" self_202" +"(unresolve-requires requires_203)" +" provides_204" " #f" -" language-info_0" -" min-phase-level_0" -" max-phase-level_0" -" phase-level-linklet-info-callback_0" -" force-bulk-binding_0" -" prepare-instance_0" -" instantiate-phase_0" -" primitive?_0" -" predefined?_0" -" cross-phase-persistent?_0" -" no-protected?_0" +" language-info_214" +" min-phase-level_205" +" max-phase-level_206" +" phase-level-linklet-info-callback_210" +" force-bulk-binding_208" +" prepare-instance_209" +" instantiate-phase_207" +" primitive?_215" +" predefined?_216" +" cross-phase-persistent?_217" +" no-protected?_218" "(current-code-inspector)" -" submodule-names_0" -" supermodule-name_0" -" get-all-variables_0)))))))))))))))))))))))" +" submodule-names_219" +" supermodule-name_220" +" get-all-variables_221)))))))))))))))))))))))" "(define-values" "(struct:module-instance" " module-instance42.1" @@ -13047,7 +13159,7 @@ static const char *startup_source = " set-module-instance-shifted-requires!" " set-module-instance-made-available?!" " set-module-instance-attached?!)" -"(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)" +"(let-values(((struct:_295 make-_296 ?_297 -ref_298 -set!_299)" "(let-values()" "(let-values()" "(make-struct-type" @@ -13063,193 +13175,198 @@ static const char *startup_source = " #f" " 'module-instance)))))" "(values" -" struct:_31" -" make-_31" -" ?_31" -"(make-struct-field-accessor -ref_31 0 'namespace)" -"(make-struct-field-accessor -ref_31 1 'module)" -"(make-struct-field-accessor -ref_31 2 'shifted-requires)" -"(make-struct-field-accessor -ref_31 3 'phase-level-to-state)" -"(make-struct-field-accessor -ref_31 4 'made-available?)" -"(make-struct-field-accessor -ref_31 5 'attached?)" -"(make-struct-field-accessor -ref_31 6 'data-box)" -"(make-struct-field-mutator -set!_31 2 'shifted-requires)" -"(make-struct-field-mutator -set!_31 4 'made-available?)" -"(make-struct-field-mutator -set!_31 5 'attached?))))" +" struct:_295" +" make-_296" +" ?_297" +"(make-struct-field-accessor -ref_298 0 'namespace)" +"(make-struct-field-accessor -ref_298 1 'module)" +"(make-struct-field-accessor -ref_298 2 'shifted-requires)" +"(make-struct-field-accessor -ref_298 3 'phase-level-to-state)" +"(make-struct-field-accessor -ref_298 4 'made-available?)" +"(make-struct-field-accessor -ref_298 5 'attached?)" +"(make-struct-field-accessor -ref_298 6 'data-box)" +"(make-struct-field-mutator -set!_299 2 'shifted-requires)" +"(make-struct-field-mutator -set!_299 4 'made-available?)" +"(make-struct-field-mutator -set!_299 5 'attached?))))" "(define-values" "(make-module-instance)" -"(lambda(m-ns_0 m_1)(begin(module-instance42.1 m-ns_0 m_1 #f(make-small-hasheqv) #f #f(box #f)))))" +"(lambda(m-ns_0 m_0)(begin(module-instance42.1 m-ns_0 m_0 #f(make-small-hasheqv) #f #f(box #f)))))" "(define-values" "(make-module-namespace50.1)" "(lambda(for-submodule?45_0 mpi43_0 root-expand-context44_0 ns49_0)" "(begin" " 'make-module-namespace50" -"(let-values(((ns_20) ns49_0))" -"(let-values(((name-mpi_0) mpi43_0))" -"(let-values(((root-expand-ctx_1) root-expand-context44_0))" -"(let-values(((for-submodule?_0) for-submodule?45_0))" +"(let-values(((ns_355) ns49_0))" +"(let-values(((name-mpi_356) mpi43_0))" +"(let-values(((root-expand-ctx_357) root-expand-context44_0))" +"(let-values(((for-submodule?_358) for-submodule?45_0))" "(let-values()" -"(let-values(((phase_28) 0))" -"(let-values(((name_27)(1/module-path-index-resolve name-mpi_0)))" -"(let-values(((m-ns_1)" -"(let-values(((the-struct_38)" -"(let-values(((ns158_0) ns_20)" -"((root-expand-ctx159_0) root-expand-ctx_1)" -"((temp160_0) #f))" -"(new-namespace8.1 temp160_0 root-expand-ctx159_0 ns158_0))))" -"(if(1/namespace? the-struct_38)" -"(let-values(((mpi150_0) name-mpi_0)" -"((source-name151_0)(resolved-module-path-root-name name_27))" -"((phase152_0) phase_28)" -"((0-phase153_0) phase_28)" -"((submodule-declarations154_0)" -"(if for-submodule?_0" -"(namespace-submodule-declarations ns_20)" +"(let-values(((phase_359) 0))" +"(let-values(((name_360)(1/module-path-index-resolve name-mpi_356)))" +"(let-values(((m-ns_361)" +"(let-values(((the-struct_363)" +"(let-values(((ns158_365) ns_355)" +"((root-expand-ctx159_366) root-expand-ctx_357)" +"((temp160_367) #f))" +"(new-namespace8.1 temp160_367 root-expand-ctx159_366 ns158_365))))" +"(if(1/namespace? the-struct_363)" +"(let-values(((mpi150_368) name-mpi_356)" +"((source-name151_369)(resolved-module-path-root-name name_360))" +"((phase152_370) phase_359)" +"((0-phase153_371) phase_359)" +"((submodule-declarations154_372)" +"(if for-submodule?_358" +"(namespace-submodule-declarations ns_355)" "(make-small-hasheq)))" -"((available-module-instances155_0)(make-hasheqv))" -"((module-instances156_0)(make-hasheqv))" -"((declaration-inspector157_0)(current-code-inspector)))" +"((available-module-instances155_373)(make-hasheqv))" +"((module-instances156_374)(make-hasheqv))" +"((declaration-inspector157_375)(current-code-inspector)))" "(namespace1.1" -" mpi150_0" -" source-name151_0" -"(namespace-root-expand-ctx the-struct_38)" -" phase152_0" -" 0-phase153_0" -"(namespace-phase-to-namespace the-struct_38)" -"(namespace-phase-level-to-definitions the-struct_38)" -"(namespace-module-registry$1 the-struct_38)" -"(namespace-bulk-binding-registry the-struct_38)" -" submodule-declarations154_0" -"(namespace-root-namespace the-struct_38)" -" declaration-inspector157_0" -"(namespace-inspector the-struct_38)" -" available-module-instances155_0" -" module-instances156_0))" -" (raise-argument-error 'struct-copy \"namespace?\" the-struct_38)))))" +" mpi150_368" +" source-name151_369" +"(namespace-root-expand-ctx the-struct_363)" +" phase152_370" +" 0-phase153_371" +"(namespace-phase-to-namespace the-struct_363)" +"(namespace-phase-level-to-definitions the-struct_363)" +"(namespace-module-registry$1 the-struct_363)" +"(namespace-bulk-binding-registry the-struct_363)" +" submodule-declarations154_372" +"(namespace-root-namespace the-struct_363)" +" declaration-inspector157_375" +"(namespace-inspector the-struct_363)" +" available-module-instances155_373" +" module-instances156_374))" +" (raise-argument-error 'struct-copy \"namespace?\" the-struct_363)))))" "(let-values((()" "(begin" -"(small-hash-set!(namespace-phase-to-namespace m-ns_1) phase_28 m-ns_1)" +"(small-hash-set!(namespace-phase-to-namespace m-ns_361) phase_359 m-ns_361)" "(values))))" -"(let-values(((at-phase_0)(make-hasheq)))" +"(let-values(((at-phase_362)(make-hasheq)))" "(begin" -"(hash-set!(namespace-module-instances m-ns_1) phase_28 at-phase_0)" -"(hash-set! at-phase_0 name_27(make-module-instance m-ns_1 #f))" -" m-ns_1))))))))))))))" +"(hash-set!(namespace-module-instances m-ns_361) phase_359 at-phase_362)" +"(hash-set! at-phase_362 name_360(make-module-instance m-ns_361 #f))" +" m-ns_361))))))))))))))" "(define-values" "(declare-module!58.1)" "(lambda(with-submodules?53_0 ns55_0 m56_0 mod-name57_0)" "(begin" " 'declare-module!58" -"(let-values(((ns_21) ns55_0))" -"(let-values(((m_2) m56_0))" -"(let-values(((mod-name_4) mod-name57_0))" -"(let-values(((with-submodules?_0) with-submodules?53_0))" +"(let-values(((ns_398) ns55_0))" +"(let-values(((m_399) m56_0))" +"(let-values(((mod-name_400) mod-name57_0))" +"(let-values(((with-submodules?_401) with-submodules?53_0))" "(let-values()" -"(let-values(((prior-m_0)" -"(if with-submodules?_0" +"(let-values(((prior-m_402)" +"(if with-submodules?_401" "(hash-ref" -"(module-registry-declarations(namespace-module-registry$1 ns_21))" -" mod-name_4" +"(module-registry-declarations(namespace-module-registry$1 ns_398))" +" mod-name_400" " #f)" " #f)))" -"(let-values(((prior-mi_0)" -"(if prior-m_0" -"(if(not(eq? m_2 prior-m_0))" -"(let-values(((ns161_0) ns_21)" -"((mod-name162_0) mod-name_4)" -"((temp163_0)(namespace-phase ns_21)))" +"(let-values(((prior-mi_403)" +"(if prior-m_402" +"(if(not(eq? m_399 prior-m_402))" +"(let-values(((ns161_404) ns_398)" +"((mod-name162_405) mod-name_400)" +"((temp163_406)(namespace-phase ns_398)))" "(namespace->module-instance70.1" " #f" " #f" " unsafe-undefined" -" ns161_0" -" mod-name162_0" -" temp163_0))" +" ns161_404" +" mod-name162_405" +" temp163_406))" " #f)" " #f)))" "(begin" -"(if(if prior-m_0(not(eq? m_2 prior-m_0)) #f)" -"(let-values()(check-redeclaration-ok prior-m_0 prior-mi_0 mod-name_4))" +"(if(if prior-m_402(not(eq? m_399 prior-m_402)) #f)" +"(let-values()(check-redeclaration-ok prior-m_402 prior-mi_403 mod-name_400))" "(void))" -"(if with-submodules?_0" -"(hash-set!(module-registry-declarations(namespace-module-registry$1 ns_21)) mod-name_4 m_2)" -"(small-hash-set!(namespace-submodule-declarations ns_21) mod-name_4 m_2))" -"(if with-submodules?_0" +"(if with-submodules?_401" +"(hash-set!" +"(module-registry-declarations(namespace-module-registry$1 ns_398))" +" mod-name_400" +" m_399)" +"(small-hash-set!(namespace-submodule-declarations ns_398) mod-name_400 m_399))" +"(if with-submodules?_401" "(let-values()" "(begin" "(register-bulk-provide!" -"(namespace-bulk-binding-registry ns_21)" -" mod-name_4" -"(module-self m_2)" -"(module-provides m_2))" -"((1/current-module-name-resolver) mod-name_4 #f)))" +"(namespace-bulk-binding-registry ns_398)" +" mod-name_400" +"(module-self m_399)" +"(module-provides m_399))" +"((1/current-module-name-resolver) mod-name_400 #f)))" "(void))" -"(if prior-mi_0" +"(if prior-mi_403" "(let-values()" -"(let-values(((m-ns_2)(module-instance-namespace prior-mi_0)))" -"(let-values(((states_0)(module-instance-phase-level-to-state prior-mi_0)))" -"(let-values(((phase_29)(namespace-phase ns_21)))" -"(let-values(((visit?_0)(eq? 'started(small-hash-ref states_0(add1 phase_29) #f))))" -"(let-values(((run?_0)(eq? 'started(small-hash-ref states_0 phase_29 #f))))" -"(let-values(((at-phase_1)(hash-ref(namespace-module-instances ns_21) phase_29)))" +"(let-values(((m-ns_407)(module-instance-namespace prior-mi_403)))" +"(let-values(((states_408)(module-instance-phase-level-to-state prior-mi_403)))" +"(let-values(((phase_409)(namespace-phase ns_398)))" +"(let-values(((visit?_410)" +"(eq? 'started(small-hash-ref states_408(add1 phase_409) #f))))" +"(let-values(((run?_411)(eq? 'started(small-hash-ref states_408 phase_409 #f))))" +"(let-values(((at-phase_412)" +"(hash-ref(namespace-module-instances ns_398) phase_409)))" "(begin" -"(hash-set! at-phase_1 mod-name_4(make-module-instance m-ns_2 m_2))" -"(if visit?_0" +"(hash-set! at-phase_412 mod-name_400(make-module-instance m-ns_407 m_399))" +"(if visit?_410" "(let-values()" -"(let-values(((ns164_0) ns_21)" -"((temp165_0)(namespace-mpi m-ns_2))" -"((phase166_0) phase_29))" +"(let-values(((ns164_413) ns_398)" +"((temp165_414)(namespace-mpi m-ns_407))" +"((phase166_415) phase_409))" "(namespace-module-visit!104.1" " unsafe-undefined" -" ns164_0" -" temp165_0" -" phase166_0)))" +" ns164_413" +" temp165_414" +" phase166_415)))" "(void))" -"(if run?_0" +"(if run?_411" "(let-values()" -"(let-values(((ns167_0) ns_21)" -"((temp168_0)(namespace-mpi m-ns_2))" -"((phase169_0) phase_29))" +"(let-values(((ns167_416) ns_398)" +"((temp168_417)(namespace-mpi m-ns_407))" +"((phase169_418) phase_409))" "(namespace-module-instantiate!96.1" " #t" " unsafe-undefined" " unsafe-undefined" " #f" -" ns167_0" -" temp168_0" -" phase169_0)))" +" ns167_416" +" temp168_417" +" phase169_418)))" "(void))))))))))" "(void)))))))))))))" "(define-values" "(check-redeclaration-ok)" -"(lambda(prior-m_1 prior-mi_1 mod-name_5)" +"(lambda(prior-m_0 prior-mi_0 mod-name_0)" "(begin" "(begin" -"(if(module-cross-phase-persistent? prior-m_1)" +"(if(module-cross-phase-persistent? prior-m_0)" "(let-values()" -" (raise-arguments-error 'module \"cannot redeclare cross-phase persistent module\" \"module name\" mod-name_5))" +" (raise-arguments-error 'module \"cannot redeclare cross-phase persistent module\" \"module name\" mod-name_0))" "(void))" -"(if(if prior-mi_1" -"(let-values(((or-part_146)(module-instance-attached? prior-mi_1)))" -"(if or-part_146" -" or-part_146" +"(if(if prior-mi_0" +"(let-values(((or-part_442)(module-instance-attached? prior-mi_0)))" +"(if or-part_442" +" or-part_442" "(not" "(inspector-superior?" "(current-code-inspector)" -"(namespace-inspector(module-instance-namespace prior-mi_1))))))" +"(namespace-inspector(module-instance-namespace prior-mi_0))))))" " #f)" "(let-values()" -" (raise-arguments-error 'module \"current code inspector cannot redeclare module\" \"module name\" mod-name_5))" +" (raise-arguments-error 'module \"current code inspector cannot redeclare module\" \"module name\" mod-name_0))" "(void))))))" "(define-values" "(raise-unknown-module-error)" -" (lambda (who_9 mod-name_6) (begin (raise-arguments-error who_9 \"unknown module\" \"module name\" mod-name_6))))" +" (lambda (who_0 mod-name_0) (begin (raise-arguments-error who_0 \"unknown module\" \"module name\" mod-name_0))))" "(define-values" "(namespace->module-linklet-info)" -"(lambda(ns_22 name_28 phase-level_12)" +"(lambda(ns_0 name_0 phase-level_0)" "(begin" -"(let-values(((m_3)(namespace->module ns_22 name_28)))" -"(if m_3((module-phase-level-linklet-info-callback m_3) phase-level_12 ns_22(module-inspector m_3)) #f)))))" +"(let-values(((m_448)(namespace->module ns_0 name_0)))" +"(if m_448((module-phase-level-linklet-info-callback m_448) phase-level_0 ns_0(module-inspector m_448)) #f)))))" "(define-values" "(namespace->module-instance70.1)" "(lambda(check-available-at-phase-level62_0" @@ -13260,184 +13377,190 @@ static const char *startup_source = " 0-phase69_0)" "(begin" " 'namespace->module-instance70" -"(let-values(((ns_23) ns67_0))" -"(let-values(((name_29) name68_0))" -"(let-values(((0-phase_1) 0-phase69_0))" -"(let-values(((complain-on-failure?_0) complain-on-failure?61_0))" -"(let-values(((check-available-at-phase-level_0) check-available-at-phase-level62_0))" -"(let-values(((unavailable-callback_0)" +"(let-values(((ns_455) ns67_0))" +"(let-values(((name_456) name68_0))" +"(let-values(((0-phase_457) 0-phase69_0))" +"(let-values(((complain-on-failure?_458) complain-on-failure?61_0))" +"(let-values(((check-available-at-phase-level_459) check-available-at-phase-level62_0))" +"(let-values(((unavailable-callback_460)" "(if(eq? unavailable-callback63_0 unsafe-undefined) void unavailable-callback63_0)))" "(let-values()" -"(let-values(((mi_0)" -"(let-values(((or-part_147)" +"(let-values(((mi_461)" +"(let-values(((or-part_462)" "(hash-ref" -"(hash-ref(namespace-module-instances ns_23) 0-phase_1 '#hasheq())" -" name_29" +"(hash-ref(namespace-module-instances ns_455) 0-phase_457 '#hasheq())" +" name_456" " #f)))" -"(if or-part_147" -" or-part_147" -"(let-values(((or-part_148)" -"(let-values(((c-ns_0)" -"(let-values(((or-part_149)" -"(namespace-root-namespace ns_23)))" -"(if or-part_149 or-part_149 ns_23))))" -"(hash-ref(namespace-module-instances c-ns_0) name_29 #f))))" -"(if or-part_148" -" or-part_148" -"(if complain-on-failure?_0" -" (error \"no module instance found:\" name_29 0-phase_1)" +"(if or-part_462" +" or-part_462" +"(let-values(((or-part_463)" +"(let-values(((c-ns_464)" +"(let-values(((or-part_465)" +"(namespace-root-namespace ns_455)))" +"(if or-part_465 or-part_465 ns_455))))" +"(hash-ref(namespace-module-instances c-ns_464) name_456 #f))))" +"(if or-part_463" +" or-part_463" +"(if complain-on-failure?_458" +" (error \"no module instance found:\" name_456 0-phase_457)" " #f)))))))" -"(if(if mi_0 check-available-at-phase-level_0 #f)" -"(check-availablilty mi_0 check-available-at-phase-level_0 unavailable-callback_0)" -" mi_0))))))))))))" +"(if(if mi_461 check-available-at-phase-level_459 #f)" +"(check-availablilty mi_461 check-available-at-phase-level_459 unavailable-callback_460)" +" mi_461))))))))))))" "(define-values" "(namespace-install-module-namespace!)" -"(lambda(ns_24 name_30 0-phase_2 m_4 existing-m-ns_0)" +"(lambda(ns_0 name_0 0-phase_0 m_0 existing-m-ns_0)" "(begin" -"(let-values(((m-ns_3)" -"(let-values(((the-struct_39) ns_24))" -"(if(1/namespace? the-struct_39)" -"(let-values(((mpi170_0)(namespace-mpi existing-m-ns_0))" -"((source-name171_0)(namespace-source-name existing-m-ns_0))" -"((root-expand-ctx172_0)(box(unbox(namespace-root-expand-ctx existing-m-ns_0))))" -"((phase173_0)(namespace-phase existing-m-ns_0))" -"((0-phase174_0)(namespace-0-phase existing-m-ns_0))" -"((phase-to-namespace175_0)(make-small-hasheqv))" -"((phase-level-to-definitions176_0)" -"(if(module-cross-phase-persistent? m_4)" +"(let-values(((m-ns_503)" +"(let-values(((the-struct_505) ns_0))" +"(if(1/namespace? the-struct_505)" +"(let-values(((mpi170_506)(namespace-mpi existing-m-ns_0))" +"((source-name171_507)(namespace-source-name existing-m-ns_0))" +"((root-expand-ctx172_508)" +"(box(unbox(namespace-root-expand-ctx existing-m-ns_0))))" +"((phase173_509)(namespace-phase existing-m-ns_0))" +"((0-phase174_510)(namespace-0-phase existing-m-ns_0))" +"((phase-to-namespace175_511)(make-small-hasheqv))" +"((phase-level-to-definitions176_512)" +"(if(module-cross-phase-persistent? m_0)" "(namespace-phase-level-to-definitions existing-m-ns_0)" "(make-small-hasheqv)))" -"((declaration-inspector177_0)(module-inspector m_4))" -"((inspector178_0)(namespace-inspector existing-m-ns_0)))" +"((declaration-inspector177_513)(module-inspector m_0))" +"((inspector178_514)(namespace-inspector existing-m-ns_0)))" "(namespace1.1" -" mpi170_0" -" source-name171_0" -" root-expand-ctx172_0" -" phase173_0" -" 0-phase174_0" -" phase-to-namespace175_0" -" phase-level-to-definitions176_0" -"(namespace-module-registry$1 the-struct_39)" -"(namespace-bulk-binding-registry the-struct_39)" -"(namespace-submodule-declarations the-struct_39)" -"(namespace-root-namespace the-struct_39)" -" declaration-inspector177_0" -" inspector178_0" -"(namespace-available-module-instances the-struct_39)" -"(namespace-module-instances the-struct_39)))" -" (raise-argument-error 'struct-copy \"namespace?\" the-struct_39)))))" -"(let-values(((mi_1)(make-module-instance m-ns_3 m_4)))" -"(if(module-cross-phase-persistent? m_4)" +" mpi170_506" +" source-name171_507" +" root-expand-ctx172_508" +" phase173_509" +" 0-phase174_510" +" phase-to-namespace175_511" +" phase-level-to-definitions176_512" +"(namespace-module-registry$1 the-struct_505)" +"(namespace-bulk-binding-registry the-struct_505)" +"(namespace-submodule-declarations the-struct_505)" +"(namespace-root-namespace the-struct_505)" +" declaration-inspector177_513" +" inspector178_514" +"(namespace-available-module-instances the-struct_505)" +"(namespace-module-instances the-struct_505)))" +" (raise-argument-error 'struct-copy \"namespace?\" the-struct_505)))))" +"(let-values(((mi_504)(make-module-instance m-ns_503 m_0)))" +"(if(module-cross-phase-persistent? m_0)" "(let-values()" "(begin" -"(small-hash-set!(namespace-phase-to-namespace m-ns_3) 0 m-ns_3)" +"(small-hash-set!(namespace-phase-to-namespace m-ns_503) 0 m-ns_503)" "(small-hash-set!" -"(namespace-phase-level-to-definitions m-ns_3)" +"(namespace-phase-level-to-definitions m-ns_503)" " 0" "(namespace->definitions existing-m-ns_0 0))" -"(small-hash-set!(namespace-phase-to-namespace m-ns_3) 1(namespace->namespace-at-phase m-ns_3 1))" +"(small-hash-set!(namespace-phase-to-namespace m-ns_503) 1(namespace->namespace-at-phase m-ns_503 1))" "(small-hash-set!" -"(namespace-phase-level-to-definitions m-ns_3)" +"(namespace-phase-level-to-definitions m-ns_503)" " 1" "(namespace->definitions existing-m-ns_0 1))" "(hash-set!" "(namespace-module-instances" -"(let-values(((or-part_150)(namespace-root-namespace ns_24)))(if or-part_150 or-part_150 ns_24)))" -" name_30" -" mi_1)" -"(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)))" +"(let-values(((or-part_515)(namespace-root-namespace ns_0)))(if or-part_515 or-part_515 ns_0)))" +" name_0" +" mi_504)" +"(small-hash-set!(module-instance-phase-level-to-state mi_504) 0 'started)))" "(let-values()" "(let-values((()" -"(begin(small-hash-set!(namespace-phase-to-namespace m-ns_3) 0-phase_2 m-ns_3)(values))))" +"(begin" +"(small-hash-set!(namespace-phase-to-namespace m-ns_503) 0-phase_0 m-ns_503)" +"(values))))" "(let-values((()" "(begin" "(small-hash-set!" -"(namespace-phase-level-to-definitions m-ns_3)" +"(namespace-phase-level-to-definitions m-ns_503)" " 0" "(namespace->definitions existing-m-ns_0 0))" "(values))))" "(let-values((()" "(begin" -"(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)" +"(small-hash-set!(module-instance-phase-level-to-state mi_504) 0 'started)" "(values))))" -"(let-values(((at-phase_2)" -"(let-values(((or-part_151)" -"(hash-ref(namespace-module-instances ns_24) 0-phase_2 #f)))" -"(if or-part_151" -" or-part_151" -"(let-values(((at-phase_3)(make-hasheq)))" +"(let-values(((at-phase_516)" +"(let-values(((or-part_517)" +"(hash-ref(namespace-module-instances ns_0) 0-phase_0 #f)))" +"(if or-part_517" +" or-part_517" +"(let-values(((at-phase_518)(make-hasheq)))" "(begin" -"(hash-set!(namespace-module-instances ns_24) 0-phase_2 at-phase_3)" -" at-phase_3))))))" -"(hash-set! at-phase_2 name_30 mi_1))))))))))))" +"(hash-set!(namespace-module-instances ns_0) 0-phase_0 at-phase_518)" +" at-phase_518))))))" +"(hash-set! at-phase_516 name_0 mi_504))))))))))))" "(define-values" "(namespace-create-module-instance!)" -"(lambda(ns_25 name_31 0-phase_3 m_5 mpi_15)" +"(lambda(ns_0 name_0 0-phase_0 m_0 mpi_0)" "(begin" -"(let-values(((m-ns_4)" -"(let-values(((the-struct_40) ns_25))" -"(if(1/namespace? the-struct_40)" -"(let-values(((mpi179_0) mpi_15)" -"((source-name180_0)" -"(let-values(((or-part_152)(module-source-name m_5)))" -"(if or-part_152" -" or-part_152" -"(resolved-module-path-root-name(1/module-path-index-resolve mpi_15)))))" -"((root-expand-ctx181_0)(box #f))" -"((phase182_0) 0-phase_3)" -"((0-phase183_0) 0-phase_3)" -"((phase-to-namespace184_0)(make-small-hasheqv))" -"((phase-level-to-definitions185_0)(make-small-hasheqv))" -"((declaration-inspector186_0)(module-inspector m_5))" -"((inspector187_0)(make-inspector(module-inspector m_5))))" +"(let-values(((m-ns_524)" +"(let-values(((the-struct_526) ns_0))" +"(if(1/namespace? the-struct_526)" +"(let-values(((mpi179_527) mpi_0)" +"((source-name180_528)" +"(let-values(((or-part_536)(module-source-name m_0)))" +"(if or-part_536" +" or-part_536" +"(resolved-module-path-root-name(1/module-path-index-resolve mpi_0)))))" +"((root-expand-ctx181_529)(box #f))" +"((phase182_530) 0-phase_0)" +"((0-phase183_531) 0-phase_0)" +"((phase-to-namespace184_532)(make-small-hasheqv))" +"((phase-level-to-definitions185_533)(make-small-hasheqv))" +"((declaration-inspector186_534)(module-inspector m_0))" +"((inspector187_535)(make-inspector(module-inspector m_0))))" "(namespace1.1" -" mpi179_0" -" source-name180_0" -" root-expand-ctx181_0" -" phase182_0" -" 0-phase183_0" -" phase-to-namespace184_0" -" phase-level-to-definitions185_0" -"(namespace-module-registry$1 the-struct_40)" -"(namespace-bulk-binding-registry the-struct_40)" -"(namespace-submodule-declarations the-struct_40)" -"(namespace-root-namespace the-struct_40)" -" declaration-inspector186_0" -" inspector187_0" -"(namespace-available-module-instances the-struct_40)" -"(namespace-module-instances the-struct_40)))" -" (raise-argument-error 'struct-copy \"namespace?\" the-struct_40)))))" -"(let-values((()(begin(small-hash-set!(namespace-phase-to-namespace m-ns_4) 0-phase_3 m-ns_4)(values))))" -"(let-values(((mi_2)(make-module-instance m-ns_4 m_5)))" +" mpi179_527" +" source-name180_528" +" root-expand-ctx181_529" +" phase182_530" +" 0-phase183_531" +" phase-to-namespace184_532" +" phase-level-to-definitions185_533" +"(namespace-module-registry$1 the-struct_526)" +"(namespace-bulk-binding-registry the-struct_526)" +"(namespace-submodule-declarations the-struct_526)" +"(namespace-root-namespace the-struct_526)" +" declaration-inspector186_534" +" inspector187_535" +"(namespace-available-module-instances the-struct_526)" +"(namespace-module-instances the-struct_526)))" +" (raise-argument-error 'struct-copy \"namespace?\" the-struct_526)))))" +"(let-values((()(begin(small-hash-set!(namespace-phase-to-namespace m-ns_524) 0-phase_0 m-ns_524)(values))))" +"(let-values(((mi_525)(make-module-instance m-ns_524 m_0)))" "(begin" -"(if(module-cross-phase-persistent? m_5)" -"(hash-set!(namespace-module-instances ns_25) name_31 mi_2)" -"(let-values(((at-phase_4)" -"(let-values(((or-part_153)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" -"(if or-part_153" -" or-part_153" -"(let-values(((at-phase_5)(make-hasheq)))" +"(if(module-cross-phase-persistent? m_0)" +"(hash-set!(namespace-module-instances ns_0) name_0 mi_525)" +"(let-values(((at-phase_537)" +"(let-values(((or-part_538)(hash-ref(namespace-module-instances ns_0) 0-phase_0 #f)))" +"(if or-part_538" +" or-part_538" +"(let-values(((at-phase_539)(make-hasheq)))" "(begin" -"(hash-set!(namespace-module-instances ns_25) 0-phase_3 at-phase_5)" -" at-phase_5))))))" -"(hash-set! at-phase_4 name_31 mi_2)))" -" mi_2)))))))" +"(hash-set!(namespace-module-instances ns_0) 0-phase_0 at-phase_539)" +" at-phase_539))))))" +"(hash-set! at-phase_537 name_0 mi_525)))" +" mi_525)))))))" "(define-values" "(check-availablilty)" -"(lambda(mi_3 check-available-at-phase-level_1 unavailable-callback_1)" +"(lambda(mi_0 check-available-at-phase-level_0 unavailable-callback_0)" "(begin" -"(let-values(((m_6)(module-instance-module mi_3)))" -"(if(if m_6" -"(if(<=(module-min-phase-level m_6)(add1 check-available-at-phase-level_1)(module-max-phase-level m_6))" +"(let-values(((m_543)(module-instance-module mi_0)))" +"(if(if m_543" +"(if(<=" +"(module-min-phase-level m_543)" +"(add1 check-available-at-phase-level_0)" +"(module-max-phase-level m_543))" "(not" "(small-hash-ref" -"(module-instance-phase-level-to-state mi_3)" -"(add1 check-available-at-phase-level_1)" +"(module-instance-phase-level-to-state mi_0)" +"(add1 check-available-at-phase-level_0)" " #f))" " #f)" " #f)" -"(unavailable-callback_1 mi_3)" -" mi_3)))))" +"(unavailable-callback_0 mi_0)" +" mi_0)))))" "(define-values" "(namespace->module-namespace82.1)" "(lambda(check-available-at-phase-level74_0" @@ -13448,437 +13571,439 @@ static const char *startup_source = " 0-phase81_0)" "(begin" " 'namespace->module-namespace82" -"(let-values(((ns_26) ns79_0))" -"(let-values(((name_32) name80_0))" -"(let-values(((0-phase_4) 0-phase81_0))" -"(let-values(((complain-on-failure?_1) complain-on-failure?73_0))" -"(let-values(((check-available-at-phase-level_2) check-available-at-phase-level74_0))" -"(let-values(((unavailable-callback_2)" +"(let-values(((ns_550) ns79_0))" +"(let-values(((name_551) name80_0))" +"(let-values(((0-phase_552) 0-phase81_0))" +"(let-values(((complain-on-failure?_553) complain-on-failure?73_0))" +"(let-values(((check-available-at-phase-level_554) check-available-at-phase-level74_0))" +"(let-values(((unavailable-callback_555)" "(if(eq? unavailable-callback75_0 unsafe-undefined) void unavailable-callback75_0)))" "(let-values()" -"(let-values(((mi_4)" -"(let-values(((ns188_0) ns_26)" -"((name189_0) name_32)" -"((0-phase190_0) 0-phase_4)" -"((complain-on-failure?191_0) complain-on-failure?_1)" -"((check-available-at-phase-level192_0) check-available-at-phase-level_2)" -"((unavailable-callback193_0) unavailable-callback_2))" +"(let-values(((mi_556)" +"(let-values(((ns188_558) ns_550)" +"((name189_559) name_551)" +"((0-phase190_560) 0-phase_552)" +"((complain-on-failure?191_561) complain-on-failure?_553)" +"((check-available-at-phase-level192_562)" +" check-available-at-phase-level_554)" +"((unavailable-callback193_563) unavailable-callback_555))" "(namespace->module-instance70.1" -" check-available-at-phase-level192_0" -" complain-on-failure?191_0" -" unavailable-callback193_0" -" ns188_0" -" name189_0" -" 0-phase190_0))))" -"(if mi_4(module-instance-namespace mi_4) #f))))))))))))" +" check-available-at-phase-level192_562" +" complain-on-failure?191_561" +" unavailable-callback193_563" +" ns188_558" +" name189_559" +" 0-phase190_560))))" +"(if mi_556(module-instance-namespace mi_556) #f))))))))))))" "(define-values" "(namespace-record-module-instance-attached!)" -"(lambda(ns_27 mod-name_7 phase_30)" +"(lambda(ns_0 mod-name_0 phase_0)" "(begin" -"(let-values(((mi_5)" -"(let-values(((ns194_0) ns_27)((mod-name195_0) mod-name_7)((phase196_0) phase_30))" -"(namespace->module-instance70.1 #f #f unsafe-undefined ns194_0 mod-name195_0 phase196_0))))" -"(set-module-instance-attached?! mi_5 #t)))))" +"(let-values(((mi_599)" +"(let-values(((ns194_600) ns_0)((mod-name195_601) mod-name_0)((phase196_602) phase_0))" +"(namespace->module-instance70.1 #f #f unsafe-undefined ns194_600 mod-name195_601 phase196_602))))" +"(set-module-instance-attached?! mi_599 #t)))))" "(define-values" "(module-force-bulk-binding!)" -"(lambda(m_7 ns_28)(begin((module-force-bulk-binding m_7)(namespace-bulk-binding-registry ns_28)))))" +"(lambda(m_0 ns_0)(begin((module-force-bulk-binding m_0)(namespace-bulk-binding-registry ns_0)))))" "(define-values" "(namespace-module-instantiate!96.1)" "(lambda(otherwise-available?87_0 run-phase85_0 seen88_0 skip-run?86_0 ns93_0 mpi94_0 instance-phase95_0)" "(begin" " 'namespace-module-instantiate!96" -"(let-values(((ns_29) ns93_0))" -"(let-values(((mpi_16) mpi94_0))" -"(let-values(((instance-phase_0) instance-phase95_0))" -"(let-values(((run-phase_0)" -"(if(eq? run-phase85_0 unsafe-undefined)(namespace-phase ns_29) run-phase85_0)))" -"(let-values(((skip-run?_0) skip-run?86_0))" -"(let-values(((otherwise-available?_0) otherwise-available?87_0))" -"(let-values(((seen_17)(if(eq? seen88_0 unsafe-undefined) '#hasheq() seen88_0)))" +"(let-values(((ns_612) ns93_0))" +"(let-values(((mpi_613) mpi94_0))" +"(let-values(((instance-phase_614) instance-phase95_0))" +"(let-values(((run-phase_615)" +"(if(eq? run-phase85_0 unsafe-undefined)(namespace-phase ns_612) run-phase85_0)))" +"(let-values(((skip-run?_616) skip-run?86_0))" +"(let-values(((otherwise-available?_617) otherwise-available?87_0))" +"(let-values(((seen_618)(if(eq? seen88_0 unsafe-undefined) '#hasheq() seen88_0)))" "(let-values()" "(let-values((()" "(begin" -"(if(1/module-path-index? mpi_16)" +"(if(1/module-path-index? mpi_613)" "(void)" -" (let-values () (error \"not a module path index:\" mpi_16)))" +" (let-values () (error \"not a module path index:\" mpi_613)))" "(values))))" -"(let-values(((name_33)(let-values()(1/module-path-index-resolve mpi_16 #t))))" -"(let-values(((m_8)(namespace->module ns_29 name_33)))" +"(let-values(((name_619)(let-values()(1/module-path-index-resolve mpi_613 #t))))" +"(let-values(((m_620)(namespace->module ns_612 name_619)))" "(let-values((()" "(begin" -"(if m_8" +"(if m_620" "(void)" -"(let-values()(raise-unknown-module-error 'instantiate name_33)))" +"(let-values()(raise-unknown-module-error 'instantiate name_619)))" "(values))))" -"(let-values(((instantiate!_0)" -"(lambda(instance-phase_1 run-phase_1 ns_30)" +"(let-values(((instantiate!_621)" +"(lambda(instance-phase_0 run-phase_0 ns_0)" "(begin" " 'instantiate!" -"(let-values(((mi_6)" -"(let-values(((or-part_154)" -"(let-values(((ns203_0) ns_30)" -"((name204_0) name_33)" -"((instance-phase205_0)" -" instance-phase_1))" +"(let-values(((mi_625)" +"(let-values(((or-part_626)" +"(let-values(((ns203_627) ns_0)" +"((name204_628) name_619)" +"((instance-phase205_629)" +" instance-phase_0))" "(namespace->module-instance70.1" " #f" " #f" " unsafe-undefined" -" ns203_0" -" name204_0" -" instance-phase205_0))))" -"(if or-part_154" -" or-part_154" +" ns203_627" +" name204_628" +" instance-phase205_629))))" +"(if or-part_626" +" or-part_626" "(namespace-create-module-instance!" -" ns_30" -" name_33" -" instance-phase_1" -" m_8" -" mpi_16)))))" -"(let-values(((mi197_0) mi_6)" -"((ns198_0) ns_30)" -"((run-phase199_0) run-phase_1)" -"((skip-run?200_0) skip-run?_0)" -"((otherwise-available?201_0) otherwise-available?_0)" -"((seen202_0) seen_17))" +" ns_0" +" name_619" +" instance-phase_0" +" m_620" +" mpi_613)))))" +"(let-values(((mi197_631) mi_625)" +"((ns198_632) ns_0)" +"((run-phase199_633) run-phase_0)" +"((skip-run?200_634) skip-run?_616)" +"((otherwise-available?201_635) otherwise-available?_617)" +"((seen202_636) seen_618))" "(run-module-instance!125.1" -" otherwise-available?201_0" -" run-phase199_0" -" seen202_0" -" skip-run?200_0" -" mi197_0" -" ns198_0)))))))" -"(if(module-cross-phase-persistent? m_8)" +" otherwise-available?201_635" +" run-phase199_633" +" seen202_636" +" skip-run?200_634" +" mi197_631" +" ns198_632)))))))" +"(if(module-cross-phase-persistent? m_620)" "(let-values()" -"(instantiate!_0" +"(instantiate!_621" " 0" " 0" -"(let-values(((or-part_155)(namespace-root-namespace ns_29)))" -"(if or-part_155 or-part_155 ns_29))))" -"(let-values()(instantiate!_0 instance-phase_0 run-phase_0 ns_29)))))))))))))))))))" +"(let-values(((or-part_637)(namespace-root-namespace ns_612)))" +"(if or-part_637 or-part_637 ns_612))))" +"(let-values()" +"(instantiate!_621 instance-phase_614 run-phase_615 ns_612)))))))))))))))))))" "(define-values" "(namespace-module-visit!104.1)" "(lambda(visit-phase99_0 ns101_0 mpi102_0 instance-phase103_0)" "(begin" " 'namespace-module-visit!104" -"(let-values(((ns_31) ns101_0))" -"(let-values(((mpi_17) mpi102_0))" -"(let-values(((instance-phase_2) instance-phase103_0))" -"(let-values(((visit-phase_0)" -"(if(eq? visit-phase99_0 unsafe-undefined)(namespace-phase ns_31) visit-phase99_0)))" +"(let-values(((ns_680) ns101_0))" +"(let-values(((mpi_681) mpi102_0))" +"(let-values(((instance-phase_682) instance-phase103_0))" +"(let-values(((visit-phase_683)" +"(if(eq? visit-phase99_0 unsafe-undefined)(namespace-phase ns_680) visit-phase99_0)))" "(let-values()" -"(let-values(((ns206_0) ns_31)" -"((mpi207_0) mpi_17)" -"((instance-phase208_0) instance-phase_2)" -"((temp209_0)(add1 visit-phase_0)))" +"(let-values(((ns206_685) ns_680)" +"((mpi207_686) mpi_681)" +"((instance-phase208_687) instance-phase_682)" +"((temp209_688)(add1 visit-phase_683)))" "(namespace-module-instantiate!96.1" " #t" -" temp209_0" +" temp209_688" " unsafe-undefined" " #f" -" ns206_0" -" mpi207_0" -" instance-phase208_0))))))))))" +" ns206_685" +" mpi207_686" +" instance-phase208_687))))))))))" "(define-values" "(namespace-module-make-available!112.1)" "(lambda(visit-phase107_0 ns109_0 mpi110_0 instance-phase111_0)" "(begin" " 'namespace-module-make-available!112" -"(let-values(((ns_32) ns109_0))" -"(let-values(((mpi_18) mpi110_0))" -"(let-values(((instance-phase_3) instance-phase111_0))" -"(let-values(((visit-phase_1)" -"(if(eq? visit-phase107_0 unsafe-undefined)(namespace-phase ns_32) visit-phase107_0)))" +"(let-values(((ns_713) ns109_0))" +"(let-values(((mpi_714) mpi110_0))" +"(let-values(((instance-phase_715) instance-phase111_0))" +"(let-values(((visit-phase_716)" +"(if(eq? visit-phase107_0 unsafe-undefined)(namespace-phase ns_713) visit-phase107_0)))" "(let-values()" -"(let-values(((ns210_0) ns_32)" -"((mpi211_0) mpi_18)" -"((instance-phase212_0) instance-phase_3)" -"((temp213_0)(add1 visit-phase_1))" -"((temp214_0) #t))" +"(let-values(((ns210_718) ns_713)" +"((mpi211_719) mpi_714)" +"((instance-phase212_720) instance-phase_715)" +"((temp213_721)(add1 visit-phase_716))" +"((temp214_722) #t))" "(namespace-module-instantiate!96.1" " #t" -" temp213_0" +" temp213_721" " unsafe-undefined" -" temp214_0" -" ns210_0" -" mpi211_0" -" instance-phase212_0))))))))))" +" temp214_722" +" ns210_718" +" mpi211_719" +" instance-phase212_720))))))))))" "(define-values" "(run-module-instance!125.1)" "(lambda(otherwise-available?117_0 run-phase115_0 seen118_0 skip-run?116_0 mi123_0 ns124_0)" "(begin" " 'run-module-instance!125" -"(let-values(((mi_7) mi123_0))" -"(let-values(((ns_33) ns124_0))" -"(let-values(((run-phase_2) run-phase115_0))" -"(let-values(((skip-run?_1) skip-run?116_0))" -"(let-values(((otherwise-available?_1) otherwise-available?117_0))" -"(let-values(((seen_18)(if(eq? seen118_0 unsafe-undefined) '#hasheq() seen118_0)))" +"(let-values(((mi_755) mi123_0))" +"(let-values(((ns_756) ns124_0))" +"(let-values(((run-phase_757) run-phase115_0))" +"(let-values(((skip-run?_758) skip-run?116_0))" +"(let-values(((otherwise-available?_759) otherwise-available?117_0))" +"(let-values(((seen_760)(if(eq? seen118_0 unsafe-undefined) '#hasheq() seen118_0)))" "(let-values()" "(let-values()" -"(let-values(((m-ns_5)(module-instance-namespace mi_7)))" -"(let-values(((instance-phase_4)(namespace-0-phase m-ns_5)))" -"(let-values(((run-phase-level_0)(phase- run-phase_2 instance-phase_4)))" -"(if(if(let-values(((or-part_156) skip-run?_1))" -"(if or-part_156" -" or-part_156" +"(let-values(((m-ns_761)(module-instance-namespace mi_755)))" +"(let-values(((instance-phase_762)(namespace-0-phase m-ns_761)))" +"(let-values(((run-phase-level_763)(phase- run-phase_757 instance-phase_762)))" +"(if(if(let-values(((or-part_764) skip-run?_758))" +"(if or-part_764" +" or-part_764" "(eq?" " 'started" "(small-hash-ref" -"(module-instance-phase-level-to-state mi_7)" -" run-phase-level_0" +"(module-instance-phase-level-to-state mi_755)" +" run-phase-level_763" " #f))))" -"(let-values(((or-part_157)(not otherwise-available?_1)))" -"(if or-part_157 or-part_157(module-instance-made-available? mi_7)))" +"(let-values(((or-part_765)(not otherwise-available?_759)))" +"(if or-part_765 or-part_765(module-instance-made-available? mi_755)))" " #f)" "(void)" "(let-values()" -"(let-values(((m_9)(module-instance-module mi_7)))" +"(let-values(((m_766)(module-instance-module mi_755)))" "(let-values((()" "(begin" -"(if m_9" +"(if m_766" "(void)" "(let-values()" "(error" " 'require" " \"import cycle detected; trying to run module being expanded\")))" "(values))))" -"(let-values(((mpi_19)(namespace-mpi m-ns_5)))" -"(let-values(((phase-shift_3) instance-phase_4))" -"(let-values(((bulk-binding-registry_3)" -"(namespace-bulk-binding-registry m-ns_5)))" +"(let-values(((mpi_767)(namespace-mpi m-ns_761)))" +"(let-values(((phase-shift_768) instance-phase_762))" +"(let-values(((bulk-binding-registry_769)" +"(namespace-bulk-binding-registry m-ns_761)))" "(begin" -"(if(hash-ref seen_18 mi_7 #f)" +"(if(hash-ref seen_760 mi_755 #f)" "(let-values()" " (error 'require \"import cycle detected during module instantiation\"))" "(void))" -"(if(module-instance-shifted-requires mi_7)" +"(if(module-instance-shifted-requires mi_755)" "(void)" "(let-values()" "(set-module-instance-shifted-requires!" -" mi_7" +" mi_755" "(reverse$1" -"(let-values(((lst_59)(module-requires m_9)))" +"(let-values(((lst_770)(module-requires m_766)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_59)))" -"((letrec-values(((for-loop_86)" -"(lambda(fold-var_43 lst_60)" +"(let-values()(check-list lst_770)))" +"((letrec-values(((for-loop_771)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_60)" -"(let-values(((phase+mpis_0)" -"(unsafe-car lst_60))" -"((rest_27)" -"(unsafe-cdr lst_60)))" -"(let-values(((fold-var_44)" -"(let-values(((fold-var_45)" -" fold-var_43))" -"(let-values(((fold-var_46)" +"(if(pair? lst_0)" +"(let-values(((phase+mpis_774)" +"(unsafe-car lst_0))" +"((rest_775)" +"(unsafe-cdr lst_0)))" +"(let-values(((fold-var_776)" +"(let-values(((fold-var_777)" +" fold-var_0))" +"(let-values(((fold-var_778)" "(let-values()" "(cons" "(let-values()" "(cons" "(car" -" phase+mpis_0)" +" phase+mpis_774)" "(reverse$1" -"(let-values(((lst_61)" +"(let-values(((lst_779)" "(cdr" -" phase+mpis_0)))" +" phase+mpis_774)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_61)))" -"((letrec-values(((for-loop_87)" -"(lambda(fold-var_47" -" lst_62)" +" lst_779)))" +"((letrec-values(((for-loop_780)" +"(lambda(fold-var_1" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_62)" -"(let-values(((req-mpi_0)" +" lst_1)" +"(let-values(((req-mpi_783)" "(unsafe-car" -" lst_62))" -"((rest_28)" +" lst_1))" +"((rest_784)" "(unsafe-cdr" -" lst_62)))" -"(let-values(((fold-var_48)" -"(let-values(((fold-var_49)" -" fold-var_47))" -"(let-values(((fold-var_50)" +" lst_1)))" +"(let-values(((fold-var_785)" +"(let-values(((fold-var_786)" +" fold-var_1))" +"(let-values(((fold-var_787)" "(let-values()" "(cons" "(let-values()" "(module-path-index-shift" -" req-mpi_0" +" req-mpi_783" "(module-self" -" m_9)" -" mpi_19))" -" fold-var_49))))" +" m_766)" +" mpi_767))" +" fold-var_786))))" "(values" -" fold-var_50)))))" +" fold-var_787)))))" "(if(not" " #f)" -"(for-loop_87" -" fold-var_48" -" rest_28)" -" fold-var_48)))" -" fold-var_47)))))" -" for-loop_87)" +"(for-loop_780" +" fold-var_785" +" rest_784)" +" fold-var_785)))" +" fold-var_1)))))" +" for-loop_780)" " null" -" lst_61))))))" -" fold-var_45))))" +" lst_779))))))" +" fold-var_777))))" "(values" -" fold-var_46)))))" +" fold-var_778)))))" "(if(not #f)" -"(for-loop_86 fold-var_44 rest_27)" -" fold-var_44)))" -" fold-var_43)))))" -" for-loop_86)" +"(for-loop_771 fold-var_776 rest_775)" +" fold-var_776)))" +" fold-var_0)))))" +" for-loop_771)" " null" -" lst_59)))))))" -"(let-values(((lst_63)(module-instance-shifted-requires mi_7)))" +" lst_770)))))))" +"(let-values(((lst_788)(module-instance-shifted-requires mi_755)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_63)))" -"((letrec-values(((for-loop_88)" -"(lambda(lst_64)" +"(let-values()(check-list lst_788)))" +"((letrec-values(((for-loop_789)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_64)" -"(let-values(((phase+mpis_1)" -"(unsafe-car lst_64))" -"((rest_29)(unsafe-cdr lst_64)))" +"(if(pair? lst_0)" +"(let-values(((phase+mpis_791)" +"(unsafe-car lst_0))" +"((rest_792)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((req-phase_0)" +"(let-values(((req-phase_793)" "(car" -" phase+mpis_1)))" +" phase+mpis_791)))" "(begin" -"(let-values(((lst_65)" +"(let-values(((lst_794)" "(cdr" -" phase+mpis_1)))" +" phase+mpis_791)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_65)))" -"((letrec-values(((for-loop_89)" -"(lambda(lst_66)" +" lst_794)))" +"((letrec-values(((for-loop_795)" +"(lambda(lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_66)" -"(let-values(((req-mpi_1)" +" lst_1)" +"(let-values(((req-mpi_797)" "(unsafe-car" -" lst_66))" -"((rest_30)" +" lst_1))" +"((rest_798)" "(unsafe-cdr" -" lst_66)))" +" lst_1)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((ns215_0)" -" ns_33)" -"((req-mpi216_0)" -" req-mpi_1)" -"((temp217_0)" +"(let-values(((ns215_800)" +" ns_756)" +"((req-mpi216_801)" +" req-mpi_797)" +"((temp217_802)" "(phase+" -" instance-phase_4" -" req-phase_0))" -"((run-phase218_0)" -" run-phase_2)" -"((skip-run?219_0)" -" skip-run?_1)" -"((otherwise-available?220_0)" -" otherwise-available?_1)" -"((temp221_0)" +" instance-phase_762" +" req-phase_793))" +"((run-phase218_803)" +" run-phase_757)" +"((skip-run?219_804)" +" skip-run?_758)" +"((otherwise-available?220_805)" +" otherwise-available?_759)" +"((temp221_806)" "(hash-set" -" seen_18" -" mi_7" +" seen_760" +" mi_755" " #t)))" "(namespace-module-instantiate!96.1" -" otherwise-available?220_0" -" run-phase218_0" -" temp221_0" -" skip-run?219_0" -" ns215_0" -" req-mpi216_0" -" temp217_0)))" +" otherwise-available?220_805" +" run-phase218_803" +" temp221_806" +" skip-run?219_804" +" ns215_800" +" req-mpi216_801" +" temp217_802)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_89" -" rest_30)" +"(for-loop_795" +" rest_798)" "(values))))" "(values))))))" -" for-loop_89)" -" lst_65)))" +" for-loop_795)" +" lst_794)))" "(void))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_88 rest_29)" +"(for-loop_789 rest_792)" "(values))))" "(values))))))" -" for-loop_88)" -" lst_63)))" +" for-loop_789)" +" lst_788)))" "(void)" -"(if(label-phase? instance-phase_4)" +"(if(label-phase? instance-phase_762)" "(void)" "(let-values()" "(begin" -"(let-values(((start_13)(module-max-phase-level m_9))" -"((end_9)(sub1(module-min-phase-level m_9)))" -"((inc_3) -1))" +"(let-values(((start_807)(module-max-phase-level m_766))" +"((end_808)(sub1(module-min-phase-level m_766)))" +"((inc_809) -1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_13 end_9 inc_3)))" -"((letrec-values(((for-loop_90)" -"(lambda(pos_11)" +"(let-values()(check-range start_807 end_808 inc_809)))" +"((letrec-values(((for-loop_810)" +"(lambda(pos_0)" "(begin" " 'for-loop" -"(if(> pos_11 end_9)" -"(let-values(((phase-level_13) pos_11))" +"(if(> pos_0 end_808)" +"(let-values(((phase-level_812) pos_0))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_31)" +"(let-values(((phase_813)" "(phase+" -" phase-level_13" -" phase-shift_3)))" +" phase-level_812" +" phase-shift_768)))" "(if(if(not" -" skip-run?_1)" +" skip-run?_758)" "(eqv?" -" phase_31" -" run-phase_2)" +" phase_813" +" run-phase_757)" " #f)" "(let-values()" "(if(eq?" " 'started" "(small-hash-ref" "(module-instance-phase-level-to-state" -" mi_7)" -" phase-level_13" +" mi_755)" +" phase-level_812" " #f))" "(void)" "(let-values()" @@ -13886,58 +14011,58 @@ static const char *startup_source = "(begin" "(small-hash-set!" "(module-instance-phase-level-to-state" -" mi_7)" -" phase-level_13" +" mi_755)" +" phase-level_812" " 'started)" "(values))))" "(let-values((()" "(begin" "(void" "(namespace->definitions" -" m-ns_5" -" phase-level_13))" +" m-ns_761" +" phase-level_812))" "(values))))" -"(let-values(((p-ns_2)" +"(let-values(((p-ns_814)" "(namespace->namespace-at-phase" -" m-ns_5" -" phase_31)))" -"(let-values(((insp_5)" +" m-ns_761" +" phase_813)))" +"(let-values(((insp_815)" "(module-inspector" -" m_9)))" -"(let-values(((data-box_0)" +" m_766)))" +"(let-values(((data-box_816)" "(module-instance-data-box" -" mi_7)))" -"(let-values(((prep_0)" +" mi_755)))" +"(let-values(((prep_817)" "(module-prepare-instance" -" m_9)))" -"(let-values(((go_0)" +" m_766)))" +"(let-values(((go_818)" "(module-instantiate-phase" -" m_9)))" +" m_766)))" "(begin" -"(prep_0" -" data-box_0" -" p-ns_2" -" phase-shift_3" -" mpi_19" -" bulk-binding-registry_3" -" insp_5)" -"(go_0" -" data-box_0" -" p-ns_2" -" phase-shift_3" -" phase-level_13" -" mpi_19" -" bulk-binding-registry_3" -" insp_5))))))))))))" -"(if(if otherwise-available?_1" +"(prep_817" +" data-box_816" +" p-ns_814" +" phase-shift_768" +" mpi_767" +" bulk-binding-registry_769" +" insp_815)" +"(go_818" +" data-box_816" +" p-ns_814" +" phase-shift_768" +" phase-level_812" +" mpi_767" +" bulk-binding-registry_769" +" insp_815))))))))))))" +"(if(if otherwise-available?_759" "(if(not" "(negative?" -" run-phase_2))" +" run-phase_757))" "(not" "(small-hash-ref" "(module-instance-phase-level-to-state" -" mi_7)" -" phase-level_13" +" mi_755)" +" phase-level_812" " #f))" " #f)" " #f)" @@ -13945,178 +14070,177 @@ static const char *startup_source = "(begin" "(hash-update!" "(namespace-available-module-instances" -" ns_33)" -" phase_31" -"(lambda(l_47)" +" ns_756)" +" phase_813" +"(lambda(l_0)" "(cons" -" mi_7" -" l_47))" +" mi_755" +" l_0))" " null)" "(small-hash-set!" "(module-instance-phase-level-to-state" -" mi_7)" -" phase-level_13" +" mi_755)" +" phase-level_812" " 'available)))" "(void)))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_90(+ pos_11 inc_3))" +"(for-loop_810(+ pos_0 inc_809))" "(values))))" "(values))))))" -" for-loop_90)" -" start_13)))" +" for-loop_810)" +" start_807)))" "(void))))" -"(if otherwise-available?_1" -"(let-values()(set-module-instance-made-available?! mi_7 #t))" +"(if otherwise-available?_759" +"(let-values()(set-module-instance-made-available?! mi_755 #t))" "(void))" -"(if skip-run?_1" +"(if skip-run?_758" "(void)" "(let-values()" "(small-hash-set!" -"(module-instance-phase-level-to-state mi_7)" -" run-phase-level_0" +"(module-instance-phase-level-to-state mi_755)" +" run-phase-level_763" " 'started)))))))))))))))))))))))))" "(define-values" "(namespace-visit-available-modules!)" -"(let-values(((namespace-visit-available-modules!130_0)" +"(let-values(((namespace-visit-available-modules!130_841)" "(lambda(ns129_0 run-phase128_0)" "(begin" " 'namespace-visit-available-modules!130" -"(let-values(((ns_34) ns129_0))" -"(let-values(((run-phase_3)" -"(if(eq? run-phase128_0 unsafe-undefined)(namespace-phase ns_34) run-phase128_0)))" -"(let-values()(namespace-run-available-modules! ns_34(add1 run-phase_3)))))))))" +"(let-values(((ns_844) ns129_0))" +"(let-values(((run-phase_845)" +"(if(eq? run-phase128_0 unsafe-undefined)(namespace-phase ns_844) run-phase128_0)))" +"(let-values()(namespace-run-available-modules! ns_844(add1 run-phase_845)))))))))" "(case-lambda" -"((ns_35)(begin(namespace-visit-available-modules!130_0 ns_35 unsafe-undefined)))" -"((ns_36 run-phase128_1)(namespace-visit-available-modules!130_0 ns_36 run-phase128_1)))))" +"((ns_0)(begin(namespace-visit-available-modules!130_841 ns_0 unsafe-undefined)))" +"((ns_0 run-phase128_0)(namespace-visit-available-modules!130_841 ns_0 run-phase128_0)))))" "(define-values" "(namespace-run-available-modules!)" -"(let-values(((namespace-run-available-modules!134_0)" +"(let-values(((namespace-run-available-modules!134_849)" "(lambda(ns133_0 run-phase132_0)" "(begin" " 'namespace-run-available-modules!134" -"(let-values(((ns_37) ns133_0))" -"(let-values(((run-phase_4)" -"(if(eq? run-phase132_0 unsafe-undefined)(namespace-phase ns_37) run-phase132_0)))" +"(let-values(((ns_852) ns133_0))" +"(let-values(((run-phase_853)" +"(if(eq? run-phase132_0 unsafe-undefined)(namespace-phase ns_852) run-phase132_0)))" "(let-values()" "(registry-call-with-lock" -"(namespace-module-registry$1 ns_37)" +"(namespace-module-registry$1 ns_852)" "(lambda()" -"((letrec-values(((loop_77)" +"((letrec-values(((loop_854)" "(lambda()" "(begin" " 'loop" -"(let-values(((mis_0)" +"(let-values(((mis_855)" "(hash-ref" -"(namespace-available-module-instances ns_37)" -" run-phase_4" +"(namespace-available-module-instances ns_852)" +" run-phase_853" " null)))" -"(if(null? mis_0)" +"(if(null? mis_855)" "(void)" "(let-values()" "(begin" "(hash-set!" -"(namespace-available-module-instances ns_37)" -" run-phase_4" +"(namespace-available-module-instances ns_852)" +" run-phase_853" " null)" -"(let-values(((lst_67)(reverse$1 mis_0)))" +"(let-values(((lst_856)(reverse$1 mis_855)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_67)))" -"((letrec-values(((for-loop_91)" -"(lambda(lst_68)" +"(let-values()(check-list lst_856)))" +"((letrec-values(((for-loop_857)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_68)" -"(let-values(((mi_8)" -"(unsafe-car" -" lst_68))" -"((rest_31)" +"(if(pair? lst_0)" +"(let-values(((mi_859)" +"(unsafe-car lst_0))" +"((rest_860)" "(unsafe-cdr" -" lst_68)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((mi222_0)" -" mi_8)" -"((ns223_0)" -" ns_37)" -"((run-phase224_0)" -" run-phase_4)" -"((temp225_0)" +"(let-values(((mi222_862)" +" mi_859)" +"((ns223_863)" +" ns_852)" +"((run-phase224_864)" +" run-phase_853)" +"((temp225_865)" " #f)" -"((temp226_0)" +"((temp226_866)" " #f))" "(run-module-instance!125.1" -" temp226_0" -" run-phase224_0" +" temp226_866" +" run-phase224_864" " unsafe-undefined" -" temp225_0" -" mi222_0" -" ns223_0)))" +" temp225_865" +" mi222_862" +" ns223_863)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_91 rest_31)" +"(for-loop_857 rest_860)" "(values))))" "(values))))))" -" for-loop_91)" -" lst_67)))" +" for-loop_857)" +" lst_856)))" "(void)" -"(loop_77)))))))))" -" loop_77)))))))))))" +"(loop_854)))))))))" +" loop_854)))))))))))" "(case-lambda" -"((ns_38)(begin(namespace-run-available-modules!134_0 ns_38 unsafe-undefined)))" -"((ns_39 run-phase132_1)(namespace-run-available-modules!134_0 ns_39 run-phase132_1)))))" +"((ns_0)(begin(namespace-run-available-modules!134_849 ns_0 unsafe-undefined)))" +"((ns_0 run-phase132_0)(namespace-run-available-modules!134_849 ns_0 run-phase132_0)))))" "(define-values" "(namespace-primitive-module-visit!)" -"(lambda(ns_40 name_34)" +"(lambda(ns_0 name_0)" "(begin" -"(let-values(((mi_9)(hash-ref(namespace-module-instances ns_40)(1/make-resolved-module-path name_34))))" -"(let-values(((mi227_0) mi_9)((ns228_0) ns_40)((temp229_0) 1)((temp230_0) #f)((temp231_0) #t))" -"(run-module-instance!125.1 temp231_0 temp229_0 unsafe-undefined temp230_0 mi227_0 ns228_0))))))" +"(let-values(((mi_872)(hash-ref(namespace-module-instances ns_0)(1/make-resolved-module-path name_0))))" +"(let-values(((mi227_874) mi_872)((ns228_875) ns_0)((temp229_876) 1)((temp230_877) #f)((temp231_878) #t))" +"(run-module-instance!125.1 temp231_878 temp229_876 unsafe-undefined temp230_877 mi227_874 ns228_875))))))" "(define-values" "(namespace-module-use->module+linklet-instances144.1)" "(lambda(phase-shift138_0 shift-from136_0 shift-to137_0 ns142_0 mu143_0)" "(begin" " 'namespace-module-use->module+linklet-instances144" -"(let-values(((ns_41) ns142_0))" -"(let-values(((mu_0) mu143_0))" -"(let-values(((shift-from_0) shift-from136_0))" -"(let-values(((shift-to_0) shift-to137_0))" -"(let-values(((phase-shift_4) phase-shift138_0))" +"(let-values(((ns_890) ns142_0))" +"(let-values(((mu_891) mu143_0))" +"(let-values(((shift-from_892) shift-from136_0))" +"(let-values(((shift-to_893) shift-to137_0))" +"(let-values(((phase-shift_894) phase-shift138_0))" "(let-values()" -"(let-values(((mod_1)(module-use-module mu_0)))" -"(let-values(((mi_10)" -"(let-values(((ns232_0) ns_41)" -"((temp233_0)" +"(let-values(((mod_895)(module-use-module mu_891)))" +"(let-values(((mi_896)" +"(let-values(((ns232_900) ns_890)" +"((temp233_901)" "(1/module-path-index-resolve" -"(if shift-from_0" -"(module-path-index-shift mod_1 shift-from_0 shift-to_0)" -" mod_1)))" -"((phase-shift234_0) phase-shift_4)" -"((temp235_0) #t))" +"(if shift-from_892" +"(module-path-index-shift mod_895 shift-from_892 shift-to_893)" +" mod_895)))" +"((phase-shift234_902) phase-shift_894)" +"((temp235_903) #t))" "(namespace->module-instance70.1" " #f" -" temp235_0" +" temp235_903" " unsafe-undefined" -" ns232_0" -" temp233_0" -" phase-shift234_0))))" -"(let-values(((m-ns_6)(module-instance-namespace mi_10)))" -"(let-values(((d_17)" +" ns232_900" +" temp233_901" +" phase-shift234_902))))" +"(let-values(((m-ns_897)(module-instance-namespace mi_896)))" +"(let-values(((d_898)" "(small-hash-ref" -"(namespace-phase-level-to-definitions m-ns_6)" -"(module-use-phase mu_0)" +"(namespace-phase-level-to-definitions m-ns_897)" +"(module-use-phase mu_891)" " #f)))" -"(if d_17" -"(values mi_10(definitions-variables d_17))" +"(if d_898" +"(values mi_896(definitions-variables d_898))" "(error" " 'eval" "(string-append" @@ -14124,185 +14248,185 @@ static const char *startup_source = " \" module: ~a\\n\"" " \" phase level: ~a\\n\"" " \" found phase levels: ~a\")" -" mod_1" -"(module-use-phase mu_0)" -"(small-hash-keys(namespace-phase-level-to-definitions m-ns_6)))))))))))))))))" +" mod_895" +"(module-use-phase mu_891)" +"(small-hash-keys(namespace-phase-level-to-definitions m-ns_897)))))))))))))))))" "(define-values" "(unresolve-requires)" -"(lambda(requires_1)" +"(lambda(requires_0)" "(begin" "(reverse$1" -"(let-values(((lst_69) requires_1))" +"(let-values(((lst_924) requires_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_69)))" -"((letrec-values(((for-loop_92)" -"(lambda(fold-var_51 lst_70)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_924)))" +"((letrec-values(((for-loop_925)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_70)" -"(let-values(((phase+mpis_2)(unsafe-car lst_70))((rest_32)(unsafe-cdr lst_70)))" -"(let-values(((fold-var_52)" -"(let-values(((fold-var_53) fold-var_51))" -"(let-values(((fold-var_54)" +"(if(pair? lst_0)" +"(let-values(((phase+mpis_928)(unsafe-car lst_0))((rest_929)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_930)" +"(let-values(((fold-var_931) fold-var_0))" +"(let-values(((fold-var_932)" "(let-values()" "(cons" "(let-values()" "(cons" -"(car phase+mpis_2)" +"(car phase+mpis_928)" "(reverse$1" -"(let-values(((lst_71)(cdr phase+mpis_2)))" +"(let-values(((lst_933)(cdr phase+mpis_928)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_71)))" -"((letrec-values(((for-loop_93)" -"(lambda(fold-var_55" -" lst_72)" +"(let-values()(check-list lst_933)))" +"((letrec-values(((for-loop_934)" +"(lambda(fold-var_1" +" lst_1)" "(begin" " 'for-loop" -"(if(pair? lst_72)" -"(let-values(((req-mpi_2)" +"(if(pair? lst_1)" +"(let-values(((req-mpi_937)" "(unsafe-car" -" lst_72))" -"((rest_33)" +" lst_1))" +"((rest_938)" "(unsafe-cdr" -" lst_72)))" -"(let-values(((fold-var_56)" -"(let-values(((fold-var_57)" -" fold-var_55))" -"(let-values(((fold-var_58)" +" lst_1)))" +"(let-values(((fold-var_939)" +"(let-values(((fold-var_940)" +" fold-var_1))" +"(let-values(((fold-var_941)" "(let-values()" "(cons" "(let-values()" "(module-path-index-unresolve" -" req-mpi_2))" -" fold-var_57))))" +" req-mpi_937))" +" fold-var_940))))" "(values" -" fold-var_58)))))" +" fold-var_941)))))" "(if(not #f)" -"(for-loop_93" -" fold-var_56" -" rest_33)" -" fold-var_56)))" -" fold-var_55)))))" -" for-loop_93)" +"(for-loop_934" +" fold-var_939" +" rest_938)" +" fold-var_939)))" +" fold-var_1)))))" +" for-loop_934)" " null" -" lst_71))))))" -" fold-var_53))))" -"(values fold-var_54)))))" -"(if(not #f)(for-loop_92 fold-var_52 rest_32) fold-var_52)))" -" fold-var_51)))))" -" for-loop_92)" +" lst_933))))))" +" fold-var_931))))" +"(values fold-var_932)))))" +"(if(not #f)(for-loop_925 fold-var_930 rest_929) fold-var_930)))" +" fold-var_0)))))" +" for-loop_925)" " null" -" lst_69)))))))" +" lst_924)))))))" "(define-values" "(module-compute-access!)" -"(lambda(m_10)" +"(lambda(m_0)" "(begin" -"(let-values(((access_0)" -"(let-values(((ht_71)(module-provides m_10)))" +"(let-values(((access_943)" +"(let-values(((ht_944)(module-provides m_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_71)))" -"((letrec-values(((for-loop_94)" -"(lambda(table_104 i_89)" +"(let-values()(check-in-hash ht_944)))" +"((letrec-values(((for-loop_945)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_89" -"(let-values(((phase_32 at-phase_6)" -"(hash-iterate-key+value ht_71 i_89)))" -"(let-values(((table_105)" -"(let-values(((table_106) table_104))" -"(let-values(((table_107)" +"(if i_0" +"(let-values(((phase_948 at-phase_949)" +"(hash-iterate-key+value ht_944 i_0)))" +"(let-values(((table_950)" +"(let-values(((table_951) table_0))" +"(let-values(((table_952)" "(let-values()" -"(let-values(((key_40 val_33)" +"(let-values(((key_953 val_954)" "(let-values()" "(values" -" phase_32" -"(let-values(((ht_72)" -" at-phase_6))" +" phase_948" +"(let-values(((ht_955)" +" at-phase_949))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash" -" ht_72)))" -"((letrec-values(((for-loop_95)" -"(lambda(table_108" -" i_90)" +" ht_955)))" +"((letrec-values(((for-loop_956)" +"(lambda(table_1" +" i_1)" "(begin" " 'for-loop" -"(if i_90" -"(let-values(((sym_23" -" binding/p_1)" +"(if i_1" +"(let-values(((sym_959" +" binding/p_960)" "(hash-iterate-key+value" -" ht_72" -" i_90)))" -"(let-values(((table_109)" -"(let-values(((table_110)" -" table_108))" -"(let-values(((table_111)" +" ht_955" +" i_1)))" +"(let-values(((table_961)" +"(let-values(((table_962)" +" table_1))" +"(let-values(((table_963)" "(let-values()" -"(let-values(((key_41" -" val_34)" +"(let-values(((key_964" +" val_965)" "(let-values()" "(values" "(module-binding-sym" "(provided-as-binding" -" binding/p_1))" +" binding/p_960))" "(if(provided-as-protected?" -" binding/p_1)" +" binding/p_960)" " 'protected" " 'provided)))))" "(hash-set" -" table_110" -" key_41" -" val_34)))))" +" table_962" +" key_964" +" val_965)))))" "(values" -" table_111)))))" +" table_963)))))" "(if(not" " #f)" -"(for-loop_95" -" table_109" +"(for-loop_956" +" table_961" "(hash-iterate-next" -" ht_72" -" i_90))" -" table_109)))" -" table_108)))))" -" for-loop_95)" +" ht_955" +" i_1))" +" table_961)))" +" table_1)))))" +" for-loop_956)" " '#hash()" "(hash-iterate-first" -" ht_72))))))))" +" ht_955))))))))" "(hash-set" -" table_106" -" key_40" -" val_33)))))" -"(values table_107)))))" +" table_951" +" key_953" +" val_954)))))" +"(values table_952)))))" "(if(not #f)" -"(for-loop_94 table_105(hash-iterate-next ht_71 i_89))" -" table_105)))" -" table_104)))))" -" for-loop_94)" +"(for-loop_945 table_950(hash-iterate-next ht_944 i_0))" +" table_950)))" +" table_0)))))" +" for-loop_945)" " '#hasheqv()" -"(hash-iterate-first ht_71))))))" -"(begin(set-module-access! m_10 access_0) access_0)))))" +"(hash-iterate-first ht_944))))))" +"(begin(set-module-access! m_0 access_943) access_943)))))" "(define-values" "(binding->module-instance)" -"(lambda(b_42 ns_42 phase_33 id_11)" +"(lambda(b_0 ns_0 phase_0 id_0)" "(begin" -"(let-values(((at-phase_7)(phase- phase_33(module-binding-phase b_42))))" -"(let-values(((mi_11)" -"(let-values(((ns1_0) ns_42)" -"((temp2_0)(1/module-path-index-resolve(module-binding-module b_42)))" -"((at-phase3_0) at-phase_7)" -"((temp4_0)(module-binding-phase b_42))" -"((temp5_0)(lambda(mi_12) 'unavailable)))" -"(namespace->module-instance70.1 temp4_0 #f temp5_0 ns1_0 temp2_0 at-phase3_0))))" +"(let-values(((at-phase_5)(phase- phase_0(module-binding-phase b_0))))" +"(let-values(((mi_6)" +"(let-values(((ns1_8) ns_0)" +"((temp2_9)(1/module-path-index-resolve(module-binding-module b_0)))" +"((at-phase3_10) at-phase_5)" +"((temp4_11)(module-binding-phase b_0))" +"((temp5_12)(lambda(mi_0) 'unavailable)))" +"(namespace->module-instance70.1 temp4_11 #f temp5_12 ns1_8 temp2_9 at-phase3_10))))" "(begin" -"(if(eq? mi_11 'unavailable)" +"(if(eq? mi_6 'unavailable)" "(let-values()" "(raise-syntax-error$1" " #f" @@ -14315,11 +14439,11 @@ static const char *startup_source = " \" but need (dynamic-require .... 0)\\n\"" " \" module: ~s\\n\"" " \" phase: ~s\")" -"(module-binding-module b_42)" -"(phase+ at-phase_7(module-binding-phase b_42)))" -" id_11))" +"(module-binding-module b_0)" +"(phase+ at-phase_5(module-binding-phase b_0)))" +" id_0))" "(void))" -"(if mi_11" +"(if mi_6" "(void)" "(let-values()" "(error" @@ -14330,113 +14454,113 @@ static const char *startup_source = " \" use phase: ~a\\n\"" " \" definition phase: ~a\\n\"" " \" for identifier: ~s\")" -"(module-binding-module b_42)" -" phase_33" -"(module-binding-phase b_42)" -" id_11)))" -" mi_11))))))" +"(module-binding-module b_0)" +" phase_0" +"(module-binding-phase b_0)" +" id_0)))" +" mi_6))))))" "(define-values" "(check-access)" -"(lambda(b_42 mi_13 id_12 in-s_0 what_0)" +"(lambda(b_0 mi_0 id_0 in-s_0 what_0)" "(begin" -"(let-values(((m_11)(module-instance-module mi_13)))" -"(if(if m_11(not(module-no-protected? m_11)) #f)" +"(let-values(((m_6)(module-instance-module mi_0)))" +"(if(if m_6(not(module-no-protected? m_6)) #f)" "(let-values()" -"(let-values(((access_1)" -"(let-values(((or-part_27)(module-access m_11)))" -"(if or-part_27 or-part_27(module-compute-access! m_11)))))" -"(let-values(((a_39)" +"(let-values(((access_7)" +"(let-values(((or-part_9)(module-access m_6)))" +"(if or-part_9 or-part_9(module-compute-access! m_6)))))" +"(let-values(((a_8)" "(hash-ref" -"(hash-ref access_1(module-binding-phase b_42) '#hasheq())" -"(module-binding-sym b_42)" +"(hash-ref access_7(module-binding-phase b_0) '#hasheq())" +"(module-binding-sym b_0)" " 'unexported)))" -"(if(let-values(((or-part_10)(eq? a_39 'unexported)))" -"(if or-part_10 or-part_10(eq? a_39 'protected)))" +"(if(let-values(((or-part_10)(eq? a_8 'unexported)))(if or-part_10 or-part_10(eq? a_8 'protected)))" "(let-values()" "(begin" -"(if(let-values(((or-part_158)" +"(if(let-values(((or-part_11)" "(inspector-superior?" -"(let-values(((or-part_12)(syntax-inspector id_12)))" +"(let-values(((or-part_12)(syntax-inspector id_0)))" "(if or-part_12 or-part_12(current-code-inspector)))" -"(namespace-inspector(module-instance-namespace mi_13)))))" -"(if or-part_158" -" or-part_158" -"(if(module-binding-extra-inspector b_42)" +"(namespace-inspector(module-instance-namespace mi_0)))))" +"(if or-part_11" +" or-part_11" +"(if(module-binding-extra-inspector b_0)" "(inspector-superior?" -"(module-binding-extra-inspector b_42)" -"(namespace-inspector(module-instance-namespace mi_13)))" +"(module-binding-extra-inspector b_0)" +"(namespace-inspector(module-instance-namespace mi_0)))" " #f)))" "(void)" "(let-values()" -"(let-values(((complain-id_0)" -"(let-values(((c-id_0)" -"(let-values(((or-part_3) in-s_0))" -"(if or-part_3 or-part_3(module-binding-sym b_42)))))" +"(let-values(((complain-id_13)" +"(let-values(((c-id_14)" +"(let-values(((or-part_15) in-s_0))" +"(if or-part_15 or-part_15(module-binding-sym b_0)))))" "(if(not" "(eq?" -"(if(syntax?$1 c-id_0)(syntax-content c-id_0) c-id_0)" -"(syntax-content id_12)))" -" c-id_0" +"(if(syntax?$1 c-id_14)(syntax-content c-id_14) c-id_14)" +"(syntax-content id_0)))" +" c-id_14" " #f))))" "(raise-syntax-error$1" " #f" "(format" " \"access disallowed by code inspector to ~a ~a\\n from module: ~a\"" -" a_39" +" a_8" " what_0" -"(1/module-path-index-resolve(namespace-mpi(module-instance-namespace mi_13))))" -" complain-id_0" -" id_12" +"(1/module-path-index-resolve(namespace-mpi(module-instance-namespace mi_0))))" +" complain-id_13" +" id_0" " null))))" " #t))" "(let-values() #f)))))" "(let-values() #f))))))" "(define-values" "(resolve+shift/extra-inspector)" -"(lambda(id_13 phase_34 ns_43)" +"(lambda(id_0 phase_0 ns_0)" "(begin" -"((letrec-values(((loop_78)" -"(lambda(id_14 in-s_1)" +"((letrec-values(((loop_19)" +"(lambda(id_1 in-s_0)" "(begin" " 'loop" -"(let-values(((b_59)" -"(let-values(((id1_2) id_14)((phase2_0) phase_34)((temp3_0) #t))" -"(resolve+shift28.1 #f #f null temp3_0 #f id1_2 phase2_0))))" -"(let-values(((c1_23)(binding-free=id b_59)))" -"(if c1_23" +"(let-values(((b_22)" +"(let-values(((id1_24) id_1)((phase2_25) phase_0)((temp3_26) #t))" +"(resolve+shift28.1 #f #f null temp3_26 #f id1_24 phase2_25))))" +"(let-values(((c1_27)(binding-free=id b_22)))" +"(if c1_27" "((lambda(next-id_0)" "(let-values((()" "(begin" -"(if(if(module-binding? b_59)" +"(if(if(module-binding? b_22)" "(not" -"(top-level-module-path-index?(module-binding-module b_59)))" +"(top-level-module-path-index?(module-binding-module b_22)))" " #f)" "(let-values()" -"(let-values(((mi_14)" +"(let-values(((mi_30)" "(binding->module-instance" -" b_59" -" ns_43" -" phase_34" -" id_14)))" -" (check-access b_59 mi_14 id_14 in-s_1 \"provided binding\")))" +" b_22" +" ns_0" +" phase_0" +" id_1)))" +" (check-access b_22 mi_30 id_1 in-s_0 \"provided binding\")))" "(void))" "(values))))" -"(let-values(((next-b_0)" -"(loop_78" +"(let-values(((next-b_29)" +"(loop_19" " next-id_0" -"(let-values(((or-part_75) in-s_1))" -"(if or-part_75 or-part_75 id_14)))))" -"(if(not next-b_0)" -"(let-values() b_59)" -"(if(if(module-binding? next-b_0)" -"(if(not(module-binding-extra-inspector next-b_0))" -"(syntax-inspector id_14)" +"(let-values(((or-part_31) in-s_0))" +"(if or-part_31 or-part_31 id_1)))))" +"(if(not next-b_29)" +"(let-values() b_22)" +"(if(if(module-binding? next-b_29)" +"(if(not(module-binding-extra-inspector next-b_29))" +"(syntax-inspector id_1)" " #f)" " #f)" "(let-values()" -"(let-values(((next-b4_0) next-b_0)((temp5_1)(syntax-inspector id_14)))" +"(let-values(((next-b4_33) next-b_29)" +"((temp5_34)(syntax-inspector id_1)))" "(module-binding-update48.1" -" temp5_1" +" temp5_34" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" @@ -14447,26 +14571,26 @@ static const char *startup_source = " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" -" next-b4_0)))" -"(let-values() next-b_0))))))" -" c1_23)" -"(let-values() b_59))))))))" -" loop_78)" -" id_13" +" next-b4_33)))" +"(let-values() next-b_29))))))" +" c1_27)" +"(let-values() b_22))))))))" +" loop_19)" +" id_0" " #f))))" "(define-values" "(1/prop:set!-transformer 1/set!-transformer? set!-transformer-value)" "(make-struct-type-property" " 'set!-transformer" -"(lambda(v_29 info_0)" +"(lambda(v_0 info_0)" "(let-values((()" "(begin" -"(if(let-values(((or-part_11)" -"(if(procedure? v_29)" -"(let-values(((or-part_2)(procedure-arity-includes? v_29 1)))" -"(if or-part_2 or-part_2(procedure-arity-includes? v_29 2)))" +"(if(let-values(((or-part_4)" +"(if(procedure? v_0)" +"(let-values(((or-part_5)(procedure-arity-includes? v_0 1)))" +"(if or-part_5 or-part_5(procedure-arity-includes? v_0 2)))" " #f)))" -"(if or-part_11 or-part_11(exact-nonnegative-integer? v_29)))" +"(if or-part_4 or-part_4(exact-nonnegative-integer? v_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -14475,47 +14599,47 @@ static const char *startup_source = " \"(or/c (procedure-arity-includes? proc 1)\\n\"" " \" (procedure-arity-includes? proc 2)\\n\"" " \" exact-nonnegative-integer?)\")" -" v_29)))" +" v_0)))" "(values))))" "(let-values((()" "(begin" -"(if(exact-nonnegative-integer? v_29)" +"(if(exact-nonnegative-integer? v_0)" "(let-values()" "(begin" -"(if(<= v_29(list-ref info_0 1))" +"(if(<= v_0(list-ref info_0 1))" "(void)" "(let-values()" "(raise-arguments-error" " 'guard-for-prop:set!-transformer" " \"field index >= initialized-field count for structure type\"" " \"field index\"" -" v_29" +" v_0" " \"initialized-field count\"" "(list-ref info_0 1))))" -"(if(member v_29(list-ref info_0 5))" +"(if(member v_0(list-ref info_0 5))" "(void)" "(let-values()" "(raise-arguments-error" " 'guard-for-prop:set!-transformer" " \"field index not declared immutable\"" " \"field index\"" -" v_29)))))" +" v_0)))))" "(void))" "(values))))" -"(let-values(((ref_0)(list-ref info_0 3)))" -"(if(integer? v_29)" +"(let-values(((ref_3)(list-ref info_0 3)))" +"(if(integer? v_0)" "(let-values()" -"(lambda(t_35)" -"(let-values(((p_23)(ref_0 t_35 v_29)))" -"(if(if(procedure? p_23)(procedure-arity-includes? p_23 1) #f)" -" p_23" -" (lambda (s_3) (error \"bad syntax:\" s_3))))))" -"(let-values()(lambda(t_14) v_29)))))))))" +"(lambda(t_0)" +"(let-values(((p_7)(ref_3 t_0 v_0)))" +"(if(if(procedure? p_7)(procedure-arity-includes? p_7 1) #f)" +" p_7" +" (lambda (s_0) (error \"bad syntax:\" s_0))))))" +"(let-values()(lambda(t_0) v_0)))))))))" "(define-values" "(1/make-set!-transformer)" "(let-values()" -"(let-values(((struct:set!-transformer_0 set!-transformer1_0 set!-transformer?_0 set!-transformer-proc_0)" -"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" +"(let-values(((struct:set!-transformer_10 set!-transformer1_11 set!-transformer?_12 set!-transformer-proc_13)" +"(let-values(((struct:_15 make-_16 ?_17 -ref_18 -set!_19)" "(let-values()" "(let-values()" "(make-struct-type" @@ -14530,32 +14654,32 @@ static const char *startup_source = " '(0)" " #f" " 'set!-transformer)))))" -"(values struct:_32 make-_32 ?_32(make-struct-field-accessor -ref_32 0 'proc)))))" -"(lambda(proc_3)" +"(values struct:_15 make-_16 ?_17(make-struct-field-accessor -ref_18 0 'proc)))))" +"(lambda(proc_0)" "(begin" " 'make-set!-transformer" "(begin" -"(if(if(procedure? proc_3)(procedure-arity-includes? proc_3 1) #f)" +"(if(if(procedure? proc_0)(procedure-arity-includes? proc_0 1) #f)" "(void)" -" (let-values () (raise-argument-error 'make-set!-transformer \"(procedure-arity-includes/c 1)\" proc_3)))" -"(set!-transformer1_0 proc_3)))))))" +" (let-values () (raise-argument-error 'make-set!-transformer \"(procedure-arity-includes/c 1)\" proc_0)))" +"(set!-transformer1_11 proc_0)))))))" "(define-values" "(1/set!-transformer-procedure)" -"(lambda(t_38)" +"(lambda(t_0)" "(begin" " 'set!-transformer-procedure" -"(let-values(((v_90)((set!-transformer-value t_38) t_38)))" -"(if(procedure-arity-includes? v_90 1) v_90(lambda(s_167)(v_90 t_38 s_167)))))))" +"(let-values(((v_37)((set!-transformer-value t_0) t_0)))" +"(if(procedure-arity-includes? v_37 1) v_37(lambda(s_0)(v_37 t_0 s_0)))))))" "(define-values(empty-env) '#hasheq())" -"(define-values(env-extend)(lambda(env_0 key_42 val_21)(begin(hash-set env_0 key_42 val_21))))" +"(define-values(env-extend)(lambda(env_0 key_0 val_0)(begin(hash-set env_0 key_0 val_0))))" "(define-values(variable)(gensym 'variable))" "(define-values" "(variable?)" -"(lambda(t_14)" -"(begin(let-values(((or-part_10)(eq? t_14 variable)))(if or-part_10 or-part_10(local-variable? t_14))))))" +"(lambda(t_0)" +"(begin(let-values(((or-part_10)(eq? t_0 variable)))(if or-part_10 or-part_10(local-variable? t_0))))))" "(define-values" "(struct:local-variable local-variable1.1 local-variable? local-variable-id)" -"(let-values(((struct:_21 make-_21 ?_21 -ref_21 -set!_21)" +"(let-values(((struct:_11 make-_12 ?_13 -ref_14 -set!_15)" "(let-values()" "(let-values()" "(make-struct-type" @@ -14570,40 +14694,42 @@ static const char *startup_source = " '(0)" " #f" " 'local-variable)))))" -"(values struct:_21 make-_21 ?_21(make-struct-field-accessor -ref_21 0 'id))))" +"(values struct:_11 make-_12 ?_13(make-struct-field-accessor -ref_14 0 'id))))" "(define-values" "(substitute-variable6.1)" "(lambda(no-stops?2_0 id4_0 t5_0)" "(begin" " 'substitute-variable6" -"(let-values(((id_5) id4_0))" -"(let-values(((t_39) t5_0))" -"(let-values(((no-stops?_0) no-stops?2_0))" +"(let-values(((id_40) id4_0))" +"(let-values(((t_41) t5_0))" +"(let-values(((no-stops?_42) no-stops?2_0))" "(let-values()" -"(if(if no-stops?_0(local-variable? t_39) #f)" -"(let-values(((bind-id_0)(local-variable-id t_39)))" -"(syntax-rearm$1(datum->syntax$1(syntax-disarm$1 bind-id_0)(syntax-e$1 bind-id_0) id_5 id_5) id_5))" -" id_5))))))))" +"(if(if no-stops?_42(local-variable? t_41) #f)" +"(let-values(((bind-id_43)(local-variable-id t_41)))" +"(syntax-rearm$1" +"(datum->syntax$1(syntax-disarm$1 bind-id_43)(syntax-e$1 bind-id_43) id_40 id_40)" +" id_40))" +" id_40))))))))" "(define-values(missing)(gensym 'missing))" "(define-values" "(transformer?)" -"(lambda(t_40)" +"(lambda(t_0)" "(begin" -"(let-values(((or-part_32)(procedure? t_40)))" -"(if or-part_32" -" or-part_32" -"(let-values(((or-part_159)(1/set!-transformer? t_40)))" -"(if or-part_159 or-part_159(1/rename-transformer? t_40))))))))" +"(let-values(((or-part_58)(procedure? t_0)))" +"(if or-part_58" +" or-part_58" +"(let-values(((or-part_59)(1/set!-transformer? t_0)))" +"(if or-part_59 or-part_59(1/rename-transformer? t_0))))))))" "(define-values" "(transformer->procedure)" -"(lambda(t_41)" +"(lambda(t_0)" "(begin" -"(if(1/set!-transformer? t_41)" -"(let-values()(1/set!-transformer-procedure t_41))" -"(if(1/rename-transformer? t_41)(let-values()(lambda(s_168) s_168))(let-values() t_41))))))" +"(if(1/set!-transformer? t_0)" +"(let-values()(1/set!-transformer-procedure t_0))" +"(if(1/rename-transformer? t_0)(let-values()(lambda(s_0) s_0))(let-values() t_0))))))" "(define-values" "(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)" -"(let-values(((struct:_14 make-_14 ?_14 -ref_14 -set!_14)" +"(let-values(((struct:_62 make-_63 ?_64 -ref_65 -set!_66)" "(let-values()" "(let-values()" "(make-struct-type" @@ -14619,201 +14745,203 @@ static const char *startup_source = " #f" " 'core-form)))))" "(values" -" struct:_14" -" make-_14" -" ?_14" -"(make-struct-field-accessor -ref_14 0 'expander)" -"(make-struct-field-accessor -ref_14 1 'name))))" +" struct:_62" +" make-_63" +" ?_64" +"(make-struct-field-accessor -ref_65 0 'expander)" +"(make-struct-field-accessor -ref_65 1 'name))))" "(define-values" "(add-binding!17.1)" "(lambda(in10_0 just-for-nominal?11_0 id14_0 binding15_0 phase16_0)" "(begin" " 'add-binding!17" -"(let-values(((id_15) id14_0))" -"(let-values(((binding_8) binding15_0))" -"(let-values(((phase_35) phase16_0))" -"(let-values(((in-s_2) in10_0))" -"(let-values(((just-for-nominal?_2) just-for-nominal?11_0))" +"(let-values(((id_92) id14_0))" +"(let-values(((binding_93) binding15_0))" +"(let-values(((phase_94) phase16_0))" +"(let-values(((in-s_95) in10_0))" +"(let-values(((just-for-nominal?_96) just-for-nominal?11_0))" "(let-values()" "(begin" -"(check-id-taint id_15 in-s_2)" -"(let-values(((temp55_0)(syntax-scope-set id_15 phase_35))" -"((temp56_1)(syntax-e$1 id_15))" -"((binding57_0) binding_8)" -"((just-for-nominal?58_0) just-for-nominal?_2))" -"(add-binding-in-scopes!20.1 just-for-nominal?58_0 temp55_0 temp56_1 binding57_0))))))))))))" +"(check-id-taint id_92 in-s_95)" +"(let-values(((temp55_98)(syntax-scope-set id_92 phase_94))" +"((temp56_99)(syntax-e$1 id_92))" +"((binding57_100) binding_93)" +"((just-for-nominal?58_101) just-for-nominal?_96))" +"(add-binding-in-scopes!20.1 just-for-nominal?58_101 temp55_98 temp56_99 binding57_100))))))))))))" "(define-values" "(add-bulk-binding!27.1)" -"(lambda(in20_0 shadow-except21_0 s24_0 binding25_0 phase26_1)" +"(lambda(in20_0 shadow-except21_0 s24_0 binding25_0 phase26_0)" "(begin" " 'add-bulk-binding!27" -"(let-values(((s_70) s24_0))" -"(let-values(((binding_9) binding25_0))" -"(let-values(((phase_36) phase26_1))" -"(let-values(((in-s_3) in20_0))" -"(let-values(((shadow-except_2) shadow-except21_0))" +"(let-values(((s_133) s24_0))" +"(let-values(((binding_134) binding25_0))" +"(let-values(((phase_135) phase26_0))" +"(let-values(((in-s_136) in20_0))" +"(let-values(((shadow-except_137) shadow-except21_0))" "(let-values()" "(begin" -"(if(syntax-tainted?$1 s_70)" -" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_70))" +"(if(syntax-tainted?$1 s_133)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_136 s_133))" "(void))" -"(let-values(((temp59_1)(syntax-scope-set s_70 phase_36))" -"((binding60_0) binding_9)" -"((shadow-except61_0) shadow-except_2))" -"(add-bulk-binding-in-scopes!27.1 shadow-except61_0 temp59_1 binding60_0))))))))))))" +"(let-values(((temp59_139)(syntax-scope-set s_133 phase_135))" +"((binding60_140) binding_134)" +"((shadow-except61_141) shadow-except_137))" +"(add-bulk-binding-in-scopes!27.1 shadow-except61_141 temp59_139 binding60_140))))))))))))" "(define-values" "(add-local-binding!37.1)" "(lambda(frame-id30_0 in31_0 id34_0 phase35_0 counter36_0)" "(begin" " 'add-local-binding!37" -"(let-values(((id_16) id34_0))" -"(let-values(((phase_37) phase35_0))" -"(let-values(((counter_1) counter36_0))" -"(let-values(((frame-id_5) frame-id30_0))" -"(let-values(((in-s_4) in31_0))" +"(let-values(((id_173) id34_0))" +"(let-values(((phase_174) phase35_0))" +"(let-values(((counter_175) counter36_0))" +"(let-values(((frame-id_176) frame-id30_0))" +"(let-values(((in-s_177) in31_0))" "(let-values()" -"(let-values((()(begin(check-id-taint id_16 in-s_4)(values))))" -"(let-values((()(begin(set-box! counter_1(add1(unbox counter_1)))(values))))" -"(let-values(((key_43)" -" (string->uninterned-symbol (format \"~a_~a\" (syntax-e$1 id_16) (unbox counter_1)))))" +"(let-values((()(begin(check-id-taint id_173 in-s_177)(values))))" +"(let-values((()(begin(set-box! counter_175(add1(unbox counter_175)))(values))))" +"(let-values(((key_178)" +"(string->uninterned-symbol" +" (format \"~a_~a\" (syntax-e$1 id_173) (unbox counter_175)))))" "(begin" -"(let-values(((temp62_1)(syntax-scope-set id_16 phase_37))" -"((temp63_1)(syntax-e$1 id_16))" -"((temp64_1)" -"(let-values(((key65_0) key_43)((frame-id66_0) frame-id_5))" -"(make-local-binding7.1 frame-id66_0 #f key65_0))))" -"(add-binding-in-scopes!20.1 #f temp62_1 temp63_1 temp64_1))" -" key_43)))))))))))))" +"(let-values(((temp62_179)(syntax-scope-set id_173 phase_174))" +"((temp63_180)(syntax-e$1 id_173))" +"((temp64_181)" +"(let-values(((key65_183) key_178)((frame-id66_184) frame-id_176))" +"(make-local-binding7.1 frame-id66_184 #f key65_183))))" +"(add-binding-in-scopes!20.1 #f temp62_179 temp63_180 temp64_181))" +" key_178)))))))))))))" "(define-values" "(check-id-taint)" -"(lambda(id_17 in-s_5)" +"(lambda(id_0 in-s_0)" "(begin" -"(if(syntax-tainted?$1 id_17)" -" (let-values () (raise-syntax-error$1 #f \"cannot bind tainted identifier\" in-s_5 id_17))" +"(if(syntax-tainted?$1 id_0)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind tainted identifier\" in-s_0 id_0))" "(void)))))" "(define-values" "(binding-lookup50.1)" "(lambda(in40_0 out-of-context-as-variable?41_0 b44_0 env45_0 lift-envs46_0 ns47_0 phase48_0 id49_0)" "(begin" " 'binding-lookup50" -"(let-values(((b_60) b44_0))" -"(let-values(((env_1) env45_0))" -"(let-values(((lift-envs_0) lift-envs46_0))" -"(let-values(((ns_44) ns47_0))" -"(let-values(((phase_38) phase48_0))" -"(let-values(((id_18) id49_0))" -"(let-values(((in-s_6) in40_0))" -"(let-values(((out-of-context-as-variable?_0) out-of-context-as-variable?41_0))" +"(let-values(((b_221) b44_0))" +"(let-values(((env_222) env45_0))" +"(let-values(((lift-envs_223) lift-envs46_0))" +"(let-values(((ns_224) ns47_0))" +"(let-values(((phase_225) phase48_0))" +"(let-values(((id_226) id49_0))" +"(let-values(((in-s_227) in40_0))" +"(let-values(((out-of-context-as-variable?_228) out-of-context-as-variable?41_0))" "(let-values()" -"(if(module-binding? b_60)" +"(if(module-binding? b_221)" "(let-values()" -"(let-values(((top-level?_0)(top-level-module-path-index?(module-binding-module b_60))))" -"(let-values(((mi_15)" -"(if(not top-level?_0)" -"(binding->module-instance b_60 ns_44 phase_38 id_18)" +"(let-values(((top-level?_229)" +"(top-level-module-path-index?(module-binding-module b_221))))" +"(let-values(((mi_230)" +"(if(not top-level?_229)" +"(binding->module-instance b_221 ns_224 phase_225 id_226)" " #f)))" -"(let-values(((m_12)(if mi_15(module-instance-module mi_15) #f)))" -"(let-values(((primitive?_1)(if m_12(module-primitive? m_12) #f)))" -"(let-values(((m-ns_7)" -"(if top-level?_0" -" ns_44" -"(if mi_15(module-instance-namespace mi_15) #f))))" -"(let-values((()(begin(check-taint id_18)(values))))" -"(let-values(((t_42)" +"(let-values(((m_231)(if mi_230(module-instance-module mi_230) #f)))" +"(let-values(((primitive?_232)(if m_231(module-primitive? m_231) #f)))" +"(let-values(((m-ns_233)" +"(if top-level?_229" +" ns_224" +"(if mi_230(module-instance-namespace mi_230) #f))))" +"(let-values((()(begin(check-taint id_226)(values))))" +"(let-values(((t_234)" "(namespace-get-transformer" -" m-ns_7" -"(module-binding-phase b_60)" -"(module-binding-sym b_60)" +" m-ns_233" +"(module-binding-phase b_221)" +"(module-binding-sym b_221)" " variable)))" -"(let-values(((protected?_1)" -"(if mi_15" +"(let-values(((protected?_235)" +"(if mi_230" "(check-access" -" b_60" -" mi_15" -" id_18" -" in-s_6" -" (if (variable? t_42) \"variable\" \"transformer\"))" +" b_221" +" mi_230" +" id_226" +" in-s_227" +" (if (variable? t_234) \"variable\" \"transformer\"))" " #f)))" -"(let-values(((insp_6)" -"(if mi_15" -"(if(module-instance-module mi_15)" -"(module-inspector(module-instance-module mi_15))" +"(let-values(((insp_236)" +"(if mi_230" +"(if(module-instance-module mi_230)" +"(module-inspector(module-instance-module mi_230))" " #f)" " #f)))" -"(values t_42 primitive?_1 insp_6 protected?_1)))))))))))" -"(if(local-binding? b_60)" +"(values t_234 primitive?_232 insp_236 protected?_235)))))))))))" +"(if(local-binding? b_221)" "(let-values()" -"(let-values(((t_43)(hash-ref env_1(local-binding-key b_60) missing)))" -"(if(eq? t_43 missing)" +"(let-values(((t_237)(hash-ref env_222(local-binding-key b_221) missing)))" +"(if(eq? t_237 missing)" "(let-values()" "(values" -"(let-values(((or-part_103)" -"(let-values(((lst_73) lift-envs_0))" +"(let-values(((or-part_238)" +"(let-values(((lst_239) lift-envs_223))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_73)))" -"((letrec-values(((for-loop_96)" -"(lambda(result_60 lst_74)" +"(let-values()(check-list lst_239)))" +"((letrec-values(((for-loop_240)" +"(lambda(result_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_74)" -"(let-values(((lift-env_0)" -"(unsafe-car lst_74))" -"((rest_34)" -"(unsafe-cdr lst_74)))" -"(let-values(((result_61)" +"(if(pair? lst_0)" +"(let-values(((lift-env_243)" +"(unsafe-car lst_0))" +"((rest_244)" +"(unsafe-cdr lst_0)))" +"(let-values(((result_245)" "(let-values()" -"(let-values(((result_62)" +"(let-values(((result_247)" "(let-values()" "(let-values()" "(hash-ref" "(unbox" -" lift-env_0)" +" lift-env_243)" "(local-binding-key" -" b_60)" +" b_221)" " #f)))))" "(values" -" result_62)))))" +" result_247)))))" "(if(if(not" -"((lambda x_40 result_61)" -" lift-env_0))" +"((lambda x_0 result_245)" +" lift-env_243))" "(not #f)" " #f)" -"(for-loop_96 result_61 rest_34)" -" result_61)))" -" result_60)))))" -" for-loop_96)" +"(for-loop_240 result_245 rest_244)" +" result_245)))" +" result_0)))))" +" for-loop_240)" " #f" -" lst_73)))))" -"(if or-part_103" -" or-part_103" -"(if out-of-context-as-variable?_0" +" lst_239)))))" +"(if or-part_238" +" or-part_238" +"(if out-of-context-as-variable?_228" " variable" -" (error \"identifier used out of context:\" id_18))))" +" (error \"identifier used out of context:\" id_226))))" " #f" " #f" " #f))" -"(let-values()(begin(check-taint id_18)(values t_43 #f #f #f))))))" -" (let-values () (error \"internal error: unknown binding for lookup:\" b_60))))))))))))))))" +"(let-values()(begin(check-taint id_226)(values t_237 #f #f #f))))))" +" (let-values () (error \"internal error: unknown binding for lookup:\" b_221))))))))))))))))" "(define-values" "(check-taint)" -"(lambda(id_19)" +"(lambda(id_0)" "(begin" -"(if(syntax-tainted?$1 id_19)" -" (let-values () (raise-syntax-error$1 #f \"cannot use identifier tainted by macro transformation\" id_19))" +"(if(syntax-tainted?$1 id_0)" +" (let-values () (raise-syntax-error$1 #f \"cannot use identifier tainted by macro transformation\" id_0))" "(void)))))" -"(define-values(cons-ish)(lambda(a_40 b_61)(begin(if(null? b_61) a_40(cons a_40 b_61)))))" +"(define-values(cons-ish)(lambda(a_0 b_0)(begin(if(null? b_0) a_0(cons a_0 b_0)))))" "(define-values" "(to-syntax-list.1)" -"(lambda(s_169)" +"(lambda(s_0)" "(begin" " 'to-syntax-list" -"(if(list? s_169)" -"(let-values() s_169)" -"(if(pair? s_169)" -"(let-values()(let-values(((r_25)(to-syntax-list.1(cdr s_169))))(if r_25(cons(car s_169) r_25) #f)))" -"(if(syntax?$1 s_169)(let-values()(to-syntax-list.1(syntax-e$1 s_169)))(let-values() #f)))))))" +"(if(list? s_0)" +"(let-values() s_0)" +"(if(pair? s_0)" +"(let-values()(let-values(((r_303)(to-syntax-list.1(cdr s_0))))(if r_303(cons(car s_0) r_303) #f)))" +"(if(syntax?$1 s_0)(let-values()(to-syntax-list.1(syntax-e$1 s_0)))(let-values() #f)))))))" "(define-values(core-scope)(new-multi-scope))" "(define-values(core-stx)(add-scope empty-syntax core-scope))" "(define-values(core-module-name)(1/make-resolved-module-path '#%core))" @@ -14822,40 +14950,39 @@ static const char *startup_source = "(define-values(id-cache-1)(make-hasheq))" "(define-values" "(core-id)" -"(lambda(sym_12 phase_34)" +"(lambda(sym_0 phase_0)" "(begin" -"(if(eqv? phase_34 0)" +"(if(eqv? phase_0 0)" "(let-values()" -"(let-values(((or-part_6)(hash-ref id-cache-0 sym_12 #f)))" -"(if or-part_6" -" or-part_6" -"(let-values(((s_170)(datum->syntax$1 core-stx sym_12)))" -"(begin(hash-set! id-cache-0 sym_12 s_170) s_170)))))" -"(if(eq? phase_34 1)" +"(let-values(((or-part_18)(hash-ref id-cache-0 sym_0 #f)))" +"(if or-part_18" +" or-part_18" +"(let-values(((s_19)(datum->syntax$1 core-stx sym_0)))(begin(hash-set! id-cache-0 sym_0 s_19) s_19)))))" +"(if(eq? phase_0 1)" "(let-values()" -"(let-values(((or-part_28)(hash-ref id-cache-1 sym_12 #f)))" -"(if or-part_28" -" or-part_28" -"(let-values(((s_10)(datum->syntax$1(syntax-shift-phase-level$1 core-stx 1) sym_12)))" -"(begin(hash-set! id-cache-1 sym_12 s_10) s_10)))))" -"(let-values()(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_34) sym_12)))))))" +"(let-values(((or-part_20)(hash-ref id-cache-1 sym_0 #f)))" +"(if or-part_20" +" or-part_20" +"(let-values(((s_21)(datum->syntax$1(syntax-shift-phase-level$1 core-stx 1) sym_0)))" +"(begin(hash-set! id-cache-1 sym_0 s_21) s_21)))))" +"(let-values()(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_0) sym_0)))))))" "(define-values(core-forms) '#hasheq())" "(define-values(core-primitives) '#hasheq())" "(define-values" "(add-core-form!*)" -"(lambda(sym_24 proc_4)" -"(begin(begin(add-core-binding! sym_24)(set! core-forms(hash-set core-forms sym_24 proc_4))))))" +"(lambda(sym_0 proc_0)" +"(begin(begin(add-core-binding! sym_0)(set! core-forms(hash-set core-forms sym_0 proc_0))))))" "(define-values" "(add-core-primitive!)" -"(lambda(sym_25 val_35)" -"(begin(begin(add-core-binding! sym_25)(set! core-primitives(hash-set core-primitives sym_25 val_35))))))" +"(lambda(sym_0 val_0)" +"(begin(begin(add-core-binding! sym_0)(set! core-primitives(hash-set core-primitives sym_0 val_0))))))" "(define-values" "(add-core-binding!)" -"(lambda(sym_26)" +"(lambda(sym_0)" "(begin" -"(let-values(((temp1_0)(datum->syntax$1 core-stx sym_26))" -"((temp2_1)" -"(let-values(((core-mpi4_0) core-mpi)((temp5_2) 0)((sym6_0) sym_26))" +"(let-values(((temp1_27)(datum->syntax$1 core-stx sym_0))" +"((temp2_28)" +"(let-values(((core-mpi4_30) core-mpi)((temp5_31) 0)((sym6_32) sym_0))" "(make-module-binding22.1" " #f" " null" @@ -14866,75 +14993,75 @@ static const char *startup_source = " 0" " unsafe-undefined" " unsafe-undefined" -" core-mpi4_0" -" temp5_2" -" sym6_0)))" -"((temp3_1) 0))" -"(add-binding!17.1 #f #f temp1_0 temp2_1 temp3_1)))))" +" core-mpi4_30" +" temp5_31" +" sym6_32)))" +"((temp3_29) 0))" +"(add-binding!17.1 #f #f temp1_27 temp2_28 temp3_29)))))" "(define-values" "(declare-core-module!)" -"(lambda(ns_45)" +"(lambda(ns_0)" "(begin" -"(let-values(((ns7_0) ns_45)" -"((temp8_0)" -"(let-values(((temp10_0) #t)" -"((temp11_0) #t)" -"((temp12_0) #t)" -"((core-mpi13_0) core-mpi)" -"((temp14_1)" +"(let-values(((ns7_34) ns_0)" +"((temp8_35)" +"(let-values(((temp10_38) #t)" +"((temp11_39) #t)" +"((temp12_40) #t)" +"((core-mpi13_41) core-mpi)" +"((temp14_42)" "(hasheqv" " 0" -"(let-values(((lst_75)(list core-primitives core-forms))((lst_76) '(#f #t)))" +"(let-values(((lst_45)(list core-primitives core-forms))((lst_46) '(#f #t)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_75)))" +"(let-values()(check-list lst_45)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_97)" -"(lambda(table_112 lst_77 lst_78)" +"(let-values()(check-list lst_46)))" +"((letrec-values(((for-loop_47)" +"(lambda(table_0 lst_0 lst_1)" "(begin" " 'for-loop" -"(if(if(pair? lst_77)(pair? lst_78) #f)" -"(let-values(((syms_12)(unsafe-car lst_77))" -"((rest_35)(unsafe-cdr lst_77))" -"((syntax?_2)(unsafe-car lst_78))" -"((rest_36)(unsafe-cdr lst_78)))" -"(let-values(((table_113)" -"(let-values(((table_114) table_112))" -"(let-values(((ht_73) syms_12))" +"(if(if(pair? lst_0)(pair? lst_1) #f)" +"(let-values(((syms_51)(unsafe-car lst_0))" +"((rest_52)(unsafe-cdr lst_0))" +"((syntax?_53)(unsafe-car lst_1))" +"((rest_54)(unsafe-cdr lst_1)))" +"(let-values(((table_55)" +"(let-values(((table_56) table_0))" +"(let-values(((ht_57) syms_51))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_73)))" -"((letrec-values(((for-loop_98)" -"(lambda(table_115" -" i_42)" +"(check-in-hash-keys ht_57)))" +"((letrec-values(((for-loop_58)" +"(lambda(table_1" +" i_0)" "(begin" " 'for-loop" -"(if i_42" -"(let-values(((sym_27)" +"(if i_0" +"(let-values(((sym_61)" "(hash-iterate-key" -" ht_73" -" i_42)))" -"(let-values(((table_116)" -"(let-values(((table_117)" -" table_115))" -"(let-values(((table_118)" +" ht_57" +" i_0)))" +"(let-values(((table_62)" +"(let-values(((table_63)" +" table_1))" +"(let-values(((table_64)" "(let-values()" -"(let-values(((key_44" -" val_36)" +"(let-values(((key_65" +" val_66)" "(let-values()" -"(let-values(((b_62)" -"(let-values(((core-mpi17_0)" +"(let-values(((b_67)" +"(let-values(((core-mpi17_68)" " core-mpi)" -"((temp18_3)" +"((temp18_69)" " 0)" -"((sym19_0)" -" sym_27))" +"((sym19_70)" +" sym_61))" "(make-module-binding22.1" " #f" " null" @@ -14945,87 +15072,81 @@ static const char *startup_source = " 0" " unsafe-undefined" " unsafe-undefined" -" core-mpi17_0" -" temp18_3" -" sym19_0))))" +" core-mpi17_68" +" temp18_69" +" sym19_70))))" "(values" -" sym_27" -"(if syntax?_2" +" sym_61" +"(if syntax?_53" "(provided1.1" -" b_62" +" b_67" " #f" " #t)" -" b_62))))))" +" b_67))))))" "(hash-set" -" table_117" -" key_44" -" val_36)))))" +" table_63" +" key_65" +" val_66)))))" "(values" -" table_118)))))" +" table_64)))))" "(if(not" " #f)" -"(for-loop_98" -" table_116" +"(for-loop_58" +" table_62" "(hash-iterate-next" -" ht_73" -" i_42))" -" table_116)))" -" table_115)))))" -" for-loop_98)" -" table_114" -"(hash-iterate-first ht_73)))))))" +" ht_57" +" i_0))" +" table_62)))" +" table_1)))))" +" for-loop_58)" +" table_56" +"(hash-iterate-first ht_57)))))))" "(if(not #f)" -"(for-loop_97 table_113 rest_35 rest_36)" -" table_113)))" -" table_112)))))" -" for-loop_97)" +"(for-loop_47 table_55 rest_52 rest_54)" +" table_55)))" +" table_0)))))" +" for-loop_47)" " '#hasheq()" -" lst_75" -" lst_76)))))" -"((temp15_1)" -"(lambda(phase-level_14 ns_46 insp_7)" -"(if(zero? phase-level_14)" -"(let-values(((ns_47)" -"(let-values(((ns20_0) ns_46)" -"((core-module-name21_0) core-module-name)" -"((temp22_1) 0))" +" lst_45" +" lst_46)))))" +"((temp15_43)" +"(lambda(phase-level_0 ns_1 insp_0)" +"(if(zero? phase-level_0)" +"(let-values(((ns_74)" +"(let-values(((ns20_75) ns_1)" +"((core-module-name21_76) core-module-name)" +"((temp22_77) 0))" "(namespace->module-namespace82.1" " #f" " #f" " unsafe-undefined" -" ns20_0" -" core-module-name21_0" -" temp22_1))))" -"(if ns_47" -"(module-linklet-info2.1(namespace->instance ns_47 0) #f core-mpi #f #f #f)" +" ns20_75" +" core-module-name21_76" +" temp22_77))))" +"(if ns_74" +"(module-linklet-info2.1(namespace->instance ns_74 0) #f core-mpi #f #f #f)" " #f))" " #f)))" -"((temp16_1)" -"(lambda(data-box_1" -" ns_48" -" phase_39" -" phase-level_15" -" self_5" -" bulk-binding-registry_4" -" insp_8)" -"(let-values(((tmp_14) phase-level_15))" -"(if(equal? tmp_14 0)" +"((temp16_44)" +"(lambda(data-box_0 ns_1 phase_0 phase-level_0 self_0 bulk-binding-registry_0 insp_0)" +"(let-values(((tmp_85) phase-level_0))" +"(if(equal? tmp_85 0)" "(let-values()" "(begin" -"(let-values(((ht_74) core-primitives))" +"(let-values(((ht_86) core-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_74)))" -"((letrec-values(((for-loop_99)" -"(lambda(i_28)" +"(let-values()(check-in-hash ht_86)))" +"((letrec-values(((for-loop_87)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_28" -"(let-values(((sym_28 val_37)" +"(if i_0" +"(let-values(((sym_89 val_90)" "(hash-iterate-key+value" -" ht_74" -" i_28)))" +" ht_86" +" i_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -15033,34 +15154,34 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-consistent!" -" ns_48" +" ns_1" " 0" -" sym_28" -" val_37))" +" sym_89" +" val_90))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_99" -"(hash-iterate-next ht_74 i_28))" +"(for-loop_87" +"(hash-iterate-next ht_86 i_0))" "(values))))" "(values))))))" -" for-loop_99)" -"(hash-iterate-first ht_74))))" +" for-loop_87)" +"(hash-iterate-first ht_86))))" "(void)" -"(let-values(((ht_75) core-forms))" +"(let-values(((ht_91) core-forms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_75)))" -"((letrec-values(((for-loop_100)" -"(lambda(i_91)" +"(let-values()(check-in-hash ht_91)))" +"((letrec-values(((for-loop_92)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_91" -"(let-values(((sym_29 proc_5)" +"(if i_0" +"(let-values(((sym_94 proc_95)" "(hash-iterate-key+value" -" ht_75" -" i_91)))" +" ht_91" +" i_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -15068,161 +15189,159 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-transformer!" -" ns_48" +" ns_1" " 0" -" sym_29" +" sym_94" "(if(procedure-arity-includes?" -" proc_5" +" proc_95" " 2)" "(core-form9.1" -" proc_5" -" sym_29)" -" proc_5)))" +" proc_95" +" sym_94)" +" proc_95)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_100" -"(hash-iterate-next ht_75 i_91))" +"(for-loop_92" +"(hash-iterate-next ht_91 i_0))" "(values))))" "(values))))))" -" for-loop_100)" -"(hash-iterate-first ht_75))))" +" for-loop_92)" +"(hash-iterate-first ht_91))))" "(void)))" "(let-values()(void)))))))" "(make-module39.1" -" temp10_0" +" temp10_38" " unsafe-undefined" " unsafe-undefined" -" temp16_1" +" temp16_44" " #f" " 0" " 0" -" temp11_0" -" temp15_1" -" temp12_0" +" temp11_39" +" temp15_43" +" temp12_40" " unsafe-undefined" " #f" -" temp14_1" +" temp14_42" " null" -" core-mpi13_0" +" core-mpi13_41" " #f" " null" " #f)))" -"((core-module-name9_0) core-module-name))" -"(declare-module!58.1 #t ns7_0 temp8_0 core-module-name9_0)))))" +"((core-module-name9_36) core-module-name))" +"(declare-module!58.1 #t ns7_34 temp8_35 core-module-name9_36)))))" "(define-values" "(core-form-sym)" -"(lambda(s_19 phase_40)" +"(lambda(s_0 phase_0)" "(begin" -"(let-values(((ok?_0 id23_0 _24_0)" -"(let-values(((s_171) s_19))" -"(if(let-values(((s_85)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" -"(if(pair? s_85)" -"(if(let-values(((s_172)(car s_85)))" -"(let-values(((or-part_160)(if(syntax?$1 s_172)(symbol?(syntax-e$1 s_172)) #f)))" -"(if or-part_160 or-part_160(symbol? s_172))))" -"(let-values(((s_173)(cdr s_85))) #t)" +"(let-values(((ok?_98 id23_99 _24_100)" +"(let-values(((s_114) s_0))" +"(if(let-values(((s_115)(if(syntax?$1 s_114)(syntax-e$1 s_114) s_114)))" +"(if(pair? s_115)" +"(if(let-values(((s_116)(car s_115)))" +"(let-values(((or-part_117)(if(syntax?$1 s_116)(symbol?(syntax-e$1 s_116)) #f)))" +"(if or-part_117 or-part_117(symbol? s_116))))" +"(let-values(((s_118)(cdr s_115))) #t)" " #f)" " #f))" "(let-values()" -"(let-values(((id23_1 _24_1)" -"(let-values(((s_174)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" -"(let-values(((id25_0)(let-values(((s_175)(car s_174))) s_175))" -"((_26_0)(let-values(((s_176)(cdr s_174))) s_176)))" -"(values id25_0 _26_0)))))" -"(values #t id23_1 _24_1)))" +"(let-values(((id23_120 _24_121)" +"(let-values(((s_122)(if(syntax?$1 s_114)(syntax-e$1 s_114) s_114)))" +"(let-values(((id25_123)(let-values(((s_125)(car s_122))) s_125))" +"((_26_124)(let-values(((s_126)(cdr s_122))) s_126)))" +"(values id25_123 _26_124)))))" +"(values #t id23_120 _24_121)))" "(values #f #f #f)))))" -"(if ok?_0" -"(let-values(((b_63)" -"(let-values(((temp27_1) id23_0)((phase28_0) phase_40))" -"(resolve+shift28.1 #f #f null unsafe-undefined #f temp27_1 phase28_0))))" -"(if(module-binding? b_63)" -"(if(eq? core-module-name(1/module-path-index-resolve(module-binding-module b_63)))" -"(module-binding-sym b_63)" +"(if ok?_98" +"(let-values(((b_127)" +"(let-values(((temp27_128) id23_99)((phase28_129) phase_0))" +"(resolve+shift28.1 #f #f null unsafe-undefined #f temp27_128 phase28_129))))" +"(if(module-binding? b_127)" +"(if(eq? core-module-name(1/module-path-index-resolve(module-binding-module b_127)))" +"(module-binding-sym b_127)" " #f)" " #f))" " #f)))))" "(define-values" "(free-id-set)" -"(lambda(phase_41 ids_0)" +"(lambda(phase_0 ids_0)" "(begin" -"(let-values(((lst_79) ids_0))" +"(let-values(((lst_3) ids_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_79)))" -"((letrec-values(((for-loop_101)" -"(lambda(ht_76 lst_80)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_3)))" +"((letrec-values(((for-loop_4)" +"(lambda(ht_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((id_10)(unsafe-car lst_80))((rest_37)(unsafe-cdr lst_80)))" -"(let-values(((ht_77)" -"(let-values(((ht_78) ht_76))" -"(let-values(((ht_79)" +"(if(pair? lst_0)" +"(let-values(((id_7)(unsafe-car lst_0))((rest_8)(unsafe-cdr lst_0)))" +"(let-values(((ht_9)" +"(let-values(((ht_10) ht_0))" +"(let-values(((ht_11)" "(let-values()" -"(let-values(((sym_30)" +"(let-values(((sym_12)" "(identifier-binding-symbol$1" -" id_10" -" phase_41)))" +" id_7" +" phase_0)))" "(hash-set" -" ht_78" -" sym_30" -"(cons-ish" -" id_10" -"(hash-ref ht_78 sym_30 null)))))))" -"(values ht_79)))))" -"(if(not #f)(for-loop_101 ht_77 rest_37) ht_77)))" -" ht_76)))))" -" for-loop_101)" +" ht_10" +" sym_12" +"(cons-ish id_7(hash-ref ht_10 sym_12 null)))))))" +"(values ht_11)))))" +"(if(not #f)(for-loop_4 ht_9 rest_8) ht_9)))" +" ht_0)))))" +" for-loop_4)" " '#hasheq()" -" lst_79))))))" +" lst_3))))))" "(define-values(empty-free-id-set)(free-id-set 0 null))" "(define-values(free-id-set-empty?)(lambda(fs_0)(begin(eq? fs_0 empty-free-id-set))))" "(define-values" "(free-id-set-member?)" -"(lambda(fs_1 phase_42 given-id_0)" +"(lambda(fs_0 phase_0 given-id_0)" "(begin" -"(if(free-id-set-empty? fs_1)" +"(if(free-id-set-empty? fs_0)" " #f" -"(let-values(((lst_81)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_42) null)))" +"(let-values(((lst_17)(hash-ref fs_0(identifier-binding-symbol$1 given-id_0 phase_0) null)))" "(begin" "(void)" -"((letrec-values(((for-loop_102)" -"(lambda(result_3 lst_82)" +"((letrec-values(((for-loop_18)" +"(lambda(result_0 lst_0)" "(begin" " 'for-loop" -"(if(not(null? lst_82))" -"(let-values(((id_2)(if(pair? lst_82)(car lst_82) lst_82))" -"((rest_38)(if(pair? lst_82)(cdr lst_82) null)))" -"(let-values(((result_63)" +"(if(not(null? lst_0))" +"(let-values(((id_21)(if(pair? lst_0)(car lst_0) lst_0))" +"((rest_22)(if(pair? lst_0)(cdr lst_0) null)))" +"(let-values(((result_23)" "(let-values()" -"(let-values(((result_64)" +"(let-values(((result_25)" "(let-values()" "(let-values()" "(free-identifier=?$1" -" id_2" +" id_21" " given-id_0" -" phase_42" -" phase_42)))))" -"(values result_64)))))" -"(if(if(not((lambda x_41 result_63) id_2))(not #f) #f)" -"(for-loop_102 result_63 rest_38)" -" result_63)))" -" result_3)))))" -" for-loop_102)" +" phase_0" +" phase_0)))))" +"(values result_25)))))" +"(if(if(not((lambda x_0 result_23) id_21))(not #f) #f)" +"(for-loop_18 result_23 rest_22)" +" result_23)))" +" result_0)))))" +" for-loop_18)" " #f" -" lst_81)))))))" +" lst_17)))))))" "(define-values" "(free-id-set-empty-or-just-module*?)" -"(lambda(fs_2 phase_43)" +"(lambda(fs_0 phase_0)" "(begin" -"(let-values(((c_17)(hash-count fs_2)))" -"(let-values(((or-part_74)(zero? c_17)))" -"(if or-part_74" -" or-part_74" -"(if(= 1 c_17)" -"(let-values(((p-core-stx_0)(syntax-shift-phase-level$1 core-stx phase_43)))" -"(let-values(((mod-star-stx_0)(datum->syntax$1 p-core-stx_0 'module*)))" -"(free-identifier=?$1(car(hash-values fs_2)) mod-star-stx_0 phase_43 phase_43)))" +"(let-values(((c_29)(hash-count fs_0)))" +"(let-values(((or-part_30)(zero? c_29)))" +"(if or-part_30" +" or-part_30" +"(if(= 1 c_29)" +"(let-values(((p-core-stx_31)(syntax-shift-phase-level$1 core-stx phase_0)))" +"(let-values(((mod-star-stx_32)(datum->syntax$1 p-core-stx_31 'module*)))" +"(free-identifier=?$1(car(hash-values fs_0)) mod-star-stx_32 phase_0 phase_0)))" " #f)))))))" "(define-values" "(struct:expand-context/outer" @@ -15239,7 +15358,7 @@ static const char *startup_source = " expand-context/outer-current-introduction-scopes" " expand-context/outer-current-use-scopes" " expand-context/outer-name)" -"(let-values(((struct:_26 make-_26 ?_26 -ref_26 -set!_26)" +"(let-values(((struct:_6 make-_7 ?_8 -ref_9 -set!_10)" "(let-values()" "(let-values()" "(make-struct-type" @@ -15255,20 +15374,20 @@ static const char *startup_source = " #f" " 'expand-context/outer)))))" "(values" -" struct:_26" -" make-_26" -" ?_26" -"(make-struct-field-accessor -ref_26 0 'context)" -"(make-struct-field-accessor -ref_26 1 'env)" -"(make-struct-field-accessor -ref_26 2 'scopes)" -"(make-struct-field-accessor -ref_26 3 'def-ctx-scopes)" -"(make-struct-field-accessor -ref_26 4 'binding-layer)" -"(make-struct-field-accessor -ref_26 5 'reference-records)" -"(make-struct-field-accessor -ref_26 6 'only-immediate?)" -"(make-struct-field-accessor -ref_26 7 'need-eventually-defined)" -"(make-struct-field-accessor -ref_26 8 'current-introduction-scopes)" -"(make-struct-field-accessor -ref_26 9 'current-use-scopes)" -"(make-struct-field-accessor -ref_26 10 'name))))" +" struct:_6" +" make-_7" +" ?_8" +"(make-struct-field-accessor -ref_9 0 'context)" +"(make-struct-field-accessor -ref_9 1 'env)" +"(make-struct-field-accessor -ref_9 2 'scopes)" +"(make-struct-field-accessor -ref_9 3 'def-ctx-scopes)" +"(make-struct-field-accessor -ref_9 4 'binding-layer)" +"(make-struct-field-accessor -ref_9 5 'reference-records)" +"(make-struct-field-accessor -ref_9 6 'only-immediate?)" +"(make-struct-field-accessor -ref_9 7 'need-eventually-defined)" +"(make-struct-field-accessor -ref_9 8 'current-introduction-scopes)" +"(make-struct-field-accessor -ref_9 9 'current-use-scopes)" +"(make-struct-field-accessor -ref_9 10 'name))))" "(define-values" "(struct:expand-context/inner" " expand-context/inner2.1" @@ -15292,7 +15411,7 @@ static const char *startup_source = " expand-context/inner-observer" " expand-context/inner-for-serializable?" " expand-context/inner-should-not-encounter-macros?)" -"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" +"(let-values(((struct:_76 make-_77 ?_78 -ref_79 -set!_80)" "(let-values()" "(let-values()" "(make-struct-type" @@ -15308,46 +15427,46 @@ static const char *startup_source = " #f" " 'expand-context/inner)))))" "(values" -" struct:_33" -" make-_33" -" ?_33" -"(make-struct-field-accessor -ref_33 0 'to-parsed?)" -"(make-struct-field-accessor -ref_33 1 'phase)" -"(make-struct-field-accessor -ref_33 2 'namespace)" -"(make-struct-field-accessor -ref_33 3 'just-once?)" -"(make-struct-field-accessor -ref_33 4 'module-begin-k)" -"(make-struct-field-accessor -ref_33 5 'allow-unbound?)" -"(make-struct-field-accessor -ref_33 6 'in-local-expand?)" -"(make-struct-field-accessor -ref_33 7 'keep-#%expression?)" -"(make-struct-field-accessor -ref_33 8 'stops)" -"(make-struct-field-accessor -ref_33 9 'declared-submodule-names)" -"(make-struct-field-accessor -ref_33 10 'lifts)" -"(make-struct-field-accessor -ref_33 11 'lift-envs)" -"(make-struct-field-accessor -ref_33 12 'module-lifts)" -"(make-struct-field-accessor -ref_33 13 'require-lifts)" -"(make-struct-field-accessor -ref_33 14 'to-module-lifts)" -"(make-struct-field-accessor -ref_33 15 'requires+provides)" -"(make-struct-field-accessor -ref_33 16 'observer)" -"(make-struct-field-accessor -ref_33 17 'for-serializable?)" -"(make-struct-field-accessor -ref_33 18 'should-not-encounter-macros?))))" +" struct:_76" +" make-_77" +" ?_78" +"(make-struct-field-accessor -ref_79 0 'to-parsed?)" +"(make-struct-field-accessor -ref_79 1 'phase)" +"(make-struct-field-accessor -ref_79 2 'namespace)" +"(make-struct-field-accessor -ref_79 3 'just-once?)" +"(make-struct-field-accessor -ref_79 4 'module-begin-k)" +"(make-struct-field-accessor -ref_79 5 'allow-unbound?)" +"(make-struct-field-accessor -ref_79 6 'in-local-expand?)" +"(make-struct-field-accessor -ref_79 7 'keep-#%expression?)" +"(make-struct-field-accessor -ref_79 8 'stops)" +"(make-struct-field-accessor -ref_79 9 'declared-submodule-names)" +"(make-struct-field-accessor -ref_79 10 'lifts)" +"(make-struct-field-accessor -ref_79 11 'lift-envs)" +"(make-struct-field-accessor -ref_79 12 'module-lifts)" +"(make-struct-field-accessor -ref_79 13 'require-lifts)" +"(make-struct-field-accessor -ref_79 14 'to-module-lifts)" +"(make-struct-field-accessor -ref_79 15 'requires+provides)" +"(make-struct-field-accessor -ref_79 16 'observer)" +"(make-struct-field-accessor -ref_79 17 'for-serializable?)" +"(make-struct-field-accessor -ref_79 18 'should-not-encounter-macros?))))" "(define-values" "(expand-context/make)" -"(lambda(self-mpi_2" -" module-scopes_2" -" post-expansion_1" -" top-level-bind-scope_1" -" all-scopes-stx_2" -" use-site-scopes_1" -" defined-syms_1" -" frame-id_6" -" counter_2" -" lift-key_1" +"(lambda(self-mpi_0" +" module-scopes_0" +" post-expansion_0" +" top-level-bind-scope_0" +" all-scopes-stx_0" +" use-site-scopes_0" +" defined-syms_0" +" frame-id_0" +" counter_0" +" lift-key_0" " to-parsed?_0" " context_0" -" phase_44" +" phase_0" " namespace_0" -" env_2" -" scopes_18" +" env_0" +" scopes_0" " def-ctx-scopes_0" " binding-layer_0" " reference-records_0" @@ -15363,27 +15482,27 @@ static const char *startup_source = " current-use-scopes_0" " declared-submodule-names_0" " lifts_0" -" lift-envs_1" +" lift-envs_0" " module-lifts_0" " require-lifts_0" " to-module-lifts_0" " requires+provides_0" -" name_35" +" name_0" " observer_0" " for-serializable?_0" " should-not-encounter-macros?_0)" "(begin" "(expand-context/outer1.1" "(expand-context/inner2.1" -" self-mpi_2" -" module-scopes_2" -" top-level-bind-scope_1" -" all-scopes-stx_2" -" defined-syms_1" -" counter_2" -" lift-key_1" +" self-mpi_0" +" module-scopes_0" +" top-level-bind-scope_0" +" all-scopes-stx_0" +" defined-syms_0" +" counter_0" +" lift-key_0" " to-parsed?_0" -" phase_44" +" phase_0" " namespace_0" " just-once?_0" " module-begin-k_0" @@ -15393,7 +15512,7 @@ static const char *startup_source = " stops_0" " declared-submodule-names_0" " lifts_0" -" lift-envs_1" +" lift-envs_0" " module-lifts_0" " require-lifts_0" " to-module-lifts_0" @@ -15401,12 +15520,12 @@ static const char *startup_source = " observer_0" " for-serializable?_0" " should-not-encounter-macros?_0)" -" post-expansion_1" -" use-site-scopes_1" -" frame-id_6" +" post-expansion_0" +" use-site-scopes_0" +" frame-id_0" " context_0" -" env_2" -" scopes_18" +" env_0" +" scopes_0" " def-ctx-scopes_0" " binding-layer_0" " reference-records_0" @@ -15414,113 +15533,111 @@ static const char *startup_source = " need-eventually-defined_0" " current-introduction-scopes_0" " current-use-scopes_0" -" name_35))))" -"(define-values(expand-context-context)(lambda(v_91)(begin(expand-context/outer-context v_91))))" -"(define-values(expand-context-env)(lambda(v_92)(begin(expand-context/outer-env v_92))))" -"(define-values(expand-context-scopes)(lambda(v_93)(begin(expand-context/outer-scopes v_93))))" -"(define-values(expand-context-def-ctx-scopes)(lambda(v_94)(begin(expand-context/outer-def-ctx-scopes v_94))))" -"(define-values(expand-context-binding-layer)(lambda(v_95)(begin(expand-context/outer-binding-layer v_95))))" -"(define-values" -"(expand-context-reference-records)" -"(lambda(v_96)(begin(expand-context/outer-reference-records v_96))))" -"(define-values(expand-context-only-immediate?)(lambda(v_97)(begin(expand-context/outer-only-immediate? v_97))))" +" name_0))))" +"(define-values(expand-context-context)(lambda(v_0)(begin(expand-context/outer-context v_0))))" +"(define-values(expand-context-env)(lambda(v_0)(begin(expand-context/outer-env v_0))))" +"(define-values(expand-context-scopes)(lambda(v_0)(begin(expand-context/outer-scopes v_0))))" +"(define-values(expand-context-def-ctx-scopes)(lambda(v_0)(begin(expand-context/outer-def-ctx-scopes v_0))))" +"(define-values(expand-context-binding-layer)(lambda(v_0)(begin(expand-context/outer-binding-layer v_0))))" +"(define-values(expand-context-reference-records)(lambda(v_0)(begin(expand-context/outer-reference-records v_0))))" +"(define-values(expand-context-only-immediate?)(lambda(v_0)(begin(expand-context/outer-only-immediate? v_0))))" "(define-values" "(expand-context-need-eventually-defined)" -"(lambda(v_98)(begin(expand-context/outer-need-eventually-defined v_98))))" +"(lambda(v_0)(begin(expand-context/outer-need-eventually-defined v_0))))" "(define-values" "(expand-context-current-introduction-scopes)" -"(lambda(v_99)(begin(expand-context/outer-current-introduction-scopes v_99))))" +"(lambda(v_0)(begin(expand-context/outer-current-introduction-scopes v_0))))" "(define-values" "(expand-context-current-use-scopes)" -"(lambda(v_100)(begin(expand-context/outer-current-use-scopes v_100))))" -"(define-values(expand-context-name)(lambda(v_101)(begin(expand-context/outer-name v_101))))" +"(lambda(v_0)(begin(expand-context/outer-current-use-scopes v_0))))" +"(define-values(expand-context-name)(lambda(v_0)(begin(expand-context/outer-name v_0))))" "(define-values" "(expand-context-to-parsed?)" -"(lambda(v_102)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_102)))))" +"(lambda(v_0)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-phase)" -"(lambda(v_103)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_103)))))" +"(lambda(v_0)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-namespace)" -"(lambda(v_104)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_104)))))" +"(lambda(v_0)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-just-once?)" -"(lambda(v_105)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_105)))))" +"(lambda(v_0)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-module-begin-k)" -"(lambda(v_106)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_106)))))" +"(lambda(v_0)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-allow-unbound?)" -"(lambda(v_107)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_107)))))" +"(lambda(v_0)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-in-local-expand?)" -"(lambda(v_108)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_108)))))" +"(lambda(v_0)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-keep-#%expression?)" -"(lambda(v_109)(begin(expand-context/inner-keep-#%expression?(root-expand-context/outer-inner v_109)))))" +"(lambda(v_0)(begin(expand-context/inner-keep-#%expression?(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-stops)" -"(lambda(v_110)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_110)))))" +"(lambda(v_0)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-declared-submodule-names)" -"(lambda(v_111)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_111)))))" +"(lambda(v_0)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-lifts)" -"(lambda(v_112)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_112)))))" +"(lambda(v_0)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-lift-envs)" -"(lambda(v_113)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_113)))))" +"(lambda(v_0)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-module-lifts)" -"(lambda(v_114)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_114)))))" +"(lambda(v_0)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-require-lifts)" -"(lambda(v_115)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_115)))))" +"(lambda(v_0)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-to-module-lifts)" -"(lambda(v_116)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_116)))))" +"(lambda(v_0)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-requires+provides)" -"(lambda(v_117)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_117)))))" +"(lambda(v_0)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-observer)" -"(lambda(v_118)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_118)))))" +"(lambda(v_0)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-for-serializable?)" -"(lambda(v_119)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_119)))))" +"(lambda(v_0)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_0)))))" "(define-values" "(expand-context-should-not-encounter-macros?)" -"(lambda(v_120)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_120)))))" +"(lambda(v_0)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_0)))))" "(define-values" "(make-expand-context10.1)" "(lambda(for-serializable?4_0 observer5_0 to-parsed?3_0 ns9_0)" "(begin" " 'make-expand-context10" -"(let-values(((ns_49) ns9_0))" -"(let-values(((to-parsed?_1) to-parsed?3_0))" -"(let-values(((for-serializable?_1) for-serializable?4_0))" -"(let-values(((observer_1) observer5_0))" +"(let-values(((ns_261) ns9_0))" +"(let-values(((to-parsed?_262) to-parsed?3_0))" +"(let-values(((for-serializable?_263) for-serializable?4_0))" +"(let-values(((observer_264) observer5_0))" "(let-values()" -"(let-values(((root-ctx_1)(namespace-get-root-expand-ctx ns_49)))" +"(let-values(((root-ctx_265)(namespace-get-root-expand-ctx ns_261)))" "(expand-context/make" -"(root-expand-context-self-mpi root-ctx_1)" -"(root-expand-context-module-scopes root-ctx_1)" -"(root-expand-context-post-expansion root-ctx_1)" -"(root-expand-context-top-level-bind-scope root-ctx_1)" -"(root-expand-context-all-scopes-stx root-ctx_1)" -"(root-expand-context-use-site-scopes root-ctx_1)" -"(root-expand-context-defined-syms root-ctx_1)" -"(root-expand-context-frame-id root-ctx_1)" -"(root-expand-context-counter root-ctx_1)" -"(root-expand-context-lift-key root-ctx_1)" -" to-parsed?_1" +"(root-expand-context-self-mpi root-ctx_265)" +"(root-expand-context-module-scopes root-ctx_265)" +"(root-expand-context-post-expansion root-ctx_265)" +"(root-expand-context-top-level-bind-scope root-ctx_265)" +"(root-expand-context-all-scopes-stx root-ctx_265)" +"(root-expand-context-use-site-scopes root-ctx_265)" +"(root-expand-context-defined-syms root-ctx_265)" +"(root-expand-context-frame-id root-ctx_265)" +"(root-expand-context-counter root-ctx_265)" +"(root-expand-context-lift-key root-ctx_265)" +" to-parsed?_262" " 'top-level" -"(namespace-phase ns_49)" -" ns_49" +"(namespace-phase ns_261)" +" ns_261" " empty-env" " null" " #f" -"(root-expand-context-frame-id root-ctx_1)" +"(root-expand-context-frame-id root-ctx_265)" " null" " #f" " #f" @@ -15540,738 +15657,737 @@ static const char *startup_source = " #f" " #f" " #f" -" observer_1" -" for-serializable?_1" +" observer_264" +" for-serializable?_263" " #f))))))))))" "(define-values" "(copy-root-expand-context)" -"(lambda(ctx_1 root-ctx_2)" +"(lambda(ctx_0 root-ctx_0)" "(begin" -"(let-values(((v_121) ctx_1))" -"(let-values(((the-struct_14) v_121))" -"(if(expand-context/outer? the-struct_14)" -"(let-values(((post-expansion27_0)(root-expand-context-post-expansion root-ctx_2))" -"((use-site-scopes28_0)(root-expand-context-use-site-scopes root-ctx_2))" -"((frame-id29_0)(root-expand-context-frame-id root-ctx_2))" -"((binding-layer30_0)(root-expand-context-frame-id root-ctx_2))" -"((inner31_0)" -"(let-values(((the-struct_41)(root-expand-context/outer-inner v_121)))" -"(if(expand-context/inner? the-struct_41)" -"(let-values(((self-mpi32_0)(root-expand-context-self-mpi root-ctx_2))" -"((module-scopes33_0)(root-expand-context-module-scopes root-ctx_2))" -"((top-level-bind-scope34_0)" -"(root-expand-context-top-level-bind-scope root-ctx_2))" -"((all-scopes-stx35_0)(root-expand-context-all-scopes-stx root-ctx_2))" -"((defined-syms36_0)(root-expand-context-defined-syms root-ctx_2))" -"((counter37_0)(root-expand-context-counter root-ctx_2))" -"((lift-key38_0)(root-expand-context-lift-key root-ctx_2)))" +"(let-values(((v_294) ctx_0))" +"(let-values(((the-struct_295) v_294))" +"(if(expand-context/outer? the-struct_295)" +"(let-values(((post-expansion27_296)(root-expand-context-post-expansion root-ctx_0))" +"((use-site-scopes28_297)(root-expand-context-use-site-scopes root-ctx_0))" +"((frame-id29_298)(root-expand-context-frame-id root-ctx_0))" +"((binding-layer30_299)(root-expand-context-frame-id root-ctx_0))" +"((inner31_300)" +"(let-values(((the-struct_301)(root-expand-context/outer-inner v_294)))" +"(if(expand-context/inner? the-struct_301)" +"(let-values(((self-mpi32_302)(root-expand-context-self-mpi root-ctx_0))" +"((module-scopes33_303)(root-expand-context-module-scopes root-ctx_0))" +"((top-level-bind-scope34_304)" +"(root-expand-context-top-level-bind-scope root-ctx_0))" +"((all-scopes-stx35_305)(root-expand-context-all-scopes-stx root-ctx_0))" +"((defined-syms36_306)(root-expand-context-defined-syms root-ctx_0))" +"((counter37_307)(root-expand-context-counter root-ctx_0))" +"((lift-key38_308)(root-expand-context-lift-key root-ctx_0)))" "(expand-context/inner2.1" -" self-mpi32_0" -" module-scopes33_0" -" top-level-bind-scope34_0" -" all-scopes-stx35_0" -" defined-syms36_0" -" counter37_0" -" lift-key38_0" -"(expand-context/inner-to-parsed? the-struct_41)" -"(expand-context/inner-phase the-struct_41)" -"(expand-context/inner-namespace the-struct_41)" -"(expand-context/inner-just-once? the-struct_41)" -"(expand-context/inner-module-begin-k the-struct_41)" -"(expand-context/inner-allow-unbound? the-struct_41)" -"(expand-context/inner-in-local-expand? the-struct_41)" -"(expand-context/inner-keep-#%expression? the-struct_41)" -"(expand-context/inner-stops the-struct_41)" -"(expand-context/inner-declared-submodule-names the-struct_41)" -"(expand-context/inner-lifts the-struct_41)" -"(expand-context/inner-lift-envs the-struct_41)" -"(expand-context/inner-module-lifts the-struct_41)" -"(expand-context/inner-require-lifts the-struct_41)" -"(expand-context/inner-to-module-lifts the-struct_41)" -"(expand-context/inner-requires+provides the-struct_41)" -"(expand-context/inner-observer the-struct_41)" -"(expand-context/inner-for-serializable? the-struct_41)" -"(expand-context/inner-should-not-encounter-macros? the-struct_41)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_41)))))" +" self-mpi32_302" +" module-scopes33_303" +" top-level-bind-scope34_304" +" all-scopes-stx35_305" +" defined-syms36_306" +" counter37_307" +" lift-key38_308" +"(expand-context/inner-to-parsed? the-struct_301)" +"(expand-context/inner-phase the-struct_301)" +"(expand-context/inner-namespace the-struct_301)" +"(expand-context/inner-just-once? the-struct_301)" +"(expand-context/inner-module-begin-k the-struct_301)" +"(expand-context/inner-allow-unbound? the-struct_301)" +"(expand-context/inner-in-local-expand? the-struct_301)" +"(expand-context/inner-keep-#%expression? the-struct_301)" +"(expand-context/inner-stops the-struct_301)" +"(expand-context/inner-declared-submodule-names the-struct_301)" +"(expand-context/inner-lifts the-struct_301)" +"(expand-context/inner-lift-envs the-struct_301)" +"(expand-context/inner-module-lifts the-struct_301)" +"(expand-context/inner-require-lifts the-struct_301)" +"(expand-context/inner-to-module-lifts the-struct_301)" +"(expand-context/inner-requires+provides the-struct_301)" +"(expand-context/inner-observer the-struct_301)" +"(expand-context/inner-for-serializable? the-struct_301)" +"(expand-context/inner-should-not-encounter-macros? the-struct_301)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_301)))))" "(expand-context/outer1.1" -" inner31_0" -" post-expansion27_0" -" use-site-scopes28_0" -" frame-id29_0" -"(expand-context/outer-context the-struct_14)" -"(expand-context/outer-env the-struct_14)" -"(expand-context/outer-scopes the-struct_14)" -"(expand-context/outer-def-ctx-scopes the-struct_14)" -" binding-layer30_0" -"(expand-context/outer-reference-records the-struct_14)" -"(expand-context/outer-only-immediate? the-struct_14)" -"(expand-context/outer-need-eventually-defined the-struct_14)" -"(expand-context/outer-current-introduction-scopes the-struct_14)" -"(expand-context/outer-current-use-scopes the-struct_14)" -"(expand-context/outer-name the-struct_14)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_14)))))))" +" inner31_300" +" post-expansion27_296" +" use-site-scopes28_297" +" frame-id29_298" +"(expand-context/outer-context the-struct_295)" +"(expand-context/outer-env the-struct_295)" +"(expand-context/outer-scopes the-struct_295)" +"(expand-context/outer-def-ctx-scopes the-struct_295)" +" binding-layer30_299" +"(expand-context/outer-reference-records the-struct_295)" +"(expand-context/outer-only-immediate? the-struct_295)" +"(expand-context/outer-need-eventually-defined the-struct_295)" +"(expand-context/outer-current-introduction-scopes the-struct_295)" +"(expand-context/outer-current-use-scopes the-struct_295)" +"(expand-context/outer-name the-struct_295)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_295)))))))" "(define-values(current-expand-context)(make-parameter #f))" "(define-values" "(get-current-expand-context16.1)" "(lambda(fail-ok?13_0 who15_0)" "(begin" " 'get-current-expand-context16" -"(let-values(((who_10) who15_0))" -"(let-values(((fail-ok?_0) fail-ok?13_0))" +"(let-values(((who_311) who15_0))" +"(let-values(((fail-ok?_312) fail-ok?13_0))" "(let-values()" -"(let-values(((or-part_161)(force(current-expand-context))))" -"(if or-part_161" -" or-part_161" -" (if fail-ok?_0 #f (raise-arguments-error who_10 \"not currently expanding\"))))))))))" +"(let-values(((or-part_313)(force(current-expand-context))))" +"(if or-part_313" +" or-part_313" +" (if fail-ok?_312 #f (raise-arguments-error who_311 \"not currently expanding\"))))))))))" "(define-values" "(current-expand-observe)" "(make-parameter" " #f" -"(lambda(v_122)" +"(lambda(v_0)" "(begin" -"(if(let-values(((or-part_162)(not v_122)))" -"(if or-part_162 or-part_162(if(procedure? v_122)(procedure-arity-includes? v_122 2) #f)))" +"(if(let-values(((or-part_331)(not v_0)))" +"(if or-part_331 or-part_331(if(procedure? v_0)(procedure-arity-includes? v_0 2) #f)))" "(void)" -"(let-values()" -" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_122)))" -" v_122))))" +" (let-values () (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_0)))" +" v_0))))" "(define-values" "(as-expression-context)" -"(lambda(ctx_2)" +"(lambda(ctx_0)" "(begin" -"(if(if(eq? 'expression(expand-context-context ctx_2))(not(expand-context-name ctx_2)) #f)" -"(let-values() ctx_2)" +"(if(if(eq? 'expression(expand-context-context ctx_0))(not(expand-context-name ctx_0)) #f)" +"(let-values() ctx_0)" "(let-values()" -"(let-values(((v_123) ctx_2))" -"(let-values(((the-struct_16) v_123))" -"(if(expand-context/outer? the-struct_16)" -"(let-values(((context39_0) 'expression)" -"((name40_0) #f)" -"((post-expansion41_0) #f)" -"((inner42_0)(root-expand-context/outer-inner v_123)))" +"(let-values(((v_333) ctx_0))" +"(let-values(((the-struct_334) v_333))" +"(if(expand-context/outer? the-struct_334)" +"(let-values(((context39_335) 'expression)" +"((name40_336) #f)" +"((post-expansion41_337) #f)" +"((inner42_338)(root-expand-context/outer-inner v_333)))" "(expand-context/outer1.1" -" inner42_0" -" post-expansion41_0" -"(root-expand-context/outer-use-site-scopes the-struct_16)" -"(root-expand-context/outer-frame-id the-struct_16)" -" context39_0" -"(expand-context/outer-env the-struct_16)" -"(expand-context/outer-scopes the-struct_16)" -"(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)" -"(expand-context/outer-only-immediate? the-struct_16)" -"(expand-context/outer-need-eventually-defined the-struct_16)" -"(expand-context/outer-current-introduction-scopes the-struct_16)" -"(expand-context/outer-current-use-scopes the-struct_16)" -" name40_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_16)))))))))" +" inner42_338" +" post-expansion41_337" +"(root-expand-context/outer-use-site-scopes the-struct_334)" +"(root-expand-context/outer-frame-id the-struct_334)" +" context39_335" +"(expand-context/outer-env the-struct_334)" +"(expand-context/outer-scopes the-struct_334)" +"(expand-context/outer-def-ctx-scopes the-struct_334)" +"(expand-context/outer-binding-layer the-struct_334)" +"(expand-context/outer-reference-records the-struct_334)" +"(expand-context/outer-only-immediate? the-struct_334)" +"(expand-context/outer-need-eventually-defined the-struct_334)" +"(expand-context/outer-current-introduction-scopes the-struct_334)" +"(expand-context/outer-current-use-scopes the-struct_334)" +" name40_336))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_334)))))))))" "(define-values" "(as-begin-expression-context)" -"(lambda(ctx_3)" +"(lambda(ctx_0)" "(begin" -"(if(not(expand-context-name ctx_3))" -"(let-values() ctx_3)" +"(if(not(expand-context-name ctx_0))" +"(let-values() ctx_0)" "(let-values()" -"(let-values(((v_124) ctx_3))" -"(let-values(((the-struct_42) v_124))" -"(if(expand-context/outer? the-struct_42)" -"(let-values(((name43_0) #f)((inner44_0)(root-expand-context/outer-inner v_124)))" +"(let-values(((v_340) ctx_0))" +"(let-values(((the-struct_341) v_340))" +"(if(expand-context/outer? the-struct_341)" +"(let-values(((name43_342) #f)((inner44_343)(root-expand-context/outer-inner v_340)))" "(expand-context/outer1.1" -" inner44_0" -"(root-expand-context/outer-post-expansion the-struct_42)" -"(root-expand-context/outer-use-site-scopes the-struct_42)" -"(root-expand-context/outer-frame-id the-struct_42)" -"(expand-context/outer-context the-struct_42)" -"(expand-context/outer-env the-struct_42)" -"(expand-context/outer-scopes the-struct_42)" -"(expand-context/outer-def-ctx-scopes the-struct_42)" -"(expand-context/outer-binding-layer the-struct_42)" -"(expand-context/outer-reference-records the-struct_42)" -"(expand-context/outer-only-immediate? the-struct_42)" -"(expand-context/outer-need-eventually-defined the-struct_42)" -"(expand-context/outer-current-introduction-scopes the-struct_42)" -"(expand-context/outer-current-use-scopes the-struct_42)" -" name43_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_42)))))))))" +" inner44_343" +"(root-expand-context/outer-post-expansion the-struct_341)" +"(root-expand-context/outer-use-site-scopes the-struct_341)" +"(root-expand-context/outer-frame-id the-struct_341)" +"(expand-context/outer-context the-struct_341)" +"(expand-context/outer-env the-struct_341)" +"(expand-context/outer-scopes the-struct_341)" +"(expand-context/outer-def-ctx-scopes the-struct_341)" +"(expand-context/outer-binding-layer the-struct_341)" +"(expand-context/outer-reference-records the-struct_341)" +"(expand-context/outer-only-immediate? the-struct_341)" +"(expand-context/outer-need-eventually-defined the-struct_341)" +"(expand-context/outer-current-introduction-scopes the-struct_341)" +"(expand-context/outer-current-use-scopes the-struct_341)" +" name43_342))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_341)))))))))" "(define-values" "(as-tail-context22.1)" "(lambda(wrt19_0 ctx21_0)" "(begin" " 'as-tail-context22" -"(let-values(((ctx_4) ctx21_0))" -"(let-values(((wrt-ctx_0) wrt19_0))" +"(let-values(((ctx_350) ctx21_0))" +"(let-values(((wrt-ctx_351) wrt19_0))" "(let-values()" -"(if(expand-context-name wrt-ctx_0)" +"(if(expand-context-name wrt-ctx_351)" "(let-values()" -"(let-values(((v_125) ctx_4))" -"(let-values(((the-struct_43) v_125))" -"(if(expand-context/outer? the-struct_43)" -"(let-values(((name45_0)(expand-context-name wrt-ctx_0))" -"((inner46_0)(root-expand-context/outer-inner v_125)))" +"(let-values(((v_352) ctx_350))" +"(let-values(((the-struct_353) v_352))" +"(if(expand-context/outer? the-struct_353)" +"(let-values(((name45_354)(expand-context-name wrt-ctx_351))" +"((inner46_355)(root-expand-context/outer-inner v_352)))" "(expand-context/outer1.1" -" inner46_0" -"(root-expand-context/outer-post-expansion the-struct_43)" -"(root-expand-context/outer-use-site-scopes the-struct_43)" -"(root-expand-context/outer-frame-id the-struct_43)" -"(expand-context/outer-context the-struct_43)" -"(expand-context/outer-env the-struct_43)" -"(expand-context/outer-scopes the-struct_43)" -"(expand-context/outer-def-ctx-scopes the-struct_43)" -"(expand-context/outer-binding-layer the-struct_43)" -"(expand-context/outer-reference-records the-struct_43)" -"(expand-context/outer-only-immediate? the-struct_43)" -"(expand-context/outer-need-eventually-defined the-struct_43)" -"(expand-context/outer-current-introduction-scopes the-struct_43)" -"(expand-context/outer-current-use-scopes the-struct_43)" -" name45_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))" -"(let-values() ctx_4))))))))" +" inner46_355" +"(root-expand-context/outer-post-expansion the-struct_353)" +"(root-expand-context/outer-use-site-scopes the-struct_353)" +"(root-expand-context/outer-frame-id the-struct_353)" +"(expand-context/outer-context the-struct_353)" +"(expand-context/outer-env the-struct_353)" +"(expand-context/outer-scopes the-struct_353)" +"(expand-context/outer-def-ctx-scopes the-struct_353)" +"(expand-context/outer-binding-layer the-struct_353)" +"(expand-context/outer-reference-records the-struct_353)" +"(expand-context/outer-only-immediate? the-struct_353)" +"(expand-context/outer-need-eventually-defined the-struct_353)" +"(expand-context/outer-current-introduction-scopes the-struct_353)" +"(expand-context/outer-current-use-scopes the-struct_353)" +" name45_354))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_353)))))" +"(let-values() ctx_350))))))))" "(define-values" "(as-named-context)" -"(lambda(ctx_5 ids_1)" +"(lambda(ctx_0 ids_0)" "(begin" -"(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" +"(if(if(pair? ids_0)(null?(cdr ids_0)) #f)" "(let-values()" -"(let-values(((v_126) ctx_5))" -"(let-values(((the-struct_44) v_126))" -"(if(expand-context/outer? the-struct_44)" -"(let-values(((name47_0)(car ids_1))((inner48_0)(root-expand-context/outer-inner v_126)))" +"(let-values(((v_368) ctx_0))" +"(let-values(((the-struct_369) v_368))" +"(if(expand-context/outer? the-struct_369)" +"(let-values(((name47_370)(car ids_0))((inner48_371)(root-expand-context/outer-inner v_368)))" "(expand-context/outer1.1" -" inner48_0" -"(root-expand-context/outer-post-expansion the-struct_44)" -"(root-expand-context/outer-use-site-scopes the-struct_44)" -"(root-expand-context/outer-frame-id the-struct_44)" -"(expand-context/outer-context the-struct_44)" -"(expand-context/outer-env the-struct_44)" -"(expand-context/outer-scopes the-struct_44)" -"(expand-context/outer-def-ctx-scopes the-struct_44)" -"(expand-context/outer-binding-layer the-struct_44)" -"(expand-context/outer-reference-records the-struct_44)" -"(expand-context/outer-only-immediate? the-struct_44)" -"(expand-context/outer-need-eventually-defined the-struct_44)" -"(expand-context/outer-current-introduction-scopes the-struct_44)" -"(expand-context/outer-current-use-scopes the-struct_44)" -" name47_0))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_44)))))" -"(let-values() ctx_5)))))" +" inner48_371" +"(root-expand-context/outer-post-expansion the-struct_369)" +"(root-expand-context/outer-use-site-scopes the-struct_369)" +"(root-expand-context/outer-frame-id the-struct_369)" +"(expand-context/outer-context the-struct_369)" +"(expand-context/outer-env the-struct_369)" +"(expand-context/outer-scopes the-struct_369)" +"(expand-context/outer-def-ctx-scopes the-struct_369)" +"(expand-context/outer-binding-layer the-struct_369)" +"(expand-context/outer-reference-records the-struct_369)" +"(expand-context/outer-only-immediate? the-struct_369)" +"(expand-context/outer-need-eventually-defined the-struct_369)" +"(expand-context/outer-current-introduction-scopes the-struct_369)" +"(expand-context/outer-current-use-scopes the-struct_369)" +" name47_370))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_369)))))" +"(let-values() ctx_0)))))" "(define-values" "(as-to-parsed-context)" -"(lambda(ctx_6)" +"(lambda(ctx_0)" "(begin" -"(let-values(((v_127) ctx_6))" -"(let-values(((the-struct_45) v_127))" -"(if(expand-context/outer? the-struct_45)" -"(let-values(((inner49_0)" -"(let-values(((the-struct_46)(root-expand-context/outer-inner v_127)))" -"(if(expand-context/inner? the-struct_46)" -"(let-values(((to-parsed?50_0) #t)" -"((observer51_0) #f)" -"((should-not-encounter-macros?52_0) #t))" +"(let-values(((v_373) ctx_0))" +"(let-values(((the-struct_374) v_373))" +"(if(expand-context/outer? the-struct_374)" +"(let-values(((inner49_375)" +"(let-values(((the-struct_376)(root-expand-context/outer-inner v_373)))" +"(if(expand-context/inner? the-struct_376)" +"(let-values(((to-parsed?50_377) #t)" +"((observer51_378) #f)" +"((should-not-encounter-macros?52_379) #t))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_46)" -"(root-expand-context/inner-module-scopes the-struct_46)" -"(root-expand-context/inner-top-level-bind-scope the-struct_46)" -"(root-expand-context/inner-all-scopes-stx the-struct_46)" -"(root-expand-context/inner-defined-syms the-struct_46)" -"(root-expand-context/inner-counter the-struct_46)" -"(root-expand-context/inner-lift-key the-struct_46)" -" to-parsed?50_0" -"(expand-context/inner-phase the-struct_46)" -"(expand-context/inner-namespace the-struct_46)" -"(expand-context/inner-just-once? the-struct_46)" -"(expand-context/inner-module-begin-k the-struct_46)" -"(expand-context/inner-allow-unbound? the-struct_46)" -"(expand-context/inner-in-local-expand? the-struct_46)" -"(expand-context/inner-keep-#%expression? the-struct_46)" -"(expand-context/inner-stops the-struct_46)" -"(expand-context/inner-declared-submodule-names the-struct_46)" -"(expand-context/inner-lifts the-struct_46)" -"(expand-context/inner-lift-envs the-struct_46)" -"(expand-context/inner-module-lifts the-struct_46)" -"(expand-context/inner-require-lifts the-struct_46)" -"(expand-context/inner-to-module-lifts the-struct_46)" -"(expand-context/inner-requires+provides the-struct_46)" -" observer51_0" -"(expand-context/inner-for-serializable? the-struct_46)" -" should-not-encounter-macros?52_0))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_46)))))" +"(root-expand-context/inner-self-mpi the-struct_376)" +"(root-expand-context/inner-module-scopes the-struct_376)" +"(root-expand-context/inner-top-level-bind-scope the-struct_376)" +"(root-expand-context/inner-all-scopes-stx the-struct_376)" +"(root-expand-context/inner-defined-syms the-struct_376)" +"(root-expand-context/inner-counter the-struct_376)" +"(root-expand-context/inner-lift-key the-struct_376)" +" to-parsed?50_377" +"(expand-context/inner-phase the-struct_376)" +"(expand-context/inner-namespace the-struct_376)" +"(expand-context/inner-just-once? the-struct_376)" +"(expand-context/inner-module-begin-k the-struct_376)" +"(expand-context/inner-allow-unbound? the-struct_376)" +"(expand-context/inner-in-local-expand? the-struct_376)" +"(expand-context/inner-keep-#%expression? the-struct_376)" +"(expand-context/inner-stops the-struct_376)" +"(expand-context/inner-declared-submodule-names the-struct_376)" +"(expand-context/inner-lifts the-struct_376)" +"(expand-context/inner-lift-envs the-struct_376)" +"(expand-context/inner-module-lifts the-struct_376)" +"(expand-context/inner-require-lifts the-struct_376)" +"(expand-context/inner-to-module-lifts the-struct_376)" +"(expand-context/inner-requires+provides the-struct_376)" +" observer51_378" +"(expand-context/inner-for-serializable? the-struct_376)" +" should-not-encounter-macros?52_379))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_376)))))" "(expand-context/outer1.1" -" inner49_0" -"(root-expand-context/outer-post-expansion the-struct_45)" -"(root-expand-context/outer-use-site-scopes the-struct_45)" -"(root-expand-context/outer-frame-id the-struct_45)" -"(expand-context/outer-context the-struct_45)" -"(expand-context/outer-env the-struct_45)" -"(expand-context/outer-scopes the-struct_45)" -"(expand-context/outer-def-ctx-scopes the-struct_45)" -"(expand-context/outer-binding-layer the-struct_45)" -"(expand-context/outer-reference-records the-struct_45)" -"(expand-context/outer-only-immediate? the-struct_45)" -"(expand-context/outer-need-eventually-defined the-struct_45)" -"(expand-context/outer-current-introduction-scopes the-struct_45)" -"(expand-context/outer-current-use-scopes the-struct_45)" -"(expand-context/outer-name the-struct_45)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_45)))))))" +" inner49_375" +"(root-expand-context/outer-post-expansion the-struct_374)" +"(root-expand-context/outer-use-site-scopes the-struct_374)" +"(root-expand-context/outer-frame-id the-struct_374)" +"(expand-context/outer-context the-struct_374)" +"(expand-context/outer-env the-struct_374)" +"(expand-context/outer-scopes the-struct_374)" +"(expand-context/outer-def-ctx-scopes the-struct_374)" +"(expand-context/outer-binding-layer the-struct_374)" +"(expand-context/outer-reference-records the-struct_374)" +"(expand-context/outer-only-immediate? the-struct_374)" +"(expand-context/outer-need-eventually-defined the-struct_374)" +"(expand-context/outer-current-introduction-scopes the-struct_374)" +"(expand-context/outer-current-use-scopes the-struct_374)" +"(expand-context/outer-name the-struct_374)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_374)))))))" "(define-values" "(taint-dispatch)" -"(lambda(s_0 proc_6 phase_33)" +"(lambda(s_0 proc_0 phase_0)" "(begin" -"((letrec-values(((loop_79)" -"(lambda(s_73 mode_11)" +"((letrec-values(((loop_4)" +"(lambda(s_1 mode_0)" "(begin" " 'loop" -"(let-values(((tmp_4) mode_11))" -"(if(equal? tmp_4 'none)" -"(let-values() s_73)" -"(if(equal? tmp_4 'opaque)" -"(let-values()(proc_6 s_73))" -"(if(equal? tmp_4 'transparent)" +"(let-values(((tmp_7) mode_0))" +"(if(equal? tmp_7 'none)" +"(let-values() s_1)" +"(if(equal? tmp_7 'opaque)" +"(let-values()(proc_0 s_1))" +"(if(equal? tmp_7 'transparent)" "(let-values()" -"(let-values(((c_18)" -"(let-values(((s_177)" -"(let-values(((or-part_13)(syntax->list$1 s_73)))" -"(if or-part_13 or-part_13(syntax-e$1 s_73))))" -"((f_1)(lambda(tail?_40 d_18)(begin 'f d_18)))" -"((s->_3)" -"(lambda(s_178)" +"(let-values(((c_8)" +"(let-values(((s_9)" +"(let-values(((or-part_13)(syntax->list$1 s_1)))" +"(if or-part_13 or-part_13(syntax-e$1 s_1))))" +"((f_10)(lambda(tail?_0 d_0)(begin 'f d_0)))" +"((s->_11)" +"(lambda(s_2)" "(begin" " 's->" -"(loop_79" -" s_178" -"(syntax-taint-mode-property s_178)))))" -"((seen_19) #f))" -"(let-values(((s_179) s_177)" -"((f_2) f_1)" -"((gf_8)" -"(lambda(tail?_41 v_32)" +"(loop_4 s_2(syntax-taint-mode-property s_2)))))" +"((seen_12) #f))" +"(let-values(((s_17) s_9)" +"((f_18) f_10)" +"((gf_19)" +"(lambda(tail?_0 v_0)" "(begin" " 'gf" -"(if(syntax?$1 v_32)" -"(let-values()(s->_3 v_32))" -"(let-values()(f_1 tail?_41 v_32))))))" -"((seen_20) seen_19))" -"((letrec-values(((loop_80)" -"(lambda(tail?_42 s_4 prev-depth_8)" +"(if(syntax?$1 v_0)" +"(let-values()(s->_11 v_0))" +"(let-values()(f_10 tail?_0 v_0))))))" +"((seen_20) seen_12))" +"((letrec-values(((loop_23)" +"(lambda(tail?_0 s_2 prev-depth_0)" "(begin" " 'loop" -"(let-values(((depth_8)" -"(fx+ 1 prev-depth_8)))" -"(if(if seen_20(fx> depth_8 32) #f)" +"(let-values(((depth_27)" +"(fx+ 1 prev-depth_0)))" +"(if(if seen_20(fx> depth_27 32) #f)" "(let-values()" "(datum-map-slow" -" tail?_42" -" s_4" -"(lambda(tail?_43 s_180)" -"(gf_8 tail?_43 s_180))" +" tail?_0" +" s_2" +"(lambda(tail?_1 s_3)" +"(gf_19 tail?_1 s_3))" " seen_20))" -"(if(null? s_4)" -"(let-values()(f_2 tail?_42 s_4))" -"(if(pair? s_4)" +"(if(null? s_2)" +"(let-values()(f_18 tail?_0 s_2))" +"(if(pair? s_2)" "(let-values()" -"(f_2" -" tail?_42" +"(f_18" +" tail?_0" "(cons" -"(loop_80 #f(car s_4) depth_8)" -"(loop_80" +"(loop_23" +" #f" +"(car s_2)" +" depth_27)" +"(loop_23" " #t" -"(cdr s_4)" -" depth_8))))" -"(if(symbol? s_4)" -"(let-values()(f_2 #f s_4))" -"(if(boolean? s_4)" -"(let-values()(f_2 #f s_4))" -"(if(number? s_4)" -"(let-values()(f_2 #f s_4))" -"(if(let-values(((or-part_74)" +"(cdr s_2)" +" depth_27))))" +"(if(symbol? s_2)" +"(let-values()(f_18 #f s_2))" +"(if(boolean? s_2)" +"(let-values()(f_18 #f s_2))" +"(if(number? s_2)" +"(let-values()" +"(f_18 #f s_2))" +"(if(let-values(((or-part_30)" "(vector?" -" s_4)))" -"(if or-part_74" -" or-part_74" -"(let-values(((or-part_75)" +" s_2)))" +"(if or-part_30" +" or-part_30" +"(let-values(((or-part_31)" "(box?" -" s_4)))" -"(if or-part_75" -" or-part_75" -"(let-values(((or-part_76)" +" s_2)))" +"(if or-part_31" +" or-part_31" +"(let-values(((or-part_32)" "(prefab-struct-key" -" s_4)))" -"(if or-part_76" -" or-part_76" +" s_2)))" +"(if or-part_32" +" or-part_32" "(hash?" -" s_4)))))))" +" s_2)))))))" "(let-values()" "(datum-map-slow" -" tail?_42" -" s_4" -"(lambda(tail?_44" -" s_181)" -"(gf_8" -" tail?_44" -" s_181))" +" tail?_0" +" s_2" +"(lambda(tail?_1 s_3)" +"(gf_19 tail?_1 s_3))" " seen_20))" "(let-values()" -"(gf_8" +"(gf_19" " #f" -" s_4))))))))))))))" -" loop_80)" +" s_2))))))))))))))" +" loop_23)" " #f" -" s_179" +" s_17" " 0)))))" "(datum->syntax$1" " #f" -" c_18" -" s_73" -"(if(syntax-any-macro-scopes? s_73)" -"(1/syntax-property-remove s_73 original-property-sym)" -" s_73))))" -"(if(equal? tmp_4 'transparent-binding)" +" c_8" +" s_1" +"(if(syntax-any-macro-scopes? s_1)" +"(1/syntax-property-remove s_1 original-property-sym)" +" s_1))))" +"(if(equal? tmp_7 'transparent-binding)" "(let-values()" -"(let-values(((c_19)(syntax-e$1 s_73)))" -"(if(pair? c_19)" +"(let-values(((c_35)(syntax-e$1 s_1)))" +"(if(pair? c_35)" "(let-values()" -"(let-values(((cd_0)(cdr c_19)))" -"(if(let-values(((or-part_80)(pair? cd_0)))" -"(if or-part_80" -" or-part_80" -"(if(syntax?$1 cd_0)(pair?(syntax-e$1 cd_0)) #f)))" +"(let-values(((cd_36)(cdr c_35)))" +"(if(let-values(((or-part_37)(pair? cd_36)))" +"(if or-part_37" +" or-part_37" +"(if(syntax?$1 cd_36)(pair?(syntax-e$1 cd_36)) #f)))" "(let-values()" -"(let-values(((d_19)(if(syntax?$1 cd_0)(syntax-e$1 cd_0) cd_0)))" +"(let-values(((d_38)" +"(if(syntax?$1 cd_36)(syntax-e$1 cd_36) cd_36)))" "(datum->syntax$1" " #f" "(cons" -"(loop_79(car c_19)(syntax-taint-mode-property(car c_19)))" +"(loop_4(car c_35)(syntax-taint-mode-property(car c_35)))" "(cons" -"(loop_79(car d_19) 'transparent)" -"(let-values(((s_5)" -"(let-values(((or-part_163)" -"(syntax->list$1(cdr d_19))))" -"(if or-part_163 or-part_163(cdr d_19))))" -"((f_38)(lambda(tail?_1 d_20)(begin 'f d_20)))" -"((s->_4)" -"(lambda(s_182)" +"(loop_4(car d_38) 'transparent)" +"(let-values(((s_39)" +"(let-values(((or-part_43)" +"(syntax->list$1(cdr d_38))))" +"(if or-part_43 or-part_43(cdr d_38))))" +"((f_40)(lambda(tail?_0 d_0)(begin 'f d_0)))" +"((s->_41)" +"(lambda(s_2)" "(begin" " 's->" -"(loop_79" -" s_182" -"(syntax-taint-mode-property s_182)))))" -"((seen_0) #f))" -"(let-values(((s_42) s_5)" -"((f_39) f_38)" -"((gf_9)" -"(lambda(tail?_45 v_42)" +"(loop_4" +" s_2" +"(syntax-taint-mode-property s_2)))))" +"((seen_42) #f))" +"(let-values(((s_47) s_39)" +"((f_48) f_40)" +"((gf_49)" +"(lambda(tail?_0 v_0)" "(begin" " 'gf" -"(if(syntax?$1 v_42)" -"(let-values()(s->_4 v_42))" -"(let-values()(f_38 tail?_45 v_42))))))" -"((seen_21) seen_0))" -"((letrec-values(((loop_81)" -"(lambda(tail?_46 s_183 prev-depth_9)" +"(if(syntax?$1 v_0)" +"(let-values()(s->_41 v_0))" +"(let-values()(f_40 tail?_0 v_0))))))" +"((seen_50) seen_42))" +"((letrec-values(((loop_53)" +"(lambda(tail?_0 s_2 prev-depth_0)" "(begin" " 'loop" -"(let-values(((depth_9)" -"(fx+ 1 prev-depth_9)))" -"(if(if seen_21" -"(fx> depth_9 32)" +"(let-values(((depth_57)" +"(fx+ 1 prev-depth_0)))" +"(if(if seen_50" +"(fx> depth_57 32)" " #f)" "(let-values()" "(datum-map-slow" -" tail?_46" -" s_183" -"(lambda(tail?_47 s_184)" -"(gf_9 tail?_47 s_184))" -" seen_21))" -"(if(null? s_183)" +" tail?_0" +" s_2" +"(lambda(tail?_1 s_3)" +"(gf_49 tail?_1 s_3))" +" seen_50))" +"(if(null? s_2)" "(let-values()" -"(f_39 tail?_46 s_183))" -"(if(pair? s_183)" +"(f_48 tail?_0 s_2))" +"(if(pair? s_2)" "(let-values()" -"(f_39" -" tail?_46" +"(f_48" +" tail?_0" "(cons" -"(loop_81" +"(loop_53" " #f" -"(car s_183)" -" depth_9)" -"(loop_81" +"(car s_2)" +" depth_57)" +"(loop_53" " #t" -"(cdr s_183)" -" depth_9))))" -"(if(symbol? s_183)" +"(cdr s_2)" +" depth_57))))" +"(if(symbol? s_2)" "(let-values()" -"(f_39 #f s_183))" -"(if(boolean? s_183)" +"(f_48 #f s_2))" +"(if(boolean? s_2)" "(let-values()" -"(f_39 #f s_183))" -"(if(number? s_183)" +"(f_48 #f s_2))" +"(if(number? s_2)" "(let-values()" -"(f_39 #f s_183))" -"(if(let-values(((or-part_164)" +"(f_48 #f s_2))" +"(if(let-values(((or-part_60)" "(vector?" -" s_183)))" -"(if or-part_164" -" or-part_164" -"(let-values(((or-part_21)" +" s_2)))" +"(if or-part_60" +" or-part_60" +"(let-values(((or-part_61)" "(box?" -" s_183)))" -"(if or-part_21" -" or-part_21" -"(let-values(((or-part_165)" +" s_2)))" +"(if or-part_61" +" or-part_61" +"(let-values(((or-part_62)" "(prefab-struct-key" -" s_183)))" -"(if or-part_165" -" or-part_165" +" s_2)))" +"(if or-part_62" +" or-part_62" "(hash?" -" s_183)))))))" +" s_2)))))))" "(let-values()" "(datum-map-slow" -" tail?_46" -" s_183" -"(lambda(tail?_48" -" s_185)" -"(gf_9" -" tail?_48" -" s_185))" -" seen_21))" +" tail?_0" +" s_2" +"(lambda(tail?_1" +" s_3)" +"(gf_49" +" tail?_1" +" s_3))" +" seen_50))" "(let-values()" -"(gf_9" +"(gf_49" " #f" -" s_183))))))))))))))" -" loop_81)" +" s_2))))))))))))))" +" loop_53)" " #f" -" s_42" +" s_47" " 0)))))" -" s_73" -"(if(syntax-any-macro-scopes? s_73)" -"(1/syntax-property-remove s_73 original-property-sym)" -" s_73))))" -"(let-values()(loop_79 s_73 'transparent)))))" -"(let-values()(loop_79 s_73 'transparent)))))" +" s_1" +"(if(syntax-any-macro-scopes? s_1)" +"(1/syntax-property-remove s_1 original-property-sym)" +" s_1))))" +"(let-values()(loop_4 s_1 'transparent)))))" +"(let-values()(loop_4 s_1 'transparent)))))" "(let-values()" -"(let-values(((c_20)(syntax-e$1 s_73)))" -"(let-values(((tmp_15)(core-form-sym c_20 phase_33)))" -"(if(if(equal? tmp_15 'begin)" +"(let-values(((c_65)(syntax-e$1 s_1)))" +"(let-values(((tmp_66)(core-form-sym c_65 phase_0)))" +"(if(if(equal? tmp_66 'begin)" " #t" -"(if(equal? tmp_15 'begin-for-syntax)" +"(if(equal? tmp_66 'begin-for-syntax)" " #t" -"(equal? tmp_15 '#%module-begin)))" -"(let-values()(loop_79 s_73 'transparent))" -"(if(if(equal? tmp_15 'define-values)" +"(equal? tmp_66 '#%module-begin)))" +"(let-values()(loop_4 s_1 'transparent))" +"(if(if(equal? tmp_66 'define-values)" " #t" -"(equal? tmp_15 'define-syntaxes))" -"(let-values()(loop_79 s_73 'transparent-binding))" -"(let-values()(loop_79 s_73 'opaque))))))))))))))))" -" loop_79)" +"(equal? tmp_66 'define-syntaxes))" +"(let-values()(loop_4 s_1 'transparent-binding))" +"(let-values()(loop_4 s_1 'opaque))))))))))))))))" +" loop_4)" " s_0" "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" -"(lambda(s_186)" +"(lambda(s_0)" "(begin" -"(let-values(((or-part_166)(syntax-property$1 s_186 'taint-mode)))" -"(if or-part_166 or-part_166(syntax-property$1 s_186 'certify-mode))))))" +"(let-values(((or-part_68)(syntax-property$1 s_0 'taint-mode)))" +"(if or-part_68 or-part_68(syntax-property$1 s_0 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" -"(lambda(s_187)(begin(1/syntax-property-remove(1/syntax-property-remove s_187 'taint-mode) 'certify-mode))))" +"(lambda(s_0)(begin(1/syntax-property-remove(1/syntax-property-remove s_0 'taint-mode) 'certify-mode))))" "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" -"(lambda(s_0 phase_45 all-bindings?_0)" +"(lambda(s_0 phase_0 all-bindings?_0)" "(begin" " 'syntax-debug-info" -"(let-values(((hts_0)" +"(let-values(((hts_4)" "(reverse$1" -"(let-values(((lst_80)(fallback->list(syntax-shifted-multi-scopes s_0))))" +"(let-values(((lst_6)(fallback->list(syntax-shifted-multi-scopes s_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_80)))" -"((letrec-values(((for-loop_103)" -"(lambda(fold-var_59 lst_83)" +"(let-values()(check-list lst_6)))" +"((letrec-values(((for-loop_7)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_83)" -"(let-values(((smss_26)(unsafe-car lst_83))" -"((rest_39)(unsafe-cdr lst_83)))" -"(let-values(((fold-var_60)" -"(let-values(((fold-var_61) fold-var_59))" -"(let-values(((fold-var_62)" +"(if(pair? lst_0)" +"(let-values(((smss_10)(unsafe-car lst_0))" +"((rest_11)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_12)" +"(let-values(((fold-var_13) fold-var_0))" +"(let-values(((fold-var_14)" "(let-values()" "(cons" "(let-values()" -"(let-values(((init-ht_0)" +"(let-values(((init-ht_15)" "(if(identifier?" " s_0)" "(hasheq" " 'name" "(syntax-e$1 s_0))" " '#hasheq())))" -"(let-values(((s-scs_0)" +"(let-values(((s-scs_16)" "(scope-set-at-fallback" " s_0" -" smss_26" -" phase_45)))" -"(let-values(((context_1)" +" smss_10" +" phase_0)))" +"(let-values(((context_17)" "(scope-set->context" -" s-scs_0)))" -"(let-values(((context-ht_0)" +" s-scs_16)))" +"(let-values(((context-ht_18)" "(hash-set" -" init-ht_0" +" init-ht_15" " 'context" -" context_1)))" -"(let-values(((sym_18)" +" context_17)))" +"(let-values(((sym_19)" "(syntax-e$1" " s_0)))" -"(let-values(((classify-binding_0)" -"(lambda(b_43)" +"(let-values(((classify-binding_20)" +"(lambda(b_0)" "(begin" " 'classify-binding" "(if(local-binding?" -" b_43)" +" b_0)" " 'local" " 'module)))))" -"(let-values(((extract-binding_0)" -"(lambda(b_64)" +"(let-values(((extract-binding_21)" +"(lambda(b_0)" "(begin" " 'extract-binding" "(if(local-binding?" -" b_64)" +" b_0)" "(local-binding-key" -" b_64)" +" b_0)" "(vector" "(module-binding-sym" -" b_64)" +" b_0)" "(module-binding-module" -" b_64)" +" b_0)" "(module-binding-phase" -" b_64)))))))" -"(let-values(((bindings_0)" +" b_0)))))))" +"(let-values(((bindings_22)" "(append" "(if(identifier?" " s_0)" "(let-values()" -"(let-values(((bindings_1" -" covered-scopess_0)" -"(let-values(((ht_80)" -" s-scs_0))" +"(let-values(((bindings_25" +" covered-scopess_26)" +"(let-values(((ht_27)" +" s-scs_16))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_80)))" -"((letrec-values(((for-loop_104)" -"(lambda(bindings_2" +" ht_27)))" +"((letrec-values(((for-loop_28)" +"(lambda(bindings_0" " covered-scope-sets_0" -" i_92)" +" i_0)" "(begin" " 'for-loop" -"(if i_92" -"(let-values(((sc_28)" +"(if i_0" +"(let-values(((sc_32)" "(unsafe-immutable-hash-iterate-key" -" ht_80" -" i_92)))" -"(let-values(((bindings_3" -" covered-scope-sets_1)" -"(let-values(((ht_81" -" bulk-bindings_3)" -"(let-values(((table_119)" +" ht_27" +" i_0)))" +"(let-values(((bindings_33" +" covered-scope-sets_34)" +"(let-values(((ht_35" +" bulk-bindings_36)" +"(let-values(((table_39)" "(scope-binding-table" -" sc_28)))" +" sc_32)))" "(if(hash?" -" table_119)" +" table_39)" "(values" "(hash-ref" -" table_119" -" sym_18" +" table_39" +" sym_19" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" -" table_119)" -" sym_18" +" table_39)" +" sym_19" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" -" table_119)))))" -"((s_188)" +" table_39)))))" +"((s_37)" " s_0)" -"((extra-shifts_5)" +"((extra-shifts_38)" " null))" "(begin" " #t" -"((letrec-values(((for-loop_20)" -"(lambda(bindings_4" -" covered-scope-sets_2" -" i_38)" +"((letrec-values(((for-loop_40)" +"(lambda(bindings_1" +" covered-scope-sets_1" +" i_1)" "(begin" " 'for-loop" "(if(not" "(null?" -" i_38))" -"(let-values(((scs_15)" +" i_1))" +"(let-values(((scs_44)" "(if(pair?" -" i_38)" +" i_1)" "(let-values()" "(bulk-binding-at-scopes" "(car" -" i_38)))" +" i_1)))" "(let-values()" "(hash-iterate-key" -" ht_81" -" i_38))))" -"((b_65)" +" ht_35" +" i_1))))" +"((b_45)" "(if(pair?" -" i_38)" +" i_1)" "(let-values()" -"(let-values(((bulk_4)" +"(let-values(((bulk_46)" "(bulk-binding-at-bulk" "(car" -" i_38))))" -"(let-values(((b-info_1)" +" i_1))))" +"(let-values(((b-info_47)" "(if(symbol-interned?" -" sym_18)" +" sym_19)" "(hash-ref" "(bulk-binding-symbols" -" bulk_4" -" s_188" -" extra-shifts_5)" -" sym_18" +" bulk_46" +" s_37" +" extra-shifts_38)" +" sym_19" " #f)" " #f)))" -"(if b-info_1" +"(if b-info_47" "((bulk-binding-create" -" bulk_4)" -" bulk_4" -" b-info_1" -" sym_18)" +" bulk_46)" +" bulk_46" +" b-info_47" +" sym_19)" " #f))))" "(let-values()" "(hash-iterate-value" -" ht_81" -" i_38)))))" -"(let-values(((bindings_5" -" covered-scope-sets_3)" -"(let-values(((bindings_6)" -" bindings_4)" -"((covered-scope-sets_4)" -" covered-scope-sets_2))" -"(if(if scs_15" -"(if b_65" +" ht_35" +" i_1)))))" +"(let-values(((bindings_48" +" covered-scope-sets_49)" +"(let-values(((bindings_50)" +" bindings_1)" +"((covered-scope-sets_51)" +" covered-scope-sets_1))" +"(if(if scs_44" +"(if b_45" "(not" "(set-member?" -" covered-scope-sets_4" -" scs_15))" +" covered-scope-sets_51" +" scs_44))" " #f)" " #f)" -"(let-values(((bindings_7)" -" bindings_6)" -"((covered-scope-sets_5)" -" covered-scope-sets_4))" -"(let-values(((bindings_8" -" covered-scope-sets_6)" +"(let-values(((bindings_52)" +" bindings_50)" +"((covered-scope-sets_53)" +" covered-scope-sets_51))" +"(let-values(((bindings_54" +" covered-scope-sets_55)" "(let-values()" "(values" "(cons" @@ -16281,793 +16397,794 @@ static const char *startup_source = " s_0)" " 'context" "(scope-set->context" -" scs_15)" +" scs_44)" " 'match?" "(subset?" -" scs_15" -" s-scs_0)" -"(classify-binding_0" -" b_65)" -"(extract-binding_0" -" b_65))" -" bindings_7)" +" scs_44" +" s-scs_16)" +"(classify-binding_20" +" b_45)" +"(extract-binding_21" +" b_45))" +" bindings_52)" "(set-add" -" covered-scope-sets_5" -" scs_15)))))" +" covered-scope-sets_53" +" scs_44)))))" "(values" -" bindings_8" -" covered-scope-sets_6)))" +" bindings_54" +" covered-scope-sets_55)))" "(values" -" bindings_6" -" covered-scope-sets_4)))))" +" bindings_50" +" covered-scope-sets_51)))))" "(if(not" " #f)" -"(for-loop_20" -" bindings_5" -" covered-scope-sets_3" +"(for-loop_40" +" bindings_48" +" covered-scope-sets_49" "(if(pair?" -" i_38)" +" i_1)" "(let-values()" "(cdr" -" i_38))" +" i_1))" "(let-values()" -"(let-values(((or-part_30)" +"(let-values(((or-part_56)" "(hash-iterate-next" -" ht_81" -" i_38)))" -"(if or-part_30" -" or-part_30" -" bulk-bindings_3)))))" +" ht_35" +" i_1)))" +"(if or-part_56" +" or-part_56" +" bulk-bindings_36)))))" "(values" -" bindings_5" -" covered-scope-sets_3))))" +" bindings_48" +" covered-scope-sets_49))))" "(values" -" bindings_4" -" covered-scope-sets_2))))))" -" for-loop_20)" -" bindings_2" +" bindings_1" +" covered-scope-sets_1))))))" +" for-loop_40)" +" bindings_0" " covered-scope-sets_0" -"(let-values(((or-part_31)" +"(let-values(((or-part_57)" "(hash-iterate-first" -" ht_81)))" -"(if or-part_31" -" or-part_31" -" bulk-bindings_3)))))))" +" ht_35)))" +"(if or-part_57" +" or-part_57" +" bulk-bindings_36)))))))" "(if(not" " #f)" -"(for-loop_104" -" bindings_3" -" covered-scope-sets_1" +"(for-loop_28" +" bindings_33" +" covered-scope-sets_34" "(unsafe-immutable-hash-iterate-next" -" ht_80" -" i_92))" +" ht_27" +" i_0))" "(values" -" bindings_3" -" covered-scope-sets_1))))" +" bindings_33" +" covered-scope-sets_34))))" "(values" -" bindings_2" +" bindings_0" " covered-scope-sets_0))))))" -" for-loop_104)" +" for-loop_28)" " null" "(set)" "(unsafe-immutable-hash-iterate-first" -" ht_80))))))" -" bindings_1))" +" ht_27))))))" +" bindings_25))" "(let-values()" " null))" "(if all-bindings?_0" "(let-values()" "(reverse$1" -"(let-values(((ht_82)" -" s-scs_0))" +"(let-values(((ht_58)" +" s-scs_16))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_82)))" -"((letrec-values(((for-loop_15)" -"(lambda(fold-var_63" -" i_43)" +" ht_58)))" +"((letrec-values(((for-loop_59)" +"(lambda(fold-var_1" +" i_0)" "(begin" " 'for-loop" -"(if i_43" -"(let-values(((sc_29)" +"(if i_0" +"(let-values(((sc_62)" "(unsafe-immutable-hash-iterate-key" -" ht_82" -" i_43)))" -"(let-values(((fold-var_64)" -"(let-values(((sym-ht_1)" -"(let-values(((table_64)" +" ht_58" +" i_0)))" +"(let-values(((fold-var_63)" +"(let-values(((sym-ht_64)" +"(let-values(((table_65)" "(scope-binding-table" -" sc_29)))" +" sc_62)))" "(if(hash?" -" table_64)" -" table_64" +" table_65)" +" table_65" "(table-with-bulk-bindings-syms" -" table_64)))))" +" table_65)))))" "(begin" " #t" -"((letrec-values(((for-loop_105)" -"(lambda(fold-var_65" -" state_25)" +"((letrec-values(((for-loop_66)" +"(lambda(fold-var_2" +" state_0)" "(begin" " 'for-loop" "(if(car" -" state_25)" -"(let-values(((o-sym_0)" +" state_0)" +"(let-values(((o-sym_69)" "(vector-ref" "(car" -" state_25)" +" state_0)" " 1))" -"((scs_16)" +"((scs_70)" "(hash-iterate-key" "(vector-ref" "(car" -" state_25)" +" state_0)" " 2)" "(cdr" -" state_25)))" -"((b_66)" +" state_0)))" +"((b_71)" "(hash-iterate-value" "(vector-ref" "(car" -" state_25)" +" state_0)" " 2)" "(cdr" -" state_25))))" -"(let-values(((fold-var_17)" -"(let-values(((fold-var_66)" -" fold-var_65))" +" state_0))))" +"(let-values(((fold-var_72)" +"(let-values(((fold-var_73)" +" fold-var_2))" "(if(eq?" -" o-sym_0" -" sym_18)" -" fold-var_66" -"(let-values(((fold-var_67)" -" fold-var_66))" -"(let-values(((fold-var_18)" +" o-sym_69" +" sym_19)" +" fold-var_73" +"(let-values(((fold-var_74)" +" fold-var_73))" +"(let-values(((fold-var_75)" "(let-values()" "(cons" "(let-values()" "(hasheq" " 'name" -" o-sym_0" +" o-sym_69" " 'context" "(scope-set->context" -" scs_16)" +" scs_70)" " 'match?" " #f" -"(classify-binding_0" -" b_66)" -"(extract-binding_0" -" b_66)))" -" fold-var_67))))" +"(classify-binding_20" +" b_71)" +"(extract-binding_21" +" b_71)))" +" fold-var_74))))" "(values" -" fold-var_18)))))))" +" fold-var_75)))))))" "(if(not" " #f)" -"(for-loop_105" -" fold-var_17" -"(let-values(((ht_22)" +"(for-loop_66" +" fold-var_72" +"(let-values(((ht_76)" "(vector-ref" "(car" -" state_25)" +" state_0)" " 2)))" -"(let-values(((i_93)" +"(let-values(((i_77)" "(hash-iterate-next" -" ht_22" +" ht_76" "(cdr" -" state_25))))" -"(if i_93" +" state_0))))" +"(if i_77" "(cons" "(car" -" state_25)" -" i_93)" +" state_0)" +" i_77)" "(next-state-in-full-binding-table" -" sym-ht_1" +" sym-ht_64" "(hash-iterate-next" -" sym-ht_1" +" sym-ht_64" "(vector-ref" "(car" -" state_25)" +" state_0)" " 0)))))))" -" fold-var_17)))" -" fold-var_65)))))" -" for-loop_105)" -" fold-var_63" -"((letrec-values(((loop_82)" -"(lambda(sym-i_1)" +" fold-var_72)))" +" fold-var_2)))))" +" for-loop_66)" +" fold-var_1" +"((letrec-values(((loop_78)" +"(lambda(sym-i_0)" "(begin" " 'loop" -"(if sym-i_1" +"(if sym-i_0" "(next-state-in-full-binding-table" -" sym-ht_1" -" sym-i_1)" +" sym-ht_64" +" sym-i_0)" " '(#f" " ." " #f))))))" -" loop_82)" +" loop_78)" "(hash-iterate-first" -" sym-ht_1)))))))" +" sym-ht_64)))))))" "(if(not" " #f)" -"(for-loop_15" -" fold-var_64" +"(for-loop_59" +" fold-var_63" "(unsafe-immutable-hash-iterate-next" -" ht_82" -" i_43))" -" fold-var_64)))" -" fold-var_63)))))" -" for-loop_15)" +" ht_58" +" i_0))" +" fold-var_63)))" +" fold-var_1)))))" +" for-loop_59)" " null" "(unsafe-immutable-hash-iterate-first" -" ht_82))))))" +" ht_58))))))" "(let-values()" " null)))))" "(if(null?" -" bindings_0)" -" context-ht_0" +" bindings_22)" +" context-ht_18" "(hash-set" -" context-ht_0" +" context-ht_18" " 'bindings" -" bindings_0)))))))))))" -" fold-var_61))))" -"(values fold-var_62)))))" -"(if(not #f)(for-loop_103 fold-var_60 rest_39) fold-var_60)))" -" fold-var_59)))))" -" for-loop_103)" +" bindings_22)))))))))))" +" fold-var_13))))" +"(values fold-var_14)))))" +"(if(not #f)(for-loop_7 fold-var_12 rest_11) fold-var_12)))" +" fold-var_0)))))" +" for-loop_7)" " null" -" lst_80))))))" -"(let-values(((ht_76)(car hts_0)))(if(null?(cdr hts_0)) ht_76(hash-set ht_76 'fallbacks(cdr hts_0))))))))" +" lst_6))))))" +"(let-values(((ht_5)(car hts_4)))(if(null?(cdr hts_4)) ht_5(hash-set ht_5 'fallbacks(cdr hts_4))))))))" "(define-values" "(scope-set->context)" -"(lambda(scs_17)" +"(lambda(scs_0)" "(begin" -"(let-values(((temp1_1)" +"(let-values(((temp1_82)" "(reverse$1" -"(let-values(((ht_83) scs_17))" +"(let-values(((ht_85) scs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_83)))" -"((letrec-values(((for-loop_106)" -"(lambda(fold-var_68 i_28)" +"(let-values()(check-in-immutable-hash-keys ht_85)))" +"((letrec-values(((for-loop_86)" +"(lambda(fold-var_0 i_0)" "(begin" " 'for-loop" -"(if i_28" -"(let-values(((sc_30)(unsafe-immutable-hash-iterate-key ht_83 i_28)))" -"(let-values(((fold-var_5)" -"(let-values(((fold-var_6) fold-var_68))" -"(let-values(((fold-var_7)" +"(if i_0" +"(let-values(((sc_89)(unsafe-immutable-hash-iterate-key ht_85 i_0)))" +"(let-values(((fold-var_90)" +"(let-values(((fold-var_91) fold-var_0))" +"(let-values(((fold-var_92)" "(let-values()" "(cons" "(let-values()" -"(if(interned-scope? sc_30)" +"(if(interned-scope? sc_89)" "(let-values()" "(vector" -"(scope-id sc_30)" -"(scope-kind sc_30)" -"(interned-scope-key sc_30)))" +"(scope-id sc_89)" +"(scope-kind sc_89)" +"(interned-scope-key sc_89)))" "(if(representative-scope?" -" sc_30)" +" sc_89)" "(let-values()" "(vector" -"(scope-id sc_30)" -"(scope-kind sc_30)" +"(scope-id sc_89)" +"(scope-kind sc_89)" "(multi-scope-name" "(representative-scope-owner" -" sc_30))))" +" sc_89))))" "(let-values()" "(vector" -"(scope-id sc_30)" -"(scope-kind sc_30))))))" -" fold-var_6))))" -"(values fold-var_7)))))" +"(scope-id sc_89)" +"(scope-kind sc_89))))))" +" fold-var_91))))" +"(values fold-var_92)))))" "(if(not #f)" -"(for-loop_106" -" fold-var_5" -"(unsafe-immutable-hash-iterate-next ht_83 i_28))" -" fold-var_5)))" -" fold-var_68)))))" -" for-loop_106)" +"(for-loop_86" +" fold-var_90" +"(unsafe-immutable-hash-iterate-next ht_85 i_0))" +" fold-var_90)))" +" fold-var_0)))))" +" for-loop_86)" " null" -"(unsafe-immutable-hash-iterate-first ht_83))))))" -"((<2_0) <)" -"((temp3_2)(lambda(v_128)(vector-ref v_128 0))))" -"(sort7.1 #f temp3_2 temp1_1 <2_0)))))" +"(unsafe-immutable-hash-iterate-first ht_85))))))" +"((<2_83) <)" +"((temp3_84)(lambda(v_0)(vector-ref v_0 0))))" +"(sort7.1 #f temp3_84 temp1_82 <2_83)))))" "(define-values" "(raise-ambiguous-error)" -"(lambda(id_20 ctx_7)" +"(lambda(id_0 ctx_0)" "(begin" "(raise-syntax-error$1" " #f" " \"identifier's binding is ambiguous\"" -" id_20" +" id_0" " #f" " null" -"(syntax-debug-info-string id_20 ctx_7)))))" +"(syntax-debug-info-string id_0 ctx_0)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_189 ctx_8)" +"(lambda(s_0 ctx_0)" "(begin" -"(let-values(((info_2)(syntax-debug-info$1 s_189(expand-context-phase ctx_8) #f)))" +"(let-values(((info_5)(syntax-debug-info$1 s_0(expand-context-phase ctx_0) #f)))" "(if(not" -"(let-values(((or-part_26)(pair?(hash-ref info_2 'bindings null))))" -"(if or-part_26" -" or-part_26" -"(let-values(((lst_84)(hash-ref info_2 'fallbacks null)))" +"(let-values(((or-part_6)(pair?(hash-ref info_5 'bindings null))))" +"(if or-part_6" +" or-part_6" +"(let-values(((lst_7)(hash-ref info_5 'fallbacks null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_84)))" -"((letrec-values(((for-loop_107)" -"(lambda(result_65 lst_85)" +"(let-values()(check-list lst_7)))" +"((letrec-values(((for-loop_8)" +"(lambda(result_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((fb-info_0)(unsafe-car lst_85))" -"((rest_40)(unsafe-cdr lst_85)))" -"(let-values(((result_1)" +"(if(pair? lst_0)" +"(let-values(((fb-info_11)(unsafe-car lst_0))" +"((rest_12)(unsafe-cdr lst_0)))" +"(let-values(((result_13)" "(let-values()" -"(let-values(((result_66)" +"(let-values(((result_15)" "(let-values()" "(let-values()" "(pair?" "(hash-ref" -" fb-info_0" +" fb-info_11" " 'bindings" " null))))))" -"(values result_66)))))" -"(if(if(not((lambda x_27 result_1) fb-info_0))(not #f) #f)" -"(for-loop_107 result_1 rest_40)" -" result_1)))" -" result_65)))))" -" for-loop_107)" +"(values result_15)))))" +"(if(if(not((lambda x_0 result_13) fb-info_11))(not #f) #f)" +"(for-loop_8 result_13 rest_12)" +" result_13)))" +" result_0)))))" +" for-loop_8)" " #f" -" lst_84))))))" +" lst_7))))))" " (let-values () \"\")" "(let-values()" -"(let-values(((relevant-scope-sets_0)" -"((letrec-values(((loop_78)" -"(lambda(info_3 layer_0)" +"(let-values(((relevant-scope-sets_17)" +"((letrec-values(((loop_19)" +"(lambda(info_0 layer_0)" "(begin" " 'loop" "(apply" " append" "(cons" -"(hash-ref info_3 'context)" +"(hash-ref info_0 'context)" "(reverse$1" -"(let-values(((lst_86)(hash-ref info_3 'bindings null)))" +"(let-values(((lst_22)(hash-ref info_0 'bindings null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_108)" -"(lambda(fold-var_69 lst_87)" +"(let-values()(check-list lst_22)))" +"((letrec-values(((for-loop_23)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_87)" -"(let-values(((b_21)(unsafe-car lst_87))" -"((rest_41)" -"(unsafe-cdr lst_87)))" -"(let-values(((fold-var_70)" -"(let-values(((fold-var_27)" -" fold-var_69))" +"(if(pair? lst_0)" +"(let-values(((b_26)(unsafe-car lst_0))" +"((rest_27)" +"(unsafe-cdr lst_0)))" "(let-values(((fold-var_28)" +"(let-values(((fold-var_29)" +" fold-var_0))" +"(let-values(((fold-var_30)" "(let-values()" "(cons" "(let-values()" "(hash-ref" -" b_21" +" b_26" " 'context))" -" fold-var_27))))" +" fold-var_29))))" "(values" -" fold-var_28)))))" +" fold-var_30)))))" "(if(not #f)" -"(for-loop_108 fold-var_70 rest_41)" -" fold-var_70)))" -" fold-var_69)))))" -" for-loop_108)" +"(for-loop_23 fold-var_28 rest_27)" +" fold-var_28)))" +" fold-var_0)))))" +" for-loop_23)" " null" -" lst_86)))))" -"(let-values(((fallbacks_0)(hash-ref info_3 'fallbacks null)))" +" lst_22)))))" +"(let-values(((fallbacks_31)(hash-ref info_0 'fallbacks null)))" "(reverse$1" -"(let-values(((lst_88) fallbacks_0)((start_14)(add1 layer_0)))" +"(let-values(((lst_32) fallbacks_31)((start_33)(add1 layer_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_88)))" +"(let-values()(check-list lst_32)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_14)))" -"((letrec-values(((for-loop_109)" -"(lambda(fold-var_71 lst_89 pos_12)" +"(let-values()(check-naturals start_33)))" +"((letrec-values(((for-loop_34)" +"(lambda(fold-var_0 lst_0 pos_0)" "(begin" " 'for-loop" -"(if(if(pair? lst_89) #t #f)" -"(let-values(((fallback_0)" -"(unsafe-car lst_89))" -"((rest_42)" -"(unsafe-cdr lst_89))" -"((layer_1) pos_12))" -"(let-values(((fold-var_9)" -"(let-values(((fold-var_72)" -" fold-var_71))" -"(let-values(((fold-var_73)" +"(if(if(pair? lst_0) #t #f)" +"(let-values(((fallback_38)" +"(unsafe-car lst_0))" +"((rest_39)" +"(unsafe-cdr lst_0))" +"((layer_40) pos_0))" +"(let-values(((fold-var_41)" +"(let-values(((fold-var_42)" +" fold-var_0))" +"(let-values(((fold-var_43)" "(let-values()" "(cons" "(let-values()" -"(loop_78" -" fallback_0" -" layer_1))" -" fold-var_72))))" +"(loop_19" +" fallback_38" +" layer_40))" +" fold-var_42))))" "(values" -" fold-var_73)))))" +" fold-var_43)))))" "(if(not #f)" -"(for-loop_109" -" fold-var_9" -" rest_42" -"(+ pos_12 1))" -" fold-var_9)))" -" fold-var_71)))))" -" for-loop_109)" +"(for-loop_34" +" fold-var_41" +" rest_39" +"(+ pos_0 1))" +" fold-var_41)))" +" fold-var_0)))))" +" for-loop_34)" " null" -" lst_88" -" start_14))))))))))" -" loop_78)" -" info_2" +" lst_32" +" start_33))))))))))" +" loop_19)" +" info_5" " 0)))" -"(let-values(((common-scopes_0)" -"(if(null? relevant-scope-sets_0)" +"(let-values(((common-scopes_18)" +"(if(null? relevant-scope-sets_17)" "(set)" -"(let-values(((lst_90) relevant-scope-sets_0))" +"(let-values(((lst_44) relevant-scope-sets_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_110)" -"(lambda(s_182 lst_91)" +"(let-values()(check-list lst_44)))" +"((letrec-values(((for-loop_45)" +"(lambda(s_1 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_91)" -"(let-values(((l_48)(unsafe-car lst_91))" -"((rest_43)(unsafe-cdr lst_91)))" -"(let-values(((s_89)" -"(let-values(((s_43) s_182))" -"(let-values(((s_190)" +"(if(pair? lst_0)" +"(let-values(((l_48)(unsafe-car lst_0))" +"((rest_49)(unsafe-cdr lst_0)))" +"(let-values(((s_50)" +"(let-values(((s_51) s_1))" +"(let-values(((s_52)" "(let-values()" "(set-intersect" -" s_43" +" s_51" "(list->set l_48)))))" -"(values s_190)))))" -"(if(not #f)(for-loop_110 s_89 rest_43) s_89)))" -" s_182)))))" -" for-loop_110)" -"(list->set(car relevant-scope-sets_0))" -" lst_90))))))" +"(values s_52)))))" +"(if(not #f)(for-loop_45 s_50 rest_49) s_50)))" +" s_1)))))" +" for-loop_45)" +"(list->set(car relevant-scope-sets_17))" +" lst_44))))))" "(string-append" -"((letrec-values(((loop_81)" -"(lambda(info_4 layer_2)" +"((letrec-values(((loop_53)" +"(lambda(info_0 layer_0)" "(begin" " 'loop" "(string-append" " \"\\n context\"" -"(layer->string layer_2)" +"(layer->string layer_0)" " \"...:\"" -"(describe-context(hash-ref info_4 'context) common-scopes_0)" +"(describe-context(hash-ref info_0 'context) common-scopes_18)" "(apply" " string-append" "(reverse$1" -"(let-values(((lst_92)" -"(let-values(((temp1_2)(hash-ref info_4 'bindings null))" -"((temp2_2)" -"(lambda(a_41 b_67)" +"(let-values(((lst_56)" +"(let-values(((temp1_57)(hash-ref info_0 'bindings null))" +"((temp2_58)" +"(lambda(a_0 b_0)" "(begin" " 'temp2" -"(if(hash-ref a_41 'match? #f)" -"(not(hash-ref b_67 'match? #f))" +"(if(hash-ref a_0 'match? #f)" +"(not(hash-ref b_0 'match? #f))" " #f)))))" -"(sort7.1 #f #f temp1_2 temp2_2))))" +"(sort7.1 #f #f temp1_57 temp2_58))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_92)))" -"((letrec-values(((for-loop_111)" -"(lambda(fold-var_74 lst_93)" +"(let-values()(check-list lst_56)))" +"((letrec-values(((for-loop_61)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_93)" -"(let-values(((b_39)(unsafe-car lst_93))" -"((rest_44)(unsafe-cdr lst_93)))" -"(let-values(((fold-var_75)" -"(let-values(((fold-var_65)" -" fold-var_74))" -"(let-values(((fold-var_76)" +"(if(pair? lst_0)" +"(let-values(((b_64)(unsafe-car lst_0))" +"((rest_65)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_66)" +"(let-values(((fold-var_67)" +" fold-var_0))" +"(let-values(((fold-var_68)" "(let-values()" "(cons" "(let-values()" "(string-append" " \"\\n \"" "(if(hash-ref" -" b_39" +" b_64" " 'match?" " #f)" " \"matching\"" " \"other\")" " \" binding\"" "(layer->string" -" layer_2)" +" layer_0)" " \"...:\"" " \"\\n \"" "(if(hash-ref" -" b_39" +" b_64" " 'local" " #f)" " \"local\"" "(format" " \"~a\"" "(hash-ref" -" b_39" +" b_64" " 'module" " #f)))" "(describe-context" "(hash-ref" -" b_39" +" b_64" " 'context)" -" common-scopes_0)))" -" fold-var_65))))" -"(values fold-var_76)))))" +" common-scopes_18)))" +" fold-var_67))))" +"(values fold-var_68)))))" "(if(not #f)" -"(for-loop_111 fold-var_75 rest_44)" -" fold-var_75)))" -" fold-var_74)))))" -" for-loop_111)" +"(for-loop_61 fold-var_66 rest_65)" +" fold-var_66)))" +" fold-var_0)))))" +" for-loop_61)" " null" -" lst_92)))))" -"(let-values(((fallbacks_1)(hash-ref info_4 'fallbacks null)))" +" lst_56)))))" +"(let-values(((fallbacks_69)(hash-ref info_0 'fallbacks null)))" "(apply" " string-append" "(reverse$1" -"(let-values(((lst_94) fallbacks_1)((start_15)(add1 layer_2)))" +"(let-values(((lst_70) fallbacks_69)((start_71)(add1 layer_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_94)))" +"(let-values()(check-list lst_70)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_15)))" -"((letrec-values(((for-loop_112)" -"(lambda(fold-var_66 lst_95 pos_13)" +"(let-values()(check-naturals start_71)))" +"((letrec-values(((for-loop_72)" +"(lambda(fold-var_0 lst_0 pos_0)" "(begin" " 'for-loop" -"(if(if(pair? lst_95) #t #f)" -"(let-values(((fallback_1)(unsafe-car lst_95))" -"((rest_45)(unsafe-cdr lst_95))" -"((layer_3) pos_13))" -"(let-values(((fold-var_77)" -"(let-values(((fold-var_78)" -" fold-var_66))" +"(if(if(pair? lst_0) #t #f)" +"(let-values(((fallback_76)(unsafe-car lst_0))" +"((rest_77)(unsafe-cdr lst_0))" +"((layer_78) pos_0))" "(let-values(((fold-var_79)" +"(let-values(((fold-var_80)" +" fold-var_0))" +"(let-values(((fold-var_81)" "(let-values()" "(cons" "(let-values()" -"(loop_81" -" fallback_1" -" layer_3))" -" fold-var_78))))" -"(values fold-var_79)))))" +"(loop_53" +" fallback_76" +" layer_78))" +" fold-var_80))))" +"(values fold-var_81)))))" "(if(not #f)" -"(for-loop_112" -" fold-var_77" -" rest_45" -"(+ pos_13 1))" -" fold-var_77)))" -" fold-var_66)))))" -" for-loop_112)" +"(for-loop_72" +" fold-var_79" +" rest_77" +"(+ pos_0 1))" +" fold-var_79)))" +" fold-var_0)))))" +" for-loop_72)" " null" -" lst_94" -" start_15)))))))))))" -" loop_81)" -" info_2" +" lst_70" +" start_71)))))))))))" +" loop_53)" +" info_5" " 0)" -"(if(set-empty? common-scopes_0)" +"(if(set-empty? common-scopes_18)" " \"\"" "(string-append" " \"\\n common scopes...:\"" "(describe-context" "(reverse$1" -"(let-values(((lst_96)(hash-ref info_2 'context)))" +"(let-values(((lst_82)(hash-ref info_5 'context)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_96)))" -"((letrec-values(((for-loop_113)" -"(lambda(fold-var_80 lst_97)" +"(let-values()(check-list lst_82)))" +"((letrec-values(((for-loop_83)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_97)" -"(let-values(((s_191)(unsafe-car lst_97))" -"((rest_46)(unsafe-cdr lst_97)))" -"(let-values(((fold-var_81)" -"(let-values(((fold-var_82) fold-var_80))" -"(if(set-member? common-scopes_0 s_191)" -"(let-values(((fold-var_5) fold-var_82))" -"(let-values(((fold-var_6)" +"(if(pair? lst_0)" +"(let-values(((s_86)(unsafe-car lst_0))" +"((rest_87)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_88)" +"(let-values(((fold-var_89) fold-var_0))" +"(if(set-member? common-scopes_18 s_86)" +"(let-values(((fold-var_90) fold-var_89))" +"(let-values(((fold-var_91)" "(let-values()" "(cons" -"(let-values() s_191)" -" fold-var_5))))" -"(values fold-var_6)))" -" fold-var_82))))" -"(if(not #f)(for-loop_113 fold-var_81 rest_46) fold-var_81)))" -" fold-var_80)))))" -" for-loop_113)" +"(let-values() s_86)" +" fold-var_90))))" +"(values fold-var_91)))" +" fold-var_89))))" +"(if(not #f)(for-loop_83 fold-var_88 rest_87) fold-var_88)))" +" fold-var_0)))))" +" for-loop_83)" " null" -" lst_96))))" +" lst_82))))" "(set)))))))))))))" "(define-values" "(describe-context)" -"(lambda(scopes_19 common-scopes_1)" +"(lambda(scopes_0 common-scopes_0)" "(begin" -"(let-values(((strs_0)" -"((letrec-values(((loop_44)" -"(lambda(strs_1 scopes_20)" +"(let-values(((strs_94)" +"((letrec-values(((loop_95)" +"(lambda(strs_0 scopes_1)" "(begin" " 'loop" -"(if(null? scopes_20)" -"(let-values()(reverse$1 strs_1))" +"(if(null? scopes_1)" +"(let-values()(reverse$1 strs_0))" "(let-values()" -" (let-values (((str_3) (format \" ~a\" (car scopes_20))))" -"(if(if(pair? strs_1)" -"(<(+(string-length str_3)(string-length(car strs_1))) 72)" +" (let-values (((str_98) (format \" ~a\" (car scopes_1))))" +"(if(if(pair? strs_0)" +"(<(+(string-length str_98)(string-length(car strs_0))) 72)" " #f)" -"(loop_44" -"(cons(string-append(car strs_1) str_3)(cdr strs_1))" -"(cdr scopes_20))" -"(loop_44(cons str_3 strs_1)(cdr scopes_20))))))))))" -" loop_44)" +"(loop_95" +"(cons(string-append(car strs_0) str_98)(cdr strs_0))" +"(cdr scopes_1))" +"(loop_95(cons str_98 strs_0)(cdr scopes_1))))))))))" +" loop_95)" " null" -"(if(set-empty? common-scopes_1)" -" scopes_19" +"(if(set-empty? common-scopes_0)" +" scopes_0" "(append" "(reverse$1" -"(let-values(((lst_98) scopes_19))" +"(let-values(((lst_99) scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_98)))" -"((letrec-values(((for-loop_114)" -"(lambda(fold-var_83 lst_99)" +"(let-values()(check-list lst_99)))" +"((letrec-values(((for-loop_100)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_99)" -"(let-values(((s_24)(unsafe-car lst_99))" -"((rest_47)(unsafe-cdr lst_99)))" -"(let-values(((fold-var_84)" -"(let-values(((fold-var_85) fold-var_83))" -"(if(not(set-member? common-scopes_1 s_24))" -"(let-values(((fold-var_86) fold-var_85))" -"(let-values(((fold-var_87)" +"(if(pair? lst_0)" +"(let-values(((s_103)(unsafe-car lst_0))" +"((rest_104)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_105)" +"(let-values(((fold-var_106) fold-var_0))" +"(if(not(set-member? common-scopes_0 s_103))" +"(let-values(((fold-var_107) fold-var_106))" +"(let-values(((fold-var_108)" "(let-values()" "(cons" -"(let-values() s_24)" -" fold-var_86))))" -"(values fold-var_87)))" -" fold-var_85))))" -"(if(not #f)(for-loop_114 fold-var_84 rest_47) fold-var_84)))" -" fold-var_83)))))" -" for-loop_114)" +"(let-values() s_103)" +" fold-var_107))))" +"(values fold-var_108)))" +" fold-var_106))))" +"(if(not #f)" +"(for-loop_100 fold-var_105 rest_104)" +" fold-var_105)))" +" fold-var_0)))))" +" for-loop_100)" " null" -" lst_98))))" +" lst_99))))" " (list \"[common scopes]\"))))))" -"(if(null? strs_0)" +"(if(null? strs_94)" " (let-values () \"\\n [empty]\")" "(let-values()" "(apply" " string-append" "(reverse$1" -"(let-values(((lst_100) strs_0))" +"(let-values(((lst_109) strs_94))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_100)))" -"((letrec-values(((for-loop_115)" -"(lambda(fold-var_88 lst_101)" +"(let-values()(check-list lst_109)))" +"((letrec-values(((for-loop_110)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_101)" -"(let-values(((str_4)(unsafe-car lst_101))((rest_48)(unsafe-cdr lst_101)))" -"(let-values(((fold-var_89)" -"(let-values(((fold-var_90) fold-var_88))" -"(let-values(((fold-var_14)" +"(if(pair? lst_0)" +"(let-values(((str_113)(unsafe-car lst_0))((rest_114)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_115)" +"(let-values(((fold-var_116) fold-var_0))" +"(let-values(((fold-var_117)" "(let-values()" "(cons" "(let-values()" -" (string-append \"\\n \" str_4))" -" fold-var_90))))" -"(values fold-var_14)))))" -"(if(not #f)(for-loop_115 fold-var_89 rest_48) fold-var_89)))" -" fold-var_88)))))" -" for-loop_115)" +" (string-append \"\\n \" str_113))" +" fold-var_116))))" +"(values fold-var_117)))))" +"(if(not #f)(for-loop_110 fold-var_115 rest_114) fold-var_115)))" +" fold-var_0)))))" +" for-loop_110)" " null" -" lst_100)))))))))))" -" (define-values (layer->string) (lambda (layer_4) (begin (if (zero? layer_4) \"\" (format \" at layer ~a\" layer_4)))))" +" lst_109)))))))))))" +" (define-values (layer->string) (lambda (layer_0) (begin (if (zero? layer_0) \"\" (format \" at layer ~a\" layer_0)))))" "(define-values" "(raise-syntax-implicit-error)" -"(lambda(s_0 sym_31 trigger-id_0 ctx_8)" +"(lambda(s_0 sym_0 trigger-id_0 ctx_0)" "(begin" -"(let-values(((phase_46)(expand-context-phase ctx_8)))" -"(let-values(((what_1)" -"(let-values(((tmp_16) sym_31))" -"(if(equal? tmp_16 '#%app)" +"(let-values(((phase_5)(expand-context-phase ctx_0)))" +"(let-values(((what_6)" +"(let-values(((tmp_9) sym_0))" +"(if(equal? tmp_9 '#%app)" " (let-values () \"function application\")" -"(if(equal? tmp_16 '#%datum)" +"(if(equal? tmp_9 '#%datum)" " (let-values () \"literal data\")" -"(if(equal? tmp_16 '#%top)" +"(if(equal? tmp_9 '#%top)" "(let-values()" -"(if(expand-context-allow-unbound? ctx_8)" +"(if(expand-context-allow-unbound? ctx_0)" " \"reference to a top-level identifier\"" " \"reference to an unbound identifier\"))" "(let-values()(void))))))))" -"(let-values(((unbound?_0)" +"(let-values(((unbound?_7)" "(if trigger-id_0" "(not" -"(let-values(((trigger-id1_0) trigger-id_0)((phase2_1) phase_46))" -"(resolve40.1 #f #f null #f trigger-id1_0 phase2_1)))" +"(let-values(((trigger-id1_10) trigger-id_0)((phase2_11) phase_5))" +"(resolve40.1 #f #f null #f trigger-id1_10 phase2_11)))" " #f)))" -"(let-values(((unbound-form_0)" -"(if unbound?_0(if(not(eq?(syntax-e$1 s_0)(syntax-e$1 trigger-id_0))) s_0 #f) #f)))" +"(let-values(((unbound-form_8)" +"(if unbound?_7(if(not(eq?(syntax-e$1 s_0)(syntax-e$1 trigger-id_0))) s_0 #f) #f)))" "(raise-syntax-error$1" " #f" "(format" -"(if unbound?_0" +"(if unbound?_7" " \"unbound identifier;\\n also, no ~a syntax transformer is bound~a\"" -" (string-append what_1 \" is not allowed;\\n no ~a syntax transformer is bound~a\"))" -" sym_31" -"(let-values(((tmp_17) phase_46))" -"(if(equal? tmp_17 0)" +" (string-append what_6 \" is not allowed;\\n no ~a syntax transformer is bound~a\"))" +" sym_0" +"(let-values(((tmp_12) phase_5))" +"(if(equal? tmp_12 0)" " (let-values () \"\")" -"(if(equal? tmp_17 1)" +"(if(equal? tmp_12 1)" " (let-values () \" in the transformer phase\")" -" (let-values () (format \" at phase ~a\" phase_46))))))" -"(if unbound?_0(let-values(((or-part_13) unbound-form_0))(if or-part_13 or-part_13 trigger-id_0)) #f)" -"(if unbound?_0(if unbound-form_0 trigger-id_0 #f) s_0)" +" (let-values () (format \" at phase ~a\" phase_5))))))" +"(if unbound?_7(let-values(((or-part_13) unbound-form_8))(if or-part_13 or-part_13 trigger-id_0)) #f)" +"(if unbound?_7(if unbound-form_8 trigger-id_0 #f) s_0)" " null" -" (if unbound?_0 (syntax-debug-info-string trigger-id_0 ctx_8) \"\")))))))))" +" (if unbound?_7 (syntax-debug-info-string trigger-id_0 ctx_0) \"\")))))))))" "(define-values(make-check-no-duplicate-table)(lambda()(begin '#hasheq())))" "(define-values" "(check-no-duplicate-ids7.1)" "(lambda(what1_0 ids4_0 phase5_0 s6_0 ht3_0)" "(begin" " 'check-no-duplicate-ids7" -"(let-values(((ids_2) ids4_0))" -"(let-values(((phase_47) phase5_0))" -"(let-values(((s_3) s6_0))" -"(let-values(((ht_77)(if(eq? ht3_0 unsafe-undefined)(make-check-no-duplicate-table) ht3_0)))" -" (let-values (((what_2) (if (eq? what1_0 unsafe-undefined) \"binding name\" what1_0)))" +"(let-values(((ids_6) ids4_0))" +"(let-values(((phase_7) phase5_0))" +"(let-values(((s_8) s6_0))" +"(let-values(((ht_9)(if(eq? ht3_0 unsafe-undefined)(make-check-no-duplicate-table) ht3_0)))" +" (let-values (((what_10) (if (eq? what1_0 unsafe-undefined) \"binding name\" what1_0)))" "(let-values()" -"((letrec-values(((loop_6)" -"(lambda(v_129 ht_84)" +"((letrec-values(((loop_11)" +"(lambda(v_0 ht_0)" "(begin" " 'loop" -"(if(identifier? v_129)" +"(if(identifier? v_0)" "(let-values()" -"(let-values(((l_49)(hash-ref ht_84(syntax-e$1 v_129) null)))" +"(let-values(((l_14)(hash-ref ht_0(syntax-e$1 v_0) null)))" "(begin" -"(let-values(((lst_102) l_49))" +"(let-values(((lst_15) l_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_116)" -"(lambda(lst_81)" +"(let-values()(check-list lst_15)))" +"((letrec-values(((for-loop_16)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_81)" -"(let-values(((id_21)(unsafe-car lst_81))" -"((rest_49)" -"(unsafe-cdr lst_81)))" +"(if(pair? lst_0)" +"(let-values(((id_18)(unsafe-car lst_0))" +"((rest_19)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17075,68 +17192,66 @@ static const char *startup_source = "(begin" "(let-values()" "(if(bound-identifier=?$1" -" id_21" -" v_129" -" phase_47)" +" id_18" +" v_0" +" phase_7)" "(let-values()" "(raise-syntax-error$1" " #f" "(string-append" " \"duplicate \"" -" what_2)" -" s_3" -" v_129))" +" what_10)" +" s_8" +" v_0))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_116 rest_49)" +"(for-loop_16 rest_19)" "(values))))" "(values))))))" -" for-loop_116)" -" lst_102)))" +" for-loop_16)" +" lst_15)))" "(void)" -"(hash-set ht_84(syntax-e$1 v_129)(cons v_129 l_49)))))" -"(if(pair? v_129)" -"(let-values()(loop_6(cdr v_129)(loop_6(car v_129) ht_84)))" -"(let-values() ht_84)))))))" -" loop_6)" -" ids_2" -" ht_77))))))))))" +"(hash-set ht_0(syntax-e$1 v_0)(cons v_0 l_14)))))" +"(if(pair? v_0)" +"(let-values()(loop_11(cdr v_0)(loop_11(car v_0) ht_0)))" +"(let-values() ht_0)))))))" +" loop_11)" +" ids_6" +" ht_9))))))))))" "(define-values" "(remove-use-site-scopes)" -"(lambda(s_0 ctx_7)" +"(lambda(s_0 ctx_0)" "(begin" -"(let-values(((use-sites_0)(root-expand-context-use-site-scopes ctx_7)))" -"(if(if use-sites_0(pair?(unbox use-sites_0)) #f)" +"(let-values(((use-sites_3)(root-expand-context-use-site-scopes ctx_0)))" +"(if(if use-sites_3(pair?(unbox use-sites_3)) #f)" "(if(syntax?$1 s_0)" -"(remove-scopes s_0(unbox use-sites_0))" +"(remove-scopes s_0(unbox use-sites_3))" "(reverse$1" -"(let-values(((lst_103) s_0))" +"(let-values(((lst_4) s_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_103)))" -"((letrec-values(((for-loop_117)" -"(lambda(fold-var_91 lst_84)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_4)))" +"((letrec-values(((for-loop_5)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_84)" -"(let-values(((id_22)(unsafe-car lst_84))((rest_50)(unsafe-cdr lst_84)))" -"(let-values(((fold-var_92)" -"(let-values(((fold-var_93) fold-var_91))" -"(let-values(((fold-var_60)" +"(if(pair? lst_0)" +"(let-values(((id_8)(unsafe-car lst_0))((rest_9)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_10)" +"(let-values(((fold-var_11) fold-var_0))" +"(let-values(((fold-var_12)" "(let-values()" "(cons" "(let-values()" -"(remove-scopes id_22(unbox use-sites_0)))" -" fold-var_93))))" -"(values fold-var_60)))))" -"(if(not #f)(for-loop_117 fold-var_92 rest_50) fold-var_92)))" -" fold-var_91)))))" -" for-loop_117)" +"(remove-scopes id_8(unbox use-sites_3)))" +" fold-var_11))))" +"(values fold-var_12)))))" +"(if(not #f)(for-loop_5 fold-var_10 rest_9) fold-var_10)))" +" fold-var_0)))))" +" for-loop_5)" " null" -" lst_103)))))" +" lst_4)))))" " s_0)))))" "(define-values" "(struct:compile-context" @@ -17149,7 +17264,7 @@ static const char *startup_source = " compile-context-full-module-name" " compile-context-lazy-syntax-literals?" " compile-context-header)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -17165,46 +17280,46 @@ static const char *startup_source = " #f" " 'compile-context)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 'namespace)" -"(make-struct-field-accessor -ref_0 1 'phase)" -"(make-struct-field-accessor -ref_0 2 'self)" -"(make-struct-field-accessor -ref_0 3 'module-self)" -"(make-struct-field-accessor -ref_0 4 'full-module-name)" -"(make-struct-field-accessor -ref_0 5 'lazy-syntax-literals?)" -"(make-struct-field-accessor -ref_0 6 'header))))" +" struct:_1" +" make-_2" +" ?_3" +"(make-struct-field-accessor -ref_4 0 'namespace)" +"(make-struct-field-accessor -ref_4 1 'phase)" +"(make-struct-field-accessor -ref_4 2 'self)" +"(make-struct-field-accessor -ref_4 3 'module-self)" +"(make-struct-field-accessor -ref_4 4 'full-module-name)" +"(make-struct-field-accessor -ref_4 5 'lazy-syntax-literals?)" +"(make-struct-field-accessor -ref_4 6 'header))))" "(define-values" "(make-compile-context14.1)" -"(lambda(full-module-name6_0 lazy-syntax-literals?7_0 module-self5_0 namespace2_0 phase3_1 self4_1)" +"(lambda(full-module-name6_0 lazy-syntax-literals?7_0 module-self5_0 namespace2_0 phase3_0 self4_0)" "(begin" " 'make-compile-context14" -"(let-values(((namespace_1)(if(eq? namespace2_0 unsafe-undefined)(1/current-namespace) namespace2_0)))" -"(let-values(((phase_48)(if(eq? phase3_1 unsafe-undefined)(namespace-phase namespace_1) phase3_1)))" -"(let-values(((self_6)(if(eq? self4_1 unsafe-undefined)(namespace-self-mpi namespace_1) self4_1)))" -"(let-values(((module-self_0) module-self5_0))" -"(let-values(((full-module-name_0) full-module-name6_0))" -"(let-values(((lazy-syntax-literals?_0)" +"(let-values(((namespace_57)(if(eq? namespace2_0 unsafe-undefined)(1/current-namespace) namespace2_0)))" +"(let-values(((phase_58)(if(eq? phase3_0 unsafe-undefined)(namespace-phase namespace_57) phase3_0)))" +"(let-values(((self_59)(if(eq? self4_0 unsafe-undefined)(namespace-self-mpi namespace_57) self4_0)))" +"(let-values(((module-self_60) module-self5_0))" +"(let-values(((full-module-name_61) full-module-name6_0))" +"(let-values(((lazy-syntax-literals?_62)" "(if(eq? lazy-syntax-literals?7_0 unsafe-undefined)" -"(if module-self_0 #t #f)" +"(if module-self_60 #t #f)" " lazy-syntax-literals?7_0)))" "(let-values()" "(begin" -"(if(if module-self_0(not full-module-name_0) #f)" +"(if(if module-self_60(not full-module-name_61) #f)" " (let-values () (error \"internal error: module-self provided without full name\"))" "(void))" "(compile-context1.1" -" namespace_1" -" phase_48" -" self_6" -" module-self_0" -" full-module-name_0" -" lazy-syntax-literals?_0" +" namespace_57" +" phase_58" +" self_59" +" module-self_60" +" full-module-name_61" +" lazy-syntax-literals?_62" " #f))))))))))))" "(define-values" "(struct:mpi-intern-table mpi-intern-table1.1 mpi-intern-table? mpi-intern-table-normal mpi-intern-table-fast)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -17220,62 +17335,64 @@ static const char *startup_source = " #f" " 'mpi-intern-table)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 'normal)" -"(make-struct-field-accessor -ref_0 1 'fast))))" +" struct:_1" +" make-_2" +" ?_3" +"(make-struct-field-accessor -ref_4 0 'normal)" +"(make-struct-field-accessor -ref_4 1 'fast))))" "(define-values" "(make-module-path-index-intern-table)" "(lambda()(begin(mpi-intern-table1.1(make-hash)(make-hasheq)))))" "(define-values" "(intern-module-path-index!)" -"(lambda(t_44 mpi_20)" +"(lambda(t_0 mpi_0)" "(begin" -"(let-values(((or-part_72)(hash-ref(mpi-intern-table-fast t_44) mpi_20 #f)))" -"(if or-part_72" -" or-part_72" -"(let-values(((name_2 base_15)(1/module-path-index-split mpi_20)))" -"(if(not name_2)" -"(let-values()(begin(hash-set!(mpi-intern-table-fast t_44) mpi_20 mpi_20) mpi_20))" +"(let-values(((or-part_28)(hash-ref(mpi-intern-table-fast t_0) mpi_0 #f)))" +"(if or-part_28" +" or-part_28" +"(let-values(((name_29 base_30)(1/module-path-index-split mpi_0)))" +"(if(not name_29)" +"(let-values()(begin(hash-set!(mpi-intern-table-fast t_0) mpi_0 mpi_0) mpi_0))" "(let-values()" -"(let-values(((interned-base_0)(if base_15(intern-module-path-index! t_44 base_15) #f)))" -"(let-values(((at-name_0)" -"(let-values(((or-part_29)(hash-ref(mpi-intern-table-normal t_44) name_2 #f)))" -"(if or-part_29" -" or-part_29" -"(let-values(((at-name_1)(make-hasheq)))" -"(begin(hash-set!(mpi-intern-table-normal t_44) name_2 at-name_1) at-name_1))))))" -"(let-values(((i-mpi_0)" -"(let-values(((or-part_79)(hash-ref at-name_0 interned-base_0 #f)))" -"(if or-part_79" -" or-part_79" -"(let-values(((mpi_21)" -"(if(eq? base_15 interned-base_0)" -" mpi_20" -"(let-values(((the-struct_47) mpi_20))" -"(if(1/module-path-index? the-struct_47)" -"(let-values(((base3_0) interned-base_0))" +"(let-values(((interned-base_31)(if base_30(intern-module-path-index! t_0 base_30) #f)))" +"(let-values(((at-name_32)" +"(let-values(((or-part_34)(hash-ref(mpi-intern-table-normal t_0) name_29 #f)))" +"(if or-part_34" +" or-part_34" +"(let-values(((at-name_35)(make-hasheq)))" +"(begin" +"(hash-set!(mpi-intern-table-normal t_0) name_29 at-name_35)" +" at-name_35))))))" +"(let-values(((i-mpi_33)" +"(let-values(((or-part_36)(hash-ref at-name_32 interned-base_31 #f)))" +"(if or-part_36" +" or-part_36" +"(let-values(((mpi_37)" +"(if(eq? base_30 interned-base_31)" +" mpi_0" +"(let-values(((the-struct_38) mpi_0))" +"(if(1/module-path-index? the-struct_38)" +"(let-values(((base3_39) interned-base_31))" "(module-path-index2.1" -"(module-path-index-path the-struct_47)" -" base3_0" -"(module-path-index-resolved the-struct_47)" -"(module-path-index-shift-cache the-struct_47)))" +"(module-path-index-path the-struct_38)" +" base3_39" +"(module-path-index-resolved the-struct_38)" +"(module-path-index-shift-cache the-struct_38)))" "(raise-argument-error" " 'struct-copy" " \"module-path-index?\"" -" the-struct_47))))))" -"(begin(hash-set! at-name_0 interned-base_0 mpi_21) mpi_21))))))" -"(begin(hash-set!(mpi-intern-table-fast t_44) mpi_20 i-mpi_0) i-mpi_0))))))))))))" +" the-struct_38))))))" +"(begin(hash-set! at-name_32 interned-base_31 mpi_37) mpi_37))))))" +"(begin(hash-set!(mpi-intern-table-fast t_0) mpi_0 i-mpi_33) i-mpi_33))))))))))))" "(define-values(built-in-symbols)(make-hasheq))" "(define-values(register-built-in-symbol!)(lambda(s_0)(begin(hash-set! built-in-symbols s_0 #t))))" -"(define-values(built-in-symbol?)(lambda(s_72)(begin(hash-ref built-in-symbols s_72 #f))))" +"(define-values(built-in-symbol?)(lambda(s_0)(begin(hash-ref built-in-symbols s_0 #f))))" "(define-values" "(make-built-in-symbol!)" -"(lambda(s_189)" +"(lambda(s_0)" "(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_189))))" -"(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" +" (let-values (((built-in-s_4) (string->symbol (format \".~s\" s_0))))" +"(begin(register-built-in-symbol! built-in-s_4) built-in-s_4)))))" "(void" "(begin" "(for-each2" @@ -17334,7 +17451,7 @@ static const char *startup_source = " module-path-index-table?" " module-path-index-table-positions" " module-path-index-table-intern)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -17350,366 +17467,366 @@ static const char *startup_source = " #f" " 'module-path-index-table)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 'positions)" -"(make-struct-field-accessor -ref_0 1 'intern))))" +" struct:_1" +" make-_2" +" ?_3" +"(make-struct-field-accessor -ref_4 0 'positions)" +"(make-struct-field-accessor -ref_4 1 'intern))))" "(define-values" "(make-module-path-index-table)" "(lambda()(begin(module-path-index-table1.1(make-hasheq)(make-module-path-index-intern-table)))))" "(define-values" "(add-module-path-index!)" -"(lambda(mpis_0 mpi_20)" +"(lambda(mpis_0 mpi_0)" "(begin" -"(let-values(((pos_14)(add-module-path-index!/pos mpis_0 mpi_20)))" -"(if pos_14(list 'unsafe-vector*-ref mpi-vector-id pos_14) #f)))))" +"(let-values(((pos_28)(add-module-path-index!/pos mpis_0 mpi_0)))" +"(if pos_28(list 'unsafe-vector*-ref mpi-vector-id pos_28) #f)))))" "(define-values" "(add-module-path-index!/pos)" -"(lambda(mpis_1 mpi_22)" +"(lambda(mpis_0 mpi_0)" "(begin" -"(if(not mpi_22)" +"(if(not mpi_0)" "(let-values() #f)" -"(if mpi_22" +"(if mpi_0" "(let-values()" -"(let-values(((mpi_23)(intern-module-path-index!(module-path-index-table-intern mpis_1) mpi_22))" -"((positions_0)(module-path-index-table-positions mpis_1)))" -"(let-values(((or-part_77)(hash-ref positions_0 mpi_23 #f)))" -"(if or-part_77" -" or-part_77" -"(let-values(((pos_15)(hash-count positions_0)))" -"(begin(hash-set! positions_0 mpi_23 pos_15) pos_15))))))" +"(let-values(((mpi_31)(intern-module-path-index!(module-path-index-table-intern mpis_0) mpi_0))" +"((positions_32)(module-path-index-table-positions mpis_0)))" +"(let-values(((or-part_33)(hash-ref positions_32 mpi_31 #f)))" +"(if or-part_33" +" or-part_33" +"(let-values(((pos_34)(hash-count positions_32)))" +"(begin(hash-set! positions_32 mpi_31 pos_34) pos_34))))))" "(void))))))" "(define-values" "(generate-module-path-index-deserialize)" -"(lambda(mpis_2)" +"(lambda(mpis_0)" "(begin" -"(let-values(((unique-list_0)" -"(lambda(v_130)" +"(let-values(((unique-list_36)" +"(lambda(v_0)" "(begin" " 'unique-list" -"(if(pair? v_130)" +"(if(pair? v_0)" "(reverse$1" -"(let-values(((lst_104) v_130))" +"(let-values(((lst_43) v_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_104)))" -"((letrec-values(((for-loop_118)" -"(lambda(fold-var_10 lst_76)" +"(let-values()(check-list lst_43)))" +"((letrec-values(((for-loop_44)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_76)" -"(let-values(((i_94)(unsafe-car lst_76))" -"((rest_51)(unsafe-cdr lst_76)))" -"(let-values(((fold-var_94)" -"(let-values(((fold-var_95) fold-var_10))" -"(let-values(((fold-var_96)" +"(if(pair? lst_0)" +"(let-values(((i_47)(unsafe-car lst_0))" +"((rest_48)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_49)" +"(let-values(((fold-var_50) fold-var_0))" +"(let-values(((fold-var_51)" "(let-values()" "(cons" -"(let-values() i_94)" -" fold-var_95))))" -"(values fold-var_96)))))" -"(if(not #f)" -"(for-loop_118 fold-var_94 rest_51)" -" fold-var_94)))" -" fold-var_10)))))" -" for-loop_118)" +"(let-values() i_47)" +" fold-var_50))))" +"(values fold-var_51)))))" +"(if(not #f)(for-loop_44 fold-var_49 rest_48) fold-var_49)))" +" fold-var_0)))))" +" for-loop_44)" " null" -" lst_104))))" -" v_130)))))" -"(let-values(((positions_1)(module-path-index-table-positions mpis_2)))" -"(let-values(((gen-order_0)(make-hasheqv)))" -"(let-values(((rev-positions_0)" -"(let-values(((ht_85) positions_1))" +" lst_43))))" +" v_0)))))" +"(let-values(((positions_37)(module-path-index-table-positions mpis_0)))" +"(let-values(((gen-order_38)(make-hasheqv)))" +"(let-values(((rev-positions_39)" +"(let-values(((ht_52) positions_37))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_85)))" -"((letrec-values(((for-loop_119)" -"(lambda(table_120 i_95)" +"(let-values()(check-in-hash ht_52)))" +"((letrec-values(((for-loop_53)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_95" -"(let-values(((k_20 v_59)(hash-iterate-key+value ht_85 i_95)))" -"(let-values(((table_121)" -"(let-values(((table_115) table_120))" -"(let-values(((table_122)" +"(if i_0" +"(let-values(((k_56 v_57)(hash-iterate-key+value ht_52 i_0)))" +"(let-values(((table_58)" +"(let-values(((table_59) table_0))" +"(let-values(((table_60)" "(let-values()" -"(let-values(((key_45 val_38)" +"(let-values(((key_61 val_62)" "(let-values()" "(values" -" v_59" -" k_20))))" +" v_57" +" k_56))))" "(hash-set" -" table_115" -" key_45" -" val_38)))))" -"(values table_122)))))" +" table_59" +" key_61" +" val_62)))))" +"(values table_60)))))" "(if(not #f)" -"(for-loop_119 table_121(hash-iterate-next ht_85 i_95))" -" table_121)))" -" table_120)))))" -" for-loop_119)" +"(for-loop_53 table_58(hash-iterate-next ht_52 i_0))" +" table_58)))" +" table_0)))))" +" for-loop_53)" " '#hasheqv()" -"(hash-iterate-first ht_85))))))" +"(hash-iterate-first ht_52))))))" "(let-values((()" "(begin" -"(let-values(((start_16) 0)((end_10)(hash-count rev-positions_0))((inc_4) 1))" +"(let-values(((start_63) 0)((end_64)(hash-count rev-positions_39))((inc_65) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_16 end_10 inc_4)))" -"((letrec-values(((for-loop_105)" -"(lambda(pos_16)" +"(let-values()(check-range start_63 end_64 inc_65)))" +"((letrec-values(((for-loop_66)" +"(lambda(pos_0)" "(begin" " 'for-loop" -"(if(< pos_16 end_10)" -"(let-values(((i_96) pos_16))" +"(if(< pos_0 end_64)" +"(let-values(((i_68) pos_0))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((mpi_24)" +"(let-values(((mpi_69)" "(hash-ref" -" rev-positions_0" -" i_96)))" -"((letrec-values(((loop_83)" -"(lambda(mpi_25)" +" rev-positions_39" +" i_68)))" +"((letrec-values(((loop_70)" +"(lambda(mpi_0)" "(begin" " 'loop" "(if(hash-ref" -" gen-order_0" -" mpi_25" +" gen-order_38" +" mpi_0" " #f)" "(void)" "(let-values()" -"(let-values(((name_36" -" base_16)" +"(let-values(((name_72" +" base_73)" "(1/module-path-index-split" -" mpi_25)))" +" mpi_0)))" "(begin" -"(if base_16" +"(if base_73" "(let-values()" -"(loop_83" -" base_16))" +"(loop_70" +" base_73))" "(void))" "(hash-set!" -" gen-order_0" -" mpi_25" +" gen-order_38" +" mpi_0" "(hash-count" -" gen-order_0))))))))))" -" loop_83)" -" mpi_24)))" +" gen-order_38))))))))))" +" loop_70)" +" mpi_69)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_105(+ pos_16 inc_4))(values))))" +"(if(not #f)(for-loop_66(+ pos_0 inc_65))(values))))" "(values))))))" -" for-loop_105)" -" start_16)))" +" for-loop_66)" +" start_63)))" "(values))))" "(let-values()" -"(let-values(((rev-gen-order_0)" -"(let-values(((ht_86) gen-order_0))" +"(let-values(((rev-gen-order_40)" +"(let-values(((ht_74) gen-order_38))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_86)))" -"((letrec-values(((for-loop_120)" -"(lambda(table_123 i_93)" +"(let-values()(check-in-hash ht_74)))" +"((letrec-values(((for-loop_75)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_93" -"(let-values(((k_21 v_39)" -"(hash-iterate-key+value ht_86 i_93)))" -"(let-values(((table_16)" -"(let-values(((table_124) table_123))" -"(let-values(((table_10)" +"(if i_0" +"(let-values(((k_78 v_79)" +"(hash-iterate-key+value ht_74 i_0)))" +"(let-values(((table_80)" +"(let-values(((table_81) table_0))" +"(let-values(((table_82)" "(let-values()" -"(let-values(((key_46" -" val_39)" +"(let-values(((key_83" +" val_84)" "(let-values()" "(values" -" v_39" -" k_21))))" +" v_79" +" k_78))))" "(hash-set" -" table_124" -" key_46" -" val_39)))))" -"(values table_10)))))" +" table_81" +" key_83" +" val_84)))))" +"(values table_82)))))" "(if(not #f)" -"(for-loop_120 table_16(hash-iterate-next ht_86 i_93))" -" table_16)))" -" table_123)))))" -" for-loop_120)" +"(for-loop_75 table_80(hash-iterate-next ht_74 i_0))" +" table_80)))" +" table_0)))))" +" for-loop_75)" " '#hasheqv()" -"(hash-iterate-first ht_86))))))" -"(let-values(((gens_0)" -"(let-values(((len_12)(hash-count gen-order_0)))" +"(hash-iterate-first ht_74))))))" +"(let-values(((gens_41)" +"(let-values(((len_85)(hash-count gen-order_38)))" "(begin" -"(if(exact-nonnegative-integer? len_12)" +"(if(exact-nonnegative-integer? len_85)" "(void)" "(let-values()" -" (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_12)))" -"(let-values(((v_131)(make-vector len_12 0)))" +" (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_85)))" +"(let-values(((v_86)(make-vector len_85 0)))" "(begin" -"(if(zero? len_12)" +"(if(zero? len_85)" "(void)" "(let-values()" -"(let-values(((start_17) 0)" -"((end_11)(hash-count gen-order_0))" -"((inc_5) 1))" +"(let-values(((start_87) 0)" +"((end_88)(hash-count gen-order_38))" +"((inc_89) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_17 end_11 inc_5)))" -"((letrec-values(((for-loop_28)" -"(lambda(i_97 pos_17)" +"(let-values()(check-range start_87 end_88 inc_89)))" +"((letrec-values(((for-loop_90)" +"(lambda(i_0 pos_0)" "(begin" " 'for-loop" -"(if(< pos_17 end_11)" -"(let-values(((i_91) pos_17))" -"(let-values(((i_98)" -"(let-values(((i_99) i_97))" -"(let-values(((i_29)" +"(if(< pos_0 end_88)" +"(let-values(((i_93) pos_0))" +"(let-values(((i_94)" +"(let-values(((i_95) i_0))" +"(let-values(((i_96)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_131" -" i_99" +" v_86" +" i_95" "(let-values()" -"(let-values(((mpi_26)" +"(let-values(((mpi_97)" "(hash-ref" -" rev-gen-order_0" -" i_91)))" -"(let-values(((path_6" -" base_17)" +" rev-gen-order_40" +" i_93)))" +"(let-values(((path_98" +" base_99)" "(1/module-path-index-split" -" mpi_26)))" +" mpi_97)))" "(if(top-level-module-path-index?" -" mpi_26)" +" mpi_97)" "(let-values()" " 'top)" "(if(not" -" path_6)" +" path_98)" "(let-values()" "(box" -"(let-values(((or-part_167)" -"(unique-list_0" +"(let-values(((or-part_100)" +"(unique-list_36" "(1/resolved-module-path-name" "(module-path-index-resolved" -" mpi_26)))))" -"(if or-part_167" -" or-part_167" +" mpi_97)))))" +"(if or-part_100" +" or-part_100" " 'self))))" "(if(not" -" base_17)" +" base_99)" "(let-values()" "(vector" -" path_6))" -"(if base_17" +" path_98))" +"(if base_99" "(let-values()" "(vector" -" path_6" +" path_98" "(hash-ref" -" gen-order_0" -" base_17)))" +" gen-order_38" +" base_99)))" "(void)))))))))" "(unsafe-fx+" " 1" -" i_99)))))" -"(values i_29)))))" +" i_95)))))" +"(values i_96)))))" "(if(if(not" -"((lambda x_42" -"(unsafe-fx= i_98 len_12))" -" i_91))" +"((lambda x_0" +"(unsafe-fx= i_94 len_85))" +" i_93))" "(not #f)" " #f)" -"(for-loop_28 i_98(+ pos_17 inc_5))" -" i_98)))" -" i_97)))))" -" for-loop_28)" +"(for-loop_90 i_94(+ pos_0 inc_89))" +" i_94)))" +" i_0)))))" +" for-loop_90)" " 0" -" start_17)))))" -" v_131))))))" +" start_87)))))" +" v_86))))))" "(list" " 'deserialize-module-path-indexes" -"(list 'quote gens_0)" +"(list 'quote gens_41)" "(list" " 'quote" -"(let-values(((vec_30 i_46)" -"(let-values(((start_18) 0)((end_12)(hash-count rev-positions_0))((inc_6) 1))" +"(let-values(((vec_102 i_103)" +"(let-values(((start_104) 0)" +"((end_105)(hash-count rev-positions_39))" +"((inc_106) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_18 end_12 inc_6)))" -"((letrec-values(((for-loop_53)" -"(lambda(vec_31 i_100 pos_18)" +"(let-values()(check-range start_104 end_105 inc_106)))" +"((letrec-values(((for-loop_107)" +"(lambda(vec_0 i_0 pos_0)" "(begin" " 'for-loop" -"(if(< pos_18 end_12)" -"(let-values(((i_101) pos_18))" -"(let-values(((vec_32 i_102)" -"(let-values(((vec_33) vec_31)" -"((i_39) i_100))" -"(let-values(((vec_34 i_103)" +"(if(< pos_0 end_105)" +"(let-values(((i_111) pos_0))" +"(let-values(((vec_112 i_113)" +"(let-values(((vec_114) vec_0)" +"((i_115) i_0))" +"(let-values(((vec_116 i_117)" "(let-values()" -"(let-values(((new-vec_2)" +"(let-values(((new-vec_118)" "(if(eq?" -" i_39" +" i_115" "(unsafe-vector*-length" -" vec_33))" +" vec_114))" "(grow-vector" -" vec_33)" -" vec_33)))" +" vec_114)" +" vec_114)))" "(begin" "(unsafe-vector*-set!" -" new-vec_2" -" i_39" +" new-vec_118" +" i_115" "(let-values()" "(hash-ref" -" gen-order_0" +" gen-order_38" "(hash-ref" -" rev-positions_0" -" i_101))))" +" rev-positions_39" +" i_111))))" "(values" -" new-vec_2" +" new-vec_118" "(unsafe-fx+" -" i_39" +" i_115" " 1)))))))" -"(values vec_34 i_103)))))" +"(values vec_116 i_117)))))" "(if(not #f)" -"(for-loop_53 vec_32 i_102(+ pos_18 inc_6))" -"(values vec_32 i_102))))" -"(values vec_31 i_100))))))" -" for-loop_53)" +"(for-loop_107 vec_112 i_113(+ pos_0 inc_106))" +"(values vec_112 i_113))))" +"(values vec_0 i_0))))))" +" for-loop_107)" "(make-vector 16)" " 0" -" start_18)))))" -"(shrink-vector vec_30 i_46)))))))))))))))" +" start_104)))))" +"(shrink-vector vec_102 i_103)))))))))))))))" "(define-values" "(deserialize-module-path-indexes)" "(lambda(gen-vec_0 order-vec_0)" "(begin" -"(let-values(((gen_0)(make-vector(vector-length gen-vec_0) #f)))" +"(let-values(((gen_121)(make-vector(vector-length gen-vec_0) #f)))" "(begin" -"(let-values(((vec_35 len_13)" -"(let-values(((vec_23) gen-vec_0))" -"(begin(check-vector vec_23)(values vec_23(unsafe-vector-length vec_23)))))" -"((start_19) 0))" +"(let-values(((vec_122 len_123)" +"(let-values(((vec_125) gen-vec_0))" +"(begin(check-vector vec_125)(values vec_125(unsafe-vector-length vec_125)))))" +"((start_124) 0))" "(begin" " #f" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_19)))" -"((letrec-values(((for-loop_121)" -"(lambda(pos_19 pos_20)" +"(let-values()(check-naturals start_124)))" +"((letrec-values(((for-loop_126)" +"(lambda(pos_0 pos_1)" "(begin" " 'for-loop" -"(if(if(unsafe-fx< pos_19 len_13) #t #f)" -"(let-values(((d_21)(unsafe-vector-ref vec_35 pos_19))((i_104) pos_20))" +"(if(if(unsafe-fx< pos_0 len_123) #t #f)" +"(let-values(((d_129)(unsafe-vector-ref vec_122 pos_0))((i_130) pos_1))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17717,449 +17834,449 @@ static const char *startup_source = "(begin" "(let-values()" "(vector-set!" -" gen_0" -" i_104" -"(if(eq? d_21 'top)" +" gen_121" +" i_130" +"(if(eq? d_129 'top)" "(let-values()" "(deserialize-module-path-index))" -"(if(box? d_21)" +"(if(box? d_129)" "(let-values()" "(deserialize-module-path-index" -"(unbox d_21)))" +"(unbox d_129)))" "(let-values()" "(deserialize-module-path-index" -"(vector*-ref d_21 0)" -"(if(>(vector*-length d_21) 1)" +"(vector*-ref d_129 0)" +"(if(>(vector*-length d_129) 1)" "(vector*-ref" -" gen_0" -"(vector*-ref d_21 1))" +" gen_121" +"(vector*-ref d_129 1))" " #f)))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_121(unsafe-fx+ 1 pos_19)(+ pos_20 1))(values))))" +"(if(not #f)(for-loop_126(unsafe-fx+ 1 pos_0)(+ pos_1 1))(values))))" "(values))))))" -" for-loop_121)" +" for-loop_126)" " 0" -" start_19)))" +" start_124)))" "(void)" -"(let-values(((len_14)(vector-length order-vec_0)))" +"(let-values(((len_131)(vector-length order-vec_0)))" "(begin" -"(if(exact-nonnegative-integer? len_14)" +"(if(exact-nonnegative-integer? len_131)" "(void)" -" (let-values () (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_14)))" -"(let-values(((v_132)(make-vector len_14 0)))" +" (let-values () (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_131)))" +"(let-values(((v_132)(make-vector len_131 0)))" "(begin" -"(if(zero? len_14)" +"(if(zero? len_131)" "(void)" "(let-values()" -"(let-values(((vec_36 len_4)" -"(let-values(((vec_11) order-vec_0))" -"(begin(check-vector vec_11)(values vec_11(unsafe-vector-length vec_11))))))" +"(let-values(((vec_133 len_134)" +"(let-values(((vec_135) order-vec_0))" +"(begin(check-vector vec_135)(values vec_135(unsafe-vector-length vec_135))))))" "(begin" " #f" -"((letrec-values(((for-loop_122)" -"(lambda(i_105 pos_21)" +"((letrec-values(((for-loop_136)" +"(lambda(i_0 pos_0)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_21 len_4)" -"(let-values(((p_24)(unsafe-vector-ref vec_36 pos_21)))" -"(let-values(((i_48)" -"(let-values(((i_106) i_105))" -"(let-values(((i_107)" +"(if(unsafe-fx< pos_0 len_134)" +"(let-values(((p_139)(unsafe-vector-ref vec_133 pos_0)))" +"(let-values(((i_140)" +"(let-values(((i_141) i_0))" +"(let-values(((i_142)" "(let-values()" "(begin" "(unsafe-vector*-set!" " v_132" -" i_106" +" i_141" "(let-values()" -"(vector*-ref gen_0 p_24)))" -"(unsafe-fx+ 1 i_106)))))" -"(values i_107)))))" -"(if(if(not((lambda x_43(unsafe-fx= i_48 len_14)) p_24))" +"(vector*-ref gen_121 p_139)))" +"(unsafe-fx+ 1 i_141)))))" +"(values i_142)))))" +"(if(if(not((lambda x_0(unsafe-fx= i_140 len_131)) p_139))" "(not #f)" " #f)" -"(for-loop_122 i_48(unsafe-fx+ 1 pos_21))" -" i_48)))" -" i_105)))))" -" for-loop_122)" +"(for-loop_136 i_140(unsafe-fx+ 1 pos_0))" +" i_140)))" +" i_0)))))" +" for-loop_136)" " 0" " 0)))))" " v_132)))))))))" "(define-values" "(mpis-as-vector)" -"(lambda(mpis_3)" +"(lambda(mpis_0)" "(begin" -"(let-values(((positions_2)(module-path-index-table-positions mpis_3)))" -"(let-values(((vec_37)(make-vector(hash-count positions_2) #f)))" +"(let-values(((positions_145)(module-path-index-table-positions mpis_0)))" +"(let-values(((vec_146)(make-vector(hash-count positions_145) #f)))" "(begin" -"(let-values(((ht_87) positions_2))" +"(let-values(((ht_147) positions_145))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_87)))" -"((letrec-values(((for-loop_123)" -"(lambda(i_24)" +"(let-values()(check-in-hash ht_147)))" +"((letrec-values(((for-loop_148)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_24" -"(let-values(((mpi_27 pos_22)(hash-iterate-key+value ht_87 i_24)))" +"(if i_0" +"(let-values(((mpi_150 pos_151)(hash-iterate-key+value ht_147 i_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(vector-set! vec_37 pos_22 mpi_27))" +"(vector-set! vec_146 pos_151 mpi_150))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_123(hash-iterate-next ht_87 i_24))(values))))" +"(if(not #f)(for-loop_148(hash-iterate-next ht_147 i_0))(values))))" "(values))))))" -" for-loop_123)" -"(hash-iterate-first ht_87))))" +" for-loop_148)" +"(hash-iterate-first ht_147))))" "(void)" -" vec_37))))))" +" vec_146))))))" "(define-values" "(serialize-module-uses)" -"(lambda(mus_0 mpis_4)" +"(lambda(mus_0 mpis_0)" "(begin" "(reverse$1" -"(let-values(((lst_105) mus_0))" +"(let-values(((lst_164) mus_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_105)))" -"((letrec-values(((for-loop_124)" -"(lambda(fold-var_97 lst_11)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_164)))" +"((letrec-values(((for-loop_165)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_11)" -"(let-values(((mu_1)(unsafe-car lst_11))((rest_52)(unsafe-cdr lst_11)))" -"(let-values(((fold-var_98)" -"(let-values(((fold-var_99) fold-var_97))" -"(let-values(((fold-var_100)" +"(if(pair? lst_0)" +"(let-values(((mu_168)(unsafe-car lst_0))((rest_169)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_170)" +"(let-values(((fold-var_171) fold-var_0))" +"(let-values(((fold-var_172)" "(let-values()" "(cons" "(let-values()" "(list" " 'module-use" "(add-module-path-index!" -" mpis_4" -"(module-use-module mu_1))" -"(module-use-phase mu_1)))" -" fold-var_99))))" -"(values fold-var_100)))))" -"(if(not #f)(for-loop_124 fold-var_98 rest_52) fold-var_98)))" -" fold-var_97)))))" -" for-loop_124)" +" mpis_0" +"(module-use-module mu_168))" +"(module-use-phase mu_168)))" +" fold-var_171))))" +"(values fold-var_172)))))" +"(if(not #f)(for-loop_165 fold-var_170 rest_169) fold-var_170)))" +" fold-var_0)))))" +" for-loop_165)" " null" -" lst_105)))))))" +" lst_164)))))))" "(define-values" "(interned-literal?)" -"(lambda(v_133)" +"(lambda(v_0)" "(begin" -"(let-values(((or-part_168)(null? v_133)))" -"(if or-part_168" -" or-part_168" -"(let-values(((or-part_169)(boolean? v_133)))" -"(if or-part_169" -" or-part_169" -"(let-values(((or-part_140)" -"(if(fixnum? v_133)(if(< v_133(sub1(expt 2 30)))(> v_133(-(expt 2 30))) #f) #f)))" -"(if or-part_140" -" or-part_140" -"(let-values(((or-part_170)(symbol? v_133)))" -"(if or-part_170" -" or-part_170" -"(let-values(((or-part_46)(char? v_133)))(if or-part_46 or-part_46(keyword? v_133))))))))))))))" +"(let-values(((or-part_174)(null? v_0)))" +"(if or-part_174" +" or-part_174" +"(let-values(((or-part_175)(boolean? v_0)))" +"(if or-part_175" +" or-part_175" +"(let-values(((or-part_176)" +"(if(fixnum? v_0)(if(< v_0(sub1(expt 2 30)))(> v_0(-(expt 2 30))) #f) #f)))" +"(if or-part_176" +" or-part_176" +"(let-values(((or-part_177)(symbol? v_0)))" +"(if or-part_177" +" or-part_177" +"(let-values(((or-part_178)(char? v_0)))(if or-part_178 or-part_178(keyword? v_0))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" -"(lambda(phase-to-link-module-uses_0 mpis_5)" +"(lambda(phase-to-link-module-uses_0 mpis_0)" "(begin" -"(let-values(((phases-in-order_0)" -"(let-values(((temp10_1)(hash-keys phase-to-link-module-uses_0))((<11_0) <))" -"(sort7.1 #f #f temp10_1 <11_0))))" +"(let-values(((phases-in-order_181)" +"(let-values(((temp10_182)(hash-keys phase-to-link-module-uses_0))((<11_183) <))" +"(sort7.1 #f #f temp10_182 <11_183))))" "(list*" " 'hasheqv" "(apply" " append" "(reverse$1" -"(let-values(((lst_106) phases-in-order_0))" +"(let-values(((lst_184) phases-in-order_181))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_106)))" -"((letrec-values(((for-loop_80)" -"(lambda(fold-var_101 lst_50)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_184)))" +"((letrec-values(((for-loop_185)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_50)" -"(let-values(((phase_9)(unsafe-car lst_50))((rest_53)(unsafe-cdr lst_50)))" -"(let-values(((fold-var_102)" -"(let-values(((fold-var_103) fold-var_101))" -"(let-values(((fold-var_104)" +"(if(pair? lst_0)" +"(let-values(((phase_188)(unsafe-car lst_0))((rest_189)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_190)" +"(let-values(((fold-var_191) fold-var_0))" +"(let-values(((fold-var_192)" "(let-values()" "(cons" "(let-values()" "(list" -" phase_9" +" phase_188" "(list*" " 'list" "(serialize-module-uses" "(hash-ref" " phase-to-link-module-uses_0" -" phase_9)" -" mpis_5))))" -" fold-var_103))))" -"(values fold-var_104)))))" -"(if(not #f)(for-loop_80 fold-var_102 rest_53) fold-var_102)))" -" fold-var_101)))))" -" for-loop_80)" +" phase_188)" +" mpis_0))))" +" fold-var_191))))" +"(values fold-var_192)))))" +"(if(not #f)(for-loop_185 fold-var_190 rest_189) fold-var_190)))" +" fold-var_0)))))" +" for-loop_185)" " null" -" lst_106))))))))))" +" lst_184))))))))))" "(define-values" "(generate-deserialize6.1)" "(lambda(syntax-support?2_0 v4_0 mpis5_0)" "(begin" " 'generate-deserialize6" -"(let-values(((v_134) v4_0))" -"(let-values(((mpis_6) mpis5_0))" -"(let-values(((syntax-support?_0) syntax-support?2_0))" +"(let-values(((v_196) v4_0))" +"(let-values(((mpis_197) mpis5_0))" +"(let-values(((syntax-support?_198) syntax-support?2_0))" "(let-values()" -"(let-values(((reachable-scopes_4)(find-reachable-scopes v_134)))" -"(let-values(((state_26)(make-serialize-state reachable-scopes_4)))" -"(let-values(((mutables_0)(make-hasheq)))" -"(let-values(((objs_0)(make-hasheq)))" -"(let-values(((shares_0)(make-hasheq)))" -"(let-values(((obj-step_0) 0))" -"(let-values(((frontier_0) null))" -"(letrec-values(((add-frontier!_0)" +"(let-values(((reachable-scopes_199)(find-reachable-scopes v_196)))" +"(let-values(((state_200)(make-serialize-state reachable-scopes_199)))" +"(let-values(((mutables_201)(make-hasheq)))" +"(let-values(((objs_202)(make-hasheq)))" +"(let-values(((shares_203)(make-hasheq)))" +"(let-values(((obj-step_204) 0))" +"(let-values(((frontier_205) null))" +"(letrec-values(((add-frontier!_206)" "(case-lambda" -"((v_135)(begin 'add-frontier!(set! frontier_0(cons v_135 frontier_0))))" -"((kind_3 v_91)(add-frontier!_0 v_91)))))" +"((v_0)(begin 'add-frontier!(set! frontier_205(cons v_0 frontier_205))))" +"((kind_0 v_0)(add-frontier!_206 v_0)))))" "(let-values((()" "(begin" -"((letrec-values(((frontier-loop_0)" -"(lambda(v_93)" +"((letrec-values(((frontier-loop_228)" +"(lambda(v_0)" "(begin" " 'frontier-loop" "(begin" -"((letrec-values(((loop_11)" -"(lambda(v_95)" +"((letrec-values(((loop_230)" +"(lambda(v_1)" "(begin" " 'loop" -"(if(let-values(((or-part_171)" +"(if(let-values(((or-part_232)" "(interned-literal?" -" v_95)))" -"(if or-part_171" -" or-part_171" +" v_1)))" +"(if or-part_232" +" or-part_232" "(1/module-path-index?" -" v_95)))" +" v_1)))" "(let-values()(void))" "(if(hash-ref" -" objs_0" -" v_95" +" objs_202" +" v_1" " #f)" "(let-values()" "(if(hash-ref" -" mutables_0" -" v_95" +" mutables_201" +" v_1" " #f)" "(void)" "(let-values()" "(hash-set!" -" shares_0" -" v_95" +" shares_203" +" v_1" " #t))))" "(let-values()" "(begin" "(if(serialize-fill!?" -" v_95)" +" v_1)" "(let-values()" "(begin" "(hash-set!" -" mutables_0" -" v_95" +" mutables_201" +" v_1" "(hash-count" -" mutables_0))" +" mutables_201))" "((serialize-fill!-ref" -" v_95)" -" v_95" -" add-frontier!_0" -" state_26)))" +" v_1)" +" v_1" +" add-frontier!_206" +" state_200)))" "(if(serialize?" -" v_95)" +" v_1)" "(let-values()" "((serialize-ref" -" v_95)" -" v_95" +" v_1)" +" v_1" "(case-lambda" "((sub-v_0)" -"(loop_11" +"(loop_230" " sub-v_0))" -"((kind_4" -" sub-v_1)" -"(loop_11" -" sub-v_1)))" -" state_26))" -"(if(pair? v_95)" +"((kind_0" +" sub-v_0)" +"(loop_230" +" sub-v_0)))" +" state_200))" +"(if(pair? v_1)" "(let-values()" "(begin" -"(loop_11" +"(loop_230" "(car" -" v_95))" -"(loop_11" +" v_1))" +"(loop_230" "(cdr" -" v_95))))" +" v_1))))" "(if(vector?" -" v_95)" +" v_1)" "(let-values()" -"(if(let-values(((or-part_172)" +"(if(let-values(((or-part_236)" "(immutable?" -" v_95)))" -"(if or-part_172" -" or-part_172" +" v_1)))" +"(if or-part_236" +" or-part_236" "(zero?" "(vector-length" -" v_95))))" +" v_1))))" "(begin" -"(let-values(((vec_38" -" len_15)" -"(let-values(((vec_39)" -" v_95))" +"(let-values(((vec_237" +" len_238)" +"(let-values(((vec_239)" +" v_1))" "(begin" "(check-vector" -" vec_39)" +" vec_239)" "(values" -" vec_39" +" vec_239" "(unsafe-vector-length" -" vec_39))))))" +" vec_239))))))" "(begin" " #f" -"((letrec-values(((for-loop_96)" -"(lambda(pos_23)" +"((letrec-values(((for-loop_240)" +"(lambda(pos_0)" "(begin" " 'for-loop" "(if(unsafe-fx<" -" pos_23" -" len_15)" -"(let-values(((e_17)" +" pos_0" +" len_238)" +"(let-values(((e_242)" "(unsafe-vector-ref" -" vec_38" -" pos_23)))" +" vec_237" +" pos_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_11" -" e_17))" +"(loop_230" +" e_242))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_96" +"(for-loop_240" "(unsafe-fx+" " 1" -" pos_23))" +" pos_0))" "(values))))" "(values))))))" -" for-loop_96)" +" for-loop_240)" " 0)))" "(void))" "(begin" "(hash-set!" -" mutables_0" -" v_95" +" mutables_201" +" v_1" "(hash-count" -" mutables_0))" +" mutables_201))" "(begin" -"(let-values(((vec_40" -" len_16)" -"(let-values(((vec_41)" -" v_95))" +"(let-values(((vec_243" +" len_244)" +"(let-values(((vec_245)" +" v_1))" "(begin" "(check-vector" -" vec_41)" +" vec_245)" "(values" -" vec_41" +" vec_245" "(unsafe-vector-length" -" vec_41))))))" +" vec_245))))))" "(begin" " #f" -"((letrec-values(((for-loop_125)" -"(lambda(pos_24)" +"((letrec-values(((for-loop_246)" +"(lambda(pos_0)" "(begin" " 'for-loop" "(if(unsafe-fx<" -" pos_24" -" len_16)" -"(let-values(((e_18)" +" pos_0" +" len_244)" +"(let-values(((e_248)" "(unsafe-vector-ref" -" vec_40" -" pos_24)))" +" vec_243" +" pos_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(add-frontier!_0" -" e_18))" +"(add-frontier!_206" +" e_248))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_125" +"(for-loop_246" "(unsafe-fx+" " 1" -" pos_24))" +" pos_0))" "(values))))" "(values))))))" -" for-loop_125)" +" for-loop_246)" " 0)))" "(void)))))" "(if(box?" -" v_95)" +" v_1)" "(let-values()" "(if(immutable?" -" v_95)" -"(loop_11" +" v_1)" +"(loop_230" "(unbox" -" v_95))" +" v_1))" "(begin" "(hash-set!" -" mutables_0" -" v_95" +" mutables_201" +" v_1" "(hash-count" -" mutables_0))" -"(add-frontier!_0" +" mutables_201))" +"(add-frontier!_206" "(unbox" -" v_95)))))" +" v_1)))))" "(if(hash?" -" v_95)" +" v_1)" "(let-values()" "(if(immutable?" -" v_95)" +" v_1)" "(begin" -"(let-values(((lst_107)" +"(let-values(((lst_249)" "(sorted-hash-keys" -" v_95)))" +" v_1)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_107)))" -"((letrec-values(((for-loop_126)" -"(lambda(lst_108)" +" lst_249)))" +"((letrec-values(((for-loop_250)" +"(lambda(lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_108)" -"(let-values(((k_22)" +" lst_0)" +"(let-values(((k_252)" "(unsafe-car" -" lst_108))" -"((rest_54)" +" lst_0))" +"((rest_253)" "(unsafe-cdr" -" lst_108)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18167,52 +18284,52 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(loop_11" -" k_22)" -"(loop_11" +"(loop_230" +" k_252)" +"(loop_230" "(hash-ref" -" v_95" -" k_22))))" +" v_1" +" k_252))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_126" -" rest_54)" +"(for-loop_250" +" rest_253)" "(values))))" "(values))))))" -" for-loop_126)" -" lst_107)))" +" for-loop_250)" +" lst_249)))" "(void))" "(begin" "(hash-set!" -" mutables_0" -" v_95" +" mutables_201" +" v_1" "(hash-count" -" mutables_0))" +" mutables_201))" "(begin" -"(let-values(((lst_109)" +"(let-values(((lst_254)" "(sorted-hash-keys" -" v_95)))" +" v_1)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_109)))" -"((letrec-values(((for-loop_127)" -"(lambda(lst_110)" +" lst_254)))" +"((letrec-values(((for-loop_255)" +"(lambda(lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_110)" -"(let-values(((k_23)" +" lst_0)" +"(let-values(((k_257)" "(unsafe-car" -" lst_110))" -"((rest_55)" +" lst_0))" +"((rest_258)" "(unsafe-cdr" -" lst_110)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18220,690 +18337,692 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(add-frontier!_0" -" k_23)" -"(add-frontier!_0" +"(add-frontier!_206" +" k_257)" +"(add-frontier!_206" "(hash-ref" -" v_95" -" k_23))))" +" v_1" +" k_257))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_127" -" rest_55)" +"(for-loop_255" +" rest_258)" "(values))))" "(values))))))" -" for-loop_127)" -" lst_109)))" +" for-loop_255)" +" lst_254)))" "(void)))))" "(if(prefab-struct-key" -" v_95)" +" v_1)" "(let-values()" "(begin" -"(let-values(((v*_1" -" start*_1" -" stop*_2" -" step*_1)" +"(let-values(((v*_259" +" start*_260" +" stop*_261" +" step*_262)" "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_44)" +"(lambda(x_0)" "(vector?" -" x_44))" -"(lambda(x_45)" +" x_0))" +"(lambda(x_0)" "(unsafe-vector-length" -" x_45))" +" x_0))" "(struct->vector" -" v_95)" +" v_1)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_128)" -"(lambda(idx_1)" +"((letrec-values(((for-loop_265)" +"(lambda(idx_0)" "(begin" " 'for-loop" "(if(unsafe-fx<" -" idx_1" -" stop*_2)" -"(let-values(((e_19)" +" idx_0" +" stop*_261)" +"(let-values(((e_267)" "(unsafe-vector-ref" -" v*_1" -" idx_1)))" +" v*_259" +" idx_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_11" -" e_19))" +"(loop_230" +" e_267))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_128" +"(for-loop_265" "(unsafe-fx+" -" idx_1" +" idx_0" " 1))" "(values))))" "(values))))))" -" for-loop_128)" -" start*_1)))" +" for-loop_265)" +" start*_260)))" "(void)))" "(if(srcloc?" -" v_95)" +" v_1)" "(let-values()" "(if(path?" "(srcloc-source" -" v_95))" +" v_1))" "(void)" "(let-values()" "(begin" -"(let-values(((v*_2" -" start*_2" -" stop*_3" -" step*_2)" +"(let-values(((v*_268" +" start*_269" +" stop*_270" +" step*_271)" "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_46)" +"(lambda(x_0)" "(vector?" -" x_46))" -"(lambda(x_47)" +" x_0))" +"(lambda(x_0)" "(unsafe-vector-length" -" x_47))" +" x_0))" "(struct->vector" -" v_95)" +" v_1)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_129)" -"(lambda(idx_2)" +"((letrec-values(((for-loop_274)" +"(lambda(idx_0)" "(begin" " 'for-loop" "(if(unsafe-fx<" -" idx_2" -" stop*_3)" -"(let-values(((e_20)" +" idx_0" +" stop*_270)" +"(let-values(((e_276)" "(unsafe-vector-ref" -" v*_2" -" idx_2)))" +" v*_268" +" idx_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_11" -" e_20))" +"(loop_230" +" e_276))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_129" +"(for-loop_274" "(unsafe-fx+" -" idx_2" +" idx_0" " 1))" "(values))))" "(values))))))" -" for-loop_129)" -" start*_2)))" +" for-loop_274)" +" start*_269)))" "(void)))))" "(let-values()" "(void))))))))))" "(hash-set!" -" objs_0" -" v_95" -" obj-step_0)" -"(set! obj-step_0" +" objs_202" +" v_1" +" obj-step_204)" +"(set! obj-step_204" "(add1" -" obj-step_0))))))))))" -" loop_11)" -" v_93)" -"(if(null? frontier_0)" +" obj-step_204))))))))))" +" loop_230)" +" v_0)" +"(if(null? frontier_205)" "(void)" "(let-values()" -"(let-values(((l_50) frontier_0))" +"(let-values(((l_277) frontier_205))" "(begin" -"(set! frontier_0 null)" -"(let-values(((lst_111) l_50))" +"(set! frontier_205 null)" +"(let-values(((lst_278) l_277))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_111)))" -"((letrec-values(((for-loop_130)" -"(lambda(lst_112)" +"(check-list lst_278)))" +"((letrec-values(((for-loop_279)" +"(lambda(lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_112)" -"(let-values(((v_136)" +" lst_0)" +"(let-values(((v_281)" "(unsafe-car" -" lst_112))" -"((rest_56)" +" lst_0))" +"((rest_282)" "(unsafe-cdr" -" lst_112)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(frontier-loop_0" -" v_136))" +"(frontier-loop_228" +" v_281))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_130" -" rest_56)" +"(for-loop_279" +" rest_282)" "(values))))" "(values))))))" -" for-loop_130)" -" lst_111)))" +" for-loop_279)" +" lst_278)))" "(void))))))))))" -" frontier-loop_0)" -" v_134)" +" frontier-loop_228)" +" v_196)" "(values))))" -"(let-values(((num-mutables_0)(hash-count mutables_0)))" -"(let-values(((share-step-positions_0)" -"(let-values(((share-steps_0)" +"(let-values(((num-mutables_207)(hash-count mutables_201)))" +"(let-values(((share-step-positions_208)" +"(let-values(((share-steps_283)" "(reverse$1" -"(let-values(((ht_88) shares_0))" +"(let-values(((ht_284) shares_203))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_88)))" -"((letrec-values(((for-loop_131)" -"(lambda(fold-var_105 i_108)" +"(let-values()(check-in-hash-keys ht_284)))" +"((letrec-values(((for-loop_285)" +"(lambda(fold-var_0 i_0)" "(begin" " 'for-loop" -"(if i_108" -"(let-values(((obj_0)" +"(if i_0" +"(let-values(((obj_288)" "(hash-iterate-key" -" ht_88" -" i_108)))" -"(let-values(((fold-var_106)" -"(let-values(((fold-var_107)" -" fold-var_105))" -"(let-values(((fold-var_108)" +" ht_284" +" i_0)))" +"(let-values(((fold-var_289)" +"(let-values(((fold-var_290)" +" fold-var_0))" +"(let-values(((fold-var_291)" "(let-values()" "(cons" "(let-values()" "(hash-ref" -" objs_0" -" obj_0))" -" fold-var_107))))" +" objs_202" +" obj_288))" +" fold-var_290))))" "(values" -" fold-var_108)))))" +" fold-var_291)))))" "(if(not #f)" -"(for-loop_131" -" fold-var_106" +"(for-loop_285" +" fold-var_289" "(hash-iterate-next" -" ht_88" -" i_108))" -" fold-var_106)))" -" fold-var_105)))))" -" for-loop_131)" +" ht_284" +" i_0))" +" fold-var_289)))" +" fold-var_0)))))" +" for-loop_285)" " null" -"(hash-iterate-first ht_88)))))))" -"(let-values(((lst_113)" -"(let-values(((share-steps12_0) share-steps_0)" -"((<13_0) <))" -"(sort7.1 #f #f share-steps12_0 <13_0)))" -"((start_20) num-mutables_0))" +"(hash-iterate-first ht_284)))))))" +"(let-values(((lst_292)" +"(let-values(((share-steps12_294) share-steps_283)" +"((<13_295) <))" +"(sort7.1 #f #f share-steps12_294 <13_295)))" +"((start_293) num-mutables_207))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_113)))" +"(let-values()(check-list lst_292)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_20)))" -"((letrec-values(((for-loop_132)" -"(lambda(table_125 lst_114 pos_25)" +"(let-values()(check-naturals start_293)))" +"((letrec-values(((for-loop_296)" +"(lambda(table_0 lst_0 pos_0)" "(begin" " 'for-loop" -"(if(if(pair? lst_114) #t #f)" -"(let-values(((step_3)" -"(unsafe-car lst_114))" -"((rest_57)" -"(unsafe-cdr lst_114))" -"((pos_26) pos_25))" -"(let-values(((table_126)" -"(let-values(((table_36)" -" table_125))" -"(let-values(((table_37)" +"(if(if(pair? lst_0) #t #f)" +"(let-values(((step_300)" +"(unsafe-car lst_0))" +"((rest_301)" +"(unsafe-cdr lst_0))" +"((pos_302) pos_0))" +"(let-values(((table_303)" +"(let-values(((table_304)" +" table_0))" +"(let-values(((table_305)" "(let-values()" -"(let-values(((key_47" -" val_40)" +"(let-values(((key_306" +" val_307)" "(let-values()" "(values" -" step_3" -" pos_26))))" +" step_300" +" pos_302))))" "(hash-set" -" table_36" -" key_47" -" val_40)))))" -"(values table_37)))))" +" table_304" +" key_306" +" val_307)))))" +"(values table_305)))))" "(if(not #f)" -"(for-loop_132" -" table_126" -" rest_57" -"(+ pos_25 1))" -" table_126)))" -" table_125)))))" -" for-loop_132)" +"(for-loop_296" +" table_303" +" rest_301" +"(+ pos_0 1))" +" table_303)))" +" table_0)))))" +" for-loop_296)" " '#hasheqv()" -" lst_113" -" start_20))))))" -"(let-values(((stream_0) null))" -"(let-values(((stream-size_0) 0))" -"(let-values(((next-push-position_0)" -"(lambda()(begin 'next-push-position stream-size_0))))" -"(let-values(((quoted?_0)" -"(lambda(pos_27)" +" lst_292" +" start_293))))))" +"(let-values(((stream_209) null))" +"(let-values(((stream-size_210) 0))" +"(let-values(((next-push-position_211)" +"(lambda()(begin 'next-push-position stream-size_210))))" +"(let-values(((quoted?_212)" +"(lambda(pos_0)" "(begin" " 'quoted?" -"(let-values(((v_137)" +"(let-values(((v_309)" "(list-ref" -" stream_0" -"(- stream-size_0(add1 pos_27)))))" -"(let-values(((or-part_173)(not(keyword? v_137))))" -"(if or-part_173 or-part_173(eq? '#:quote v_137))))))))" -"(let-values(((ser-reset!_0)" -"(lambda(pos_28)" +" stream_209" +"(- stream-size_210(add1 pos_0)))))" +"(let-values(((or-part_310)(not(keyword? v_309))))" +"(if or-part_310 or-part_310(eq? '#:quote v_309))))))))" +"(let-values(((ser-reset!_213)" +"(lambda(pos_0)" "(begin" " 'ser-reset!" "(begin" -"(set! stream_0" -"(list-tail stream_0(- stream-size_0 pos_28)))" -"(set! stream-size_0 pos_28))))))" -"(let-values(((reap-stream!_0)" +"(set! stream_209" +"(list-tail stream_209(- stream-size_210 pos_0)))" +"(set! stream-size_210 pos_0))))))" +"(let-values(((reap-stream!_214)" "(lambda()" "(begin" " 'reap-stream!" "(begin0" -"(list->vector(reverse$1 stream_0))" -"(set! stream_0 null)" -"(set! stream-size_0 0))))))" -"(letrec-values(((ser-push!_16)" +"(list->vector(reverse$1 stream_209))" +"(set! stream_209 null)" +"(set! stream-size_210 0))))))" +"(letrec-values(((ser-push!_215)" "(case-lambda" -"((v_138)" +"((v_0)" "(begin" " 'ser-push!" -"(if(hash-ref shares_0 v_138 #f)" +"(if(hash-ref shares_203 v_0 #f)" "(let-values()" -"(let-values(((n_21)" +"(let-values(((n_313)" "(hash-ref" -" share-step-positions_0" -"(hash-ref objs_0 v_138))))" +" share-step-positions_208" +"(hash-ref objs_202 v_0))))" "(begin" -"(ser-push!_16 'tag '#:ref)" -"(ser-push!_16 'exact n_21))))" -"(let-values(((c1_24)" -"(hash-ref mutables_0 v_138 #f)))" -"(if c1_24" -"((lambda(n_22)" +"(ser-push!_215 'tag '#:ref)" +"(ser-push!_215 'exact n_313))))" +"(let-values(((c1_314)" +"(hash-ref mutables_201 v_0 #f)))" +"(if c1_314" +"((lambda(n_0)" "(begin" -"(ser-push!_16 'tag '#:ref)" -"(ser-push!_16 'exact n_22)))" -" c1_24)" +"(ser-push!_215 'tag '#:ref)" +"(ser-push!_215 'exact n_0)))" +" c1_314)" "(let-values()" -"(ser-push-encoded!_0 v_138)))))))" -"((kind_5 v_139)" -"(let-values(((tmp_18) kind_5))" -"(if(equal? tmp_18 'exact)" +"(ser-push-encoded!_216 v_0)))))))" +"((kind_0 v_0)" +"(let-values(((tmp_318) kind_0))" +"(if(equal? tmp_318 'exact)" "(let-values()" "(begin" -"(set! stream_0(cons v_139 stream_0))" -"(set! stream-size_0(add1 stream-size_0))))" -"(if(equal? tmp_18 'tag)" -"(let-values()(ser-push!_16 'exact v_139))" -"(if(equal? tmp_18 'reference)" +"(set! stream_209(cons v_0 stream_209))" +"(set! stream-size_210" +"(add1 stream-size_210))))" +"(if(equal? tmp_318 'tag)" +"(let-values()(ser-push!_215 'exact v_0))" +"(if(equal? tmp_318 'reference)" "(let-values()" -"(if(hash-ref shares_0 v_139 #f)" +"(if(hash-ref shares_203 v_0 #f)" "(let-values()" -"(let-values(((n_23)" +"(let-values(((n_319)" "(hash-ref" -" share-step-positions_0" +" share-step-positions_208" "(hash-ref" -" objs_0" -" v_139))))" -"(ser-push!_16 'exact n_23)))" -"(let-values(((c2_1)" +" objs_202" +" v_0))))" +"(ser-push!_215 'exact n_319)))" +"(let-values(((c2_320)" "(hash-ref" -" mutables_0" -" v_139" +" mutables_201" +" v_0" " #f)))" -"(if c2_1" -"((lambda(n_24)" -"(ser-push!_16 'exact n_24))" -" c2_1)" +"(if c2_320" +"((lambda(n_0)" +"(ser-push!_215 'exact n_0))" +" c2_320)" "(let-values()" -"(ser-push!_16 v_139))))))" -"(let-values()(ser-push!_16 v_139)))))))))" -"((ser-push-encoded!_0)" -"(lambda(v_140)" +"(ser-push!_215 v_0))))))" +"(let-values()(ser-push!_215 v_0)))))))))" +"((ser-push-encoded!_216)" +"(lambda(v_0)" "(begin" " 'ser-push-encoded!" -"(if(keyword? v_140)" +"(if(keyword? v_0)" "(let-values()" "(begin" -"(ser-push!_16 'tag '#:quote)" -"(ser-push!_16 'exact v_140)))" -"(if(1/module-path-index? v_140)" +"(ser-push!_215 'tag '#:quote)" +"(ser-push!_215 'exact v_0)))" +"(if(1/module-path-index? v_0)" "(let-values()" "(begin" -"(ser-push!_16 'tag '#:mpi)" -"(ser-push!_16" +"(ser-push!_215 'tag '#:mpi)" +"(ser-push!_215" " 'exact" "(add-module-path-index!/pos" -" mpis_6" -" v_140))))" -"(if(serialize? v_140)" +" mpis_197" +" v_0))))" +"(if(serialize? v_0)" "(let-values()" -"((serialize-ref v_140)" -" v_140" -" ser-push!_16" -" state_26))" -"(if(if(list? v_140)" -"(if(pair? v_140)" -"(pair?(cdr v_140))" -" #f)" +"((serialize-ref v_0)" +" v_0" +" ser-push!_215" +" state_200))" +"(if(if(list? v_0)" +"(if(pair? v_0)(pair?(cdr v_0)) #f)" " #f)" "(let-values()" -"(let-values(((start-pos_0)" -"(next-push-position_0)))" +"(let-values(((start-pos_323)" +"(next-push-position_211)))" "(let-values((()" "(begin" -"(ser-push!_16" +"(ser-push!_215" " 'tag" " '#:list)" "(values))))" "(let-values((()" "(begin" -"(ser-push!_16" +"(ser-push!_215" " 'exact" -"(length v_140))" +"(length v_0))" "(values))))" -"(let-values(((all-quoted?_0)" -"(let-values(((lst_115)" -" v_140))" +"(let-values(((all-quoted?_324)" +"(let-values(((lst_325)" +" v_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_115)))" -"((letrec-values(((for-loop_133)" -"(lambda(all-quoted?_1" -" lst_116)" +" lst_325)))" +"((letrec-values(((for-loop_326)" +"(lambda(all-quoted?_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_116)" -"(let-values(((i_109)" +" lst_0)" +"(let-values(((i_329)" "(unsafe-car" -" lst_116))" -"((rest_58)" +" lst_0))" +"((rest_330)" "(unsafe-cdr" -" lst_116)))" -"(let-values(((all-quoted?_2)" -"(let-values(((all-quoted?_3)" -" all-quoted?_1))" -"(let-values(((all-quoted?_4)" +" lst_0)))" +"(let-values(((all-quoted?_331)" +"(let-values(((all-quoted?_332)" +" all-quoted?_0))" +"(let-values(((all-quoted?_333)" "(let-values()" -"(let-values(((i-pos_0)" -"(next-push-position_0)))" +"(let-values(((i-pos_334)" +"(next-push-position_211)))" "(begin" -"(ser-push!_16" -" i_109)" -"(if all-quoted?_3" -"(quoted?_0" -" i-pos_0)" +"(ser-push!_215" +" i_329)" +"(if all-quoted?_332" +"(quoted?_212" +" i-pos_334)" " #f))))))" "(values" -" all-quoted?_4)))))" +" all-quoted?_333)))))" "(if(not" " #f)" -"(for-loop_133" -" all-quoted?_2" -" rest_58)" -" all-quoted?_2)))" -" all-quoted?_1)))))" -" for-loop_133)" +"(for-loop_326" +" all-quoted?_331" +" rest_330)" +" all-quoted?_331)))" +" all-quoted?_0)))))" +" for-loop_326)" " #t" -" lst_115)))))" -"(if all-quoted?_0" +" lst_325)))))" +"(if all-quoted?_324" "(let-values()" "(begin" -"(ser-reset!_0 start-pos_0)" -"(ser-push-optional-quote!_0)" -"(ser-push!_16" +"(ser-reset!_213" +" start-pos_323)" +"(ser-push-optional-quote!_217)" +"(ser-push!_215" " 'exact" -" v_140)))" +" v_0)))" "(void)))))))" -"(if(pair? v_140)" +"(if(pair? v_0)" "(let-values()" -"(let-values(((start-pos_1)" -"(next-push-position_0)))" +"(let-values(((start-pos_335)" +"(next-push-position_211)))" "(let-values((()" "(begin" -"(ser-push!_16" +"(ser-push!_215" " 'tag" " '#:cons)" "(values))))" -"(let-values(((a-pos_0)" -"(next-push-position_0)))" +"(let-values(((a-pos_336)" +"(next-push-position_211)))" "(let-values((()" "(begin" -"(ser-push!_16" -"(car v_140))" +"(ser-push!_215" +"(car v_0))" "(values))))" -"(let-values(((d-pos_0)" -"(next-push-position_0)))" +"(let-values(((d-pos_337)" +"(next-push-position_211)))" "(begin" -"(ser-push!_16(cdr v_140))" -"(if(if(quoted?_0 a-pos_0)" -"(quoted?_0 d-pos_0)" +"(ser-push!_215(cdr v_0))" +"(if(if(quoted?_212" +" a-pos_336)" +"(quoted?_212" +" d-pos_337)" " #f)" "(let-values()" "(begin" -"(ser-reset!_0" -" start-pos_1)" -"(ser-push-optional-quote!_0)" -"(ser-push!_16" +"(ser-reset!_213" +" start-pos_335)" +"(ser-push-optional-quote!_217)" +"(ser-push!_215" " 'exact" -" v_140)))" +" v_0)))" "(void)))))))))" -"(if(box? v_140)" +"(if(box? v_0)" "(let-values()" -"(let-values(((start-pos_2)" -"(next-push-position_0)))" +"(let-values(((start-pos_338)" +"(next-push-position_211)))" "(let-values((()" "(begin" -"(ser-push!_16" +"(ser-push!_215" " 'tag" " '#:box)" "(values))))" -"(let-values(((v-pos_0)" -"(next-push-position_0)))" +"(let-values(((v-pos_339)" +"(next-push-position_211)))" "(begin" -"(ser-push!_16(unbox v_140))" -"(if(quoted?_0 v-pos_0)" +"(ser-push!_215(unbox v_0))" +"(if(quoted?_212 v-pos_339)" "(let-values()" "(begin" -"(ser-reset!_0" -" start-pos_2)" -"(ser-push-optional-quote!_0)" -"(ser-push!_16" +"(ser-reset!_213" +" start-pos_338)" +"(ser-push-optional-quote!_217)" +"(ser-push!_215" " 'exact" -" v_140)))" +" v_0)))" "(void)))))))" -"(if(vector? v_140)" +"(if(vector? v_0)" "(let-values()" -"(let-values(((start-pos_3)" -"(next-push-position_0)))" +"(let-values(((start-pos_340)" +"(next-push-position_211)))" "(let-values((()" "(begin" -"(ser-push!_16" +"(ser-push!_215" " 'tag" " '#:vector)" "(values))))" "(let-values((()" "(begin" -"(ser-push!_16" +"(ser-push!_215" " 'exact" "(vector-length" -" v_140))" +" v_0))" "(values))))" -"(let-values(((all-quoted?_5)" -"(let-values(((vec_42" -" len_17)" -"(let-values(((vec_43)" -" v_140))" +"(let-values(((all-quoted?_341)" +"(let-values(((vec_342" +" len_343)" +"(let-values(((vec_344)" +" v_0))" "(begin" "(check-vector" -" vec_43)" +" vec_344)" "(values" -" vec_43" +" vec_344" "(unsafe-vector-length" -" vec_43))))))" +" vec_344))))))" "(begin" " #f" -"((letrec-values(((for-loop_38)" -"(lambda(all-quoted?_6" -" pos_29)" +"((letrec-values(((for-loop_345)" +"(lambda(all-quoted?_0" +" pos_0)" "(begin" " 'for-loop" "(if(unsafe-fx<" -" pos_29" -" len_17)" -"(let-values(((i_110)" +" pos_0" +" len_343)" +"(let-values(((i_348)" "(unsafe-vector-ref" -" vec_42" -" pos_29)))" -"(let-values(((all-quoted?_7)" -"(let-values(((all-quoted?_8)" -" all-quoted?_6))" -"(let-values(((all-quoted?_9)" +" vec_342" +" pos_0)))" +"(let-values(((all-quoted?_349)" +"(let-values(((all-quoted?_350)" +" all-quoted?_0))" +"(let-values(((all-quoted?_351)" "(let-values()" -"(let-values(((i-pos_1)" -"(next-push-position_0)))" +"(let-values(((i-pos_352)" +"(next-push-position_211)))" "(begin" -"(ser-push!_16" -" i_110)" -"(if all-quoted?_8" -"(quoted?_0" -" i-pos_1)" +"(ser-push!_215" +" i_348)" +"(if all-quoted?_350" +"(quoted?_212" +" i-pos_352)" " #f))))))" "(values" -" all-quoted?_9)))))" +" all-quoted?_351)))))" "(if(not" " #f)" -"(for-loop_38" -" all-quoted?_7" +"(for-loop_345" +" all-quoted?_349" "(unsafe-fx+" " 1" -" pos_29))" -" all-quoted?_7)))" -" all-quoted?_6)))))" -" for-loop_38)" +" pos_0))" +" all-quoted?_349)))" +" all-quoted?_0)))))" +" for-loop_345)" " #t" " 0)))))" -"(if all-quoted?_5" +"(if all-quoted?_341" "(let-values()" "(begin" -"(ser-reset!_0" -" start-pos_3)" -"(ser-push-optional-quote!_0)" -"(ser-push!_16" +"(ser-reset!_213" +" start-pos_340)" +"(ser-push-optional-quote!_217)" +"(ser-push!_215" " 'exact" -" v_140)))" +" v_0)))" "(void)))))))" -"(if(hash? v_140)" +"(if(hash? v_0)" "(let-values()" -"(let-values(((start-pos_4)" -"(next-push-position_0)))" -"(let-values(((as-set?_0)" -"(let-values(((ht_89)" -" v_140))" +"(let-values(((start-pos_353)" +"(next-push-position_211)))" +"(let-values(((as-set?_354)" +"(let-values(((ht_357)" +" v_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash-values" -" ht_89)))" -"((letrec-values(((for-loop_134)" -"(lambda(result_67" -" i_111)" +" ht_357)))" +"((letrec-values(((for-loop_358)" +"(lambda(result_0" +" i_0)" "(begin" " 'for-loop" -"(if i_111" -"(let-values(((val_41)" +"(if i_0" +"(let-values(((val_361)" "(hash-iterate-value" -" ht_89" -" i_111)))" -"(let-values(((result_68)" +" ht_357" +" i_0)))" +"(let-values(((result_362)" "(let-values()" -"(let-values(((result_69)" +"(let-values(((result_364)" "(let-values()" "(let-values()" "(eq?" -" val_41" +" val_361" " #t)))))" "(values" -" result_69)))))" +" result_364)))))" "(if(if(not" -"((lambda x_48" +"((lambda x_0" "(not" -" result_68))" -" val_41))" +" result_362))" +" val_361))" "(not" " #f)" " #f)" -"(for-loop_134" -" result_68" +"(for-loop_358" +" result_362" "(hash-iterate-next" -" ht_89" -" i_111))" -" result_68)))" -" result_67)))))" -" for-loop_134)" +" ht_357" +" i_0))" +" result_362)))" +" result_0)))))" +" for-loop_358)" " #t" "(hash-iterate-first" -" ht_89))))))" +" ht_357))))))" "(let-values((()" "(begin" -"(ser-push!_16" +"(ser-push!_215" " 'tag" -"(if as-set?_0" +"(if as-set?_354" "(if(hash-eq?" -" v_140)" +" v_0)" "(let-values()" " '#:seteq)" "(if(hash-eqv?" -" v_140)" +" v_0)" "(let-values()" " '#:seteqv)" "(let-values()" " '#:set)))" "(if(hash-eq?" -" v_140)" +" v_0)" "(let-values()" " '#:hasheq)" "(if(hash-eqv?" -" v_140)" +" v_0)" "(let-values()" " '#:hasheqv)" "(let-values()" @@ -18911,365 +19030,363 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(ser-push!_16" +"(ser-push!_215" " 'exact" "(hash-count" -" v_140))" +" v_0))" "(values))))" -"(let-values(((ks_0)" +"(let-values(((ks_355)" "(sorted-hash-keys" -" v_140)))" -"(let-values(((all-quoted?_10)" -"(let-values(((lst_117)" -" ks_0))" +" v_0)))" +"(let-values(((all-quoted?_356)" +"(let-values(((lst_366)" +" ks_355))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_117)))" -"((letrec-values(((for-loop_135)" -"(lambda(all-quoted?_11" -" lst_118)" +" lst_366)))" +"((letrec-values(((for-loop_367)" +"(lambda(all-quoted?_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_118)" -"(let-values(((k_24)" +" lst_0)" +"(let-values(((k_370)" "(unsafe-car" -" lst_118))" -"((rest_59)" +" lst_0))" +"((rest_371)" "(unsafe-cdr" -" lst_118)))" -"(let-values(((all-quoted?_12)" -"(let-values(((all-quoted?_13)" -" all-quoted?_11))" -"(let-values(((all-quoted?_14)" +" lst_0)))" +"(let-values(((all-quoted?_372)" +"(let-values(((all-quoted?_373)" +" all-quoted?_0))" +"(let-values(((all-quoted?_374)" "(let-values()" -"(let-values(((k-pos_0)" -"(next-push-position_0)))" +"(let-values(((k-pos_375)" +"(next-push-position_211)))" "(let-values((()" "(begin" -"(ser-push!_16" -" k_24)" +"(ser-push!_215" +" k_370)" "(values))))" -"(let-values(((v-pos_1)" -"(next-push-position_0)))" +"(let-values(((v-pos_376)" +"(next-push-position_211)))" "(begin" -"(if as-set?_0" +"(if as-set?_354" "(void)" "(let-values()" -"(ser-push!_16" +"(ser-push!_215" "(hash-ref" -" v_140" -" k_24))))" -"(if all-quoted?_13" -"(if(quoted?_0" -" k-pos_0)" -"(let-values(((or-part_174)" -" as-set?_0))" -"(if or-part_174" -" or-part_174" -"(quoted?_0" -" v-pos_1)))" +" v_0" +" k_370))))" +"(if all-quoted?_373" +"(if(quoted?_212" +" k-pos_375)" +"(let-values(((or-part_377)" +" as-set?_354))" +"(if or-part_377" +" or-part_377" +"(quoted?_212" +" v-pos_376)))" " #f)" " #f))))))))" "(values" -" all-quoted?_14)))))" +" all-quoted?_374)))))" "(if(not" " #f)" -"(for-loop_135" -" all-quoted?_12" -" rest_59)" -" all-quoted?_12)))" -" all-quoted?_11)))))" -" for-loop_135)" +"(for-loop_367" +" all-quoted?_372" +" rest_371)" +" all-quoted?_372)))" +" all-quoted?_0)))))" +" for-loop_367)" " #t" -" lst_117)))))" -"(if all-quoted?_10" +" lst_366)))))" +"(if all-quoted?_356" "(let-values()" "(begin" -"(ser-reset!_0" -" start-pos_4)" -"(ser-push-optional-quote!_0)" -"(ser-push!_16" +"(ser-reset!_213" +" start-pos_353)" +"(ser-push-optional-quote!_217)" +"(ser-push!_215" " 'exact" -" v_140)))" +" v_0)))" "(void)))))))))" -"(let-values(((c3_0)" +"(let-values(((c3_378)" "(prefab-struct-key" -" v_140)))" -"(if c3_0" -"((lambda(k_25)" -"(let-values(((vec_44)" +" v_0)))" +"(if c3_378" +"((lambda(k_0)" +"(let-values(((vec_380)" "(struct->vector" -" v_140)))" -"(let-values(((start-pos_5)" -"(next-push-position_0)))" +" v_0)))" +"(let-values(((start-pos_381)" +"(next-push-position_211)))" "(let-values((()" "(begin" -"(ser-push!_16" +"(ser-push!_215" " 'tag" " '#:prefab)" "(values))))" "(let-values((()" "(begin" -"(ser-push!_16" +"(ser-push!_215" " 'exact" -" k_25)" +" k_0)" "(values))))" "(let-values((()" "(begin" -"(ser-push!_16" +"(ser-push!_215" " 'exact" "(sub1" "(vector-length" -" vec_44)))" +" vec_380)))" "(values))))" -"(let-values(((all-quoted?_15)" -"(let-values(((v*_3" -" start*_3" -" stop*_4" -" step*_3)" +"(let-values(((all-quoted?_382)" +"(let-values(((v*_383" +" start*_384" +" stop*_385" +" step*_386)" "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_49)" +"(lambda(x_0)" "(vector?" -" x_49))" -"(lambda(x_50)" +" x_0))" +"(lambda(x_0)" "(unsafe-vector-length" -" x_50))" -" vec_44" +" x_0))" +" vec_380" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_42)" -"(lambda(all-quoted?_16" -" idx_3)" +"((letrec-values(((for-loop_389)" +"(lambda(all-quoted?_0" +" idx_0)" "(begin" " 'for-loop" "(if(unsafe-fx<" -" idx_3" -" stop*_4)" -"(let-values(((i_112)" +" idx_0" +" stop*_385)" +"(let-values(((i_392)" "(unsafe-vector-ref" -" v*_3" -" idx_3)))" -"(let-values(((all-quoted?_17)" -"(let-values(((all-quoted?_18)" -" all-quoted?_16))" -"(let-values(((all-quoted?_19)" +" v*_383" +" idx_0)))" +"(let-values(((all-quoted?_393)" +"(let-values(((all-quoted?_394)" +" all-quoted?_0))" +"(let-values(((all-quoted?_395)" "(let-values()" -"(let-values(((i-pos_2)" -"(next-push-position_0)))" +"(let-values(((i-pos_396)" +"(next-push-position_211)))" "(begin" -"(ser-push!_16" -" i_112)" -"(if all-quoted?_18" -"(quoted?_0" -" i-pos_2)" +"(ser-push!_215" +" i_392)" +"(if all-quoted?_394" +"(quoted?_212" +" i-pos_396)" " #f))))))" "(values" -" all-quoted?_19)))))" +" all-quoted?_395)))))" "(if(not" " #f)" -"(for-loop_42" -" all-quoted?_17" +"(for-loop_389" +" all-quoted?_393" "(unsafe-fx+" -" idx_3" +" idx_0" " 1))" -" all-quoted?_17)))" -" all-quoted?_16)))))" -" for-loop_42)" +" all-quoted?_393)))" +" all-quoted?_0)))))" +" for-loop_389)" " #t" -" start*_3)))))" -"(if all-quoted?_15" +" start*_384)))))" +"(if all-quoted?_382" "(let-values()" "(begin" -"(ser-reset!_0" -" start-pos_5)" -"(ser-push-optional-quote!_0)" -"(ser-push!_16" +"(ser-reset!_213" +" start-pos_381)" +"(ser-push-optional-quote!_217)" +"(ser-push!_215" " 'exact" -" v_140)))" +" v_0)))" "(void)))))))))" -" c3_0)" -"(if(srcloc? v_140)" +" c3_378)" +"(if(srcloc? v_0)" "(let-values()" "(if(path?" -"(srcloc-source v_140))" +"(srcloc-source v_0))" "(let-values()" "(begin" -"(ser-push-optional-quote!_0)" -"(ser-push!_16" +"(ser-push-optional-quote!_217)" +"(ser-push!_215" " 'exact" -" v_140)))" +" v_0)))" "(let-values()" "(begin" -"(ser-push!_16" +"(ser-push!_215" " 'tag" " '#:srcloc)" -"(ser-push!_16" -"(srcloc-source" -" v_140))" -"(ser-push!_16" -"(srcloc-line v_140))" -"(ser-push!_16" -"(srcloc-column" -" v_140))" -"(ser-push!_16" +"(ser-push!_215" +"(srcloc-source v_0))" +"(ser-push!_215" +"(srcloc-line v_0))" +"(ser-push!_215" +"(srcloc-column v_0))" +"(ser-push!_215" "(srcloc-position" -" v_140))" -"(ser-push!_16" +" v_0))" +"(ser-push!_215" "(srcloc-span" -" v_140))))))" +" v_0))))))" "(let-values()" "(begin" -"(ser-push-optional-quote!_0)" -"(ser-push!_16" +"(ser-push-optional-quote!_217)" +"(ser-push!_215" " 'exact" -" v_140)))))))))))))))))" -"((ser-push-optional-quote!_0)" +" v_0)))))))))))))))))" +"((ser-push-optional-quote!_217)" "(lambda()(begin 'ser-push-optional-quote!(void)))))" -"(let-values(((ser-shell!_0)" -"(lambda(v_141)" +"(let-values(((ser-shell!_218)" +"(lambda(v_0)" "(begin" " 'ser-shell!" -"(if(serialize-fill!? v_141)" +"(if(serialize-fill!? v_0)" "(let-values()" -"((serialize-ref v_141)" -" v_141" -" ser-push!_16" -" state_26))" -"(if(box? v_141)" -"(let-values()(ser-push!_16 'tag '#:box))" -"(if(vector? v_141)" +"((serialize-ref v_0)" +" v_0" +" ser-push!_215" +" state_200))" +"(if(box? v_0)" +"(let-values()(ser-push!_215 'tag '#:box))" +"(if(vector? v_0)" "(let-values()" "(begin" -"(ser-push!_16 'tag '#:vector)" -"(ser-push!_16" +"(ser-push!_215 'tag '#:vector)" +"(ser-push!_215" " 'exact" -"(vector-length v_141))))" -"(if(hash? v_141)" +"(vector-length v_0))))" +"(if(hash? v_0)" "(let-values()" -"(ser-push!_16" +"(ser-push!_215" " 'tag" -"(if(hash-eq? v_141)" +"(if(hash-eq? v_0)" "(let-values() '#:hasheq)" -"(if(hash-eqv? v_141)" +"(if(hash-eqv? v_0)" "(let-values() '#:hasheqv)" "(let-values() '#:hash)))))" "(let-values()" "(error" " 'ser-shell" " \"unknown mutable: ~e\"" -" v_141))))))))))" -"(let-values(((ser-shell-fill!_0)" -"(lambda(v_69)" +" v_0))))))))))" +"(let-values(((ser-shell-fill!_219)" +"(lambda(v_0)" "(begin" " 'ser-shell-fill!" -"(if(serialize-fill!? v_69)" +"(if(serialize-fill!? v_0)" "(let-values()" -"((serialize-fill!-ref v_69)" -" v_69" -" ser-push!_16" -" state_26))" -"(if(box? v_69)" +"((serialize-fill!-ref v_0)" +" v_0" +" ser-push!_215" +" state_200))" +"(if(box? v_0)" "(let-values()" "(begin" -"(ser-push!_16 'tag '#:set-box!)" -"(ser-push!_16(unbox v_69))))" -"(if(vector? v_69)" +"(ser-push!_215 'tag '#:set-box!)" +"(ser-push!_215(unbox v_0))))" +"(if(vector? v_0)" "(let-values()" "(begin" -"(ser-push!_16 'tag '#:set-vector!)" -"(ser-push!_16" +"(ser-push!_215 'tag '#:set-vector!)" +"(ser-push!_215" " 'exact" -"(vector-length v_69))" -"(let-values(((vec_45 len_18)" -"(let-values(((vec_46)" -" v_69))" +"(vector-length v_0))" +"(let-values(((vec_399 len_400)" +"(let-values(((vec_401)" +" v_0))" "(begin" -"(check-vector vec_46)" +"(check-vector vec_401)" "(values" -" vec_46" +" vec_401" "(unsafe-vector-length" -" vec_46))))))" +" vec_401))))))" "(begin" " #f" -"((letrec-values(((for-loop_136)" -"(lambda(pos_30)" +"((letrec-values(((for-loop_402)" +"(lambda(pos_0)" "(begin" " 'for-loop" "(if(unsafe-fx<" -" pos_30" -" len_18)" -"(let-values(((v_142)" +" pos_0" +" len_400)" +"(let-values(((v_404)" "(unsafe-vector-ref" -" vec_45" -" pos_30)))" +" vec_399" +" pos_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(ser-push!_16" -" v_142))" +"(ser-push!_215" +" v_404))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_136" +"(for-loop_402" "(unsafe-fx+" " 1" -" pos_30))" +" pos_0))" "(values))))" "(values))))))" -" for-loop_136)" +" for-loop_402)" " 0)))" "(void)))" -"(if(hash? v_69)" +"(if(hash? v_0)" "(let-values()" "(let-values((()" "(begin" -"(ser-push!_16" +"(ser-push!_215" " 'tag" " '#:set-hash!)" "(values))))" "(let-values((()" "(begin" -"(ser-push!_16" +"(ser-push!_215" " 'exact" -"(hash-count v_69))" +"(hash-count v_0))" "(values))))" -"(let-values(((ks_1)" +"(let-values(((ks_405)" "(sorted-hash-keys" -" v_69)))" +" v_0)))" "(begin" -"(let-values(((lst_119) ks_1))" +"(let-values(((lst_406) ks_405))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_119)))" -"((letrec-values(((for-loop_137)" -"(lambda(lst_120)" +"(check-list lst_406)))" +"((letrec-values(((for-loop_407)" +"(lambda(lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_120)" -"(let-values(((k_26)" +" lst_0)" +"(let-values(((k_409)" "(unsafe-car" -" lst_120))" -"((rest_60)" +" lst_0))" +"((rest_410)" "(unsafe-cdr" -" lst_120)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -19277,468 +19394,475 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(ser-push!_16" -" k_26)" -"(ser-push!_16" +"(ser-push!_215" +" k_409)" +"(ser-push!_215" "(hash-ref" -" v_69" -" k_26))))" +" v_0" +" k_409))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_137" -" rest_60)" +"(for-loop_407" +" rest_410)" "(values))))" "(values))))))" -" for-loop_137)" -" lst_119)))" +" for-loop_407)" +" lst_406)))" "(void))))))" "(let-values()" "(error" " 'ser-shell-fill" " \"unknown mutable: ~e\"" -" v_69))))))))))" -"(let-values(((rev-mutables_0)" -"(let-values(((ht_90) mutables_0))" +" v_0))))))))))" +"(let-values(((rev-mutables_220)" +"(let-values(((ht_411) mutables_201))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_90)))" -"((letrec-values(((for-loop_138)" -"(lambda(table_127 i_113)" +"(let-values()(check-in-hash ht_411)))" +"((letrec-values(((for-loop_412)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_113" -"(let-values(((k_27" -" v_143)" +"(if i_0" +"(let-values(((k_415" +" v_416)" "(hash-iterate-key+value" -" ht_90" -" i_113)))" -"(let-values(((table_60)" -"(let-values(((table_61)" -" table_127))" -"(let-values(((table_128)" +" ht_411" +" i_0)))" +"(let-values(((table_417)" +"(let-values(((table_418)" +" table_0))" +"(let-values(((table_419)" "(let-values()" -"(let-values(((key_48" -" val_42)" +"(let-values(((key_420" +" val_421)" "(let-values()" "(values" -" v_143" -" k_27))))" +" v_416" +" k_415))))" "(hash-set" -" table_61" -" key_48" -" val_42)))))" +" table_418" +" key_420" +" val_421)))))" "(values" -" table_128)))))" +" table_419)))))" "(if(not #f)" -"(for-loop_138" -" table_60" +"(for-loop_412" +" table_417" "(hash-iterate-next" -" ht_90" -" i_113))" -" table_60)))" -" table_127)))))" -" for-loop_138)" +" ht_411" +" i_0))" +" table_417)))" +" table_0)))))" +" for-loop_412)" " '#hasheqv()" -"(hash-iterate-first ht_90))))))" -"(let-values(((mutable-shell-bindings_0)" +"(hash-iterate-first ht_411))))))" +"(let-values(((mutable-shell-bindings_221)" "(begin" "(begin" -"(let-values(((start_21) 0)" -"((end_13)" -"(hash-count mutables_0))" -"((inc_7) 1))" +"(let-values(((start_422) 0)" +"((end_423)" +"(hash-count mutables_201))" +"((inc_424) 1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-range start_21 end_13 inc_7)))" -"((letrec-values(((for-loop_139)" -"(lambda(pos_31)" +"(check-range" +" start_422" +" end_423" +" inc_424)))" +"((letrec-values(((for-loop_425)" +"(lambda(pos_0)" "(begin" " 'for-loop" "(if(<" -" pos_31" -" end_13)" -"(let-values(((i_59)" -" pos_31))" +" pos_0" +" end_423)" +"(let-values(((i_427)" +" pos_0))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(ser-shell!_0" +"(ser-shell!_218" "(hash-ref" -" rev-mutables_0" -" i_59)))" +" rev-mutables_220" +" i_427)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_139" +"(for-loop_425" "(+" -" pos_31" -" inc_7))" +" pos_0" +" inc_424))" "(values))))" "(values))))))" -" for-loop_139)" -" start_21)))" +" for-loop_425)" +" start_422)))" "(void))" -"(reap-stream!_0))))" -"(let-values(((rev-shares_0)" -"(let-values(((ht_91) shares_0))" +"(reap-stream!_214))))" +"(let-values(((rev-shares_222)" +"(let-values(((ht_428) shares_203))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_91)))" -"((letrec-values(((for-loop_140)" -"(lambda(table_129 i_60)" +"(check-in-hash-keys ht_428)))" +"((letrec-values(((for-loop_429)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_60" -"(let-values(((obj_1)" +"(if i_0" +"(let-values(((obj_432)" "(hash-iterate-key" -" ht_91" -" i_60)))" -"(let-values(((table_130)" -"(let-values(((table_131)" -" table_129))" -"(let-values(((table_132)" +" ht_428" +" i_0)))" +"(let-values(((table_433)" +"(let-values(((table_434)" +" table_0))" +"(let-values(((table_435)" "(let-values()" -"(let-values(((key_49" -" val_43)" +"(let-values(((key_436" +" val_437)" "(let-values()" "(values" "(hash-ref" -" share-step-positions_0" +" share-step-positions_208" "(hash-ref" -" objs_0" -" obj_1))" -" obj_1))))" +" objs_202" +" obj_432))" +" obj_432))))" "(hash-set" -" table_131" -" key_49" -" val_43)))))" +" table_434" +" key_436" +" val_437)))))" "(values" -" table_132)))))" +" table_435)))))" "(if(not #f)" -"(for-loop_140" -" table_130" +"(for-loop_429" +" table_433" "(hash-iterate-next" -" ht_91" -" i_60))" -" table_130)))" -" table_129)))))" -" for-loop_140)" +" ht_428" +" i_0))" +" table_433)))" +" table_0)))))" +" for-loop_429)" " '#hasheqv()" -"(hash-iterate-first ht_91))))))" -"(let-values(((shared-bindings_0)" +"(hash-iterate-first ht_428))))))" +"(let-values(((shared-bindings_223)" "(begin" "(begin" -"(let-values(((start_22) num-mutables_0)" -"((end_14)" +"(let-values(((start_438)" +" num-mutables_207)" +"((end_439)" "(+" -" num-mutables_0" -"(hash-count shares_0)))" -"((inc_8) 1))" +" num-mutables_207" +"(hash-count shares_203)))" +"((inc_440) 1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-range" -" start_22" -" end_14" -" inc_8)))" -"((letrec-values(((for-loop_141)" -"(lambda(pos_32)" +" start_438" +" end_439" +" inc_440)))" +"((letrec-values(((for-loop_441)" +"(lambda(pos_0)" "(begin" " 'for-loop" "(if(<" -" pos_32" -" end_14)" -"(let-values(((i_114)" -" pos_32))" +" pos_0" +" end_439)" +"(let-values(((i_443)" +" pos_0))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(ser-push-encoded!_0" +"(ser-push-encoded!_216" "(hash-ref" -" rev-shares_0" -" i_114)))" +" rev-shares_222" +" i_443)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_141" +"(for-loop_441" "(+" -" pos_32" -" inc_8))" +" pos_0" +" inc_440))" "(values))))" "(values))))))" -" for-loop_141)" -" start_22)))" +" for-loop_441)" +" start_438)))" "(void))" -"(reap-stream!_0))))" -"(let-values(((mutable-fills_0)" +"(reap-stream!_214))))" +"(let-values(((mutable-fills_224)" "(begin" "(begin" -"(let-values(((start_23) 0)" -"((end_15)" -"(hash-count mutables_0))" -"((inc_9) 1))" +"(let-values(((start_444) 0)" +"((end_445)" +"(hash-count mutables_201))" +"((inc_446) 1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-range" -" start_23" -" end_15" -" inc_9)))" -"((letrec-values(((for-loop_142)" -"(lambda(pos_33)" +" start_444" +" end_445" +" inc_446)))" +"((letrec-values(((for-loop_447)" +"(lambda(pos_0)" "(begin" " 'for-loop" "(if(<" -" pos_33" -" end_15)" -"(let-values(((i_115)" -" pos_33))" +" pos_0" +" end_445)" +"(let-values(((i_449)" +" pos_0))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(ser-shell-fill!_0" +"(ser-shell-fill!_219" "(hash-ref" -" rev-mutables_0" -" i_115)))" +" rev-mutables_220" +" i_449)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_142" +"(for-loop_447" "(+" -" pos_33" -" inc_9))" +" pos_0" +" inc_446))" "(values))))" "(values))))))" -" for-loop_142)" -" start_23)))" +" for-loop_447)" +" start_444)))" "(void))" -"(reap-stream!_0))))" +"(reap-stream!_214))))" "(list" " 'deserialize" " mpi-vector-id" -"(if syntax-support?_0 inspector-id #f)" -"(if syntax-support?_0 bulk-binding-registry-id #f)" -"(list 'quote(hash-count mutables_0))" -"(list 'quote mutable-shell-bindings_0)" -"(list 'quote(hash-count shares_0))" -"(list 'quote shared-bindings_0)" -"(list 'quote mutable-fills_0)" +"(if syntax-support?_198 inspector-id #f)" +"(if syntax-support?_198 bulk-binding-registry-id #f)" +"(list 'quote(hash-count mutables_201))" +"(list 'quote mutable-shell-bindings_221)" +"(list 'quote(hash-count shares_203))" +"(list 'quote shared-bindings_223)" +"(list 'quote mutable-fills_224)" "(list" " 'quote" "(begin" -"(ser-push!_16 v_134)" -"(reap-stream!_0))))))))))))))))))))))))))))))))))))" +"(ser-push!_215 v_196)" +"(reap-stream!_214))))))))))))))))))))))))))))))))))))" "(define-values" "(sorted-hash-keys)" -"(lambda(ht_92)" +"(lambda(ht_0)" "(begin" -"(let-values(((ks_2)(hash-keys ht_92)))" -"(if(null? ks_2)" -"(let-values() ks_2)" -"(if(null?(cdr ks_2))" -"(let-values() ks_2)" -"(if(andmap2 symbol? ks_2)" +"(let-values(((ks_468)(hash-keys ht_0)))" +"(if(null? ks_468)" +"(let-values() ks_468)" +"(if(null?(cdr ks_468))" +"(let-values() ks_468)" +"(if(andmap2 symbol? ks_468)" "(let-values()" -"(let-values(((ks14_0) ks_2)((symbolsyntax . 5)" "(#:syntax+props . 6)" "(#:representative-scope . 23))" -" tmp_20" +" tmp_607" "(lambda() 0))" " 0)))" -"(if(unsafe-fx< index_0 14)" -"(if(unsafe-fx< index_0 6)" -"(if(unsafe-fx< index_0 2)" -"(if(unsafe-fx< index_0 1)" -"(let-values()(values(vector*-ref vec_50 pos_51)(add1 pos_51)))" -"(let-values()(values(vector*-ref shared_2(vector*-ref vec_50(add1 pos_51)))(+ pos_51 2))))" -"(if(unsafe-fx< index_0 3)" -"(let-values()(values inspector_8(add1 pos_51)))" -"(if(unsafe-fx< index_0 4)" -"(let-values()(values bulk-binding-registry_7(add1 pos_51)))" -"(if(unsafe-fx< index_0 5)" +"(if(unsafe-fx< index_608 14)" +"(if(unsafe-fx< index_608 6)" +"(if(unsafe-fx< index_608 2)" +"(if(unsafe-fx< index_608 1)" +"(let-values()(values(vector*-ref vec_0 pos_0)(add1 pos_0)))" +"(let-values()(values(vector*-ref shared_0(vector*-ref vec_0(add1 pos_0)))(+ pos_0 2))))" +"(if(unsafe-fx< index_608 3)" +"(let-values()(values inspector_0(add1 pos_0)))" +"(if(unsafe-fx< index_608 4)" +"(let-values()(values bulk-binding-registry_0(add1 pos_0)))" +"(if(unsafe-fx< index_608 5)" "(let-values()" -"(let-values(((content_8 next-pos_2)" +"(let-values(((content_609 next-pos_610)" "(decode" -" vec_50" -"(add1 pos_51)" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((context_2 next-pos_3)" -"(let-values(((i_118)(vector*-ref vec_50 next-pos_2)))" -"(if(exact-integer? i_118)" -"(values(vector*-ref shared_2 i_118)(add1 next-pos_2))" +" vec_0" +"(add1 pos_0)" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((context_611 next-pos_612)" +"(let-values(((i_613)(vector*-ref vec_0 next-pos_610)))" +"(if(exact-integer? i_613)" +"(values(vector*-ref shared_0 i_613)(add1 next-pos_610))" "(decode" -" vec_50" -" next-pos_2" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))))" -"(let-values(((srcloc_3 next-pos_4)" -"(let-values(((i_119)(vector*-ref vec_50 next-pos_3)))" -"(if(exact-integer? i_119)" -"(values(vector*-ref shared_2 i_119)(add1 next-pos_3))" +" vec_0" +" next-pos_610" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))))" +"(let-values(((srcloc_614 next-pos_615)" +"(let-values(((i_616)(vector*-ref vec_0 next-pos_612)))" +"(if(exact-integer? i_616)" +"(values(vector*-ref shared_0 i_616)(add1 next-pos_612))" "(decode" -" vec_50" -" next-pos_3" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))))" +" vec_0" +" next-pos_612" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))))" "(values" -"(deserialize-syntax content_8 context_2 srcloc_3 #f #f inspector_8)" -" next-pos_4)))))" +"(deserialize-syntax content_609 context_611 srcloc_614 #f #f inspector_0)" +" next-pos_615)))))" "(let-values()" -"(let-values(((content_9 next-pos_5)" +"(let-values(((content_617 next-pos_618)" "(decode" -" vec_50" -"(add1 pos_51)" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((context_3 next-pos_6)" -"(let-values(((i_120)(vector*-ref vec_50 next-pos_5)))" -"(if(exact-integer? i_120)" -"(values(vector*-ref shared_2 i_120)(add1 next-pos_5))" +" vec_0" +"(add1 pos_0)" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((context_619 next-pos_620)" +"(let-values(((i_621)(vector*-ref vec_0 next-pos_618)))" +"(if(exact-integer? i_621)" +"(values(vector*-ref shared_0 i_621)(add1 next-pos_618))" "(decode" -" vec_50" -" next-pos_5" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))))" -"(let-values(((srcloc_4 next-pos_7)" -"(let-values(((i_121)(vector*-ref vec_50 next-pos_6)))" -"(if(exact-integer? i_121)" -"(values(vector*-ref shared_2 i_121)(add1 next-pos_6))" +" vec_0" +" next-pos_618" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))))" +"(let-values(((srcloc_622 next-pos_623)" +"(let-values(((i_624)(vector*-ref vec_0 next-pos_620)))" +"(if(exact-integer? i_624)" +"(values(vector*-ref shared_0 i_624)(add1 next-pos_620))" "(decode" -" vec_50" -" next-pos_6" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))))" +" vec_0" +" next-pos_620" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))))" "(values" -"(deserialize-datum->syntax content_9 context_3 srcloc_4 inspector_8)" -" next-pos_7)))))))))" -"(if(unsafe-fx< index_0 9)" -"(if(unsafe-fx< index_0 7)" +"(deserialize-datum->syntax content_617 context_619 srcloc_622 inspector_0)" +" next-pos_623)))))))))" +"(if(unsafe-fx< index_608 9)" +"(if(unsafe-fx< index_608 7)" "(let-values()" -"(let-values(((content_10 next-pos_8)" -"(decode vec_50(add1 pos_51) mpis_9 inspector_8 bulk-binding-registry_7 shared_2)))" -"(let-values(((context_4 next-pos_9)" -"(let-values(((i_122)(vector*-ref vec_50 next-pos_8)))" -"(if(exact-integer? i_122)" -"(values(vector*-ref shared_2 i_122)(add1 next-pos_8))" +"(let-values(((content_625 next-pos_626)" +"(decode vec_0(add1 pos_0) mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(let-values(((context_627 next-pos_628)" +"(let-values(((i_629)(vector*-ref vec_0 next-pos_626)))" +"(if(exact-integer? i_629)" +"(values(vector*-ref shared_0 i_629)(add1 next-pos_626))" "(decode" -" vec_50" -" next-pos_8" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))))" -"(let-values(((srcloc_5 next-pos_10)" -"(let-values(((i_123)(vector*-ref vec_50 next-pos_9)))" -"(if(exact-integer? i_123)" -"(values(vector*-ref shared_2 i_123)(add1 next-pos_9))" +" vec_0" +" next-pos_626" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))))" +"(let-values(((srcloc_630 next-pos_631)" +"(let-values(((i_632)(vector*-ref vec_0 next-pos_628)))" +"(if(exact-integer? i_632)" +"(values(vector*-ref shared_0 i_632)(add1 next-pos_628))" "(decode" -" vec_50" -" next-pos_9" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))))" -"(let-values(((props_1 next-pos_11)" +" vec_0" +" next-pos_628" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))))" +"(let-values(((props_633 next-pos_634)" "(decode" -" vec_50" -" next-pos_10" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((tamper_2 next-pos_12)" +" vec_0" +" next-pos_631" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((tamper_635 next-pos_636)" "(decode" -" vec_50" -" next-pos_11" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" +" vec_0" +" next-pos_634" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" "(values" -"(deserialize-syntax content_10 context_4 srcloc_5 props_1 tamper_2 inspector_8)" -" next-pos_12)))))))" -"(if(unsafe-fx< index_0 8)" +"(deserialize-syntax" +" content_625" +" context_627" +" srcloc_630" +" props_633" +" tamper_635" +" inspector_0)" +" next-pos_636)))))))" +"(if(unsafe-fx< index_608 8)" "(let-values()" -"(let-values(((source_0 next-pos_13)" +"(let-values(((source_637 next-pos_638)" +"(decode vec_0(add1 pos_0) mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(let-values(((line_639 next-pos_640)" "(decode" -" vec_50" -"(add1 pos_51)" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((line_0 next-pos_14)" +" vec_0" +" next-pos_638" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((column_641 next-pos_642)" "(decode" -" vec_50" -" next-pos_13" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((column_0 next-pos_15)" +" vec_0" +" next-pos_640" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((position_643 next-pos_644)" "(decode" -" vec_50" -" next-pos_14" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((position_0 next-pos_16)" +" vec_0" +" next-pos_642" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((span_645 next-pos_646)" "(decode" -" vec_50" -" next-pos_15" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((span_0 next-pos_17)" -"(decode" -" vec_50" -" next-pos_16" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(values(srcloc source_0 line_0 column_0 position_0 span_0) next-pos_17)))))))" -"(let-values()(values(vector*-ref vec_50(add1 pos_51))(+ pos_51 2)))))" -"(if(unsafe-fx< index_0 11)" -"(if(unsafe-fx< index_0 10)" -"(let-values()(values(vector*-ref mpis_9(vector*-ref vec_50(add1 pos_51)))(+ pos_51 2)))" +" vec_0" +" next-pos_644" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(values" +"(srcloc source_637 line_639 column_641 position_643 span_645)" +" next-pos_646)))))))" +"(let-values()(values(vector*-ref vec_0(add1 pos_0))(+ pos_0 2)))))" +"(if(unsafe-fx< index_608 11)" +"(if(unsafe-fx< index_608 10)" +"(let-values()(values(vector*-ref mpis_0(vector*-ref vec_0(add1 pos_0)))(+ pos_0 2)))" "(let-values()" -"(let-values(((v_145 next-pos_18)" -"(decode" -" vec_50" -"(add1 pos_51)" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(values(box-immutable v_145) next-pos_18))))" -"(if(unsafe-fx< index_0 12)" +"(let-values(((v_647 next-pos_648)" +"(decode vec_0(add1 pos_0) mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(values(box-immutable v_647) next-pos_648))))" +"(if(unsafe-fx< index_608 12)" "(let-values()" -"(let-values(((a_42 next-pos_19)" +"(let-values(((a_649 next-pos_650)" +"(decode vec_0(add1 pos_0) mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(let-values(((d_651 next-pos_652)" "(decode" -" vec_50" -"(add1 pos_51)" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((d_24 next-pos_20)" -"(decode" -" vec_50" -" next-pos_19" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(values(cons a_42 d_24) next-pos_20))))" -"(if(unsafe-fx< index_0 13)" +" vec_0" +" next-pos_650" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(values(cons a_649 d_651) next-pos_652))))" +"(if(unsafe-fx< index_608 13)" "(let-values()" -"(let-values(((len_20)(vector*-ref vec_50(add1 pos_51))))" -"(let-values(((r_26)(make-vector len_20)))" -"(let-values(((next-pos_21)" -"(let-values(((start_27) 0)((end_19) len_20)((inc_13) 1))" +"(let-values(((len_653)(vector*-ref vec_0(add1 pos_0))))" +"(let-values(((r_654)(make-vector len_653)))" +"(let-values(((next-pos_655)" +"(let-values(((start_656) 0)((end_657) len_653)((inc_658) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_27 end_19 inc_13)))" -"((letrec-values(((for-loop_146)" -"(lambda(pos_52 pos_53)" +"(let-values()(check-range start_656 end_657 inc_658)))" +"((letrec-values(((for-loop_659)" +"(lambda(pos_1 pos_2)" "(begin" " 'for-loop" -"(if(< pos_53 end_19)" -"(let-values(((i_124) pos_53))" -"(let-values(((pos_54)" -"(let-values(((pos_55) pos_52))" -"(let-values(((pos_56)" +"(if(< pos_2 end_657)" +"(let-values(((i_662) pos_2))" +"(let-values(((pos_663)" +"(let-values(((pos_664) pos_1))" +"(let-values(((pos_665)" "(let-values()" -"(let-values(((v_146" -" next-pos_22)" -"(let-values(((v_147" -" next-pos_23)" +"(let-values(((v_666" +" next-pos_667)" +"(let-values(((v_668" +" next-pos_669)" "(decode" -" vec_50" -" pos_55" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" +" vec_0" +" pos_664" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" "(values" -" v_147" -" next-pos_23))))" +" v_668" +" next-pos_669))))" "(begin" "(vector-set!" -" r_26" -" i_124" -" v_146)" -" next-pos_22)))))" -"(values pos_56)))))" +" r_654" +" i_662" +" v_666)" +" next-pos_667)))))" +"(values pos_665)))))" "(if(not #f)" -"(for-loop_146 pos_54(+ pos_53 inc_13))" -" pos_54)))" -" pos_52)))))" -" for-loop_146)" -"(+ pos_51 2)" -" start_27)))))" +"(for-loop_659 pos_663(+ pos_2 inc_658))" +" pos_663)))" +" pos_1)))))" +" for-loop_659)" +"(+ pos_0 2)" +" start_656)))))" "(values" -"(if(eq?(vector*-ref vec_50 pos_51) '#:list)" -"(vector->list r_26)" -"(vector->immutable-vector r_26))" -" next-pos_21)))))" +"(if(eq?(vector*-ref vec_0 pos_0) '#:list)" +"(vector->list r_654)" +"(vector->immutable-vector r_654))" +" next-pos_655)))))" "(let-values()" -"(let-values(((ht_55)" -"(let-values(((tmp_21)(vector*-ref vec_50 pos_51)))" -"(if(equal? tmp_21 '#:hash)" +"(let-values(((ht_670)" +"(let-values(((tmp_672)(vector*-ref vec_0 pos_0)))" +"(if(equal? tmp_672 '#:hash)" "(let-values()(hash))" -"(if(equal? tmp_21 '#:hasheq)" +"(if(equal? tmp_672 '#:hasheq)" "(let-values()(hasheq))" -"(if(equal? tmp_21 '#:hasheqv)" +"(if(equal? tmp_672 '#:hasheqv)" "(let-values()(hasheqv))" "(let-values()(void))))))))" -"(let-values(((len_21)(vector*-ref vec_50(add1 pos_51))))" -"(let-values(((start_28) 0)((end_20) len_21)((inc_14) 1))" +"(let-values(((len_671)(vector*-ref vec_0(add1 pos_0))))" +"(let-values(((start_673) 0)((end_674) len_671)((inc_675) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_28 end_20 inc_14)))" -"((letrec-values(((for-loop_147)" -"(lambda(ht_93 pos_57 pos_58)" +"(let-values()(check-range start_673 end_674 inc_675)))" +"((letrec-values(((for-loop_676)" +"(lambda(ht_0 pos_1 pos_2)" "(begin" " 'for-loop" -"(if(< pos_58 end_20)" +"(if(< pos_2 end_674)" "(let-values()" -"(let-values(((ht_94 pos_59)" -"(let-values(((ht_95) ht_93)" -"((pos_60) pos_57))" -"(let-values(((ht_96 pos_61)" +"(let-values(((ht_681 pos_682)" +"(let-values(((ht_683) ht_0)" +"((pos_684) pos_1))" +"(let-values(((ht_685 pos_686)" "(let-values()" -"(let-values(((k_28" -" next-pos_24)" +"(let-values(((k_687" +" next-pos_688)" "(decode" -" vec_50" -" pos_60" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((v_148" -" next-pos_25)" +" vec_0" +" pos_684" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((v_689" +" next-pos_690)" "(decode" -" vec_50" -" next-pos_24" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" +" vec_0" +" next-pos_688" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" "(values" "(hash-set" -" ht_95" -" k_28" -" v_148)" -" next-pos_25))))))" -"(values ht_96 pos_61)))))" +" ht_683" +" k_687" +" v_689)" +" next-pos_690))))))" +"(values ht_685 pos_686)))))" "(if(not #f)" -"(for-loop_147 ht_94 pos_59(+ pos_58 inc_14))" -"(values ht_94 pos_59))))" -"(values ht_93 pos_57))))))" -" for-loop_147)" -" ht_55" -"(+ pos_51 2)" -" start_28)))))))))))" -"(if(unsafe-fx< index_0 21)" -"(if(unsafe-fx< index_0 17)" -"(if(unsafe-fx< index_0 15)" +"(for-loop_676 ht_681 pos_682(+ pos_2 inc_675))" +"(values ht_681 pos_682))))" +"(values ht_0 pos_1))))))" +" for-loop_676)" +" ht_670" +"(+ pos_0 2)" +" start_673)))))))))))" +"(if(unsafe-fx< index_608 21)" +"(if(unsafe-fx< index_608 17)" +"(if(unsafe-fx< index_608 15)" "(let-values()" -"(let-values(((s_192)" -"(let-values(((tmp_22)(vector*-ref vec_50 pos_51)))" -"(if(equal? tmp_22 '#:set)" +"(let-values(((s_691)" +"(let-values(((tmp_693)(vector*-ref vec_0 pos_0)))" +"(if(equal? tmp_693 '#:set)" "(let-values()(set))" -"(if(equal? tmp_22 '#:seteq)" +"(if(equal? tmp_693 '#:seteq)" "(let-values()(seteq))" -"(if(equal? tmp_22 '#:seteqv)" +"(if(equal? tmp_693 '#:seteqv)" "(let-values()(seteqv))" "(let-values()(void))))))))" -"(let-values(((len_22)(vector*-ref vec_50(add1 pos_51))))" -"(let-values(((start_29) 0)((end_21) len_22)((inc_15) 1))" +"(let-values(((len_692)(vector*-ref vec_0(add1 pos_0))))" +"(let-values(((start_694) 0)((end_695) len_692)((inc_696) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_29 end_21 inc_15)))" -"((letrec-values(((for-loop_148)" -"(lambda(s_193 pos_62 pos_63)" +"(let-values()(check-range start_694 end_695 inc_696)))" +"((letrec-values(((for-loop_697)" +"(lambda(s_0 pos_1 pos_2)" "(begin" " 'for-loop" -"(if(< pos_63 end_21)" +"(if(< pos_2 end_695)" "(let-values()" -"(let-values(((s_194 pos_64)" -"(let-values(((s_195) s_193)((pos_65) pos_62))" -"(let-values(((s_196 pos_66)" +"(let-values(((s_702 pos_703)" +"(let-values(((s_704) s_0)((pos_705) pos_1))" +"(let-values(((s_706 pos_707)" "(let-values()" -"(let-values(((k_29 next-pos_26)" +"(let-values(((k_708" +" next-pos_709)" "(decode" -" vec_50" -" pos_65" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" +" vec_0" +" pos_705" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" "(values" -"(set-add s_195 k_29)" -" next-pos_26)))))" -"(values s_196 pos_66)))))" +"(set-add s_704 k_708)" +" next-pos_709)))))" +"(values s_706 pos_707)))))" "(if(not #f)" -"(for-loop_148 s_194 pos_64(+ pos_63 inc_15))" -"(values s_194 pos_64))))" -"(values s_193 pos_62))))))" -" for-loop_148)" -" s_192" -"(+ pos_51 2)" -" start_29))))))" -"(if(unsafe-fx< index_0 16)" +"(for-loop_697 s_702 pos_703(+ pos_2 inc_696))" +"(values s_702 pos_703))))" +"(values s_0 pos_1))))))" +" for-loop_697)" +" s_691" +"(+ pos_0 2)" +" start_694))))))" +"(if(unsafe-fx< index_608 16)" "(let-values()" -"(let-values(((key_50 next-pos_27)" -"(let-values(((k_30 next-pos_28)" +"(let-values(((key_710 next-pos_711)" +"(let-values(((k_715 next-pos_716)" "(decode" -" vec_50" -"(add1 pos_51)" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(values k_30 next-pos_28))))" -"(let-values(((len_23)(vector*-ref vec_50 next-pos_27)))" -"(let-values(((r_27 done-pos_1)" -"(let-values(((start_30) 0)((end_22) len_23)((inc_16) 1))" +" vec_0" +"(add1 pos_0)" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(values k_715 next-pos_716))))" +"(let-values(((len_712)(vector*-ref vec_0 next-pos_711)))" +"(let-values(((r_713 done-pos_714)" +"(let-values(((start_717) 0)((end_718) len_712)((inc_719) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_30 end_22 inc_16)))" -"((letrec-values(((for-loop_149)" -"(lambda(r_28 pos_67 pos_68)" +"(let-values()(check-range start_717 end_718 inc_719)))" +"((letrec-values(((for-loop_720)" +"(lambda(r_0 pos_1 pos_2)" "(begin" " 'for-loop" -"(if(< pos_68 end_22)" +"(if(< pos_2 end_718)" "(let-values()" -"(let-values(((r_29 pos_69)" -"(let-values(((r_30) r_28)" -"((pos_70) pos_67))" -"(let-values(((r_31 pos_71)" +"(let-values(((r_725 pos_726)" +"(let-values(((r_727) r_0)" +"((pos_728) pos_1))" +"(let-values(((r_729 pos_730)" "(let-values()" -"(let-values(((v_149" -" next-pos_29)" +"(let-values(((v_731" +" next-pos_732)" "(decode" -" vec_50" -" pos_70" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" +" vec_0" +" pos_728" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" "(values" "(cons" -" v_149" -" r_30)" -" next-pos_29)))))" -"(values r_31 pos_71)))))" +" v_731" +" r_727)" +" next-pos_732)))))" +"(values r_729 pos_730)))))" "(if(not #f)" -"(for-loop_149 r_29 pos_69(+ pos_68 inc_16))" -"(values r_29 pos_69))))" -"(values r_28 pos_67))))))" -" for-loop_149)" +"(for-loop_720" +" r_725" +" pos_726" +"(+ pos_2 inc_719))" +"(values r_725 pos_726))))" +"(values r_0 pos_1))))))" +" for-loop_720)" " null" -"(add1 next-pos_27)" -" start_30)))))" -"(values(apply make-prefab-struct key_50(reverse$1 r_27)) done-pos_1)))))" -"(let-values()(values(deserialize-scope)(add1 pos_51)))))" -"(if(unsafe-fx< index_0 18)" +"(add1 next-pos_711)" +" start_717)))))" +"(values(apply make-prefab-struct key_710(reverse$1 r_713)) done-pos_714)))))" +"(let-values()(values(deserialize-scope)(add1 pos_0)))))" +"(if(unsafe-fx< index_608 18)" "(let-values()" -"(let-values(((kind_6 next-pos_30)" -"(decode vec_50(add1 pos_51) mpis_9 inspector_8 bulk-binding-registry_7 shared_2)))" -"(values(deserialize-scope kind_6) next-pos_30)))" -"(if(unsafe-fx< index_0 19)" +"(let-values(((kind_733 next-pos_734)" +"(decode vec_0(add1 pos_0) mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(values(deserialize-scope kind_733) next-pos_734)))" +"(if(unsafe-fx< index_608 19)" "(let-values()" -"(let-values(((id_23 next-pos_31)" -"(decode" -" vec_50" -"(add1 pos_51)" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(values(make-interned-scope id_23) next-pos_31)))" -"(if(unsafe-fx< index_0 20)" +"(let-values(((id_735 next-pos_736)" +"(decode vec_0(add1 pos_0) mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(values(make-interned-scope id_735) next-pos_736)))" +"(if(unsafe-fx< index_608 20)" "(let-values()" -"(let-values(((name_37 next-pos_32)" +"(let-values(((name_737 next-pos_738)" "(decode" -" vec_50" -"(add1 pos_51)" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((scopes_21 next-pos_33)" +" vec_0" +"(add1 pos_0)" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((scopes_739 next-pos_740)" "(decode" -" vec_50" -" next-pos_32" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(values(deserialize-multi-scope name_37 scopes_21) next-pos_33))))" +" vec_0" +" next-pos_738" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(values(deserialize-multi-scope name_737 scopes_739) next-pos_740))))" "(let-values()" -"(let-values(((phase_49 next-pos_34)" +"(let-values(((phase_741 next-pos_742)" "(decode" -" vec_50" -"(add1 pos_51)" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((multi-scope_2 next-pos_35)" +" vec_0" +"(add1 pos_0)" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((multi-scope_743 next-pos_744)" "(decode" -" vec_50" -" next-pos_34" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(values(deserialize-shifted-multi-scope phase_49 multi-scope_2) next-pos_35))))))))" -"(if(unsafe-fx< index_0 24)" -"(if(unsafe-fx< index_0 22)" +" vec_0" +" next-pos_742" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(values(deserialize-shifted-multi-scope phase_741 multi-scope_743) next-pos_744))))))))" +"(if(unsafe-fx< index_608 24)" +"(if(unsafe-fx< index_608 22)" "(let-values()" -"(let-values(((syms_13 next-pos_36)" -"(decode vec_50(add1 pos_51) mpis_9 inspector_8 bulk-binding-registry_7 shared_2)))" -"(let-values(((bulk-bindings_4 next-pos_37)" -"(decode vec_50 next-pos_36 mpis_9 inspector_8 bulk-binding-registry_7 shared_2)))" -"(values(deserialize-table-with-bulk-bindings syms_13 bulk-bindings_4) next-pos_37))))" -"(if(unsafe-fx< index_0 23)" +"(let-values(((syms_745 next-pos_746)" +"(decode vec_0(add1 pos_0) mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(let-values(((bulk-bindings_747 next-pos_748)" +"(decode vec_0 next-pos_746 mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(values(deserialize-table-with-bulk-bindings syms_745 bulk-bindings_747) next-pos_748))))" +"(if(unsafe-fx< index_608 23)" "(let-values()" -"(let-values(((scopes_22 next-pos_38)" +"(let-values(((scopes_749 next-pos_750)" +"(decode vec_0(add1 pos_0) mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(let-values(((bulk_751 next-pos_752)" "(decode" -" vec_50" -"(add1 pos_51)" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((bulk_5 next-pos_39)" -"(decode" -" vec_50" -" next-pos_38" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(values(deserialize-bulk-binding-at scopes_22 bulk_5) next-pos_39))))" +" vec_0" +" next-pos_750" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(values(deserialize-bulk-binding-at scopes_749 bulk_751) next-pos_752))))" "(let-values()" -"(let-values(((kind_7 next-pos_40)" +"(let-values(((kind_753 next-pos_754)" +"(decode vec_0(add1 pos_0) mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(let-values(((phase_755 next-pos_756)" "(decode" -" vec_50" -"(add1 pos_51)" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((phase_50 next-pos_41)" -"(decode" -" vec_50" -" next-pos_40" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(values(deserialize-representative-scope kind_7 phase_50) next-pos_41))))))" -"(if(unsafe-fx< index_0 26)" -"(if(unsafe-fx< index_0 25)" +" vec_0" +" next-pos_754" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(values(deserialize-representative-scope kind_753 phase_755) next-pos_756))))))" +"(if(unsafe-fx< index_608 26)" +"(if(unsafe-fx< index_608 25)" "(let-values()" -"(let-values(((module_4 next-pos_42)" +"(let-values(((module_757 next-pos_758)" +"(decode vec_0(add1 pos_0) mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(let-values(((sym_759 next-pos_760)" "(decode" -" vec_50" -"(add1 pos_51)" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((sym_32 next-pos_43)" +" vec_0" +" next-pos_758" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((phase_761 next-pos_762)" "(decode" -" vec_50" -" next-pos_42" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((phase_51 next-pos_44)" +" vec_0" +" next-pos_760" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((nominal-module_763 next-pos_764)" "(decode" -" vec_50" -" next-pos_43" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((nominal-module_4 next-pos_45)" +" vec_0" +" next-pos_762" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((nominal-phase_765 next-pos_766)" "(decode" -" vec_50" -" next-pos_44" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((nominal-phase_3 next-pos_46)" +" vec_0" +" next-pos_764" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((nominal-sym_767 next-pos_768)" "(decode" -" vec_50" -" next-pos_45" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((nominal-sym_3 next-pos_47)" +" vec_0" +" next-pos_766" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((nominal-require-phase_769 next-pos_770)" "(decode" -" vec_50" -" next-pos_46" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((nominal-require-phase_3 next-pos_48)" +" vec_0" +" next-pos_768" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((free=id_771 next-pos_772)" "(decode" -" vec_50" -" next-pos_47" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((free=id_8 next-pos_49)" +" vec_0" +" next-pos_770" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((extra-inspector_773 next-pos_774)" "(decode" -" vec_50" -" next-pos_48" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((extra-inspector_3 next-pos_50)" +" vec_0" +" next-pos_772" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((extra-nominal-bindings_775 next-pos_776)" "(decode" -" vec_50" -" next-pos_49" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((extra-nominal-bindings_3 next-pos_51)" -"(decode" -" vec_50" -" next-pos_50" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" +" vec_0" +" next-pos_774" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" "(values" "(deserialize-full-module-binding" -" module_4" -" sym_32" -" phase_51" -" nominal-module_4" -" nominal-phase_3" -" nominal-sym_3" -" nominal-require-phase_3" -" free=id_8" -" extra-inspector_3" -" extra-nominal-bindings_3)" -" next-pos_51))))))))))))" +" module_757" +" sym_759" +" phase_761" +" nominal-module_763" +" nominal-phase_765" +" nominal-sym_767" +" nominal-require-phase_769" +" free=id_771" +" extra-inspector_773" +" extra-nominal-bindings_775)" +" next-pos_776))))))))))))" "(let-values()" -"(let-values(((module_5 next-pos_52)" +"(let-values(((module_777 next-pos_778)" +"(decode vec_0(add1 pos_0) mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(let-values(((sym_779 next-pos_780)" "(decode" -" vec_50" -"(add1 pos_51)" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((sym_33 next-pos_53)" +" vec_0" +" next-pos_778" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((phase_781 next-pos_782)" "(decode" -" vec_50" -" next-pos_52" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((phase_52 next-pos_54)" +" vec_0" +" next-pos_780" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((nominal-module_783 next-pos_784)" "(decode" -" vec_50" -" next-pos_53" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((nominal-module_5 next-pos_55)" -"(decode" -" vec_50" -" next-pos_54" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" +" vec_0" +" next-pos_782" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" "(values" -"(deserialize-simple-module-binding module_5 sym_33 phase_52 nominal-module_5)" -" next-pos_55)))))))" -"(if(unsafe-fx< index_0 27)" +"(deserialize-simple-module-binding module_777 sym_779 phase_781 nominal-module_783)" +" next-pos_784)))))))" +"(if(unsafe-fx< index_608 27)" "(let-values()" -"(let-values(((key_51 next-pos_56)" +"(let-values(((key_785 next-pos_786)" +"(decode vec_0(add1 pos_0) mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(let-values(((free=id_787 next-pos_788)" "(decode" -" vec_50" -"(add1 pos_51)" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((free=id_9 next-pos_57)" -"(decode" -" vec_50" -" next-pos_56" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(values(deserialize-full-local-binding key_51 free=id_9) next-pos_57))))" -"(if(unsafe-fx< index_0 28)" +" vec_0" +" next-pos_786" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(values(deserialize-full-local-binding key_785 free=id_787) next-pos_788))))" +"(if(unsafe-fx< index_608 28)" "(let-values()" -"(let-values(((prefix_3 next-pos_58)" +"(let-values(((prefix_789 next-pos_790)" "(decode" -" vec_50" -"(add1 pos_51)" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((excepts_3 next-pos_59)" +" vec_0" +"(add1 pos_0)" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((excepts_791 next-pos_792)" "(decode" -" vec_50" -" next-pos_58" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((mpi_28 next-pos_60)" +" vec_0" +" next-pos_790" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((mpi_793 next-pos_794)" "(decode" -" vec_50" -" next-pos_59" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((provide-phase-level_2 next-pos_61)" +" vec_0" +" next-pos_792" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((provide-phase-level_795 next-pos_796)" "(decode" -" vec_50" -" next-pos_60" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((phase-shift_5 next-pos_62)" +" vec_0" +" next-pos_794" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((phase-shift_797 next-pos_798)" "(decode" -" vec_50" -" next-pos_61" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((bulk-binding-registry_8 next-pos_63)" +" vec_0" +" next-pos_796" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((bulk-binding-registry_799 next-pos_800)" "(decode" -" vec_50" -" next-pos_62" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" +" vec_0" +" next-pos_798" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" "(values" "(deserialize-bulk-binding" -" prefix_3" -" excepts_3" -" mpi_28" -" provide-phase-level_2" -" phase-shift_5" -" bulk-binding-registry_8)" -" next-pos_63))))))))" +" prefix_789" +" excepts_791" +" mpi_793" +" provide-phase-level_795" +" phase-shift_797" +" bulk-binding-registry_799)" +" next-pos_800))))))))" "(let-values()" -"(let-values(((binding_10 next-pos_64)" +"(let-values(((binding_801 next-pos_802)" "(decode" -" vec_50" -"(add1 pos_51)" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((protected?_2 next-pos_65)" +" vec_0" +"(add1 pos_0)" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((protected?_803 next-pos_804)" "(decode" -" vec_50" -" next-pos_64" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" -"(let-values(((syntax?_3 next-pos_66)" +" vec_0" +" next-pos_802" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((syntax?_805 next-pos_806)" "(decode" -" vec_50" -" next-pos_65" -" mpis_9" -" inspector_8" -" bulk-binding-registry_7" -" shared_2)))" +" vec_0" +" next-pos_804" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" "(values" -"(deserialize-provided binding_10 protected?_2 syntax?_3)" -" next-pos_66)))))))))))))))))" +"(deserialize-provided binding_801 protected?_803 syntax?_805)" +" next-pos_806)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_150 vec_51 pos_72 mpis_10 inspector_9 bulk-binding-registry_9 shared_3)" +"(lambda(v_0 vec_0 pos_0 mpis_0 inspector_0 bulk-binding-registry_0 shared_0)" "(begin" -"(let-values(((tmp_23)(vector*-ref vec_51 pos_72)))" -"(if(equal? tmp_23 #f)" -"(let-values()(add1 pos_72))" -"(if(equal? tmp_23 '#:set-box!)" +"(let-values(((tmp_814)(vector*-ref vec_0 pos_0)))" +"(if(equal? tmp_814 #f)" +"(let-values()(add1 pos_0))" +"(if(equal? tmp_814 '#:set-box!)" "(let-values()" -"(let-values(((c_21 next-pos_67)" -"(decode vec_51(add1 pos_72) mpis_10 inspector_9 bulk-binding-registry_9 shared_3)))" -"(begin(set-box! v_150 c_21) next-pos_67)))" -"(if(equal? tmp_23 '#:set-vector!)" +"(let-values(((c_815 next-pos_816)" +"(decode vec_0(add1 pos_0) mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(begin(set-box! v_0 c_815) next-pos_816)))" +"(if(equal? tmp_814 '#:set-vector!)" "(let-values()" -"(let-values(((len_24)(vector*-ref vec_51(add1 pos_72))))" -"(let-values(((start_31) 0)((end_23) len_24)((inc_17) 1))" +"(let-values(((len_817)(vector*-ref vec_0(add1 pos_0))))" +"(let-values(((start_818) 0)((end_819) len_817)((inc_820) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_31 end_23 inc_17)))" -"((letrec-values(((for-loop_150)" -"(lambda(pos_73 pos_74)" +"(let-values()(check-range start_818 end_819 inc_820)))" +"((letrec-values(((for-loop_821)" +"(lambda(pos_1 pos_2)" "(begin" " 'for-loop" -"(if(< pos_74 end_23)" -"(let-values(((i_78) pos_74))" -"(let-values(((pos_75)" -"(let-values(((pos_76) pos_73))" -"(let-values(((pos_77)" +"(if(< pos_2 end_819)" +"(let-values(((i_824) pos_2))" +"(let-values(((pos_825)" +"(let-values(((pos_826) pos_1))" +"(let-values(((pos_827)" "(let-values()" -"(let-values(((c_22 next-pos_68)" +"(let-values(((c_828 next-pos_829)" "(decode" -" vec_51" -" pos_76" -" mpis_10" -" inspector_9" -" bulk-binding-registry_9" -" shared_3)))" +" vec_0" +" pos_826" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" "(begin" -"(vector-set! v_150 i_78 c_22)" -" next-pos_68)))))" -"(values pos_77)))))" -"(if(not #f)(for-loop_150 pos_75(+ pos_74 inc_17)) pos_75)))" -" pos_73)))))" -" for-loop_150)" -"(+ pos_72 2)" -" start_31)))))" -"(if(equal? tmp_23 '#:set-hash!)" +"(vector-set! v_0 i_824 c_828)" +" next-pos_829)))))" +"(values pos_827)))))" +"(if(not #f)(for-loop_821 pos_825(+ pos_2 inc_820)) pos_825)))" +" pos_1)))))" +" for-loop_821)" +"(+ pos_0 2)" +" start_818)))))" +"(if(equal? tmp_814 '#:set-hash!)" "(let-values()" -"(let-values(((len_25)(vector*-ref vec_51(add1 pos_72))))" -"(let-values(((start_32) 0)((end_24) len_25)((inc_18) 1))" +"(let-values(((len_830)(vector*-ref vec_0(add1 pos_0))))" +"(let-values(((start_831) 0)((end_832) len_830)((inc_833) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_32 end_24 inc_18)))" -"((letrec-values(((for-loop_151)" -"(lambda(pos_78 pos_79)" +"(let-values()(check-range start_831 end_832 inc_833)))" +"((letrec-values(((for-loop_834)" +"(lambda(pos_1 pos_2)" "(begin" " 'for-loop" -"(if(< pos_79 end_24)" +"(if(< pos_2 end_832)" "(let-values()" -"(let-values(((pos_80)" -"(let-values(((pos_81) pos_78))" -"(let-values(((pos_82)" +"(let-values(((pos_838)" +"(let-values(((pos_839) pos_1))" +"(let-values(((pos_840)" "(let-values()" -"(let-values(((key_52 next-pos_69)" +"(let-values(((key_841 next-pos_842)" "(decode" -" vec_51" -" pos_81" -" mpis_10" -" inspector_9" -" bulk-binding-registry_9" -" shared_3)))" -"(let-values(((val_44 done-pos_2)" +" vec_0" +" pos_839" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" +"(let-values(((val_843 done-pos_844)" "(decode" -" vec_51" -" next-pos_69" -" mpis_10" -" inspector_9" -" bulk-binding-registry_9" -" shared_3)))" +" vec_0" +" next-pos_842" +" mpis_0" +" inspector_0" +" bulk-binding-registry_0" +" shared_0)))" "(begin" -"(hash-set! v_150 key_52 val_44)" -" done-pos_2))))))" -"(values pos_82)))))" -"(if(not #f)(for-loop_151 pos_80(+ pos_79 inc_18)) pos_80)))" -" pos_78)))))" -" for-loop_151)" -"(+ pos_72 2)" -" start_32)))))" -"(if(equal? tmp_23 '#:scope-fill!)" +"(hash-set! v_0 key_841 val_843)" +" done-pos_844))))))" +"(values pos_840)))))" +"(if(not #f)(for-loop_834 pos_838(+ pos_2 inc_833)) pos_838)))" +" pos_1)))))" +" for-loop_834)" +"(+ pos_0 2)" +" start_831)))))" +"(if(equal? tmp_814 '#:scope-fill!)" "(let-values()" -"(let-values(((c_23 next-pos_70)" -"(decode vec_51(add1 pos_72) mpis_10 inspector_9 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-scope-fill! v_150 c_23) next-pos_70)))" -"(if(equal? tmp_23 '#:representative-scope-fill!)" +"(let-values(((c_845 next-pos_846)" +"(decode vec_0(add1 pos_0) mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(begin(deserialize-scope-fill! v_0 c_845) next-pos_846)))" +"(if(equal? tmp_814 '#:representative-scope-fill!)" "(let-values()" -"(let-values(((a_43 next-pos_71)" -"(decode vec_51(add1 pos_72) mpis_10 inspector_9 bulk-binding-registry_9 shared_3)))" -"(let-values(((d_25 done-pos_3)" -"(decode vec_51 next-pos_71 mpis_10 inspector_9 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-representative-scope-fill! v_150 a_43 d_25) done-pos_3))))" -" (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_51 pos_72)))))))))))))" +"(let-values(((a_847 next-pos_848)" +"(decode vec_0(add1 pos_0) mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(let-values(((d_849 done-pos_850)" +"(decode vec_0 next-pos_848 mpis_0 inspector_0 bulk-binding-registry_0 shared_0)))" +"(begin(deserialize-representative-scope-fill! v_0 a_847 d_849) done-pos_850))))" +" (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_0 pos_0)))))))))))))" "(define-values" "(find-reachable-scopes)" -"(lambda(v_151)" +"(lambda(v_0)" "(begin" -"(let-values(((seen_22)(make-hasheq)))" -"(let-values(((reachable-scopes_5)(seteq)))" -"(let-values(((get-reachable-scopes_4)(lambda()(begin 'get-reachable-scopes reachable-scopes_5))))" -"(let-values(((scope-triggers_0)(make-hasheq)))" +"(let-values(((seen_852)(make-hasheq)))" +"(let-values(((reachable-scopes_853)(seteq)))" +"(let-values(((get-reachable-scopes_854)(lambda()(begin 'get-reachable-scopes reachable-scopes_853))))" +"(let-values(((scope-triggers_855)(make-hasheq)))" "(begin" -"((letrec-values(((loop_84)" -"(lambda(v_152)" +"((letrec-values(((loop_856)" +"(lambda(v_1)" "(begin" " 'loop" -"(if(interned-literal? v_152)" +"(if(interned-literal? v_1)" "(let-values()(void))" -"(if(hash-ref seen_22 v_152 #f)" +"(if(hash-ref seen_852 v_1 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_22 v_152 #t)" -"(if(scope-with-bindings? v_152)" +"(hash-set! seen_852 v_1 #t)" +"(if(scope-with-bindings? v_1)" "(let-values()" "(begin" -"(set! reachable-scopes_5(set-add reachable-scopes_5 v_152))" -"((reach-scopes-ref v_152) v_152 loop_84)" -"(let-values(((lst_68)(hash-ref scope-triggers_0 v_152 null)))" +"(set! reachable-scopes_853(set-add reachable-scopes_853 v_1))" +"((reach-scopes-ref v_1) v_1 loop_856)" +"(let-values(((lst_858)(hash-ref scope-triggers_855 v_1 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_68)))" -"((letrec-values(((for-loop_152)" -"(lambda(lst_121)" +"(let-values()(check-list lst_858)))" +"((letrec-values(((for-loop_859)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_121)" -"(let-values(((proc_7)" -"(unsafe-car lst_121))" -"((rest_61)" -"(unsafe-cdr lst_121)))" +"(if(pair? lst_0)" +"(let-values(((proc_861)" +"(unsafe-car lst_0))" +"((rest_862)" +"(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(proc_7" -" loop_84))" +"(proc_861" +" loop_856))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_152 rest_61)" +"(for-loop_859 rest_862)" "(values))))" "(values))))))" -" for-loop_152)" -" lst_68)))" +" for-loop_859)" +" lst_858)))" "(void)" -"(hash-remove! scope-triggers_0 v_152)" -"((scope-with-bindings-ref v_152)" -" v_152" -" get-reachable-scopes_4" -" loop_84" -"(lambda(sc-unreachable_0 b_68)" +"(hash-remove! scope-triggers_855 v_1)" +"((scope-with-bindings-ref v_1)" +" v_1" +" get-reachable-scopes_854" +" loop_856" +"(lambda(sc-unreachable_0 b_0)" "(hash-update!" -" scope-triggers_0" +" scope-triggers_855" " sc-unreachable_0" -"(lambda(l_51)(cons b_68 l_51))" +"(lambda(l_0)(cons b_0 l_0))" " null)))))" -"(if(reach-scopes? v_152)" -"(let-values()((reach-scopes-ref v_152) v_152 loop_84))" -"(if(pair? v_152)" -"(let-values()(begin(loop_84(car v_152))(loop_84(cdr v_152))))" -"(if(vector? v_152)" +"(if(reach-scopes? v_1)" +"(let-values()((reach-scopes-ref v_1) v_1 loop_856))" +"(if(pair? v_1)" +"(let-values()(begin(loop_856(car v_1))(loop_856(cdr v_1))))" +"(if(vector? v_1)" "(let-values()" "(begin" -"(let-values(((vec_52 len_26)" -"(let-values(((vec_53) v_152))" +"(let-values(((vec_866 len_867)" +"(let-values(((vec_868) v_1))" "(begin" -"(check-vector vec_53)" +"(check-vector vec_868)" "(values" -" vec_53" -"(unsafe-vector-length vec_53))))))" +" vec_868" +"(unsafe-vector-length vec_868))))))" "(begin" " #f" -"((letrec-values(((for-loop_153)" -"(lambda(pos_83)" +"((letrec-values(((for-loop_869)" +"(lambda(pos_0)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_83 len_26)" -"(let-values(((e_21)" +"(if(unsafe-fx< pos_0 len_867)" +"(let-values(((e_871)" "(unsafe-vector-ref" -" vec_52" -" pos_83)))" +" vec_866" +" pos_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_84" -" e_21))" +"(loop_856" +" e_871))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_153" -"(unsafe-fx+ 1 pos_83))" +"(for-loop_869" +"(unsafe-fx+ 1 pos_0))" "(values))))" "(values))))))" -" for-loop_153)" +" for-loop_869)" " 0)))" "(void)))" -"(if(box? v_152)" -"(let-values()(loop_84(unbox v_152)))" -"(if(hash? v_152)" +"(if(box? v_1)" +"(let-values()(loop_856(unbox v_1)))" +"(if(hash? v_1)" "(let-values()" "(begin" -"(let-values(((ht_97) v_152))" +"(let-values(((ht_872) v_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_97)))" -"((letrec-values(((for-loop_154)" -"(lambda(i_125)" +"(let-values()(check-in-hash ht_872)))" +"((letrec-values(((for-loop_873)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_125" -"(let-values(((k_31 v_153)" +"(if i_0" +"(let-values(((k_875 v_876)" "(hash-iterate-key+value" -" ht_97" -" i_125)))" +" ht_872" +" i_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20770,101 +20852,102 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(loop_84" -" k_31)" -"(loop_84" -" v_153)))" +"(loop_856" +" k_875)" +"(loop_856" +" v_876)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_154" +"(for-loop_873" "(hash-iterate-next" -" ht_97" -" i_125))" +" ht_872" +" i_0))" "(values))))" "(values))))))" -" for-loop_154)" -"(hash-iterate-first ht_97))))" +" for-loop_873)" +"(hash-iterate-first ht_872))))" "(void)))" -"(if(prefab-struct-key v_152)" +"(if(prefab-struct-key v_1)" "(let-values()" "(begin" -"(let-values(((v*_4 start*_4 stop*_5 step*_4)" +"(let-values(((v*_877 start*_878 stop*_879 step*_880)" "(normalise-inputs" " 'in-vector" " \"vector\"" -"(lambda(x_51)(vector? x_51))" -"(lambda(x_52)" -"(unsafe-vector-length x_52))" -"(struct->vector v_152)" +"(lambda(x_0)(vector? x_0))" +"(lambda(x_0)(unsafe-vector-length x_0))" +"(struct->vector v_1)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_155)" -"(lambda(idx_4)" +"((letrec-values(((for-loop_883)" +"(lambda(idx_0)" "(begin" " 'for-loop" -"(if(unsafe-fx< idx_4 stop*_5)" -"(let-values(((e_22)" +"(if(unsafe-fx<" +" idx_0" +" stop*_879)" +"(let-values(((e_885)" "(unsafe-vector-ref" -" v*_4" -" idx_4)))" +" v*_877" +" idx_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_84" -" e_22))" +"(loop_856" +" e_885))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_155" -"(unsafe-fx+ idx_4 1))" +"(for-loop_883" +"(unsafe-fx+ idx_0 1))" "(values))))" "(values))))))" -" for-loop_155)" -" start*_4)))" +" for-loop_883)" +" start*_878)))" "(void)))" -"(if(srcloc? v_152)" -"(let-values()(loop_84(srcloc-source v_152)))" +"(if(srcloc? v_1)" +"(let-values()(loop_856(srcloc-source v_1)))" "(let-values()(void))))))))))))))))))" -" loop_84)" -" v_151)" -" reachable-scopes_5))))))))" +" loop_856)" +" v_0)" +" reachable-scopes_853))))))))" "(define-values" "(deserialize-imports)" " '(deserialize-module-path-indexes syntax-module-path-index-shift syntax-shift-phase-level module-use deserialize))" "(define-values" "(syntax-module-path-index-shift/no-keywords)" -"(let-values(((syntax-module-path-index-shift_0)" -"(let-values(((core26_0)" +"(let-values(((syntax-module-path-index-shift_886)" +"(let-values(((core26_887)" "(lambda(s23_0 from-mpi24_0 to-mpi25_0 inspector22_0)" "(begin" " 'core26" -"(let-values(((s_197) s23_0))" -"(let-values(((from-mpi_4) from-mpi24_0))" -"(let-values(((to-mpi_3) to-mpi25_0))" -"(let-values(((inspector_10) inspector22_0))" +"(let-values(((s_892) s23_0))" +"(let-values(((from-mpi_893) from-mpi24_0))" +"(let-values(((to-mpi_894) to-mpi25_0))" +"(let-values(((inspector_895) inspector22_0))" "(let-values()" -"(let-values(((s28_0) s_197)" -"((from-mpi29_0) from-mpi_4)" -"((to-mpi30_0) to-mpi_3)" -"((inspector31_0) inspector_10))" +"(let-values(((s28_896) s_892)" +"((from-mpi29_897) from-mpi_893)" +"((to-mpi30_898) to-mpi_894)" +"((inspector31_899) inspector_895))" "(syntax-module-path-index-shift13.1" " #f" -" s28_0" -" from-mpi29_0" -" to-mpi30_0" -" inspector31_0)))))))))))" +" s28_896" +" from-mpi29_897" +" to-mpi30_898" +" inspector31_899)))))))))))" "(case-lambda" -"((s_198 from-mpi_5 to-mpi_4)" -"(begin 'syntax-module-path-index-shift(core26_0 s_198 from-mpi_5 to-mpi_4 #f)))" -"((s_199 from-mpi_6 to-mpi_5 inspector22_1)(core26_0 s_199 from-mpi_6 to-mpi_5 inspector22_1))))))" -" syntax-module-path-index-shift_0))" +"((s_0 from-mpi_0 to-mpi_0)" +"(begin 'syntax-module-path-index-shift(core26_887 s_0 from-mpi_0 to-mpi_0 #f)))" +"((s_0 from-mpi_0 to-mpi_0 inspector22_0)(core26_887 s_0 from-mpi_0 to-mpi_0 inspector22_0))))))" +" syntax-module-path-index-shift_886))" "(define-values" "(deserialize-instance)" "(1/make-instance" @@ -20883,14 +20966,14 @@ static const char *startup_source = " deserialize))" "(define-values" "(struct:parsed parsed1.1 parsed? parsed-s)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type 'parsed #f 1 0 #f(list(cons prop:authentic #t)) #f #f '(0) #f 'parsed)))))" -"(values struct:_0 make-_0 ?_0(make-struct-field-accessor -ref_0 0 's))))" +"(values struct:_1 make-_2 ?_3(make-struct-field-accessor -ref_4 0 's))))" "(define-values" "(struct:parsed-id parsed-id2.1 parsed-id? parsed-id-binding parsed-id-inspector)" -"(let-values(((struct:_1 make-_1 ?_1 -ref_1 -set!_1)" +"(let-values(((struct:_21 make-_22 ?_23 -ref_24 -set!_25)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20906,14 +20989,14 @@ static const char *startup_source = " #f" " 'parsed-id)))))" "(values" -" struct:_1" -" make-_1" -" ?_1" -"(make-struct-field-accessor -ref_1 0 'binding)" -"(make-struct-field-accessor -ref_1 1 'inspector))))" +" struct:_21" +" make-_22" +" ?_23" +"(make-struct-field-accessor -ref_24 0 'binding)" +"(make-struct-field-accessor -ref_24 1 'inspector))))" "(define-values" "(struct:parsed-primitive-id parsed-primitive-id3.1 parsed-primitive-id?)" -"(let-values(((struct:_34 make-_34 ?_34 -ref_34 -set!_34)" +"(let-values(((struct:_46 make-_47 ?_48 -ref_49 -set!_50)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20928,10 +21011,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-primitive-id)))))" -"(values struct:_34 make-_34 ?_34)))" +"(values struct:_46 make-_47 ?_48)))" "(define-values" "(struct:parsed-top-id parsed-top-id4.1 parsed-top-id?)" -"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)" +"(let-values(((struct:_61 make-_62 ?_63 -ref_64 -set!_65)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20946,10 +21029,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-top-id)))))" -"(values struct:_35 make-_35 ?_35)))" +"(values struct:_61 make-_62 ?_63)))" "(define-values" "(struct:parsed-lambda parsed-lambda5.1 parsed-lambda? parsed-lambda-keys parsed-lambda-body)" -"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" +"(let-values(((struct:_76 make-_77 ?_78 -ref_79 -set!_80)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20965,14 +21048,14 @@ static const char *startup_source = " #f" " 'parsed-lambda)))))" "(values" -" struct:_33" -" make-_33" -" ?_33" -"(make-struct-field-accessor -ref_33 0 'keys)" -"(make-struct-field-accessor -ref_33 1 'body))))" +" struct:_76" +" make-_77" +" ?_78" +"(make-struct-field-accessor -ref_79 0 'keys)" +"(make-struct-field-accessor -ref_79 1 'body))))" "(define-values" "(struct:parsed-case-lambda parsed-case-lambda6.1 parsed-case-lambda? parsed-case-lambda-clauses)" -"(let-values(((struct:_36 make-_36 ?_36 -ref_36 -set!_36)" +"(let-values(((struct:_101 make-_102 ?_103 -ref_104 -set!_105)" "(let-values()" "(let-values()" "(make-struct-type" @@ -20987,10 +21070,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-case-lambda)))))" -"(values struct:_36 make-_36 ?_36(make-struct-field-accessor -ref_36 0 'clauses))))" +"(values struct:_101 make-_102 ?_103(make-struct-field-accessor -ref_104 0 'clauses))))" "(define-values" "(struct:parsed-app parsed-app7.1 parsed-app? parsed-app-rator parsed-app-rands)" -"(let-values(((struct:_37 make-_37 ?_37 -ref_37 -set!_37)" +"(let-values(((struct:_121 make-_122 ?_123 -ref_124 -set!_125)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21006,14 +21089,14 @@ static const char *startup_source = " #f" " 'parsed-app)))))" "(values" -" struct:_37" -" make-_37" -" ?_37" -"(make-struct-field-accessor -ref_37 0 'rator)" -"(make-struct-field-accessor -ref_37 1 'rands))))" +" struct:_121" +" make-_122" +" ?_123" +"(make-struct-field-accessor -ref_124 0 'rator)" +"(make-struct-field-accessor -ref_124 1 'rands))))" "(define-values" "(struct:parsed-if parsed-if8.1 parsed-if? parsed-if-tst parsed-if-thn parsed-if-els)" -"(let-values(((struct:_38 make-_38 ?_38 -ref_38 -set!_38)" +"(let-values(((struct:_146 make-_147 ?_148 -ref_149 -set!_150)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21029,15 +21112,15 @@ static const char *startup_source = " #f" " 'parsed-if)))))" "(values" -" struct:_38" -" make-_38" -" ?_38" -"(make-struct-field-accessor -ref_38 0 'tst)" -"(make-struct-field-accessor -ref_38 1 'thn)" -"(make-struct-field-accessor -ref_38 2 'els))))" +" struct:_146" +" make-_147" +" ?_148" +"(make-struct-field-accessor -ref_149 0 'tst)" +"(make-struct-field-accessor -ref_149 1 'thn)" +"(make-struct-field-accessor -ref_149 2 'els))))" "(define-values" "(struct:parsed-set! parsed-set!9.1 parsed-set!? parsed-set!-id parsed-set!-rhs)" -"(let-values(((struct:_39 make-_39 ?_39 -ref_39 -set!_39)" +"(let-values(((struct:_176 make-_177 ?_178 -ref_179 -set!_180)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21053,11 +21136,11 @@ static const char *startup_source = " #f" " 'parsed-set!)))))" "(values" -" struct:_39" -" make-_39" -" ?_39" -"(make-struct-field-accessor -ref_39 0 'id)" -"(make-struct-field-accessor -ref_39 1 'rhs))))" +" struct:_176" +" make-_177" +" ?_178" +"(make-struct-field-accessor -ref_179 0 'id)" +"(make-struct-field-accessor -ref_179 1 'rhs))))" "(define-values" "(struct:parsed-with-continuation-mark" " parsed-with-continuation-mark10.1" @@ -21065,7 +21148,7 @@ static const char *startup_source = " parsed-with-continuation-mark-key" " parsed-with-continuation-mark-val" " parsed-with-continuation-mark-body)" -"(let-values(((struct:_40 make-_40 ?_40 -ref_40 -set!_40)" +"(let-values(((struct:_201 make-_202 ?_203 -ref_204 -set!_205)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21081,18 +21164,18 @@ static const char *startup_source = " #f" " 'parsed-with-continuation-mark)))))" "(values" -" struct:_40" -" make-_40" -" ?_40" -"(make-struct-field-accessor -ref_40 0 'key)" -"(make-struct-field-accessor -ref_40 1 'val)" -"(make-struct-field-accessor -ref_40 2 'body))))" +" struct:_201" +" make-_202" +" ?_203" +"(make-struct-field-accessor -ref_204 0 'key)" +"(make-struct-field-accessor -ref_204 1 'val)" +"(make-struct-field-accessor -ref_204 2 'body))))" "(define-values" "(struct:parsed-#%variable-reference" " parsed-#%variable-reference11.1" " parsed-#%variable-reference?" " parsed-#%variable-reference-id)" -"(let-values(((struct:_41 make-_41 ?_41 -ref_41 -set!_41)" +"(let-values(((struct:_231 make-_232 ?_233 -ref_234 -set!_235)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21107,10 +21190,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%variable-reference)))))" -"(values struct:_41 make-_41 ?_41(make-struct-field-accessor -ref_41 0 'id))))" +"(values struct:_231 make-_232 ?_233(make-struct-field-accessor -ref_234 0 'id))))" "(define-values" "(struct:parsed-begin parsed-begin12.1 parsed-begin? parsed-begin-body)" -"(let-values(((struct:_42 make-_42 ?_42 -ref_42 -set!_42)" +"(let-values(((struct:_251 make-_252 ?_253 -ref_254 -set!_255)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21125,10 +21208,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin)))))" -"(values struct:_42 make-_42 ?_42(make-struct-field-accessor -ref_42 0 'body))))" +"(values struct:_251 make-_252 ?_253(make-struct-field-accessor -ref_254 0 'body))))" "(define-values" "(struct:parsed-begin0 parsed-begin013.1 parsed-begin0? parsed-begin0-body)" -"(let-values(((struct:_43 make-_43 ?_43 -ref_43 -set!_43)" +"(let-values(((struct:_271 make-_272 ?_273 -ref_274 -set!_275)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21143,10 +21226,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin0)))))" -"(values struct:_43 make-_43 ?_43(make-struct-field-accessor -ref_43 0 'body))))" +"(values struct:_271 make-_272 ?_273(make-struct-field-accessor -ref_274 0 'body))))" "(define-values" "(struct:parsed-quote parsed-quote14.1 parsed-quote? parsed-quote-datum)" -"(let-values(((struct:_44 make-_44 ?_44 -ref_44 -set!_44)" +"(let-values(((struct:_291 make-_292 ?_293 -ref_294 -set!_295)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21161,10 +21244,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote)))))" -"(values struct:_44 make-_44 ?_44(make-struct-field-accessor -ref_44 0 'datum))))" +"(values struct:_291 make-_292 ?_293(make-struct-field-accessor -ref_294 0 'datum))))" "(define-values" "(struct:parsed-quote-syntax parsed-quote-syntax15.1 parsed-quote-syntax? parsed-quote-syntax-datum)" -"(let-values(((struct:_45 make-_45 ?_45 -ref_45 -set!_45)" +"(let-values(((struct:_311 make-_312 ?_313 -ref_314 -set!_315)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21179,7 +21262,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-quote-syntax)))))" -"(values struct:_45 make-_45 ?_45(make-struct-field-accessor -ref_45 0 'datum))))" +"(values struct:_311 make-_312 ?_313(make-struct-field-accessor -ref_314 0 'datum))))" "(define-values" "(struct:parsed-let_-values" " parsed-let_-values16.1" @@ -21187,7 +21270,7 @@ static const char *startup_source = " parsed-let_-values-idss" " parsed-let_-values-clauses" " parsed-let_-values-body)" -"(let-values(((struct:_46 make-_46 ?_46 -ref_46 -set!_46)" +"(let-values(((struct:_331 make-_332 ?_333 -ref_334 -set!_335)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21203,15 +21286,15 @@ static const char *startup_source = " #f" " 'parsed-let_-values)))))" "(values" -" struct:_46" -" make-_46" -" ?_46" -"(make-struct-field-accessor -ref_46 0 'idss)" -"(make-struct-field-accessor -ref_46 1 'clauses)" -"(make-struct-field-accessor -ref_46 2 'body))))" +" struct:_331" +" make-_332" +" ?_333" +"(make-struct-field-accessor -ref_334 0 'idss)" +"(make-struct-field-accessor -ref_334 1 'clauses)" +"(make-struct-field-accessor -ref_334 2 'body))))" "(define-values" "(struct:parsed-let-values parsed-let-values17.1 parsed-let-values?)" -"(let-values(((struct:_47 make-_47 ?_47 -ref_47 -set!_47)" +"(let-values(((struct:_361 make-_362 ?_363 -ref_364 -set!_365)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21226,10 +21309,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-let-values)))))" -"(values struct:_47 make-_47 ?_47)))" +"(values struct:_361 make-_362 ?_363)))" "(define-values" "(struct:parsed-letrec-values parsed-letrec-values18.1 parsed-letrec-values?)" -"(let-values(((struct:_48 make-_48 ?_48 -ref_48 -set!_48)" +"(let-values(((struct:_376 make-_377 ?_378 -ref_379 -set!_380)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21244,7 +21327,7 @@ static const char *startup_source = " '()" " #f" " 'parsed-letrec-values)))))" -"(values struct:_48 make-_48 ?_48)))" +"(values struct:_376 make-_377 ?_378)))" "(define-values" "(struct:parsed-define-values" " parsed-define-values19.1" @@ -21252,7 +21335,7 @@ static const char *startup_source = " parsed-define-values-ids" " parsed-define-values-syms" " parsed-define-values-rhs)" -"(let-values(((struct:_49 make-_49 ?_49 -ref_49 -set!_49)" +"(let-values(((struct:_391 make-_392 ?_393 -ref_394 -set!_395)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21268,12 +21351,12 @@ static const char *startup_source = " #f" " 'parsed-define-values)))))" "(values" -" struct:_49" -" make-_49" -" ?_49" -"(make-struct-field-accessor -ref_49 0 'ids)" -"(make-struct-field-accessor -ref_49 1 'syms)" -"(make-struct-field-accessor -ref_49 2 'rhs))))" +" struct:_391" +" make-_392" +" ?_393" +"(make-struct-field-accessor -ref_394 0 'ids)" +"(make-struct-field-accessor -ref_394 1 'syms)" +"(make-struct-field-accessor -ref_394 2 'rhs))))" "(define-values" "(struct:parsed-define-syntaxes" " parsed-define-syntaxes20.1" @@ -21281,7 +21364,7 @@ static const char *startup_source = " parsed-define-syntaxes-ids" " parsed-define-syntaxes-syms" " parsed-define-syntaxes-rhs)" -"(let-values(((struct:_50 make-_50 ?_50 -ref_50 -set!_50)" +"(let-values(((struct:_421 make-_422 ?_423 -ref_424 -set!_425)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21297,15 +21380,15 @@ static const char *startup_source = " #f" " 'parsed-define-syntaxes)))))" "(values" -" struct:_50" -" make-_50" -" ?_50" -"(make-struct-field-accessor -ref_50 0 'ids)" -"(make-struct-field-accessor -ref_50 1 'syms)" -"(make-struct-field-accessor -ref_50 2 'rhs))))" +" struct:_421" +" make-_422" +" ?_423" +"(make-struct-field-accessor -ref_424 0 'ids)" +"(make-struct-field-accessor -ref_424 1 'syms)" +"(make-struct-field-accessor -ref_424 2 'rhs))))" "(define-values" "(struct:parsed-begin-for-syntax parsed-begin-for-syntax21.1 parsed-begin-for-syntax? parsed-begin-for-syntax-body)" -"(let-values(((struct:_51 make-_51 ?_51 -ref_51 -set!_51)" +"(let-values(((struct:_451 make-_452 ?_453 -ref_454 -set!_455)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21320,10 +21403,10 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-begin-for-syntax)))))" -"(values struct:_51 make-_51 ?_51(make-struct-field-accessor -ref_51 0 'body))))" +"(values struct:_451 make-_452 ?_453(make-struct-field-accessor -ref_454 0 'body))))" "(define-values" "(struct:parsed-#%declare parsed-#%declare22.1 parsed-#%declare?)" -"(let-values(((struct:_52 make-_52 ?_52 -ref_52 -set!_52)" +"(let-values(((struct:_471 make-_472 ?_473 -ref_474 -set!_475)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21338,10 +21421,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-#%declare)))))" -"(values struct:_52 make-_52 ?_52)))" +"(values struct:_471 make-_472 ?_473)))" "(define-values" "(struct:parsed-require parsed-require23.1 parsed-require?)" -"(let-values(((struct:_53 make-_53 ?_53 -ref_53 -set!_53)" +"(let-values(((struct:_486 make-_487 ?_488 -ref_489 -set!_490)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21356,10 +21439,10 @@ static const char *startup_source = " '()" " #f" " 'parsed-require)))))" -"(values struct:_53 make-_53 ?_53)))" +"(values struct:_486 make-_487 ?_488)))" "(define-values" "(struct:parsed-#%module-begin parsed-#%module-begin24.1 parsed-#%module-begin? parsed-#%module-begin-body)" -"(let-values(((struct:_54 make-_54 ?_54 -ref_54 -set!_54)" +"(let-values(((struct:_501 make-_502 ?_503 -ref_504 -set!_505)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21374,7 +21457,7 @@ static const char *startup_source = " '(0)" " #f" " 'parsed-#%module-begin)))))" -"(values struct:_54 make-_54 ?_54(make-struct-field-accessor -ref_54 0 'body))))" +"(values struct:_501 make-_502 ?_503(make-struct-field-accessor -ref_504 0 'body))))" "(define-values" "(struct:parsed-module" " parsed-module25.1" @@ -21389,7 +21472,7 @@ static const char *startup_source = " parsed-module-body" " parsed-module-compiled-module" " parsed-module-compiled-submodules)" -"(let-values(((struct:_55 make-_55 ?_55 -ref_55 -set!_55)" +"(let-values(((struct:_521 make-_522 ?_523 -ref_524 -set!_525)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21405,45 +21488,45 @@ static const char *startup_source = " #f" " 'parsed-module)))))" "(values" -" struct:_55" -" make-_55" -" ?_55" -"(make-struct-field-accessor -ref_55 0 'star?)" -"(make-struct-field-accessor -ref_55 1 'name-id)" -"(make-struct-field-accessor -ref_55 2 'self)" -"(make-struct-field-accessor -ref_55 3 'requires)" -"(make-struct-field-accessor -ref_55 4 'provides)" -"(make-struct-field-accessor -ref_55 5 'root-ctx-simple?)" -"(make-struct-field-accessor -ref_55 6 'encoded-root-ctx)" -"(make-struct-field-accessor -ref_55 7 'body)" -"(make-struct-field-accessor -ref_55 8 'compiled-module)" -"(make-struct-field-accessor -ref_55 9 'compiled-submodules))))" +" struct:_521" +" make-_522" +" ?_523" +"(make-struct-field-accessor -ref_524 0 'star?)" +"(make-struct-field-accessor -ref_524 1 'name-id)" +"(make-struct-field-accessor -ref_524 2 'self)" +"(make-struct-field-accessor -ref_524 3 'requires)" +"(make-struct-field-accessor -ref_524 4 'provides)" +"(make-struct-field-accessor -ref_524 5 'root-ctx-simple?)" +"(make-struct-field-accessor -ref_524 6 'encoded-root-ctx)" +"(make-struct-field-accessor -ref_524 7 'body)" +"(make-struct-field-accessor -ref_524 8 'compiled-module)" +"(make-struct-field-accessor -ref_524 9 'compiled-submodules))))" "(define-values" "(module-path->mpi5.1)" -"(lambda(declared-submodule-names1_0 mod-path3_0 self4_2)" +"(lambda(declared-submodule-names1_0 mod-path3_0 self4_0)" "(begin" " 'module-path->mpi5" "(let-values(((mod-path_4) mod-path3_0))" -"(let-values(((self_7) self4_2))" -"(let-values(((declared-submodule-names_1)" +"(let-values(((self_5) self4_0))" +"(let-values(((declared-submodule-names_6)" "(if(eq? declared-submodule-names1_0 unsafe-undefined) '#hasheq() declared-submodule-names1_0)))" "(let-values()" "(if(if(list? mod-path_4)" "(if(= 2(length mod-path_4))" "(if(eq? 'quote(car mod-path_4))" -"(if(symbol?(cadr mod-path_4))(hash-ref declared-submodule-names_1(cadr mod-path_4) #f) #f)" +"(if(symbol?(cadr mod-path_4))(hash-ref declared-submodule-names_6(cadr mod-path_4) #f) #f)" " #f)" " #f)" " #f)" -" (let-values () (1/module-path-index-join (list 'submod \".\" (cadr mod-path_4)) self_7))" +" (let-values () (1/module-path-index-join (list 'submod \".\" (cadr mod-path_4)) self_5))" "(if(if(list? mod-path_4)" "(if(eq? 'submod(car mod-path_4))" -"(let-values(((mod-path_5)(cadr mod-path_4)))" -"(if(list? mod-path_5)" -"(if(= 2(length mod-path_5))" -"(if(eq? 'quote(car mod-path_5))" -"(if(symbol?(cadr mod-path_5))" -"(hash-ref declared-submodule-names_1(cadr mod-path_5) #f)" +"(let-values(((mod-path_7)(cadr mod-path_4)))" +"(if(list? mod-path_7)" +"(if(= 2(length mod-path_7))" +"(if(eq? 'quote(car mod-path_7))" +"(if(symbol?(cadr mod-path_7))" +"(hash-ref declared-submodule-names_6(cadr mod-path_7) #f)" " #f)" " #f)" " #f)" @@ -21451,51 +21534,51 @@ static const char *startup_source = " #f)" " #f)" "(let-values()" -" (1/module-path-index-join (list* 'submod \".\" (cadr (cadr mod-path_4)) (cddr mod-path_4)) self_7))" -"(let-values()(1/module-path-index-join mod-path_4 self_7)))))))))))" +" (1/module-path-index-join (list* 'submod \".\" (cadr (cadr mod-path_4)) (cddr mod-path_4)) self_5))" +"(let-values()(1/module-path-index-join mod-path_4 self_5)))))))))))" "(define-values" "(module-path->mpi/context)" -"(lambda(mod-path_6 ctx_9)" +"(lambda(mod-path_0 ctx_0)" "(begin" -"(let-values(((mod-path8_1) mod-path_6)" -"((temp9_0)(namespace-mpi(expand-context-namespace ctx_9)))" -"((temp10_2)(expand-context-declared-submodule-names ctx_9)))" -"(module-path->mpi5.1 temp10_2 mod-path8_1 temp9_0)))))" +"(let-values(((mod-path8_28) mod-path_0)" +"((temp9_29)(namespace-mpi(expand-context-namespace ctx_0)))" +"((temp10_30)(expand-context-declared-submodule-names ctx_0)))" +"(module-path->mpi5.1 temp10_30 mod-path8_28 temp9_29)))))" "(define-values" "(syntax-mapped-names)" -"(lambda(s_0 phase_45)" +"(lambda(s_0 phase_0)" "(begin" -"(let-values(((s-scs_1)(syntax-scope-set s_0 phase_45)))" -"(let-values(((ht_98) s-scs_1))" +"(let-values(((s-scs_3)(syntax-scope-set s_0 phase_0)))" +"(let-values(((ht_4) s-scs_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_98)))" -"((letrec-values(((for-loop_117)" -"(lambda(syms_14 i_126)" +"(let-values()(check-in-immutable-hash-keys ht_4)))" +"((letrec-values(((for-loop_5)" +"(lambda(syms_0 i_0)" "(begin" " 'for-loop" -"(if i_126" -"(let-values(((sc_31)(unsafe-immutable-hash-iterate-key ht_98 i_126)))" -"(let-values(((syms_15)" -"(let-values(((syms_16) syms_14))" -"(let-values(((syms_17)" +"(if i_0" +"(let-values(((sc_8)(unsafe-immutable-hash-iterate-key ht_4 i_0)))" +"(let-values(((syms_9)" +"(let-values(((syms_10) syms_0))" +"(let-values(((syms_11)" "(let-values()" "(set-union" -" syms_16" +" syms_10" "(binding-table-symbols" -"(scope-binding-table sc_31)" -" s-scs_1" +"(scope-binding-table sc_8)" +" s-scs_3" " s_0" " null)))))" -"(values syms_17)))))" +"(values syms_11)))))" "(if(not #f)" -"(for-loop_117 syms_15(unsafe-immutable-hash-iterate-next ht_98 i_126))" -" syms_15)))" -" syms_14)))))" -" for-loop_117)" +"(for-loop_5 syms_9(unsafe-immutable-hash-iterate-next ht_4 i_0))" +" syms_9)))" +" syms_0)))))" +" for-loop_5)" "(seteq)" -"(unsafe-immutable-hash-iterate-first ht_98))))))))" +"(unsafe-immutable-hash-iterate-first ht_4))))))))" "(define-values" "(struct:requires+provides" " requires+provides1.1" @@ -21511,7 +21594,7 @@ static const char *startup_source = " requires+provides-all-bindings-simple?" " set-requires+provides-can-cross-phase-persistent?!" " set-requires+provides-all-bindings-simple?!)" -"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)" +"(let-values(((struct:_36 make-_37 ?_38 -ref_39 -set!_40)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21527,23 +21610,23 @@ static const char *startup_source = " #f" " 'requires+provides)))))" "(values" -" struct:_56" -" make-_56" -" ?_56" -"(make-struct-field-accessor -ref_56 0 'self)" -"(make-struct-field-accessor -ref_56 1 'require-mpis)" -"(make-struct-field-accessor -ref_56 2 'require-mpis-in-order)" -"(make-struct-field-accessor -ref_56 3 'requires)" -"(make-struct-field-accessor -ref_56 4 'provides)" -"(make-struct-field-accessor -ref_56 5 'phase-to-defined-syms)" -"(make-struct-field-accessor -ref_56 6 'also-required)" -"(make-struct-field-accessor -ref_56 7 'can-cross-phase-persistent?)" -"(make-struct-field-accessor -ref_56 8 'all-bindings-simple?)" -"(make-struct-field-mutator -set!_56 7 'can-cross-phase-persistent?)" -"(make-struct-field-mutator -set!_56 8 'all-bindings-simple?))))" +" struct:_36" +" make-_37" +" ?_38" +"(make-struct-field-accessor -ref_39 0 'self)" +"(make-struct-field-accessor -ref_39 1 'require-mpis)" +"(make-struct-field-accessor -ref_39 2 'require-mpis-in-order)" +"(make-struct-field-accessor -ref_39 3 'requires)" +"(make-struct-field-accessor -ref_39 4 'provides)" +"(make-struct-field-accessor -ref_39 5 'phase-to-defined-syms)" +"(make-struct-field-accessor -ref_39 6 'also-required)" +"(make-struct-field-accessor -ref_39 7 'can-cross-phase-persistent?)" +"(make-struct-field-accessor -ref_39 8 'all-bindings-simple?)" +"(make-struct-field-mutator -set!_40 7 'can-cross-phase-persistent?)" +"(make-struct-field-mutator -set!_40 8 'all-bindings-simple?))))" "(define-values" "(struct:required required2.1 required? required-id required-phase required-can-be-shadowed? required-as-transformer?)" -"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)" +"(let-values(((struct:_96 make-_97 ?_98 -ref_99 -set!_100)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21559,16 +21642,16 @@ static const char *startup_source = " #f" " 'required)))))" "(values" -" struct:_57" -" make-_57" -" ?_57" -"(make-struct-field-accessor -ref_57 0 'id)" -"(make-struct-field-accessor -ref_57 1 'phase)" -"(make-struct-field-accessor -ref_57 2 'can-be-shadowed?)" -"(make-struct-field-accessor -ref_57 3 'as-transformer?))))" +" struct:_96" +" make-_97" +" ?_98" +"(make-struct-field-accessor -ref_99 0 'id)" +"(make-struct-field-accessor -ref_99 1 'phase)" +"(make-struct-field-accessor -ref_99 2 'can-be-shadowed?)" +"(make-struct-field-accessor -ref_99 3 'as-transformer?))))" "(define-values" "(struct:nominal nominal3.1 nominal? nominal-module nominal-provide-phase nominal-require-phase nominal-sym)" -"(let-values(((struct:_58 make-_58 ?_58 -ref_58 -set!_58)" +"(let-values(((struct:_131 make-_132 ?_133 -ref_134 -set!_135)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21584,13 +21667,13 @@ static const char *startup_source = " #f" " 'nominal)))))" "(values" -" struct:_58" -" make-_58" -" ?_58" -"(make-struct-field-accessor -ref_58 0 'module)" -"(make-struct-field-accessor -ref_58 1 'provide-phase)" -"(make-struct-field-accessor -ref_58 2 'require-phase)" -"(make-struct-field-accessor -ref_58 3 'sym))))" +" struct:_131" +" make-_132" +" ?_133" +"(make-struct-field-accessor -ref_134 0 'module)" +"(make-struct-field-accessor -ref_134 1 'provide-phase)" +"(make-struct-field-accessor -ref_134 2 'require-phase)" +"(make-struct-field-accessor -ref_134 3 'sym))))" "(define-values" "(struct:bulk-required" " bulk-required4.1" @@ -21600,7 +21683,7 @@ static const char *startup_source = " bulk-required-s" " bulk-required-provide-phase-level" " bulk-required-can-be-shadowed?)" -"(let-values(((struct:_59 make-_59 ?_59 -ref_59 -set!_59)" +"(let-values(((struct:_166 make-_167 ?_168 -ref_169 -set!_170)" "(let-values()" "(let-values()" "(make-struct-type" @@ -21616,26 +21699,26 @@ static const char *startup_source = " #f" " 'bulk-required)))))" "(values" -" struct:_59" -" make-_59" -" ?_59" -"(make-struct-field-accessor -ref_59 0 'provides)" -"(make-struct-field-accessor -ref_59 1 'prefix-len)" -"(make-struct-field-accessor -ref_59 2 's)" -"(make-struct-field-accessor -ref_59 3 'provide-phase-level)" -"(make-struct-field-accessor -ref_59 4 'can-be-shadowed?))))" +" struct:_166" +" make-_167" +" ?_168" +"(make-struct-field-accessor -ref_169 0 'provides)" +"(make-struct-field-accessor -ref_169 1 'prefix-len)" +"(make-struct-field-accessor -ref_169 2 's)" +"(make-struct-field-accessor -ref_169 3 'provide-phase-level)" +"(make-struct-field-accessor -ref_169 4 'can-be-shadowed?))))" "(define-values" "(make-requires+provides8.1)" "(lambda(copy-requires5_0 self7_0)" "(begin" " 'make-requires+provides8" -"(let-values(((self_2) self7_0))" -"(let-values(((copy-r+p_0) copy-requires5_0))" +"(let-values(((self_208) self7_0))" +"(let-values(((copy-r+p_209) copy-requires5_0))" "(let-values()" "(requires+provides1.1" -" self_2" -"(if copy-r+p_0(requires+provides-require-mpis copy-r+p_0)(make-module-path-index-intern-table))" -"(if copy-r+p_0(hash-copy(requires+provides-require-mpis-in-order copy-r+p_0))(make-hasheqv))" +" self_208" +"(if copy-r+p_209(requires+provides-require-mpis copy-r+p_209)(make-module-path-index-intern-table))" +"(if copy-r+p_209(hash-copy(requires+provides-require-mpis-in-order copy-r+p_209))(make-hasheqv))" "(make-hasheq)" "(make-hasheqv)" "(make-hasheqv)" @@ -21653,65 +21736,65 @@ static const char *startup_source = "(hash-clear!(requires+provides-also-required r+p_0))))))" "(define-values" "(intern-mpi)" -"(lambda(r+p_1 mpi_29)(begin(intern-module-path-index!(requires+provides-require-mpis r+p_1) mpi_29))))" +"(lambda(r+p_0 mpi_0)(begin(intern-module-path-index!(requires+provides-require-mpis r+p_0) mpi_0))))" "(define-values" "(add-required-module!)" -"(lambda(r+p_2 mod-name_8 phase-shift_2 is-cross-phase-persistent?_0)" +"(lambda(r+p_0 mod-name_0 phase-shift_0 is-cross-phase-persistent?_0)" "(begin" -"(let-values(((mpi_30)(intern-mpi r+p_2 mod-name_8)))" +"(let-values(((mpi_231)(intern-mpi r+p_0 mod-name_0)))" "(begin" -"(if(hash-ref(hash-ref(requires+provides-requires r+p_2) mpi_30 '#hasheqv()) phase-shift_2 #f)" +"(if(hash-ref(hash-ref(requires+provides-requires r+p_0) mpi_231 '#hasheqv()) phase-shift_0 #f)" "(void)" "(let-values()" "(begin" "(hash-update!" -"(requires+provides-require-mpis-in-order r+p_2)" -" phase-shift_2" -"(lambda(l_52)(cons mpi_30 l_52))" +"(requires+provides-require-mpis-in-order r+p_0)" +" phase-shift_0" +"(lambda(l_0)(cons mpi_231 l_0))" " null)" "(hash-set!" -"(hash-ref!(requires+provides-requires r+p_2) mpi_30 make-hasheqv)" -" phase-shift_2" +"(hash-ref!(requires+provides-requires r+p_0) mpi_231 make-hasheqv)" +" phase-shift_0" "(make-hasheq)))))" "(if is-cross-phase-persistent?_0" "(void)" -"(let-values()(set-requires+provides-can-cross-phase-persistent?! r+p_2 #f)))" -" mpi_30)))))" +"(let-values()(set-requires+provides-can-cross-phase-persistent?! r+p_0 #f)))" +" mpi_231)))))" "(define-values" "(add-defined-or-required-id!19.1)" "(lambda(as-transformer?12_0 can-be-shadowed?11_0 r+p15_0 id16_0 phase17_0 binding18_0)" "(begin" " 'add-defined-or-required-id!19" -"(let-values(((r+p_3) r+p15_0))" -"(let-values(((id_24) id16_0))" -"(let-values(((phase_53) phase17_0))" -"(let-values(((binding_11) binding18_0))" -"(let-values(((can-be-shadowed?_0) can-be-shadowed?11_0))" -"(let-values(((as-transformer?_0) as-transformer?12_0))" +"(let-values(((r+p_249) r+p15_0))" +"(let-values(((id_250) id16_0))" +"(let-values(((phase_251) phase17_0))" +"(let-values(((binding_252) binding18_0))" +"(let-values(((can-be-shadowed?_253) can-be-shadowed?11_0))" +"(let-values(((as-transformer?_254) as-transformer?12_0))" "(let-values()" "(begin" "(if(equal?" -" phase_53" +" phase_251" "(phase+" -"(module-binding-nominal-phase binding_11)" -"(module-binding-nominal-require-phase binding_11)))" +"(module-binding-nominal-phase binding_252)" +"(module-binding-nominal-require-phase binding_252)))" "(void)" " (let-values () (error \"internal error: binding phase does not match nominal info\")))" -"(let-values(((r+p124_0) r+p_3)" -"((id125_0) id_24)" -"((phase126_0) phase_53)" -"((temp127_0)(module-binding-nominal-module binding_11))" -"((temp128_0)(module-binding-nominal-require-phase binding_11))" -"((can-be-shadowed?129_0) can-be-shadowed?_0)" -"((as-transformer?130_0) as-transformer?_0))" +"(let-values(((r+p124_256) r+p_249)" +"((id125_257) id_250)" +"((phase126_258) phase_251)" +"((temp127_259)(module-binding-nominal-module binding_252))" +"((temp128_260)(module-binding-nominal-require-phase binding_252))" +"((can-be-shadowed?129_261) can-be-shadowed?_253)" +"((as-transformer?130_262) as-transformer?_254))" "(add-defined-or-required-id-at-nominal!33.1" -" as-transformer?130_0" -" can-be-shadowed?129_0" -" temp127_0" -" temp128_0" -" r+p124_0" -" id125_0" -" phase126_0)))))))))))))" +" as-transformer?130_262" +" can-be-shadowed?129_261" +" temp127_259" +" temp128_260" +" r+p124_256" +" id125_257" +" phase126_258)))))))))))))" "(define-values" "(add-defined-or-required-id-at-nominal!33.1)" "(lambda(as-transformer?25_0" @@ -21723,27 +21806,27 @@ static const char *startup_source = " phase32_0)" "(begin" " 'add-defined-or-required-id-at-nominal!33" -"(let-values(((r+p_4) r+p30_0))" -"(let-values(((id_25) id31_0))" -"(let-values(((phase_54) phase32_0))" -"(let-values(((nominal-module_6) nominal-module22_0))" -"(let-values(((nominal-require-phase_4) nominal-require-phase23_0))" -"(let-values(((can-be-shadowed?_1) can-be-shadowed?24_0))" -"(let-values(((as-transformer?_1) as-transformer?25_0))" +"(let-values(((r+p_297) r+p30_0))" +"(let-values(((id_298) id31_0))" +"(let-values(((phase_299) phase32_0))" +"(let-values(((nominal-module_300) nominal-module22_0))" +"(let-values(((nominal-require-phase_301) nominal-require-phase23_0))" +"(let-values(((can-be-shadowed?_302) can-be-shadowed?24_0))" +"(let-values(((as-transformer?_303) as-transformer?25_0))" "(let-values()" -"(let-values(((at-mod_0)" +"(let-values(((at-mod_304)" "(hash-ref!" -"(requires+provides-requires r+p_4)" -"(intern-mpi r+p_4 nominal-module_6)" +"(requires+provides-requires r+p_297)" +"(intern-mpi r+p_297 nominal-module_300)" " make-hasheqv)))" -"(let-values(((sym-to-reqds_0)(hash-ref! at-mod_0 nominal-require-phase_4 make-hasheq)))" -"(let-values(((sym_34)(syntax-e$1 id_25)))" +"(let-values(((sym-to-reqds_305)(hash-ref! at-mod_304 nominal-require-phase_301 make-hasheq)))" +"(let-values(((sym_306)(syntax-e$1 id_298)))" "(hash-set!" -" sym-to-reqds_0" -" sym_34" +" sym-to-reqds_305" +" sym_306" "(cons-ish" -"(required2.1 id_25 phase_54 can-be-shadowed?_1 as-transformer?_1)" -"(hash-ref sym-to-reqds_0 sym_34 null)))))))))))))))))" +"(required2.1 id_298 phase_299 can-be-shadowed?_302 as-transformer?_303)" +"(hash-ref sym-to-reqds_305 sym_306 null)))))))))))))))))" "(define-values" "(add-bulk-required-ids!59.1)" "(lambda(accum-update-nominals42_0" @@ -21763,240 +21846,241 @@ static const char *startup_source = " provide-phase-level58_0)" "(begin" " 'add-bulk-required-ids!59" -"(let-values(((r+p_5) r+p52_0))" -"(let-values(((s_114) s53_0))" -"(let-values(((self_8) self54_0))" -"(let-values(((nominal-module_7) nominal-module55_0))" -"(let-values(((phase-shift_6) phase-shift56_0))" -"(let-values(((provides_4) provides57_0))" -"(let-values(((provide-phase-level_3) provide-phase-level58_0))" -"(let-values(((bulk-prefix_0) prefix36_0))" -"(let-values(((bulk-excepts_0) excepts37_0))" -"(let-values(((symbols-accum_0) symbols-accum38_0))" -"(let-values(((orig-s_0) in39_0))" -"(let-values(((can-be-shadowed?_2) can-be-shadowed?40_0))" -"(let-values(((check-and-remove?_0) check-and-remove?41_0))" -"(let-values(((accum-update-nominals_0) accum-update-nominals42_0))" -"(let-values(((who_11) who43_0))" +"(let-values(((r+p_364) r+p52_0))" +"(let-values(((s_365) s53_0))" +"(let-values(((self_366) self54_0))" +"(let-values(((nominal-module_367) nominal-module55_0))" +"(let-values(((phase-shift_368) phase-shift56_0))" +"(let-values(((provides_369) provides57_0))" +"(let-values(((provide-phase-level_370) provide-phase-level58_0))" +"(let-values(((bulk-prefix_371) prefix36_0))" +"(let-values(((bulk-excepts_372) excepts37_0))" +"(let-values(((symbols-accum_373) symbols-accum38_0))" +"(let-values(((orig-s_374) in39_0))" +"(let-values(((can-be-shadowed?_375) can-be-shadowed?40_0))" +"(let-values(((check-and-remove?_376) check-and-remove?41_0))" +"(let-values(((accum-update-nominals_377) accum-update-nominals42_0))" +"(let-values(((who_378) who43_0))" "(let-values()" -"(let-values(((phase_55)(phase+ provide-phase-level_3 phase-shift_6)))" -"(let-values(((shortcut-table_0)" -"(if check-and-remove?_0" -"(if(>(hash-count provides_4) 64)" -"(syntax-mapped-names s_114 phase_55)" +"(let-values(((phase_379)(phase+ provide-phase-level_370 phase-shift_368)))" +"(let-values(((shortcut-table_380)" +"(if check-and-remove?_376" +"(if(>(hash-count provides_369) 64)" +"(syntax-mapped-names s_365 phase_379)" " #f)" " #f)))" -"(let-values(((mpi_13)(intern-mpi r+p_5 nominal-module_7)))" -"(let-values(((at-mod_1)" +"(let-values(((mpi_381)(intern-mpi r+p_364 nominal-module_367)))" +"(let-values(((at-mod_382)" "(hash-ref!" -"(requires+provides-requires r+p_5)" -" mpi_13" +"(requires+provides-requires r+p_364)" +" mpi_381" " make-hasheqv)))" -"(let-values(((sym-to-reqds_1)" -"(hash-ref! at-mod_1 phase-shift_6 make-hasheq)))" -"(let-values(((prefix-len_0)" -"(if bulk-prefix_0" -"(string-length(symbol->string bulk-prefix_0))" +"(let-values(((sym-to-reqds_383)" +"(hash-ref! at-mod_382 phase-shift_368 make-hasheq)))" +"(let-values(((prefix-len_384)" +"(if bulk-prefix_371" +"(string-length(symbol->string bulk-prefix_371))" " 0)))" -"(let-values(((br_0)" +"(let-values(((br_385)" "(bulk-required4.1" -" provides_4" -" prefix-len_0" -" s_114" -" provide-phase-level_3" -" can-be-shadowed?_2)))" -"(let-values(((ht_99) provides_4))" +" provides_369" +" prefix-len_384" +" s_365" +" provide-phase-level_370" +" can-be-shadowed?_375)))" +"(let-values(((ht_386) provides_369))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_99)))" -"((letrec-values(((for-loop_156)" -"(lambda(result_71 i_127)" +"(let-values()(check-in-hash ht_386)))" +"((letrec-values(((for-loop_387)" +"(lambda(result_0 i_0)" "(begin" " 'for-loop" -"(if i_127" -"(let-values(((out-sym_0 binding/p_2)" +"(if i_0" +"(let-values(((out-sym_390" +" binding/p_391)" "(hash-iterate-key+value" -" ht_99" -" i_127)))" -"(let-values(((result_72)" -"(let-values(((result_73)" -" result_71))" +" ht_386" +" i_0)))" +"(let-values(((result_392)" +"(let-values(((result_393)" +" result_0))" "(if(not" "(symbol-interned?" -" out-sym_0))" -" result_73" +" out-sym_390))" +" result_393" "(let-values()" -"(let-values(((result_74)" +"(let-values(((result_395)" "(let-values()" "(let-values()" "(begin" -"(if symbols-accum_0" +"(if symbols-accum_373" "(let-values()" "(hash-set!" -" symbols-accum_0" -" out-sym_0" +" symbols-accum_373" +" out-sym_390" " #t))" "(void))" "(if(hash-ref" -" bulk-excepts_0" -" out-sym_0" +" bulk-excepts_372" +" out-sym_390" " #f)" "(let-values()" " #f)" "(let-values()" -"(let-values(((sym_35)" +"(let-values(((sym_396)" "(if(not" -" bulk-prefix_0)" +" bulk-prefix_371)" "(let-values()" -" out-sym_0)" +" out-sym_390)" "(let-values()" "(string->symbol" "(format" " \"~a~a\"" -" bulk-prefix_0" -" out-sym_0))))))" -"(let-values(((already-defined?_0)" -"(if(if check-and-remove?_0" -"(let-values(((or-part_175)" +" bulk-prefix_371" +" out-sym_390))))))" +"(let-values(((already-defined?_397)" +"(if(if check-and-remove?_376" +"(let-values(((or-part_398)" "(not" -" shortcut-table_0)))" -"(if or-part_175" -" or-part_175" +" shortcut-table_380)))" +"(if or-part_398" +" or-part_398" "(hash-ref" -" shortcut-table_0" -" sym_35" +" shortcut-table_380" +" sym_396" " #f)))" " #f)" "(let-values()" -"(let-values(((temp131_0)" +"(let-values(((temp131_400)" " #t)" -"((temp132_0)" +"((temp132_401)" " #t)" -"((r+p133_0)" -" r+p_5)" -"((temp134_0)" +"((r+p133_402)" +" r+p_364)" +"((temp134_403)" "(datum->syntax$1" -" s_114" -" sym_35" -" s_114))" -"((phase135_0)" -" phase_55)" -"((orig-s136_0)" -" orig-s_0)" -"((temp137_0)" +" s_365" +" sym_396" +" s_365))" +"((phase135_404)" +" phase_379)" +"((orig-s136_405)" +" orig-s_374)" +"((temp137_406)" "(lambda()" -"(let-values(((binding/p141_0)" -" binding/p_2)" -"((sym142_0)" -" sym_35)" -"((self143_0)" -" self_8)" -"((mpi144_0)" -" mpi_13)" -"((provide-phase-level145_0)" -" provide-phase-level_3)" -"((phase-shift146_0)" -" phase-shift_6))" +"(let-values(((binding/p141_411)" +" binding/p_391)" +"((sym142_412)" +" sym_396)" +"((self143_413)" +" self_366)" +"((mpi144_414)" +" mpi_381)" +"((provide-phase-level145_415)" +" provide-phase-level_370)" +"((phase-shift146_416)" +" phase-shift_368))" "(provide-binding-to-require-binding11.1" -" mpi144_0" -" phase-shift146_0" -" provide-phase-level145_0" -" self143_0" -" binding/p141_0" -" sym142_0))))" -"((temp138_0)" +" mpi144_414" +" phase-shift146_416" +" provide-phase-level145_415" +" self143_413" +" binding/p141_411" +" sym142_412))))" +"((temp138_407)" " #t)" -"((accum-update-nominals139_0)" -" accum-update-nominals_0)" -"((who140_0)" -" who_11))" +"((accum-update-nominals139_408)" +" accum-update-nominals_377)" +"((who140_409)" +" who_378))" "(check-not-defined95.1" -" accum-update-nominals139_0" -" temp132_0" -" temp131_0" -" orig-s136_0" -" temp138_0" -" temp137_0" -" who140_0" -" r+p133_0" -" temp134_0" -" phase135_0)))" +" accum-update-nominals139_408" +" temp132_401" +" temp131_400" +" orig-s136_405" +" temp138_407" +" temp137_406" +" who140_409" +" r+p133_402" +" temp134_403" +" phase135_404)))" "(let-values()" " #f))))" "(begin" -"(if already-defined?_0" +"(if already-defined?_397" "(void)" "(let-values()" "(hash-set!" -" sym-to-reqds_1" -" sym_35" +" sym-to-reqds_383" +" sym_396" "(cons-ish" -" br_0" +" br_385" "(hash-ref" -" sym-to-reqds_1" -" sym_35" +" sym-to-reqds_383" +" sym_396" " null)))))" -" already-defined?_0))))))))))" +" already-defined?_397))))))))))" "(values" -" result_74)))))))" +" result_395)))))))" "(if(if(not" -"((lambda x_53 result_72)" -" out-sym_0" -" binding/p_2))" +"((lambda x_0 result_392)" +" out-sym_390" +" binding/p_391))" "(not #f)" " #f)" -"(for-loop_156" -" result_72" -"(hash-iterate-next ht_99 i_127))" -" result_72)))" -" result_71)))))" -" for-loop_156)" +"(for-loop_387" +" result_392" +"(hash-iterate-next ht_386 i_0))" +" result_392)))" +" result_0)))))" +" for-loop_387)" " #f" -"(hash-iterate-first ht_99))))))))))))))))))))))))))))))" +"(hash-iterate-first ht_386))))))))))))))))))))))))))))))" "(define-values" "(bulk-required->required)" -"(lambda(br_1 nominal-module_8 phase_56 sym_36)" +"(lambda(br_0 nominal-module_0 phase_0 sym_0)" "(begin" -"(let-values(((prefix-len_1)(bulk-required-prefix-len br_1)))" -"(let-values(((out-sym_1)" -"(if(zero? prefix-len_1)" -" sym_36" -"(string->symbol(substring(symbol->string sym_36) prefix-len_1)))))" -"(let-values(((binding/p_3)(hash-ref(bulk-required-provides br_1) out-sym_1)))" +"(let-values(((prefix-len_472)(bulk-required-prefix-len br_0)))" +"(let-values(((out-sym_473)" +"(if(zero? prefix-len_472)" +" sym_0" +"(string->symbol(substring(symbol->string sym_0) prefix-len_472)))))" +"(let-values(((binding/p_474)(hash-ref(bulk-required-provides br_0) out-sym_473)))" "(required2.1" -"(datum->syntax$1(bulk-required-s br_1) sym_36)" -"(phase+ phase_56(bulk-required-provide-phase-level br_1))" -"(bulk-required-can-be-shadowed? br_1)" -"(provided-as-transformer? binding/p_3))))))))" +"(datum->syntax$1(bulk-required-s br_0) sym_0)" +"(phase+ phase_0(bulk-required-provide-phase-level br_0))" +"(bulk-required-can-be-shadowed? br_0)" +"(provided-as-transformer? binding/p_474))))))))" "(define-values" "(normalize-required)" -"(lambda(r_32 mod-name_9 phase_57 sym_37)" -"(begin(if(bulk-required? r_32)(bulk-required->required r_32 mod-name_9 phase_57 sym_37) r_32))))" +"(lambda(r_0 mod-name_0 phase_0 sym_0)" +"(begin(if(bulk-required? r_0)(bulk-required->required r_0 mod-name_0 phase_0 sym_0) r_0))))" "(define-values" "(add-enclosing-module-defined-and-required!67.1)" "(lambda(enclosing-requires+provides62_0 r+p64_0 enclosing-mod65_0 phase-shift66_0)" "(begin" " 'add-enclosing-module-defined-and-required!67" -"(let-values(((r+p_6) r+p64_0))" -"(let-values(((enclosing-r+p_0) enclosing-requires+provides62_0))" -"(let-values(((enclosing-mod_0) enclosing-mod65_0))" -"(let-values(((phase-shift_7) phase-shift66_0))" +"(let-values(((r+p_491) r+p64_0))" +"(let-values(((enclosing-r+p_492) enclosing-requires+provides62_0))" +"(let-values(((enclosing-mod_493) enclosing-mod65_0))" +"(let-values(((phase-shift_494) phase-shift66_0))" "(let-values()" "(begin" -"(set-requires+provides-all-bindings-simple?! r+p_6 #f)" -"(let-values(((ht_100)(requires+provides-requires enclosing-r+p_0)))" +"(set-requires+provides-all-bindings-simple?! r+p_491 #f)" +"(let-values(((ht_495)(requires+provides-requires enclosing-r+p_492)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_100)))" -"((letrec-values(((for-loop_157)" -"(lambda(i_128)" +"(let-values()(check-in-hash ht_495)))" +"((letrec-values(((for-loop_496)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_128" -"(let-values(((mod-name_10 at-mod_2)" -"(hash-iterate-key+value ht_100 i_128)))" +"(if i_0" +"(let-values(((mod-name_498 at-mod_499)" +"(hash-iterate-key+value ht_495 i_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -22004,66 +22088,67 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((ht_101) at-mod_2))" +"(let-values(((ht_500)" +" at-mod_499))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_101)))" -"((letrec-values(((for-loop_158)" -"(lambda(i_129)" +"(check-in-hash ht_500)))" +"((letrec-values(((for-loop_501)" +"(lambda(i_1)" "(begin" " 'for-loop" -"(if i_129" -"(let-values(((phase_58" -" at-phase_8)" +"(if i_1" +"(let-values(((phase_503" +" at-phase_504)" "(hash-iterate-key+value" -" ht_101" -" i_129)))" +" ht_500" +" i_1)))" "(let-values((()" -"(let-values(((ht_102)" -" at-phase_8))" +"(let-values(((ht_505)" +" at-phase_504))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash" -" ht_102)))" -"((letrec-values(((for-loop_159)" -"(lambda(i_117)" +" ht_505)))" +"((letrec-values(((for-loop_506)" +"(lambda(i_2)" "(begin" " 'for-loop" -"(if i_117" -"(let-values(((sym_38" -" reqds_0)" +"(if i_2" +"(let-values(((sym_508" +" reqds_509)" "(hash-iterate-key+value" -" ht_102" -" i_117)))" +" ht_505" +" i_2)))" "(let-values((()" -"(let-values(((lst_122)" -" reqds_0))" +"(let-values(((lst_510)" +" reqds_509))" "(begin" "(void)" -"((letrec-values(((for-loop_160)" -"(lambda(lst_123)" +"((letrec-values(((for-loop_511)" +"(lambda(lst_0)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_123))" -"(let-values(((reqd/maybe-bulk_0)" +" lst_0))" +"(let-values(((reqd/maybe-bulk_513)" "(if(pair?" -" lst_123)" +" lst_0)" "(car" -" lst_123)" -" lst_123))" -"((rest_62)" +" lst_0)" +" lst_0))" +"((rest_514)" "(if(pair?" -" lst_123)" +" lst_0)" "(cdr" -" lst_123)" +" lst_0)" " null)))" "(let-values((()" "(let-values()" @@ -22071,200 +22156,199 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((reqd_0)" +"(let-values(((reqd_515)" "(normalize-required" -" reqd/maybe-bulk_0" -" mod-name_10" -" phase_58" -" sym_38)))" -"(let-values(((r+p147_0)" -" r+p_6)" -"((temp148_0)" +" reqd/maybe-bulk_513" +" mod-name_498" +" phase_503" +" sym_508)))" +"(let-values(((r+p147_517)" +" r+p_491)" +"((temp148_518)" "(syntax-shift-phase-level$1" -"(let-values(((temp154_0)" +"(let-values(((temp154_524)" "(required-id" -" reqd_0))" -"((temp155_0)" +" reqd_515))" +"((temp155_525)" "(requires+provides-self" -" enclosing-r+p_0))" -"((enclosing-mod156_0)" -" enclosing-mod_0))" +" enclosing-r+p_492))" +"((enclosing-mod156_526)" +" enclosing-mod_493))" "(syntax-module-path-index-shift13.1" " #f" -" temp154_0" -" temp155_0" -" enclosing-mod156_0" +" temp154_524" +" temp155_525" +" enclosing-mod156_526" " #f))" -" phase-shift_7))" -"((temp149_0)" +" phase-shift_494))" +"((temp149_519)" "(phase+" "(required-phase" -" reqd_0)" -" phase-shift_7))" -"((enclosing-mod150_0)" -" enclosing-mod_0)" -"((phase-shift151_0)" -" phase-shift_7)" -"((temp152_0)" +" reqd_515)" +" phase-shift_494))" +"((enclosing-mod150_520)" +" enclosing-mod_493)" +"((phase-shift151_521)" +" phase-shift_494)" +"((temp152_522)" " #t)" -"((temp153_0)" +"((temp153_523)" "(required-as-transformer?" -" reqd_0)))" +" reqd_515)))" "(add-defined-or-required-id-at-nominal!33.1" -" temp153_0" -" temp152_0" -" enclosing-mod150_0" -" phase-shift151_0" -" r+p147_0" -" temp148_0" -" temp149_0))))" +" temp153_523" +" temp152_522" +" enclosing-mod150_520" +" phase-shift151_521" +" r+p147_517" +" temp148_518" +" temp149_519))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_160" -" rest_62)" +"(for-loop_511" +" rest_514)" "(values))))" "(values))))))" -" for-loop_160)" -" lst_122)))))" +" for-loop_511)" +" lst_510)))))" "(if(not" " #f)" -"(for-loop_159" +"(for-loop_506" "(hash-iterate-next" -" ht_102" -" i_117))" +" ht_505" +" i_2))" "(values))))" "(values))))))" -" for-loop_159)" +" for-loop_506)" "(hash-iterate-first" -" ht_102))))))" +" ht_505))))))" "(if(not" " #f)" -"(for-loop_158" +"(for-loop_501" "(hash-iterate-next" -" ht_101" -" i_129))" +" ht_500" +" i_1))" "(values))))" "(values))))))" -" for-loop_158)" +" for-loop_501)" "(hash-iterate-first" -" ht_101))))" +" ht_500))))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)" -"(for-loop_157(hash-iterate-next ht_100 i_128))" -"(values))))" +"(if(not #f)(for-loop_496(hash-iterate-next ht_495 i_0))(values))))" "(values))))))" -" for-loop_157)" -"(hash-iterate-first ht_100))))" +" for-loop_496)" +"(hash-iterate-first ht_495))))" "(void))))))))))" "(define-values" "(remove-required-id!75.1)" "(lambda(unless-matches70_0 r+p72_0 id73_0 phase74_0)" "(begin" " 'remove-required-id!75" -"(let-values(((r+p_7) r+p72_0))" -"(let-values(((id_26) id73_0))" -"(let-values(((phase_59) phase74_0))" -"(let-values(((binding_12) unless-matches70_0))" +"(let-values(((r+p_553) r+p72_0))" +"(let-values(((id_554) id73_0))" +"(let-values(((phase_555) phase74_0))" +"(let-values(((binding_556) unless-matches70_0))" "(let-values()" -"(let-values(((b_69)" -"(let-values(((id157_0) id_26)((phase158_0) phase_59)((temp159_0) #t))" -"(resolve+shift28.1 #f temp159_0 null unsafe-undefined #f id157_0 phase158_0))))" -"(if b_69" +"(let-values(((b_557)" +"(let-values(((id157_559) id_554)((phase158_560) phase_555)((temp159_561) #t))" +"(resolve+shift28.1 #f temp159_561 null unsafe-undefined #f id157_559 phase158_560))))" +"(if b_557" "(let-values()" -"(let-values(((mpi_31)(intern-mpi r+p_7(module-binding-nominal-module b_69))))" -"(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_31 #f)))" -"(if at-mod_3" +"(let-values(((mpi_562)(intern-mpi r+p_553(module-binding-nominal-module b_557))))" +"(let-values(((at-mod_563)(hash-ref(requires+provides-requires r+p_553) mpi_562 #f)))" +"(if at-mod_563" "(let-values()" -"(let-values(((nominal-phase_4)(module-binding-nominal-require-phase b_69)))" -"(let-values(((sym-to-reqds_2)(hash-ref at-mod_3 nominal-phase_4 #f)))" -"(if sym-to-reqds_2" +"(let-values(((nominal-phase_564)(module-binding-nominal-require-phase b_557)))" +"(let-values(((sym-to-reqds_565)(hash-ref at-mod_563 nominal-phase_564 #f)))" +"(if sym-to-reqds_565" "(let-values()" -"(let-values(((sym_39)(syntax-e$1 id_26)))" -"(let-values(((l_53)(hash-ref sym-to-reqds_2 sym_39 null)))" -"(if(null? l_53)" +"(let-values(((sym_566)(syntax-e$1 id_554)))" +"(let-values(((l_567)(hash-ref sym-to-reqds_565 sym_566 null)))" +"(if(null? l_567)" "(void)" "(let-values()" -"(if(same-binding? b_69 binding_12)" +"(if(same-binding? b_557 binding_556)" "(void)" "(let-values()" "(hash-set!" -" sym-to-reqds_2" -" sym_39" +" sym-to-reqds_565" +" sym_566" "(remove-non-matching-requireds" -" l_53" -" id_26" -" phase_59" -" mpi_31" -" nominal-phase_4" -" sym_39)))))))))" +" l_567" +" id_554" +" phase_555" +" mpi_562" +" nominal-phase_564" +" sym_566)))))))))" "(void)))))" "(void)))))" "(void)))))))))))" "(define-values" "(remove-non-matching-requireds)" -"(lambda(reqds_1 id_27 phase_60 mpi_32 nominal-phase_5 sym_40)" +"(lambda(reqds_0 id_0 phase_0 mpi_0 nominal-phase_0 sym_0)" "(begin" "(reverse$1" -"(let-values(((lst_124) reqds_1))" +"(let-values(((lst_588) reqds_0))" "(begin" "(void)" -"((letrec-values(((for-loop_161)" -"(lambda(fold-var_109 lst_125)" +"((letrec-values(((for-loop_589)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(not(null? lst_125))" -"(let-values(((r_33)(if(pair? lst_125)(car lst_125) lst_125))" -"((rest_63)(if(pair? lst_125)(cdr lst_125) null)))" -"(let-values(((fold-var_110)" -"(let-values(((r_34)" +"(if(not(null? lst_0))" +"(let-values(((r_592)(if(pair? lst_0)(car lst_0) lst_0))" +"((rest_593)(if(pair? lst_0)(cdr lst_0) null)))" +"(let-values(((fold-var_594)" +"(let-values(((r_595)" "(normalize-required" -" r_33" -" mpi_32" -" nominal-phase_5" -" sym_40)))" +" r_592" +" mpi_0" +" nominal-phase_0" +" sym_0)))" "(begin" " #t" -"((letrec-values(((for-loop_162)" -"(lambda(fold-var_111)" +"((letrec-values(((for-loop_596)" +"(lambda(fold-var_1)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_112)" -"(let-values(((fold-var_113)" -" fold-var_111))" +"(let-values(((fold-var_598)" +"(let-values(((fold-var_599)" +" fold-var_1))" "(if(if(eqv?" -" phase_60" +" phase_0" "(required-phase" -" r_34))" +" r_595))" "(free-identifier=?$1" -"(required-id r_34)" -" id_27" -" phase_60" -" phase_60)" +"(required-id" +" r_595)" +" id_0" +" phase_0" +" phase_0)" " #f)" -" fold-var_113" -"(let-values(((fold-var_114)" -" fold-var_113))" -"(let-values(((fold-var_115)" +" fold-var_599" +"(let-values(((fold-var_600)" +" fold-var_599))" +"(let-values(((fold-var_601)" "(let-values()" "(cons" "(let-values()" -" r_34)" -" fold-var_114))))" +" r_595)" +" fold-var_600))))" "(values" -" fold-var_115)))))))" -" fold-var_112))))))" -" for-loop_162)" -" fold-var_109)))))" -"(if(not #f)(for-loop_161 fold-var_110 rest_63) fold-var_110)))" -" fold-var_109)))))" -" for-loop_161)" +" fold-var_601)))))))" +" fold-var_598))))))" +" for-loop_596)" +" fold-var_0)))))" +"(if(not #f)(for-loop_589 fold-var_594 rest_593) fold-var_594)))" +" fold-var_0)))))" +" for-loop_589)" " null" -" lst_124)))))))" +" lst_588)))))))" "(define-values" "(check-not-defined95.1)" "(lambda(accum-update-nominals83_0" @@ -22279,104 +22363,106 @@ static const char *startup_source = " phase94_0)" "(begin" " 'check-not-defined95" -"(let-values(((check-not-required?_0) check-not-required?78_0))" -"(let-values(((allow-defined?_0) allow-defined?79_0))" -"(let-values(((r+p_8) r+p92_0))" -"(let-values(((id_28) id93_0))" -"(let-values(((phase_61) phase94_0))" -"(let-values(((orig-s_1) in80_0))" -"(let-values(((ok-binding/delayed_0) unless-matches81_0))" -"(let-values(((remove-shadowed!?_0) remove-shadowed!?82_0))" -"(let-values(((accum-update-nominals_1) accum-update-nominals83_0))" -"(let-values(((who_12) who84_0))" +"(let-values(((check-not-required?_620) check-not-required?78_0))" +"(let-values(((allow-defined?_621) allow-defined?79_0))" +"(let-values(((r+p_622) r+p92_0))" +"(let-values(((id_623) id93_0))" +"(let-values(((phase_624) phase94_0))" +"(let-values(((orig-s_625) in80_0))" +"(let-values(((ok-binding/delayed_626) unless-matches81_0))" +"(let-values(((remove-shadowed!?_627) remove-shadowed!?82_0))" +"(let-values(((accum-update-nominals_628) accum-update-nominals83_0))" +"(let-values(((who_629) who84_0))" "(let-values()" -"(let-values(((b_70)" -"(let-values(((id160_0) id_28)((phase161_0) phase_61)((temp162_0) #t))" +"(let-values(((b_630)" +"(let-values(((id160_632) id_623)" +"((phase161_633) phase_624)" +"((temp162_634) #t))" "(resolve+shift28.1" " #f" -" temp162_0" +" temp162_634" " null" " unsafe-undefined" " #f" -" id160_0" -" phase161_0))))" -"(if(not b_70)" +" id160_632" +" phase161_633))))" +"(if(not b_630)" "(let-values() #f)" -"(if(not(module-binding? b_70))" -" (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_28))" +"(if(not(module-binding? b_630))" +" (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_623))" "(let-values()" -"(let-values(((defined?_0)" -"(if b_70" -"(eq?(requires+provides-self r+p_8)(module-binding-module b_70))" +"(let-values(((defined?_635)" +"(if b_630" +"(eq?(requires+provides-self r+p_622)(module-binding-module b_630))" " #f)))" -"(if(if defined?_0" +"(if(if defined?_635" "(not" "(hash-ref" "(hash-ref" -"(requires+provides-phase-to-defined-syms r+p_8)" -" phase_61" +"(requires+provides-phase-to-defined-syms r+p_622)" +" phase_624" " '#hasheq())" -"(module-binding-sym b_70)" +"(module-binding-sym b_630)" " #f))" " #f)" "(let-values() #f)" "(let-values()" -"(let-values(((define-shadowing-require?_0)" -"(if(not defined?_0)(not check-not-required?_0) #f)))" -"(let-values(((mpi_33)" -"(intern-mpi r+p_8(module-binding-nominal-module b_70))))" -"(let-values(((at-mod_4)" -"(hash-ref(requires+provides-requires r+p_8) mpi_33 #f)))" -"(let-values(((ok-binding_0)" -"(if(not define-shadowing-require?_0)" -"(if(procedure? ok-binding/delayed_0)" -"(ok-binding/delayed_0)" -" ok-binding/delayed_0)" +"(let-values(((define-shadowing-require?_636)" +"(if(not defined?_635)(not check-not-required?_620) #f)))" +"(let-values(((mpi_637)" +"(intern-mpi r+p_622(module-binding-nominal-module b_630))))" +"(let-values(((at-mod_638)" +"(hash-ref(requires+provides-requires r+p_622) mpi_637 #f)))" +"(let-values(((ok-binding_639)" +"(if(not define-shadowing-require?_636)" +"(if(procedure? ok-binding/delayed_626)" +"(ok-binding/delayed_626)" +" ok-binding/delayed_626)" " #f)))" -"(let-values(((raise-already-bound_0)" -"(lambda(defined?_1)" +"(let-values(((raise-already-bound_640)" +"(lambda(defined?_0)" "(begin" " 'raise-already-bound" "(raise-syntax-error$1" -" who_12" +" who_629" "(string-append" " \"identifier already \"" -" (if defined?_1 \"defined\" \"required\")" -"(if(zero-phase? phase_61)" +" (if defined?_0 \"defined\" \"required\")" +"(if(zero-phase? phase_624)" " (let-values () \"\")" -"(if(label-phase? phase_61)" +"(if(label-phase? phase_624)" " (let-values () \" for label\")" -"(if(= 1 phase_61)" +"(if(= 1 phase_624)" " (let-values () \" for syntax\")" "(let-values()" -" (format \" for phase ~a\" phase_61))))))" -" orig-s_1" -" id_28)))))" -"(if(if(not at-mod_4)(not define-shadowing-require?_0) #f)" +" (format \" for phase ~a\" phase_624))))))" +" orig-s_625" +" id_623)))))" +"(if(if(not at-mod_638)(not define-shadowing-require?_636) #f)" "(let-values() #f)" -"(if(if ok-binding_0(same-binding? b_70 ok-binding_0) #f)" +"(if(if ok-binding_639(same-binding? b_630 ok-binding_639) #f)" "(let-values()" "(begin" -"(if(same-binding-nominals? b_70 ok-binding_0)" +"(if(same-binding-nominals? b_630 ok-binding_639)" "(void)" "(let-values()" -"(let-values(((update!_0)" +"(let-values(((update!_642)" "(lambda()" "(begin" " 'update!" -"(let-values(((temp163_1) #t)" -"((id164_0) id_28)" -"((temp165_1)" -"(let-values(((ok-binding167_0)" -" ok-binding_0)" -"((temp168_1)" +"(let-values(((temp163_644) #t)" +"((id164_645) id_623)" +"((temp165_646)" +"(let-values(((ok-binding167_649)" +" ok-binding_639)" +"((temp168_650)" "(cons" -" b_70" +" b_630" "(module-binding-extra-nominal-bindings" -" b_70))))" +" b_630))))" "(module-binding-update48.1" " unsafe-undefined" -" temp168_1" +" temp168_650" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" @@ -22386,145 +22472,149 @@ static const char *startup_source = " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" -" ok-binding167_0)))" -"((phase166_1) phase_61))" +" ok-binding167_649)))" +"((phase166_647)" +" phase_624))" "(add-binding!17.1" " #f" -" temp163_1" -" id164_0" -" temp165_1" -" phase166_1))))))" -"(if accum-update-nominals_1" +" temp163_644" +" id164_645" +" temp165_646" +" phase166_647))))))" +"(if accum-update-nominals_628" "(let-values()" "(set-box!" -" accum-update-nominals_1" +" accum-update-nominals_628" "(cons" -" update!_0" -"(unbox accum-update-nominals_1))))" -"(let-values()(update!_0))))))" -" defined?_0))" -"(if(if defined?_0 allow-defined?_0 #f)" +" update!_642" +"(unbox accum-update-nominals_628))))" +"(let-values()(update!_642))))))" +" defined?_635))" +"(if(if defined?_635 allow-defined?_621 #f)" "(let-values()" -"(let-values(((also-required_0)" -"(requires+provides-also-required r+p_8)))" -"(let-values(((prev-b_0)" +"(let-values(((also-required_651)" +"(requires+provides-also-required r+p_622)))" +"(let-values(((prev-b_652)" "(hash-ref" -" also-required_0" -"(module-binding-sym b_70)" +" also-required_651" +"(module-binding-sym b_630)" " #f)))" "(begin" -"(if(if prev-b_0" -"(not(same-binding? ok-binding_0 prev-b_0))" +"(if(if prev-b_652" +"(not(same-binding? ok-binding_639 prev-b_652))" " #f)" -"(let-values()(raise-already-bound_0 #f))" +"(let-values()(raise-already-bound_640 #f))" "(void))" "(hash-set!" -" also-required_0" -"(module-binding-sym b_70)" -" ok-binding_0)" -"(set-requires+provides-all-bindings-simple?! r+p_8 #f)" +" also-required_651" +"(module-binding-sym b_630)" +" ok-binding_639)" +"(set-requires+provides-all-bindings-simple?!" +" r+p_622" +" #f)" " #t))))" "(let-values()" -"(let-values(((nominal-phase_6)" -"(module-binding-nominal-require-phase b_70)))" -"(let-values(((sym-to-reqds_3)" +"(let-values(((nominal-phase_653)" +"(module-binding-nominal-require-phase b_630)))" +"(let-values(((sym-to-reqds_654)" "(hash-ref" -" at-mod_4" -" nominal-phase_6" +" at-mod_638" +" nominal-phase_653" " '#hasheq())))" -"(let-values(((reqds_2)" +"(let-values(((reqds_655)" "(hash-ref" -" sym-to-reqds_3" -"(syntax-e$1 id_28)" +" sym-to-reqds_654" +"(syntax-e$1 id_623)" " null)))" -"(let-values(((only-can-can-shadow-require?_0)" -"(let-values(((lst_126) reqds_2))" +"(let-values(((only-can-can-shadow-require?_656)" +"(let-values(((lst_657) reqds_655))" "(begin" "(void)" -"((letrec-values(((for-loop_163)" -"(lambda(only-can-can-shadow-require?_1" -" lst_127)" +"((letrec-values(((for-loop_658)" +"(lambda(only-can-can-shadow-require?_0" +" lst_0)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_127))" -"(let-values(((r_35)" +" lst_0))" +"(let-values(((r_661)" "(if(pair?" -" lst_127)" +" lst_0)" "(car" -" lst_127)" -" lst_127))" -"((rest_64)" +" lst_0)" +" lst_0))" +"((rest_662)" "(if(pair?" -" lst_127)" +" lst_0)" "(cdr" -" lst_127)" +" lst_0)" " null)))" -"(let-values(((only-can-can-shadow-require?_2)" -"(let-values(((only-can-can-shadow-require?_3)" -" only-can-can-shadow-require?_1))" -"(let-values(((only-can-can-shadow-require?_4)" +"(let-values(((only-can-can-shadow-require?_663)" +"(let-values(((only-can-can-shadow-require?_664)" +" only-can-can-shadow-require?_0))" +"(let-values(((only-can-can-shadow-require?_665)" "(let-values()" "(if(if(bulk-required?" -" r_35)" +" r_661)" "(bulk-required-can-be-shadowed?" -" r_35)" +" r_661)" "(required-can-be-shadowed?" -" r_35))" +" r_661))" "(let-values()" "(begin" "(set-requires+provides-all-bindings-simple?!" -" r+p_8" +" r+p_622" " #f)" -" only-can-can-shadow-require?_3))" -"(if define-shadowing-require?_0" +" only-can-can-shadow-require?_664))" +"(if define-shadowing-require?_636" "(let-values()" " #f)" "(let-values()" -"(raise-already-bound_0" -" defined?_0)))))))" +"(raise-already-bound_640" +" defined?_635)))))))" "(values" -" only-can-can-shadow-require?_4)))))" +" only-can-can-shadow-require?_665)))))" "(if(not" " #f)" -"(for-loop_163" -" only-can-can-shadow-require?_2" -" rest_64)" -" only-can-can-shadow-require?_2)))" -" only-can-can-shadow-require?_1)))))" -" for-loop_163)" +"(for-loop_658" +" only-can-can-shadow-require?_663" +" rest_662)" +" only-can-can-shadow-require?_663)))" +" only-can-can-shadow-require?_0)))))" +" for-loop_658)" " #t" -" lst_126)))))" +" lst_657)))))" "(begin" -"(if define-shadowing-require?_0" +"(if define-shadowing-require?_636" "(let-values()" "(begin" "(set-requires+provides-all-bindings-simple?!" -" r+p_8" +" r+p_622" " #f)" -"(if only-can-can-shadow-require?_0" +"(if only-can-can-shadow-require?_656" "(void)" "(let-values()" "(hash-set!" -"(requires+provides-also-required r+p_8)" -"(module-binding-sym b_70)" -" b_70)))))" +"(requires+provides-also-required" +" r+p_622)" +"(module-binding-sym b_630)" +" b_630)))))" "(let-values()" -"(if(if remove-shadowed!?_0" -"(not(null? reqds_2))" +"(if(if remove-shadowed!?_627" +"(not(null? reqds_655))" " #f)" "(let-values()" "(hash-set!" -" sym-to-reqds_3" -"(syntax-e$1 id_28)" +" sym-to-reqds_654" +"(syntax-e$1 id_623)" "(remove-non-matching-requireds" -" reqds_2" -" id_28" -" phase_61" -" mpi_33" -" nominal-phase_6" -"(syntax-e$1 id_28))))" +" reqds_655" +" id_623" +" phase_624" +" mpi_637" +" nominal-phase_653" +"(syntax-e$1 id_623))))" "(void))))" " #f)))))))))))))))))))))))))))))))))))" "(define-values" @@ -22532,198 +22622,198 @@ static const char *startup_source = "(lambda(as-transformer?98_0 r+p100_0 syms101_0 phase102_0)" "(begin" " 'add-defined-syms!103" -"(let-values(((r+p_9) r+p100_0))" -"(let-values(((syms_18) syms101_0))" -"(let-values(((phase_62) phase102_0))" -"(let-values(((as-transformer?_2) as-transformer?98_0))" +"(let-values(((r+p_706) r+p100_0))" +"(let-values(((syms_707) syms101_0))" +"(let-values(((phase_708) phase102_0))" +"(let-values(((as-transformer?_709) as-transformer?98_0))" "(let-values()" -"(let-values(((phase-to-defined-syms_0)(requires+provides-phase-to-defined-syms r+p_9)))" -"(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_62 '#hasheq())))" -"(let-values(((new-defined-syms_0)" -"(let-values(((lst_128) syms_18))" +"(let-values(((phase-to-defined-syms_710)(requires+provides-phase-to-defined-syms r+p_706)))" +"(let-values(((defined-syms_711)(hash-ref phase-to-defined-syms_710 phase_708 '#hasheq())))" +"(let-values(((new-defined-syms_712)" +"(let-values(((lst_713) syms_707))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_128)))" -"((letrec-values(((for-loop_164)" -"(lambda(defined-syms_3 lst_129)" +"(let-values()(check-list lst_713)))" +"((letrec-values(((for-loop_714)" +"(lambda(defined-syms_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_129)" -"(let-values(((sym_41)(unsafe-car lst_129))" -"((rest_65)(unsafe-cdr lst_129)))" -"(let-values(((defined-syms_4)" -"(let-values(((defined-syms_5)" -" defined-syms_3))" -"(let-values(((defined-syms_6)" +"(if(pair? lst_0)" +"(let-values(((sym_717)(unsafe-car lst_0))" +"((rest_718)(unsafe-cdr lst_0)))" +"(let-values(((defined-syms_719)" +"(let-values(((defined-syms_720)" +" defined-syms_0))" +"(let-values(((defined-syms_721)" "(let-values()" "(hash-set" -" defined-syms_5" -" sym_41" -"(if as-transformer?_2" +" defined-syms_720" +" sym_717" +"(if as-transformer?_709" " 'transformer" " 'variable)))))" -"(values defined-syms_6)))))" +"(values defined-syms_721)))))" "(if(not #f)" -"(for-loop_164 defined-syms_4 rest_65)" -" defined-syms_4)))" -" defined-syms_3)))))" -" for-loop_164)" -" defined-syms_2" -" lst_128)))))" -"(hash-set! phase-to-defined-syms_0 phase_62 new-defined-syms_0))))))))))))" +"(for-loop_714 defined-syms_719 rest_718)" +" defined-syms_719)))" +" defined-syms_0)))))" +" for-loop_714)" +" defined-syms_711" +" lst_713)))))" +"(hash-set! phase-to-defined-syms_710 phase_708 new-defined-syms_712))))))))))))" "(define-values" "(defined-sym-kind)" -"(lambda(r+p_10 sym_42 phase_63)" +"(lambda(r+p_0 sym_0 phase_0)" "(begin" -"(let-values(((phase-to-defined-syms_1)(requires+provides-phase-to-defined-syms r+p_10)))" -"(let-values(((defined-syms_7)(hash-ref phase-to-defined-syms_1 phase_63 '#hasheq())))" -"(hash-ref defined-syms_7 sym_42 #f))))))" +"(let-values(((phase-to-defined-syms_745)(requires+provides-phase-to-defined-syms r+p_0)))" +"(let-values(((defined-syms_746)(hash-ref phase-to-defined-syms_745 phase_0 '#hasheq())))" +"(hash-ref defined-syms_746 sym_0 #f))))))" "(define-values" "(extract-module-requires)" -"(lambda(r+p_11 mod-name_11 phase_64)" +"(lambda(r+p_0 mod-name_0 phase_0)" "(begin" -"(let-values(((mpi_34)(intern-mpi r+p_11 mod-name_11)))" -"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_11) mpi_34 #f)))" -"(if at-mod_5" +"(let-values(((mpi_750)(intern-mpi r+p_0 mod-name_0)))" +"(let-values(((at-mod_751)(hash-ref(requires+provides-requires r+p_0) mpi_750 #f)))" +"(if at-mod_751" "(reverse$1" -"(let-values(((ht_103)(hash-ref at-mod_5 phase_64 '#hasheq())))" +"(let-values(((ht_752)(hash-ref at-mod_751 phase_0 '#hasheq())))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_103)))" -"((letrec-values(((for-loop_165)" -"(lambda(fold-var_116 i_130)" +"(let-values()(check-in-hash ht_752)))" +"((letrec-values(((for-loop_753)" +"(lambda(fold-var_0 i_0)" "(begin" " 'for-loop" -"(if i_130" -"(let-values(((sym_43 reqds_3)(hash-iterate-key+value ht_103 i_130)))" -"(let-values(((fold-var_117)" -"(let-values(((lst_130) reqds_3))" +"(if i_0" +"(let-values(((sym_756 reqds_757)(hash-iterate-key+value ht_752 i_0)))" +"(let-values(((fold-var_758)" +"(let-values(((lst_759) reqds_757))" "(begin" "(void)" -"((letrec-values(((for-loop_166)" -"(lambda(fold-var_118 lst_131)" +"((letrec-values(((for-loop_760)" +"(lambda(fold-var_1 lst_0)" "(begin" " 'for-loop" -"(if(not(null? lst_131))" -"(let-values(((reqd_1)" -"(if(pair? lst_131)" -"(car lst_131)" -" lst_131))" -"((rest_66)" -"(if(pair? lst_131)" -"(cdr lst_131)" +"(if(not(null? lst_0))" +"(let-values(((reqd_763)" +"(if(pair? lst_0)" +"(car lst_0)" +" lst_0))" +"((rest_764)" +"(if(pair? lst_0)" +"(cdr lst_0)" " null)))" -"(let-values(((fold-var_119)" -"(let-values(((fold-var_120)" -" fold-var_118))" -"(let-values(((fold-var_121)" +"(let-values(((fold-var_765)" +"(let-values(((fold-var_766)" +" fold-var_1))" +"(let-values(((fold-var_767)" "(let-values()" "(cons" "(let-values()" "(normalize-required" -" reqd_1" -" mpi_34" -" phase_64" -" sym_43))" -" fold-var_120))))" +" reqd_763" +" mpi_750" +" phase_0" +" sym_756))" +" fold-var_766))))" "(values" -" fold-var_121)))))" +" fold-var_767)))))" "(if(not #f)" -"(for-loop_166" -" fold-var_119" -" rest_66)" -" fold-var_119)))" -" fold-var_118)))))" -" for-loop_166)" -" fold-var_116" -" lst_130)))))" +"(for-loop_760" +" fold-var_765" +" rest_764)" +" fold-var_765)))" +" fold-var_1)))))" +" for-loop_760)" +" fold-var_0" +" lst_759)))))" "(if(not #f)" -"(for-loop_165 fold-var_117(hash-iterate-next ht_103 i_130))" -" fold-var_117)))" -" fold-var_116)))))" -" for-loop_165)" +"(for-loop_753 fold-var_758(hash-iterate-next ht_752 i_0))" +" fold-var_758)))" +" fold-var_0)))))" +" for-loop_753)" " null" -"(hash-iterate-first ht_103)))))" +"(hash-iterate-first ht_752)))))" " #f))))))" "(define-values" "(extract-module-definitions)" -"(lambda(r+p_12)" +"(lambda(r+p_0)" "(begin" -"(let-values(((or-part_176)(extract-module-requires r+p_12(requires+provides-self r+p_12) 0)))" -"(if or-part_176 or-part_176 null)))))" +"(let-values(((or-part_769)(extract-module-requires r+p_0(requires+provides-self r+p_0) 0)))" +"(if or-part_769 or-part_769 null)))))" "(define-values" "(extract-all-module-requires)" -"(lambda(r+p_13 mod-name_12 phase_65)" +"(lambda(r+p_0 mod-name_0 phase_0)" "(begin" -"(let-values(((self_9)(requires+provides-self r+p_13)))" -"(let-values(((requires_2)(requires+provides-requires r+p_13)))" +"(let-values(((self_773)(requires+provides-self r+p_0)))" +"(let-values(((requires_774)(requires+provides-requires r+p_0)))" "(call/ec" "(lambda(esc_0)" "(reverse$1" -"(let-values(((lst_132)(if mod-name_12(list(intern-mpi r+p_13 mod-name_12))(hash-keys requires_2))))" +"(let-values(((lst_776)(if mod-name_0(list(intern-mpi r+p_0 mod-name_0))(hash-keys requires_774))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_132)))" -"((letrec-values(((for-loop_167)" -"(lambda(fold-var_46 lst_61)" +"(let-values()(check-list lst_776)))" +"((letrec-values(((for-loop_777)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_61)" -"(let-values(((mod-name_13)(unsafe-car lst_61))" -"((rest_67)(unsafe-cdr lst_61)))" -"(let-values(((fold-var_122)" -"(let-values(((fold-var_123) fold-var_46))" -"(if(eq? mod-name_13 self_9)" -" fold-var_123" -"(let-values(((phase-to-requireds_0)" +"(if(pair? lst_0)" +"(let-values(((mod-name_780)(unsafe-car lst_0))" +"((rest_781)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_782)" +"(let-values(((fold-var_783) fold-var_0))" +"(if(eq? mod-name_780 self_773)" +" fold-var_783" +"(let-values(((phase-to-requireds_784)" "(hash-ref" -" requires_2" -" mod-name_13" +" requires_774" +" mod-name_780" " '#hasheqv())))" "(begin" " #t" -"((letrec-values(((for-loop_168)" -"(lambda(fold-var_49)" +"((letrec-values(((for-loop_785)" +"(lambda(fold-var_1)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_50)" -"(let-values(((lst_63)" +"(let-values(((fold-var_787)" +"(let-values(((lst_788)" "(if(eq?" -" phase_65" +" phase_0" " 'all)" "(hash-keys" -" phase-to-requireds_0)" +" phase-to-requireds_784)" "(list" -" phase_65))))" +" phase_0))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_63)))" -"((letrec-values(((for-loop_88)" -"(lambda(fold-var_124" -" lst_133)" +" lst_788)))" +"((letrec-values(((for-loop_789)" +"(lambda(fold-var_2" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_133)" -"(let-values(((phase_66)" +" lst_1)" +"(let-values(((phase_792)" "(unsafe-car" -" lst_133))" -"((rest_68)" +" lst_1))" +"((rest_793)" "(unsafe-cdr" -" lst_133)))" -"(let-values(((fold-var_125)" -"(let-values(((ht_104)" +" lst_1)))" +"(let-values(((fold-var_794)" +"(let-values(((ht_795)" "(hash-ref" -" phase-to-requireds_0" -" phase_66" +" phase-to-requireds_784" +" phase_792" "(lambda()" "(esc_0" " #f)))))" @@ -22733,99 +22823,99 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_104)))" -"((letrec-values(((for-loop_169)" -"(lambda(fold-var_126" -" i_131)" +" ht_795)))" +"((letrec-values(((for-loop_796)" +"(lambda(fold-var_3" +" i_0)" "(begin" " 'for-loop" -"(if i_131" -"(let-values(((sym_44" -" reqds_4)" +"(if i_0" +"(let-values(((sym_799" +" reqds_800)" "(hash-iterate-key+value" -" ht_104" -" i_131)))" -"(let-values(((fold-var_127)" -"(let-values(((lst_134)" -" reqds_4))" +" ht_795" +" i_0)))" +"(let-values(((fold-var_801)" +"(let-values(((lst_802)" +" reqds_800))" "(begin" "(void)" -"((letrec-values(((for-loop_170)" -"(lambda(fold-var_128" -" lst_135)" +"((letrec-values(((for-loop_803)" +"(lambda(fold-var_4" +" lst_2)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_135))" -"(let-values(((reqd_2)" +" lst_2))" +"(let-values(((reqd_806)" "(if(pair?" -" lst_135)" +" lst_2)" "(car" -" lst_135)" -" lst_135))" -"((rest_69)" +" lst_2)" +" lst_2))" +"((rest_807)" "(if(pair?" -" lst_135)" +" lst_2)" "(cdr" -" lst_135)" +" lst_2)" " null)))" -"(let-values(((fold-var_129)" -"(let-values(((fold-var_130)" -" fold-var_128))" -"(let-values(((fold-var_131)" +"(let-values(((fold-var_808)" +"(let-values(((fold-var_809)" +" fold-var_4))" +"(let-values(((fold-var_810)" "(let-values()" "(cons" "(let-values()" "(normalize-required" -" reqd_2" -" mod-name_13" -" phase_66" -" sym_44))" -" fold-var_130))))" +" reqd_806" +" mod-name_780" +" phase_792" +" sym_799))" +" fold-var_809))))" "(values" -" fold-var_131)))))" +" fold-var_810)))))" "(if(not" " #f)" -"(for-loop_170" -" fold-var_129" -" rest_69)" -" fold-var_129)))" -" fold-var_128)))))" -" for-loop_170)" -" fold-var_126" -" lst_134)))))" +"(for-loop_803" +" fold-var_808" +" rest_807)" +" fold-var_808)))" +" fold-var_4)))))" +" for-loop_803)" +" fold-var_3" +" lst_802)))))" "(if(not" " #f)" -"(for-loop_169" -" fold-var_127" +"(for-loop_796" +" fold-var_801" "(hash-iterate-next" -" ht_104" -" i_131))" -" fold-var_127)))" -" fold-var_126)))))" -" for-loop_169)" -" fold-var_124" +" ht_795" +" i_0))" +" fold-var_801)))" +" fold-var_3)))))" +" for-loop_796)" +" fold-var_2" "(hash-iterate-first" -" ht_104))))))" +" ht_795))))))" "(if(not" " #f)" -"(for-loop_88" -" fold-var_125" -" rest_68)" -" fold-var_125)))" -" fold-var_124)))))" -" for-loop_88)" -" fold-var_49" -" lst_63)))))" -" fold-var_50))))))" -" for-loop_168)" -" fold-var_123)))))))" -"(if(not #f)(for-loop_167 fold-var_122 rest_67) fold-var_122)))" -" fold-var_46)))))" -" for-loop_167)" +"(for-loop_789" +" fold-var_794" +" rest_793)" +" fold-var_794)))" +" fold-var_2)))))" +" for-loop_789)" +" fold-var_1" +" lst_788)))))" +" fold-var_787))))))" +" for-loop_785)" +" fold-var_783)))))))" +"(if(not #f)(for-loop_777 fold-var_782 rest_781) fold-var_782)))" +" fold-var_0)))))" +" for-loop_777)" " null" -" lst_132)))))))))))" +" lst_776)))))))))))" "(define-values" "(add-provide!117.1)" "(lambda(as-protected?106_0" @@ -22839,39 +22929,39 @@ static const char *startup_source = " orig-s116_0)" "(begin" " 'add-provide!117" -"(let-values(((r+p_14) r+p110_0))" -"(let-values(((sym_45) sym111_0))" -"(let-values(((phase_67) phase112_0))" -"(let-values(((binding_13) binding113_0))" -"(let-values(((immed-binding_0) immed-binding114_0))" -"(let-values(((id_29) id115_0))" -"(let-values(((orig-s_2) orig-s116_0))" -"(let-values(((as-protected?_0) as-protected?106_0))" -"(let-values(((as-transformer?_3) as-transformer?107_0))" +"(let-values(((r+p_836) r+p110_0))" +"(let-values(((sym_837) sym111_0))" +"(let-values(((phase_838) phase112_0))" +"(let-values(((binding_839) binding113_0))" +"(let-values(((immed-binding_840) immed-binding114_0))" +"(let-values(((id_841) id115_0))" +"(let-values(((orig-s_842) orig-s116_0))" +"(let-values(((as-protected?_843) as-protected?106_0))" +"(let-values(((as-transformer?_844) as-transformer?107_0))" "(let-values()" "(begin" -"(if(if as-protected?_0" -"(not(eq?(module-binding-module immed-binding_0)(requires+provides-self r+p_14)))" +"(if(if as-protected?_843" +"(not(eq?(module-binding-module immed-binding_840)(requires+provides-self r+p_836)))" " #f)" "(let-values()" -" (raise-syntax-error$1 #f \"cannot protect required identifier in re-provide\" sym_45))" +" (raise-syntax-error$1 #f \"cannot protect required identifier in re-provide\" sym_837))" "(void))" "(hash-update!" -"(requires+provides-provides r+p_14)" -" phase_67" -"(lambda(at-phase_9)" -"(let-values(((b/p_0)(hash-ref at-phase_9 sym_45 #f)))" -"(let-values(((b_71)(provided-as-binding b/p_0)))" -"(if(not b_71)" +"(requires+provides-provides r+p_836)" +" phase_838" +"(lambda(at-phase_0)" +"(let-values(((b/p_846)(hash-ref at-phase_0 sym_837 #f)))" +"(let-values(((b_847)(provided-as-binding b/p_846)))" +"(if(not b_847)" "(let-values()" -"(let-values(((plain-binding_0)" -"(if(binding-free=id binding_13)" -"(let-values(((binding169_0) binding_13)((temp170_0) #f))" +"(let-values(((plain-binding_848)" +"(if(binding-free=id binding_839)" +"(let-values(((binding169_850) binding_839)((temp170_851) #f))" "(module-binding-update48.1" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" -" temp170_0" +" temp170_851" " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" @@ -22879,252 +22969,253 @@ static const char *startup_source = " unsafe-undefined" " unsafe-undefined" " unsafe-undefined" -" binding169_0))" -" binding_13)))" +" binding169_850))" +" binding_839)))" "(hash-set" -" at-phase_9" -" sym_45" -"(if(let-values(((or-part_177) as-protected?_0))" -"(if or-part_177 or-part_177 as-transformer?_3))" -"(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_3)" -" plain-binding_0))))" -"(if(same-binding? b_71 binding_13)" -"(let-values() at-phase_9)" +" at-phase_0" +" sym_837" +"(if(let-values(((or-part_852) as-protected?_843))" +"(if or-part_852 or-part_852 as-transformer?_844))" +"(provided1.1 plain-binding_848 as-protected?_843 as-transformer?_844)" +" plain-binding_848))))" +"(if(same-binding? b_847 binding_839)" +"(let-values() at-phase_0)" "(let-values()" "(raise-syntax-error$1" " #f" " \"identifier already provided (as a different binding)\"" -" orig-s_2" -" id_29)))))))" +" orig-s_842" +" id_841)))))))" " '#hasheq())))))))))))))))" "(define-values" "(extract-requires-and-provides)" -"(lambda(r+p_15 old-self_0 new-self_1)" +"(lambda(r+p_0 old-self_0 new-self_0)" "(begin" -"(let-values(((extract-requires_0)" +"(let-values(((extract-requires_882)" "(lambda()" "(begin" " 'extract-requires" -"(let-values(((phase-to-mpis-in-order_0)(requires+provides-require-mpis-in-order r+p_15)))" -"(let-values(((phases-in-order_1)" -"(let-values(((temp171_0)(hash-keys phase-to-mpis-in-order_0))" -"((phasesym-set" -" id148_0))" +" id148_349))" " #f" " #f" " 'path))))" "(if(equal?" -" tmp_24" +" tmp_181" " 'prefix)" "(let-values()" "(let-values((()" "(begin" -"(check-nested_0" +"(check-nested_171" " 'phaseless)" "(values))))" -"(let-values(((ok?_8" -" prefix155_0" -" id:prefix156_0" -" spec157_0)" -"(let-values(((s_129)" -" req_0))" -"(let-values(((orig-s_10)" -" s_129))" -"(let-values(((prefix155_1" -" id:prefix156_1" -" spec157_1)" -"(let-values(((s_229)" +"(let-values(((ok?_397" +" prefix155_398" +" id:prefix156_399" +" spec157_400)" +"(let-values(((s_417)" +" req_166))" +"(let-values(((orig-s_418)" +" s_417))" +"(let-values(((prefix155_419" +" id:prefix156_420" +" spec157_421)" +"(let-values(((s_422)" "(if(syntax?$1" -" s_129)" +" s_417)" "(syntax-e$1" -" s_129)" -" s_129)))" +" s_417)" +" s_417)))" "(if(pair?" -" s_229)" -"(let-values(((prefix158_0)" -"(let-values(((s_230)" +" s_422)" +"(let-values(((prefix158_423)" +"(let-values(((s_426)" "(car" -" s_229)))" -" s_230))" -"((id:prefix159_0" -" spec160_0)" -"(let-values(((s_231)" +" s_422)))" +" s_426))" +"((id:prefix159_424" +" spec160_425)" +"(let-values(((s_427)" "(cdr" -" s_229)))" -"(let-values(((s_232)" +" s_422)))" +"(let-values(((s_428)" "(if(syntax?$1" -" s_231)" +" s_427)" "(syntax-e$1" -" s_231)" -" s_231)))" +" s_427)" +" s_427)))" "(if(pair?" -" s_232)" -"(let-values(((id:prefix161_0)" -"(let-values(((s_233)" +" s_428)" +"(let-values(((id:prefix161_429)" +"(let-values(((s_431)" "(car" -" s_232)))" -"(if(let-values(((or-part_185)" +" s_428)))" +"(if(let-values(((or-part_432)" "(if(syntax?$1" -" s_233)" +" s_431)" "(symbol?" "(syntax-e$1" -" s_233))" +" s_431))" " #f)))" -"(if or-part_185" -" or-part_185" +"(if or-part_432" +" or-part_432" "(symbol?" -" s_233)))" -" s_233" +" s_431)))" +" s_431" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_10" -" s_233))))" -"((spec162_0)" -"(let-values(((s_234)" +" orig-s_418" +" s_431))))" +"((spec162_430)" +"(let-values(((s_433)" "(cdr" -" s_232)))" -"(let-values(((s_235)" +" s_428)))" +"(let-values(((s_434)" "(if(syntax?$1" -" s_234)" +" s_433)" "(syntax-e$1" -" s_234)" -" s_234)))" +" s_433)" +" s_433)))" "(if(pair?" -" s_235)" -"(let-values(((spec163_0)" -"(let-values(((s_133)" +" s_434)" +"(let-values(((spec163_435)" +"(let-values(((s_436)" "(car" -" s_235)))" -" s_133))" +" s_434)))" +" s_436))" "(()" -"(let-values(((s_236)" +"(let-values(((s_437)" "(cdr" -" s_235)))" -"(let-values(((s_237)" +" s_434)))" +"(let-values(((s_438)" "(if(syntax?$1" -" s_236)" +" s_437)" "(syntax-e$1" -" s_236)" -" s_236)))" +" s_437)" +" s_437)))" "(if(null?" -" s_237)" +" s_438)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_10))))))" +" orig-s_418))))))" "(values" -" spec163_0))" +" spec163_435))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_10))))))" +" orig-s_418))))))" "(values" -" id:prefix161_0" -" spec162_0))" +" id:prefix161_429" +" spec162_430))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_10))))))" +" orig-s_418))))))" "(values" -" prefix158_0" -" id:prefix159_0" -" spec160_0))" +" prefix158_423" +" id:prefix159_424" +" spec160_425))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_10)))))" +" orig-s_418)))))" "(values" " #t" -" prefix155_1" -" id:prefix156_1" -" spec157_1))))))" -"(loop_86" +" prefix155_419" +" id:prefix156_420" +" spec157_421))))))" +"(loop_153" "(list" -" spec157_0)" -"(let-values(((or-part_113)" +" spec157_400)" +"(let-values(((or-part_439)" " top-req_0))" -"(if or-part_113" -" or-part_113" -" req_0))" -" phase-shift_9" +"(if or-part_439" +" or-part_439" +" req_166))" +" phase-shift_0" " just-meta_0" "(adjust-prefix2.1" "(syntax-e$1" -" id:prefix156_0))" +" id:prefix156_399))" " #f" " #f" " 'path))))" "(if(equal?" -" tmp_24" +" tmp_181" " 'all-except)" "(let-values()" "(let-values((()" "(begin" -"(check-nested_0" +"(check-nested_171" " 'phaseless)" "(values))))" -"(let-values(((ok?_9" -" all-except164_0" -" spec165_0" -" id166_0)" -"(let-values(((s_238)" -" req_0))" -"(let-values(((orig-s_11)" -" s_238))" -"(let-values(((all-except164_1" -" spec165_1" -" id166_1)" -"(let-values(((s_239)" +"(let-values(((ok?_440" +" all-except164_441" +" spec165_442" +" id166_443)" +"(let-values(((s_460)" +" req_166))" +"(let-values(((orig-s_461)" +" s_460))" +"(let-values(((all-except164_462" +" spec165_463" +" id166_464)" +"(let-values(((s_465)" "(if(syntax?$1" -" s_238)" +" s_460)" "(syntax-e$1" -" s_238)" -" s_238)))" +" s_460)" +" s_460)))" "(if(pair?" -" s_239)" -"(let-values(((all-except167_0)" -"(let-values(((s_240)" +" s_465)" +"(let-values(((all-except167_466)" +"(let-values(((s_469)" "(car" -" s_239)))" -" s_240))" -"((spec168_0" -" id169_0)" -"(let-values(((s_241)" +" s_465)))" +" s_469))" +"((spec168_467" +" id169_468)" +"(let-values(((s_470)" "(cdr" -" s_239)))" -"(let-values(((s_242)" +" s_465)))" +"(let-values(((s_471)" "(if(syntax?$1" -" s_241)" +" s_470)" "(syntax-e$1" -" s_241)" -" s_241)))" +" s_470)" +" s_470)))" "(if(pair?" -" s_242)" -"(let-values(((spec170_0)" -"(let-values(((s_243)" +" s_471)" +"(let-values(((spec170_472)" +"(let-values(((s_474)" "(car" -" s_242)))" -" s_243))" -"((id171_0)" -"(let-values(((s_244)" +" s_471)))" +" s_474))" +"((id171_473)" +"(let-values(((s_475)" "(cdr" -" s_242)))" -"(let-values(((s_245)" +" s_471)))" +"(let-values(((s_476)" "(if(syntax?$1" -" s_244)" +" s_475)" "(syntax-e$1" -" s_244)" -" s_244)))" -"(let-values(((flat-s_6)" +" s_475)" +" s_475)))" +"(let-values(((flat-s_477)" "(to-syntax-list.1" -" s_245)))" +" s_476)))" "(if(not" -" flat-s_6)" +" flat-s_477)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_11))" +" orig-s_461))" "(let-values()" -"(let-values(((id_35)" -"(let-values(((lst_144)" -" flat-s_6))" +"(let-values(((id_478)" +"(let-values(((lst_479)" +" flat-s_477))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_144)))" -"((letrec-values(((for-loop_175)" -"(lambda(id_36" -" lst_145)" +" lst_479)))" +"((letrec-values(((for-loop_480)" +"(lambda(id_0" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_145)" -"(let-values(((s_246)" +" lst_1)" +"(let-values(((s_483)" "(unsafe-car" -" lst_145))" -"((rest_74)" +" lst_1))" +"((rest_484)" "(unsafe-cdr" -" lst_145)))" -"(let-values(((id_37)" -"(let-values(((id_38)" -" id_36))" -"(let-values(((id_39)" +" lst_1)))" +"(let-values(((id_485)" +"(let-values(((id_486)" +" id_0))" +"(let-values(((id_487)" "(let-values()" -"(let-values(((id172_0)" +"(let-values(((id172_488)" "(let-values()" -"(if(let-values(((or-part_186)" +"(if(let-values(((or-part_489)" "(if(syntax?$1" -" s_246)" +" s_483)" "(symbol?" "(syntax-e$1" -" s_246))" +" s_483))" " #f)))" -"(if or-part_186" -" or-part_186" +"(if or-part_489" +" or-part_489" "(symbol?" -" s_246)))" -" s_246" +" s_483)))" +" s_483" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_11" -" s_246)))))" +" orig-s_461" +" s_483)))))" "(cons" -" id172_0" -" id_38)))))" +" id172_488" +" id_486)))))" "(values" -" id_39)))))" +" id_487)))))" "(if(not" " #f)" -"(for-loop_175" -" id_37" -" rest_74)" -" id_37)))" -" id_36)))))" -" for-loop_175)" +"(for-loop_480" +" id_485" +" rest_484)" +" id_485)))" +" id_0)))))" +" for-loop_480)" " null" -" lst_144)))))" +" lst_479)))))" "(reverse$1" -" id_35)))))))))" +" id_478)))))))))" "(values" -" spec170_0" -" id171_0))" +" spec170_472" +" id171_473))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_11))))))" +" orig-s_461))))))" "(values" -" all-except167_0" -" spec168_0" -" id169_0))" +" all-except167_466" +" spec168_467" +" id169_468))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_11)))))" +" orig-s_461)))))" "(values" " #t" -" all-except164_1" -" spec165_1" -" id166_1))))))" -"(loop_86" +" all-except164_462" +" spec165_463" +" id166_464))))))" +"(loop_153" "(list" -" spec165_0)" -"(let-values(((or-part_187)" +" spec165_442)" +"(let-values(((or-part_490)" " top-req_0))" -"(if or-part_187" -" or-part_187" -" req_0))" -" phase-shift_9" +"(if or-part_490" +" or-part_490" +" req_166))" +" phase-shift_0" " just-meta_0" "(adjust-all-except3.1" " '||" "(ids->sym-set" -" id166_0))" +" id166_443))" " #f" " #f" " 'path))))" "(if(equal?" -" tmp_24" +" tmp_181" " 'prefix-all-except)" "(let-values()" "(let-values((()" "(begin" -"(check-nested_0" +"(check-nested_171" " 'phaseless)" "(values))))" -"(let-values(((ok?_10" -" prefix-all-except173_0" -" id:prefix174_0" -" spec175_0" -" id176_0)" -"(let-values(((s_247)" -" req_0))" -"(let-values(((orig-s_12)" -" s_247))" -"(let-values(((prefix-all-except173_1" -" id:prefix174_1" -" spec175_1" -" id176_1)" -"(let-values(((s_248)" +"(let-values(((ok?_491" +" prefix-all-except173_492" +" id:prefix174_493" +" spec175_494" +" id176_495)" +"(let-values(((s_515)" +" req_166))" +"(let-values(((orig-s_516)" +" s_515))" +"(let-values(((prefix-all-except173_517" +" id:prefix174_518" +" spec175_519" +" id176_520)" +"(let-values(((s_521)" "(if(syntax?$1" -" s_247)" +" s_515)" "(syntax-e$1" -" s_247)" -" s_247)))" +" s_515)" +" s_515)))" "(if(pair?" -" s_248)" -"(let-values(((prefix-all-except177_0)" -"(let-values(((s_249)" +" s_521)" +"(let-values(((prefix-all-except177_522)" +"(let-values(((s_526)" "(car" -" s_248)))" -" s_249))" -"((id:prefix178_0" -" spec179_0" -" id180_0)" -"(let-values(((s_250)" +" s_521)))" +" s_526))" +"((id:prefix178_523" +" spec179_524" +" id180_525)" +"(let-values(((s_527)" "(cdr" -" s_248)))" -"(let-values(((s_251)" +" s_521)))" +"(let-values(((s_528)" "(if(syntax?$1" -" s_250)" +" s_527)" "(syntax-e$1" -" s_250)" -" s_250)))" +" s_527)" +" s_527)))" "(if(pair?" -" s_251)" -"(let-values(((id:prefix181_0)" -"(let-values(((s_252)" +" s_528)" +"(let-values(((id:prefix181_529)" +"(let-values(((s_532)" "(car" -" s_251)))" -"(if(let-values(((or-part_188)" +" s_528)))" +"(if(let-values(((or-part_533)" "(if(syntax?$1" -" s_252)" +" s_532)" "(symbol?" "(syntax-e$1" -" s_252))" +" s_532))" " #f)))" -"(if or-part_188" -" or-part_188" +"(if or-part_533" +" or-part_533" "(symbol?" -" s_252)))" -" s_252" +" s_532)))" +" s_532" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_12" -" s_252))))" -"((spec182_0" -" id183_0)" -"(let-values(((s_253)" +" orig-s_516" +" s_532))))" +"((spec182_530" +" id183_531)" +"(let-values(((s_534)" "(cdr" -" s_251)))" -"(let-values(((s_254)" +" s_528)))" +"(let-values(((s_535)" "(if(syntax?$1" -" s_253)" +" s_534)" "(syntax-e$1" -" s_253)" -" s_253)))" +" s_534)" +" s_534)))" "(if(pair?" -" s_254)" -"(let-values(((spec184_0)" -"(let-values(((s_255)" +" s_535)" +"(let-values(((spec184_536)" +"(let-values(((s_538)" "(car" -" s_254)))" -" s_255))" -"((id185_0)" -"(let-values(((s_256)" +" s_535)))" +" s_538))" +"((id185_537)" +"(let-values(((s_539)" "(cdr" -" s_254)))" -"(let-values(((s_257)" +" s_535)))" +"(let-values(((s_540)" "(if(syntax?$1" -" s_256)" +" s_539)" "(syntax-e$1" -" s_256)" -" s_256)))" -"(let-values(((flat-s_7)" +" s_539)" +" s_539)))" +"(let-values(((flat-s_541)" "(to-syntax-list.1" -" s_257)))" +" s_540)))" "(if(not" -" flat-s_7)" +" flat-s_541)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_12))" +" orig-s_516))" "(let-values()" -"(let-values(((id_40)" -"(let-values(((lst_146)" -" flat-s_7))" +"(let-values(((id_542)" +"(let-values(((lst_543)" +" flat-s_541))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_146)))" -"((letrec-values(((for-loop_176)" -"(lambda(id_41" -" lst_147)" +" lst_543)))" +"((letrec-values(((for-loop_544)" +"(lambda(id_0" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_147)" -"(let-values(((s_258)" +" lst_1)" +"(let-values(((s_547)" "(unsafe-car" -" lst_147))" -"((rest_75)" +" lst_1))" +"((rest_548)" "(unsafe-cdr" -" lst_147)))" -"(let-values(((id_42)" -"(let-values(((id_43)" -" id_41))" -"(let-values(((id_44)" +" lst_1)))" +"(let-values(((id_549)" +"(let-values(((id_550)" +" id_0))" +"(let-values(((id_551)" "(let-values()" -"(let-values(((id186_0)" +"(let-values(((id186_552)" "(let-values()" -"(if(let-values(((or-part_189)" +"(if(let-values(((or-part_553)" "(if(syntax?$1" -" s_258)" +" s_547)" "(symbol?" "(syntax-e$1" -" s_258))" +" s_547))" " #f)))" -"(if or-part_189" -" or-part_189" +"(if or-part_553" +" or-part_553" "(symbol?" -" s_258)))" -" s_258" +" s_547)))" +" s_547" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_12" -" s_258)))))" +" orig-s_516" +" s_547)))))" "(cons" -" id186_0" -" id_43)))))" +" id186_552" +" id_550)))))" "(values" -" id_44)))))" +" id_551)))))" "(if(not" " #f)" -"(for-loop_176" -" id_42" -" rest_75)" -" id_42)))" -" id_41)))))" -" for-loop_176)" +"(for-loop_544" +" id_549" +" rest_548)" +" id_549)))" +" id_0)))))" +" for-loop_544)" " null" -" lst_146)))))" +" lst_543)))))" "(reverse$1" -" id_40)))))))))" +" id_542)))))))))" "(values" -" spec184_0" -" id185_0))" +" spec184_536" +" id185_537))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_12))))))" +" orig-s_516))))))" "(values" -" id:prefix181_0" -" spec182_0" -" id183_0))" +" id:prefix181_529" +" spec182_530" +" id183_531))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_12))))))" +" orig-s_516))))))" "(values" -" prefix-all-except177_0" -" id:prefix178_0" -" spec179_0" -" id180_0))" +" prefix-all-except177_522" +" id:prefix178_523" +" spec179_524" +" id180_525))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_12)))))" +" orig-s_516)))))" "(values" " #t" -" prefix-all-except173_1" -" id:prefix174_1" -" spec175_1" -" id176_1))))))" -"(loop_86" +" prefix-all-except173_517" +" id:prefix174_518" +" spec175_519" +" id176_520))))))" +"(loop_153" "(list" -" spec175_0)" -"(let-values(((or-part_190)" +" spec175_494)" +"(let-values(((or-part_554)" " top-req_0))" -"(if or-part_190" -" or-part_190" -" req_0))" -" phase-shift_9" +"(if or-part_554" +" or-part_554" +" req_166))" +" phase-shift_0" " just-meta_0" "(adjust-all-except3.1" "(syntax-e$1" -" id:prefix174_0)" +" id:prefix174_493)" "(ids->sym-set" -" id176_0))" +" id176_495))" " #f" " #f" " 'path))))" "(if(equal?" -" tmp_24" +" tmp_181" " 'rename)" "(let-values()" "(let-values((()" "(begin" -"(check-nested_0" +"(check-nested_171" " 'phaseless)" "(values))))" -"(let-values(((ok?_11" -" rename187_0" -" spec188_0" -" id:to189_0" -" id:from190_0)" -"(let-values(((s_259)" -" req_0))" -"(let-values(((orig-s_13)" -" s_259))" -"(let-values(((rename187_1" -" spec188_1" -" id:to189_1" -" id:from190_1)" -"(let-values(((s_260)" +"(let-values(((ok?_555" +" rename187_556" +" spec188_557" +" id:to189_558" +" id:from190_559)" +"(let-values(((s_579)" +" req_166))" +"(let-values(((orig-s_580)" +" s_579))" +"(let-values(((rename187_581" +" spec188_582" +" id:to189_583" +" id:from190_584)" +"(let-values(((s_585)" "(if(syntax?$1" -" s_259)" +" s_579)" "(syntax-e$1" -" s_259)" -" s_259)))" +" s_579)" +" s_579)))" "(if(pair?" -" s_260)" -"(let-values(((rename191_0)" -"(let-values(((s_261)" +" s_585)" +"(let-values(((rename191_586)" +"(let-values(((s_590)" "(car" -" s_260)))" -" s_261))" -"((spec192_0" -" id:to193_0" -" id:from194_0)" -"(let-values(((s_262)" +" s_585)))" +" s_590))" +"((spec192_587" +" id:to193_588" +" id:from194_589)" +"(let-values(((s_591)" "(cdr" -" s_260)))" -"(let-values(((s_263)" +" s_585)))" +"(let-values(((s_592)" "(if(syntax?$1" -" s_262)" +" s_591)" "(syntax-e$1" -" s_262)" -" s_262)))" +" s_591)" +" s_591)))" "(if(pair?" -" s_263)" -"(let-values(((spec195_0)" -"(let-values(((s_264)" +" s_592)" +"(let-values(((spec195_593)" +"(let-values(((s_596)" "(car" -" s_263)))" -" s_264))" -"((id:to196_0" -" id:from197_0)" -"(let-values(((s_265)" +" s_592)))" +" s_596))" +"((id:to196_594" +" id:from197_595)" +"(let-values(((s_597)" "(cdr" -" s_263)))" -"(let-values(((s_266)" +" s_592)))" +"(let-values(((s_598)" "(if(syntax?$1" -" s_265)" +" s_597)" "(syntax-e$1" -" s_265)" -" s_265)))" +" s_597)" +" s_597)))" "(if(pair?" -" s_266)" -"(let-values(((id:to198_0)" -"(let-values(((s_267)" +" s_598)" +"(let-values(((id:to198_599)" +"(let-values(((s_601)" "(car" -" s_266)))" -"(if(let-values(((or-part_191)" +" s_598)))" +"(if(let-values(((or-part_602)" "(if(syntax?$1" -" s_267)" +" s_601)" "(symbol?" "(syntax-e$1" -" s_267))" +" s_601))" " #f)))" -"(if or-part_191" -" or-part_191" +"(if or-part_602" +" or-part_602" "(symbol?" -" s_267)))" -" s_267" +" s_601)))" +" s_601" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_13" -" s_267))))" -"((id:from199_0)" -"(let-values(((s_268)" +" orig-s_580" +" s_601))))" +"((id:from199_600)" +"(let-values(((s_603)" "(cdr" -" s_266)))" -"(let-values(((s_269)" +" s_598)))" +"(let-values(((s_604)" "(if(syntax?$1" -" s_268)" +" s_603)" "(syntax-e$1" -" s_268)" -" s_268)))" +" s_603)" +" s_603)))" "(if(pair?" -" s_269)" -"(let-values(((id:from200_0)" -"(let-values(((s_270)" +" s_604)" +"(let-values(((id:from200_605)" +"(let-values(((s_606)" "(car" -" s_269)))" -"(if(let-values(((or-part_192)" +" s_604)))" +"(if(let-values(((or-part_607)" "(if(syntax?$1" -" s_270)" +" s_606)" "(symbol?" "(syntax-e$1" -" s_270))" +" s_606))" " #f)))" -"(if or-part_192" -" or-part_192" +"(if or-part_607" +" or-part_607" "(symbol?" -" s_270)))" -" s_270" +" s_606)))" +" s_606" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_13" -" s_270))))" +" orig-s_580" +" s_606))))" "(()" -"(let-values(((s_135)" +"(let-values(((s_608)" "(cdr" -" s_269)))" -"(let-values(((s_271)" +" s_604)))" +"(let-values(((s_609)" "(if(syntax?$1" -" s_135)" +" s_608)" "(syntax-e$1" -" s_135)" -" s_135)))" +" s_608)" +" s_608)))" "(if(null?" -" s_271)" +" s_609)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_13))))))" +" orig-s_580))))))" "(values" -" id:from200_0))" +" id:from200_605))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_13))))))" +" orig-s_580))))))" "(values" -" id:to198_0" -" id:from199_0))" +" id:to198_599" +" id:from199_600))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_13))))))" +" orig-s_580))))))" "(values" -" spec195_0" -" id:to196_0" -" id:from197_0))" +" spec195_593" +" id:to196_594" +" id:from197_595))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_13))))))" +" orig-s_580))))))" "(values" -" rename191_0" -" spec192_0" -" id:to193_0" -" id:from194_0))" +" rename191_586" +" spec192_587" +" id:to193_588" +" id:from194_589))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_13)))))" +" orig-s_580)))))" "(values" " #t" -" rename187_1" -" spec188_1" -" id:to189_1" -" id:from190_1))))))" -"(loop_86" +" rename187_581" +" spec188_582" +" id:to189_583" +" id:from190_584))))))" +"(loop_153" "(list" -" spec188_0)" -"(let-values(((or-part_193)" +" spec188_557)" +"(let-values(((or-part_610)" " top-req_0))" -"(if or-part_193" -" or-part_193" -" req_0))" -" phase-shift_9" +"(if or-part_610" +" or-part_610" +" req_166))" +" phase-shift_0" " just-meta_0" "(adjust-rename4.1" -" id:to189_0" +" id:to189_558" "(syntax-e$1" -" id:from190_0))" +" id:from190_559))" " #f" " #f" " 'path))))" "(let-values()" -"(let-values(((maybe-mp_0)" +"(let-values(((maybe-mp_611)" "(syntax->datum$1" -" req_0)))" +" req_166)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_194)" +"(if(let-values(((or-part_614)" "(1/module-path?" -" maybe-mp_0)))" -"(if or-part_194" -" or-part_194" +" maybe-mp_611)))" +"(if or-part_614" +" or-part_614" "(1/resolved-module-path?" -" maybe-mp_0)))" +" maybe-mp_611)))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad require spec\"" -" orig-s_3" -" req_0)))" +" orig-s_139" +" req_166)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_195)" +"(if(let-values(((or-part_615)" " adjust_0))" -"(if or-part_195" -" or-part_195" +"(if or-part_615" +" or-part_615" "(not" "(eq?" " just-meta_0" " 'all))))" "(let-values()" "(set-requires+provides-all-bindings-simple?!" -" requires+provides_1" +" requires+provides_142" " #f))" "(void))" "(values))))" -"(let-values(((mp_0)" +"(let-values(((mp_612)" "(if(1/resolved-module-path?" -" maybe-mp_0)" +" maybe-mp_611)" "(resolved-module-path->module-path" -" maybe-mp_0)" -" maybe-mp_0)))" -"(let-values(((mpi_16)" -"(let-values(((mp218_0)" -" mp_0)" -"((self219_0)" -" self_10)" -"((declared-submodule-names220_0)" -" declared-submodule-names_2))" +" maybe-mp_611)" +" maybe-mp_611)))" +"(let-values(((mpi_613)" +"(let-values(((mp218_617)" +" mp_612)" +"((self219_618)" +" self_143)" +"((declared-submodule-names220_619)" +" declared-submodule-names_147))" "(module-path->mpi5.1" -" declared-submodule-names220_0" -" mp218_0" -" self219_0))))" +" declared-submodule-names220_619" +" mp218_617" +" self219_618))))" "(begin" -"(let-values(((mpi201_0)" -" mpi_16)" -"((req202_0)" -" req_0)" -"((self203_0)" -" self_10)" -"((temp204_0)" -"(let-values(((or-part_196)" -" req_0))" -"(if or-part_196" -" or-part_196" +"(let-values(((mpi201_621)" +" mpi_613)" +"((req202_622)" +" req_166)" +"((self203_623)" +" self_143)" +"((temp204_624)" +"(let-values(((or-part_638)" +" req_166))" +"(if or-part_638" +" or-part_638" " top-req_0)))" -"((m-ns205_0)" -" m-ns_8)" -"((phase-shift206_0)" -" phase-shift_9)" -"((run-phase207_0)" -" run-phase_5)" -"((just-meta208_0)" +"((m-ns205_625)" +" m-ns_140)" +"((phase-shift206_626)" +" phase-shift_0)" +"((run-phase207_627)" +" run-phase_144)" +"((just-meta208_628)" " just-meta_0)" -"((adjust209_0)" +"((adjust209_629)" " adjust_0)" -"((requires+provides210_0)" -" requires+provides_1)" -"((run?211_0)" -" run?_1)" -"((visit?212_0)" -" visit?_1)" -"((copy-variable-phase-level213_0)" -" copy-variable-phase-level_0)" -"((copy-variable-as-constant?214_0)" -" copy-variable-as-constant?_0)" -"((skip-variable-phase-level215_0)" -" skip-variable-phase-level_0)" -"((initial-require?216_0)" -" initial-require?_0)" -"((who217_0)" -" who_13))" +"((requires+provides210_630)" +" requires+provides_142)" +"((run?211_631)" +" run?_145)" +"((visit?212_632)" +" visit?_146)" +"((copy-variable-phase-level213_633)" +" copy-variable-phase-level_148)" +"((copy-variable-as-constant?214_634)" +" copy-variable-as-constant?_149)" +"((skip-variable-phase-level215_635)" +" skip-variable-phase-level_150)" +"((initial-require?216_636)" +" initial-require?_151)" +"((who217_637)" +" who_152))" "(perform-require!78.1" -" adjust209_0" +" adjust209_629" " #t" " #f" -" copy-variable-as-constant?214_0" -" copy-variable-phase-level213_0" -" initial-require?216_0" -" just-meta208_0" -" phase-shift206_0" -" requires+provides210_0" -" run-phase207_0" -" run?211_0" -" skip-variable-phase-level215_0" -" visit?212_0" -" who217_0" -" mpi201_0" -" req202_0" -" self203_0" -" temp204_0" -" m-ns205_0))" -"(set! initial-require?_0" +" copy-variable-as-constant?214_634" +" copy-variable-phase-level213_633" +" initial-require?216_636" +" just-meta208_628" +" phase-shift206_626" +" requires+provides210_630" +" run-phase207_627" +" run?211_631" +" skip-variable-phase-level215_635" +" visit?212_632" +" who217_637" +" mpi201_621" +" req202_622" +" self203_623" +" temp204_624" +" m-ns205_625))" +"(set! initial-require?_151" " #f)))))))))))))))))))))))))" "(values" -" result_77)))))" +" result_170)))))" "(if(if(not" -"((lambda x_54" -"(not result_76))" -" req_0))" +"((lambda x_0" +"(not" +" result_168))" +" req_166))" "(not #f)" " #f)" -"(for-loop_173" -" result_76" -" rest_72)" -" result_76)))" -" result_75)))))" -" for-loop_173)" +"(for-loop_163" +" result_168" +" rest_167)" +" result_168)))" +" result_0)))))" +" for-loop_163)" " #t" -" lst_140)))))))" -" loop_86)" -" reqs_0" +" lst_162)))))))" +" loop_153)" +" reqs_138" " #f" -" phase-shift_8" +" phase-shift_141" " 'all" " #f" " #t" @@ -24807,80 +24899,80 @@ static const char *startup_source = " 'raw))))))))))))))))))))" "(define-values" "(ids->sym-set)" -"(lambda(ids_3)" +"(lambda(ids_0)" "(begin" -"(let-values(((lst_148) ids_3))" +"(let-values(((lst_694) ids_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_148)))" -"((letrec-values(((for-loop_177)" -"(lambda(table_137 lst_149)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_694)))" +"((letrec-values(((for-loop_695)" +"(lambda(table_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_149)" -"(let-values(((id_45)(unsafe-car lst_149))((rest_76)(unsafe-cdr lst_149)))" -"(let-values(((table_138)" -"(let-values(((table_139) table_137))" -"(let-values(((table_140)" +"(if(pair? lst_0)" +"(let-values(((id_698)(unsafe-car lst_0))((rest_699)(unsafe-cdr lst_0)))" +"(let-values(((table_700)" +"(let-values(((table_701) table_0))" +"(let-values(((table_702)" "(let-values()" -"(let-values(((key_54 val_46)" +"(let-values(((key_703 val_704)" "(let-values()" "(values" -"(let-values()(syntax-e$1 id_45))" +"(let-values()(syntax-e$1 id_698))" " #t))))" -"(hash-set table_139 key_54 val_46)))))" -"(values table_140)))))" -"(if(not #f)(for-loop_177 table_138 rest_76) table_138)))" -" table_137)))))" -" for-loop_177)" +"(hash-set table_701 key_703 val_704)))))" +"(values table_702)))))" +"(if(not #f)(for-loop_695 table_700 rest_699) table_700)))" +" table_0)))))" +" for-loop_695)" " '#hash()" -" lst_148))))))" +" lst_694))))))" "(define-values" "(perform-initial-require!42.1)" "(lambda(bind?33_0 who34_0 mod-path37_0 self38_0 in-stx39_0 m-ns40_0 requires+provides41_0)" "(begin" " 'perform-initial-require!42" -"(let-values(((mod-path_7) mod-path37_0))" -"(let-values(((self_11) self38_0))" -"(let-values(((in-stx_0) in-stx39_0))" -"(let-values(((m-ns_9) m-ns40_0))" -"(let-values(((requires+provides_2) requires+provides41_0))" -"(let-values(((bind?_0) bind?33_0))" -"(let-values(((who_14) who34_0))" +"(let-values(((mod-path_724) mod-path37_0))" +"(let-values(((self_725) self38_0))" +"(let-values(((in-stx_726) in-stx39_0))" +"(let-values(((m-ns_727) m-ns40_0))" +"(let-values(((requires+provides_728) requires+provides41_0))" +"(let-values(((bind?_729) bind?33_0))" +"(let-values(((who_730) who34_0))" "(let-values()" -"(let-values(((temp221_1)" -"(let-values(((mod-path233_0) mod-path_7)((self234_0) self_11))" -"(module-path->mpi5.1 unsafe-undefined mod-path233_0 self234_0)))" -"((temp222_0) #f)" -"((self223_0) self_11)" -"((in-stx224_0) in-stx_0)" -"((m-ns225_0) m-ns_9)" -"((temp226_1) 0)" -"((temp227_0) 0)" -"((requires+provides228_0) requires+provides_2)" -"((temp229_1) #t)" -"((temp230_1) #t)" -"((bind?231_0) bind?_0)" -"((who232_0) who_14))" +"(let-values(((temp221_732)" +"(let-values(((mod-path233_744) mod-path_724)((self234_745) self_725))" +"(module-path->mpi5.1 unsafe-undefined mod-path233_744 self234_745)))" +"((temp222_733) #f)" +"((self223_734) self_725)" +"((in-stx224_735) in-stx_726)" +"((m-ns225_736) m-ns_727)" +"((temp226_737) 0)" +"((temp227_738) 0)" +"((requires+provides228_739) requires+provides_728)" +"((temp229_740) #t)" +"((temp230_741) #t)" +"((bind?231_742) bind?_729)" +"((who232_743) who_730))" "(perform-require!78.1" " #f" -" bind?231_0" -" temp229_1" +" bind?231_742" +" temp229_740" " #f" " #f" -" temp230_1" +" temp230_741" " 'all" -" temp226_1" -" requires+provides228_0" -" temp227_0" +" temp226_737" +" requires+provides228_739" +" temp227_738" " #f" " #f" " #t" -" who232_0" -" temp221_1" -" temp222_0" -" self223_0" -" in-stx224_0" -" m-ns225_0)))))))))))))" +" who232_743" +" temp221_732" +" temp222_733" +" self223_734" +" in-stx224_735" +" m-ns225_736)))))))))))))" "(define-values" "(perform-require!78.1)" "(lambda(adjust48_0" @@ -24904,553 +24996,558 @@ static const char *startup_source = " m-ns77_0)" "(begin" " 'perform-require!78" -"(let-values(((mpi_36) mpi73_0))" -"(let-values(((orig-s_14) orig-s74_0))" +"(let-values(((mpi_799) mpi73_0))" +"(let-values(((orig-s_800) orig-s74_0))" "(let-values()" -"(let-values(((in-stx_1) in-stx76_0))" -"(let-values(((m-ns_10) m-ns77_0))" -"(let-values(((phase-shift_10) phase-shift45_0))" -"(let-values(((run-phase_6) run-phase46_0))" -"(let-values(((just-meta_1) just-meta47_0))" -"(let-values(((adjust_1) adjust48_0))" -"(let-values(((requires+provides_3) requires+provides49_0))" -"(let-values(((visit?_2) visit?50_0))" -"(let-values(((run?_2) run?51_0))" -"(let-values(((can-be-shadowed?_3) can-be-shadowed?52_0))" -"(let-values(((initial-require?_1) initial-require?53_0))" -"(let-values(((copy-variable-phase-level_1) copy-variable-phase-level54_0))" -"(let-values(((copy-variable-as-constant?_1) copy-variable-as-constant?55_0))" -"(let-values(((skip-variable-phase-level_1) skip-variable-phase-level56_0))" -"(let-values(((bind?_1) bind?57_0))" -"(let-values(((who_15) who58_0))" +"(let-values(((in-stx_802) in-stx76_0))" +"(let-values(((m-ns_803) m-ns77_0))" +"(let-values(((phase-shift_804) phase-shift45_0))" +"(let-values(((run-phase_805) run-phase46_0))" +"(let-values(((just-meta_806) just-meta47_0))" +"(let-values(((adjust_807) adjust48_0))" +"(let-values(((requires+provides_808) requires+provides49_0))" +"(let-values(((visit?_809) visit?50_0))" +"(let-values(((run?_810) run?51_0))" +"(let-values(((can-be-shadowed?_811) can-be-shadowed?52_0))" +"(let-values(((initial-require?_812) initial-require?53_0))" +"(let-values(((copy-variable-phase-level_813) copy-variable-phase-level54_0))" +"(let-values(((copy-variable-as-constant?_814) copy-variable-as-constant?55_0))" +"(let-values(((skip-variable-phase-level_815) skip-variable-phase-level56_0))" +"(let-values(((bind?_816) bind?57_0))" +"(let-values(((who_817) who58_0))" "(let-values()" "(let-values()" -"(let-values(((module-name_0)(1/module-path-index-resolve mpi_36 #t)))" -"(let-values(((bind-in-stx_0)" -"(if(adjust-rename? adjust_1)" -"(adjust-rename-to-id adjust_1)" -" in-stx_1)))" -"(let-values(((done-syms_0)(if adjust_1(make-hash) #f)))" -"(let-values(((m_13)(namespace->module m-ns_10 module-name_0)))" +"(let-values(((module-name_818)" +"(1/module-path-index-resolve mpi_799 #t)))" +"(let-values(((bind-in-stx_819)" +"(if(adjust-rename? adjust_807)" +"(adjust-rename-to-id adjust_807)" +" in-stx_802)))" +"(let-values(((done-syms_820)(if adjust_807(make-hash) #f)))" +"(let-values(((m_821)" +"(namespace->module m-ns_803 module-name_818)))" "(let-values((()" "(begin" -"(if m_13" +"(if m_821" "(void)" "(let-values()" "(raise-unknown-module-error" " 'require" -" module-name_0)))" +" module-name_818)))" "(values))))" -"(let-values(((interned-mpi_0)" -"(if requires+provides_3" +"(let-values(((interned-mpi_822)" +"(if requires+provides_808" "(add-required-module!" -" requires+provides_3" -" mpi_36" -" phase-shift_10" -"(module-cross-phase-persistent? m_13))" -" mpi_36)))" +" requires+provides_808" +" mpi_799" +" phase-shift_804" +"(module-cross-phase-persistent? m_821))" +" mpi_799)))" "(let-values((()" "(begin" -"(if visit?_2" +"(if visit?_809" "(let-values()" -"(let-values(((m-ns251_0) m-ns_10)" -"((interned-mpi252_0)" -" interned-mpi_0)" -"((phase-shift253_0)" -" phase-shift_10)" -"((run-phase254_0)" -" run-phase_6))" +"(let-values(((m-ns251_829) m-ns_803)" +"((interned-mpi252_830)" +" interned-mpi_822)" +"((phase-shift253_831)" +" phase-shift_804)" +"((run-phase254_832)" +" run-phase_805))" "(namespace-module-visit!104.1" -" run-phase254_0" -" m-ns251_0" -" interned-mpi252_0" -" phase-shift253_0)))" +" run-phase254_832" +" m-ns251_829" +" interned-mpi252_830" +" phase-shift253_831)))" "(void))" "(values))))" "(let-values((()" "(begin" -"(if run?_2" +"(if run?_810" "(let-values()" -"(let-values(((m-ns255_0) m-ns_10)" -"((interned-mpi256_0)" -" interned-mpi_0)" -"((phase-shift257_0)" -" phase-shift_10)" -"((run-phase258_0)" -" run-phase_6))" +"(let-values(((m-ns255_834) m-ns_803)" +"((interned-mpi256_835)" +" interned-mpi_822)" +"((phase-shift257_836)" +" phase-shift_804)" +"((run-phase258_837)" +" run-phase_805))" "(namespace-module-instantiate!96.1" " #t" -" run-phase258_0" +" run-phase258_837" " unsafe-undefined" " #f" -" m-ns255_0" -" interned-mpi256_0" -" phase-shift257_0)))" +" m-ns255_834" +" interned-mpi256_835" +" phase-shift257_836)))" "(void))" "(values))))" "(let-values((()" "(begin" "(if(not" -"(let-values(((or-part_197)" -" visit?_2))" -"(if or-part_197" -" or-part_197" -" run?_2)))" +"(let-values(((or-part_838)" +" visit?_809))" +"(if or-part_838" +" or-part_838" +" run?_810)))" "(let-values()" -"(let-values(((m-ns259_0) m-ns_10)" -"((interned-mpi260_0)" -" interned-mpi_0)" -"((phase-shift261_0)" -" phase-shift_10)" -"((run-phase262_0)" -" run-phase_6))" +"(let-values(((m-ns259_840)" +" m-ns_803)" +"((interned-mpi260_841)" +" interned-mpi_822)" +"((phase-shift261_842)" +" phase-shift_804)" +"((run-phase262_843)" +" run-phase_805))" "(namespace-module-make-available!112.1" -" run-phase262_0" -" m-ns259_0" -" interned-mpi260_0" -" phase-shift261_0)))" +" run-phase262_843" +" m-ns259_840" +" interned-mpi260_841" +" phase-shift261_842)))" "(void))" "(values))))" -"(let-values(((can-bulk-bind?_0)" -"(if(let-values(((or-part_198)" -"(not adjust_1)))" -"(if or-part_198" -" or-part_198" -"(let-values(((or-part_199)" +"(let-values(((can-bulk-bind?_823)" +"(if(let-values(((or-part_844)" +"(not adjust_807)))" +"(if or-part_844" +" or-part_844" +"(let-values(((or-part_845)" "(adjust-prefix?" -" adjust_1)))" -"(if or-part_199" -" or-part_199" +" adjust_807)))" +"(if or-part_845" +" or-part_845" "(adjust-all-except?" -" adjust_1)))))" -"(not skip-variable-phase-level_1)" +" adjust_807)))))" +"(not skip-variable-phase-level_815)" " #f)))" -"(let-values(((bulk-prefix_1)" -"(if(adjust-prefix? adjust_1)" +"(let-values(((bulk-prefix_824)" +"(if(adjust-prefix? adjust_807)" "(let-values()" -"(adjust-prefix-sym adjust_1))" -"(if(adjust-all-except? adjust_1)" +"(adjust-prefix-sym adjust_807))" +"(if(adjust-all-except? adjust_807)" "(let-values()" "(adjust-all-except-prefix-sym" -" adjust_1))" +" adjust_807))" "(let-values() #f)))))" -"(let-values(((bulk-excepts_1)" -"(if(adjust-all-except? adjust_1)" +"(let-values(((bulk-excepts_825)" +"(if(adjust-all-except? adjust_807)" "(let-values()" "(adjust-all-except-syms" -" adjust_1))" +" adjust_807))" "(let-values() '#hasheq()))))" -"(let-values(((update-nominals-box_0)" -"(if can-bulk-bind?_0" +"(let-values(((update-nominals-box_826)" +"(if can-bulk-bind?_823" "(box null)" " #f)))" "(let-values((()" "(begin" -"(let-values(((m235_0) m_13)" -"((bind-in-stx236_0)" -" bind-in-stx_0)" -"((phase-shift237_0)" -" phase-shift_10)" -"((m-ns238_0)" -" m-ns_10)" -"((interned-mpi239_0)" -" interned-mpi_0)" -"((module-name240_0)" -" module-name_0)" -"((orig-s241_0)" -" orig-s_14)" -"((temp242_0)" -"(if requires+provides_3" +"(let-values(((m235_847)" +" m_821)" +"((bind-in-stx236_848)" +" bind-in-stx_819)" +"((phase-shift237_849)" +" phase-shift_804)" +"((m-ns238_850)" +" m-ns_803)" +"((interned-mpi239_851)" +" interned-mpi_822)" +"((module-name240_852)" +" module-name_818)" +"((orig-s241_853)" +" orig-s_800)" +"((temp242_854)" +"(if requires+provides_808" "(requires+provides-self" -" requires+provides_3)" +" requires+provides_808)" " #f))" -"((temp243_0)" +"((temp243_855)" "(if(adjust-only?" -" adjust_1)" +" adjust_807)" "(let-values()" "(set->list" "(adjust-only-syms" -" adjust_1)))" +" adjust_807)))" "(if(adjust-rename?" -" adjust_1)" +" adjust_807)" "(let-values()" "(list" "(adjust-rename-from-sym" -" adjust_1)))" +" adjust_807)))" "(let-values()" " #f))))" -"((just-meta244_0)" -" just-meta_1)" -"((bind?245_0)" -" bind?_1)" -"((can-bulk-bind?246_0)" -" can-bulk-bind?_0)" -"((bulk-prefix247_0)" -" bulk-prefix_1)" -"((bulk-excepts248_0)" -" bulk-excepts_1)" -"((temp249_0)" -"(if requires+provides_3" -"(if can-bulk-bind?_0" -"(lambda(provides_6" -" provide-phase-level_4)" +"((just-meta244_856)" +" just-meta_806)" +"((bind?245_857)" +" bind?_816)" +"((can-bulk-bind?246_858)" +" can-bulk-bind?_823)" +"((bulk-prefix247_859)" +" bulk-prefix_824)" +"((bulk-excepts248_860)" +" bulk-excepts_825)" +"((temp249_861)" +"(if requires+provides_808" +"(if can-bulk-bind?_823" +"(lambda(provides_0" +" provide-phase-level_0)" "(begin" " 'temp249" -"(let-values(((requires+provides263_0)" -" requires+provides_3)" -"((bind-in-stx264_0)" -" bind-in-stx_0)" -"((temp265_0)" +"(let-values(((requires+provides263_866)" +" requires+provides_808)" +"((bind-in-stx264_867)" +" bind-in-stx_819)" +"((temp265_868)" "(module-self" -" m_13))" -"((mpi266_0)" -" mpi_36)" -"((phase-shift267_0)" -" phase-shift_10)" -"((provides268_0)" -" provides_6)" -"((provide-phase-level269_0)" -" provide-phase-level_4)" -"((bulk-prefix270_0)" -" bulk-prefix_1)" -"((bulk-excepts271_0)" -" bulk-excepts_1)" -"((temp272_0)" +" m_821))" +"((mpi266_869)" +" mpi_799)" +"((phase-shift267_870)" +" phase-shift_804)" +"((provides268_871)" +" provides_0)" +"((provide-phase-level269_872)" +" provide-phase-level_0)" +"((bulk-prefix270_873)" +" bulk-prefix_824)" +"((bulk-excepts271_874)" +" bulk-excepts_825)" +"((temp272_875)" "(if(positive?" "(hash-count" -" bulk-excepts_1))" -" done-syms_0" +" bulk-excepts_825))" +" done-syms_820" " #f))" -"((can-be-shadowed?273_0)" -" can-be-shadowed?_3)" -"((temp274_0)" +"((can-be-shadowed?273_876)" +" can-be-shadowed?_811)" +"((temp274_877)" "(not" -" initial-require?_1))" -"((orig-s275_0)" -" orig-s_14)" -"((update-nominals-box276_0)" -" update-nominals-box_0)" -"((who277_0)" -" who_15))" +" initial-require?_812))" +"((orig-s275_878)" +" orig-s_800)" +"((update-nominals-box276_879)" +" update-nominals-box_826)" +"((who277_880)" +" who_817))" "(add-bulk-required-ids!59.1" -" update-nominals-box276_0" -" can-be-shadowed?273_0" -" temp274_0" -" bulk-excepts271_0" -" orig-s275_0" -" bulk-prefix270_0" -" temp272_0" -" who277_0" -" requires+provides263_0" -" bind-in-stx264_0" -" temp265_0" -" mpi266_0" -" phase-shift267_0" -" provides268_0" -" provide-phase-level269_0))))" +" update-nominals-box276_879" +" can-be-shadowed?273_876" +" temp274_877" +" bulk-excepts271_874" +" orig-s275_878" +" bulk-prefix270_873" +" temp272_875" +" who277_880" +" requires+provides263_866" +" bind-in-stx264_867" +" temp265_868" +" mpi266_869" +" phase-shift267_870" +" provides268_871" +" provide-phase-level269_872))))" " #f)" " #f))" -"((temp250_0)" -"(if(let-values(((or-part_200)" +"((temp250_862)" +"(if(let-values(((or-part_881)" "(not" -" can-bulk-bind?_0)))" -"(if or-part_200" -" or-part_200" -" copy-variable-phase-level_1))" -"(lambda(binding_16" -" as-transformer?_4)" +" can-bulk-bind?_823)))" +"(if or-part_881" +" or-part_881" +" copy-variable-phase-level_813))" +"(lambda(binding_0" +" as-transformer?_0)" "(begin" " 'temp250" -"(let-values(((sym_47)" +"(let-values(((sym_884)" "(module-binding-nominal-sym" -" binding_16)))" -"(let-values(((provide-phase_0)" +" binding_0)))" +"(let-values(((provide-phase_885)" "(module-binding-nominal-phase" -" binding_16)))" -"(let-values(((adjusted-sym_0)" +" binding_0)))" +"(let-values(((adjusted-sym_886)" "(if(not" "(symbol-interned?" -" sym_47))" +" sym_884))" "(let-values()" " #f)" -"(if(if skip-variable-phase-level_1" +"(if(if skip-variable-phase-level_815" "(if(not" -" as-transformer?_4)" +" as-transformer?_0)" "(equal?" -" provide-phase_0" -" skip-variable-phase-level_1)" +" provide-phase_885" +" skip-variable-phase-level_815)" " #f)" " #f)" "(let-values()" " #f)" "(if(not" -" adjust_1)" +" adjust_807)" "(let-values()" -" sym_47)" +" sym_884)" "(if(adjust-only?" -" adjust_1)" +" adjust_807)" "(let-values()" "(if(set-member?" "(adjust-only-syms" -" adjust_1)" -" sym_47)" +" adjust_807)" +" sym_884)" "(if(hash-set!" -" done-syms_0" -" sym_47" +" done-syms_820" +" sym_884" " #t)" -" sym_47" +" sym_884" " #f)" " #f))" "(if(adjust-prefix?" -" adjust_1)" +" adjust_807)" "(let-values()" "(string->symbol" "(format" " \"~a~a\"" "(adjust-prefix-sym" -" adjust_1)" -" sym_47)))" +" adjust_807)" +" sym_884)))" "(if(adjust-all-except?" -" adjust_1)" +" adjust_807)" "(let-values()" "(if(not" "(if(set-member?" "(adjust-all-except-syms" -" adjust_1)" -" sym_47)" +" adjust_807)" +" sym_884)" "(hash-set!" -" done-syms_0" -" sym_47" +" done-syms_820" +" sym_884" " #t)" " #f))" "(string->symbol" "(format" " \"~a~a\"" "(adjust-all-except-prefix-sym" -" adjust_1)" -" sym_47))" +" adjust_807)" +" sym_884))" " #f))" "(if(adjust-rename?" -" adjust_1)" +" adjust_807)" "(let-values()" "(if(eq?" -" sym_47" +" sym_884" "(adjust-rename-from-sym" -" adjust_1))" +" adjust_807))" "(if(hash-set!" -" done-syms_0" -" sym_47" +" done-syms_820" +" sym_884" " #t)" "(adjust-rename-to-id" -" adjust_1)" +" adjust_807)" " #f)" " #f))" "(void))))))))))" -"(let-values(((skip-bind?_0)" -"(if(if adjusted-sym_0" -" requires+provides_3" +"(let-values(((skip-bind?_887)" +"(if(if adjusted-sym_886" +" requires+provides_808" " #f)" "(let-values()" -"(let-values(((s_272)" +"(let-values(((s_888)" "(datum->syntax$1" -" bind-in-stx_0" -" adjusted-sym_0)))" -"(let-values(((bind-phase_0)" +" bind-in-stx_819" +" adjusted-sym_886)))" +"(let-values(((bind-phase_889)" "(phase+" -" phase-shift_10" -" provide-phase_0)))" -"(let-values(((skip-bind?_1)" -"(if initial-require?_1" +" phase-shift_804" +" provide-phase_885)))" +"(let-values(((skip-bind?_890)" +"(if initial-require?_812" "(let-values()" " #f)" "(let-values()" -"(let-values(((temp278_0)" +"(let-values(((temp278_892)" " #t)" -"((temp279_0)" +"((temp279_893)" " #t)" -"((requires+provides280_0)" -" requires+provides_3)" -"((s281_0)" -" s_272)" -"((bind-phase282_0)" -" bind-phase_0)" -"((binding283_0)" -" binding_16)" -"((orig-s284_0)" -" orig-s_14)" -"((temp285_0)" +"((requires+provides280_894)" +" requires+provides_808)" +"((s281_895)" +" s_888)" +"((bind-phase282_896)" +" bind-phase_889)" +"((binding283_897)" +" binding_0)" +"((orig-s284_898)" +" orig-s_800)" +"((temp285_899)" " #t)" -"((who286_0)" -" who_15))" +"((who286_900)" +" who_817))" "(check-not-defined95.1" " #f" -" temp279_0" -" temp278_0" -" orig-s284_0" -" temp285_0" -" binding283_0" -" who286_0" -" requires+provides280_0" -" s281_0" -" bind-phase282_0))))))" +" temp279_893" +" temp278_892" +" orig-s284_898" +" temp285_899" +" binding283_897" +" who286_900" +" requires+provides280_894" +" s281_895" +" bind-phase282_896))))))" "(begin" -"(if skip-bind?_1" +"(if skip-bind?_890" "(void)" "(let-values()" -"(let-values(((requires+provides287_0)" -" requires+provides_3)" -"((s288_0)" -" s_272)" -"((bind-phase289_0)" -" bind-phase_0)" -"((binding290_0)" -" binding_16)" -"((can-be-shadowed?291_0)" -" can-be-shadowed?_3)" -"((as-transformer?292_0)" -" as-transformer?_4))" +"(let-values(((requires+provides287_902)" +" requires+provides_808)" +"((s288_903)" +" s_888)" +"((bind-phase289_904)" +" bind-phase_889)" +"((binding290_905)" +" binding_0)" +"((can-be-shadowed?291_906)" +" can-be-shadowed?_811)" +"((as-transformer?292_907)" +" as-transformer?_0))" "(add-defined-or-required-id!19.1" -" as-transformer?292_0" -" can-be-shadowed?291_0" -" requires+provides287_0" -" s288_0" -" bind-phase289_0" -" binding290_0))))" -" skip-bind?_1)))))" +" as-transformer?292_907" +" can-be-shadowed?291_906" +" requires+provides287_902" +" s288_903" +" bind-phase289_904" +" binding290_905))))" +" skip-bind?_890)))))" "(let-values()" " #f))))" "(begin" -"(if(if copy-variable-phase-level_1" +"(if(if copy-variable-phase-level_813" "(if(not" -" as-transformer?_4)" +" as-transformer?_0)" "(equal?" -" provide-phase_0" -" copy-variable-phase-level_1)" +" provide-phase_885" +" copy-variable-phase-level_813)" " #f)" " #f)" "(let-values()" "(copy-namespace-value" -" m-ns_10" -" sym_47" -" binding_16" -" copy-variable-phase-level_1" -" phase-shift_10" -" copy-variable-as-constant?_1))" +" m-ns_803" +" sym_884" +" binding_0" +" copy-variable-phase-level_813" +" phase-shift_804" +" copy-variable-as-constant?_814))" "(void))" "(if(not" -" skip-bind?_0)" -" adjusted-sym_0" +" skip-bind?_887)" +" adjusted-sym_886" " #f))))))))" " #f)))" "(bind-all-provides!107.1" -" bind?245_0" -" temp249_0" -" bulk-excepts248_0" -" bulk-prefix247_0" -" can-bulk-bind?246_0" -" temp242_0" -" temp250_0" -" orig-s241_0" -" just-meta244_0" -" temp243_0" -" m235_0" -" bind-in-stx236_0" -" phase-shift237_0" -" m-ns238_0" -" interned-mpi239_0" -" module-name240_0))" +" bind?245_857" +" temp249_861" +" bulk-excepts248_860" +" bulk-prefix247_859" +" can-bulk-bind?246_858" +" temp242_854" +" temp250_862" +" orig-s241_853" +" just-meta244_856" +" temp243_855" +" m235_847" +" bind-in-stx236_848" +" phase-shift237_849" +" m-ns238_850" +" interned-mpi239_851" +" module-name240_852))" "(values))))" "(let-values((()" "(begin" -"(if update-nominals-box_0" +"(if update-nominals-box_826" "(let-values()" "(begin" -"(let-values(((lst_150)" +"(let-values(((lst_908)" "(unbox" -" update-nominals-box_0)))" +" update-nominals-box_826)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_150)))" -"((letrec-values(((for-loop_178)" -"(lambda(lst_151)" +" lst_908)))" +"((letrec-values(((for-loop_909)" +"(lambda(lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_151)" -"(let-values(((update!_1)" +" lst_0)" +"(let-values(((update!_911)" "(unsafe-car" -" lst_151))" -"((rest_77)" +" lst_0))" +"((rest_912)" "(unsafe-cdr" -" lst_151)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(update!_1))" +"(update!_911))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_178" -" rest_77)" +"(for-loop_909" +" rest_912)" "(values))))" "(values))))))" -" for-loop_178)" -" lst_150)))" +" for-loop_909)" +" lst_908)))" "(void)))" "(void))" "(values))))" -"(let-values(((need-syms_0)" -"(if(adjust-only? adjust_1)" +"(let-values(((need-syms_827)" +"(if(adjust-only?" +" adjust_807)" "(let-values()" "(adjust-only-syms" -" adjust_1))" +" adjust_807))" "(if(adjust-all-except?" -" adjust_1)" +" adjust_807)" "(let-values()" "(adjust-all-except-syms" -" adjust_1))" +" adjust_807))" "(if(adjust-rename?" -" adjust_1)" +" adjust_807)" "(let-values()" "(set" "(adjust-rename-from-sym" -" adjust_1)))" +" adjust_807)))" "(let-values()" " #f))))))" -"(if(if need-syms_0" +"(if(if need-syms_827" "(not" "(=" -"(set-count need-syms_0)" -"(hash-count done-syms_0)))" +"(set-count need-syms_827)" +"(hash-count done-syms_820)))" " #f)" "(let-values()" "(begin" -"(let-values(((ht_106)" -" need-syms_0))" +"(let-values(((ht_913)" +" need-syms_827))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_106)))" -"((letrec-values(((for-loop_179)" -"(lambda(i_133)" +" ht_913)))" +"((letrec-values(((for-loop_914)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_133" -"(let-values(((sym_48)" +"(if i_0" +"(let-values(((sym_916)" "(unsafe-immutable-hash-iterate-key" -" ht_106" -" i_133)))" +" ht_913" +" i_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25458,29 +25555,29 @@ static const char *startup_source = "(begin" "(let-values()" "(if(hash-ref" -" done-syms_0" -" sym_48" +" done-syms_820" +" sym_916" " #f)" "(void)" "(let-values()" "(raise-syntax-error$1" -" who_15" +" who_817" " \"not in nested spec\"" -" orig-s_14" -" sym_48))))" +" orig-s_800" +" sym_916))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_179" +"(for-loop_914" "(unsafe-immutable-hash-iterate-next" -" ht_106" -" i_133))" +" ht_913" +" i_0))" "(values))))" "(values))))))" -" for-loop_179)" +" for-loop_914)" "(unsafe-immutable-hash-iterate-first" -" ht_106))))" +" ht_913))))" "(void)))" "(void))))))))))))))))))))))))))))))))))))))))))" "(define-values" @@ -25503,558 +25600,589 @@ static const char *startup_source = " module-name106_0)" "(begin" " 'bind-all-provides!107" -"(let-values(((m_14) m101_0))" -"(let-values(((in-stx_2) in-stx102_0))" -"(let-values(((phase-shift_11) phase-shift103_0))" -"(let-values(((ns_50) ns104_0))" -"(let-values(((mpi_37) mpi105_0))" -"(let-values(((module-name_1) module-name106_0))" -"(let-values(((orig-s_15) in81_0))" -"(let-values(((defines-mpi_0) defines-mpi82_0))" -"(let-values(((only-syms_0) only83_0))" -"(let-values(((just-meta_2) just-meta84_0))" -"(let-values(((bind?_2) bind?85_0))" -"(let-values(((can-bulk?_0) can-bulk?86_0))" -"(let-values(((bulk-prefix_2) bulk-prefix87_0))" -"(let-values(((bulk-excepts_2) bulk-excepts88_0))" -"(let-values(((filter_0) filter89_0))" -"(let-values(((bulk-callback_0) bulk-callback90_0))" +"(let-values(((m_1014) m101_0))" +"(let-values(((in-stx_1015) in-stx102_0))" +"(let-values(((phase-shift_1016) phase-shift103_0))" +"(let-values(((ns_1017) ns104_0))" +"(let-values(((mpi_1018) mpi105_0))" +"(let-values(((module-name_1019) module-name106_0))" +"(let-values(((orig-s_1020) in81_0))" +"(let-values(((defines-mpi_1021) defines-mpi82_0))" +"(let-values(((only-syms_1022) only83_0))" +"(let-values(((just-meta_1023) just-meta84_0))" +"(let-values(((bind?_1024) bind?85_0))" +"(let-values(((can-bulk?_1025) can-bulk?86_0))" +"(let-values(((bulk-prefix_1026) bulk-prefix87_0))" +"(let-values(((bulk-excepts_1027) bulk-excepts88_0))" +"(let-values(((filter_1028) filter89_0))" +"(let-values(((bulk-callback_1029) bulk-callback90_0))" "(let-values()" -"(let-values(((self_12)(module-self m_14)))" +"(let-values(((self_1030)(module-self m_1014)))" "(begin" -"(let-values(((ht_107)(module-provides m_14)))" +"(let-values(((ht_1031)(module-provides m_1014)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_107)))" -"((letrec-values(((for-loop_180)" -"(lambda(i_134)" +"(let-values()(check-in-hash ht_1031)))" +"((letrec-values(((for-loop_1032)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_134" -"(let-values(((provide-phase-level_5 provides_7)" +"(if i_0" +"(let-values(((provide-phase-level_1034" +" provides_1035)" "(hash-iterate-key+value" -" ht_107" -" i_134)))" +" ht_1031" +" i_0)))" "(let-values((()" "(let-values()" -"(if(let-values(((or-part_201)" +"(if(let-values(((or-part_1036)" "(eq?" -" just-meta_2" +" just-meta_1023" " 'all)))" -"(if or-part_201" -" or-part_201" +"(if or-part_1036" +" or-part_1036" "(eqv?" -" just-meta_2" -" provide-phase-level_5)))" +" just-meta_1023" +" provide-phase-level_1034)))" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_70)" +"(let-values(((phase_1037)" "(phase+" -" phase-shift_11" -" provide-phase-level_5)))" -"(let-values(((need-except?_0)" -"(if bulk-callback_0" -"(bulk-callback_0" -" provides_7" -" provide-phase-level_5)" +" phase-shift_1016" +" provide-phase-level_1034)))" +"(let-values(((need-except?_1038)" +"(if bulk-callback_1029" +"(bulk-callback_1029" +" provides_1035" +" provide-phase-level_1034)" " #f)))" -"(if bind?_2" +"(if bind?_1024" "(let-values()" "(begin" -"(if filter_0" +"(if filter_1028" "(let-values()" "(begin" -"(let-values(((lst_152)" -"(let-values(((or-part_202)" -" only-syms_0))" -"(if or-part_202" -" or-part_202" +"(let-values(((lst_1039)" +"(let-values(((or-part_1040)" +" only-syms_1022))" +"(if or-part_1040" +" or-part_1040" "(hash-keys" -" provides_7)))))" +" provides_1035)))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_152)))" -"((letrec-values(((for-loop_181)" -"(lambda(lst_153)" +" lst_1039)))" +"((letrec-values(((for-loop_1041)" +"(lambda(lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_153)" -"(let-values(((sym_49)" +" lst_0)" +"(let-values(((sym_1043)" "(unsafe-car" -" lst_153))" -"((rest_78)" +" lst_0))" +"((rest_1044)" "(unsafe-cdr" -" lst_153)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((binding/p_4)" +"(let-values(((binding/p_1045)" "(hash-ref" -" provides_7" -" sym_49" +" provides_1035" +" sym_1043" " #f)))" -"(if binding/p_4" +"(if binding/p_1045" "(let-values()" -"(let-values(((b_72)" -"(let-values(((binding/p293_0)" -" binding/p_4)" -"((sym294_0)" -" sym_49)" -"((self295_0)" -" self_12)" -"((mpi296_0)" -" mpi_37)" -"((provide-phase-level297_0)" -" provide-phase-level_5)" -"((phase-shift298_0)" -" phase-shift_11))" +"(let-values(((b_1046)" +"(let-values(((binding/p293_1048)" +" binding/p_1045)" +"((sym294_1049)" +" sym_1043)" +"((self295_1050)" +" self_1030)" +"((mpi296_1051)" +" mpi_1018)" +"((provide-phase-level297_1052)" +" provide-phase-level_1034)" +"((phase-shift298_1053)" +" phase-shift_1016))" "(provide-binding-to-require-binding11.1" -" mpi296_0" -" phase-shift298_0" -" provide-phase-level297_0" -" self295_0" -" binding/p293_0" -" sym294_0))))" -"(let-values(((sym_50)" -"(filter_0" -" b_72" +" mpi296_1051" +" phase-shift298_1053" +" provide-phase-level297_1052" +" self295_1050" +" binding/p293_1048" +" sym294_1049))))" +"(let-values(((sym_1054)" +"(filter_1028" +" b_1046" "(provided-as-transformer?" -" binding/p_4))))" -"(if(if sym_50" +" binding/p_1045))))" +"(if(if sym_1054" "(not" -" can-bulk?_0)" +" can-bulk?_1025)" " #f)" "(let-values()" -"(let-values(((temp299_0)" +"(let-values(((temp299_1055)" "(datum->syntax$1" -" in-stx_2" -" sym_50))" -"((b300_0)" -" b_72)" -"((phase301_0)" -" phase_70))" +" in-stx_1015" +" sym_1054))" +"((b300_1056)" +" b_1046)" +"((phase301_1057)" +" phase_1037))" "(add-binding!17.1" " #f" " #f" -" temp299_0" -" b300_0" -" phase301_0)))" +" temp299_1055" +" b300_1056" +" phase301_1057)))" "(void)))))" "(void))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_181" -" rest_78)" +"(for-loop_1041" +" rest_1044)" "(values))))" "(values))))))" -" for-loop_181)" -" lst_152)))" +" for-loop_1041)" +" lst_1039)))" "(void)))" "(void))" -"(if can-bulk?_0" +"(if can-bulk?_1025" "(let-values()" -"(let-values(((bulk-binding-registry_10)" +"(let-values(((bulk-binding-registry_1058)" "(namespace-bulk-binding-registry" -" ns_50)))" -"(let-values(((in-stx302_0)" -" in-stx_2)" -"((temp303_0)" +" ns_1017)))" +"(let-values(((in-stx302_1060)" +" in-stx_1015)" +"((temp303_1061)" "(bulk-binding14.1" -"(let-values(((or-part_203)" +"(let-values(((or-part_1065)" "(if(not" -" bulk-prefix_2)" +" bulk-prefix_1026)" "(if(zero?" "(hash-count" -" bulk-excepts_2))" -" provides_7" +" bulk-excepts_1027))" +" provides_1035" " #f)" " #f)))" -"(if or-part_203" -" or-part_203" +"(if or-part_1065" +" or-part_1065" "(if(not" "(registered-bulk-provide?" -" bulk-binding-registry_10" -" module-name_1))" +" bulk-binding-registry_1058" +" module-name_1019))" "(bulk-provides-add-prefix-remove-exceptions" -" provides_7" -" bulk-prefix_2" -" bulk-excepts_2)" +" provides_1035" +" bulk-prefix_1026" +" bulk-excepts_1027)" " #f)))" -" bulk-prefix_2" -" bulk-excepts_2" -" self_12" -" mpi_37" -" provide-phase-level_5" -" phase-shift_11" -" bulk-binding-registry_10))" -"((phase304_0)" -" phase_70)" -"((orig-s305_0)" -" orig-s_15)" -"((temp306_0)" -"(if need-except?_0" -" defines-mpi_0" +" bulk-prefix_1026" +" bulk-excepts_1027" +" self_1030" +" mpi_1018" +" provide-phase-level_1034" +" phase-shift_1016" +" bulk-binding-registry_1058))" +"((phase304_1062)" +" phase_1037)" +"((orig-s305_1063)" +" orig-s_1020)" +"((temp306_1064)" +"(if need-except?_1038" +" defines-mpi_1021" " #f)))" "(add-bulk-binding!27.1" -" orig-s305_0" -" temp306_0" -" in-stx302_0" -" temp303_0" -" phase304_0))))" +" orig-s305_1063" +" temp306_1064" +" in-stx302_1060" +" temp303_1061" +" phase304_1062))))" "(void))))" "(void)))))" "(values)))))" "(values)))" "(values)))))" "(if(not #f)" -"(for-loop_180" -"(hash-iterate-next ht_107 i_134))" +"(for-loop_1032" +"(hash-iterate-next ht_1031 i_0))" "(values))))" "(values))))))" -" for-loop_180)" -"(hash-iterate-first ht_107))))" +" for-loop_1032)" +"(hash-iterate-first ht_1031))))" "(void)))))))))))))))))))))))" "(define-values" "(require-spec-shift-for-syntax)" -"(lambda(req_1)" +"(lambda(req_0)" "(begin" -"(let-values(((rebuild-req_0)" -"(lambda(req_2 new-req_0)(begin 'rebuild-req(datum->syntax$1 req_2 new-req_0 req_2 req_2)))))" -"(letrec-values(((loop_87)" +"(let-values(((rebuild-req_1123)" +"(lambda(req_1 new-req_0)(begin 'rebuild-req(datum->syntax$1 req_1 new-req_0 req_1 req_1)))))" +"(letrec-values(((loop_1124)" "(lambda(shifted?_0)" "(begin" " 'loop" -"(lambda(req_3)" -"(let-values(((fm_1)" -"(if(pair?(syntax-e$1 req_3))" -"(if(identifier?(car(syntax-e$1 req_3)))" -"(syntax-e$1(car(syntax-e$1 req_3)))" +"(lambda(req_1)" +"(let-values(((fm_1129)" +"(if(pair?(syntax-e$1 req_1))" +"(if(identifier?(car(syntax-e$1 req_1)))" +"(syntax-e$1(car(syntax-e$1 req_1)))" " #f)" " #f)))" -"(let-values(((tmp_25) fm_1))" -"(if(equal? tmp_25 'for-meta)" +"(let-values(((tmp_1130) fm_1129))" +"(if(equal? tmp_1130 'for-meta)" "(let-values()" -"(let-values(((ok?_12 for-meta307_0 phase-level308_0 spec309_0)" -"(let-values(((s_273) req_3))" -"(let-values(((orig-s_16) s_273))" -"(let-values(((for-meta307_1 phase-level308_1 spec309_1)" -"(let-values(((s_274)" -"(if(syntax?$1 s_273)" -"(syntax-e$1 s_273)" -" s_273)))" -"(if(pair? s_274)" -"(let-values(((for-meta310_0)" -"(let-values(((s_275)" -"(car s_274)))" -" s_275))" -"((phase-level311_0 spec312_0)" -"(let-values(((s_276)" -"(cdr s_274)))" -"(let-values(((s_277)" +"(let-values(((ok?_1131 for-meta307_1132 phase-level308_1133 spec309_1134)" +"(let-values(((s_1152) req_1))" +"(let-values(((orig-s_1153) s_1152))" +"(let-values(((for-meta307_1154" +" phase-level308_1155" +" spec309_1156)" +"(let-values(((s_1157)" +"(if(syntax?$1 s_1152)" +"(syntax-e$1 s_1152)" +" s_1152)))" +"(if(pair? s_1157)" +"(let-values(((for-meta310_1158)" +"(let-values(((s_1161)" +"(car s_1157)))" +" s_1161))" +"((phase-level311_1159" +" spec312_1160)" +"(let-values(((s_1162)" +"(cdr s_1157)))" +"(let-values(((s_1163)" "(if(syntax?$1" -" s_276)" +" s_1162)" "(syntax-e$1" -" s_276)" -" s_276)))" -"(if(pair? s_277)" -"(let-values(((phase-level313_0)" -"(let-values(((s_278)" +" s_1162)" +" s_1162)))" +"(if(pair? s_1163)" +"(let-values(((phase-level313_1164)" +"(let-values(((s_1166)" "(car" -" s_277)))" -" s_278))" -"((spec314_0)" -"(let-values(((s_279)" +" s_1163)))" +" s_1166))" +"((spec314_1165)" +"(let-values(((s_1167)" "(cdr" -" s_277)))" -"(let-values(((s_280)" +" s_1163)))" +"(let-values(((s_1168)" "(if(syntax?$1" -" s_279)" +" s_1167)" "(syntax-e$1" -" s_279)" -" s_279)))" -"(let-values(((flat-s_8)" +" s_1167)" +" s_1167)))" +"(let-values(((flat-s_1169)" "(to-syntax-list.1" -" s_280)))" +" s_1168)))" "(if(not" -" flat-s_8)" +" flat-s_1169)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_16))" +" orig-s_1153))" "(let-values()" -" flat-s_8)))))))" +" flat-s_1169)))))))" "(values" -" phase-level313_0" -" spec314_0))" +" phase-level313_1164" +" spec314_1165))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_16))))))" +" orig-s_1153))))))" "(values" -" for-meta310_0" -" phase-level311_0" -" spec312_0))" +" for-meta310_1158" +" phase-level311_1159" +" spec312_1160))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_16)))))" -"(values #t for-meta307_1 phase-level308_1 spec309_1))))))" -"(let-values(((p_27)(syntax-e$1 phase-level308_0)))" +" orig-s_1153)))))" +"(values" +" #t" +" for-meta307_1154" +" phase-level308_1155" +" spec309_1156))))))" +"(let-values(((p_1151)(syntax-e$1 phase-level308_1133)))" "(begin" -"(if(phase? p_27)" +"(if(phase? p_1151)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"bad phase\" req_3)))" -"(rebuild-req_0" -" req_3" -"(list* for-meta307_0(phase+ p_27 1)(map2(loop_87 #t) spec309_0)))))))" -"(if(equal? tmp_25 'for-syntax)" +" (let-values () (raise-syntax-error$1 #f \"bad phase\" req_1)))" +"(rebuild-req_1123" +" req_1" +"(list*" +" for-meta307_1132" +"(phase+ p_1151 1)" +"(map2(loop_1124 #t) spec309_1134)))))))" +"(if(equal? tmp_1130 'for-syntax)" "(let-values()" -"(let-values(((ok?_13 for-syntax315_0 spec316_0)" -"(let-values(((s_281) req_3))" -"(let-values(((orig-s_17) s_281))" -"(let-values(((for-syntax315_1 spec316_1)" -"(let-values(((s_282)" -"(if(syntax?$1 s_281)" -"(syntax-e$1 s_281)" -" s_281)))" -"(if(pair? s_282)" -"(let-values(((for-syntax317_0)" -"(let-values(((s_283)" -"(car s_282)))" -" s_283))" -"((spec318_0)" -"(let-values(((s_284)" -"(cdr s_282)))" -"(let-values(((s_285)" +"(let-values(((ok?_1170 for-syntax315_1171 spec316_1172)" +"(let-values(((s_1186) req_1))" +"(let-values(((orig-s_1187) s_1186))" +"(let-values(((for-syntax315_1188 spec316_1189)" +"(let-values(((s_1190)" +"(if(syntax?$1 s_1186)" +"(syntax-e$1 s_1186)" +" s_1186)))" +"(if(pair? s_1190)" +"(let-values(((for-syntax317_1191)" +"(let-values(((s_1193)" +"(car s_1190)))" +" s_1193))" +"((spec318_1192)" +"(let-values(((s_1194)" +"(cdr s_1190)))" +"(let-values(((s_1195)" "(if(syntax?$1" -" s_284)" +" s_1194)" "(syntax-e$1" -" s_284)" -" s_284)))" -"(let-values(((flat-s_9)" +" s_1194)" +" s_1194)))" +"(let-values(((flat-s_1196)" "(to-syntax-list.1" -" s_285)))" -"(if(not flat-s_9)" +" s_1195)))" +"(if(not flat-s_1196)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_17))" +" orig-s_1187))" "(let-values()" -" flat-s_9)))))))" -"(values for-syntax317_0 spec318_0))" +" flat-s_1196)))))))" +"(values for-syntax317_1191 spec318_1192))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_17)))))" -"(values #t for-syntax315_1 spec316_1))))))" -"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_87 #t) spec316_0)))))" -"(if(equal? tmp_25 'for-template)" +" orig-s_1187)))))" +"(values #t for-syntax315_1188 spec316_1189))))))" +"(rebuild-req_1123" +" req_1" +"(list* 'for-meta 2(map2(loop_1124 #t) spec316_1172)))))" +"(if(equal? tmp_1130 'for-template)" "(let-values()" -"(let-values(((ok?_14 for-template319_0 spec320_0)" -"(let-values(((s_286) req_3))" -"(let-values(((orig-s_18) s_286))" -"(let-values(((for-template319_1 spec320_1)" -"(let-values(((s_287)" -"(if(syntax?$1 s_286)" -"(syntax-e$1 s_286)" -" s_286)))" -"(if(pair? s_287)" -"(let-values(((for-template321_0)" -"(let-values(((s_288)" -"(car s_287)))" -" s_288))" -"((spec322_0)" -"(let-values(((s_289)" -"(cdr s_287)))" -"(let-values(((s_290)" +"(let-values(((ok?_1197 for-template319_1198 spec320_1199)" +"(let-values(((s_1213) req_1))" +"(let-values(((orig-s_1214) s_1213))" +"(let-values(((for-template319_1215 spec320_1216)" +"(let-values(((s_1217)" +"(if(syntax?$1 s_1213)" +"(syntax-e$1 s_1213)" +" s_1213)))" +"(if(pair? s_1217)" +"(let-values(((for-template321_1218)" +"(let-values(((s_1220)" +"(car" +" s_1217)))" +" s_1220))" +"((spec322_1219)" +"(let-values(((s_1221)" +"(cdr" +" s_1217)))" +"(let-values(((s_1222)" "(if(syntax?$1" -" s_289)" +" s_1221)" "(syntax-e$1" -" s_289)" -" s_289)))" -"(let-values(((flat-s_10)" +" s_1221)" +" s_1221)))" +"(let-values(((flat-s_1223)" "(to-syntax-list.1" -" s_290)))" -"(if(not flat-s_10)" +" s_1222)))" +"(if(not flat-s_1223)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_18))" +" orig-s_1214))" "(let-values()" -" flat-s_10)))))))" -"(values for-template321_0 spec322_0))" +" flat-s_1223)))))))" +"(values" +" for-template321_1218" +" spec322_1219))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_18)))))" -"(values #t for-template319_1 spec320_1))))))" -"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_87 #t) spec320_0)))))" -"(if(equal? tmp_25 'for-label)" +" orig-s_1214)))))" +"(values #t for-template319_1215 spec320_1216))))))" +"(rebuild-req_1123" +" req_1" +"(list* 'for-meta 0(map2(loop_1124 #t) spec320_1199)))))" +"(if(equal? tmp_1130 'for-label)" "(let-values()" -"(let-values(((ok?_15 for-label323_0 spec324_0)" -"(let-values(((s_291) req_3))" -"(let-values(((orig-s_19) s_291))" -"(let-values(((for-label323_1 spec324_1)" -"(let-values(((s_292)" -"(if(syntax?$1 s_291)" -"(syntax-e$1 s_291)" -" s_291)))" -"(if(pair? s_292)" -"(let-values(((for-label325_0)" -"(let-values(((s_293)" +"(let-values(((ok?_1224 for-label323_1225 spec324_1226)" +"(let-values(((s_1240) req_1))" +"(let-values(((orig-s_1241) s_1240))" +"(let-values(((for-label323_1242 spec324_1243)" +"(let-values(((s_1244)" +"(if(syntax?$1 s_1240)" +"(syntax-e$1 s_1240)" +" s_1240)))" +"(if(pair? s_1244)" +"(let-values(((for-label325_1245)" +"(let-values(((s_1247)" "(car" -" s_292)))" -" s_293))" -"((spec326_0)" -"(let-values(((s_294)" +" s_1244)))" +" s_1247))" +"((spec326_1246)" +"(let-values(((s_1248)" "(cdr" -" s_292)))" -"(let-values(((s_295)" +" s_1244)))" +"(let-values(((s_1249)" "(if(syntax?$1" -" s_294)" +" s_1248)" "(syntax-e$1" -" s_294)" -" s_294)))" -"(let-values(((flat-s_11)" +" s_1248)" +" s_1248)))" +"(let-values(((flat-s_1250)" "(to-syntax-list.1" -" s_295)))" -"(if(not flat-s_11)" +" s_1249)))" +"(if(not" +" flat-s_1250)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_19))" +" orig-s_1241))" "(let-values()" -" flat-s_11)))))))" -"(values for-label325_0 spec326_0))" +" flat-s_1250)))))))" +"(values" +" for-label325_1245" +" spec326_1246))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_19)))))" -"(values #t for-label323_1 spec324_1))))))" -"(rebuild-req_0" -" req_3" -"(list* for-label323_0(map2(loop_87 #t) spec324_0)))))" -"(if(equal? tmp_25 'just-meta)" +" orig-s_1241)))))" +"(values #t for-label323_1242 spec324_1243))))))" +"(rebuild-req_1123" +" req_1" +"(list* for-label323_1225(map2(loop_1124 #t) spec324_1226)))))" +"(if(equal? tmp_1130 'just-meta)" "(let-values()" -"(let-values(((ok?_16 just-meta327_0 phase-level328_0 spec329_0)" -"(let-values(((s_296) req_3))" -"(let-values(((orig-s_20) s_296))" -"(let-values(((just-meta327_1" -" phase-level328_1" -" spec329_1)" -"(let-values(((s_297)" -"(if(syntax?$1 s_296)" -"(syntax-e$1 s_296)" -" s_296)))" -"(if(pair? s_297)" -"(let-values(((just-meta330_0)" -"(let-values(((s_298)" +"(let-values(((ok?_1251" +" just-meta327_1252" +" phase-level328_1253" +" spec329_1254)" +"(let-values(((s_1271) req_1))" +"(let-values(((orig-s_1272) s_1271))" +"(let-values(((just-meta327_1273" +" phase-level328_1274" +" spec329_1275)" +"(let-values(((s_1276)" +"(if(syntax?$1 s_1271)" +"(syntax-e$1 s_1271)" +" s_1271)))" +"(if(pair? s_1276)" +"(let-values(((just-meta330_1277)" +"(let-values(((s_1280)" "(car" -" s_297)))" -" s_298))" -"((phase-level331_0" -" spec332_0)" -"(let-values(((s_299)" +" s_1276)))" +" s_1280))" +"((phase-level331_1278" +" spec332_1279)" +"(let-values(((s_1281)" "(cdr" -" s_297)))" -"(let-values(((s_300)" +" s_1276)))" +"(let-values(((s_1282)" "(if(syntax?$1" -" s_299)" +" s_1281)" "(syntax-e$1" -" s_299)" -" s_299)))" -"(if(pair? s_300)" -"(let-values(((phase-level333_0)" -"(let-values(((s_301)" +" s_1281)" +" s_1281)))" +"(if(pair? s_1282)" +"(let-values(((phase-level333_1283)" +"(let-values(((s_1285)" "(car" -" s_300)))" -" s_301))" -"((spec334_0)" -"(let-values(((s_302)" +" s_1282)))" +" s_1285))" +"((spec334_1284)" +"(let-values(((s_1286)" "(cdr" -" s_300)))" -"(let-values(((s_303)" +" s_1282)))" +"(let-values(((s_1287)" "(if(syntax?$1" -" s_302)" +" s_1286)" "(syntax-e$1" -" s_302)" -" s_302)))" -"(let-values(((flat-s_12)" +" s_1286)" +" s_1286)))" +"(let-values(((flat-s_1288)" "(to-syntax-list.1" -" s_303)))" +" s_1287)))" "(if(not" -" flat-s_12)" +" flat-s_1288)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_20))" +" orig-s_1272))" "(let-values()" -" flat-s_12)))))))" +" flat-s_1288)))))))" "(values" -" phase-level333_0" -" spec334_0))" +" phase-level333_1283" +" spec334_1284))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_20))))))" +" orig-s_1272))))))" "(values" -" just-meta330_0" -" phase-level331_0" -" spec332_0))" +" just-meta330_1277" +" phase-level331_1278" +" spec332_1279))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_20)))))" +" orig-s_1272)))))" "(values" " #t" -" just-meta327_1" -" phase-level328_1" -" spec329_1))))))" -"(rebuild-req_0" -" req_3" +" just-meta327_1273" +" phase-level328_1274" +" spec329_1275))))))" +"(rebuild-req_1123" +" req_1" "(list*" -" just-meta327_0" -" phase-level328_0" -"(map2(loop_87 #f) spec329_0)))))" +" just-meta327_1252" +" phase-level328_1253" +"(map2(loop_1124 #f) spec329_1254)))))" "(let-values()" "(if shifted?_0" -" req_3" -"(datum->syntax$1 #f(list 'for-syntax req_3))))))))))))))))" -"((loop_87 #f) req_1))))))" +" req_1" +"(datum->syntax$1 #f(list 'for-syntax req_1))))))))))))))))" +"((loop_1124 #f) req_0))))))" "(define-values" "(copy-namespace-value)" -"(lambda(m-ns_11 adjusted-sym_1 binding_17 phase-level_16 phase-shift_12 as-constant?_1)" +"(lambda(m-ns_0 adjusted-sym_0 binding_0 phase-level_0 phase-shift_0 as-constant?_0)" "(begin" -"(let-values(((i-ns_0)" -"(let-values(((m-ns335_0) m-ns_11)" -"((temp336_0)(1/module-path-index-resolve(module-binding-module binding_17)))" -"((temp337_0)(phase-(module-binding-phase binding_17) phase-level_16))" -"((temp338_0) #t))" -"(namespace->module-namespace82.1 #f temp338_0 unsafe-undefined m-ns335_0 temp336_0 temp337_0))))" -"(let-values(((val_47)" +"(let-values(((i-ns_1295)" +"(let-values(((m-ns335_1298) m-ns_0)" +"((temp336_1299)(1/module-path-index-resolve(module-binding-module binding_0)))" +"((temp337_1300)(phase-(module-binding-phase binding_0) phase-level_0))" +"((temp338_1301) #t))" +"(namespace->module-namespace82.1" +" #f" +" temp338_1301" +" unsafe-undefined" +" m-ns335_1298" +" temp336_1299" +" temp337_1300))))" +"(let-values(((val_1296)" "(namespace-get-variable" -" i-ns_0" -"(module-binding-phase binding_17)" -"(module-binding-sym binding_17)" +" i-ns_1295" +"(module-binding-phase binding_0)" +"(module-binding-sym binding_0)" "(lambda()" "(error" " 'namespace-require/copy" @@ -26065,15 +26193,15 @@ static const char *startup_source = " \" module: ~a\\n\"" " \" variable name: ~s\\n\"" " \" phase level: ~s\")" -"(module-binding-module binding_17)" -"(module-binding-sym binding_17)" -"(module-binding-phase binding_17)))))))" +"(module-binding-module binding_0)" +"(module-binding-sym binding_0)" +"(module-binding-phase binding_0)))))))" "(namespace-set-variable!" -" m-ns_11" -"(phase+ phase-shift_12 phase-level_16)" -" adjusted-sym_1" -" val_47" -" as-constant?_1))))))" +" m-ns_0" +"(phase+ phase-shift_0 phase-level_0)" +" adjusted-sym_0" +" val_1296" +" as-constant?_0))))))" "(define-values" "(top-level-instance)" "(1/make-instance" @@ -26081,60 +26209,60 @@ static const char *startup_source = " #f" " 'constant" " top-level-bind!-id" -"(lambda(id_20 mpi_38 orig-phase_0 phase-shift_13 ns_51 sym_51 trans?_0 trans-val_0)" -"(let-values(((phase_71)(phase+ orig-phase_0 phase-shift_13)))" -"(let-values(((b_73)" -"(let-values(((mpi4_1) mpi_38)" -"((phase5_1) phase_71)" -"((sym6_1) sym_51)" -"((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_51))))" +"(lambda(id_0 mpi_0 orig-phase_0 phase-shift_0 ns_0 sym_0 trans?_0 trans-val_0)" +"(let-values(((phase_9)(phase+ orig-phase_0 phase-shift_0)))" +"(let-values(((b_10)" +"(let-values(((mpi4_12) mpi_0)" +"((phase5_13) phase_9)" +"((sym6_14) sym_0)" +"((temp7_15)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_0))))" "(make-module-binding22.1" " #f" " null" -" temp7_0" +" temp7_15" " #f" " unsafe-undefined" " unsafe-undefined" " 0" " unsafe-undefined" " unsafe-undefined" -" mpi4_1" -" phase5_1" -" sym6_1))))" +" mpi4_12" +" phase5_13" +" sym6_14))))" "(begin" -"(let-values(((id1_3) id_20)((b2_4) b_73)((phase3_2) phase_71))" -"(add-binding!17.1 #f #f id1_3 b2_4 phase3_2))" +"(let-values(((id1_16) id_0)((b2_17) b_10)((phase3_18) phase_9))" +"(add-binding!17.1 #f #f id1_16 b2_17 phase3_18))" "(if trans?_0" -"(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_20 phase_71))(void)))" -"(let-values()(namespace-unset-transformer! ns_51 phase_71 sym_51)))))))" +"(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_0 phase_9))(void)))" +"(let-values()(namespace-unset-transformer! ns_0 phase_9 sym_0)))))))" " top-level-require!-id" -"(lambda(stx_13 ns_52)" -"(let-values(((reqs_2)(cdr(syntax->list$1 stx_13))))" -"(let-values(((temp8_1) #t)" -"((temp9_1) #f)" -"((reqs10_0) reqs_2)" -"((temp11_1) #f)" -"((ns12_1) ns_52)" -"((temp13_0)(namespace-phase ns_52))" -"((temp14_2)(let-values(((temp17_1) #f))(make-requires+provides8.1 #f temp17_1)))" -"((temp15_2) 'require)" -"((temp16_2) #t))" +"(lambda(stx_0 ns_0)" +"(let-values(((reqs_21)(cdr(syntax->list$1 stx_0))))" +"(let-values(((temp8_23) #t)" +"((temp9_24) #f)" +"((reqs10_25) reqs_21)" +"((temp11_26) #f)" +"((ns12_27) ns_0)" +"((temp13_28)(namespace-phase ns_0))" +"((temp14_29)(let-values(((temp17_32) #f))(make-requires+provides8.1 #f temp17_32)))" +"((temp15_30) 'require)" +"((temp16_31) #t))" "(parse-and-perform-requires!30.1" " #f" " #f" " unsafe-undefined" -" temp16_2" +" temp16_31" " unsafe-undefined" -" temp8_1" +" temp8_23" " #f" " #f" -" temp9_1" -" temp15_2" -" reqs10_0" -" temp11_1" -" ns12_1" -" temp13_0" -" temp14_2))))))" +" temp9_24" +" temp15_30" +" reqs10_25" +" temp11_26" +" ns12_27" +" temp13_28" +" temp14_29))))))" "(define-values" "(struct:compiled-in-memory" " compiled-in-memory1.1" @@ -26152,7 +26280,7 @@ static const char *startup_source = " compiled-in-memory-post-compiled-in-memorys" " compiled-in-memory-namespace-scopes" " compiled-in-memory-purely-functional?)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -26164,83 +26292,83 @@ static const char *startup_source = "(list" "(cons" " prop:custom-write" -"(lambda(cim_0 port_8 mode_12)(write(compiled-in-memory-linklet-directory cim_0) port_8))))" +"(lambda(cim_0 port_0 mode_0)(write(compiled-in-memory-linklet-directory cim_0) port_0))))" "(current-inspector)" " #f" " '(0 1 2 3 4 5 6 7 8 9 10 11 12)" " #f" " 'compiled-in-memory)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 'linklet-directory)" -"(make-struct-field-accessor -ref_0 1 'original-self)" -"(make-struct-field-accessor -ref_0 2 'requires)" -"(make-struct-field-accessor -ref_0 3 'provides)" -"(make-struct-field-accessor -ref_0 4 'phase-to-link-module-uses)" -"(make-struct-field-accessor -ref_0 5 'compile-time-inspector)" -"(make-struct-field-accessor -ref_0 6 'phase-to-link-extra-inspectorsss)" -"(make-struct-field-accessor -ref_0 7 'mpis)" -"(make-struct-field-accessor -ref_0 8 'syntax-literals)" -"(make-struct-field-accessor -ref_0 9 'pre-compiled-in-memorys)" -"(make-struct-field-accessor -ref_0 10 'post-compiled-in-memorys)" -"(make-struct-field-accessor -ref_0 11 'namespace-scopes)" -"(make-struct-field-accessor -ref_0 12 'purely-functional?))))" +" struct:_1" +" make-_2" +" ?_3" +"(make-struct-field-accessor -ref_4 0 'linklet-directory)" +"(make-struct-field-accessor -ref_4 1 'original-self)" +"(make-struct-field-accessor -ref_4 2 'requires)" +"(make-struct-field-accessor -ref_4 3 'provides)" +"(make-struct-field-accessor -ref_4 4 'phase-to-link-module-uses)" +"(make-struct-field-accessor -ref_4 5 'compile-time-inspector)" +"(make-struct-field-accessor -ref_4 6 'phase-to-link-extra-inspectorsss)" +"(make-struct-field-accessor -ref_4 7 'mpis)" +"(make-struct-field-accessor -ref_4 8 'syntax-literals)" +"(make-struct-field-accessor -ref_4 9 'pre-compiled-in-memorys)" +"(make-struct-field-accessor -ref_4 10 'post-compiled-in-memorys)" +"(make-struct-field-accessor -ref_4 11 'namespace-scopes)" +"(make-struct-field-accessor -ref_4 12 'purely-functional?))))" "(define-values" "(struct:namespace-scopes namespace-scopes1.1 namespace-scopes? namespace-scopes-post namespace-scopes-other)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type 'namespace-scopes #f 2 0 #f null 'prefab #f '(0 1) #f 'namespace-scopes)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 'post)" -"(make-struct-field-accessor -ref_0 1 'other))))" +" struct:_1" +" make-_2" +" ?_3" +"(make-struct-field-accessor -ref_4 0 'post)" +"(make-struct-field-accessor -ref_4 1 'other))))" "(define-values" "(swap-top-level-scopes)" -"(lambda(s_304 original-scopes-s_0 new-ns_0)" +"(lambda(s_0 original-scopes-s_0 new-ns_0)" "(begin" -"(let-values(((old-scs-post_0 old-scs-other_0)" +"(let-values(((old-scs-post_29 old-scs-other_30)" "(if(namespace-scopes? original-scopes-s_0)" "(values(namespace-scopes-post original-scopes-s_0)(namespace-scopes-other original-scopes-s_0))" "(decode-namespace-scopes original-scopes-s_0))))" -"(let-values(((new-scs-post_0 new-scs-other_0)(extract-namespace-scopes/values new-ns_0)))" +"(let-values(((new-scs-post_31 new-scs-other_32)(extract-namespace-scopes/values new-ns_0)))" "(syntax-swap-scopes" -"(syntax-swap-scopes s_304 old-scs-post_0 new-scs-post_0)" -" old-scs-other_0" -" new-scs-other_0))))))" +"(syntax-swap-scopes s_0 old-scs-post_29 new-scs-post_31)" +" old-scs-other_30" +" new-scs-other_32))))))" "(define-values" "(extract-namespace-scopes/values)" -"(lambda(ns_45)" +"(lambda(ns_0)" "(begin" -"(let-values(((root-ctx_3)(namespace-get-root-expand-ctx ns_45)))" -"(let-values(((post-expansion-sc_0)(post-expansion-scope(root-expand-context-post-expansion root-ctx_3))))" +"(let-values(((root-ctx_34)(namespace-get-root-expand-ctx ns_0)))" +"(let-values(((post-expansion-sc_35)(post-expansion-scope(root-expand-context-post-expansion root-ctx_34))))" "(values" -"(seteq post-expansion-sc_0)" -"(set-remove(list->seteq(root-expand-context-module-scopes root-ctx_3)) post-expansion-sc_0)))))))" +"(seteq post-expansion-sc_35)" +"(set-remove(list->seteq(root-expand-context-module-scopes root-ctx_34)) post-expansion-sc_35)))))))" "(define-values" "(extract-namespace-scopes)" -"(lambda(ns_53)" +"(lambda(ns_0)" "(begin" -"(let-values(((scs-post_0 scs-other_0)(extract-namespace-scopes/values ns_53)))" -"(namespace-scopes1.1 scs-post_0 scs-other_0)))))" +"(let-values(((scs-post_37 scs-other_38)(extract-namespace-scopes/values ns_0)))" +"(namespace-scopes1.1 scs-post_37 scs-other_38)))))" "(define-values" "(encode-namespace-scopes)" -"(lambda(ns_54)" +"(lambda(ns_0)" "(begin" -"(let-values(((post-expansion-scs_0 other-scs_0)(extract-namespace-scopes/values ns_54)))" -"(let-values(((post-expansion-s_0)(add-scopes(datum->syntax$1 #f 'post)(set->list post-expansion-scs_0))))" -"(let-values(((other-s_0)(add-scopes(datum->syntax$1 #f 'other)(set->list other-scs_0))))" -"(datum->syntax$1 #f(vector post-expansion-s_0 other-s_0))))))))" +"(let-values(((post-expansion-scs_40 other-scs_41)(extract-namespace-scopes/values ns_0)))" +"(let-values(((post-expansion-s_42)(add-scopes(datum->syntax$1 #f 'post)(set->list post-expansion-scs_40))))" +"(let-values(((other-s_43)(add-scopes(datum->syntax$1 #f 'other)(set->list other-scs_41))))" +"(datum->syntax$1 #f(vector post-expansion-s_42 other-s_43))))))))" "(define-values" "(decode-namespace-scopes)" -"(lambda(stx_14)" +"(lambda(stx_0)" "(begin" -"(let-values(((vec_54)(syntax-e$1 stx_14)))" -"(values(syntax-scope-set(vector-ref vec_54 0) 0)(syntax-scope-set(vector-ref vec_54 1) 0))))))" +"(let-values(((vec_45)(syntax-e$1 stx_0)))" +"(values(syntax-scope-set(vector-ref vec_45 0) 0)(syntax-scope-set(vector-ref vec_45 1) 0))))))" "(define-values" "(namespace-scopes=?)" "(lambda(nss1_0 nss2_0)" @@ -26256,7 +26384,7 @@ static const char *startup_source = " syntax-literals-count" " set-syntax-literals-stxes!" " set-syntax-literals-count!)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -26272,13 +26400,13 @@ static const char *startup_source = " #f" " 'syntax-literals)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 'stxes)" -"(make-struct-field-accessor -ref_0 1 'count)" -"(make-struct-field-mutator -set!_0 0 'stxes)" -"(make-struct-field-mutator -set!_0 1 'count))))" +" struct:_1" +" make-_2" +" ?_3" +"(make-struct-field-accessor -ref_4 0 'stxes)" +"(make-struct-field-accessor -ref_4 1 'count)" +"(make-struct-field-mutator -set!_5 0 'stxes)" +"(make-struct-field-mutator -set!_5 1 'count))))" "(define-values" "(struct:header" " header2.1" @@ -26293,100 +26421,103 @@ static const char *startup_source = " header-syntax-literals" " set-header-binding-syms-in-order!" " set-header-require-vars-in-order!)" -"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" +"(let-values(((struct:_26 make-_27 ?_28 -ref_29 -set!_30)" "(let-values()" "(let-values()" "(make-struct-type 'header #f 8 0 #f null(current-inspector) #f '(0 1 3 4 6 7) #f 'header)))))" "(values" -" struct:_61" -" make-_61" -" ?_61" -"(make-struct-field-accessor -ref_61 0 'module-path-indexes)" -"(make-struct-field-accessor -ref_61 1 'binding-sym-to-define-sym)" -"(make-struct-field-accessor -ref_61 2 'binding-syms-in-order)" -"(make-struct-field-accessor -ref_61 3 'require-var-to-import-sym)" -"(make-struct-field-accessor -ref_61 4 'import-sym-to-extra-inspectors)" -"(make-struct-field-accessor -ref_61 5 'require-vars-in-order)" -"(make-struct-field-accessor -ref_61 6 'define-and-import-syms)" -"(make-struct-field-accessor -ref_61 7 'syntax-literals)" -"(make-struct-field-mutator -set!_61 2 'binding-syms-in-order)" -"(make-struct-field-mutator -set!_61 5 'require-vars-in-order))))" +" struct:_26" +" make-_27" +" ?_28" +"(make-struct-field-accessor -ref_29 0 'module-path-indexes)" +"(make-struct-field-accessor -ref_29 1 'binding-sym-to-define-sym)" +"(make-struct-field-accessor -ref_29 2 'binding-syms-in-order)" +"(make-struct-field-accessor -ref_29 3 'require-var-to-import-sym)" +"(make-struct-field-accessor -ref_29 4 'import-sym-to-extra-inspectors)" +"(make-struct-field-accessor -ref_29 5 'require-vars-in-order)" +"(make-struct-field-accessor -ref_29 6 'define-and-import-syms)" +"(make-struct-field-accessor -ref_29 7 'syntax-literals)" +"(make-struct-field-mutator -set!_30 2 'binding-syms-in-order)" +"(make-struct-field-mutator -set!_30 5 'require-vars-in-order))))" "(define-values" "(struct:variable-use variable-use3.1 variable-use? variable-use-module-use variable-use-sym)" -"(let-values(((struct:_62 make-_62 ?_62 -ref_62 -set!_62)" +"(let-values(((struct:_81 make-_82 ?_83 -ref_84 -set!_85)" "(let-values()" "(let-values()(make-struct-type 'variable-use #f 2 0 #f null #f #f '(0 1) #f 'variable-use)))))" "(values" -" struct:_62" -" make-_62" -" ?_62" -"(make-struct-field-accessor -ref_62 0 'module-use)" -"(make-struct-field-accessor -ref_62 1 'sym))))" +" struct:_81" +" make-_82" +" ?_83" +"(make-struct-field-accessor -ref_84 0 'module-use)" +"(make-struct-field-accessor -ref_84 1 'sym))))" "(define-values(make-syntax-literals)(lambda()(begin(syntax-literals1.1 null 0))))" "(define-values" "(make-header)" -"(lambda(mpis_11 syntax-literals_0)" +"(lambda(mpis_0 syntax-literals_0)" "(begin" -"(header2.1 mpis_11(make-hasheq) null(make-variable-uses)(make-hasheq) null(make-hasheq) syntax-literals_0))))" +"(header2.1 mpis_0(make-hasheq) null(make-variable-uses)(make-hasheq) null(make-hasheq) syntax-literals_0))))" "(define-values(make-variable-uses)(lambda()(begin(make-hash))))" "(define-values" "(add-syntax-literal!)" "(lambda(header-or-literals_0 q_0)" "(begin" -"(let-values(((sl_0)" +"(let-values(((sl_110)" "(if(header? header-or-literals_0)" "(header-syntax-literals header-or-literals_0)" " header-or-literals_0)))" -"(let-values(((pos_84)(syntax-literals-count sl_0)))" +"(let-values(((pos_111)(syntax-literals-count sl_110)))" "(begin" -"(set-syntax-literals-count! sl_0(add1 pos_84))" -"(set-syntax-literals-stxes! sl_0(cons q_0(syntax-literals-stxes sl_0)))" -" pos_84))))))" +"(set-syntax-literals-count! sl_110(add1 pos_111))" +"(set-syntax-literals-stxes! sl_110(cons q_0(syntax-literals-stxes sl_110)))" +" pos_111))))))" "(define-values" "(add-syntax-literals!)" -"(lambda(sl_1 vec_55)" +"(lambda(sl_0 vec_0)" "(begin" -"(let-values(((pos_85)(syntax-literals-count sl_1)))" +"(let-values(((pos_114)(syntax-literals-count sl_0)))" "(begin" -"(let-values(((vec_56 len_27)" -"(let-values(((vec_57) vec_55))" -"(begin(check-vector vec_57)(values vec_57(unsafe-vector-length vec_57))))))" +"(let-values(((vec_115 len_116)" +"(let-values(((vec_117) vec_0))" +"(begin(check-vector vec_117)(values vec_117(unsafe-vector-length vec_117))))))" "(begin" " #f" -"((letrec-values(((for-loop_182)" -"(lambda(pos_86)" +"((letrec-values(((for-loop_118)" +"(lambda(pos_0)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_86 len_27)" -"(let-values(((e_23)(unsafe-vector-ref vec_56 pos_86)))" +"(if(unsafe-fx< pos_0 len_116)" +"(let-values(((e_120)(unsafe-vector-ref vec_115 pos_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(add-syntax-literal! sl_1 e_23))" +"(add-syntax-literal! sl_0 e_120))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_182(unsafe-fx+ 1 pos_86))(values))))" +"(if(not #f)(for-loop_118(unsafe-fx+ 1 pos_0))(values))))" "(values))))))" -" for-loop_182)" +" for-loop_118)" " 0)))" "(void)" -"(cons pos_85(vector-length vec_55)))))))" -"(define-values(syntax-literals-empty?)(lambda(sl_2)(begin(null?(syntax-literals-stxes sl_2)))))" +"(cons pos_114(vector-length vec_0)))))))" +"(define-values(syntax-literals-empty?)(lambda(sl_0)(begin(null?(syntax-literals-stxes sl_0)))))" "(define-values" "(generate-lazy-syntax-literals!9.1)" "(lambda(skip-deserialize?4_0 sl6_0 mpis7_0 self8_0)" "(begin" " 'generate-lazy-syntax-literals!9" -"(let-values(((sl_3) sl6_0))" -"(let-values(((mpis_12) mpis7_0))" -"(let-values(((self_13) self8_0))" -"(let-values(((skip-deserialize?_0) skip-deserialize?4_0))" +"(let-values(((sl_126) sl6_0))" +"(let-values(((mpis_127) mpis7_0))" +"(let-values(((self_128) self8_0))" +"(let-values(((skip-deserialize?_129) skip-deserialize?4_0))" "(let-values()" "(list" -"(list 'define-values(list syntax-literals-id)(list* 'make-vector(syntax-literals-count sl_3) '(#f)))" +"(list" +" 'define-values" +"(list syntax-literals-id)" +"(list* 'make-vector(syntax-literals-count sl_126) '(#f)))" "(list" " 'define-values" "(list get-syntax-literal!-id)" @@ -26403,7 +26534,7 @@ static const char *startup_source = "(list*" " 'begin" "(qq-append" -"(if skip-deserialize?_0" +"(if skip-deserialize?_129" " null" "(list" "(list" @@ -26423,7 +26554,7 @@ static const char *startup_source = " 'syntax-shift-phase-level" "(list* 'unsafe-vector*-ref deserialized-syntax-vector-id '(pos))" " phase-shift-id)" -"(add-module-path-index! mpis_12 self_13)" +"(add-module-path-index! mpis_127 self_128)" " self-id" " inspector-id)))" "(list" @@ -26432,9 +26563,9 @@ static const char *startup_source = "(list* 'unsafe-vector*-ref syntax-literals-id '(pos))))))))))))))))))))" "(define-values" "(generate-lazy-syntax-literals-data!)" -"(lambda(sl_4 mpis_13)" +"(lambda(sl_0 mpis_0)" "(begin" -"(if(syntax-literals-empty? sl_4)" +"(if(syntax-literals-empty? sl_0)" "(let-values()(list(list* 'define-values(list deserialize-syntax-id) '(#f))))" "(let-values()" "(list" @@ -26453,17 +26584,17 @@ static const char *startup_source = "(list" " 'let-values" "(list(list*(list inspector-id) '(#f)))" -"(let-values(((temp25_1)" -"(vector->immutable-vector(list->vector(reverse$1(syntax-literals-stxes sl_4)))))" -"((mpis26_0) mpis_13))" -"(generate-deserialize6.1 #t temp25_1 mpis26_0))))" +"(let-values(((temp25_152)" +"(vector->immutable-vector(list->vector(reverse$1(syntax-literals-stxes sl_0)))))" +"((mpis26_153) mpis_0))" +"(generate-deserialize6.1 #t temp25_152 mpis26_153))))" "(list* 'set! deserialize-syntax-id '(#f)))))))))))" -"(define-values(generate-lazy-syntax-literal-lookup)(lambda(pos_87)(begin(list get-syntax-literal!-id pos_87))))" +"(define-values(generate-lazy-syntax-literal-lookup)(lambda(pos_0)(begin(list get-syntax-literal!-id pos_0))))" "(define-values" "(generate-eager-syntax-literals!)" -"(lambda(sl_5 mpis_14 base-phase_0 self_14 ns_4)" +"(lambda(sl_0 mpis_0 base-phase_0 self_0 ns_0)" "(begin" -"(if(syntax-literals-empty? sl_5)" +"(if(syntax-literals-empty? sl_0)" "(let-values() #f)" "(let-values()" "(list" @@ -26471,9 +26602,9 @@ static const char *startup_source = "(list" "(list" " '(ns+stxss)" -"(let-values(((temp27_2)(cons(encode-namespace-scopes ns_4)(reverse$1(syntax-literals-stxes sl_5))))" -"((mpis28_0) mpis_14))" -"(generate-deserialize6.1 #t temp27_2 mpis28_0))))" +"(let-values(((temp27_160)(cons(encode-namespace-scopes ns_0)(reverse$1(syntax-literals-stxes sl_0))))" +"((mpis28_161) mpis_0))" +"(generate-deserialize6.1 #t temp27_160 mpis28_161))))" "(list" " 'let-values" " '(((ns-scope-s)(car ns+stxss)))" @@ -26489,396 +26620,402 @@ static const char *startup_source = "(list" " 'syntax-module-path-index-shift" "(list 'syntax-shift-phase-level 'stx(list '- base-phase_0 dest-phase-id))" -"(add-module-path-index! mpis_14 self_14)" +"(add-module-path-index! mpis_0 self_0)" " self-id)" " 'ns-scope-s" " ns-id))" " '((cdr ns+stxss)))))))))))" "(define-values" "(generate-eager-syntax-literal-lookup)" -"(lambda(pos_88)(begin(list 'unsafe-vector*-ref syntax-literals-id pos_88))))" +"(lambda(pos_0)(begin(list 'unsafe-vector*-ref syntax-literals-id pos_0))))" "(define-values" "(syntax-literals-as-vector)" -"(lambda(sl_6)(begin(list->vector(reverse$1(syntax-literals-stxes sl_6))))))" +"(lambda(sl_0)(begin(list->vector(reverse$1(syntax-literals-stxes sl_0))))))" "(define-values" "(select-fresh)" -"(lambda(sym_52 header_0)" +"(lambda(sym_0 header_0)" "(begin" -"(if(symbol-conflicts? sym_52 header_0)" -"((letrec-values(((loop_88)" -"(lambda(pos_89)" +"(if(symbol-conflicts? sym_0 header_0)" +"((letrec-values(((loop_168)" +"(lambda(pos_0)" "(begin" " 'loop" -" (let-values (((new-sym_0) (string->symbol (format \"~a/~a\" pos_89 sym_52))))" -"(if(symbol-conflicts? new-sym_0 header_0)(loop_88(add1 pos_89)) new-sym_0))))))" -" loop_88)" +" (let-values (((new-sym_170) (string->symbol (format \"~a/~a\" pos_0 sym_0))))" +"(if(symbol-conflicts? new-sym_170 header_0)(loop_168(add1 pos_0)) new-sym_170))))))" +" loop_168)" " 1)" -" sym_52))))" +" sym_0))))" "(define-values" "(symbol-conflicts?)" -"(lambda(sym_53 header_1)" +"(lambda(sym_0 header_0)" "(begin" -"(let-values(((or-part_204)(built-in-symbol? sym_53)))" -"(if or-part_204 or-part_204(hash-ref(header-define-and-import-syms header_1) sym_53 #f))))))" +"(let-values(((or-part_173)(built-in-symbol? sym_0)))" +"(if or-part_173 or-part_173(hash-ref(header-define-and-import-syms header_0) sym_0 #f))))))" "(define-values" "(register-required-variable-use!19.1)" -"(lambda(defined?12_0 header14_0 mpi15_0 phase16_1 sym17_0 extra-inspector18_0)" +"(lambda(defined?12_0 header14_0 mpi15_0 phase16_0 sym17_0 extra-inspector18_0)" "(begin" " 'register-required-variable-use!19" -"(let-values(((header_2) header14_0))" -"(let-values(((mpi_39) mpi15_0))" -"(let-values(((phase_72) phase16_1))" -"(let-values(((sym_54) sym17_0))" -"(let-values(((extra-inspector_4) extra-inspector18_0))" -"(let-values(((defined?_2) defined?12_0))" +"(let-values(((header_180) header14_0))" +"(let-values(((mpi_181) mpi15_0))" +"(let-values(((phase_182) phase16_0))" +"(let-values(((sym_183) sym17_0))" +"(let-values(((extra-inspector_184) extra-inspector18_0))" +"(let-values(((defined?_185) defined?12_0))" "(let-values()" -"(let-values(((key_55)(variable-use3.1(module-use1.1 mpi_39 phase_72) sym_54)))" -"(let-values(((variable-uses_0)(header-require-var-to-import-sym header_2)))" -"(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_55 #f)))" -"(let-values(((var-sym_0)" -"(let-values(((or-part_205) prev-var-sym_0))" -"(if or-part_205" -" or-part_205" -"(let-values(((sym_55)(select-fresh(variable-use-sym key_55) header_2)))" +"(let-values(((key_186)(variable-use3.1(module-use1.1 mpi_181 phase_182) sym_183)))" +"(let-values(((variable-uses_187)(header-require-var-to-import-sym header_180)))" +"(let-values(((prev-var-sym_188)(hash-ref variable-uses_187 key_186 #f)))" +"(let-values(((var-sym_189)" +"(let-values(((or-part_190) prev-var-sym_188))" +"(if or-part_190" +" or-part_190" +"(let-values(((sym_191)" +"(select-fresh(variable-use-sym key_186) header_180)))" "(begin" -"(hash-set! variable-uses_0 key_55 sym_55)" +"(hash-set! variable-uses_187 key_186 sym_191)" "(set-header-require-vars-in-order!" -" header_2" -"(cons key_55(header-require-vars-in-order header_2)))" +" header_180" +"(cons key_186(header-require-vars-in-order header_180)))" "(hash-set!" -"(header-define-and-import-syms header_2)" -" sym_55" -"(if defined?_2 'defined 'required))" -" sym_55))))))" +"(header-define-and-import-syms header_180)" +" sym_191" +"(if defined?_185 'defined 'required))" +" sym_191))))))" "(begin" -"(if(if extra-inspector_4(not prev-var-sym_0) #f)" +"(if(if extra-inspector_184(not prev-var-sym_188) #f)" "(let-values()" -"(let-values(((extra-inspectors_0)(header-import-sym-to-extra-inspectors header_2)))" +"(let-values(((extra-inspectors_192)" +"(header-import-sym-to-extra-inspectors header_180)))" "(hash-update!" -" extra-inspectors_0" -" var-sym_0" -"(lambda(s_305)(set-add s_305 extra-inspector_4))" +" extra-inspectors_192" +" var-sym_189" +"(lambda(s_0)(set-add s_0 extra-inspector_184))" " '#hasheq())))" "(void))" -" var-sym_0)))))))))))))))" +" var-sym_189)))))))))))))))" "(define-values" "(register-as-defined!)" -"(lambda(header_3 def-sym_0)(begin(hash-set!(header-define-and-import-syms header_3) def-sym_0 'defined))))" +"(lambda(header_0 def-sym_0)(begin(hash-set!(header-define-and-import-syms header_0) def-sym_0 'defined))))" "(define-values" "(registered-as-required?)" -"(lambda(header_4 var-sym_1)" -"(begin(eq? 'required(hash-ref(header-define-and-import-syms header_4) var-sym_1 #f)))))" +"(lambda(header_0 var-sym_0)" +"(begin(eq? 'required(hash-ref(header-define-and-import-syms header_0) var-sym_0 #f)))))" "(define-values" "(generate-links+imports)" -"(lambda(header_5 phase_38 cctx_0 cross-linklet-inlining?_0)" +"(lambda(header_0 phase_0 cctx_0 cross-linklet-inlining?_0)" "(begin" -"(let-values(((mod-use-ht_0 link-mod-uses_0)" -"(let-values(((lst_154)(header-require-vars-in-order header_5)))" +"(let-values(((mod-use-ht_228 link-mod-uses_229)" +"(let-values(((lst_230)(header-require-vars-in-order header_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_154)))" -"((letrec-values(((for-loop_183)" -"(lambda(ht_108 link-mod-uses_1 lst_155)" +"(let-values()(check-list lst_230)))" +"((letrec-values(((for-loop_231)" +"(lambda(ht_0 link-mod-uses_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_155)" -"(let-values(((vu_0)(unsafe-car lst_155))" -"((rest_79)(unsafe-cdr lst_155)))" -"(let-values(((ht_109 link-mod-uses_2)" -"(let-values(((ht_110) ht_108)" -"((link-mod-uses_3) link-mod-uses_1))" -"(let-values(((ht_111 link-mod-uses_4)" +"(if(pair? lst_0)" +"(let-values(((vu_235)(unsafe-car lst_0))" +"((rest_236)(unsafe-cdr lst_0)))" +"(let-values(((ht_237 link-mod-uses_238)" +"(let-values(((ht_239) ht_0)" +"((link-mod-uses_240) link-mod-uses_0))" +"(let-values(((ht_241 link-mod-uses_242)" "(let-values()" -"(let-values(((mu_2)" +"(let-values(((mu_243)" "(variable-use-module-use" -" vu_0)))" -"(if(let-values(((or-part_206)" +" vu_235)))" +"(if(let-values(((or-part_244)" "(hash-ref" -" ht_110" -" mu_2" +" ht_239" +" mu_243" " #f)))" -"(if or-part_206" -" or-part_206" -"(let-values(((or-part_207)" +"(if or-part_244" +" or-part_244" +"(let-values(((or-part_245)" "(eq?" "(module-use-module" -" mu_2)" +" mu_243)" "(compile-context-self" " cctx_0))))" -"(if or-part_207" -" or-part_207" +"(if or-part_245" +" or-part_245" "(top-level-module-path-index?" "(module-use-module" -" mu_2))))))" -"(values ht_110 link-mod-uses_3)" +" mu_243))))))" +"(values ht_239 link-mod-uses_240)" "(values" -"(hash-set ht_110 mu_2 #t)" -"(cons mu_2 link-mod-uses_3)))))))" -"(values ht_111 link-mod-uses_4)))))" +"(hash-set ht_239 mu_243 #t)" +"(cons" +" mu_243" +" link-mod-uses_240)))))))" +"(values ht_241 link-mod-uses_242)))))" "(if(not #f)" -"(for-loop_183 ht_109 link-mod-uses_2 rest_79)" -"(values ht_109 link-mod-uses_2))))" -"(values ht_108 link-mod-uses_1))))))" -" for-loop_183)" +"(for-loop_231 ht_237 link-mod-uses_238 rest_236)" +"(values ht_237 link-mod-uses_238))))" +"(values ht_0 link-mod-uses_0))))))" +" for-loop_231)" " '#hash()" " null" -" lst_154)))))" +" lst_230)))))" "(values" -" link-mod-uses_0" +" link-mod-uses_229" "(reverse$1" -"(let-values(((lst_33) link-mod-uses_0))" +"(let-values(((lst_246) link-mod-uses_229))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_33)))" -"((letrec-values(((for-loop_184)" -"(lambda(fold-var_141 lst_107)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_246)))" +"((letrec-values(((for-loop_247)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_107)" -"(let-values(((mu_3)(unsafe-car lst_107))((rest_80)(unsafe-cdr lst_107)))" -"(let-values(((fold-var_142)" -"(let-values(((fold-var_143) fold-var_141))" -"(let-values(((fold-var_144)" +"(if(pair? lst_0)" +"(let-values(((mu_250)(unsafe-car lst_0))((rest_251)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_252)" +"(let-values(((fold-var_253) fold-var_0))" +"(let-values(((fold-var_254)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_156)" +"(let-values(((lst_255)" "(header-require-vars-in-order" -" header_5)))" +" header_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_156)))" -"((letrec-values(((for-loop_185)" -"(lambda(fold-var_145" -" lst_157)" +"(let-values()(check-list lst_255)))" +"((letrec-values(((for-loop_256)" +"(lambda(fold-var_1" +" lst_1)" "(begin" " 'for-loop" -"(if(pair?" -" lst_157)" -"(let-values(((vu_1)" +"(if(pair? lst_1)" +"(let-values(((vu_259)" "(unsafe-car" -" lst_157))" -"((rest_81)" +" lst_1))" +"((rest_260)" "(unsafe-cdr" -" lst_157)))" -"(let-values(((fold-var_146)" -"(let-values(((fold-var_147)" -" fold-var_145))" +" lst_1)))" +"(let-values(((fold-var_261)" +"(let-values(((fold-var_262)" +" fold-var_1))" "(if(equal?" -" mu_3" +" mu_250" "(variable-use-module-use" -" vu_1))" -"(let-values(((fold-var_40)" -" fold-var_147))" -"(let-values(((fold-var_41)" +" vu_259))" +"(let-values(((fold-var_263)" +" fold-var_262))" +"(let-values(((fold-var_264)" "(let-values()" "(cons" "(let-values()" -"(let-values(((var-sym_2)" +"(let-values(((var-sym_265)" "(hash-ref" "(header-require-var-to-import-sym" -" header_5)" -" vu_1)))" -"(let-values(((ex-sym_0)" +" header_0)" +" vu_259)))" +"(let-values(((ex-sym_266)" "(variable-use-sym" -" vu_1)))" +" vu_259)))" "(if(eq?" -" var-sym_2" -" ex-sym_0)" -" var-sym_2" +" var-sym_265" +" ex-sym_266)" +" var-sym_265" "(list" -" ex-sym_0" -" var-sym_2)))))" -" fold-var_40))))" +" ex-sym_266" +" var-sym_265)))))" +" fold-var_263))))" "(values" -" fold-var_41)))" -" fold-var_147))))" +" fold-var_264)))" +" fold-var_262))))" "(if(not #f)" -"(for-loop_185" -" fold-var_146" -" rest_81)" -" fold-var_146)))" -" fold-var_145)))))" -" for-loop_185)" +"(for-loop_256" +" fold-var_261" +" rest_260)" +" fold-var_261)))" +" fold-var_1)))))" +" for-loop_256)" " null" -" lst_156)))))" -" fold-var_143))))" -"(values fold-var_144)))))" -"(if(not #f)(for-loop_184 fold-var_142 rest_80) fold-var_142)))" -" fold-var_141)))))" -" for-loop_184)" +" lst_255)))))" +" fold-var_253))))" +"(values fold-var_254)))))" +"(if(not #f)(for-loop_247 fold-var_252 rest_251) fold-var_252)))" +" fold-var_0)))))" +" for-loop_247)" " null" -" lst_33))))" +" lst_246))))" "(reverse$1" -"(let-values(((lst_158) link-mod-uses_0))" +"(let-values(((lst_267) link-mod-uses_229))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_158)))" -"((letrec-values(((for-loop_186)" -"(lambda(fold-var_148 lst_159)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_267)))" +"((letrec-values(((for-loop_268)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_159)" -"(let-values(((mu_4)(unsafe-car lst_159))((rest_82)(unsafe-cdr lst_159)))" -"(let-values(((fold-var_149)" -"(let-values(((fold-var_150) fold-var_148))" -"(let-values(((fold-var_151)" +"(if(pair? lst_0)" +"(let-values(((mu_271)(unsafe-car lst_0))((rest_272)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_273)" +"(let-values(((fold-var_274) fold-var_0))" +"(let-values(((fold-var_275)" "(let-values()" "(cons" "(let-values()" -"(let-values(((extra-inspectorss_0)" -"(let-values(((lst_160)" +"(let-values(((extra-inspectorss_276)" +"(let-values(((lst_277)" "(header-require-vars-in-order" -" header_5)))" +" header_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_160)))" -"((letrec-values(((for-loop_187)" -"(lambda(table_141" -" lst_112)" +"(check-list lst_277)))" +"((letrec-values(((for-loop_278)" +"(lambda(table_0" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_112)" -"(let-values(((vu_2)" +" lst_1)" +"(let-values(((vu_281)" "(unsafe-car" -" lst_112))" -"((rest_56)" +" lst_1))" +"((rest_282)" "(unsafe-cdr" -" lst_112)))" -"(let-values(((table_142)" -"(let-values(((table_143)" -" table_141))" +" lst_1)))" +"(let-values(((table_283)" +"(let-values(((table_284)" +" table_0))" "(if(equal?" -" mu_4" +" mu_271" "(variable-use-module-use" -" vu_2))" -"(let-values(((var-sym_3)" +" vu_281))" +"(let-values(((var-sym_285)" "(hash-ref" "(header-require-var-to-import-sym" -" header_5)" -" vu_2)))" +" header_0)" +" vu_281)))" "(begin" " #t" -"((letrec-values(((for-loop_188)" -"(lambda(table_32)" +"((letrec-values(((for-loop_286)" +"(lambda(table_1)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_33)" -"(let-values(((extra-inspectors_1)" +"(let-values(((table_288)" +"(let-values(((extra-inspectors_289)" "(hash-ref" "(header-import-sym-to-extra-inspectors" -" header_5)" -" var-sym_3" +" header_0)" +" var-sym_285" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_189)" -"(lambda(table_144)" +"((letrec-values(((for-loop_290)" +"(lambda(table_2)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_34)" -"(let-values(((table_145)" -" table_144))" -"(if(let-values(((or-part_208)" -" extra-inspectors_1))" -"(if or-part_208" -" or-part_208" +"(let-values(((table_292)" +"(let-values(((table_293)" +" table_2))" +"(if(let-values(((or-part_294)" +" extra-inspectors_289))" +"(if or-part_294" +" or-part_294" " cross-linklet-inlining?_0))" -"(let-values(((table_146)" -" table_145))" -"(let-values(((table_147)" +"(let-values(((table_295)" +" table_293))" +"(let-values(((table_296)" "(let-values()" -"(let-values(((key_56" -" val_48)" +"(let-values(((key_297" +" val_298)" "(let-values()" "(values" -" var-sym_3" -" extra-inspectors_1))))" +" var-sym_285" +" extra-inspectors_289))))" "(hash-set" -" table_146" -" key_56" -" val_48)))))" +" table_295" +" key_297" +" val_298)))))" "(values" -" table_147)))" -" table_145))))" -" table_34))))))" -" for-loop_189)" -" table_32)))))" -" table_33))))))" -" for-loop_188)" -" table_143)))" -" table_143))))" +" table_296)))" +" table_293))))" +" table_292))))))" +" for-loop_290)" +" table_1)))))" +" table_288))))))" +" for-loop_286)" +" table_284)))" +" table_284))))" "(if(not" " #f)" -"(for-loop_187" -" table_142" -" rest_56)" -" table_142)))" -" table_141)))))" -" for-loop_187)" +"(for-loop_278" +" table_283" +" rest_282)" +" table_283)))" +" table_0)))))" +" for-loop_278)" " '#hash()" -" lst_160)))))" -"(if(hash-count extra-inspectorss_0)" -" extra-inspectorss_0" +" lst_277)))))" +"(if(hash-count extra-inspectorss_276)" +" extra-inspectorss_276" " #f)))" -" fold-var_150))))" -"(values fold-var_151)))))" -"(if(not #f)(for-loop_186 fold-var_149 rest_82) fold-var_149)))" -" fold-var_148)))))" -" for-loop_186)" +" fold-var_274))))" +"(values fold-var_275)))))" +"(if(not #f)(for-loop_268 fold-var_273 rest_272) fold-var_273)))" +" fold-var_0)))))" +" for-loop_268)" " null" -" lst_158))))" +" lst_267))))" "(reverse$1" -"(let-values(((lst_161)(header-require-vars-in-order header_5)))" +"(let-values(((lst_299)(header-require-vars-in-order header_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_161)))" -"((letrec-values(((for-loop_190)" -"(lambda(fold-var_152 lst_162)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_299)))" +"((letrec-values(((for-loop_300)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_162)" -"(let-values(((vu_3)(unsafe-car lst_162))((rest_83)(unsafe-cdr lst_162)))" -"(let-values(((fold-var_153)" -"(let-values(((fold-var_154) fold-var_152))" -"(if(let-values(((mod_2)" +"(if(pair? lst_0)" +"(let-values(((vu_303)(unsafe-car lst_0))((rest_304)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_305)" +"(let-values(((fold-var_306) fold-var_0))" +"(if(let-values(((mod_307)" "(module-use-module" -"(variable-use-module-use vu_3))))" -"(let-values(((or-part_209)" -"(eq? mod_2(compile-context-self cctx_0))))" -"(if or-part_209" -" or-part_209" -"(top-level-module-path-index? mod_2))))" -"(let-values(((fold-var_155) fold-var_154))" -"(let-values(((fold-var_156)" +"(variable-use-module-use vu_303))))" +"(let-values(((or-part_308)" +"(eq?" +" mod_307" +"(compile-context-self cctx_0))))" +"(if or-part_308" +" or-part_308" +"(top-level-module-path-index? mod_307))))" +"(let-values(((fold-var_309) fold-var_306))" +"(let-values(((fold-var_310)" "(let-values()" "(cons" "(let-values()" -"(let-values(((var-sym_4)" +"(let-values(((var-sym_311)" "(hash-ref" "(header-require-var-to-import-sym" -" header_5)" -" vu_3)))" -"(let-values(((ex-sym_1)" -"(variable-use-sym vu_3)))" -"(if(eq? var-sym_4 ex-sym_1)" -" var-sym_4" -"(list var-sym_4 ex-sym_1)))))" -" fold-var_155))))" -"(values fold-var_156)))" -" fold-var_154))))" -"(if(not #f)(for-loop_190 fold-var_153 rest_83) fold-var_153)))" -" fold-var_152)))))" -" for-loop_190)" +" header_0)" +" vu_303)))" +"(let-values(((ex-sym_312)" +"(variable-use-sym" +" vu_303)))" +"(if(eq? var-sym_311 ex-sym_312)" +" var-sym_311" +"(list var-sym_311 ex-sym_312)))))" +" fold-var_309))))" +"(values fold-var_310)))" +" fold-var_306))))" +"(if(not #f)(for-loop_300 fold-var_305 rest_304) fold-var_305)))" +" fold-var_0)))))" +" for-loop_300)" " null" -" lst_161)))))))))" +" lst_299)))))))))" "(define-values" "(instance-imports)" "(list ns-id phase-shift-id self-id inspector-id bulk-binding-registry-id set-transformer!-id))" @@ -26887,42 +27024,42 @@ static const char *startup_source = "(lambda(bulk-binding-registry5_0 inspector4_0 namespace1_0 phase-shift2_0 self3_0 set-transformer!6_0)" "(begin" " 'make-instance-instance13" -"(let-values(((ns_55) namespace1_0))" -"(let-values(((phase-shift_14) phase-shift2_0))" -"(let-values(((self_15) self3_0))" -"(let-values(((inspector_11) inspector4_0))" -"(let-values(((bulk-binding-registry_11) bulk-binding-registry5_0))" -"(let-values(((set-transformer!_0) set-transformer!6_0))" +"(let-values(((ns_19) namespace1_0))" +"(let-values(((phase-shift_20) phase-shift2_0))" +"(let-values(((self_21) self3_0))" +"(let-values(((inspector_22) inspector4_0))" +"(let-values(((bulk-binding-registry_23) bulk-binding-registry5_0))" +"(let-values(((set-transformer!_24) set-transformer!6_0))" "(let-values()" "(1/make-instance" " 'instance" " #f" " 'constant" " ns-id" -" ns_55" +" ns_19" " phase-shift-id" -" phase-shift_14" +" phase-shift_20" " self-id" -" self_15" +" self_21" " inspector-id" -" inspector_11" +" inspector_22" " bulk-binding-registry-id" -" bulk-binding-registry_11" +" bulk-binding-registry_23" " set-transformer!-id" -" set-transformer!_0)))))))))))" +" set-transformer!_24)))))))))))" "(define-values" "(make-module-body-instance-instance18.1)" "(lambda(set-transformer!16_0)" "(begin" " 'make-module-body-instance-instance18" -"(let-values(((set-transformer!_1) set-transformer!16_0))" -"(let-values()(1/make-instance 'body-instance #f 'constant set-transformer!-id set-transformer!_1))))))" +"(let-values(((set-transformer!_56) set-transformer!16_0))" +"(let-values()(1/make-instance 'body-instance #f 'constant set-transformer!-id set-transformer!_56))))))" "(define-values" "(empty-syntax-literals-instance)" -"(1/make-instance 'empty-stx #f 'constant get-syntax-literal!-id(lambda(pos_90) #f) 'get-encoded-root-expand-ctx #f))" +"(1/make-instance 'empty-stx #f 'constant get-syntax-literal!-id(lambda(pos_0) #f) 'get-encoded-root-expand-ctx #f))" "(define-values" "(empty-module-body-instance)" -"(let-values(((temp21_0)(lambda(name_38 val_49)(void))))(make-module-body-instance-instance18.1 temp21_0)))" +"(let-values(((temp21_67)(lambda(name_0 val_0)(void))))(make-module-body-instance-instance18.1 temp21_67)))" "(define-values" "(empty-top-syntax-literal-instance)" "(1/make-instance 'top-syntax-literal #f 'constant mpi-vector-id #f syntax-literals-id #f))" @@ -26931,656 +27068,660 @@ static const char *startup_source = "(1/make-instance 'empty-stx-data #f 'constant deserialized-syntax-vector-id(vector) deserialize-syntax-id void))" "(define-values" "(empty-instance-instance)" -"(let-values(((temp22_2) #f)((temp23_2) #f)((temp24_2) #f)((temp25_2) #f)((temp26_1) #f)((temp27_3) #f))" -"(make-instance-instance13.1 temp26_1 temp25_2 temp22_2 temp23_2 temp24_2 temp27_3)))" +"(let-values(((temp22_71) #f)((temp23_72) #f)((temp24_73) #f)((temp25_74) #f)((temp26_75) #f)((temp27_76) #f))" +"(make-instance-instance13.1 temp26_75 temp25_74 temp22_71 temp23_72 temp24_73 temp27_76)))" "(define-values" "(eager-instance-imports)" "(list* ns-id dest-phase-id self-id bulk-binding-registry-id inspector-id '(swap-top-level-scopes)))" "(define-values" "(make-eager-instance-instance11.1)" -"(lambda(bulk-binding-registry4_0 dest-phase2_0 inspector5_0 namespace1_1 self3_1)" +"(lambda(bulk-binding-registry4_0 dest-phase2_0 inspector5_0 namespace1_0 self3_0)" "(begin" " 'make-eager-instance-instance11" -"(let-values(((ns_56) namespace1_1))" -"(let-values(((dest-phase_0) dest-phase2_0))" -"(let-values(((self_16) self3_1))" -"(let-values(((bulk-binding-registry_12) bulk-binding-registry4_0))" -"(let-values(((inspector_12) inspector5_0))" +"(let-values(((ns_13) namespace1_0))" +"(let-values(((dest-phase_14) dest-phase2_0))" +"(let-values(((self_15) self3_0))" +"(let-values(((bulk-binding-registry_16) bulk-binding-registry4_0))" +"(let-values(((inspector_17) inspector5_0))" "(let-values()" "(1/make-instance" " 'instance" " #f" " 'constant" " ns-id" -" ns_56" +" ns_13" " dest-phase-id" -" dest-phase_0" +" dest-phase_14" " self-id" -" self_16" +" self_15" " bulk-binding-registry-id" -" bulk-binding-registry_12" +" bulk-binding-registry_16" " inspector-id" -" inspector_12" +" inspector_17" " 'swap-top-level-scopes" " swap-top-level-scopes))))))))))" "(define-values" "(empty-eager-instance-instance)" -"(let-values(((temp14_3) #f)((temp15_3) #f)((temp16_3) #f)((temp17_2) #f)((temp18_4) #f))" -"(make-eager-instance-instance11.1 temp17_2 temp15_3 temp18_4 temp14_3 temp16_3)))" +"(let-values(((temp14_43) #f)((temp15_44) #f)((temp16_45) #f)((temp17_46) #f)((temp18_47) #f))" +"(make-eager-instance-instance11.1 temp17_46 temp15_44 temp18_47 temp14_43 temp16_45)))" "(define-values" "(self-quoting-in-linklet?)" "(lambda(datum_0)" "(begin" -"(let-values(((or-part_0)(number? datum_0)))" -"(if or-part_0" -" or-part_0" -"(let-values(((or-part_1)(boolean? datum_0)))" -"(if or-part_1" -" or-part_1" -"(let-values(((or-part_11)(string? datum_0)))(if or-part_11 or-part_11(bytes? datum_0))))))))))" +"(let-values(((or-part_2)(number? datum_0)))" +"(if or-part_2" +" or-part_2" +"(let-values(((or-part_3)(boolean? datum_0)))" +"(if or-part_3" +" or-part_3" +"(let-values(((or-part_4)(string? datum_0)))(if or-part_4 or-part_4(bytes? datum_0))))))))))" "(define-values(datum->syntax$3) datum->syntax)" "(define-values(syntax-property$2) syntax-property)" "(define-values(syntax-e$2) syntax-e)" "(define-values(1/syntax?) syntax?)" -"(define-values(correlated?)(lambda(e_24)(begin(1/syntax? e_24))))" +"(define-values(correlated?)(lambda(e_0)(begin(1/syntax? e_0))))" "(define-values" "(datum->correlated)" -"(let-values(((datum->correlated3_0)" +"(let-values(((datum->correlated3_307)" "(lambda(d2_0 srcloc1_0)" "(begin" " 'datum->correlated3" -"(let-values(((d_26) d2_0))" -"(let-values(((srcloc_6) srcloc1_0))(let-values()(datum->syntax$3 #f d_26 srcloc_6))))))))" +"(let-values(((d_310) d2_0))" +"(let-values(((srcloc_311) srcloc1_0))(let-values()(datum->syntax$3 #f d_310 srcloc_311))))))))" "(case-lambda" -"((d_27)(begin(datum->correlated3_0 d_27 #f)))" -"((d_28 srcloc1_1)(datum->correlated3_0 d_28 srcloc1_1)))))" -"(define-values(correlated-e)(lambda(e_25)(begin(if(1/syntax? e_25)(syntax-e$2 e_25) e_25))))" -"(define-values(correlated-cadr)(lambda(e_26)(begin(car(correlated-e(cdr(correlated-e e_26)))))))" +"((d_0)(begin(datum->correlated3_307 d_0 #f)))" +"((d_0 srcloc1_0)(datum->correlated3_307 d_0 srcloc1_0)))))" +"(define-values(correlated-e)(lambda(e_0)(begin(if(1/syntax? e_0)(syntax-e$2 e_0) e_0))))" +"(define-values(correlated-cadr)(lambda(e_0)(begin(car(correlated-e(cdr(correlated-e e_0)))))))" "(define-values" "(correlated-length)" -"(lambda(e_27)(begin(let-values(((l_54)(correlated-e e_27)))(if(list? l_54)(length l_54) #f)))))" +"(lambda(e_0)(begin(let-values(((l_318)(correlated-e e_0)))(if(list? l_318)(length l_318) #f)))))" "(define-values" "(correlated->list)" -"(lambda(e_28)" +"(lambda(e_0)" "(begin" -"((letrec-values(((loop_89)" -"(lambda(e_29)" +"((letrec-values(((loop_320)" +"(lambda(e_1)" "(begin" " 'loop" -"(if(list? e_29)" -"(let-values() e_29)" -"(if(pair? e_29)" -"(let-values()(cons(car e_29)(loop_89(cdr e_29))))" -"(if(null? e_29)" +"(if(list? e_1)" +"(let-values() e_1)" +"(if(pair? e_1)" +"(let-values()(cons(car e_1)(loop_320(cdr e_1))))" +"(if(null? e_1)" "(let-values() null)" -"(if(1/syntax? e_29)" -"(let-values()(loop_89(syntax-e$2 e_29)))" +"(if(1/syntax? e_1)" +"(let-values()(loop_320(syntax-e$2 e_1)))" " (let-values () (error 'correlated->list \"not a list\"))))))))))" -" loop_89)" -" e_28))))" +" loop_320)" +" e_0))))" "(define-values" "(correlated-property)" -"(case-lambda" -"((e_30 k_32)(begin(syntax-property$2 e_30 k_32)))" -"((e_31 k_33 v_154)(syntax-property$2 e_31 k_33 v_154))))" +"(case-lambda((e_0 k_0)(begin(syntax-property$2 e_0 k_0)))((e_0 k_0 v_0)(syntax-property$2 e_0 k_0 v_0))))" "(define-values" "(to-syntax-list.1$1)" -"(lambda(s_109)" +"(lambda(s_0)" "(begin" " 'to-syntax-list" -"(if(list? s_109)" -"(let-values() s_109)" -"(if(pair? s_109)" -"(let-values()(let-values(((r_36)(to-syntax-list.1$1(cdr s_109))))(if r_36(cons(car s_109) r_36) #f)))" -"(if(1/syntax? s_109)(let-values()(to-syntax-list.1$1(syntax-e$2 s_109)))(let-values() #f)))))))" +"(if(list? s_0)" +"(let-values() s_0)" +"(if(pair? s_0)" +"(let-values()(let-values(((r_350)(to-syntax-list.1$1(cdr s_0))))(if r_350(cons(car s_0) r_350) #f)))" +"(if(1/syntax? s_0)(let-values()(to-syntax-list.1$1(syntax-e$2 s_0)))(let-values() #f)))))))" "(define-values" "(srcloc->vector)" -"(lambda(s_80)" +"(lambda(s_0)" "(begin" -"(if s_80" -"(vector(srcloc-source s_80)(srcloc-line s_80)(srcloc-column s_80)(srcloc-position s_80)(srcloc-span s_80))" +"(if s_0" +"(vector(srcloc-source s_0)(srcloc-line s_0)(srcloc-column s_0)(srcloc-position s_0)(srcloc-span s_0))" " #f))))" "(define-values(keep-source-locations?) #f)" "(define-values" "(correlate*)" -"(lambda(stx_15 s-exp_0)" -"(begin(if(syntax-srcloc stx_15)(datum->correlated s-exp_0(srcloc->vector(syntax-srcloc stx_15))) s-exp_0))))" -"(define-values(correlate~)(lambda(stx_16 s-exp_1)(begin s-exp_1)))" +"(lambda(stx_0 s-exp_0)" +"(begin(if(syntax-srcloc stx_0)(datum->correlated s-exp_0(srcloc->vector(syntax-srcloc stx_0))) s-exp_0))))" +"(define-values(correlate~)(lambda(stx_0 s-exp_0)(begin s-exp_0)))" "(define-values" "(correlate/app)" -"(lambda(stx_17 s-exp_2)(begin(if keep-source-locations?(correlate* stx_17 s-exp_2)(correlate~ stx_17 s-exp_2)))))" -"(define-values(->correlated)(lambda(s_2)(begin(datum->correlated s_2 #f))))" +"(lambda(stx_0 s-exp_0)(begin(if keep-source-locations?(correlate* stx_0 s-exp_0)(correlate~ stx_0 s-exp_0)))))" +"(define-values(->correlated)(lambda(s_0)(begin(datum->correlated s_0 #f))))" "(define-values(compile-keep-source-locations!)(lambda(on?_0)(begin(set! keep-source-locations? on?_0))))" "(define-values" "(compile$2)" -"(let-values(((compile5_0)" +"(let-values(((compile5_6)" "(lambda(p3_0 cctx4_0 name1_0 result-used?2_0)" "(begin" " 'compile5" -"(let-values(((p_28) p3_0))" -"(let-values(((cctx_1) cctx4_0))" -"(let-values(((name_39) name1_0))" -"(let-values(((result-used?_0) result-used?2_0))" +"(let-values(((p_11) p3_0))" +"(let-values(((cctx_12) cctx4_0))" +"(let-values(((name_13) name1_0))" +"(let-values(((result-used?_14) result-used?2_0))" "(let-values()" -"(let-values(((compile_0)" -"(lambda(p_29 name_4 result-used?_1)" -"(begin 'compile(compile$2 p_29 cctx_1 name_4 result-used?_1)))))" -"(let-values(((s_170)(parsed-s p_28)))" -"(if(parsed-id? p_28)" +"(let-values(((compile_15)" +"(lambda(p_0 name_0 result-used?_0)" +"(begin 'compile(compile$2 p_0 cctx_12 name_0 result-used?_0)))))" +"(let-values(((s_19)(parsed-s p_11)))" +"(if(parsed-id? p_11)" "(let-values()" -"(let-values(((p25_0) p_28)((cctx26_0) cctx_1))" -"(compile-identifier22.1 #f #f p25_0 cctx26_0)))" -"(if(parsed-lambda? p_28)" +"(let-values(((p25_20) p_11)((cctx26_21) cctx_12))" +"(compile-identifier22.1 #f #f p25_20 cctx26_21)))" +"(if(parsed-lambda? p_11)" "(let-values()" -"(if result-used?_0" +"(if result-used?_14" "(let-values()" "(add-lambda-properties" "(correlate*" -" s_170" +" s_19" "(list*" " 'lambda" "(compile-lambda" -"(parsed-lambda-keys p_28)" -"(parsed-lambda-body p_28)" -" cctx_1)))" -" name_39" -" s_170))" -"(let-values()(correlate~ s_170 ''unused-lambda))))" -"(if(parsed-case-lambda? p_28)" +"(parsed-lambda-keys p_11)" +"(parsed-lambda-body p_11)" +" cctx_12)))" +" name_13" +" s_19))" +"(let-values()(correlate~ s_19 ''unused-lambda))))" +"(if(parsed-case-lambda? p_11)" "(let-values()" -"(if result-used?_0" +"(if result-used?_14" "(let-values()" "(add-lambda-properties" "(correlate*" -" s_170" +" s_19" "(list*" " 'case-lambda" "(reverse$1" -"(let-values(((lst_86)(parsed-case-lambda-clauses p_28)))" +"(let-values(((lst_22)(parsed-case-lambda-clauses p_11)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_108)" -"(lambda(fold-var_69 lst_87)" +"(let-values()(check-list lst_22)))" +"((letrec-values(((for-loop_23)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_87)" -"(let-values(((clause_0)" -"(unsafe-car lst_87))" -"((rest_41)" -"(unsafe-cdr lst_87)))" -"(let-values(((fold-var_70)" -"(let-values(((fold-var_27)" -" fold-var_69))" +"(if(pair? lst_0)" +"(let-values(((clause_26)" +"(unsafe-car lst_0))" +"((rest_27)" +"(unsafe-cdr lst_0)))" "(let-values(((fold-var_28)" +"(let-values(((fold-var_29)" +" fold-var_0))" +"(let-values(((fold-var_30)" "(let-values()" "(cons" "(let-values()" "(compile-lambda" "(car" -" clause_0)" +" clause_26)" "(cadr" -" clause_0)" -" cctx_1))" -" fold-var_27))))" +" clause_26)" +" cctx_12))" +" fold-var_29))))" "(values" -" fold-var_28)))))" +" fold-var_30)))))" "(if(not #f)" -"(for-loop_108 fold-var_70 rest_41)" -" fold-var_70)))" -" fold-var_69)))))" -" for-loop_108)" +"(for-loop_23 fold-var_28 rest_27)" +" fold-var_28)))" +" fold-var_0)))))" +" for-loop_23)" " null" -" lst_86))))))" -" name_39" -" s_170))" -"(let-values()(correlate~ s_170 ''unused-case-lambda))))" -"(if(parsed-app? p_28)" +" lst_22))))))" +" name_13" +" s_19))" +"(let-values()(correlate~ s_19 ''unused-case-lambda))))" +"(if(parsed-app? p_11)" "(let-values()" -"(let-values(((rands_0)(parsed-app-rands p_28)))" +"(let-values(((rands_31)(parsed-app-rands p_11)))" "(correlate/app" -" s_170" +" s_19" "(cons" -"(compile_0(parsed-app-rator p_28) #f #t)" +"(compile_15(parsed-app-rator p_11) #f #t)" "(reverse$1" -"(let-values(((lst_88) rands_0))" +"(let-values(((lst_32) rands_31))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_88)))" -"((letrec-values(((for-loop_191)" -"(lambda(fold-var_157 lst_163)" +"(let-values()(check-list lst_32)))" +"((letrec-values(((for-loop_33)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_163)" -"(let-values(((r_37)(unsafe-car lst_163))" -"((rest_84)" -"(unsafe-cdr lst_163)))" -"(let-values(((fold-var_33)" -"(let-values(((fold-var_34)" -" fold-var_157))" -"(let-values(((fold-var_158)" +"(if(pair? lst_0)" +"(let-values(((r_36)(unsafe-car lst_0))" +"((rest_37)" +"(unsafe-cdr lst_0)))" +"(let-values(((fold-var_38)" +"(let-values(((fold-var_39)" +" fold-var_0))" +"(let-values(((fold-var_40)" "(let-values()" "(cons" "(let-values()" -"(compile_0" -" r_37" +"(compile_15" +" r_36" " #f" " #t))" -" fold-var_34))))" +" fold-var_39))))" "(values" -" fold-var_158)))))" +" fold-var_40)))))" "(if(not #f)" -"(for-loop_191 fold-var_33 rest_84)" -" fold-var_33)))" -" fold-var_157)))))" -" for-loop_191)" +"(for-loop_33 fold-var_38 rest_37)" +" fold-var_38)))" +" fold-var_0)))))" +" for-loop_33)" " null" -" lst_88))))))))" -"(if(parsed-if? p_28)" +" lst_32))))))))" +"(if(parsed-if? p_11)" "(let-values()" -"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_28) #f #f)))" -"(if(eq?(correlated-e tst-e_0) #t)" +"(let-values(((tst-e_41)(compile_15(parsed-if-tst p_11) #f #f)))" +"(if(eq?(correlated-e tst-e_41) #t)" "(let-values()" -"(compile_0(parsed-if-thn p_28) name_39 result-used?_0))" -"(if(eq?(correlated-e tst-e_0) #f)" +"(compile_15(parsed-if-thn p_11) name_13 result-used?_14))" +"(if(eq?(correlated-e tst-e_41) #f)" "(let-values()" -"(compile_0(parsed-if-els p_28) name_39 result-used?_0))" +"(compile_15(parsed-if-els p_11) name_13 result-used?_14))" "(let-values()" "(correlate~" -" s_170" +" s_19" "(list" " 'if" -" tst-e_0" -"(compile_0(parsed-if-thn p_28) name_39 result-used?_0)" -"(compile_0(parsed-if-els p_28) name_39 result-used?_0))))))))" -"(if(parsed-with-continuation-mark? p_28)" +" tst-e_41" +"(compile_15(parsed-if-thn p_11) name_13 result-used?_14)" +"(compile_15(parsed-if-els p_11) name_13 result-used?_14))))))))" +"(if(parsed-with-continuation-mark? p_11)" "(let-values()" "(correlate~" -" s_170" +" s_19" "(list" " 'with-continuation-mark" -"(compile_0(parsed-with-continuation-mark-key p_28) #f #t)" -"(compile_0(parsed-with-continuation-mark-val p_28) #f #t)" -"(compile_0" -"(parsed-with-continuation-mark-body p_28)" -" name_39" -" result-used?_0))))" -"(if(parsed-begin0? p_28)" +"(compile_15(parsed-with-continuation-mark-key p_11) #f #t)" +"(compile_15(parsed-with-continuation-mark-val p_11) #f #t)" +"(compile_15" +"(parsed-with-continuation-mark-body p_11)" +" name_13" +" result-used?_14))))" +"(if(parsed-begin0? p_11)" "(let-values()" "(correlate~" -" s_170" +" s_19" "(list*" " 'begin0" -"(compile_0(car(parsed-begin0-body p_28)) name_39 result-used?_0)" +"(compile_15(car(parsed-begin0-body p_11)) name_13 result-used?_14)" "(reverse$1" -"(let-values(((lst_23)(cdr(parsed-begin0-body p_28))))" +"(let-values(((lst_42)(cdr(parsed-begin0-body p_11))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_23)))" -"((letrec-values(((for-loop_192)" -"(lambda(fold-var_159 lst_75)" +"(let-values()(check-list lst_42)))" +"((letrec-values(((for-loop_43)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_75)" -"(let-values(((e_32)" -"(unsafe-car lst_75))" -"((rest_85)" -"(unsafe-cdr lst_75)))" -"(let-values(((fold-var_160)" -"(let-values(((fold-var_94)" -" fold-var_159))" -"(let-values(((fold-var_95)" +"(if(pair? lst_0)" +"(let-values(((e_46)" +"(unsafe-car lst_0))" +"((rest_47)" +"(unsafe-cdr lst_0)))" +"(let-values(((fold-var_48)" +"(let-values(((fold-var_49)" +" fold-var_0))" +"(let-values(((fold-var_50)" "(let-values()" "(cons" "(let-values()" -"(compile_0" -" e_32" +"(compile_15" +" e_46" " #f" " #f))" -" fold-var_94))))" +" fold-var_49))))" "(values" -" fold-var_95)))))" +" fold-var_50)))))" "(if(not #f)" -"(for-loop_192" -" fold-var_160" -" rest_85)" -" fold-var_160)))" -" fold-var_159)))))" -" for-loop_192)" +"(for-loop_43 fold-var_48 rest_47)" +" fold-var_48)))" +" fold-var_0)))))" +" for-loop_43)" " null" -" lst_23)))))))" -"(if(parsed-begin? p_28)" +" lst_42)))))))" +"(if(parsed-begin? p_11)" "(let-values()" "(correlate~" -" s_170" +" s_19" "(compile-begin" -"(parsed-begin-body p_28)" -" cctx_1" -" name_39" -" result-used?_0)))" -"(if(parsed-set!? p_28)" +"(parsed-begin-body p_11)" +" cctx_12" +" name_13" +" result-used?_14)))" +"(if(parsed-set!? p_11)" "(let-values()" "(correlate~" -" s_170" -"(let-values(((temp27_4)(parsed-set!-id p_28))" -"((cctx28_0) cctx_1)" -"((temp29_1) #t)" -"((temp30_1)" -"(compile_0" -"(parsed-set!-rhs p_28)" -"(parsed-s(parsed-set!-id p_28))" +" s_19" +"(let-values(((temp27_52)(parsed-set!-id p_11))" +"((cctx28_53) cctx_12)" +"((temp29_54) #t)" +"((temp30_55)" +"(compile_15" +"(parsed-set!-rhs p_11)" +"(parsed-s(parsed-set!-id p_11))" " #t)))" -"(compile-identifier22.1 temp30_1 temp29_1 temp27_4 cctx28_0))))" -"(if(parsed-let-values? p_28)" +"(compile-identifier22.1" +" temp30_55" +" temp29_54" +" temp27_52" +" cctx28_53))))" +"(if(parsed-let-values? p_11)" "(let-values()" -"(let-values(((p31_0) p_28)" -"((cctx32_0) cctx_1)" -"((name33_0) name_39)" -"((temp34_1) #f)" -"((result-used?35_0) result-used?_0))" +"(let-values(((p31_57) p_11)" +"((cctx32_58) cctx_12)" +"((name33_59) name_13)" +"((temp34_60) #f)" +"((result-used?35_61) result-used?_14))" "(compile-let13.1" -" temp34_1" -" p31_0" -" cctx32_0" -" name33_0" -" result-used?35_0)))" -"(if(parsed-letrec-values? p_28)" +" temp34_60" +" p31_57" +" cctx32_58" +" name33_59" +" result-used?35_61)))" +"(if(parsed-letrec-values? p_11)" "(let-values()" -"(let-values(((p36_0) p_28)" -"((cctx37_0) cctx_1)" -"((name38_0) name_39)" -"((temp39_0) #t)" -"((result-used?40_0) result-used?_0))" +"(let-values(((p36_63) p_11)" +"((cctx37_64) cctx_12)" +"((name38_65) name_13)" +"((temp39_66) #t)" +"((result-used?40_67) result-used?_14))" "(compile-let13.1" -" temp39_0" -" p36_0" -" cctx37_0" -" name38_0" -" result-used?40_0)))" -"(if(parsed-quote? p_28)" +" temp39_66" +" p36_63" +" cctx37_64" +" name38_65" +" result-used?40_67)))" +"(if(parsed-quote? p_11)" "(let-values()" -"(let-values(((datum_1)(parsed-quote-datum p_28)))" -"(if(self-quoting-in-linklet? datum_1)" -"(let-values()(correlate~ s_170 datum_1))" +"(let-values(((datum_68)(parsed-quote-datum p_11)))" +"(if(self-quoting-in-linklet? datum_68)" +"(let-values()(correlate~ s_19 datum_68))" "(let-values()" -"(correlate~ s_170(list 'quote datum_1))))))" -"(if(parsed-quote-syntax? p_28)" +"(correlate~ s_19(list 'quote datum_68))))))" +"(if(parsed-quote-syntax? p_11)" "(let-values()" -"(if result-used?_0" +"(if result-used?_14" "(compile-quote-syntax" -"(parsed-quote-syntax-datum p_28)" -" cctx_1)" -"(correlate~" -" s_170" -"(list 'quote(syntax->datum$1 s_170)))))" -"(if(parsed-#%variable-reference? p_28)" +"(parsed-quote-syntax-datum p_11)" +" cctx_12)" +"(correlate~ s_19(list 'quote(syntax->datum$1 s_19)))))" +"(if(parsed-#%variable-reference? p_11)" "(let-values()" -"(let-values(((id_46)" -"(parsed-#%variable-reference-id p_28)))" +"(let-values(((id_69)" +"(parsed-#%variable-reference-id p_11)))" "(correlate~" -" s_170" -"(if id_46" +" s_19" +"(if id_69" "(list" " '#%variable-reference" -"(let-values(((id41_0) id_46)((cctx42_0) cctx_1))" -"(compile-identifier22.1 #f #f id41_0 cctx42_0)))" +"(let-values(((id41_70) id_69)" +"((cctx42_71) cctx_12))" +"(compile-identifier22.1" +" #f" +" #f" +" id41_70" +" cctx42_71)))" " '(#%variable-reference)))))" "(let-values()" "(error" " \"unrecognized parsed form:\"" -" p_28)))))))))))))))))))))))))))" +" p_11)))))))))))))))))))))))))))" "(case-lambda" -"((p_30 cctx_2)(begin 'compile(compile5_0 p_30 cctx_2 #f #t)))" -"((p_31 cctx_3 name_40 result-used?2_1)(compile5_0 p_31 cctx_3 name_40 result-used?2_1))" -"((p_32 cctx_4 name1_1)(compile5_0 p_32 cctx_4 name1_1 #t)))))" +"((p_0 cctx_0)(begin 'compile(compile5_6 p_0 cctx_0 #f #t)))" +"((p_0 cctx_0 name_0 result-used?2_0)(compile5_6 p_0 cctx_0 name_0 result-used?2_0))" +"((p_0 cctx_0 name1_0)(compile5_6 p_0 cctx_0 name1_0 #t)))))" "(define-values" "(compile-lambda)" -"(lambda(formals_0 bodys_0 cctx_5)(begin(list formals_0(compile-sequence bodys_0 cctx_5 #f #t)))))" +"(lambda(formals_0 bodys_0 cctx_0)(begin(list formals_0(compile-sequence bodys_0 cctx_0 #f #t)))))" "(define-values" "(compile-sequence)" -"(lambda(bodys_1 cctx_6 name_41 result-used?_2)" +"(lambda(bodys_0 cctx_0 name_0 result-used?_0)" "(begin" -"(if(null?(cdr bodys_1))" -"(compile$2(car bodys_1) cctx_6 name_41 result-used?_2)" -"(compile-begin bodys_1 cctx_6 name_41 result-used?_2)))))" +"(if(null?(cdr bodys_0))" +"(compile$2(car bodys_0) cctx_0 name_0 result-used?_0)" +"(compile-begin bodys_0 cctx_0 name_0 result-used?_0)))))" "(define-values" "(compile-begin)" -"(lambda(es_0 cctx_7 name_42 result-used?_3)" +"(lambda(es_0 cctx_0 name_0 result-used?_0)" "(begin" -"(let-values(((used-pos_0)(sub1(length es_0))))" +"(let-values(((used-pos_92)(sub1(length es_0))))" "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_164) es_0)((start_33) 0))" +"(let-values(((lst_93) es_0)((start_94) 0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_164)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_93)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_33)))" -"((letrec-values(((for-loop_193)" -"(lambda(fold-var_161 lst_165 pos_91)" +"(let-values()(check-naturals start_94)))" +"((letrec-values(((for-loop_95)" +"(lambda(fold-var_0 lst_0 pos_0)" "(begin" " 'for-loop" -"(if(if(pair? lst_165) #t #f)" -"(let-values(((e_4)(unsafe-car lst_165))" -"((rest_86)(unsafe-cdr lst_165))" -"((i_135) pos_91))" -"(let-values(((fold-var_162)" -"(let-values(((fold-var_163) fold-var_161))" -"(let-values(((fold-var_164)" +"(if(if(pair? lst_0) #t #f)" +"(let-values(((e_99)(unsafe-car lst_0))" +"((rest_100)(unsafe-cdr lst_0))" +"((i_101) pos_0))" +"(let-values(((fold-var_102)" +"(let-values(((fold-var_103) fold-var_0))" +"(let-values(((fold-var_104)" "(let-values()" "(cons" "(let-values()" -"(let-values(((used?_0)" -"(= i_135 used-pos_0)))" +"(let-values(((used?_105)" +"(= i_101 used-pos_92)))" "(compile$2" -" e_4" -" cctx_7" -"(if used?_0 name_42 #f)" -"(if used?_0 result-used?_3 #f))))" -" fold-var_163))))" -"(values fold-var_164)))))" -"(if(not #f)(for-loop_193 fold-var_162 rest_86(+ pos_91 1)) fold-var_162)))" -" fold-var_161)))))" -" for-loop_193)" +" e_99" +" cctx_0" +"(if used?_105 name_0 #f)" +"(if used?_105 result-used?_0 #f))))" +" fold-var_103))))" +"(values fold-var_104)))))" +"(if(not #f)(for-loop_95 fold-var_102 rest_100(+ pos_0 1)) fold-var_102)))" +" fold-var_0)))))" +" for-loop_95)" " null" -" lst_164" -" start_33)))))))))" +" lst_93" +" start_94)))))))))" "(define-values" "(add-lambda-properties)" -"(lambda(s_306 inferred-name_0 orig-s_21)" +"(lambda(s_0 inferred-name_0 orig-s_0)" "(begin" -"(letrec-values(((simplify-name_0)" -"(lambda(v_155)" +"(letrec-values(((simplify-name_109)" +"(lambda(v_0)" "(begin" " 'simplify-name" -"(if(pair? v_155)" +"(if(pair? v_0)" "(let-values()" -"(let-values(((n1_0)(simplify-name_0(car v_155))))" -"(let-values(((n2_0)(simplify-name_0(cdr v_155))))(if(eq? n1_0 n2_0) n1_0 v_155))))" -"(let-values() v_155))))))" -"(let-values(((name_43)" -"(let-values(((or-part_210)" -"(let-values(((v_156)" -"(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_211)(symbol? v_156)))" -"(if or-part_211" -" or-part_211" -"(let-values(((or-part_212)(syntax?$1 v_156)))" -"(if or-part_212 or-part_212(void? v_156)))))" -" v_156" +"(let-values(((n1_114)(simplify-name_109(car v_0))))" +"(let-values(((n2_115)(simplify-name_109(cdr v_0))))" +"(if(eq? n1_114 n2_115) n1_114 v_0))))" +"(let-values() v_0))))))" +"(let-values(((name_110)" +"(let-values(((or-part_116)" +"(let-values(((v_117)" +"(simplify-name_109(syntax-property$1 orig-s_0 'inferred-name))))" +"(if(let-values(((or-part_118)(symbol? v_117)))" +"(if or-part_118" +" or-part_118" +"(let-values(((or-part_119)(syntax?$1 v_117)))" +"(if or-part_119 or-part_119(void? v_117)))))" +" v_117" " #f))))" -"(if or-part_210 or-part_210 inferred-name_0))))" -"(let-values(((named-s_0)" -"(if name_43" +"(if or-part_116 or-part_116 inferred-name_0))))" +"(let-values(((named-s_111)" +"(if name_110" "(correlated-property" -"(->correlated s_306)" +"(->correlated s_0)" " 'inferred-name" -"(if(syntax?$1 name_43)(syntax-e$1 name_43) name_43))" -" s_306)))" -"(let-values(((as-method_0)(syntax-property$1 orig-s_21 'method-arity-error)))" -"(if as-method_0" -"(correlated-property(->correlated named-s_0) 'method-arity-error as-method_0)" -" named-s_0))))))))" +"(if(syntax?$1 name_110)(syntax-e$1 name_110) name_110))" +" s_0)))" +"(let-values(((as-method_112)(syntax-property$1 orig-s_0 'method-arity-error)))" +"(if as-method_112" +"(correlated-property(->correlated named-s_111) 'method-arity-error as-method_112)" +" named-s_111))))))))" "(define-values" "(compile-let13.1)" "(lambda(rec?7_0 p9_0 cctx10_0 name11_0 result-used?12_0)" "(begin" " 'compile-let13" -"(let-values(((p_33) p9_0))" -"(let-values(((cctx_8) cctx10_0))" -"(let-values(((name_44) name11_0))" -"(let-values(((rec?_0) rec?7_0))" -"(let-values(((result-used?_4) result-used?12_0))" +"(let-values(((p_135) p9_0))" +"(let-values(((cctx_136) cctx10_0))" +"(let-values(((name_137) name11_0))" +"(let-values(((rec?_138) rec?7_0))" +"(let-values(((result-used?_139) result-used?12_0))" "(let-values()" -"(let-values(((body_0)(parsed-let_-values-body p_33)))" +"(let-values(((body_140)(parsed-let_-values-body p_135)))" "(correlate~" -"(parsed-s p_33)" +"(parsed-s p_135)" "(list" -"(if rec?_0 'letrec-values 'let-values)" +"(if rec?_138 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_166)(parsed-let_-values-clauses p_33))" -"((lst_167)(parsed-let_-values-idss p_33)))" +"(let-values(((lst_141)(parsed-let_-values-clauses p_135))" +"((lst_142)(parsed-let_-values-idss p_135)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_166)))" +"(let-values()(check-list lst_141)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_167)))" -"((letrec-values(((for-loop_194)" -"(lambda(fold-var_165 lst_168 lst_169)" +"(let-values()(check-list lst_142)))" +"((letrec-values(((for-loop_143)" +"(lambda(fold-var_0 lst_0 lst_1)" "(begin" " 'for-loop" -"(if(if(pair? lst_168)(pair? lst_169) #f)" -"(let-values(((clause_1)(unsafe-car lst_168))" -"((rest_87)(unsafe-cdr lst_168))" -"((ids_4)(unsafe-car lst_169))" -"((rest_88)(unsafe-cdr lst_169)))" -"(let-values(((fold-var_166)" -"(let-values(((fold-var_167) fold-var_165))" -"(let-values(((fold-var_168)" +"(if(if(pair? lst_0)(pair? lst_1) #f)" +"(let-values(((clause_147)(unsafe-car lst_0))" +"((rest_148)(unsafe-cdr lst_0))" +"((ids_149)(unsafe-car lst_1))" +"((rest_150)(unsafe-cdr lst_1)))" +"(let-values(((fold-var_151)" +"(let-values(((fold-var_152) fold-var_0))" +"(let-values(((fold-var_153)" "(let-values()" "(cons" "(let-values()" "(list" -"(if rec?_0" +"(if rec?_138" "(reverse$1" -"(let-values(((lst_170)" +"(let-values(((lst_154)" "(car" -" clause_1))" -"((lst_171)" -" ids_4))" +" clause_147))" +"((lst_155)" +" ids_149))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_170)))" +" lst_154)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_171)))" -"((letrec-values(((for-loop_195)" -"(lambda(fold-var_169" -" lst_172" -" lst_173)" +" lst_155)))" +"((letrec-values(((for-loop_156)" +"(lambda(fold-var_1" +" lst_2" +" lst_3)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_172)" +" lst_2)" "(pair?" -" lst_173)" +" lst_3)" " #f)" -"(let-values(((sym_56)" +"(let-values(((sym_160)" "(unsafe-car" -" lst_172))" -"((rest_89)" +" lst_2))" +"((rest_161)" "(unsafe-cdr" -" lst_172))" -"((id_47)" +" lst_2))" +"((id_162)" "(unsafe-car" -" lst_173))" -"((rest_90)" +" lst_3))" +"((rest_163)" "(unsafe-cdr" -" lst_173)))" -"(let-values(((fold-var_2)" -"(let-values(((fold-var_3)" -" fold-var_169))" -"(let-values(((fold-var_97)" +" lst_3)))" +"(let-values(((fold-var_164)" +"(let-values(((fold-var_165)" +" fold-var_1))" +"(let-values(((fold-var_166)" "(let-values()" "(cons" "(let-values()" "(add-undefined-error-name-property" -" sym_56" -" id_47))" -" fold-var_3))))" +" sym_160" +" id_162))" +" fold-var_165))))" "(values" -" fold-var_97)))))" +" fold-var_166)))))" "(if(not" " #f)" -"(for-loop_195" -" fold-var_2" -" rest_89" -" rest_90)" -" fold-var_2)))" -" fold-var_169)))))" -" for-loop_195)" +"(for-loop_156" +" fold-var_164" +" rest_161" +" rest_163)" +" fold-var_164)))" +" fold-var_1)))))" +" for-loop_156)" " null" -" lst_170" -" lst_171))))" -"(car clause_1))" +" lst_154" +" lst_155))))" +"(car clause_147))" "(compile$2" -"(cadr clause_1)" -" cctx_8" -"(if(= 1(length ids_4))" -"(car ids_4)" +"(cadr clause_147)" +" cctx_136" +"(if(= 1(length ids_149))" +"(car ids_149)" " #f))))" -" fold-var_167))))" -"(values fold-var_168)))))" +" fold-var_152))))" +"(values fold-var_153)))))" "(if(not #f)" -"(for-loop_194 fold-var_166 rest_87 rest_88)" -" fold-var_166)))" -" fold-var_165)))))" -" for-loop_194)" +"(for-loop_143 fold-var_151 rest_148 rest_150)" +" fold-var_151)))" +" fold-var_0)))))" +" for-loop_143)" " null" -" lst_166" -" lst_167))))" -"(compile-sequence body_0 cctx_8 name_44 result-used?_4)))))))))))))" +" lst_141" +" lst_142))))" +"(compile-sequence body_140 cctx_136 name_137 result-used?_139)))))))))))))" "(define-values" "(add-undefined-error-name-property)" -"(lambda(sym_54 orig-id_0)" +"(lambda(sym_0 orig-id_0)" "(begin" -"(let-values(((id_48)(correlate~ orig-id_0 sym_54)))" +"(let-values(((id_185)(correlate~ orig-id_0 sym_0)))" "(correlated-property" -"(->correlated id_48)" +"(->correlated id_185)" " 'undefined-error-name" -"(let-values(((or-part_213)(syntax-property$1 orig-id_0 'undefined-error-name)))" -"(if or-part_213 or-part_213(syntax-e$1 orig-id_0))))))))" +"(let-values(((or-part_186)(syntax-property$1 orig-id_0 'undefined-error-name)))" +"(if or-part_186 or-part_186(syntax-e$1 orig-id_0))))))))" "(define-values" "(compile-identifier22.1)" "(lambda(set-to17_0 set-to?16_0 p20_0 cctx21_0)" "(begin" " 'compile-identifier22" -"(let-values(((p_34) p20_0))" -"(let-values(((cctx_9) cctx21_0))" -"(let-values(((set-to?_0) set-to?16_0))" -"(let-values(((rhs_0) set-to17_0))" +"(let-values(((p_191) p20_0))" +"(let-values(((cctx_192) cctx21_0))" +"(let-values(((set-to?_193) set-to?16_0))" +"(let-values(((rhs_194) set-to17_0))" "(let-values()" -"(let-values(((normal-b_0)(parsed-id-binding p_34)))" -"(let-values(((b_74)" -"(let-values(((or-part_214) normal-b_0))" -"(if or-part_214" -" or-part_214" -"(let-values(((temp43_0)(compile-context-self cctx_9))" -"((temp44_0)(compile-context-phase cctx_9))" -"((temp45_0)(syntax-e$1(parsed-s p_34))))" +"(let-values(((normal-b_195)(parsed-id-binding p_191)))" +"(let-values(((b_196)" +"(let-values(((or-part_198) normal-b_195))" +"(if or-part_198" +" or-part_198" +"(let-values(((temp43_199)(compile-context-self cctx_192))" +"((temp44_200)(compile-context-phase cctx_192))" +"((temp45_201)(syntax-e$1(parsed-s p_191))))" "(make-module-binding22.1" " #f" " null" @@ -27591,131 +27732,130 @@ static const char *startup_source = " 0" " unsafe-undefined" " unsafe-undefined" -" temp43_0" -" temp44_0" -" temp45_0))))))" -"(let-values(((sym_57)" -"(if(local-binding? b_74)" -"(let-values()(local-binding-key b_74))" -"(if(module-binding? b_74)" +" temp43_199" +" temp44_200" +" temp45_201))))))" +"(let-values(((sym_197)" +"(if(local-binding? b_196)" +"(let-values()(local-binding-key b_196))" +"(if(module-binding? b_196)" "(let-values()" -"(let-values(((mpi_40)" -"(if(parsed-top-id? p_34)" -"(compile-context-self cctx_9)" -"(module-binding-module b_74))))" -"(if(parsed-primitive-id? p_34)" +"(let-values(((mpi_202)" +"(if(parsed-top-id? p_191)" +"(compile-context-self cctx_192)" +"(module-binding-module b_196))))" +"(if(parsed-primitive-id? p_191)" "(let-values()" "(begin" -"(if(zero?(module-binding-phase b_74))" +"(if(zero?(module-binding-phase b_196))" "(void)" "(let-values()" " (error \"internal error: non-zero phase for a primitive\")))" -"(if set-to?_0" +"(if set-to?_193" "(let-values()" "(error" " \"internal error: cannot assign to a primitive:\"" -"(module-binding-sym b_74)))" +"(module-binding-sym b_196)))" "(void))" -"(module-binding-sym b_74)))" -"(if(eq? mpi_40(compile-context-module-self cctx_9))" +"(module-binding-sym b_196)))" +"(if(eq? mpi_202(compile-context-module-self cctx_192))" "(let-values()" -"(let-values(((header_6)(compile-context-header cctx_9)))" +"(let-values(((header_203)(compile-context-header cctx_192)))" "(hash-ref" -"(header-binding-sym-to-define-sym header_6)" -"(module-binding-sym b_74))))" +"(header-binding-sym-to-define-sym header_203)" +"(module-binding-sym b_196))))" "(let-values()" -"(let-values(((temp46_0)(compile-context-header cctx_9))" -"((mpi47_0) mpi_40)" -"((temp48_0)(module-binding-phase b_74))" -"((temp49_0)(module-binding-sym b_74))" -"((temp50_0)" -"(let-values(((or-part_215)" -"(module-binding-extra-inspector b_74)))" -"(if or-part_215" -" or-part_215" -"(let-values(((or-part_216)" -"(parsed-id-inspector p_34)))" -"(if or-part_216" -" or-part_216" -"(if(parsed-s p_34)" -"(syntax-inspector(parsed-s p_34))" +"(let-values(((temp46_204)(compile-context-header cctx_192))" +"((mpi47_205) mpi_202)" +"((temp48_206)(module-binding-phase b_196))" +"((temp49_207)(module-binding-sym b_196))" +"((temp50_208)" +"(let-values(((or-part_209)" +"(module-binding-extra-inspector b_196)))" +"(if or-part_209" +" or-part_209" +"(let-values(((or-part_210)" +"(parsed-id-inspector p_191)))" +"(if or-part_210" +" or-part_210" +"(if(parsed-s p_191)" +"(syntax-inspector(parsed-s p_191))" " #f)))))))" "(register-required-variable-use!19.1" " #f" -" temp46_0" -" mpi47_0" -" temp48_0" -" temp49_0" -" temp50_0)))))))" +" temp46_204" +" mpi47_205" +" temp48_206" +" temp49_207" +" temp50_208)))))))" "(let-values()" "(error" " \"not a reference to a module or local binding:\"" -" b_74" -"(parsed-s p_34)))))))" -"(correlate~(parsed-s p_34)(if set-to?_0(list 'set! sym_57 rhs_0) sym_57)))))))))))))" +" b_196" +"(parsed-s p_191)))))))" +"(correlate~(parsed-s p_191)(if set-to?_193(list 'set! sym_197 rhs_194) sym_197)))))))))))))" "(define-values" "(compile-quote-syntax)" -"(lambda(q_1 cctx_10)" +"(lambda(q_0 cctx_0)" "(begin" -"(let-values(((pos_92)(add-syntax-literal!(compile-context-header cctx_10) q_1)))" -"(if(compile-context-lazy-syntax-literals? cctx_10)" -"(let-values()(generate-lazy-syntax-literal-lookup pos_92))" -"(let-values()(generate-eager-syntax-literal-lookup pos_92)))))))" +"(let-values(((pos_236)(add-syntax-literal!(compile-context-header cctx_0) q_0)))" +"(if(compile-context-lazy-syntax-literals? cctx_0)" +"(let-values()(generate-lazy-syntax-literal-lookup pos_236))" +"(let-values()(generate-eager-syntax-literal-lookup pos_236)))))))" "(define-values" "(extra-inspectors-allow?)" -"(lambda(extra-inspectors_2 guard-insp_0)" +"(lambda(extra-inspectors_0 guard-insp_0)" "(begin" -"(if(not extra-inspectors_2)" +"(if(not extra-inspectors_0)" "(let-values() #f)" -"(if(set? extra-inspectors_2)" +"(if(set? extra-inspectors_0)" "(let-values()" -"(let-values(((ht_112) extra-inspectors_2))" +"(let-values(((ht_3) extra-inspectors_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_112)))" -"((letrec-values(((for-loop_101)" -"(lambda(result_78 i_136)" +"(let-values()(check-in-immutable-hash-keys ht_3)))" +"((letrec-values(((for-loop_4)" +"(lambda(result_0 i_0)" "(begin" " 'for-loop" -"(if i_136" -"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_112 i_136)))" -"(let-values(((result_79)" +"(if i_0" +"(let-values(((extra-insp_7)(unsafe-immutable-hash-iterate-key ht_3 i_0)))" +"(let-values(((result_8)" "(let-values()" -"(let-values(((result_80)" +"(let-values(((result_10)" "(let-values()" "(let-values()" "(inspector-superior?" -" extra-insp_0" +" extra-insp_7" " guard-insp_0)))))" -"(values result_80)))))" -"(if(if(not((lambda x_55(not result_79)) extra-insp_0))(not #f) #f)" -"(for-loop_101 result_79(unsafe-immutable-hash-iterate-next ht_112 i_136))" -" result_79)))" -" result_78)))))" -" for-loop_101)" +"(values result_10)))))" +"(if(if(not((lambda x_0(not result_8)) extra-insp_7))(not #f) #f)" +"(for-loop_4 result_8(unsafe-immutable-hash-iterate-next ht_3 i_0))" +" result_8)))" +" result_0)))))" +" for-loop_4)" " #t" -"(unsafe-immutable-hash-iterate-first ht_112)))))" -"(if(procedure? extra-inspectors_2)" -"(let-values()(extra-inspectors_2 guard-insp_0))" +"(unsafe-immutable-hash-iterate-first ht_3)))))" +"(if(procedure? extra-inspectors_0)" +"(let-values()(extra-inspectors_0 guard-insp_0))" "(let-values()" "(error" " 'extra-inspectors-allow?" " \"unknown representation of extra inspectors: ~e\"" -" extra-inspectors_2))))))))" +" extra-inspectors_0))))))))" "(define-values" "(extra-inspectors-merge)" "(lambda(extra-inspectors-1_0 extra-inspectors-2_0)" "(begin" -"(if(let-values(((or-part_217)(not extra-inspectors-1_0)))" -"(if or-part_217 or-part_217(not extra-inspectors-2_0)))" +"(if(let-values(((or-part_14)(not extra-inspectors-1_0)))(if or-part_14 or-part_14(not extra-inspectors-2_0)))" "(let-values() #f)" "(if(if(set? extra-inspectors-1_0)(set? extra-inspectors-2_0) #f)" "(let-values()(set-union extra-inspectors-1_0 extra-inspectors-2_0))" "(let-values()" -"(lambda(guard-insp_1)" -"(if(extra-inspectors-allow? extra-inspectors-1_0 guard-insp_1)" -"(extra-inspectors-allow? extra-inspectors-2_0 guard-insp_1)" +"(lambda(guard-insp_0)" +"(if(extra-inspectors-allow? extra-inspectors-1_0 guard-insp_0)" +"(extra-inspectors-allow? extra-inspectors-2_0 guard-insp_0)" " #f))))))))" "(define-values" "(struct:module-use*" @@ -27725,7 +27865,7 @@ static const char *startup_source = " module-use*-self-inspector" " set-module-use*-extra-inspectorss!" " set-module-use*-self-inspector!)" -"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" +"(let-values(((struct:_16 make-_17 ?_18 -ref_19 -set!_20)" "(let-values()" "(let-values()" "(make-struct-type" @@ -27741,376 +27881,381 @@ static const char *startup_source = " #f" " 'module-use*)))))" "(values" -" struct:_63" -" make-_63" -" ?_63" -"(make-struct-field-accessor -ref_63 0 'extra-inspectorss)" -"(make-struct-field-accessor -ref_63 1 'self-inspector)" -"(make-struct-field-mutator -set!_63 0 'extra-inspectorss)" -"(make-struct-field-mutator -set!_63 1 'self-inspector))))" +" struct:_16" +" make-_17" +" ?_18" +"(make-struct-field-accessor -ref_19 0 'extra-inspectorss)" +"(make-struct-field-accessor -ref_19 1 'self-inspector)" +"(make-struct-field-mutator -set!_20 0 'extra-inspectorss)" +"(make-struct-field-mutator -set!_20 1 'self-inspector))))" "(define-values" "(module-uses-add-extra-inspectorsss)" -"(lambda(mus_1 extra-inspectorsss_0)" +"(lambda(mus_0 extra-inspectorsss_0)" "(begin" "(if extra-inspectorsss_0" "(let-values()" "(reverse$1" -"(let-values(((lst_104) mus_1)((lst_90) extra-inspectorsss_0))" +"(let-values(((lst_43) mus_0)((lst_44) extra-inspectorsss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_104)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_90)))" -"((letrec-values(((for-loop_110)" -"(lambda(fold-var_11 lst_91 lst_174)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_43)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_44)))" +"((letrec-values(((for-loop_45)" +"(lambda(fold-var_0 lst_0 lst_1)" "(begin" " 'for-loop" -"(if(if(pair? lst_91)(pair? lst_174) #f)" -"(let-values(((mu_5)(unsafe-car lst_91))" -"((rest_91)(unsafe-cdr lst_91))" -"((extra-inspectorss_1)(unsafe-car lst_174))" -"((rest_35)(unsafe-cdr lst_174)))" -"(let-values(((fold-var_170)" -"(let-values(((fold-var_171) fold-var_11))" -"(let-values(((fold-var_172)" +"(if(if(pair? lst_0)(pair? lst_1) #f)" +"(let-values(((mu_49)(unsafe-car lst_0))" +"((rest_50)(unsafe-cdr lst_0))" +"((extra-inspectorss_51)(unsafe-car lst_1))" +"((rest_52)(unsafe-cdr lst_1)))" +"(let-values(((fold-var_53)" +"(let-values(((fold-var_54) fold-var_0))" +"(let-values(((fold-var_55)" "(let-values()" "(cons" "(let-values()" "(module-use*1.1" -"(module-use-module mu_5)" -"(module-use-phase mu_5)" -" extra-inspectorss_1" +"(module-use-module mu_49)" +"(module-use-phase mu_49)" +" extra-inspectorss_51" " #f))" -" fold-var_171))))" -"(values fold-var_172)))))" -"(if(not #f)(for-loop_110 fold-var_170 rest_91 rest_35) fold-var_170)))" -" fold-var_11)))))" -" for-loop_110)" +" fold-var_54))))" +"(values fold-var_55)))))" +"(if(not #f)(for-loop_45 fold-var_53 rest_50 rest_52) fold-var_53)))" +" fold-var_0)))))" +" for-loop_45)" " null" -" lst_104" -" lst_90)))))" +" lst_43" +" lst_44)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_92) mus_1))" +"(let-values(((lst_56) mus_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_92)))" -"((letrec-values(((for-loop_196)" -"(lambda(fold-var_173 lst_17)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_56)))" +"((letrec-values(((for-loop_57)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_17)" -"(let-values(((mu_6)(unsafe-car lst_17))((rest_92)(unsafe-cdr lst_17)))" -"(let-values(((fold-var_74)" -"(let-values(((fold-var_64) fold-var_173))" -"(let-values(((fold-var_174)" +"(if(pair? lst_0)" +"(let-values(((mu_60)(unsafe-car lst_0))((rest_61)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_62)" +"(let-values(((fold-var_63) fold-var_0))" +"(let-values(((fold-var_64)" "(let-values()" "(cons" "(let-values()" "(module-use*1.1" -"(module-use-module mu_6)" -"(module-use-phase mu_6)" +"(module-use-module mu_60)" +"(module-use-phase mu_60)" " #f" " #f))" -" fold-var_64))))" -"(values fold-var_174)))))" -"(if(not #f)(for-loop_196 fold-var_74 rest_92) fold-var_74)))" -" fold-var_173)))))" -" for-loop_196)" +" fold-var_63))))" +"(values fold-var_64)))))" +"(if(not #f)(for-loop_57 fold-var_62 rest_61) fold-var_62)))" +" fold-var_0)))))" +" for-loop_57)" " null" -" lst_92)))))))))" +" lst_56)))))))))" "(define-values" "(module-uses-strip-extra-inspectorsss)" "(lambda(mu*s_0)" "(begin" "(reverse$1" -"(let-values(((lst_175) mu*s_0))" +"(let-values(((lst_66) mu*s_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" -"((letrec-values(((for-loop_197)" -"(lambda(fold-var_76 lst_176)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_66)))" +"((letrec-values(((for-loop_67)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_176)" -"(let-values(((mu*_0)(unsafe-car lst_176))((rest_93)(unsafe-cdr lst_176)))" -"(let-values(((fold-var_17)" -"(let-values(((fold-var_66) fold-var_76))" -"(let-values(((fold-var_67)" +"(if(pair? lst_0)" +"(let-values(((mu*_70)(unsafe-car lst_0))((rest_71)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_72)" +"(let-values(((fold-var_73) fold-var_0))" +"(let-values(((fold-var_74)" "(let-values()" "(cons" "(let-values()" "(module-use1.1" -"(module-use-module mu*_0)" -"(module-use-phase mu*_0)))" -" fold-var_66))))" -"(values fold-var_67)))))" -"(if(not #f)(for-loop_197 fold-var_17 rest_93) fold-var_17)))" -" fold-var_76)))))" -" for-loop_197)" +"(module-use-module mu*_70)" +"(module-use-phase mu*_70)))" +" fold-var_73))))" +"(values fold-var_74)))))" +"(if(not #f)(for-loop_67 fold-var_72 rest_71) fold-var_72)))" +" fold-var_0)))))" +" for-loop_67)" " null" -" lst_175)))))))" +" lst_66)))))))" "(define-values" "(module-uses-extract-extra-inspectorsss)" -"(lambda(mu*s_1 linklet_0 check-inlined-reference?_0 skip-n_0)" +"(lambda(mu*s_0 linklet_0 check-inlined-reference?_0 skip-n_0)" "(begin" "(if(not check-inlined-reference?_0)" "(let-values()" "(reverse$1" -"(let-values(((lst_177) mu*s_1))" +"(let-values(((lst_79) mu*s_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_177)))" -"((letrec-values(((for-loop_198)" -"(lambda(fold-var_79 lst_96)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_80)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_96)" -"(let-values(((mu*_1)(unsafe-car lst_96))((rest_94)(unsafe-cdr lst_96)))" -"(let-values(((fold-var_175)" -"(let-values(((fold-var_4) fold-var_79))" -"(let-values(((fold-var_68)" +"(if(pair? lst_0)" +"(let-values(((mu*_83)(unsafe-car lst_0))((rest_84)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_85)" +"(let-values(((fold-var_86) fold-var_0))" +"(let-values(((fold-var_87)" "(let-values()" "(cons" "(let-values()" -"(module-use*-extra-inspectorss mu*_1))" -" fold-var_4))))" -"(values fold-var_68)))))" -"(if(not #f)(for-loop_198 fold-var_175 rest_94) fold-var_175)))" -" fold-var_79)))))" -" for-loop_198)" +"(module-use*-extra-inspectorss mu*_83))" +" fold-var_86))))" +"(values fold-var_87)))))" +"(if(not #f)(for-loop_80 fold-var_85 rest_84) fold-var_85)))" +" fold-var_0)))))" +" for-loop_80)" " null" -" lst_177)))))" +" lst_79)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_178) mu*s_1)((lst_179)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" +"(let-values(((lst_88) mu*s_0)((lst_89)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_178)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_179)))" -"((letrec-values(((for-loop_28)" -"(lambda(fold-var_6 lst_180 lst_164)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_88)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_89)))" +"((letrec-values(((for-loop_90)" +"(lambda(fold-var_0 lst_0 lst_1)" "(begin" " 'for-loop" -"(if(if(pair? lst_180)(pair? lst_164) #f)" -"(let-values(((mu*_2)(unsafe-car lst_180))" -"((rest_95)(unsafe-cdr lst_180))" -"((imports_0)(unsafe-car lst_164))" -"((rest_96)(unsafe-cdr lst_164)))" -"(let-values(((fold-var_176)" -"(let-values(((fold-var_177) fold-var_6))" -"(let-values(((fold-var_178)" +"(if(if(pair? lst_0)(pair? lst_1) #f)" +"(let-values(((mu*_94)(unsafe-car lst_0))" +"((rest_95)(unsafe-cdr lst_0))" +"((imports_96)(unsafe-car lst_1))" +"((rest_97)(unsafe-cdr lst_1)))" +"(let-values(((fold-var_98)" +"(let-values(((fold-var_99) fold-var_0))" +"(let-values(((fold-var_100)" "(let-values()" "(cons" "(let-values()" -"(let-values(((extra-inspectorss_2)" +"(let-values(((extra-inspectorss_101)" "(module-use*-extra-inspectorss" -" mu*_2)))" -"(let-values(((lst_99) imports_0))" +" mu*_94)))" +"(let-values(((lst_102) imports_96))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_99)))" -"((letrec-values(((for-loop_19)" -"(lambda(extra-inspectorss_3" -" lst_181)" +"(let-values()" +"(check-list lst_102)))" +"((letrec-values(((for-loop_103)" +"(lambda(extra-inspectorss_0" +" lst_2)" "(begin" " 'for-loop" "(if(pair?" -" lst_181)" -"(let-values(((import_0)" +" lst_2)" +"(let-values(((import_106)" "(unsafe-car" -" lst_181))" -"((rest_97)" +" lst_2))" +"((rest_107)" "(unsafe-cdr" -" lst_181)))" -"(let-values(((extra-inspectorss_4)" -"(let-values(((extra-inspectorss_5)" -" extra-inspectorss_3))" -"(let-values(((extra-inspectorss_6)" +" lst_2)))" +"(let-values(((extra-inspectorss_108)" +"(let-values(((extra-inspectorss_109)" +" extra-inspectorss_0))" +"(let-values(((extra-inspectorss_110)" "(let-values()" "(if(eq?" "(hash-ref" -" extra-inspectorss_5" -" import_0" +" extra-inspectorss_109" +" import_106" " '#:not-recorded)" " '#:not-recorded)" "(let-values()" "(hash-set" -" extra-inspectorss_5" -" import_0" +" extra-inspectorss_109" +" import_106" "(set" "(module-use*-self-inspector" -" mu*_2))))" +" mu*_94))))" "(let-values()" -" extra-inspectorss_5)))))" +" extra-inspectorss_109)))))" "(values" -" extra-inspectorss_6)))))" +" extra-inspectorss_110)))))" "(if(not" " #f)" -"(for-loop_19" -" extra-inspectorss_4" -" rest_97)" -" extra-inspectorss_4)))" -" extra-inspectorss_3)))))" -" for-loop_19)" -" extra-inspectorss_2" -" lst_99)))))" -" fold-var_177))))" -"(values fold-var_178)))))" -"(if(not #f)(for-loop_28 fold-var_176 rest_95 rest_96) fold-var_176)))" -" fold-var_6)))))" -" for-loop_28)" +"(for-loop_103" +" extra-inspectorss_108" +" rest_107)" +" extra-inspectorss_108)))" +" extra-inspectorss_0)))))" +" for-loop_103)" +" extra-inspectorss_101" +" lst_102)))))" +" fold-var_99))))" +"(values fold-var_100)))))" +"(if(not #f)(for-loop_90 fold-var_98 rest_95 rest_97) fold-var_98)))" +" fold-var_0)))))" +" for-loop_90)" " null" -" lst_178" -" lst_179)))))))))" +" lst_88" +" lst_89)))))))))" "(define-values" "(module-use*-declaration-inspector!)" -"(lambda(mu*_3 insp_9)(begin(set-module-use*-self-inspector! mu*_3 insp_9))))" +"(lambda(mu*_0 insp_0)(begin(set-module-use*-self-inspector! mu*_0 insp_0))))" "(define-values" "(module-use+extra-inspectors)" -"(lambda(mpi_41 phase_73 imports_1 inspector_13 extra-inspector_5 extra-inspectorss_7)" +"(lambda(mpi_0 phase_0 imports_0 inspector_0 extra-inspector_0 extra-inspectorss_0)" "(begin" -"(let-values(((now-inspector_0)(current-code-inspector)))" -"(let-values(((add-insp?_0)(if inspector_13(inspector-superior? inspector_13 now-inspector_0) #f)))" -"(let-values(((add-extra-insp?_0)" -"(if extra-inspector_5(inspector-superior? extra-inspector_5 now-inspector_0) #f)))" -"(let-values(((new-extra-inspectorss_0)" -"(if(let-values(((or-part_218) add-insp?_0))(if or-part_218 or-part_218 add-extra-insp?_0))" +"(let-values(((now-inspector_119)(current-code-inspector)))" +"(let-values(((add-insp?_120)(if inspector_0(inspector-superior? inspector_0 now-inspector_119) #f)))" +"(let-values(((add-extra-insp?_121)" +"(if extra-inspector_0(inspector-superior? extra-inspector_0 now-inspector_119) #f)))" +"(let-values(((new-extra-inspectorss_122)" +"(if(let-values(((or-part_123) add-insp?_120))" +"(if or-part_123 or-part_123 add-extra-insp?_121))" "(let-values()" -"(let-values(((lst_182) imports_1))" +"(let-values(((lst_124) imports_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_182)))" -"((letrec-values(((for-loop_199)" -"(lambda(table_148 lst_183)" +"(let-values()(check-list lst_124)))" +"((letrec-values(((for-loop_125)" +"(lambda(table_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_183)" -"(let-values(((import_1)(unsafe-car lst_183))" -"((rest_98)(unsafe-cdr lst_183)))" -"(let-values(((table_149)" -"(let-values(((table_150) table_148))" -"(let-values(((table_151)" +"(if(pair? lst_0)" +"(let-values(((import_128)(unsafe-car lst_0))" +"((rest_129)(unsafe-cdr lst_0)))" +"(let-values(((table_130)" +"(let-values(((table_131) table_0))" +"(let-values(((table_132)" "(let-values()" -"(let-values(((key_57" -" val_50)" +"(let-values(((key_133" +" val_134)" "(let-values()" "(values" -" import_1" -"(let-values(((extra-inspectors_3)" -"(if extra-inspectorss_7" +" import_128" +"(let-values(((extra-inspectors_135)" +"(if extra-inspectorss_0" "(hash-ref" -" extra-inspectorss_7" -" import_1" +" extra-inspectorss_0" +" import_128" " #f)" " #f)))" -"(lambda(guard-insp_2)" -"(let-values(((or-part_219)" -"(if add-insp?_0" +"(lambda(guard-insp_0)" +"(let-values(((or-part_137)" +"(if add-insp?_120" "(inspector-superior?" -" inspector_13" -" guard-insp_2)" +" inspector_0" +" guard-insp_0)" " #f)))" -"(if or-part_219" -" or-part_219" -"(let-values(((or-part_100)" -"(if add-extra-insp?_0" +"(if or-part_137" +" or-part_137" +"(let-values(((or-part_138)" +"(if add-extra-insp?_121" "(inspector-superior?" -" extra-inspector_5" -" guard-insp_2)" +" extra-inspector_0" +" guard-insp_0)" " #f)))" -"(if or-part_100" -" or-part_100" +"(if or-part_138" +" or-part_138" "(extra-inspectors-allow?" -" extra-inspectors_3" -" guard-insp_2)))))))))))" +" extra-inspectors_135" +" guard-insp_0)))))))))))" "(hash-set" -" table_150" -" key_57" -" val_50)))))" -"(values table_151)))))" -"(if(not #f)(for-loop_199 table_149 rest_98) table_149)))" -" table_148)))))" -" for-loop_199)" +" table_131" +" key_133" +" val_134)))))" +"(values table_132)))))" +"(if(not #f)" +"(for-loop_125 table_130 rest_129)" +" table_130)))" +" table_0)))))" +" for-loop_125)" " '#hash()" -" lst_182))))" +" lst_124))))" "(let-values()" -"(let-values(((lst_184) imports_1))" +"(let-values(((lst_139) imports_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_184)))" -"((letrec-values(((for-loop_200)" -"(lambda(extra-inspectorss_8 lst_167)" +"(let-values()(check-list lst_139)))" +"((letrec-values(((for-loop_140)" +"(lambda(extra-inspectorss_1 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_167)" -"(let-values(((import_2)(unsafe-car lst_167))" -"((rest_99)(unsafe-cdr lst_167)))" -"(let-values(((extra-inspectorss_9)" -"(let-values(((extra-inspectorss_10)" -" extra-inspectorss_8))" -"(let-values(((extra-inspectorss_11)" +"(if(pair? lst_0)" +"(let-values(((import_143)(unsafe-car lst_0))" +"((rest_144)(unsafe-cdr lst_0)))" +"(let-values(((extra-inspectorss_145)" +"(let-values(((extra-inspectorss_146)" +" extra-inspectorss_1))" +"(let-values(((extra-inspectorss_147)" "(let-values()" "(if(hash-ref" -" extra-inspectorss_10" -" import_2" +" extra-inspectorss_146" +" import_143" " #f)" -" extra-inspectorss_10" +" extra-inspectorss_146" "(hash-set" -" extra-inspectorss_10" -" import_2" +" extra-inspectorss_146" +" import_143" " #f)))))" -"(values extra-inspectorss_11)))))" +"(values extra-inspectorss_147)))))" "(if(not #f)" -"(for-loop_200 extra-inspectorss_9 rest_99)" -" extra-inspectorss_9)))" -" extra-inspectorss_8)))))" -" for-loop_200)" -"(let-values(((or-part_38) extra-inspectorss_7))(if or-part_38 or-part_38(seteq)))" -" lst_184)))))))" -"(module-use*1.1 mpi_41 phase_73 new-extra-inspectorss_0 #f))))))))" +"(for-loop_140 extra-inspectorss_145 rest_144)" +" extra-inspectorss_145)))" +" extra-inspectorss_1)))))" +" for-loop_140)" +"(let-values(((or-part_148) extra-inspectorss_0))" +"(if or-part_148 or-part_148(seteq)))" +" lst_139)))))))" +"(module-use*1.1 mpi_0 phase_0 new-extra-inspectorss_122 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" -"(lambda(existing-mu*_0 mu*_4)" +"(lambda(existing-mu*_0 mu*_0)" "(begin" -"(let-values(((extra-inspectorss_12)(module-use*-extra-inspectorss mu*_4)))" -"(let-values(((existing-extra-inspectorss_0)(module-use*-extra-inspectorss existing-mu*_0)))" -"(let-values(((new-extra-inspectorss_1)" -"(let-values(((ht_113) extra-inspectorss_12))" +"(let-values(((extra-inspectorss_151)(module-use*-extra-inspectorss mu*_0)))" +"(let-values(((existing-extra-inspectorss_152)(module-use*-extra-inspectorss existing-mu*_0)))" +"(let-values(((new-extra-inspectorss_153)" +"(let-values(((ht_154) extra-inspectorss_151))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_113)))" -"((letrec-values(((for-loop_201)" -"(lambda(new-extra-inspectorss_2 i_137)" +"(let-values()(check-in-hash ht_154)))" +"((letrec-values(((for-loop_155)" +"(lambda(new-extra-inspectorss_0 i_0)" "(begin" " 'for-loop" -"(if i_137" -"(let-values(((sym_58 extra-inspectors_4)" -"(hash-iterate-key+value ht_113 i_137)))" -"(let-values(((new-extra-inspectorss_3)" -"(let-values(((new-extra-inspectorss_4)" -" new-extra-inspectorss_2))" -"(let-values(((new-extra-inspectorss_5)" +"(if i_0" +"(let-values(((sym_158 extra-inspectors_159)" +"(hash-iterate-key+value ht_154 i_0)))" +"(let-values(((new-extra-inspectorss_160)" +"(let-values(((new-extra-inspectorss_161)" +" new-extra-inspectorss_0))" +"(let-values(((new-extra-inspectorss_162)" "(let-values()" "(hash-set" -" new-extra-inspectorss_4" -" sym_58" +" new-extra-inspectorss_161" +" sym_158" "(extra-inspectors-merge" -" extra-inspectors_4" +" extra-inspectors_159" "(hash-ref" -" new-extra-inspectorss_4" -" sym_58" +" new-extra-inspectorss_161" +" sym_158" "(seteq)))))))" -"(values new-extra-inspectorss_5)))))" +"(values new-extra-inspectorss_162)))))" "(if(not #f)" -"(for-loop_201" -" new-extra-inspectorss_3" -"(hash-iterate-next ht_113 i_137))" -" new-extra-inspectorss_3)))" -" new-extra-inspectorss_2)))))" -" for-loop_201)" -" existing-extra-inspectorss_0" -"(hash-iterate-first ht_113))))))" -"(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" +"(for-loop_155" +" new-extra-inspectorss_160" +"(hash-iterate-next ht_154 i_0))" +" new-extra-inspectorss_160)))" +" new-extra-inspectorss_0)))))" +" for-loop_155)" +" existing-extra-inspectorss_152" +"(hash-iterate-first ht_154))))))" +"(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_153)))))))" "(define-values" "(struct:link-info" " link-info1.1" @@ -28119,18 +28264,18 @@ static const char *startup_source = " link-info-imports" " link-info-extra-inspectorsss" " link-info-def-decls)" -"(let-values(((struct:_26 make-_26 ?_26 -ref_26 -set!_26)" +"(let-values(((struct:_6 make-_7 ?_8 -ref_9 -set!_10)" "(let-values()" "(let-values()" "(make-struct-type 'link-info #f 4 0 #f null(current-inspector) #f '(0 1 2 3) #f 'link-info)))))" "(values" -" struct:_26" -" make-_26" -" ?_26" -"(make-struct-field-accessor -ref_26 0 'link-module-uses)" -"(make-struct-field-accessor -ref_26 1 'imports)" -"(make-struct-field-accessor -ref_26 2 'extra-inspectorsss)" -"(make-struct-field-accessor -ref_26 3 'def-decls))))" +" struct:_6" +" make-_7" +" ?_8" +"(make-struct-field-accessor -ref_9 0 'link-module-uses)" +"(make-struct-field-accessor -ref_9 1 'imports)" +"(make-struct-field-accessor -ref_9 2 'extra-inspectorsss)" +"(make-struct-field-accessor -ref_9 3 'def-decls))))" "(define-values" "(compile-forms31.1)" "(lambda(body-import-instances3_0" @@ -28151,87 +28296,87 @@ static const char *startup_source = " mpis30_0)" "(begin" " 'compile-forms31" -"(let-values(((bodys_2) bodys28_0))" -"(let-values(((cctx_11) cctx29_0))" -"(let-values(((mpis_15) mpis30_0))" -"(let-values(((body-imports_0) body-imports2_0))" -"(let-values(((body-import-instances_0) body-import-instances3_0))" -"(let-values(((body-suffix-forms_0) body-suffix-forms4_0))" -"(let-values(((force-phases_0) force-phases5_0))" -"(let-values(((encoded-root-expand-ctx-box_0) encoded-root-expand-ctx-box6_0))" -"(let-values(((root-ctx-only-if-syntax?_0) root-ctx-only-if-syntax?7_0))" -"(let-values(((compiled-expression-callback_0)" +"(let-values(((bodys_65) bodys28_0))" +"(let-values(((cctx_66) cctx29_0))" +"(let-values(((mpis_67) mpis30_0))" +"(let-values(((body-imports_68) body-imports2_0))" +"(let-values(((body-import-instances_69) body-import-instances3_0))" +"(let-values(((body-suffix-forms_70) body-suffix-forms4_0))" +"(let-values(((force-phases_71) force-phases5_0))" +"(let-values(((encoded-root-expand-ctx-box_72) encoded-root-expand-ctx-box6_0))" +"(let-values(((root-ctx-only-if-syntax?_73) root-ctx-only-if-syntax?7_0))" +"(let-values(((compiled-expression-callback_74)" "(if(eq? compiled-expression-callback8_0 unsafe-undefined)" " void" " compiled-expression-callback8_0)))" -"(let-values(((definition-callback_0)" +"(let-values(((definition-callback_75)" "(if(eq? definition-callback9_0 unsafe-undefined) void definition-callback9_0)))" -"(let-values(((other-form-callback_0)" +"(let-values(((other-form-callback_76)" "(if(eq? other-form-callback10_0 unsafe-undefined)" " void" " other-form-callback10_0)))" -"(let-values(((get-module-linklet-info_0)" +"(let-values(((get-module-linklet-info_77)" "(if(eq? get-module-linklet-info11_0 unsafe-undefined)" -"(lambda(mod-name_14 p_35)(begin 'get-module-linklet-info #f))" +"(lambda(mod-name_0 p_0)(begin 'get-module-linklet-info #f))" " get-module-linklet-info11_0)))" -"(let-values(((to-source?_0) to-source?12_0))" -"(let-values(((serializable?_0) serializable?13_0))" -"(let-values(((cross-linklet-inlining?_1) cross-linklet-inlining?14_0))" +"(let-values(((to-source?_80) to-source?12_0))" +"(let-values(((serializable?_81) serializable?13_0))" +"(let-values(((cross-linklet-inlining?_82) cross-linklet-inlining?14_0))" "(let-values()" -"(let-values(((phase_74)(compile-context-phase cctx_11)))" -"(let-values(((self_17)(compile-context-self cctx_11)))" -"(let-values(((syntax-literals_1)(make-syntax-literals)))" -"(let-values(((phase-to-body_0)(make-hasheqv)))" -"(let-values(((add-body!_0)" -"(lambda(phase_75 body_1)" +"(let-values(((phase_83)(compile-context-phase cctx_66)))" +"(let-values(((self_84)(compile-context-self cctx_66)))" +"(let-values(((syntax-literals_85)(make-syntax-literals)))" +"(let-values(((phase-to-body_86)(make-hasheqv)))" +"(let-values(((add-body!_87)" +"(lambda(phase_0 body_0)" "(begin" " 'add-body!" "(hash-update!" -" phase-to-body_0" -" phase_75" -"(lambda(l_21)(cons body_1 l_21))" +" phase-to-body_86" +" phase_0" +"(lambda(l_0)(cons body_0 l_0))" " null)))))" -"(let-values(((phase-to-header_0)(make-hasheqv)))" -"(let-values(((find-or-create-header!_0)" -"(lambda(phase_76)" +"(let-values(((phase-to-header_88)(make-hasheqv)))" +"(let-values(((find-or-create-header!_89)" +"(lambda(phase_0)" "(begin" " 'find-or-create-header!" -"(let-values(((or-part_220)" +"(let-values(((or-part_107)" "(hash-ref" -" phase-to-header_0" -" phase_76" +" phase-to-header_88" +" phase_0" " #f)))" -"(if or-part_220" -" or-part_220" -"(let-values(((header_7)" +"(if or-part_107" +" or-part_107" +"(let-values(((header_108)" "(make-header" -" mpis_15" -" syntax-literals_1)))" +" mpis_67" +" syntax-literals_85)))" "(begin" "(hash-set!" -" phase-to-header_0" -" phase_76" -" header_7)" -" header_7))))))))" +" phase-to-header_88" +" phase_0" +" header_108)" +" header_108))))))))" "(let-values((()" "(begin" -"(let-values(((lst_100) force-phases_0))" +"(let-values(((lst_109) force-phases_71))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_100)))" -"((letrec-values(((for-loop_115)" -"(lambda(lst_26)" +"(let-values()(check-list lst_109)))" +"((letrec-values(((for-loop_110)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_26)" -"(let-values(((phase_77)" +"(if(pair? lst_0)" +"(let-values(((phase_112)" "(unsafe-car" -" lst_26))" -"((rest_100)" +" lst_0))" +"((rest_113)" "(unsafe-cdr" -" lst_26)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28239,55 +28384,55 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(find-or-create-header!_0" -" phase_77)" -"(add-body!_0" -" phase_77" +"(find-or-create-header!_89" +" phase_112)" +"(add-body!_87" +" phase_112" " '(void))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_115" -" rest_100)" +"(for-loop_110" +" rest_113)" "(values))))" "(values))))))" -" for-loop_115)" -" lst_100)))" +" for-loop_110)" +" lst_109)))" "(values))))" "(let-values()" -"(let-values(((saw-define-syntaxes?_0) #f))" +"(let-values(((saw-define-syntaxes?_90) #f))" "(let-values((()" "(begin" -"(if(compile-context-module-self cctx_11)" +"(if(compile-context-module-self cctx_66)" "(let-values()" -"((letrec-values(((loop!_0)" -"(lambda(bodys_3" -" phase_7" -" header_8)" +"((letrec-values(((loop!_114)" +"(lambda(bodys_0" +" phase_0" +" header_0)" "(begin" " 'loop!" "(begin" -"(let-values(((lst_185)" -" bodys_3))" +"(let-values(((lst_118)" +" bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_185)))" -"((letrec-values(((for-loop_202)" -"(lambda(lst_186)" +" lst_118)))" +"((letrec-values(((for-loop_119)" +"(lambda(lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_186)" -"(let-values(((body_2)" +" lst_0)" +"(let-values(((body_121)" "(unsafe-car" -" lst_186))" -"((rest_101)" +" lst_0))" +"((rest_122)" "(unsafe-cdr" -" lst_186)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28295,117 +28440,117 @@ static const char *startup_source = "(begin" "(let-values()" "(if(parsed-define-values?" -" body_2)" +" body_121)" "(let-values()" "(begin" -"(let-values(((lst_187)" +"(let-values(((lst_123)" "(parsed-define-values-syms" -" body_2)))" +" body_121)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_187)))" -"((letrec-values(((for-loop_3)" -"(lambda(lst_188)" +" lst_123)))" +"((letrec-values(((for-loop_124)" +"(lambda(lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_188)" -"(let-values(((sym_59)" +" lst_1)" +"(let-values(((sym_126)" "(unsafe-car" -" lst_188))" -"((rest_102)" +" lst_1))" +"((rest_127)" "(unsafe-cdr" -" lst_188)))" +" lst_1)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((def-sym_1)" +"(let-values(((def-sym_128)" "(select-fresh" -" sym_59" -" header_8)))" +" sym_126" +" header_0)))" "(begin" "(hash-set!" "(header-binding-sym-to-define-sym" -" header_8)" -" sym_59" -" def-sym_1)" +" header_0)" +" sym_126" +" def-sym_128)" "(set-header-binding-syms-in-order!" -" header_8" +" header_0" "(cons" -" sym_59" +" sym_126" "(header-binding-syms-in-order" -" header_8)))" +" header_0)))" "(register-as-defined!" -" header_8" -" def-sym_1))))" +" header_0" +" def-sym_128))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_3" -" rest_102)" +"(for-loop_124" +" rest_127)" "(values))))" "(values))))))" -" for-loop_3)" -" lst_187)))" +" for-loop_124)" +" lst_123)))" "(void)))" "(if(parsed-begin-for-syntax?" -" body_2)" +" body_121)" "(let-values()" -"(loop!_0" +"(loop!_114" "(parsed-begin-for-syntax-body" -" body_2)" +" body_121)" "(add1" -" phase_7)" -"(find-or-create-header!_0" +" phase_0)" +"(find-or-create-header!_89" "(add1" -" phase_7))))" +" phase_0))))" "(void))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_202" -" rest_101)" +"(for-loop_119" +" rest_122)" "(values))))" "(values))))))" -" for-loop_202)" -" lst_185)))" +" for-loop_119)" +" lst_118)))" "(void))))))" -" loop!_0)" -" bodys_2" -" phase_74" -"(find-or-create-header!_0 phase_74)))" +" loop!_114)" +" bodys_65" +" phase_83" +"(find-or-create-header!_89 phase_83)))" "(void))" "(values))))" -"(let-values(((as-required?_0)" -"(lambda(header_9)" +"(let-values(((as-required?_91)" +"(lambda(header_0)" "(begin" " 'as-required?" -"(lambda(sym_60)" +"(lambda(sym_0)" "(registered-as-required?" -" header_9" -" sym_60))))))" -"(let-values(((last-i_0)(sub1(length bodys_2))))" +" header_0" +" sym_0))))))" +"(let-values(((last-i_92)(sub1(length bodys_65))))" "(let-values((()" "(begin" -"((letrec-values(((loop!_1)" -"(lambda(bodys_4" -" phase_78" -" header_10)" +"((letrec-values(((loop!_131)" +"(lambda(bodys_0" +" phase_0" +" header_0)" "(begin" " 'loop!" "(begin" -"(let-values(((lst_189)" -" bodys_4)" -"((start_34)" +"(let-values(((lst_135)" +" bodys_0)" +"((start_136)" " 0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28413,30 +28558,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_189)))" +" lst_135)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals" -" start_34)))" -"((letrec-values(((for-loop_203)" -"(lambda(lst_190" -" pos_93)" +" start_136)))" +"((letrec-values(((for-loop_137)" +"(lambda(lst_0" +" pos_0)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_190)" +" lst_0)" " #t" " #f)" -"(let-values(((body_0)" +"(let-values(((body_140)" "(unsafe-car" -" lst_190))" -"((rest_103)" +" lst_0))" +"((rest_141)" "(unsafe-cdr" -" lst_190))" -"((i_107)" -" pos_93))" +" lst_0))" +"((i_142)" +" pos_0))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28444,206 +28589,299 @@ static const char *startup_source = "(begin" "(let-values()" "(if(parsed-define-values?" -" body_0)" +" body_140)" "(let-values()" -"(let-values(((ids_5)" +"(let-values(((ids_143)" "(parsed-define-values-ids" -" body_0)))" -"(let-values(((binding-syms_0)" +" body_140)))" +"(let-values(((binding-syms_144)" "(parsed-define-values-syms" -" body_0)))" -"(let-values(((def-syms_0)" +" body_140)))" +"(let-values(((def-syms_145)" "(if(compile-context-module-self" -" cctx_11)" +" cctx_66)" "(let-values()" "(reverse$1" -"(let-values(((lst_191)" -" binding-syms_0))" +"(let-values(((lst_147)" +" binding-syms_144))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_191)))" -"((letrec-values(((for-loop_123)" -"(lambda(fold-var_179" -" lst_192)" +" lst_147)))" +"((letrec-values(((for-loop_148)" +"(lambda(fold-var_0" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_192)" -"(let-values(((binding-sym_0)" +" lst_1)" +"(let-values(((binding-sym_151)" "(unsafe-car" -" lst_192))" -"((rest_104)" +" lst_1))" +"((rest_152)" "(unsafe-cdr" -" lst_192)))" -"(let-values(((fold-var_168)" -"(let-values(((fold-var_180)" -" fold-var_179))" -"(let-values(((fold-var_181)" +" lst_1)))" +"(let-values(((fold-var_153)" +"(let-values(((fold-var_154)" +" fold-var_0))" +"(let-values(((fold-var_155)" "(let-values()" "(cons" "(let-values()" "(hash-ref" "(header-binding-sym-to-define-sym" -" header_10)" -" binding-sym_0))" -" fold-var_180))))" +" header_0)" +" binding-sym_151))" +" fold-var_154))))" "(values" -" fold-var_181)))))" +" fold-var_155)))))" "(if(not" " #f)" -"(for-loop_123" -" fold-var_168" -" rest_104)" -" fold-var_168)))" -" fold-var_179)))))" -" for-loop_123)" +"(for-loop_148" +" fold-var_153" +" rest_152)" +" fold-var_153)))" +" fold-var_0)))))" +" for-loop_148)" " null" -" lst_191)))))" +" lst_147)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_193)" -" binding-syms_0))" +"(let-values(((lst_156)" +" binding-syms_144))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_193)))" -"((letrec-values(((for-loop_204)" -"(lambda(fold-var_182" -" lst_173)" +" lst_156)))" +"((letrec-values(((for-loop_157)" +"(lambda(fold-var_0" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_173)" -"(let-values(((binding-sym_1)" +" lst_1)" +"(let-values(((binding-sym_160)" "(unsafe-car" -" lst_173))" -"((rest_89)" +" lst_1))" +"((rest_161)" "(unsafe-cdr" -" lst_173)))" -"(let-values(((fold-var_183)" -"(let-values(((fold-var_1)" -" fold-var_182))" -"(let-values(((fold-var_2)" +" lst_1)))" +"(let-values(((fold-var_162)" +"(let-values(((fold-var_163)" +" fold-var_0))" +"(let-values(((fold-var_164)" "(let-values()" "(cons" "(let-values()" -"(let-values(((header35_0)" -" header_10)" -"((temp36_0)" +"(let-values(((header35_166)" +" header_0)" +"((temp36_167)" "(compile-context-self" -" cctx_11))" -"((phase37_0)" -" phase_78)" -"((binding-sym38_0)" -" binding-sym_1)" -"((temp39_1)" +" cctx_66))" +"((phase37_168)" +" phase_0)" +"((binding-sym38_169)" +" binding-sym_160)" +"((temp39_170)" " #f)" -"((temp40_0)" +"((temp40_171)" " #t))" "(register-required-variable-use!19.1" -" temp40_0" -" header35_0" -" temp36_0" -" phase37_0" -" binding-sym38_0" -" temp39_1)))" -" fold-var_1))))" +" temp40_171" +" header35_166" +" temp36_167" +" phase37_168" +" binding-sym38_169" +" temp39_170)))" +" fold-var_163))))" "(values" -" fold-var_2)))))" +" fold-var_164)))))" "(if(not" " #f)" -"(for-loop_204" -" fold-var_183" -" rest_89)" -" fold-var_183)))" -" fold-var_182)))))" -" for-loop_204)" +"(for-loop_157" +" fold-var_162" +" rest_161)" +" fold-var_162)))" +" fold-var_0)))))" +" for-loop_157)" " null" -" lst_193))))))))" -"(let-values(((rhs_1)" +" lst_156))))))))" +"(let-values(((rhs_146)" "(compile$2" "(parsed-define-values-rhs" -" body_0)" -"(let-values(((the-struct_48)" -" cctx_11))" +" body_140)" +"(let-values(((the-struct_172)" +" cctx_66))" "(if(compile-context?" -" the-struct_48)" -"(let-values(((phase41_0)" -" phase_78)" -"((header42_0)" -" header_10))" +" the-struct_172)" +"(let-values(((phase41_173)" +" phase_0)" +"((header42_174)" +" header_0))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_48)" -" phase41_0" +" the-struct_172)" +" phase41_173" "(compile-context-self" -" the-struct_48)" +" the-struct_172)" "(compile-context-module-self" -" the-struct_48)" +" the-struct_172)" "(compile-context-full-module-name" -" the-struct_48)" +" the-struct_172)" "(compile-context-lazy-syntax-literals?" -" the-struct_48)" -" header42_0))" +" the-struct_172)" +" header42_174))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_48)))" +" the-struct_172)))" "(if(=" "(length" -" ids_5)" +" ids_143)" " 1)" "(car" -" ids_5)" +" ids_143)" " #f))))" "(begin" -"(definition-callback_0)" -"(compiled-expression-callback_0" -" rhs_1" +"(definition-callback_75)" +"(compiled-expression-callback_74" +" rhs_146" "(length" -" def-syms_0)" -" phase_78" -"(as-required?_0" -" header_10))" -"(add-body!_0" -" phase_78" +" def-syms_145)" +" phase_0" +"(as-required?_91" +" header_0))" +"(add-body!_87" +" phase_0" "(propagate-inline-property" "(correlate*" "(parsed-s" -" body_0)" +" body_140)" "(list" " 'define-values" -" def-syms_0" -" rhs_1))" +" def-syms_145" +" rhs_146))" "(parsed-s" -" body_0)))" -"(if(let-values(((or-part_169)" +" body_140)))" +"(if(let-values(((or-part_175)" "(compile-context-module-self" -" cctx_11)))" -"(if or-part_169" -" or-part_169" +" cctx_66)))" +"(if or-part_175" +" or-part_175" "(null?" -" ids_5)))" +" ids_143)))" "(void)" "(let-values()" "(begin" -"(add-body!_0" -" phase_78" +"(add-body!_87" +" phase_0" "(list*" " 'if" " #f" "(list*" " 'begin" "(reverse$1" +"(let-values(((lst_176)" +" def-syms_145))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_176)))" +"((letrec-values(((for-loop_177)" +"(lambda(fold-var_0" +" lst_1)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_1)" +"(let-values(((def-sym_180)" +"(unsafe-car" +" lst_1))" +"((rest_181)" +"(unsafe-cdr" +" lst_1)))" +"(let-values(((fold-var_182)" +"(let-values(((fold-var_183)" +" fold-var_0))" +"(let-values(((fold-var_184)" +"(let-values()" +"(cons" +"(let-values()" +"(list*" +" 'set!" +" def-sym_180" +" '(#f)))" +" fold-var_183))))" +"(values" +" fold-var_184)))))" +"(if(not" +" #f)" +"(for-loop_177" +" fold-var_182" +" rest_181)" +" fold-var_182)))" +" fold-var_0)))))" +" for-loop_177)" +" null" +" lst_176)))))" +" '((void))))" +"(add-body!_87" +" phase_0" +"(compile-top-level-bind" +" ids_143" +" binding-syms_144" +"(let-values(((the-struct_185)" +" cctx_66))" +"(if(compile-context?" +" the-struct_185)" +"(let-values(((phase43_186)" +" phase_0)" +"((header44_187)" +" header_0))" +"(compile-context1.1" +"(compile-context-namespace" +" the-struct_185)" +" phase43_186" +"(compile-context-self" +" the-struct_185)" +"(compile-context-module-self" +" the-struct_185)" +"(compile-context-full-module-name" +" the-struct_185)" +"(compile-context-lazy-syntax-literals?" +" the-struct_185)" +" header44_187))" +"(raise-argument-error" +" 'struct-copy" +" \"compile-context?\"" +" the-struct_185)))" +" #f)))))))))))" +"(if(parsed-define-syntaxes?" +" body_140)" +"(let-values()" +"(let-values(((ids_188)" +"(parsed-define-syntaxes-ids" +" body_140)))" +"(let-values(((binding-syms_189)" +"(parsed-define-syntaxes-syms" +" body_140)))" +"(let-values(((next-header_190)" +"(find-or-create-header!_89" +"(add1" +" phase_0))))" +"(let-values(((gen-syms_191)" +"(reverse$1" "(let-values(((lst_194)" -" def-syms_0))" +" binding-syms_189))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -28651,232 +28889,139 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_194)))" -"((letrec-values(((for-loop_205)" -"(lambda(fold-var_184" -" lst_13)" +"((letrec-values(((for-loop_195)" +"(lambda(fold-var_0" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_13)" -"(let-values(((def-sym_2)" +" lst_1)" +"(let-values(((binding-sym_198)" "(unsafe-car" -" lst_13))" -"((rest_105)" +" lst_1))" +"((rest_199)" "(unsafe-cdr" -" lst_13)))" -"(let-values(((fold-var_185)" -"(let-values(((fold-var_186)" -" fold-var_184))" -"(let-values(((fold-var_187)" +" lst_1)))" +"(let-values(((fold-var_200)" +"(let-values(((fold-var_201)" +" fold-var_0))" +"(let-values(((fold-var_202)" "(let-values()" "(cons" "(let-values()" -"(list*" -" 'set!" -" def-sym_2" -" '(#f)))" -" fold-var_186))))" -"(values" -" fold-var_187)))))" -"(if(not" -" #f)" -"(for-loop_205" -" fold-var_185" -" rest_105)" -" fold-var_185)))" -" fold-var_184)))))" -" for-loop_205)" -" null" -" lst_194)))))" -" '((void))))" -"(add-body!_0" -" phase_78" -"(compile-top-level-bind" -" ids_5" -" binding-syms_0" -"(let-values(((the-struct_49)" -" cctx_11))" -"(if(compile-context?" -" the-struct_49)" -"(let-values(((phase43_0)" -" phase_78)" -"((header44_0)" -" header_10))" -"(compile-context1.1" -"(compile-context-namespace" -" the-struct_49)" -" phase43_0" -"(compile-context-self" -" the-struct_49)" -"(compile-context-module-self" -" the-struct_49)" -"(compile-context-full-module-name" -" the-struct_49)" -"(compile-context-lazy-syntax-literals?" -" the-struct_49)" -" header44_0))" -"(raise-argument-error" -" 'struct-copy" -" \"compile-context?\"" -" the-struct_49)))" -" #f)))))))))))" -"(if(parsed-define-syntaxes?" -" body_0)" -"(let-values()" -"(let-values(((ids_6)" -"(parsed-define-syntaxes-ids" -" body_0)))" -"(let-values(((binding-syms_1)" -"(parsed-define-syntaxes-syms" -" body_0)))" -"(let-values(((next-header_0)" -"(find-or-create-header!_0" -"(add1" -" phase_78))))" -"(let-values(((gen-syms_0)" -"(reverse$1" -"(let-values(((lst_195)" -" binding-syms_1))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_195)))" -"((letrec-values(((for-loop_206)" -"(lambda(fold-var_188" -" lst_196)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_196)" -"(let-values(((binding-sym_2)" -"(unsafe-car" -" lst_196))" -"((rest_106)" -"(unsafe-cdr" -" lst_196)))" -"(let-values(((fold-var_189)" -"(let-values(((fold-var_190)" -" fold-var_188))" -"(let-values(((fold-var_191)" -"(let-values()" -"(cons" -"(let-values()" -"(let-values(((gen-sym_0)" +"(let-values(((gen-sym_203)" "(select-fresh" -" binding-sym_2" -" next-header_0)))" +" binding-sym_198" +" next-header_190)))" "(begin" "(register-as-defined!" -" next-header_0" -" gen-sym_0)" -" gen-sym_0)))" -" fold-var_190))))" +" next-header_190" +" gen-sym_203)" +" gen-sym_203)))" +" fold-var_201))))" "(values" -" fold-var_191)))))" +" fold-var_202)))))" "(if(not" " #f)" -"(for-loop_206" -" fold-var_189" -" rest_106)" -" fold-var_189)))" -" fold-var_188)))))" -" for-loop_206)" +"(for-loop_195" +" fold-var_200" +" rest_199)" +" fold-var_200)))" +" fold-var_0)))))" +" for-loop_195)" " null" -" lst_195))))))" -"(let-values(((rhs_2)" +" lst_194))))))" +"(let-values(((rhs_192)" "(compile$2" "(parsed-define-syntaxes-rhs" -" body_0)" -"(let-values(((the-struct_50)" -" cctx_11))" +" body_140)" +"(let-values(((the-struct_204)" +" cctx_66))" "(if(compile-context?" -" the-struct_50)" -"(let-values(((phase45_0)" +" the-struct_204)" +"(let-values(((phase45_205)" "(add1" -" phase_78))" -"((header46_0)" -" next-header_0))" +" phase_0))" +"((header46_206)" +" next-header_190))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_50)" -" phase45_0" +" the-struct_204)" +" phase45_205" "(compile-context-self" -" the-struct_50)" +" the-struct_204)" "(compile-context-module-self" -" the-struct_50)" +" the-struct_204)" "(compile-context-full-module-name" -" the-struct_50)" +" the-struct_204)" "(compile-context-lazy-syntax-literals?" -" the-struct_50)" -" header46_0))" +" the-struct_204)" +" header46_206))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_50))))))" +" the-struct_204))))))" "(let-values((()" "(begin" -"(definition-callback_0)" +"(definition-callback_75)" "(values))))" "(let-values((()" "(begin" -"(compiled-expression-callback_0" -" rhs_2" +"(compiled-expression-callback_74" +" rhs_192" "(length" -" gen-syms_0)" +" gen-syms_191)" "(add1" -" phase_78)" -"(as-required?_0" -" header_10))" +" phase_0)" +"(as-required?_91" +" header_0))" "(values))))" -"(let-values(((transformer-set!s_0)" +"(let-values(((transformer-set!s_193)" "(reverse$1" -"(let-values(((lst_197)" -" binding-syms_1)" -"((lst_198)" -" gen-syms_0))" +"(let-values(((lst_207)" +" binding-syms_189)" +"((lst_208)" +" gen-syms_191))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_197)))" +" lst_207)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_198)))" -"((letrec-values(((for-loop_207)" -"(lambda(fold-var_192" -" lst_199" -" lst_200)" +" lst_208)))" +"((letrec-values(((for-loop_209)" +"(lambda(fold-var_0" +" lst_1" +" lst_2)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_199)" +" lst_1)" "(pair?" -" lst_200)" +" lst_2)" " #f)" -"(let-values(((binding-sym_3)" +"(let-values(((binding-sym_213)" "(unsafe-car" -" lst_199))" -"((rest_107)" +" lst_1))" +"((rest_214)" "(unsafe-cdr" -" lst_199))" -"((gen-sym_1)" +" lst_1))" +"((gen-sym_215)" "(unsafe-car" -" lst_200))" -"((rest_108)" +" lst_2))" +"((rest_216)" "(unsafe-cdr" -" lst_200)))" -"(let-values(((fold-var_193)" -"(let-values(((fold-var_194)" -" fold-var_192))" -"(let-values(((fold-var_195)" +" lst_2)))" +"(let-values(((fold-var_217)" +"(let-values(((fold-var_218)" +" fold-var_0))" +"(let-values(((fold-var_219)" "(let-values()" "(cons" "(let-values()" @@ -28884,1111 +29029,1118 @@ static const char *startup_source = " set-transformer!-id" "(list" " 'quote" -" binding-sym_3)" -" gen-sym_1))" -" fold-var_194))))" +" binding-sym_213)" +" gen-sym_215))" +" fold-var_218))))" "(values" -" fold-var_195)))))" +" fold-var_219)))))" "(if(not" " #f)" -"(for-loop_207" -" fold-var_193" -" rest_107" -" rest_108)" -" fold-var_193)))" -" fold-var_192)))))" -" for-loop_207)" +"(for-loop_209" +" fold-var_217" +" rest_214" +" rest_216)" +" fold-var_217)))" +" fold-var_0)))))" +" for-loop_209)" " null" -" lst_197" -" lst_198))))))" +" lst_207" +" lst_208))))))" "(begin" "(if(compile-context-module-self" -" cctx_11)" +" cctx_66)" "(let-values()" -"(add-body!_0" +"(add-body!_87" "(add1" -" phase_78)" +" phase_0)" "(list" " 'let-values" "(list" "(list" -" gen-syms_0" -" rhs_2))" +" gen-syms_191" +" rhs_192))" "(list*" " 'begin" "(qq-append" -" transformer-set!s_0" +" transformer-set!s_193" " '((void)))))))" "(let-values()" -"(add-body!_0" +"(add-body!_87" "(add1" -" phase_78)" +" phase_0)" "(generate-top-level-define-syntaxes" -" gen-syms_0" -" rhs_2" -" transformer-set!s_0" +" gen-syms_191" +" rhs_192" +" transformer-set!s_193" "(compile-top-level-bind" -" ids_6" -" binding-syms_1" -"(let-values(((the-struct_51)" -" cctx_11))" +" ids_188" +" binding-syms_189" +"(let-values(((the-struct_220)" +" cctx_66))" "(if(compile-context?" -" the-struct_51)" -"(let-values(((phase47_0)" -" phase_78)" -"((header48_0)" -" header_10))" +" the-struct_220)" +"(let-values(((phase47_221)" +" phase_0)" +"((header48_222)" +" header_0))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_51)" -" phase47_0" +" the-struct_220)" +" phase47_221" "(compile-context-self" -" the-struct_51)" +" the-struct_220)" "(compile-context-module-self" -" the-struct_51)" +" the-struct_220)" "(compile-context-full-module-name" -" the-struct_51)" +" the-struct_220)" "(compile-context-lazy-syntax-literals?" -" the-struct_51)" -" header48_0))" +" the-struct_220)" +" header48_222))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_51)))" -" gen-syms_0)))))" -"(set! saw-define-syntaxes?_0" +" the-struct_220)))" +" gen-syms_191)))))" +"(set! saw-define-syntaxes?_90" " #t)))))))))))" "(if(parsed-begin-for-syntax?" -" body_0)" +" body_140)" "(let-values()" -"(loop!_1" +"(loop!_131" "(parsed-begin-for-syntax-body" -" body_0)" +" body_140)" "(add1" -" phase_78)" -"(find-or-create-header!_0" +" phase_0)" +"(find-or-create-header!_89" "(add1" -" phase_78))))" -"(if(let-values(((or-part_221)" +" phase_0))))" +"(if(let-values(((or-part_223)" "(parsed-#%declare?" -" body_0)))" -"(if or-part_221" -" or-part_221" -"(let-values(((or-part_87)" +" body_140)))" +"(if or-part_223" +" or-part_223" +"(let-values(((or-part_224)" "(parsed-module?" -" body_0)))" -"(if or-part_87" -" or-part_87" +" body_140)))" +"(if or-part_224" +" or-part_224" "(parsed-require?" -" body_0)))))" +" body_140)))))" "(let-values()" -"(let-values(((e_33)" -"(other-form-callback_0" -" body_0" -"(let-values(((the-struct_52)" -" cctx_11))" +"(let-values(((e_225)" +"(other-form-callback_76" +" body_140" +"(let-values(((the-struct_226)" +" cctx_66))" "(if(compile-context?" -" the-struct_52)" -"(let-values(((phase49_0)" -" phase_78)" -"((header50_0)" -" header_10))" +" the-struct_226)" +"(let-values(((phase49_227)" +" phase_0)" +"((header50_228)" +" header_0))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_52)" -" phase49_0" +" the-struct_226)" +" phase49_227" "(compile-context-self" -" the-struct_52)" +" the-struct_226)" "(compile-context-module-self" -" the-struct_52)" +" the-struct_226)" "(compile-context-full-module-name" -" the-struct_52)" +" the-struct_226)" "(compile-context-lazy-syntax-literals?" -" the-struct_52)" -" header50_0))" +" the-struct_226)" +" header50_228))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_52))))))" -"(if e_33" +" the-struct_226))))))" +"(if e_225" "(let-values()" "(begin" -"(compiled-expression-callback_0" -" e_33" +"(compiled-expression-callback_74" +" e_225" " #f" -" phase_78" -"(as-required?_0" -" header_10))" -"(add-body!_0" -" phase_78" -" e_33)))" +" phase_0" +"(as-required?_91" +" header_0))" +"(add-body!_87" +" phase_0" +" e_225)))" "(void))))" "(let-values()" -"(let-values(((e_34)" +"(let-values(((e_229)" "(compile$2" -" body_0" -"(let-values(((the-struct_53)" -" cctx_11))" +" body_140" +"(let-values(((the-struct_230)" +" cctx_66))" "(if(compile-context?" -" the-struct_53)" -"(let-values(((phase51_0)" -" phase_78)" -"((header52_0)" -" header_10))" +" the-struct_230)" +"(let-values(((phase51_231)" +" phase_0)" +"((header52_232)" +" header_0))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_53)" -" phase51_0" +" the-struct_230)" +" phase51_231" "(compile-context-self" -" the-struct_53)" +" the-struct_230)" "(compile-context-module-self" -" the-struct_53)" +" the-struct_230)" "(compile-context-full-module-name" -" the-struct_53)" +" the-struct_230)" "(compile-context-lazy-syntax-literals?" -" the-struct_53)" -" header52_0))" +" the-struct_230)" +" header52_232))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_53)))" +" the-struct_230)))" " #f" "(=" -" i_107" -" last-i_0))))" +" i_142" +" last-i_92))))" "(begin" -"(compiled-expression-callback_0" -" e_34" +"(compiled-expression-callback_74" +" e_229" " #f" -" phase_78" -"(as-required?_0" -" header_10))" -"(add-body!_0" -" phase_78" -" e_34)))))))))" +" phase_0" +"(as-required?_91" +" header_0))" +"(add-body!_87" +" phase_0" +" e_229)))))))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_203" -" rest_103" +"(for-loop_137" +" rest_141" "(+" -" pos_93" +" pos_0" " 1))" "(values))))" "(values))))))" -" for-loop_203)" -" lst_189" -" start_34)))" +" for-loop_137)" +" lst_135" +" start_136)))" "(void))))))" -" loop!_1)" -" bodys_2" -" phase_74" -"(find-or-create-header!_0 phase_74))" +" loop!_131)" +" bodys_65" +" phase_83" +"(find-or-create-header!_89 phase_83))" "(values))))" -"(let-values(((encoded-root-expand-pos_0)" -"(if encoded-root-expand-ctx-box_0" +"(let-values(((encoded-root-expand-pos_93)" +"(if encoded-root-expand-ctx-box_72" "(if(unbox" -" encoded-root-expand-ctx-box_0)" +" encoded-root-expand-ctx-box_72)" "(if(not" -"(if root-ctx-only-if-syntax?_0" +"(if root-ctx-only-if-syntax?_73" "(if(not" -" saw-define-syntaxes?_0)" +" saw-define-syntaxes?_90)" "(syntax-literals-empty?" -" syntax-literals_1)" +" syntax-literals_85)" " #f)" " #f))" "(add-syntax-literal!" -" syntax-literals_1" +" syntax-literals_85" "(unbox" -" encoded-root-expand-ctx-box_0))" +" encoded-root-expand-ctx-box_72))" " #f)" " #f)" " #f)))" -"(let-values(((phases-in-order_2)" -"(let-values(((temp53_1)" +"(let-values(((phases-in-order_94)" +"(let-values(((temp53_233)" "(hash-keys" -" phase-to-body_0))" -"((<54_0) <))" -"(sort7.1 #f #f temp53_1 <54_0))))" -"(let-values(((min-phase_0)" -"(if(pair? phases-in-order_2)" -"(car phases-in-order_2)" -" phase_74)))" -"(let-values(((max-phase_0)" -"(if(pair? phases-in-order_2)" +" phase-to-body_86))" +"((<54_234) <))" +"(sort7.1" +" #f" +" #f" +" temp53_233" +" <54_234))))" +"(let-values(((min-phase_95)" +"(if(pair? phases-in-order_94)" +"(car phases-in-order_94)" +" phase_83)))" +"(let-values(((max-phase_96)" +"(if(pair? phases-in-order_94)" "(car" "(reverse$1" -" phases-in-order_2))" -" phase_74)))" -"(let-values(((phase-to-link-info_0)" -"(let-values(((lst_201)" -" phases-in-order_2))" +" phases-in-order_94))" +" phase_83)))" +"(let-values(((phase-to-link-info_97)" +"(let-values(((lst_235)" +" phases-in-order_94))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_201)))" -"((letrec-values(((for-loop_208)" -"(lambda(table_152" -" lst_202)" +"(check-list lst_235)))" +"((letrec-values(((for-loop_236)" +"(lambda(table_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_202)" -"(let-values(((phase_79)" +" lst_0)" +"(let-values(((phase_239)" "(unsafe-car" -" lst_202))" -"((rest_109)" +" lst_0))" +"((rest_240)" "(unsafe-cdr" -" lst_202)))" -"(let-values(((table_153)" -"(let-values(((table_154)" -" table_152))" -"(let-values(((table_155)" +" lst_0)))" +"(let-values(((table_241)" +"(let-values(((table_242)" +" table_0))" +"(let-values(((table_243)" "(let-values()" -"(let-values(((key_58" -" val_51)" +"(let-values(((key_244" +" val_245)" "(let-values()" -"(let-values(((header_11)" +"(let-values(((header_246)" "(hash-ref" -" phase-to-header_0" -" phase_79" +" phase-to-header_88" +" phase_239" " #f)))" -"(let-values(((link-module-uses_0" -" imports_2" -" extra-inspectorsss_1" -" def-decls_0)" +"(let-values(((link-module-uses_247" +" imports_248" +" extra-inspectorsss_249" +" def-decls_250)" "(generate-links+imports" -" header_11" -" phase_79" -" cctx_11" -" cross-linklet-inlining?_1)))" +" header_246" +" phase_239" +" cctx_66" +" cross-linklet-inlining?_82)))" "(values" -" phase_79" +" phase_239" "(link-info1.1" -" link-module-uses_0" -" imports_2" -" extra-inspectorsss_1" -" def-decls_0)))))))" +" link-module-uses_247" +" imports_248" +" extra-inspectorsss_249" +" def-decls_250)))))))" "(hash-set" -" table_154" -" key_58" -" val_51)))))" +" table_242" +" key_244" +" val_245)))))" "(values" -" table_155)))))" +" table_243)))))" "(if(not" " #f)" -"(for-loop_208" -" table_153" -" rest_109)" -" table_153)))" -" table_152)))))" -" for-loop_208)" +"(for-loop_236" +" table_241" +" rest_240)" +" table_241)))" +" table_0)))))" +" for-loop_236)" " '#hash()" -" lst_201)))))" -"(let-values(((body-linklets+module-use*s_0)" -"(let-values(((lst_108)" -" phases-in-order_2))" +" lst_235)))))" +"(let-values(((body-linklets+module-use*s_98)" +"(let-values(((lst_251)" +" phases-in-order_94))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_108)))" -"((letrec-values(((for-loop_209)" -"(lambda(table_156" -" lst_109)" +" lst_251)))" +"((letrec-values(((for-loop_252)" +"(lambda(table_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_109)" -"(let-values(((phase_80)" +" lst_0)" +"(let-values(((phase_255)" "(unsafe-car" -" lst_109))" -"((rest_110)" +" lst_0))" +"((rest_256)" "(unsafe-cdr" -" lst_109)))" -"(let-values(((table_157)" -"(let-values(((table_158)" -" table_156))" -"(let-values(((table_159)" +" lst_0)))" +"(let-values(((table_257)" +"(let-values(((table_258)" +" table_0))" +"(let-values(((table_259)" "(let-values()" -"(let-values(((key_59" -" val_52)" +"(let-values(((key_260" +" val_261)" "(let-values()" -"(let-values(((bodys_5)" +"(let-values(((bodys_262)" "(hash-ref" -" phase-to-body_0" -" phase_80)))" -"(let-values(((li_0)" +" phase-to-body_86" +" phase_255)))" +"(let-values(((li_263)" "(hash-ref" -" phase-to-link-info_0" -" phase_80)))" -"(let-values(((binding-sym-to-define-sym_0)" +" phase-to-link-info_97" +" phase_255)))" +"(let-values(((binding-sym-to-define-sym_264)" "(header-binding-sym-to-define-sym" "(hash-ref" -" phase-to-header_0" -" phase_80))))" -"(let-values(((module-use*s_0)" +" phase-to-header_88" +" phase_255))))" +"(let-values(((module-use*s_265)" "(module-uses-add-extra-inspectorsss" "(link-info-link-module-uses" -" li_0)" +" li_263)" "(link-info-extra-inspectorsss" -" li_0))))" -"(let-values(((linklet_1" -" new-module-use*s_0)" +" li_263))))" +"(let-values(((linklet_266" +" new-module-use*s_267)" "(let-values()" -"((if to-source?_0" -"(lambda(l_55" -" name_45" +"((if to-source?_80" +"(lambda(l_0" +" name_0" " keys_0" " getter_0)" "(values" -" l_55" +" l_0" " keys_0))" -"(lambda(l_56" -" name_46" -" keys_1" -" getter_1)" +"(lambda(l_0" +" name_0" +" keys_0" +" getter_0)" "(1/compile-linklet" -" l_56" -" name_46" -" keys_1" -" getter_1" -"(if serializable?_0" +" l_0" +" name_0" +" keys_0" +" getter_0" +"(if serializable?_81" " '(serializable)" " '()))))" "(list*" " 'linklet" "(qq-append" -" body-imports_0" +" body-imports_68" "(link-info-imports" -" li_0))" +" li_263))" "(qq-append" "(link-info-def-decls" -" li_0)" +" li_263)" "(reverse$1" -"(let-values(((lst_203)" +"(let-values(((lst_276)" "(header-binding-syms-in-order" "(hash-ref" -" phase-to-header_0" -" phase_80))))" +" phase-to-header_88" +" phase_255))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_203)))" -"((letrec-values(((for-loop_210)" -"(lambda(fold-var_196" -" lst_204)" +" lst_276)))" +"((letrec-values(((for-loop_277)" +"(lambda(fold-var_0" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_204)" -"(let-values(((binding-sym_4)" +" lst_1)" +"(let-values(((binding-sym_280)" "(unsafe-car" -" lst_204))" -"((rest_111)" +" lst_1))" +"((rest_281)" "(unsafe-cdr" -" lst_204)))" -"(let-values(((fold-var_197)" -"(let-values(((fold-var_198)" -" fold-var_196))" -"(let-values(((fold-var_199)" +" lst_1)))" +"(let-values(((fold-var_282)" +"(let-values(((fold-var_283)" +" fold-var_0))" +"(let-values(((fold-var_284)" "(let-values()" "(cons" "(let-values()" -"(let-values(((def-sym_3)" +"(let-values(((def-sym_285)" "(hash-ref" -" binding-sym-to-define-sym_0" -" binding-sym_4)))" +" binding-sym-to-define-sym_264" +" binding-sym_280)))" "(if(eq?" -" def-sym_3" -" binding-sym_4)" -" def-sym_3" +" def-sym_285" +" binding-sym_280)" +" def-sym_285" "(list" -" def-sym_3" -" binding-sym_4))))" -" fold-var_198))))" +" def-sym_285" +" binding-sym_280))))" +" fold-var_283))))" "(values" -" fold-var_199)))))" +" fold-var_284)))))" "(if(not" " #f)" -"(for-loop_210" -" fold-var_197" -" rest_111)" -" fold-var_197)))" -" fold-var_196)))))" -" for-loop_210)" +"(for-loop_277" +" fold-var_282" +" rest_281)" +" fold-var_282)))" +" fold-var_0)))))" +" for-loop_277)" " null" -" lst_203)))))" +" lst_276)))))" "(qq-append" "(reverse$1" -" bodys_5)" -" body-suffix-forms_0))" +" bodys_262)" +" body-suffix-forms_70))" " 'module" "(list->vector" "(append" -" body-import-instances_0" -" module-use*s_0))" +" body-import-instances_69" +" module-use*s_265))" "(make-module-use-to-linklet" -" cross-linklet-inlining?_1" +" cross-linklet-inlining?_82" "(compile-context-namespace" -" cctx_11)" -" get-module-linklet-info_0" -" module-use*s_0)))))" +" cctx_66)" +" get-module-linklet-info_77" +" module-use*s_265)))))" "(values" -" phase_80" +" phase_255" "(cons" -" linklet_1" +" linklet_266" "(list-tail" "(vector->list" -" new-module-use*s_0)" +" new-module-use*s_267)" "(length" -" body-imports_0))))))))))))" +" body-imports_68))))))))))))" "(hash-set" -" table_158" -" key_59" -" val_52)))))" +" table_258" +" key_260" +" val_261)))))" "(values" -" table_159)))))" +" table_259)))))" "(if(not" " #f)" -"(for-loop_209" -" table_157" -" rest_110)" -" table_157)))" -" table_156)))))" -" for-loop_209)" +"(for-loop_252" +" table_257" +" rest_256)" +" table_257)))" +" table_0)))))" +" for-loop_252)" " '#hasheq()" -" lst_108)))))" -"(let-values(((body-linklets_0)" -"(let-values(((ht_114)" -" body-linklets+module-use*s_0))" +" lst_251)))))" +"(let-values(((body-linklets_99)" +"(let-values(((ht_286)" +" body-linklets+module-use*s_98))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash" -" ht_114)))" -"((letrec-values(((for-loop_211)" -"(lambda(table_33" -" i_138)" +" ht_286)))" +"((letrec-values(((for-loop_287)" +"(lambda(table_0" +" i_0)" "(begin" " 'for-loop" -"(if i_138" -"(let-values(((phase_81" -" l+mu*s_0)" +"(if i_0" +"(let-values(((phase_290" +" l+mu*s_291)" "(hash-iterate-key+value" -" ht_114" -" i_138)))" -"(let-values(((table_34)" -"(let-values(((table_145)" -" table_33))" -"(let-values(((table_160)" +" ht_286" +" i_0)))" +"(let-values(((table_292)" +"(let-values(((table_293)" +" table_0))" +"(let-values(((table_294)" "(let-values()" -"(let-values(((key_60" -" val_53)" +"(let-values(((key_295" +" val_296)" "(let-values()" "(values" -" phase_81" +" phase_290" "(car" -" l+mu*s_0)))))" +" l+mu*s_291)))))" "(hash-set" -" table_145" -" key_60" -" val_53)))))" +" table_293" +" key_295" +" val_296)))))" "(values" -" table_160)))))" +" table_294)))))" "(if(not" " #f)" -"(for-loop_211" -" table_34" +"(for-loop_287" +" table_292" "(hash-iterate-next" -" ht_114" -" i_138))" -" table_34)))" -" table_33)))))" -" for-loop_211)" +" ht_286" +" i_0))" +" table_292)))" +" table_0)))))" +" for-loop_287)" " '#hasheq()" "(hash-iterate-first" -" ht_114))))))" -"(let-values(((phase-to-link-module-uses_1)" -"(let-values(((ht_115)" -" body-linklets+module-use*s_0))" +" ht_286))))))" +"(let-values(((phase-to-link-module-uses_100)" +"(let-values(((ht_297)" +" body-linklets+module-use*s_98))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash" -" ht_115)))" -"((letrec-values(((for-loop_212)" -"(lambda(table_161" -" i_139)" +" ht_297)))" +"((letrec-values(((for-loop_298)" +"(lambda(table_0" +" i_0)" "(begin" " 'for-loop" -"(if i_139" -"(let-values(((phase_82" -" l+mu*s_1)" +"(if i_0" +"(let-values(((phase_301" +" l+mu*s_302)" "(hash-iterate-key+value" -" ht_115" -" i_139)))" -"(let-values(((table_126)" -"(let-values(((table_36)" -" table_161))" -"(let-values(((table_37)" +" ht_297" +" i_0)))" +"(let-values(((table_303)" +"(let-values(((table_304)" +" table_0))" +"(let-values(((table_305)" "(let-values()" -"(let-values(((key_47" -" val_40)" +"(let-values(((key_306" +" val_307)" "(let-values()" "(values" -" phase_82" +" phase_301" "(module-uses-strip-extra-inspectorsss" "(cdr" -" l+mu*s_1))))))" +" l+mu*s_302))))))" "(hash-set" -" table_36" -" key_47" -" val_40)))))" +" table_304" +" key_306" +" val_307)))))" "(values" -" table_37)))))" +" table_305)))))" "(if(not" " #f)" -"(for-loop_212" -" table_126" +"(for-loop_298" +" table_303" "(hash-iterate-next" -" ht_115" -" i_139))" -" table_126)))" -" table_161)))))" -" for-loop_212)" +" ht_297" +" i_0))" +" table_303)))" +" table_0)))))" +" for-loop_298)" " '#hasheq()" "(hash-iterate-first" -" ht_115))))))" -"(let-values(((phase-to-link-module-uses-expr_0)" +" ht_297))))))" +"(let-values(((phase-to-link-module-uses-expr_101)" "(serialize-phase-to-link-module-uses" -" phase-to-link-module-uses_1" -" mpis_15)))" -"(let-values(((phase-to-link-extra-inspectorsss_0)" -"(let-values(((ht_116)" -" body-linklets+module-use*s_0))" +" phase-to-link-module-uses_100" +" mpis_67)))" +"(let-values(((phase-to-link-extra-inspectorsss_102)" +"(let-values(((ht_308)" +" body-linklets+module-use*s_98))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash" -" ht_116)))" -"((letrec-values(((for-loop_213)" -"(lambda(table_162" -" i_140)" +" ht_308)))" +"((letrec-values(((for-loop_309)" +"(lambda(table_0" +" i_0)" "(begin" " 'for-loop" -"(if i_140" -"(let-values(((phase_83" -" l+mu*s_2)" +"(if i_0" +"(let-values(((phase_312" +" l+mu*s_313)" "(hash-iterate-key+value" -" ht_116" -" i_140)))" -"(let-values(((table_163)" -"(let-values(((extra-inspectorsss_2)" +" ht_308" +" i_0)))" +"(let-values(((table_314)" +"(let-values(((extra-inspectorsss_315)" "(module-uses-extract-extra-inspectorsss" "(cdr" -" l+mu*s_2)" +" l+mu*s_313)" "(car" -" l+mu*s_2)" -" cross-linklet-inlining?_1" +" l+mu*s_313)" +" cross-linklet-inlining?_82" "(length" -" body-imports_0))))" +" body-imports_68))))" "(begin" " #t" -"((letrec-values(((for-loop_214)" -"(lambda(table_164)" +"((letrec-values(((for-loop_316)" +"(lambda(table_1)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_165)" -"(let-values(((table_166)" -" table_164))" -"(if extra-inspectorsss_2" -"(let-values(((table_167)" -" table_166))" -"(let-values(((table_40)" +"(let-values(((table_318)" +"(let-values(((table_319)" +" table_1))" +"(if extra-inspectorsss_315" +"(let-values(((table_320)" +" table_319))" +"(let-values(((table_321)" "(let-values()" -"(let-values(((key_61" -" val_54)" +"(let-values(((key_322" +" val_323)" "(let-values()" "(values" -" phase_83" -" extra-inspectorsss_2))))" +" phase_312" +" extra-inspectorsss_315))))" "(hash-set" -" table_167" -" key_61" -" val_54)))))" +" table_320" +" key_322" +" val_323)))))" "(values" -" table_40)))" -" table_166))))" -" table_165))))))" -" for-loop_214)" -" table_162)))))" +" table_321)))" +" table_319))))" +" table_318))))))" +" for-loop_316)" +" table_0)))))" "(if(not" " #f)" -"(for-loop_213" -" table_163" +"(for-loop_309" +" table_314" "(hash-iterate-next" -" ht_116" -" i_140))" -" table_163)))" -" table_162)))))" -" for-loop_213)" +" ht_308" +" i_0))" +" table_314)))" +" table_0)))))" +" for-loop_309)" " '#hash()" "(hash-iterate-first" -" ht_116))))))" +" ht_308))))))" "(values" -" body-linklets_0" -" min-phase_0" -" max-phase_0" -" phase-to-link-module-uses_1" -" phase-to-link-module-uses-expr_0" -" phase-to-link-extra-inspectorsss_0" -" syntax-literals_1" -" encoded-root-expand-pos_0)))))))))))))))))))))))))))))))))))))))))))))" +" body-linklets_99" +" min-phase_95" +" max-phase_96" +" phase-to-link-module-uses_100" +" phase-to-link-module-uses-expr_101" +" phase-to-link-extra-inspectorsss_102" +" syntax-literals_85" +" encoded-root-expand-pos_93)))))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(compile-top-level-bind)" -"(lambda(ids_7 binding-syms_2 cctx_12 trans-exprs_0)" +"(lambda(ids_0 binding-syms_0 cctx_0 trans-exprs_0)" "(begin" -"(let-values(((phase_84)(compile-context-phase cctx_12)))" -"(let-values(((self_18)(compile-context-self cctx_12)))" -"(let-values(((header_12)(compile-context-header cctx_12)))" -"(let-values(((mpis_16)(header-module-path-indexes header_12)))" -"(let-values(((top-level-bind-scope_2)" +"(let-values(((phase_388)(compile-context-phase cctx_0)))" +"(let-values(((self_389)(compile-context-self cctx_0)))" +"(let-values(((header_390)(compile-context-header cctx_0)))" +"(let-values(((mpis_391)(header-module-path-indexes header_390)))" +"(let-values(((top-level-bind-scope_392)" "(root-expand-context-top-level-bind-scope" -"(namespace-get-root-expand-ctx(compile-context-namespace cctx_12)))))" -"(let-values(((self-expr_0)(add-module-path-index! mpis_16 self_18)))" +"(namespace-get-root-expand-ctx(compile-context-namespace cctx_0)))))" +"(let-values(((self-expr_393)(add-module-path-index! mpis_391 self_389)))" "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_205) ids_7)" -"((lst_206) binding-syms_2)" -"((lst_47)" -"(let-values(((or-part_222) trans-exprs_0))" -"(if or-part_222" -" or-part_222" +"(let-values(((lst_394) ids_0)" +"((lst_395) binding-syms_0)" +"((lst_396)" +"(let-values(((or-part_397) trans-exprs_0))" +"(if or-part_397" +" or-part_397" "(reverse$1" -"(let-values(((lst_207) ids_7))" +"(let-values(((lst_398) ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_207)))" -"((letrec-values(((for-loop_215)" -"(lambda(fold-var_200 lst_39)" +"(let-values()(check-list lst_398)))" +"((letrec-values(((for-loop_399)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_39)" -"(let-values(((id_49)(unsafe-car lst_39))" -"((rest_16)(unsafe-cdr lst_39)))" -"(let-values(((fold-var_201)" -"(let-values(((fold-var_202)" -" fold-var_200))" -"(let-values(((fold-var_203)" +"(if(pair? lst_0)" +"(let-values(((id_402)(unsafe-car lst_0))" +"((rest_403)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_404)" +"(let-values(((fold-var_405)" +" fold-var_0))" +"(let-values(((fold-var_406)" "(let-values()" "(cons" "(let-values()" " ''#f)" -" fold-var_202))))" -"(values fold-var_203)))))" +" fold-var_405))))" +"(values fold-var_406)))))" "(if(not #f)" -"(for-loop_215 fold-var_201 rest_16)" -" fold-var_201)))" -" fold-var_200)))))" -" for-loop_215)" +"(for-loop_399 fold-var_404 rest_403)" +" fold-var_404)))" +" fold-var_0)))))" +" for-loop_399)" " null" -" lst_207))))))))" +" lst_398))))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_205)))" +"(let-values()(check-list lst_394)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_206)))" +"(let-values()(check-list lst_395)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_47)))" -"((letrec-values(((for-loop_137)" -"(lambda(fold-var_204 lst_1 lst_208 lst_209)" +"(let-values()(check-list lst_396)))" +"((letrec-values(((for-loop_407)" +"(lambda(fold-var_0 lst_0 lst_1 lst_2)" "(begin" " 'for-loop" -"(if(if(pair? lst_1)(if(pair? lst_208)(pair? lst_209) #f) #f)" -"(let-values(((id_50)(unsafe-car lst_1))" -"((rest_112)(unsafe-cdr lst_1))" -"((binding-sym_5)(unsafe-car lst_208))" -"((rest_113)(unsafe-cdr lst_208))" -"((trans-expr_0)(unsafe-car lst_209))" -"((rest_114)(unsafe-cdr lst_209)))" -"(let-values(((fold-var_205)" -"(let-values(((fold-var_206) fold-var_204))" -"(let-values(((fold-var_207)" +"(if(if(pair? lst_0)(if(pair? lst_1)(pair? lst_2) #f) #f)" +"(let-values(((id_412)(unsafe-car lst_0))" +"((rest_413)(unsafe-cdr lst_0))" +"((binding-sym_414)(unsafe-car lst_1))" +"((rest_415)(unsafe-cdr lst_1))" +"((trans-expr_416)(unsafe-car lst_2))" +"((rest_417)(unsafe-cdr lst_2)))" +"(let-values(((fold-var_418)" +"(let-values(((fold-var_419) fold-var_0))" +"(let-values(((fold-var_420)" "(let-values()" "(cons" "(let-values()" -"(let-values(((id-stx_0)" +"(let-values(((id-stx_421)" "(compile-quote-syntax" "(remove-scope" -" id_50" -" top-level-bind-scope_2)" -" cctx_12)))" +" id_412" +" top-level-bind-scope_392)" +" cctx_0)))" "(list" " top-level-bind!-id" -" id-stx_0" -" self-expr_0" -" phase_84" +" id-stx_421" +" self-expr_393" +" phase_388" " phase-shift-id" " ns-id" -"(list 'quote binding-sym_5)" +"(list 'quote binding-sym_414)" "(if trans-exprs_0 #t #f)" -" trans-expr_0)))" -" fold-var_206))))" -"(values fold-var_207)))))" +" trans-expr_416)))" +" fold-var_419))))" +"(values fold-var_420)))))" "(if(not #f)" -"(for-loop_137 fold-var_205 rest_112 rest_113 rest_114)" -" fold-var_205)))" -" fold-var_204)))))" -" for-loop_137)" +"(for-loop_407 fold-var_418 rest_413 rest_415 rest_417)" +" fold-var_418)))" +" fold-var_0)))))" +" for-loop_407)" " null" -" lst_205" -" lst_206" -" lst_47))))))))))))))" +" lst_394" +" lst_395" +" lst_396))))))))))))))" "(define-values" "(generate-top-level-define-syntaxes)" -"(lambda(gen-syms_1 rhs_3 transformer-set!s_1 finish_1)" +"(lambda(gen-syms_0 rhs_0 transformer-set!s_0 finish_0)" "(begin" "(list" " 'call-with-values" -"(list 'lambda '() rhs_3)" +"(list 'lambda '() rhs_0)" "(list" " 'case-lambda" -"(list gen-syms_1(list* 'begin(qq-append transformer-set!s_1(list* finish_1 '((void))))))" +"(list gen-syms_0(list* 'begin(qq-append transformer-set!s_0(list* finish_0 '((void))))))" "(list" " '()" "(list" " 'let-values" "(list" "(list" -" gen-syms_1" +" gen-syms_0" "(list*" " 'values" "(reverse$1" -"(let-values(((lst_210) gen-syms_1))" +"(let-values(((lst_428) gen-syms_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_210)))" -"((letrec-values(((for-loop_140)" -"(lambda(fold-var_208 lst_211)" +"(let-values()(check-list lst_428)))" +"((letrec-values(((for-loop_429)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_211)" -"(let-values(((s_132)(unsafe-car lst_211))((rest_115)(unsafe-cdr lst_211)))" -"(let-values(((fold-var_209)" -"(let-values(((fold-var_210) fold-var_208))" -"(let-values(((fold-var_211)" +"(if(pair? lst_0)" +"(let-values(((s_432)(unsafe-car lst_0))((rest_433)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_434)" +"(let-values(((fold-var_435) fold-var_0))" +"(let-values(((fold-var_436)" "(let-values()" -"(cons(let-values() ''#f) fold-var_210))))" -"(values fold-var_211)))))" -"(if(not #f)(for-loop_140 fold-var_209 rest_115) fold-var_209)))" -" fold-var_208)))))" -" for-loop_140)" +"(cons(let-values() ''#f) fold-var_435))))" +"(values fold-var_436)))))" +"(if(not #f)(for-loop_429 fold-var_434 rest_433) fold-var_434)))" +" fold-var_0)))))" +" for-loop_429)" " null" -" lst_210)))))))" -"(list* 'begin finish_1 '((void)))))" -"(list 'args(list* 'let-values(list(list* gen-syms_1 '((apply values args)))) '((void)))))))))" +" lst_428)))))))" +"(list* 'begin finish_0 '((void)))))" +"(list 'args(list* 'let-values(list(list* gen-syms_0 '((apply values args)))) '((void)))))))))" "(define-values" "(propagate-inline-property)" -"(lambda(e_35 orig-s_22)" +"(lambda(e_0 orig-s_0)" "(begin" -"(let-values(((v_157)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_157(correlated-property e_35 'compiler-hint:cross-module-inline v_157) e_35)))))" +"(let-values(((v_439)(syntax-property$1 orig-s_0 'compiler-hint:cross-module-inline)))" +"(if v_439(correlated-property e_0 'compiler-hint:cross-module-inline v_439) e_0)))))" "(define-values" "(make-module-use-to-linklet)" -"(lambda(cross-linklet-inlining?_2 ns_57 get-module-linklet-info_1 init-mu*s_0)" +"(lambda(cross-linklet-inlining?_0 ns_0 get-module-linklet-info_0 init-mu*s_0)" "(begin" -"(let-values(((mu*-intern-table_0)(make-hash)))" -"(let-values(((intern-module-use*_0)" -"(lambda(mu*_5)" +"(let-values(((mu*-intern-table_444)(make-hash)))" +"(let-values(((intern-module-use*_445)" +"(lambda(mu*_0)" "(begin" " 'intern-module-use*" -"(let-values(((mod-name_15)(1/module-path-index-resolve(module-use-module mu*_5))))" -"(let-values(((existing-mu*_1)" -"(hash-ref mu*-intern-table_0(cons mod-name_15(module-use-phase mu*_5)) #f)))" -"(if existing-mu*_1" +"(let-values(((mod-name_447)(1/module-path-index-resolve(module-use-module mu*_0))))" +"(let-values(((existing-mu*_448)" +"(hash-ref" +" mu*-intern-table_444" +"(cons mod-name_447(module-use-phase mu*_0))" +" #f)))" +"(if existing-mu*_448" "(let-values()" -"(begin(module-use-merge-extra-inspectorss! existing-mu*_1 mu*_5) existing-mu*_1))" +"(begin(module-use-merge-extra-inspectorss! existing-mu*_448 mu*_0) existing-mu*_448))" "(let-values()" "(begin" -"(hash-set! mu*-intern-table_0(cons mod-name_15(module-use-phase mu*_5)) mu*_5)" -" mu*_5)))))))))" +"(hash-set! mu*-intern-table_444(cons mod-name_447(module-use-phase mu*_0)) mu*_0)" +" mu*_0)))))))))" "(begin" -"(let-values(((lst_212) init-mu*s_0))" +"(let-values(((lst_449) init-mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_212)))" -"((letrec-values(((for-loop_216)" -"(lambda(lst_213)" +"(let-values()(check-list lst_449)))" +"((letrec-values(((for-loop_450)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_213)" -"(let-values(((mu*_6)(unsafe-car lst_213))((rest_116)(unsafe-cdr lst_213)))" +"(if(pair? lst_0)" +"(let-values(((mu*_452)(unsafe-car lst_0))((rest_453)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" -"(let-values()(intern-module-use*_0 mu*_6))" +"(let-values()" +"(intern-module-use*_445 mu*_452))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_216 rest_116)(values))))" +"(if(not #f)(for-loop_450 rest_453)(values))))" "(values))))))" -" for-loop_216)" -" lst_212)))" +" for-loop_450)" +" lst_449)))" "(void)" "(lambda(mu*-or-instance_0)" "(if(1/instance? mu*-or-instance_0)" "(let-values()(values mu*-or-instance_0 #f))" -"(if(not cross-linklet-inlining?_2)" +"(if(not cross-linklet-inlining?_0)" "(let-values()(values #f #f))" "(if mu*-or-instance_0" "(let-values()" -"(let-values(((mu*_7) mu*-or-instance_0))" -"(let-values(((mod-name_16)(1/module-path-index-resolve(module-use-module mu*_7))))" -"(let-values(((mli_0)" -"(let-values(((or-part_223)" -"(get-module-linklet-info_1 mod-name_16(module-use-phase mu*_7))))" -"(if or-part_223" -" or-part_223" +"(let-values(((mu*_455) mu*-or-instance_0))" +"(let-values(((mod-name_456)(1/module-path-index-resolve(module-use-module mu*_455))))" +"(let-values(((mli_457)" +"(let-values(((or-part_458)" +"(get-module-linklet-info_0" +" mod-name_456" +"(module-use-phase mu*_455))))" +"(if or-part_458" +" or-part_458" "(namespace->module-linklet-info" -" ns_57" -" mod-name_16" -"(module-use-phase mu*_7))))))" +" ns_0" +" mod-name_456" +"(module-use-phase mu*_455))))))" "(begin" -"(if mli_0" +"(if mli_457" "(let-values()" -"(module-use*-declaration-inspector! mu*_7(module-linklet-info-inspector mli_0)))" +"(module-use*-declaration-inspector! mu*_455(module-linklet-info-inspector mli_457)))" "(void))" -"(if mli_0" +"(if mli_457" "(values" -"(module-linklet-info-linklet-or-instance mli_0)" -"(if(module-linklet-info-module-uses mli_0)" +"(module-linklet-info-linklet-or-instance mli_457)" +"(if(module-linklet-info-module-uses mli_457)" "(list->vector" "(append" " '(#f #f)" -"(let-values(((mus_2)(module-linklet-info-module-uses mli_0))" -"((extra-inspectorsss_3)" -"(module-linklet-info-extra-inspectorsss mli_0)))" +"(let-values(((mus_459)(module-linklet-info-module-uses mli_457))" +"((extra-inspectorsss_460)" +"(module-linklet-info-extra-inspectorsss mli_457)))" "(reverse$1" -"(let-values(((lst_214) mus_2)" -"((lst_215)" +"(let-values(((lst_461) mus_459)" +"((lst_462)" "(1/linklet-import-variables" -"(module-linklet-info-linklet-or-instance mli_0)))" -"((lst_216)" -"(let-values(((or-part_224) extra-inspectorsss_3))" -"(if or-part_224 or-part_224 mus_2))))" +"(module-linklet-info-linklet-or-instance mli_457)))" +"((lst_463)" +"(let-values(((or-part_464) extra-inspectorsss_460))" +"(if or-part_464 or-part_464 mus_459))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_214)))" +"(let-values()(check-list lst_461)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_215)))" +"(let-values()(check-list lst_462)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_216)))" -"((letrec-values(((for-loop_217)" -"(lambda(fold-var_212 lst_217 lst_218 lst_219)" +"(let-values()(check-list lst_463)))" +"((letrec-values(((for-loop_465)" +"(lambda(fold-var_0 lst_0 lst_1 lst_2)" "(begin" " 'for-loop" -"(if(if(pair? lst_217)" -"(if(pair? lst_218)(pair? lst_219) #f)" +"(if(if(pair? lst_0)" +"(if(pair? lst_1)(pair? lst_2) #f)" " #f)" -"(let-values(((sub-mu_0)(unsafe-car lst_217))" -"((rest_117)(unsafe-cdr lst_217))" -"((imports_3)(unsafe-car lst_218))" -"((rest_118)(unsafe-cdr lst_218))" -"((extra-inspectorss_13)" -"(unsafe-car lst_219))" -"((rest_119)(unsafe-cdr lst_219)))" -"(let-values(((fold-var_213)" -"(let-values(((fold-var_214)" -" fold-var_212))" -"(let-values(((fold-var_215)" +"(let-values(((sub-mu_470)(unsafe-car lst_0))" +"((rest_471)(unsafe-cdr lst_0))" +"((imports_472)(unsafe-car lst_1))" +"((rest_473)(unsafe-cdr lst_1))" +"((extra-inspectorss_474)" +"(unsafe-car lst_2))" +"((rest_475)(unsafe-cdr lst_2)))" +"(let-values(((fold-var_476)" +"(let-values(((fold-var_477)" +" fold-var_0))" +"(let-values(((fold-var_478)" "(let-values()" "(cons" "(let-values()" -"(intern-module-use*_0" +"(intern-module-use*_445" "(module-use+extra-inspectors" "(module-path-index-shift" "(module-use-module" -" sub-mu_0)" +" sub-mu_470)" "(module-linklet-info-self" -" mli_0)" +" mli_457)" "(module-use-module" -" mu*_7))" +" mu*_455))" "(module-use-phase" -" sub-mu_0)" -" imports_3" +" sub-mu_470)" +" imports_472" "(module-linklet-info-inspector" -" mli_0)" +" mli_457)" "(module-linklet-info-extra-inspector" -" mli_0)" -"(if extra-inspectorsss_3" -" extra-inspectorss_13" +" mli_457)" +"(if extra-inspectorsss_460" +" extra-inspectorss_474" " #f))))" -" fold-var_214))))" -"(values fold-var_215)))))" +" fold-var_477))))" +"(values fold-var_478)))))" "(if(not #f)" -"(for-loop_217" -" fold-var_213" -" rest_117" -" rest_118" -" rest_119)" -" fold-var_213)))" -" fold-var_212)))))" -" for-loop_217)" +"(for-loop_465" +" fold-var_476" +" rest_471" +" rest_473" +" rest_475)" +" fold-var_476)))" +" fold-var_0)))))" +" for-loop_465)" " null" -" lst_214" -" lst_215" -" lst_216)))))))" +" lst_461" +" lst_462" +" lst_463)))))))" " #f))" "(values #f #f)))))))" "(let-values()(values #f #f))))))))))))" "(define-values" "(build-shared-data-linklet)" -"(lambda(cims_0 ns_42)" +"(lambda(cims_0 ns_0)" "(begin" -"(let-values(((mpis_17)(make-module-path-index-table)))" -"(let-values(((mpi-trees_0)" +"(let-values(((mpis_3)(make-module-path-index-table)))" +"(let-values(((mpi-trees_4)" "(map-cim-tree" " cims_0" -"(lambda(cim_1)" -"(let-values(((vec_58 i_141)" -"(let-values(((vec_59 len_28)" -"(let-values(((vec_60)(compiled-in-memory-mpis cim_1)))" +"(lambda(cim_0)" +"(let-values(((vec_13 i_14)" +"(let-values(((vec_15 len_16)" +"(let-values(((vec_17)(compiled-in-memory-mpis cim_0)))" "(begin" -"(check-vector vec_60)" -"(values vec_60(unsafe-vector-length vec_60))))))" +"(check-vector vec_17)" +"(values vec_17(unsafe-vector-length vec_17))))))" "(begin" " #f" -"((letrec-values(((for-loop_102)" -"(lambda(vec_61 i_142 pos_94)" +"((letrec-values(((for-loop_18)" +"(lambda(vec_0 i_0 pos_0)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_94 len_28)" -"(let-values(((mpi_42)" -"(unsafe-vector-ref vec_59 pos_94)))" -"(let-values(((vec_62 i_143)" -"(let-values(((vec_63) vec_61)" -"((i_61) i_142))" -"(let-values(((vec_64 i_144)" +"(if(unsafe-fx< pos_0 len_16)" +"(let-values(((mpi_22)" +"(unsafe-vector-ref vec_15 pos_0)))" +"(let-values(((vec_23 i_24)" +"(let-values(((vec_25) vec_0)" +"((i_26) i_0))" +"(let-values(((vec_27 i_28)" "(let-values()" -"(let-values(((new-vec_3)" +"(let-values(((new-vec_29)" "(if(eq?" -" i_61" +" i_26" "(unsafe-vector*-length" -" vec_63))" +" vec_25))" "(grow-vector" -" vec_63)" -" vec_63)))" +" vec_25)" +" vec_25)))" "(begin" "(unsafe-vector*-set!" -" new-vec_3" -" i_61" +" new-vec_29" +" i_26" "(let-values()" "(add-module-path-index!/pos" -" mpis_17" -" mpi_42)))" +" mpis_3" +" mpi_22)))" "(values" -" new-vec_3" +" new-vec_29" "(unsafe-fx+" -" i_61" +" i_26" " 1)))))))" -"(values vec_64 i_144)))))" +"(values vec_27 i_28)))))" "(if(not #f)" -"(for-loop_102" -" vec_62" -" i_143" -"(unsafe-fx+ 1 pos_94))" -"(values vec_62 i_143))))" -"(values vec_61 i_142))))))" -" for-loop_102)" +"(for-loop_18 vec_23 i_24(unsafe-fx+ 1 pos_0))" +"(values vec_23 i_24))))" +"(values vec_0 i_0))))))" +" for-loop_18)" "(make-vector 16)" " 0" " 0)))))" -"(shrink-vector vec_58 i_141))))))" -"(let-values(((syntax-literals_2)(make-syntax-literals)))" -"(let-values(((syntax-literals-trees_0)" +"(shrink-vector vec_13 i_14))))))" +"(let-values(((syntax-literals_5)(make-syntax-literals)))" +"(let-values(((syntax-literals-trees_6)" "(map-cim-tree" " cims_0" -"(lambda(cim_2)" -"(add-syntax-literals! syntax-literals_2(compiled-in-memory-syntax-literals cim_2))))))" -"(let-values(((module-uses-tables_0) null))" -"(let-values(((module-uses-tables-count_0) 0))" -"(let-values(((phase-to-link-module-uses-trees_0)" +"(lambda(cim_0)" +"(add-syntax-literals! syntax-literals_5(compiled-in-memory-syntax-literals cim_0))))))" +"(let-values(((module-uses-tables_7) null))" +"(let-values(((module-uses-tables-count_8) 0))" +"(let-values(((phase-to-link-module-uses-trees_9)" "(map-cim-tree" " cims_0" -"(lambda(cim_3)" -"(let-values(((pos_95) module-uses-tables-count_0))" +"(lambda(cim_0)" +"(let-values(((pos_32) module-uses-tables-count_8))" "(begin" -"(set! module-uses-tables_0" +"(set! module-uses-tables_7" "(cons" -"(compiled-in-memory-phase-to-link-module-uses cim_3)" -" module-uses-tables_0))" -"(set! module-uses-tables-count_0(add1 pos_95))" -" pos_95))))))" -"(let-values(((syntax-literals-expr_0)" -"(generate-eager-syntax-literals! syntax-literals_2 mpis_17 0 #f ns_42)))" -"(let-values(((phase-to-link-module-uses-expr_1)" +"(compiled-in-memory-phase-to-link-module-uses cim_0)" +" module-uses-tables_7))" +"(set! module-uses-tables-count_8(add1 pos_32))" +" pos_32))))))" +"(let-values(((syntax-literals-expr_10)" +"(generate-eager-syntax-literals! syntax-literals_5 mpis_3 0 #f ns_0)))" +"(let-values(((phase-to-link-module-uses-expr_11)" "(list*" " 'vector" "(reverse$1" -"(let-values(((lst_220)(reverse$1 module-uses-tables_0)))" +"(let-values(((lst_33)(reverse$1 module-uses-tables_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_220)))" -"((letrec-values(((for-loop_109)" -"(lambda(fold-var_71 lst_89)" +"(let-values()(check-list lst_33)))" +"((letrec-values(((for-loop_34)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_89)" -"(let-values(((phase-to-link-module-uses_2)" -"(unsafe-car lst_89))" -"((rest_120)(unsafe-cdr lst_89)))" -"(let-values(((fold-var_34)" -"(let-values(((fold-var_158)" -" fold-var_71))" -"(let-values(((fold-var_9)" +"(if(pair? lst_0)" +"(let-values(((phase-to-link-module-uses_37)" +"(unsafe-car lst_0))" +"((rest_38)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_39)" +"(let-values(((fold-var_40)" +" fold-var_0))" +"(let-values(((fold-var_41)" "(let-values()" "(cons" "(let-values()" "(serialize-phase-to-link-module-uses" -" phase-to-link-module-uses_2" -" mpis_17))" -" fold-var_158))))" -"(values fold-var_9)))))" +" phase-to-link-module-uses_37" +" mpis_3))" +" fold-var_40))))" +"(values fold-var_41)))))" "(if(not #f)" -"(for-loop_109 fold-var_34 rest_120)" -" fold-var_34)))" -" fold-var_71)))))" -" for-loop_109)" +"(for-loop_34 fold-var_39 rest_38)" +" fold-var_39)))" +" fold-var_0)))))" +" for-loop_34)" " null" -" lst_220)))))))" +" lst_33)))))))" "(1/compile-linklet" "(list" " 'linklet" @@ -30000,139 +30152,139 @@ static const char *startup_source = " phase-to-link-modules-trees" " syntax-literals" " syntax-literals-trees))" -"(list 'define-values(list mpi-vector-id)(generate-module-path-index-deserialize mpis_17))" -"(list 'define-values '(mpi-vector-trees)(list 'quote mpi-trees_0))" -"(list 'define-values '(phase-to-link-modules-vector) phase-to-link-module-uses-expr_1)" +"(list 'define-values(list mpi-vector-id)(generate-module-path-index-deserialize mpis_3))" +"(list 'define-values '(mpi-vector-trees)(list 'quote mpi-trees_4))" +"(list 'define-values '(phase-to-link-modules-vector) phase-to-link-module-uses-expr_11)" "(list" " 'define-values" " '(phase-to-link-modules-trees)" -"(list 'quote phase-to-link-module-uses-trees_0))" -"(list 'define-values '(syntax-literals) syntax-literals-expr_0)" +"(list 'quote phase-to-link-module-uses-trees_9))" +"(list 'define-values '(syntax-literals) syntax-literals-expr_10)" "(list" " 'define-values" " '(syntax-literals-trees)" -"(list 'quote syntax-literals-trees_0))))))))))))))))" +"(list 'quote syntax-literals-trees_6))))))))))))))))" "(define-values" "(map-cim-tree)" -"(lambda(cims_1 proc_8)" +"(lambda(cims_0 proc_0)" "(begin" -"((letrec-values(((loop_90)" -"(lambda(cims_2)" +"((letrec-values(((loop_44)" +"(lambda(cims_1)" "(begin" " 'loop" "(reverse$1" -"(let-values(((lst_76) cims_2))" +"(let-values(((lst_46) cims_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_97)" -"(lambda(fold-var_160 lst_77)" +"(let-values()(check-list lst_46)))" +"((letrec-values(((for-loop_47)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_77)" -"(let-values(((cim_4)(unsafe-car lst_77))" -"((rest_121)(unsafe-cdr lst_77)))" -"(let-values(((fold-var_216)" -"(let-values(((fold-var_170) fold-var_160))" -"(let-values(((fold-var_171)" +"(if(pair? lst_0)" +"(let-values(((cim_50)(unsafe-car lst_0))" +"((rest_51)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_52)" +"(let-values(((fold-var_53) fold-var_0))" +"(let-values(((fold-var_54)" "(let-values()" "(cons" "(let-values()" "(vector" -"(proc_8 cim_4)" -"(loop_90" +"(proc_0 cim_50)" +"(loop_44" "(compiled-in-memory-pre-compiled-in-memorys" -" cim_4))" -"(loop_90" +" cim_50))" +"(loop_44" "(compiled-in-memory-post-compiled-in-memorys" -" cim_4))))" -" fold-var_170))))" -"(values fold-var_171)))))" +" cim_50))))" +" fold-var_53))))" +"(values fold-var_54)))))" "(if(not #f)" -"(for-loop_97 fold-var_216 rest_121)" -" fold-var_216)))" -" fold-var_160)))))" -" for-loop_97)" +"(for-loop_47 fold-var_52 rest_51)" +" fold-var_52)))" +" fold-var_0)))))" +" for-loop_47)" " null" -" lst_76))))))))" -" loop_90)" -" cims_1))))" +" lst_46))))))))" +" loop_44)" +" cims_0))))" "(define-values" "(compiled-tops->compiled-top8.1)" "(lambda(merge-serialization?2_0 namespace3_0 to-source?1_0 all-cims7_0)" "(begin" " 'compiled-tops->compiled-top8" -"(let-values(((all-cims_0) all-cims7_0))" -"(let-values(((to-source?_1) to-source?1_0))" -"(let-values(((merge-serialization?_0) merge-serialization?2_0))" -"(let-values(((ns_58) namespace3_0))" +"(let-values(((all-cims_5) all-cims7_0))" +"(let-values(((to-source?_6) to-source?1_0))" +"(let-values(((merge-serialization?_7) merge-serialization?2_0))" +"(let-values(((ns_8) namespace3_0))" "(let-values()" -"(let-values(((cims_3)(remove-nontail-purely-functional all-cims_0)))" -"(if(= 1(length cims_3))" -"(let-values()(car cims_3))" +"(let-values(((cims_9)(remove-nontail-purely-functional all-cims_5)))" +"(if(= 1(length cims_9))" +"(let-values()(car cims_9))" "(let-values()" -"(let-values(((sequence-ht_0)" -"(let-values(((lst_221) cims_3)((start_35) 0))" +"(let-values(((sequence-ht_10)" +"(let-values(((lst_12) cims_9)((start_13) 0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_221)))" +"(let-values()(check-list lst_12)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_35)))" -"((letrec-values(((for-loop_218)" -"(lambda(table_168 lst_222 pos_96)" +"(let-values()(check-naturals start_13)))" +"((letrec-values(((for-loop_14)" +"(lambda(table_0 lst_0 pos_0)" "(begin" " 'for-loop" -"(if(if(pair? lst_222) #t #f)" -"(let-values(((cim_5)(unsafe-car lst_222))" -"((rest_49)(unsafe-cdr lst_222))" -"((i_142) pos_96))" -"(let-values(((table_169)" -"(let-values(((table_170) table_168))" -"(let-values(((table_171)" +"(if(if(pair? lst_0) #t #f)" +"(let-values(((cim_18)(unsafe-car lst_0))" +"((rest_19)(unsafe-cdr lst_0))" +"((i_20) pos_0))" +"(let-values(((table_21)" +"(let-values(((table_22) table_0))" +"(let-values(((table_23)" "(let-values()" -"(let-values(((key_62" -" val_35)" +"(let-values(((key_24" +" val_25)" "(let-values()" "(values" "(string->symbol" "(number->string" -" i_142))" -"((if to-source?_1" +" i_20))" +"((if to-source?_6" " values" " compiled-in-memory-linklet-directory)" -" cim_5)))))" +" cim_18)))))" "(hash-set" -" table_170" -" key_62" -" val_35)))))" -"(values table_171)))))" +" table_22" +" key_24" +" val_25)))))" +"(values table_23)))))" "(if(not #f)" -"(for-loop_218 table_169 rest_49(+ pos_96 1))" -" table_169)))" -" table_168)))))" -" for-loop_218)" +"(for-loop_14 table_21 rest_19(+ pos_0 1))" +" table_21)))" +" table_0)))))" +" for-loop_14)" " '#hasheq()" -" lst_221" -" start_35)))))" -"(let-values(((ht_79)" -"(if merge-serialization?_0" +" lst_12" +" start_13)))))" +"(let-values(((ht_11)" +"(if merge-serialization?_7" "(hash-set" -" sequence-ht_0" +" sequence-ht_10" " 'data" "(1/hash->linklet-directory" "(hasheq" " #f" "(1/hash->linklet-bundle" -"(hasheq 0(build-shared-data-linklet cims_3 ns_58))))))" -" sequence-ht_0)))" -"(if to-source?_1" -"(let-values() ht_79)" +"(hasheq 0(build-shared-data-linklet cims_9 ns_8))))))" +" sequence-ht_10)))" +"(if to-source?_6" +"(let-values() ht_11)" "(let-values()" "(compiled-in-memory1.1" -"(1/hash->linklet-directory ht_79)" +"(1/hash->linklet-directory ht_11)" " #f" " #f" " #f" @@ -30141,7 +30293,7 @@ static const char *startup_source = " '#hasheqv()" " '#()" " '#()" -" cims_3" +" cims_9" " null" " #f" " #f))))))))))))))))" @@ -30149,105 +30301,105 @@ static const char *startup_source = "(compiled-top->compiled-tops)" "(lambda(ld_0)" "(begin" -"(let-values(((ht_117)(1/linklet-directory->hash ld_0)))" +"(let-values(((ht_53)(1/linklet-directory->hash ld_0)))" "(reverse$1" -"(let-values(((start_36) 0)((end_25)(hash-count ht_117))((inc_19) 1))" +"(let-values(((start_54) 0)((end_55)(hash-count ht_53))((inc_56) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_36 end_25 inc_19)))" -"((letrec-values(((for-loop_196)" -"(lambda(fold-var_173 pos_97)" +"(let-values()(check-range start_54 end_55 inc_56)))" +"((letrec-values(((for-loop_57)" +"(lambda(fold-var_0 pos_0)" "(begin" " 'for-loop" -"(if(< pos_97 end_25)" -"(let-values(((i_42) pos_97))" -"(let-values(((fold-var_217)" -"(let-values(((top_0)" +"(if(< pos_0 end_55)" +"(let-values(((i_60) pos_0))" +"(let-values(((fold-var_61)" +"(let-values(((top_62)" "(hash-ref" -" ht_117" -"(string->symbol(number->string i_42))" +" ht_53" +"(string->symbol(number->string i_60))" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_219)" -"(lambda(fold-var_174)" +"((letrec-values(((for-loop_63)" +"(lambda(fold-var_1)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_218)" -"(let-values(((fold-var_75)" -" fold-var_174))" -"(if top_0" "(let-values(((fold-var_65)" -" fold-var_75))" -"(let-values(((fold-var_76)" +"(let-values(((fold-var_66)" +" fold-var_1))" +"(if top_62" +"(let-values(((fold-var_67)" +" fold-var_66))" +"(let-values(((fold-var_68)" "(let-values()" "(cons" "(let-values()" -" top_0)" -" fold-var_65))))" +" top_62)" +" fold-var_67))))" "(values" -" fold-var_76)))" -" fold-var_75))))" -" fold-var_218))))))" -" for-loop_219)" -" fold-var_173)))))" -"(if(not #f)(for-loop_196 fold-var_217(+ pos_97 inc_19)) fold-var_217)))" -" fold-var_173)))))" -" for-loop_196)" +" fold-var_68)))" +" fold-var_66))))" +" fold-var_65))))))" +" for-loop_63)" +" fold-var_0)))))" +"(if(not #f)(for-loop_57 fold-var_61(+ pos_0 inc_56)) fold-var_61)))" +" fold-var_0)))))" +" for-loop_57)" " null" -" start_36))))))))" +" start_54))))))))" "(define-values" "(remove-nontail-purely-functional)" -"(lambda(cims_4)" +"(lambda(cims_0)" "(begin" -"((letrec-values(((loop_83)" -"(lambda(cims_5)" +"((letrec-values(((loop_70)" +"(lambda(cims_1)" "(begin" " 'loop" -"(if(null? cims_5)" +"(if(null? cims_1)" "(let-values() null)" -"(if(null?(cdr cims_5))" -"(let-values() cims_5)" -"(if(if(compiled-in-memory?(car cims_5))" -"(compiled-in-memory-purely-functional?(car cims_5))" +"(if(null?(cdr cims_1))" +"(let-values() cims_1)" +"(if(if(compiled-in-memory?(car cims_1))" +"(compiled-in-memory-purely-functional?(car cims_1))" " #f)" -"(let-values()(loop_83(cdr cims_5)))" -"(let-values()(cons(car cims_5)(cdr cims_5))))))))))" -" loop_83)" -" cims_4))))" +"(let-values()(loop_70(cdr cims_1)))" +"(let-values()(cons(car cims_1)(cdr cims_1))))))))))" +" loop_70)" +" cims_0))))" "(define-values" "(struct:known-defined/delay known-defined/delay2.1 known-defined/delay? known-defined/delay-thunk)" -"(let-values(((struct:_63 make-_63 ?_63 -ref_63 -set!_63)" +"(let-values(((struct:_16 make-_17 ?_18 -ref_19 -set!_20)" "(let-values()" "(let-values()" "(make-struct-type 'known-defined/delay #f 1 0 #f null 'prefab #f '(0) #f 'known-defined/delay)))))" -"(values struct:_63 make-_63 ?_63(make-struct-field-accessor -ref_63 0 'thunk))))" +"(values struct:_16 make-_17 ?_18(make-struct-field-accessor -ref_19 0 'thunk))))" "(define-values" "(struct:known-property known-property3.1 known-property?)" -"(let-values(((struct:_56 make-_56 ?_56 -ref_56 -set!_56)" +"(let-values(((struct:_36 make-_37 ?_38 -ref_39 -set!_40)" "(let-values()" "(let-values()(make-struct-type 'known-property #f 0 0 #f null 'prefab #f '() #f 'known-property)))))" -"(values struct:_56 make-_56 ?_56)))" +"(values struct:_36 make-_37 ?_38)))" "(define-values" "(struct:known-function known-function4.1 known-function? known-function-arity known-function-pure?)" -"(let-values(((struct:_64 make-_64 ?_64 -ref_64 -set!_64)" +"(let-values(((struct:_51 make-_52 ?_53 -ref_54 -set!_55)" "(let-values()" "(let-values()" "(make-struct-type 'known-function #f 2 0 #f null 'prefab #f '(0 1) #f 'known-function)))))" "(values" -" struct:_64" -" make-_64" -" ?_64" -"(make-struct-field-accessor -ref_64 0 'arity)" -"(make-struct-field-accessor -ref_64 1 'pure?))))" +" struct:_51" +" make-_52" +" ?_53" +"(make-struct-field-accessor -ref_54 0 'arity)" +"(make-struct-field-accessor -ref_54 1 'pure?))))" "(define-values" "(struct:known-function-of-satisfying" " known-function-of-satisfying5.1" " known-function-of-satisfying?" " known-function-of-satisfying-arg-predicate-keys)" -"(let-values(((struct:_33 make-_33 ?_33 -ref_33 -set!_33)" +"(let-values(((struct:_76 make-_77 ?_78 -ref_79 -set!_80)" "(let-values()" "(let-values()" "(make-struct-type" @@ -30262,80 +30414,80 @@ static const char *startup_source = " '(0)" " #f" " 'known-function-of-satisfying)))))" -"(values struct:_33 make-_33 ?_33(make-struct-field-accessor -ref_33 0 'arg-predicate-keys))))" +"(values struct:_76 make-_77 ?_78(make-struct-field-accessor -ref_79 0 'arg-predicate-keys))))" "(define-values" "(struct:known-predicate known-predicate6.1 known-predicate? known-predicate-key)" -"(let-values(((struct:_57 make-_57 ?_57 -ref_57 -set!_57)" +"(let-values(((struct:_96 make-_97 ?_98 -ref_99 -set!_100)" "(let-values()" "(let-values()" "(make-struct-type 'known-predicate #f 1 0 #f null 'prefab #f '(0) #f 'known-predicate)))))" -"(values struct:_57 make-_57 ?_57(make-struct-field-accessor -ref_57 0 'key))))" +"(values struct:_96 make-_97 ?_98(make-struct-field-accessor -ref_99 0 'key))))" "(define-values" "(struct:known-satisfies known-satisfies7.1 known-satisfies? known-satisfies-predicate-key)" -"(let-values(((struct:_65 make-_65 ?_65 -ref_65 -set!_65)" +"(let-values(((struct:_116 make-_117 ?_118 -ref_119 -set!_120)" "(let-values()" "(let-values()" "(make-struct-type 'known-satisfies #f 1 0 #f null 'prefab #f '(0) #f 'known-satisfies)))))" -"(values struct:_65 make-_65 ?_65(make-struct-field-accessor -ref_65 0 'predicate-key))))" +"(values struct:_116 make-_117 ?_118(make-struct-field-accessor -ref_119 0 'predicate-key))))" "(define-values" "(struct:known-struct-op known-struct-op8.1 known-struct-op? known-struct-op-type known-struct-op-field-count)" -"(let-values(((struct:_30 make-_30 ?_30 -ref_30 -set!_30)" +"(let-values(((struct:_136 make-_137 ?_138 -ref_139 -set!_140)" "(let-values()" "(let-values()" "(make-struct-type 'known-struct-op #f 2 0 #f null 'prefab #f '(0 1) #f 'known-struct-op)))))" "(values" -" struct:_30" -" make-_30" -" ?_30" -"(make-struct-field-accessor -ref_30 0 'type)" -"(make-struct-field-accessor -ref_30 1 'field-count))))" +" struct:_136" +" make-_137" +" ?_138" +"(make-struct-field-accessor -ref_139 0 'type)" +"(make-struct-field-accessor -ref_139 1 'field-count))))" "(define-values" "(lookup-defn)" -"(lambda(defns_0 sym_61)" +"(lambda(defns_0 sym_0)" "(begin" -"(let-values(((d_29)(hash-ref defns_0 sym_61 #f)))" -"(if(known-defined/delay? d_29)" -"(let-values()(begin((known-defined/delay-thunk d_29))(lookup-defn defns_0 sym_61)))" -"(let-values() d_29))))))" +"(let-values(((d_163)(hash-ref defns_0 sym_0 #f)))" +"(if(known-defined/delay? d_163)" +"(let-values()(begin((known-defined/delay-thunk d_163))(lookup-defn defns_0 sym_0)))" +"(let-values() d_163))))))" "(define-values" "(any-side-effects?9.1)" "(lambda(known-defns2_0 known-locals1_0 ready-variable?3_0 e7_0 expected-results8_0)" "(begin" " 'any-side-effects?9" -"(let-values(((e_36) e7_0))" -"(let-values(((expected-results_0) expected-results8_0))" -"(let-values(((locals_0)(if(eq? known-locals1_0 unsafe-undefined) '#hasheq() known-locals1_0)))" -"(let-values(((defns_1)(if(eq? known-defns2_0 unsafe-undefined) '#hasheq() known-defns2_0)))" -"(let-values(((ready-variable?_0)" +"(let-values(((e_6) e7_0))" +"(let-values(((expected-results_7) expected-results8_0))" +"(let-values(((locals_8)(if(eq? known-locals1_0 unsafe-undefined) '#hasheq() known-locals1_0)))" +"(let-values(((defns_9)(if(eq? known-defns2_0 unsafe-undefined) '#hasheq() known-defns2_0)))" +"(let-values(((ready-variable?_10)" "(if(eq? ready-variable?3_0 unsafe-undefined)" -"(lambda(id_51)(begin 'ready-variable? #f))" +"(lambda(id_0)(begin 'ready-variable? #f))" " ready-variable?3_0)))" "(let-values()" -"(let-values(((effects?_0)" -"(lambda(e_37 expected-results_1 locals_1)" +"(let-values(((effects?_12)" +"(lambda(e_0 expected-results_0 locals_0)" "(begin" " 'effects?" -"(let-values(((e12_0) e_37)" -"((expected-results13_0) expected-results_1)" -"((locals14_0) locals_1)" -"((defns15_0) defns_1)" -"((ready-variable?16_0) ready-variable?_0))" +"(let-values(((e12_18) e_0)" +"((expected-results13_19) expected-results_0)" +"((locals14_20) locals_0)" +"((defns15_21) defns_9)" +"((ready-variable?16_22) ready-variable?_10))" "(any-side-effects?9.1" -" defns15_0" -" locals14_0" -" ready-variable?16_0" -" e12_0" -" expected-results13_0))))))" -"(let-values(((actual-results_0)" -"((letrec-values(((loop_80)" -"(lambda(e_38 locals_2)" +" defns15_21" +" locals14_20" +" ready-variable?16_22" +" e12_18" +" expected-results13_19))))))" +"(let-values(((actual-results_13)" +"((letrec-values(((loop_23)" +"(lambda(e_0 locals_0)" "(begin" " 'loop" "(let-values(((tmp_26)" -"(if(pair?(correlated-e e_38))" -"(correlated-e(car(correlated-e e_38)))" +"(if(pair?(correlated-e e_0))" +"(correlated-e(car(correlated-e e_0)))" " #f)))" -"(let-values(((index_1)" +"(let-values(((index_27)" "(if(symbol? tmp_26)" "(hash-ref" " '#hasheq((#%variable-reference . 1)" @@ -30357,1717 +30509,1735 @@ static const char *startup_source = " tmp_26" "(lambda() 0))" " 0)))" -"(if(unsafe-fx< index_1 6)" -"(if(unsafe-fx< index_1 2)" -"(if(unsafe-fx< index_1 1)" +"(if(unsafe-fx< index_27 6)" +"(if(unsafe-fx< index_27 2)" +"(if(unsafe-fx< index_27 1)" "(let-values()" -"(let-values(((v_33)(correlated-e e_38)))" -"(if(let-values(((or-part_73)(string? v_33)))" -"(if or-part_73" -" or-part_73" -"(let-values(((or-part_74)" -"(number? v_33)))" -"(if or-part_74" -" or-part_74" -"(let-values(((or-part_75)" -"(boolean? v_33)))" -"(if or-part_75" -" or-part_75" -"(char? v_33)))))))" -"(let-values() 1)" -"(let-values(((c1_25)" -"(if(pair? v_33)" -"(let-values(((rator_0)" -"(correlated-e" -"(car v_33))))" -"(let-values(((or-part_29)" -"(hash-ref" -" locals_2" -" rator_0" -" #f)))" +"(let-values(((v_28)(correlated-e e_0)))" +"(if(let-values(((or-part_29)(string? v_28)))" "(if or-part_29" " or-part_29" -"(lookup-defn" -" defns_1" -" rator_0))))" +"(let-values(((or-part_30)" +"(number? v_28)))" +"(if or-part_30" +" or-part_30" +"(let-values(((or-part_31)" +"(boolean? v_28)))" +"(if or-part_31" +" or-part_31" +"(char? v_28)))))))" +"(let-values() 1)" +"(let-values(((c1_32)" +"(if(pair? v_28)" +"(let-values(((rator_33)" +"(correlated-e" +"(car v_28))))" +"(let-values(((or-part_34)" +"(hash-ref" +" locals_0" +" rator_33" " #f)))" -"(if c1_25" -"((lambda(d_30)" -"(let-values(((ok?_17 _17_0 e18_0)" -"(let-values(((s_90) e_38))" -"(let-values(((orig-s_23)" -" s_90))" -"(let-values(((_17_1" -" e18_1)" -"(let-values(((s_307)" +"(if or-part_34" +" or-part_34" +"(lookup-defn" +" defns_9" +" rator_33))))" +" #f)))" +"(if c1_32" +"((lambda(d_0)" +"(let-values(((ok?_36 _17_37 e18_38)" +"(let-values(((s_53) e_0))" +"(let-values(((orig-s_54)" +" s_53))" +"(let-values(((_17_55" +" e18_56)" +"(let-values(((s_57)" "(if(1/syntax?" -" s_90)" +" s_53)" "(syntax-e$2" -" s_90)" -" s_90)))" +" s_53)" +" s_53)))" "(if(pair?" -" s_307)" -"(let-values(((_19_0)" -"(let-values(((s_91)" +" s_57)" +"(let-values(((_19_58)" +"(let-values(((s_60)" "(car" -" s_307)))" -" s_91))" -"((e20_0)" -"(let-values(((s_168)" +" s_57)))" +" s_60))" +"((e20_59)" +"(let-values(((s_61)" "(cdr" -" s_307)))" -"(let-values(((s_308)" +" s_57)))" +"(let-values(((s_62)" "(if(1/syntax?" -" s_168)" +" s_61)" "(syntax-e$2" -" s_168)" -" s_168)))" -"(let-values(((flat-s_13)" +" s_61)" +" s_61)))" +"(let-values(((flat-s_63)" "(to-syntax-list.1$1" -" s_308)))" +" s_62)))" "(if(not" -" flat-s_13)" +" flat-s_63)" "(let-values()" "((lambda(false_0" -" str_5" -" e_39)" +" str_0" +" e_1)" "(error" -" str_5))" +" str_0))" " #f" " \"bad syntax\"" -" orig-s_23))" +" orig-s_54))" "(let-values()" -" flat-s_13)))))))" +" flat-s_63)))))))" "(values" -" _19_0" -" e20_0))" -"((lambda(false_1" -" str_6" -" e_40)" +" _19_58" +" e20_59))" +"((lambda(false_0" +" str_0" +" e_1)" "(error" -" str_6))" +" str_0))" " #f" " \"bad syntax\"" -" orig-s_23)))))" +" orig-s_54)))))" "(values" " #t" -" _17_1" -" e18_1))))))" -"(let-values(((n-args_0)" -"(length e18_0)))" -"(if(let-values(((or-part_225)" -"(if(let-values(((or-part_226)" +" _17_55" +" e18_56))))))" +"(let-values(((n-args_52)" +"(length e18_38)))" +"(if(let-values(((or-part_73)" +"(if(let-values(((or-part_74)" "(if(known-struct-op?" -" d_30)" +" d_0)" "(if(eq?" " 'constructor" "(known-struct-op-type" -" d_30))" +" d_0))" "(=" "(known-struct-op-field-count" -" d_30)" -" n-args_0)" +" d_0)" +" n-args_52)" " #f)" " #f)))" -"(if or-part_226" -" or-part_226" +"(if or-part_74" +" or-part_74" "(if(known-function?" -" d_30)" +" d_0)" "(if(known-function-pure?" -" d_30)" +" d_0)" "(arity-includes?" "(known-function-arity" -" d_30)" -" n-args_0)" +" d_0)" +" n-args_52)" " #f)" " #f)))" -"(let-values(((lst_223)" -" e18_0))" +"(let-values(((lst_75)" +" e18_38))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_223)))" -"((letrec-values(((for-loop_220)" -"(lambda(result_81" -" lst_224)" +" lst_75)))" +"((letrec-values(((for-loop_76)" +"(lambda(result_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_224)" -"(let-values(((e_41)" +" lst_0)" +"(let-values(((e_79)" "(unsafe-car" -" lst_224))" -"((rest_122)" +" lst_0))" +"((rest_80)" "(unsafe-cdr" -" lst_224)))" -"(let-values(((result_82)" +" lst_0)))" +"(let-values(((result_81)" "(let-values()" "(let-values(((result_83)" "(let-values()" "(let-values()" "(not" -"(effects?_0" -" e_41" +"(effects?_12" +" e_79" " 1" -" locals_2))))))" +" locals_0))))))" "(values" " result_83)))))" "(if(if(not" -"((lambda x_56" +"((lambda x_0" "(not" -" result_82))" -" e_41))" +" result_81))" +" e_79))" "(not" " #f)" " #f)" -"(for-loop_220" -" result_82" -" rest_122)" -" result_82)))" -" result_81)))))" -" for-loop_220)" +"(for-loop_76" +" result_81" +" rest_80)" +" result_81)))" +" result_0)))))" +" for-loop_76)" " #t" -" lst_223)))" +" lst_75)))" " #f)))" -"(if or-part_225" -" or-part_225" +"(if or-part_73" +" or-part_73" "(if(known-function-of-satisfying?" -" d_30)" +" d_0)" "(if(=" -" n-args_0" +" n-args_52" "(length" "(known-function-of-satisfying-arg-predicate-keys" -" d_30)))" -"(let-values(((lst_97)" -" e18_0)" -"((lst_225)" +" d_0)))" +"(let-values(((lst_85)" +" e18_38)" +"((lst_86)" "(known-function-of-satisfying-arg-predicate-keys" -" d_30)))" +" d_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_97)))" +" lst_85)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_225)))" -"((letrec-values(((for-loop_99)" -"(lambda(result_84" -" lst_179" -" lst_10)" +" lst_86)))" +"((letrec-values(((for-loop_87)" +"(lambda(result_0" +" lst_0" +" lst_1)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_179)" +" lst_0)" "(pair?" -" lst_10)" +" lst_1)" " #f)" -"(let-values(((e_3)" +"(let-values(((e_91)" "(unsafe-car" -" lst_179))" -"((rest_1)" +" lst_0))" +"((rest_92)" "(unsafe-cdr" -" lst_179))" -"((key_63)" +" lst_0))" +"((key_93)" "(unsafe-car" -" lst_10))" -"((rest_123)" +" lst_1))" +"((rest_94)" "(unsafe-cdr" -" lst_10)))" -"(let-values(((result_85)" +" lst_1)))" +"(let-values(((result_95)" "(let-values()" -"(let-values(((result_86)" +"(let-values(((result_97)" "(let-values()" "(let-values()" "(if(not" -"(effects?_0" -" e_3" +"(effects?_12" +" e_91" " 1" -" locals_2))" +" locals_0))" "(satisfies?" -" e_3" -" key_63" -" defns_1" -" locals_2)" +" e_91" +" key_93" +" defns_9" +" locals_0)" " #f)))))" "(values" -" result_86)))))" +" result_97)))))" "(if(if(not" -"((lambda x_57" +"((lambda x_0" "(not" -" result_85))" -" e_3))" +" result_95))" +" e_91))" "(if(not" -"((lambda x_9" +"((lambda x_0" "(not" -" result_85))" -" key_63))" +" result_95))" +" key_93))" "(not" " #f)" " #f)" " #f)" -"(for-loop_99" -" result_85" -" rest_1" -" rest_123)" -" result_85)))" -" result_84)))))" -" for-loop_99)" +"(for-loop_87" +" result_95" +" rest_92" +" rest_94)" +" result_95)))" +" result_0)))))" +" for-loop_87)" " #t" -" lst_97" -" lst_225)))" +" lst_85" +" lst_86)))" " #f)" " #f)))" " 1" " #f))))" -" c1_25)" +" c1_32)" "(let-values()" -"(if(let-values(((or-part_167)" +"(if(let-values(((or-part_100)" "(self-quoting-in-linklet?" -" v_33)))" -"(if or-part_167" -" or-part_167" -"(if(symbol? v_33)" -"(let-values(((or-part_65)" +" v_28)))" +"(if or-part_100" +" or-part_100" +"(if(symbol? v_28)" +"(let-values(((or-part_101)" "(hash-ref" -" locals_2" -" v_33" +" locals_0" +" v_28" " #f)))" -"(if or-part_65" -" or-part_65" -"(let-values(((or-part_227)" +"(if or-part_101" +" or-part_101" +"(let-values(((or-part_102)" "(lookup-defn" -" defns_1" -" v_33)))" -"(if or-part_227" -" or-part_227" -"(let-values(((or-part_66)" +" defns_9" +" v_28)))" +"(if or-part_102" +" or-part_102" +"(let-values(((or-part_103)" "(built-in-symbol?" -" v_33)))" -"(if or-part_66" -" or-part_66" -"(ready-variable?_0" -" v_33)))))))" +" v_28)))" +"(if or-part_103" +" or-part_103" +"(ready-variable?_10" +" v_28)))))))" " #f)))" " 1" " #f)))))))" "(let-values() 1))" -"(if(unsafe-fx< index_1 3)" +"(if(unsafe-fx< index_27 3)" "(let-values()" -"(let-values(((ok?_18" -" _21_0" -" ids22_0" -" rhs23_0" -" body24_0)" -"(let-values(((s_46) e_38))" -"(let-values(((orig-s_24) s_46))" -"(let-values(((_21_1" -" ids22_1" -" rhs23_1" -" body24_1)" -"(let-values(((s_309)" +"(let-values(((ok?_104" +" _21_105" +" ids22_106" +" rhs23_107" +" body24_108)" +"(let-values(((s_128) e_0))" +"(let-values(((orig-s_129) s_128))" +"(let-values(((_21_130" +" ids22_131" +" rhs23_132" +" body24_133)" +"(let-values(((s_134)" "(if(1/syntax?" -" s_46)" +" s_128)" "(syntax-e$2" -" s_46)" -" s_46)))" -"(if(pair? s_309)" -"(let-values(((_25_0)" -"(let-values(((s_28)" +" s_128)" +" s_128)))" +"(if(pair? s_134)" +"(let-values(((_25_135)" +"(let-values(((s_139)" "(car" -" s_309)))" -" s_28))" -"((ids26_0" -" rhs27_0" -" body28_0)" -"(let-values(((s_29)" +" s_134)))" +" s_139))" +"((ids26_136" +" rhs27_137" +" body28_138)" +"(let-values(((s_140)" "(cdr" -" s_309)))" -"(let-values(((s_30)" +" s_134)))" +"(let-values(((s_141)" "(if(1/syntax?" -" s_29)" +" s_140)" "(syntax-e$2" -" s_29)" -" s_29)))" +" s_140)" +" s_140)))" "(if(pair?" -" s_30)" -"(let-values(((ids29_0" -" rhs30_0)" -"(let-values(((s_310)" +" s_141)" +"(let-values(((ids29_142" +" rhs30_143)" +"(let-values(((s_145)" "(car" -" s_30)))" -"(let-values(((s_311)" +" s_141)))" +"(let-values(((s_146)" "(if(1/syntax?" -" s_310)" +" s_145)" "(syntax-e$2" -" s_310)" -" s_310)))" -"(let-values(((flat-s_14)" +" s_145)" +" s_145)))" +"(let-values(((flat-s_147)" "(to-syntax-list.1$1" -" s_311)))" +" s_146)))" "(if(not" -" flat-s_14)" +" flat-s_147)" "(let-values()" -"((lambda(false_2" -" str_7" -" e_42)" +"((lambda(false_0" +" str_0" +" e_1)" "(error" -" str_7))" +" str_0))" " #f" " \"bad syntax\"" -" orig-s_24))" +" orig-s_129))" "(let-values()" -"(let-values(((ids_8" -" rhs_4)" -"(let-values(((lst_193)" -" flat-s_14))" +"(let-values(((ids_154" +" rhs_155)" +"(let-values(((lst_156)" +" flat-s_147))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_193)))" -"((letrec-values(((for-loop_204)" -"(lambda(ids_9" -" rhs_5" -" lst_226)" +" lst_156)))" +"((letrec-values(((for-loop_157)" +"(lambda(ids_0" +" rhs_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_226)" -"(let-values(((s_49)" +" lst_0)" +"(let-values(((s_161)" "(unsafe-car" -" lst_226))" -"((rest_124)" +" lst_0))" +"((rest_162)" "(unsafe-cdr" -" lst_226)))" -"(let-values(((ids_10" -" rhs_6)" -"(let-values(((ids_11)" -" ids_9)" -"((rhs_7)" -" rhs_5))" -"(let-values(((ids_12" -" rhs_8)" +" lst_0)))" +"(let-values(((ids_163" +" rhs_164)" +"(let-values(((ids_165)" +" ids_0)" +"((rhs_166)" +" rhs_0))" +"(let-values(((ids_167" +" rhs_168)" "(let-values()" -"(let-values(((ids36_0" -" rhs37_0)" +"(let-values(((ids36_169" +" rhs37_170)" "(let-values()" -"(let-values(((s_166)" +"(let-values(((s_171)" "(if(1/syntax?" -" s_49)" +" s_161)" "(syntax-e$2" -" s_49)" -" s_49)))" +" s_161)" +" s_161)))" "(if(pair?" -" s_166)" -"(let-values(((ids32_0)" -"(let-values(((s_54)" +" s_171)" +"(let-values(((ids32_172)" +"(let-values(((s_174)" "(car" -" s_166)))" -" s_54))" -"((rhs33_0)" -"(let-values(((s_312)" +" s_171)))" +" s_174))" +"((rhs33_173)" +"(let-values(((s_175)" "(cdr" -" s_166)))" -"(let-values(((s_93)" +" s_171)))" +"(let-values(((s_176)" "(if(1/syntax?" -" s_312)" +" s_175)" "(syntax-e$2" -" s_312)" -" s_312)))" +" s_175)" +" s_175)))" "(if(pair?" -" s_93)" -"(let-values(((rhs34_0)" -"(let-values(((s_94)" +" s_176)" +"(let-values(((rhs34_177)" +"(let-values(((s_178)" "(car" -" s_93)))" -" s_94))" +" s_176)))" +" s_178))" "(()" -"(let-values(((s_313)" +"(let-values(((s_179)" "(cdr" -" s_93)))" -"(let-values(((s_314)" +" s_176)))" +"(let-values(((s_180)" "(if(1/syntax?" -" s_313)" +" s_179)" "(syntax-e$2" -" s_313)" -" s_313)))" +" s_179)" +" s_179)))" "(if(null?" -" s_314)" +" s_180)" "(values)" -"((lambda(false_3" -" str_8" -" e_43)" +"((lambda(false_0" +" str_0" +" e_1)" "(error" -" str_8))" +" str_0))" " #f" " \"bad syntax\"" -" orig-s_24))))))" +" orig-s_129))))))" "(values" -" rhs34_0))" -"((lambda(false_4" -" str_9" -" e_44)" +" rhs34_177))" +"((lambda(false_0" +" str_0" +" e_1)" "(error" -" str_9))" +" str_0))" " #f" " \"bad syntax\"" -" orig-s_24))))))" +" orig-s_129))))))" "(values" -" ids32_0" -" rhs33_0))" -"((lambda(false_5" -" str_10" -" e_45)" +" ids32_172" +" rhs33_173))" +"((lambda(false_0" +" str_0" +" e_1)" "(error" -" str_10))" +" str_0))" " #f" " \"bad syntax\"" -" orig-s_24))))))" +" orig-s_129))))))" "(values" "(cons" -" ids36_0" -" ids_11)" +" ids36_169" +" ids_165)" "(cons" -" rhs37_0" -" rhs_7))))))" +" rhs37_170" +" rhs_166))))))" "(values" -" ids_12" -" rhs_8)))))" +" ids_167" +" rhs_168)))))" "(if(not" " #f)" -"(for-loop_204" -" ids_10" -" rhs_6" -" rest_124)" +"(for-loop_157" +" ids_163" +" rhs_164" +" rest_162)" "(values" -" ids_10" -" rhs_6))))" +" ids_163" +" rhs_164))))" "(values" -" ids_9" -" rhs_5))))))" -" for-loop_204)" +" ids_0" +" rhs_0))))))" +" for-loop_157)" " null" " null" -" lst_193)))))" +" lst_156)))))" "(values" "(reverse$1" -" ids_8)" +" ids_154)" "(reverse$1" -" rhs_4)))))))))" -"((body31_0)" -"(let-values(((s_96)" +" rhs_155)))))))))" +"((body31_144)" +"(let-values(((s_190)" "(cdr" -" s_30)))" -"(let-values(((s_57)" +" s_141)))" +"(let-values(((s_191)" "(if(1/syntax?" -" s_96)" +" s_190)" "(syntax-e$2" -" s_96)" -" s_96)))" +" s_190)" +" s_190)))" "(if(pair?" -" s_57)" -"(let-values(((body35_0)" -"(let-values(((s_305)" +" s_191)" +"(let-values(((body35_192)" +"(let-values(((s_193)" "(car" -" s_57)))" -" s_305))" +" s_191)))" +" s_193))" "(()" -"(let-values(((s_315)" +"(let-values(((s_194)" "(cdr" -" s_57)))" -"(let-values(((s_316)" +" s_191)))" +"(let-values(((s_195)" "(if(1/syntax?" -" s_315)" +" s_194)" "(syntax-e$2" -" s_315)" -" s_315)))" +" s_194)" +" s_194)))" "(if(null?" -" s_316)" +" s_195)" "(values)" -"((lambda(false_6" -" str_11" -" e_46)" +"((lambda(false_0" +" str_0" +" e_1)" "(error" -" str_11))" +" str_0))" " #f" " \"bad syntax\"" -" orig-s_24))))))" +" orig-s_129))))))" "(values" -" body35_0))" -"((lambda(false_7" -" str_12" -" e_47)" +" body35_192))" +"((lambda(false_0" +" str_0" +" e_1)" "(error" -" str_12))" +" str_0))" " #f" " \"bad syntax\"" -" orig-s_24))))))" +" orig-s_129))))))" "(values" -" ids29_0" -" rhs30_0" -" body31_0))" -"((lambda(false_8" -" str_13" -" e_48)" +" ids29_142" +" rhs30_143" +" body31_144))" +"((lambda(false_0" +" str_0" +" e_1)" "(error" -" str_13))" +" str_0))" " #f" " \"bad syntax\"" -" orig-s_24))))))" +" orig-s_129))))))" "(values" -" _25_0" -" ids26_0" -" rhs27_0" -" body28_0))" -"((lambda(false_9" -" str_14" -" e_49)" +" _25_135" +" ids26_136" +" rhs27_137" +" body28_138))" +"((lambda(false_0" +" str_0" +" e_1)" "(error" -" str_14))" +" str_0))" " #f" " \"bad syntax\"" -" orig-s_24)))))" +" orig-s_129)))))" "(values" " #t" -" _21_1" -" ids22_1" -" rhs23_1" -" body24_1))))))" +" _21_130" +" ids22_131" +" rhs23_132" +" body24_133))))))" "(if(not" -"(let-values(((lst_198) ids22_0)" -"((lst_227) rhs23_0))" +"(let-values(((lst_208) ids22_106)" +"((lst_209) rhs23_107))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_198)))" +"(let-values()(check-list lst_208)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_227)))" -"((letrec-values(((for-loop_221)" -"(lambda(result_13" -" lst_200" -" lst_228)" +"(let-values()(check-list lst_209)))" +"((letrec-values(((for-loop_210)" +"(lambda(result_0" +" lst_0" +" lst_1)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_200)" -"(pair?" -" lst_228)" +" lst_0)" +"(pair? lst_1)" " #f)" -"(let-values(((ids_13)" +"(let-values(((ids_214)" "(unsafe-car" -" lst_200))" -"((rest_125)" +" lst_0))" +"((rest_215)" "(unsafe-cdr" -" lst_200))" -"((rhs_9)" +" lst_0))" +"((rhs_216)" "(unsafe-car" -" lst_228))" -"((rest_126)" +" lst_1))" +"((rest_217)" "(unsafe-cdr" -" lst_228)))" -"(let-values(((result_87)" +" lst_1)))" +"(let-values(((result_218)" "(let-values()" -"(let-values(((result_88)" +"(let-values(((result_220)" "(let-values()" "(let-values()" -"(effects?_0" -" rhs_9" +"(effects?_12" +" rhs_216" "(correlated-length" -" ids_13)" -" locals_2)))))" +" ids_214)" +" locals_0)))))" "(values" -" result_88)))))" +" result_220)))))" "(if(if(not" -"((lambda x_58" -" result_87)" -" ids_13))" +"((lambda x_0" +" result_218)" +" ids_214))" "(if(not" -"((lambda x_59" -" result_87)" -" rhs_9))" +"((lambda x_0" +" result_218)" +" rhs_216))" "(not" " #f)" " #f)" " #f)" -"(for-loop_221" -" result_87" -" rest_125" -" rest_126)" -" result_87)))" -" result_13)))))" -" for-loop_221)" +"(for-loop_210" +" result_218" +" rest_215" +" rest_217)" +" result_218)))" +" result_0)))))" +" for-loop_210)" " #f" -" lst_198" -" lst_227))))" -"(loop_80" -" body24_0" -"(add-binding-info locals_2 ids22_0 rhs23_0))" +" lst_208" +" lst_209))))" +"(loop_23" +" body24_108" +"(add-binding-info" +" locals_0" +" ids22_106" +" rhs23_107))" " #f)))" -"(if(unsafe-fx< index_1 4)" +"(if(unsafe-fx< index_27 4)" "(let-values()" -"(let-values(((ok?_19 _38_0 e39_0)" -"(let-values(((s_317) e_38))" -"(let-values(((orig-s_25) s_317))" -"(let-values(((_38_1 e39_1)" -"(let-values(((s_318)" +"(let-values(((ok?_223 _38_224 e39_225)" +"(let-values(((s_239) e_0))" +"(let-values(((orig-s_240) s_239))" +"(let-values(((_38_241 e39_242)" +"(let-values(((s_243)" "(if(1/syntax?" -" s_317)" +" s_239)" "(syntax-e$2" -" s_317)" -" s_317)))" +" s_239)" +" s_239)))" "(if(pair?" -" s_318)" -"(let-values(((_40_0)" -"(let-values(((s_209)" +" s_243)" +"(let-values(((_40_244)" +"(let-values(((s_246)" "(car" -" s_318)))" -" s_209))" -"((e41_0)" -"(let-values(((s_38)" +" s_243)))" +" s_246))" +"((e41_245)" +"(let-values(((s_247)" "(cdr" -" s_318)))" -"(let-values(((s_319)" +" s_243)))" +"(let-values(((s_248)" "(if(1/syntax?" -" s_38)" +" s_247)" "(syntax-e$2" -" s_38)" -" s_38)))" -"(let-values(((flat-s_15)" +" s_247)" +" s_247)))" +"(let-values(((flat-s_249)" "(to-syntax-list.1$1" -" s_319)))" +" s_248)))" "(if(not" -" flat-s_15)" +" flat-s_249)" "(let-values()" -"((lambda(false_10" -" str_15" -" e_50)" +"((lambda(false_0" +" str_0" +" e_1)" "(error" -" str_15))" +" str_0))" " #f" " \"bad syntax\"" -" orig-s_25))" +" orig-s_240))" "(let-values()" -" flat-s_15)))))))" +" flat-s_249)))))))" "(values" -" _40_0" -" e41_0))" -"((lambda(false_11" -" str_16" -" e_51)" +" _40_244" +" e41_245))" +"((lambda(false_0" +" str_0" +" e_1)" "(error" -" str_16))" +" str_0))" " #f" " \"bad syntax\"" -" orig-s_25)))))" -"(values #t _38_1 e39_1))))))" -"(if(let-values(((lst_229) e39_0))" +" orig-s_240)))))" +"(values" +" #t" +" _38_241" +" e39_242))))))" +"(if(let-values(((lst_259) e39_225))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_229)))" -"((letrec-values(((for-loop_222)" -"(lambda(result_89" -" lst_230)" +"(let-values()(check-list lst_259)))" +"((letrec-values(((for-loop_260)" +"(lambda(result_0" +" lst_0)" "(begin" " 'for-loop" -"(if(pair?" -" lst_230)" -"(let-values(((e_52)" +"(if(pair? lst_0)" +"(let-values(((e_263)" "(unsafe-car" -" lst_230))" -"((rest_127)" +" lst_0))" +"((rest_264)" "(unsafe-cdr" -" lst_230)))" -"(let-values(((result_90)" +" lst_0)))" +"(let-values(((result_265)" "(let-values()" -"(let-values(((result_91)" +"(let-values(((result_267)" "(let-values()" "(let-values()" "(not" -"(effects?_0" -" e_52" +"(effects?_12" +" e_263" " 1" -" locals_2))))))" +" locals_0))))))" "(values" -" result_91)))))" +" result_267)))))" "(if(if(not" -"((lambda x_60" +"((lambda x_0" "(not" -" result_90))" -" e_52))" +" result_265))" +" e_263))" "(not" " #f)" " #f)" -"(for-loop_222" -" result_90" -" rest_127)" -" result_90)))" -" result_89)))))" -" for-loop_222)" +"(for-loop_260" +" result_265" +" rest_264)" +" result_265)))" +" result_0)))))" +" for-loop_260)" " #t" -" lst_229)))" -"(length e39_0)" +" lst_259)))" +"(length e39_225)" " #f)))" -"(if(unsafe-fx< index_1 5)" +"(if(unsafe-fx< index_27 5)" "(let-values()" -"(let-values(((ok?_20 _42_0 e43_0)" -"(let-values(((s_320) e_38))" -"(let-values(((orig-s_26)" -" s_320))" -"(let-values(((_42_1 e43_1)" -"(let-values(((s_321)" +"(let-values(((ok?_269 _42_270 e43_271)" +"(let-values(((s_285) e_0))" +"(let-values(((orig-s_286)" +" s_285))" +"(let-values(((_42_287" +" e43_288)" +"(let-values(((s_289)" "(if(1/syntax?" -" s_320)" +" s_285)" "(syntax-e$2" -" s_320)" -" s_320)))" +" s_285)" +" s_285)))" "(if(pair?" -" s_321)" -"(let-values(((_44_0)" -"(let-values(((s_322)" +" s_289)" +"(let-values(((_44_290)" +"(let-values(((s_292)" "(car" -" s_321)))" -" s_322))" -"((e45_0)" -"(let-values(((s_323)" +" s_289)))" +" s_292))" +"((e45_291)" +"(let-values(((s_293)" "(cdr" -" s_321)))" -"(let-values(((s_71)" +" s_289)))" +"(let-values(((s_294)" "(if(1/syntax?" -" s_323)" +" s_293)" "(syntax-e$2" -" s_323)" -" s_323)))" -"(let-values(((flat-s_16)" +" s_293)" +" s_293)))" +"(let-values(((flat-s_295)" "(to-syntax-list.1$1" -" s_71)))" +" s_294)))" "(if(not" -" flat-s_16)" +" flat-s_295)" "(let-values()" -"((lambda(false_12" -" str_17" -" e_53)" +"((lambda(false_0" +" str_0" +" e_1)" "(error" -" str_17))" +" str_0))" " #f" " \"bad syntax\"" -" orig-s_26))" +" orig-s_286))" "(let-values()" -" flat-s_16)))))))" +" flat-s_295)))))))" "(values" -" _44_0" -" e45_0))" -"((lambda(false_13" -" str_18" -" e_54)" +" _44_290" +" e45_291))" +"((lambda(false_0" +" str_0" +" e_1)" "(error" -" str_18))" +" str_0))" " #f" " \"bad syntax\"" -" orig-s_26)))))" -"(values #t _42_1 e43_1))))))" -"(if(let-values(((lst_231) e43_0))" +" orig-s_286)))))" +"(values" +" #t" +" _42_287" +" e43_288))))))" +"(if(let-values(((lst_305) e43_271))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_231)))" -"((letrec-values(((for-loop_223)" -"(lambda(result_92" -" lst_232)" +"(check-list lst_305)))" +"((letrec-values(((for-loop_306)" +"(lambda(result_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_232)" -"(let-values(((e_55)" +" lst_0)" +"(let-values(((e_309)" "(unsafe-car" -" lst_232))" -"((rest_128)" +" lst_0))" +"((rest_310)" "(unsafe-cdr" -" lst_232)))" -"(let-values(((result_30)" +" lst_0)))" +"(let-values(((result_311)" "(let-values()" -"(let-values(((result_31)" +"(let-values(((result_313)" "(let-values()" "(let-values()" "(not" -"(effects?_0" -" e_55" +"(effects?_12" +" e_309" " 1" -" locals_2))))))" +" locals_0))))))" "(values" -" result_31)))))" +" result_313)))))" "(if(if(not" -"((lambda x_26" +"((lambda x_0" "(not" -" result_30))" -" e_55))" +" result_311))" +" e_309))" "(not" " #f)" " #f)" -"(for-loop_223" -" result_30" -" rest_128)" -" result_30)))" -" result_92)))))" -" for-loop_223)" +"(for-loop_306" +" result_311" +" rest_310)" +" result_311)))" +" result_0)))))" +" for-loop_306)" " #t" -" lst_231)))" +" lst_305)))" " 1" " #f)))" "(let-values()" -"(let-values(((ok?_21 _46_0 e47_0)" -"(let-values(((s_324) e_38))" -"(let-values(((orig-s_27)" -" s_324))" -"(let-values(((_46_1 e47_1)" -"(let-values(((s_325)" +"(let-values(((ok?_315 _46_316 e47_317)" +"(let-values(((s_331) e_0))" +"(let-values(((orig-s_332)" +" s_331))" +"(let-values(((_46_333" +" e47_334)" +"(let-values(((s_335)" "(if(1/syntax?" -" s_324)" +" s_331)" "(syntax-e$2" -" s_324)" -" s_324)))" +" s_331)" +" s_331)))" "(if(pair?" -" s_325)" -"(let-values(((_48_0)" -"(let-values(((s_221)" +" s_335)" +"(let-values(((_48_336)" +"(let-values(((s_338)" "(car" -" s_325)))" -" s_221))" -"((e49_0)" -"(let-values(((s_326)" +" s_335)))" +" s_338))" +"((e49_337)" +"(let-values(((s_339)" "(cdr" -" s_325)))" -"(let-values(((s_327)" +" s_335)))" +"(let-values(((s_340)" "(if(1/syntax?" -" s_326)" +" s_339)" "(syntax-e$2" -" s_326)" -" s_326)))" -"(let-values(((flat-s_17)" +" s_339)" +" s_339)))" +"(let-values(((flat-s_341)" "(to-syntax-list.1$1" -" s_327)))" +" s_340)))" "(if(not" -" flat-s_17)" +" flat-s_341)" "(let-values()" -"((lambda(false_14" -" str_19" -" e_30)" +"((lambda(false_0" +" str_0" +" e_1)" "(error" -" str_19))" +" str_0))" " #f" " \"bad syntax\"" -" orig-s_27))" +" orig-s_332))" "(let-values()" -" flat-s_17)))))))" +" flat-s_341)))))))" "(values" -" _48_0" -" e49_0))" -"((lambda(false_15" -" str_20" -" e_56)" +" _48_336" +" e49_337))" +"((lambda(false_0" +" str_0" +" e_1)" "(error" -" str_20))" +" str_0))" " #f" " \"bad syntax\"" -" orig-s_27)))))" -"(values #t _46_1 e47_1))))))" -"((letrec-values(((bloop_0)" -"(lambda(es_1)" +" orig-s_332)))))" +"(values" +" #t" +" _46_333" +" e47_334))))))" +"((letrec-values(((bloop_351)" +"(lambda(es_0)" "(begin" " 'bloop" -"(if(null? es_1)" +"(if(null? es_0)" "(let-values() #f)" -"(if(null?(cdr es_1))" +"(if(null?(cdr es_0))" "(let-values()" -"(loop_80" -"(car es_1)" -" locals_2))" +"(loop_23" +"(car es_0)" +" locals_0))" "(let-values()" "(if(not" -"(effects?_0" -"(car es_1)" +"(effects?_12" +"(car es_0)" " #f" -" locals_2))" -"(bloop_0" -"(cdr es_1))" +" locals_0))" +"(bloop_351" +"(cdr es_0))" " #f))))))))" -" bloop_0)" -" e47_0)))))))" -"(if(unsafe-fx< index_1 9)" -"(if(unsafe-fx< index_1 7)" +" bloop_351)" +" e47_317)))))))" +"(if(unsafe-fx< index_27 9)" +"(if(unsafe-fx< index_27 7)" "(let-values()" -"(let-values(((ok?_22 _50_0 e051_0 e52_0)" -"(let-values(((s_116) e_38))" -"(let-values(((orig-s_0) s_116))" -"(let-values(((_50_1 e051_1 e52_1)" -"(let-values(((s_120)" -"(if(1/syntax?" -" s_116)" -"(syntax-e$2" -" s_116)" -" s_116)))" -"(if(pair? s_120)" -"(let-values(((_53_0)" -"(let-values(((s_227)" -"(car" -" s_120)))" -" s_227))" -"((e054_0" -" e55_0)" -"(let-values(((s_163)" -"(cdr" -" s_120)))" -"(let-values(((s_164)" -"(if(1/syntax?" -" s_163)" -"(syntax-e$2" -" s_163)" -" s_163)))" -"(if(pair?" -" s_164)" -"(let-values(((e056_0)" -"(let-values(((s_328)" -"(car" -" s_164)))" -" s_328))" -"((e57_0)" -"(let-values(((s_329)" -"(cdr" -" s_164)))" -"(let-values(((s_228)" -"(if(1/syntax?" -" s_329)" -"(syntax-e$2" -" s_329)" -" s_329)))" -"(let-values(((flat-s_18)" -"(to-syntax-list.1$1" -" s_228)))" -"(if(not" -" flat-s_18)" -"(let-values()" -"((lambda(false_16" -" str_21" -" e_57)" -"(error" -" str_21))" -" #f" -" \"bad syntax\"" -" orig-s_0))" -"(let-values()" -" flat-s_18)))))))" -"(values" -" e056_0" -" e57_0))" -"((lambda(false_17" -" str_22" -" e_58)" -"(error" -" str_22))" -" #f" -" \"bad syntax\"" -" orig-s_0))))))" -"(values" -" _53_0" -" e054_0" -" e55_0))" -"((lambda(false_18" -" str_23" -" e_59)" -"(error" -" str_23))" -" #f" -" \"bad syntax\"" -" orig-s_0)))))" -"(values" -" #t" -" _50_1" -" e051_1" -" e52_1))))))" -"(if(let-values(((lst_233) e52_0))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_233)))" -"((letrec-values(((for-loop_224)" -"(lambda(result_93" -" lst_119)" -"(begin" -" 'for-loop" -"(if(pair? lst_119)" -"(let-values(((e_60)" -"(unsafe-car" -" lst_119))" -"((rest_129)" -"(unsafe-cdr" -" lst_119)))" -"(let-values(((result_94)" -"(let-values()" -"(let-values(((result_95)" -"(let-values()" -"(let-values()" -"(not" -"(effects?_0" -" e_60" -" #f" -" locals_2))))))" -"(values" -" result_95)))))" -"(if(if(not" -"((lambda x_61" -"(not" -" result_94))" -" e_60))" -"(not #f)" -" #f)" -"(for-loop_224" -" result_94" -" rest_129)" -" result_94)))" -" result_93)))))" -" for-loop_224)" -" #t" -" lst_233)))" -"(loop_80 e051_0 locals_2)" -" #f)))" -"(if(unsafe-fx< index_1 8)" -"(let-values()" -"(if(ok-make-struct-type?" -" e_38" -" ready-variable?_0" -" defns_1)" -" 5" -" #f))" -"(let-values()" -"(if(ok-make-struct-field-accessor/mutator?" -" e_38" -" locals_2" -" 'general-accessor" -" defns_1)" -" 1" -" #f))))" -"(if(unsafe-fx< index_1 10)" -"(let-values()" -"(if(ok-make-struct-field-accessor/mutator?" -" e_38" -" locals_2" -" 'general-mutator" -" defns_1)" -" 1" -" #f))" -"(if(unsafe-fx< index_1 11)" -"(let-values()" -"(if(ok-make-struct-type-property? e_38 defns_1)" -" 3" -" #f))" -"(if(unsafe-fx< index_1 12)" -"(let-values()" -"(let-values(((ok?_23 gs58_0 quot59_0 datum60_0)" -"(let-values(((s_234) e_38))" -"(if(let-values(((s_235)" -"(if(1/syntax?" -" s_234)" -"(syntax-e$2" -" s_234)" -" s_234)))" -"(if(pair? s_235)" -"(if(let-values(((s_330)" -"(car" -" s_235)))" -" #t)" -"(let-values(((s_133)" -"(cdr" -" s_235)))" -"(let-values(((s_236)" -"(if(1/syntax?" -" s_133)" -"(syntax-e$2" -" s_133)" -" s_133)))" -"(if(pair? s_236)" -"(if(let-values(((s_237)" -"(car" -" s_236)))" -"(let-values(((s_331)" -"(if(1/syntax?" -" s_237)" -"(syntax-e$2" -" s_237)" -" s_237)))" -"(if(pair?" -" s_331)" -"(if(let-values(((s_332)" -"(car" -" s_331)))" -" #t)" -"(let-values(((s_134)" -"(cdr" -" s_331)))" -"(let-values(((s_333)" -"(if(1/syntax?" -" s_134)" -"(syntax-e$2" -" s_134)" -" s_134)))" -"(if(pair?" -" s_333)" -"(if(let-values(((s_334)" -"(car" -" s_333)))" -" #t)" -"(let-values(((s_335)" -"(cdr" -" s_333)))" -"(let-values(((s_336)" -"(if(1/syntax?" -" s_335)" -"(syntax-e$2" -" s_335)" -" s_335)))" -"(null?" -" s_336)))" -" #f)" -" #f)))" -" #f)" -" #f)))" -"(let-values(((s_337)" -"(cdr" -" s_236)))" -"(let-values(((s_338)" -"(if(1/syntax?" -" s_337)" -"(syntax-e$2" -" s_337)" -" s_337)))" -"(null?" -" s_338)))" -" #f)" -" #f)))" -" #f)" -" #f))" -"(let-values()" -"(let-values(((gs58_1" -" quot59_1" -" datum60_1)" -"(let-values(((s_339)" -"(if(1/syntax?" -" s_234)" -"(syntax-e$2" -" s_234)" -" s_234)))" -"(let-values(((gs61_0)" -"(let-values(((s_340)" -"(car" -" s_339)))" -" s_340))" -"((quot62_0" -" datum63_0)" -"(let-values(((s_341)" -"(cdr" -" s_339)))" -"(let-values(((s_342)" -"(if(1/syntax?" -" s_341)" -"(syntax-e$2" -" s_341)" -" s_341)))" -"(let-values(((quot64_0" -" datum65_0)" -"(let-values(((s_343)" -"(car" -" s_342)))" -"(let-values(((s_344)" -"(if(1/syntax?" -" s_343)" -"(syntax-e$2" -" s_343)" -" s_343)))" -"(let-values(((quot66_0)" -"(let-values(((s_239)" -"(car" -" s_344)))" -" s_239))" -"((datum67_0)" -"(let-values(((s_345)" -"(cdr" -" s_344)))" -"(let-values(((s_346)" -"(if(1/syntax?" -" s_345)" -"(syntax-e$2" -" s_345)" -" s_345)))" -"(let-values(((datum68_0)" -"(let-values(((s_240)" -"(car" -" s_346)))" -" s_240))" -"(()" -"(let-values(((s_241)" -"(cdr" -" s_346)))" -"(let-values(((s_242)" -"(if(1/syntax?" -" s_241)" -"(syntax-e$2" -" s_241)" -" s_241)))" -"(values)))))" -"(values" -" datum68_0))))))" -"(values" -" quot66_0" -" datum67_0)))))" -"(()" -"(let-values(((s_347)" -"(cdr" -" s_342)))" -"(let-values(((s_348)" -"(if(1/syntax?" -" s_347)" -"(syntax-e$2" -" s_347)" -" s_347)))" -"(values)))))" -"(values" -" quot64_0" -" datum65_0))))))" -"(values" -" gs61_0" -" quot62_0" -" datum63_0)))))" -"(values" -" #t" -" gs58_1" -" quot59_1" -" datum60_1)))" -"(values #f #f #f #f)))))" -"(if(let-values(((or-part_228)" -"(if ok?_23" -"(if(eq? 'quote quot59_0)" -"(let-values(((or-part_229)" -"(symbol?" -" datum60_0)))" -"(if or-part_229" -" or-part_229" -"(string?" -" datum60_0)))" -" #f)" -" #f)))" -"(if or-part_228" -" or-part_228" -"(null?(cdr(correlated-e e_38)))))" -" 1" -" #f)))" -"(let-values()" -"(let-values(((ok?_24" -" _69_0" -" id:rator70_0" -" id:arg71_0" -" thn72_0" -" els73_0)" -"(let-values(((s_349) e_38))" -"(if(let-values(((s_350)" -"(if(1/syntax?" -" s_349)" -"(syntax-e$2" -" s_349)" -" s_349)))" -"(if(pair? s_350)" -"(if(let-values(((s_351)" -"(car" -" s_350)))" -" #t)" -"(let-values(((s_352)" -"(cdr" -" s_350)))" -"(let-values(((s_353)" -"(if(1/syntax?" -" s_352)" -"(syntax-e$2" -" s_352)" -" s_352)))" -"(if(pair? s_353)" -"(if(let-values(((s_248)" -"(car" -" s_353)))" -"(let-values(((s_354)" -"(if(1/syntax?" -" s_248)" -"(syntax-e$2" -" s_248)" -" s_248)))" -"(if(pair?" -" s_354)" -"(if(let-values(((s_355)" -"(car" -" s_354)))" -"(let-values(((or-part_230)" -"(if(1/syntax?" -" s_355)" -"(symbol?" -"(syntax-e$2" -" s_355))" -" #f)))" -"(if or-part_230" -" or-part_230" -"(symbol?" -" s_355))))" -"(let-values(((s_356)" -"(cdr" -" s_354)))" -"(let-values(((s_249)" -"(if(1/syntax?" -" s_356)" -"(syntax-e$2" -" s_356)" -" s_356)))" -"(if(pair?" -" s_249)" -"(if(let-values(((s_250)" -"(car" -" s_249)))" -"(let-values(((or-part_231)" -"(if(1/syntax?" -" s_250)" -"(symbol?" -"(syntax-e$2" -" s_250))" -" #f)))" -"(if or-part_231" -" or-part_231" -"(symbol?" -" s_250))))" -"(let-values(((s_357)" -"(cdr" -" s_249)))" -"(let-values(((s_358)" -"(if(1/syntax?" -" s_357)" -"(syntax-e$2" -" s_357)" -" s_357)))" -"(null?" -" s_358)))" -" #f)" -" #f)))" -" #f)" -" #f)))" -"(let-values(((s_359)" -"(cdr" -" s_353)))" -"(let-values(((s_252)" -"(if(1/syntax?" -" s_359)" -"(syntax-e$2" -" s_359)" -" s_359)))" -"(if(pair?" -" s_252)" -"(if(let-values(((s_360)" -"(car" -" s_252)))" -" #t)" -"(let-values(((s_253)" -"(cdr" -" s_252)))" -"(let-values(((s_254)" -"(if(1/syntax?" -" s_253)" -"(syntax-e$2" -" s_253)" -" s_253)))" -"(if(pair?" -" s_254)" -"(if(let-values(((s_361)" -"(car" -" s_254)))" -" #t)" -"(let-values(((s_362)" -"(cdr" -" s_254)))" -"(let-values(((s_255)" -"(if(1/syntax?" -" s_362)" -"(syntax-e$2" -" s_362)" -" s_362)))" -"(null?" -" s_255)))" -" #f)" -" #f)))" -" #f)" -" #f)))" -" #f)" -" #f)))" -" #f)" -" #f))" -"(let-values()" -"(let-values(((_69_1" -" id:rator70_1" -" id:arg71_1" -" thn72_1" -" els73_1)" -"(let-values(((s_363)" -"(if(1/syntax?" -" s_349)" -"(syntax-e$2" -" s_349)" -" s_349)))" -"(let-values(((_74_0)" -"(let-values(((s_364)" -"(car" -" s_363)))" -" s_364))" -"((id:rator75_0" -" id:arg76_0" -" thn77_0" -" els78_0)" -"(let-values(((s_365)" -"(cdr" -" s_363)))" -"(let-values(((s_366)" -"(if(1/syntax?" -" s_365)" -"(syntax-e$2" -" s_365)" -" s_365)))" -"(let-values(((id:rator79_0" -" id:arg80_0)" -"(let-values(((s_367)" -"(car" -" s_366)))" -"(let-values(((s_368)" -"(if(1/syntax?" -" s_367)" -"(syntax-e$2" -" s_367)" -" s_367)))" -"(let-values(((id:rator83_0)" -"(let-values(((s_369)" -"(car" -" s_368)))" -" s_369))" -"((id:arg84_0)" -"(let-values(((s_370)" -"(cdr" -" s_368)))" -"(let-values(((s_371)" -"(if(1/syntax?" -" s_370)" -"(syntax-e$2" -" s_370)" -" s_370)))" -"(let-values(((id:arg85_0)" -"(let-values(((s_372)" -"(car" -" s_371)))" -" s_372))" -"(()" -"(let-values(((s_373)" -"(cdr" -" s_371)))" -"(let-values(((s_374)" +"(let-values(((ok?_353 _50_354 e051_355 e52_356)" +"(let-values(((s_373) e_0))" +"(let-values(((orig-s_374) s_373))" +"(let-values(((_50_375" +" e051_376" +" e52_377)" +"(let-values(((s_378)" "(if(1/syntax?" " s_373)" "(syntax-e$2" " s_373)" " s_373)))" -"(values)))))" -"(values" -" id:arg85_0))))))" -"(values" -" id:rator83_0" -" id:arg84_0)))))" -"((thn81_0" -" els82_0)" -"(let-values(((s_375)" -"(cdr" -" s_366)))" -"(let-values(((s_376)" -"(if(1/syntax?" -" s_375)" -"(syntax-e$2" -" s_375)" -" s_375)))" -"(let-values(((thn86_0)" -"(let-values(((s_259)" -"(car" -" s_376)))" -" s_259))" -"((els87_0)" -"(let-values(((s_377)" -"(cdr" -" s_376)))" -"(let-values(((s_378)" -"(if(1/syntax?" -" s_377)" -"(syntax-e$2" -" s_377)" -" s_377)))" -"(let-values(((els88_0)" -"(let-values(((s_379)" +"(if(pair? s_378)" +"(let-values(((_53_379)" +"(let-values(((s_382)" "(car" " s_378)))" -" s_379))" -"(()" -"(let-values(((s_380)" +" s_382))" +"((e054_380" +" e55_381)" +"(let-values(((s_383)" "(cdr" " s_378)))" -"(let-values(((s_260)" +"(let-values(((s_384)" "(if(1/syntax?" -" s_380)" +" s_383)" "(syntax-e$2" -" s_380)" -" s_380)))" -"(values)))))" +" s_383)" +" s_383)))" +"(if(pair?" +" s_384)" +"(let-values(((e056_385)" +"(let-values(((s_387)" +"(car" +" s_384)))" +" s_387))" +"((e57_386)" +"(let-values(((s_388)" +"(cdr" +" s_384)))" +"(let-values(((s_389)" +"(if(1/syntax?" +" s_388)" +"(syntax-e$2" +" s_388)" +" s_388)))" +"(let-values(((flat-s_390)" +"(to-syntax-list.1$1" +" s_389)))" +"(if(not" +" flat-s_390)" +"(let-values()" +"((lambda(false_0" +" str_0" +" e_1)" +"(error" +" str_0))" +" #f" +" \"bad syntax\"" +" orig-s_374))" +"(let-values()" +" flat-s_390)))))))" "(values" -" els88_0))))))" +" e056_385" +" e57_386))" +"((lambda(false_0" +" str_0" +" e_1)" +"(error" +" str_0))" +" #f" +" \"bad syntax\"" +" orig-s_374))))))" "(values" -" thn86_0" -" els87_0))))))" -"(values" -" id:rator79_0" -" id:arg80_0" -" thn81_0" -" els82_0))))))" -"(values" -" _74_0" -" id:rator75_0" -" id:arg76_0" -" thn77_0" -" els78_0)))))" +" _53_379" +" e054_380" +" e55_381))" +"((lambda(false_0" +" str_0" +" e_1)" +"(error" +" str_0))" +" #f" +" \"bad syntax\"" +" orig-s_374)))))" "(values" " #t" -" _69_1" -" id:rator70_1" -" id:arg71_1" -" thn72_1" -" els73_1)))" -"(values #f #f #f #f #f #f)))))" -"(if ok?_24" +" _50_375" +" e051_376" +" e52_377))))))" +"(if(let-values(((lst_403) e52_356))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_403)))" +"((letrec-values(((for-loop_404)" +"(lambda(result_0 lst_0)" +"(begin" +" 'for-loop" +"(if(pair? lst_0)" +"(let-values(((e_407)" +"(unsafe-car" +" lst_0))" +"((rest_408)" +"(unsafe-cdr" +" lst_0)))" +"(let-values(((result_409)" "(let-values()" -"(let-values(((c2_2)" -"(let-values(((or-part_232)" -"(hash-ref" -" locals_2" -" id:rator70_0" +"(let-values(((result_411)" +"(let-values()" +"(let-values()" +"(not" +"(effects?_12" +" e_407" +" #f" +" locals_0))))))" +"(values" +" result_411)))))" +"(if(if(not" +"((lambda x_0" +"(not" +" result_409))" +" e_407))" +"(not #f)" +" #f)" +"(for-loop_404" +" result_409" +" rest_408)" +" result_409)))" +" result_0)))))" +" for-loop_404)" +" #t" +" lst_403)))" +"(loop_23 e051_355 locals_0)" " #f)))" -"(if or-part_232" -" or-part_232" +"(if(unsafe-fx< index_27 8)" +"(let-values()" +"(if(ok-make-struct-type?" +" e_0" +" ready-variable?_10" +" defns_9)" +" 5" +" #f))" +"(let-values()" +"(if(ok-make-struct-field-accessor/mutator?" +" e_0" +" locals_0" +" 'general-accessor" +" defns_9)" +" 1" +" #f))))" +"(if(unsafe-fx< index_27 10)" +"(let-values()" +"(if(ok-make-struct-field-accessor/mutator?" +" e_0" +" locals_0" +" 'general-mutator" +" defns_9)" +" 1" +" #f))" +"(if(unsafe-fx< index_27 11)" +"(let-values()" +"(if(ok-make-struct-type-property? e_0 defns_9)" +" 3" +" #f))" +"(if(unsafe-fx< index_27 12)" +"(let-values()" +"(let-values(((ok?_413" +" gs58_414" +" quot59_415" +" datum60_416)" +"(let-values(((s_433) e_0))" +"(if(let-values(((s_434)" +"(if(1/syntax?" +" s_433)" +"(syntax-e$2" +" s_433)" +" s_433)))" +"(if(pair? s_434)" +"(if(let-values(((s_435)" +"(car" +" s_434)))" +" #t)" +"(let-values(((s_436)" +"(cdr" +" s_434)))" +"(let-values(((s_437)" +"(if(1/syntax?" +" s_436)" +"(syntax-e$2" +" s_436)" +" s_436)))" +"(if(pair? s_437)" +"(if(let-values(((s_438)" +"(car" +" s_437)))" +"(let-values(((s_439)" +"(if(1/syntax?" +" s_438)" +"(syntax-e$2" +" s_438)" +" s_438)))" +"(if(pair?" +" s_439)" +"(if(let-values(((s_440)" +"(car" +" s_439)))" +" #t)" +"(let-values(((s_441)" +"(cdr" +" s_439)))" +"(let-values(((s_442)" +"(if(1/syntax?" +" s_441)" +"(syntax-e$2" +" s_441)" +" s_441)))" +"(if(pair?" +" s_442)" +"(if(let-values(((s_443)" +"(car" +" s_442)))" +" #t)" +"(let-values(((s_444)" +"(cdr" +" s_442)))" +"(let-values(((s_445)" +"(if(1/syntax?" +" s_444)" +"(syntax-e$2" +" s_444)" +" s_444)))" +"(null?" +" s_445)))" +" #f)" +" #f)))" +" #f)" +" #f)))" +"(let-values(((s_446)" +"(cdr" +" s_437)))" +"(let-values(((s_447)" +"(if(1/syntax?" +" s_446)" +"(syntax-e$2" +" s_446)" +" s_446)))" +"(null?" +" s_447)))" +" #f)" +" #f)))" +" #f)" +" #f))" +"(let-values()" +"(let-values(((gs58_449" +" quot59_450" +" datum60_451)" +"(let-values(((s_452)" +"(if(1/syntax?" +" s_433)" +"(syntax-e$2" +" s_433)" +" s_433)))" +"(let-values(((gs61_453)" +"(let-values(((s_456)" +"(car" +" s_452)))" +" s_456))" +"((quot62_454" +" datum63_455)" +"(let-values(((s_457)" +"(cdr" +" s_452)))" +"(let-values(((s_458)" +"(if(1/syntax?" +" s_457)" +"(syntax-e$2" +" s_457)" +" s_457)))" +"(let-values(((quot64_459" +" datum65_460)" +"(let-values(((s_461)" +"(car" +" s_458)))" +"(let-values(((s_462)" +"(if(1/syntax?" +" s_461)" +"(syntax-e$2" +" s_461)" +" s_461)))" +"(let-values(((quot66_463)" +"(let-values(((s_465)" +"(car" +" s_462)))" +" s_465))" +"((datum67_464)" +"(let-values(((s_466)" +"(cdr" +" s_462)))" +"(let-values(((s_467)" +"(if(1/syntax?" +" s_466)" +"(syntax-e$2" +" s_466)" +" s_466)))" +"(let-values(((datum68_468)" +"(let-values(((s_469)" +"(car" +" s_467)))" +" s_469))" +"(()" +"(let-values(((s_470)" +"(cdr" +" s_467)))" +"(let-values(((s_471)" +"(if(1/syntax?" +" s_470)" +"(syntax-e$2" +" s_470)" +" s_470)))" +"(values)))))" +"(values" +" datum68_468))))))" +"(values" +" quot66_463" +" datum67_464)))))" +"(()" +"(let-values(((s_478)" +"(cdr" +" s_458)))" +"(let-values(((s_479)" +"(if(1/syntax?" +" s_478)" +"(syntax-e$2" +" s_478)" +" s_478)))" +"(values)))))" +"(values" +" quot64_459" +" datum65_460))))))" +"(values" +" gs61_453" +" quot62_454" +" datum63_455)))))" +"(values" +" #t" +" gs58_449" +" quot59_450" +" datum60_451)))" +"(values #f #f #f #f)))))" +"(if(let-values(((or-part_486)" +"(if ok?_413" +"(if(eq?" +" 'quote" +" quot59_415)" +"(let-values(((or-part_487)" +"(symbol?" +" datum60_416)))" +"(if or-part_487" +" or-part_487" +"(string?" +" datum60_416)))" +" #f)" +" #f)))" +"(if or-part_486" +" or-part_486" +"(null?(cdr(correlated-e e_0)))))" +" 1" +" #f)))" +"(let-values()" +"(let-values(((ok?_488" +" _69_489" +" id:rator70_490" +" id:arg71_491" +" thn72_492" +" els73_493)" +"(let-values(((s_516) e_0))" +"(if(let-values(((s_517)" +"(if(1/syntax?" +" s_516)" +"(syntax-e$2" +" s_516)" +" s_516)))" +"(if(pair? s_517)" +"(if(let-values(((s_518)" +"(car" +" s_517)))" +" #t)" +"(let-values(((s_519)" +"(cdr" +" s_517)))" +"(let-values(((s_520)" +"(if(1/syntax?" +" s_519)" +"(syntax-e$2" +" s_519)" +" s_519)))" +"(if(pair? s_520)" +"(if(let-values(((s_521)" +"(car" +" s_520)))" +"(let-values(((s_522)" +"(if(1/syntax?" +" s_521)" +"(syntax-e$2" +" s_521)" +" s_521)))" +"(if(pair?" +" s_522)" +"(if(let-values(((s_523)" +"(car" +" s_522)))" +"(let-values(((or-part_524)" +"(if(1/syntax?" +" s_523)" +"(symbol?" +"(syntax-e$2" +" s_523))" +" #f)))" +"(if or-part_524" +" or-part_524" +"(symbol?" +" s_523))))" +"(let-values(((s_525)" +"(cdr" +" s_522)))" +"(let-values(((s_526)" +"(if(1/syntax?" +" s_525)" +"(syntax-e$2" +" s_525)" +" s_525)))" +"(if(pair?" +" s_526)" +"(if(let-values(((s_527)" +"(car" +" s_526)))" +"(let-values(((or-part_528)" +"(if(1/syntax?" +" s_527)" +"(symbol?" +"(syntax-e$2" +" s_527))" +" #f)))" +"(if or-part_528" +" or-part_528" +"(symbol?" +" s_527))))" +"(let-values(((s_529)" +"(cdr" +" s_526)))" +"(let-values(((s_530)" +"(if(1/syntax?" +" s_529)" +"(syntax-e$2" +" s_529)" +" s_529)))" +"(null?" +" s_530)))" +" #f)" +" #f)))" +" #f)" +" #f)))" +"(let-values(((s_531)" +"(cdr" +" s_520)))" +"(let-values(((s_532)" +"(if(1/syntax?" +" s_531)" +"(syntax-e$2" +" s_531)" +" s_531)))" +"(if(pair?" +" s_532)" +"(if(let-values(((s_533)" +"(car" +" s_532)))" +" #t)" +"(let-values(((s_534)" +"(cdr" +" s_532)))" +"(let-values(((s_535)" +"(if(1/syntax?" +" s_534)" +"(syntax-e$2" +" s_534)" +" s_534)))" +"(if(pair?" +" s_535)" +"(if(let-values(((s_536)" +"(car" +" s_535)))" +" #t)" +"(let-values(((s_537)" +"(cdr" +" s_535)))" +"(let-values(((s_538)" +"(if(1/syntax?" +" s_537)" +"(syntax-e$2" +" s_537)" +" s_537)))" +"(null?" +" s_538)))" +" #f)" +" #f)))" +" #f)" +" #f)))" +" #f)" +" #f)))" +" #f)" +" #f))" +"(let-values()" +"(let-values(((_69_540" +" id:rator70_541" +" id:arg71_542" +" thn72_543" +" els73_544)" +"(let-values(((s_545)" +"(if(1/syntax?" +" s_516)" +"(syntax-e$2" +" s_516)" +" s_516)))" +"(let-values(((_74_546)" +"(let-values(((s_551)" +"(car" +" s_545)))" +" s_551))" +"((id:rator75_547" +" id:arg76_548" +" thn77_549" +" els78_550)" +"(let-values(((s_552)" +"(cdr" +" s_545)))" +"(let-values(((s_553)" +"(if(1/syntax?" +" s_552)" +"(syntax-e$2" +" s_552)" +" s_552)))" +"(let-values(((id:rator79_554" +" id:arg80_555)" +"(let-values(((s_558)" +"(car" +" s_553)))" +"(let-values(((s_559)" +"(if(1/syntax?" +" s_558)" +"(syntax-e$2" +" s_558)" +" s_558)))" +"(let-values(((id:rator83_560)" +"(let-values(((s_562)" +"(car" +" s_559)))" +" s_562))" +"((id:arg84_561)" +"(let-values(((s_563)" +"(cdr" +" s_559)))" +"(let-values(((s_564)" +"(if(1/syntax?" +" s_563)" +"(syntax-e$2" +" s_563)" +" s_563)))" +"(let-values(((id:arg85_565)" +"(let-values(((s_566)" +"(car" +" s_564)))" +" s_566))" +"(()" +"(let-values(((s_567)" +"(cdr" +" s_564)))" +"(let-values(((s_568)" +"(if(1/syntax?" +" s_567)" +"(syntax-e$2" +" s_567)" +" s_567)))" +"(values)))))" +"(values" +" id:arg85_565))))))" +"(values" +" id:rator83_560" +" id:arg84_561)))))" +"((thn81_556" +" els82_557)" +"(let-values(((s_575)" +"(cdr" +" s_553)))" +"(let-values(((s_576)" +"(if(1/syntax?" +" s_575)" +"(syntax-e$2" +" s_575)" +" s_575)))" +"(let-values(((thn86_577)" +"(let-values(((s_579)" +"(car" +" s_576)))" +" s_579))" +"((els87_578)" +"(let-values(((s_580)" +"(cdr" +" s_576)))" +"(let-values(((s_581)" +"(if(1/syntax?" +" s_580)" +"(syntax-e$2" +" s_580)" +" s_580)))" +"(let-values(((els88_582)" +"(let-values(((s_583)" +"(car" +" s_581)))" +" s_583))" +"(()" +"(let-values(((s_584)" +"(cdr" +" s_581)))" +"(let-values(((s_585)" +"(if(1/syntax?" +" s_584)" +"(syntax-e$2" +" s_584)" +" s_584)))" +"(values)))))" +"(values" +" els88_582))))))" +"(values" +" thn86_577" +" els87_578))))))" +"(values" +" id:rator79_554" +" id:arg80_555" +" thn81_556" +" els82_557))))))" +"(values" +" _74_546" +" id:rator75_547" +" id:arg76_548" +" thn77_549" +" els78_550)))))" +"(values" +" #t" +" _69_540" +" id:rator70_541" +" id:arg71_542" +" thn72_543" +" els73_544)))" +"(values #f #f #f #f #f #f)))))" +"(if ok?_488" +"(let-values()" +"(let-values(((c2_598)" +"(let-values(((or-part_599)" +"(hash-ref" +" locals_0" +" id:rator70_490" +" #f)))" +"(if or-part_599" +" or-part_599" "(lookup-defn" -" defns_1" -" id:rator70_0)))))" -"(if c2_2" -"((lambda(d_31)" -"(if(known-predicate? d_31)" +" defns_9" +" id:rator70_490)))))" +"(if c2_598" +"((lambda(d_0)" +"(if(known-predicate? d_0)" "(if(not" -"(effects?_0" -" thn72_0" -" expected-results_0" +"(effects?_12" +" thn72_492" +" expected-results_7" "(hash-set" -" locals_2" -" id:arg71_0" +" locals_0" +" id:arg71_491" "(known-satisfies7.1" "(known-predicate-key" -" d_31)))))" -"(loop_80 els73_0 locals_2)" +" d_0)))))" +"(loop_23 els73_493 locals_0)" " #f)" " #f))" -" c2_2)" +" c2_598)" "(let-values() #f))))" "(let-values()" -"(let-values(((ok?_25" -" _89_0" -" tst90_0" -" thn91_0" -" els92_0)" -"(let-values(((s_381) e_38))" -"(if(let-values(((s_382)" +"(let-values(((ok?_601" +" _89_602" +" tst90_603" +" thn91_604" +" els92_605)" +"(let-values(((s_625) e_0))" +"(if(let-values(((s_626)" "(if(1/syntax?" -" s_381)" +" s_625)" "(syntax-e$2" -" s_381)" -" s_381)))" -"(if(pair? s_382)" -"(if(let-values(((s_383)" +" s_625)" +" s_625)))" +"(if(pair? s_626)" +"(if(let-values(((s_627)" "(car" -" s_382)))" +" s_626)))" " #t)" -"(let-values(((s_384)" +"(let-values(((s_628)" "(cdr" -" s_382)))" -"(let-values(((s_385)" +" s_626)))" +"(let-values(((s_629)" "(if(1/syntax?" -" s_384)" +" s_628)" "(syntax-e$2" -" s_384)" -" s_384)))" +" s_628)" +" s_628)))" "(if(pair?" -" s_385)" -"(if(let-values(((s_386)" +" s_629)" +"(if(let-values(((s_630)" "(car" -" s_385)))" +" s_629)))" " #t)" -"(let-values(((s_136)" +"(let-values(((s_631)" "(cdr" -" s_385)))" -"(let-values(((s_387)" +" s_629)))" +"(let-values(((s_632)" "(if(1/syntax?" -" s_136)" +" s_631)" "(syntax-e$2" -" s_136)" -" s_136)))" +" s_631)" +" s_631)))" "(if(pair?" -" s_387)" -"(if(let-values(((s_388)" +" s_632)" +"(if(let-values(((s_633)" "(car" -" s_387)))" +" s_632)))" " #t)" -"(let-values(((s_389)" +"(let-values(((s_634)" "(cdr" -" s_387)))" -"(let-values(((s_390)" +" s_632)))" +"(let-values(((s_635)" "(if(1/syntax?" -" s_389)" +" s_634)" "(syntax-e$2" -" s_389)" -" s_389)))" +" s_634)" +" s_634)))" "(if(pair?" -" s_390)" -"(if(let-values(((s_391)" +" s_635)" +"(if(let-values(((s_636)" "(car" -" s_390)))" +" s_635)))" " #t)" -"(let-values(((s_392)" +"(let-values(((s_637)" "(cdr" -" s_390)))" -"(let-values(((s_137)" +" s_635)))" +"(let-values(((s_638)" "(if(1/syntax?" -" s_392)" +" s_637)" "(syntax-e$2" -" s_392)" -" s_392)))" +" s_637)" +" s_637)))" "(null?" -" s_137)))" +" s_638)))" " #f)" " #f)))" " #f)" @@ -32077,179 +32247,182 @@ static const char *startup_source = " #f)" " #f))" "(let-values()" -"(let-values(((_89_1" -" tst90_1" -" thn91_1" -" els92_1)" -"(let-values(((s_138)" +"(let-values(((_89_640" +" tst90_641" +" thn91_642" +" els92_643)" +"(let-values(((s_644)" "(if(1/syntax?" -" s_381)" +" s_625)" "(syntax-e$2" -" s_381)" -" s_381)))" -"(let-values(((_93_0)" -"(let-values(((s_393)" +" s_625)" +" s_625)))" +"(let-values(((_93_645)" +"(let-values(((s_649)" "(car" -" s_138)))" -" s_393))" -"((tst94_0" -" thn95_0" -" els96_0)" -"(let-values(((s_394)" +" s_644)))" +" s_649))" +"((tst94_646" +" thn95_647" +" els96_648)" +"(let-values(((s_650)" "(cdr" -" s_138)))" -"(let-values(((s_395)" +" s_644)))" +"(let-values(((s_651)" "(if(1/syntax?" -" s_394)" +" s_650)" "(syntax-e$2" -" s_394)" -" s_394)))" -"(let-values(((tst97_0)" -"(let-values(((s_396)" +" s_650)" +" s_650)))" +"(let-values(((tst97_652)" +"(let-values(((s_655)" "(car" -" s_395)))" -" s_396))" -"((thn98_0" -" els99_0)" -"(let-values(((s_397)" +" s_651)))" +" s_655))" +"((thn98_653" +" els99_654)" +"(let-values(((s_656)" "(cdr" -" s_395)))" -"(let-values(((s_141)" +" s_651)))" +"(let-values(((s_657)" "(if(1/syntax?" -" s_397)" +" s_656)" "(syntax-e$2" -" s_397)" -" s_397)))" -"(let-values(((thn100_0)" -"(let-values(((s_398)" +" s_656)" +" s_656)))" +"(let-values(((thn100_658)" +"(let-values(((s_660)" "(car" -" s_141)))" -" s_398))" -"((els101_0)" -"(let-values(((s_399)" +" s_657)))" +" s_660))" +"((els101_659)" +"(let-values(((s_661)" "(cdr" -" s_141)))" -"(let-values(((s_142)" +" s_657)))" +"(let-values(((s_662)" "(if(1/syntax?" -" s_399)" +" s_661)" "(syntax-e$2" -" s_399)" -" s_399)))" -"(let-values(((els102_0)" -"(let-values(((s_400)" +" s_661)" +" s_661)))" +"(let-values(((els102_663)" +"(let-values(((s_664)" "(car" -" s_142)))" -" s_400))" +" s_662)))" +" s_664))" "(()" -"(let-values(((s_401)" +"(let-values(((s_665)" "(cdr" -" s_142)))" -"(let-values(((s_402)" +" s_662)))" +"(let-values(((s_666)" "(if(1/syntax?" -" s_401)" +" s_665)" "(syntax-e$2" -" s_401)" -" s_401)))" +" s_665)" +" s_665)))" "(values)))))" "(values" -" els102_0))))))" +" els102_663))))))" "(values" -" thn100_0" -" els101_0))))))" +" thn100_658" +" els101_659))))))" "(values" -" tst97_0" -" thn98_0" -" els99_0))))))" +" tst97_652" +" thn98_653" +" els99_654))))))" "(values" -" _93_0" -" tst94_0" -" thn95_0" -" els96_0)))))" +" _93_645" +" tst94_646" +" thn95_647" +" els96_648)))))" "(values" " #t" -" _89_1" -" tst90_1" -" thn91_1" -" els92_1)))" +" _89_640" +" tst90_641" +" thn91_642" +" els92_643)))" "(values" " #f" " #f" " #f" " #f" " #f)))))" -"(if ok?_25" +"(if ok?_601" "(if(not" -"(effects?_0 tst90_0 1 locals_2))" +"(effects?_12" +" tst90_603" +" 1" +" locals_0))" "(if(not" -"(effects?_0" -" thn91_0" -" expected-results_0" -" locals_2))" -"(loop_80 els92_0 locals_2)" +"(effects?_12" +" thn91_604" +" expected-results_7" +" locals_0))" +"(loop_23 els92_605 locals_0)" " #f)" " #f)" " #f)))))))))))))))))" -" loop_80)" -" e_36" -" locals_0)))" +" loop_23)" +" e_6" +" locals_8)))" "(not" -"(if actual-results_0" -"(let-values(((or-part_233)(not expected-results_0)))" -"(if or-part_233 or-part_233(= actual-results_0 expected-results_0)))" +"(if actual-results_13" +"(let-values(((or-part_679)(not expected-results_7)))" +"(if or-part_679 or-part_679(= actual-results_13 expected-results_7)))" " #f)))))))))))))" "(define-values" "(satisfies?)" -"(lambda(e_61 key_50 defns_2 locals_3)" +"(lambda(e_0 key_0 defns_0 locals_0)" "(begin" -"(let-values(((d_32)" -"(let-values(((or-part_234)(hash-ref locals_3 e_61 #f)))" -"(if or-part_234 or-part_234(lookup-defn defns_2 e_61)))))" -"(if d_32(if(known-satisfies? d_32)(eq? key_50(known-satisfies-predicate-key d_32)) #f) #f)))))" +"(let-values(((d_713)" +"(let-values(((or-part_714)(hash-ref locals_0 e_0 #f)))" +"(if or-part_714 or-part_714(lookup-defn defns_0 e_0)))))" +"(if d_713(if(known-satisfies? d_713)(eq? key_0(known-satisfies-predicate-key d_713)) #f) #f)))))" "(define-values" "(add-binding-info)" -"(lambda(locals_4 idss_0 rhss_0)" +"(lambda(locals_0 idss_0 rhss_0)" "(begin" -"(let-values(((lst_234) idss_0)((lst_235) rhss_0))" +"(let-values(((lst_718) idss_0)((lst_719) rhss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_234)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_235)))" -"((letrec-values(((for-loop_149)" -"(lambda(locals_5 lst_236 lst_237)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_718)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_719)))" +"((letrec-values(((for-loop_720)" +"(lambda(locals_1 lst_0 lst_1)" "(begin" " 'for-loop" -"(if(if(pair? lst_236)(pair? lst_237) #f)" -"(let-values(((ids_14)(unsafe-car lst_236))" -"((rest_130)(unsafe-cdr lst_236))" -"((rhs_10)(unsafe-car lst_237))" -"((rest_131)(unsafe-cdr lst_237)))" -"(let-values(((locals_6)" -"(let-values(((locals_7) locals_5))" -"(let-values(((locals_8)" +"(if(if(pair? lst_0)(pair? lst_1) #f)" +"(let-values(((ids_724)(unsafe-car lst_0))" +"((rest_725)(unsafe-cdr lst_0))" +"((rhs_726)(unsafe-car lst_1))" +"((rest_727)(unsafe-cdr lst_1)))" +"(let-values(((locals_728)" +"(let-values(((locals_729) locals_1))" +"(let-values(((locals_730)" "(let-values()" -"((letrec-values(((loop_91)" -"(lambda(rhs_11)" +"((letrec-values(((loop_731)" +"(lambda(rhs_0)" "(begin" " 'loop" -"(let-values(((tmp_27)" +"(let-values(((tmp_733)" "(if(pair?" "(correlated-e" -" rhs_11))" +" rhs_0))" "(correlated-e" "(car" "(correlated-e" -" rhs_11)))" +" rhs_0)))" " #f)))" "(if(equal?" -" tmp_27" +" tmp_733" " 'make-struct-type)" "(let-values()" -"(let-values(((field-count_0)" +"(let-values(((field-count_734)" "(extract-struct-field-count-lower-bound" -" rhs_11)))" -"(let-values(((lst_238)" +" rhs_0)))" +"(let-values(((lst_735)" "(correlated->list" -" ids_14))" -"((lst_239)" +" ids_724))" +"((lst_736)" " '(struct-type" " constructor" " predicate" @@ -32261,856 +32434,872 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_238)))" +" lst_735)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_239)))" -"((letrec-values(((for-loop_225)" -"(lambda(locals_9" -" lst_240" -" lst_241)" +" lst_736)))" +"((letrec-values(((for-loop_737)" +"(lambda(locals_2" +" lst_2" +" lst_3)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_240)" +" lst_2)" "(pair?" -" lst_241)" +" lst_3)" " #f)" -"(let-values(((id_52)" +"(let-values(((id_741)" "(unsafe-car" -" lst_240))" -"((rest_132)" +" lst_2))" +"((rest_742)" "(unsafe-cdr" -" lst_240))" -"((type_0)" +" lst_2))" +"((type_743)" "(unsafe-car" -" lst_241))" -"((rest_133)" +" lst_3))" +"((rest_744)" "(unsafe-cdr" -" lst_241)))" -"(let-values(((locals_10)" -"(let-values(((locals_11)" -" locals_9))" -"(let-values(((locals_12)" +" lst_3)))" +"(let-values(((locals_745)" +"(let-values(((locals_746)" +" locals_2))" +"(let-values(((locals_747)" "(let-values()" "(hash-set" -" locals_11" +" locals_746" "(correlated-e" -" id_52)" +" id_741)" "(known-struct-op8.1" -" type_0" -" field-count_0)))))" +" type_743" +" field-count_734)))))" "(values" -" locals_12)))))" +" locals_747)))))" "(if(not" " #f)" -"(for-loop_225" -" locals_10" -" rest_132" -" rest_133)" -" locals_10)))" -" locals_9)))))" -" for-loop_225)" -" locals_7" -" lst_238" -" lst_239)))))" +"(for-loop_737" +" locals_745" +" rest_742" +" rest_744)" +" locals_745)))" +" locals_2)))))" +" for-loop_737)" +" locals_729" +" lst_735" +" lst_736)))))" "(if(equal?" -" tmp_27" +" tmp_733" " 'let-values)" "(let-values()" "(if(null?" "(correlated-e" "(correlated-cadr" -" rhs_11)))" -"(loop_91" +" rhs_0)))" +"(loop_731" "(caddr" "(correlated->list" -" rhs_11)))" -"(loop_91 #f)))" +" rhs_0)))" +"(loop_731 #f)))" "(let-values()" -"(let-values(((lst_242)" +"(let-values(((lst_748)" "(correlated->list" -" ids_14)))" +" ids_724)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_242)))" -"((letrec-values(((for-loop_226)" -"(lambda(locals_13" -" lst_243)" +" lst_748)))" +"((letrec-values(((for-loop_749)" +"(lambda(locals_2" +" lst_2)" "(begin" " 'for-loop" "(if(pair?" -" lst_243)" -"(let-values(((id_53)" +" lst_2)" +"(let-values(((id_752)" "(unsafe-car" -" lst_243))" -"((rest_134)" +" lst_2))" +"((rest_753)" "(unsafe-cdr" -" lst_243)))" -"(let-values(((locals_14)" -"(let-values(((locals_15)" -" locals_13))" -"(let-values(((locals_16)" +" lst_2)))" +"(let-values(((locals_754)" +"(let-values(((locals_755)" +" locals_2))" +"(let-values(((locals_756)" "(let-values()" "(hash-set" -" locals_15" +" locals_755" "(correlated-e" -" id_53)" +" id_752)" " #t))))" "(values" -" locals_16)))))" +" locals_756)))))" "(if(not" " #f)" -"(for-loop_226" -" locals_14" -" rest_134)" -" locals_14)))" -" locals_13)))))" -" for-loop_226)" -" locals_7" -" lst_242)))))))))))" -" loop_91)" -" rhs_10))))" -"(values locals_8)))))" -"(if(not #f)(for-loop_149 locals_6 rest_130 rest_131) locals_6)))" -" locals_5)))))" -" for-loop_149)" -" locals_4" -" lst_234" -" lst_235))))))" +"(for-loop_749" +" locals_754" +" rest_753)" +" locals_754)))" +" locals_2)))))" +" for-loop_749)" +" locals_729" +" lst_748)))))))))))" +" loop_731)" +" rhs_726))))" +"(values locals_730)))))" +"(if(not #f)(for-loop_720 locals_728 rest_725 rest_727) locals_728)))" +" locals_1)))))" +" for-loop_720)" +" locals_0" +" lst_718" +" lst_719))))))" "(define-values" "(ok-make-struct-type-property?)" -"(lambda(e_62 defns_3)" +"(lambda(e_0 defns_0)" "(begin" -"(let-values(((l_57)(correlated->list e_62)))" -"(if(<= 2(length l_57) 5)" -"(let-values(((lst_244)(cdr l_57))" -"((lst_245)" +"(let-values(((l_759)(correlated->list e_0)))" +"(if(<= 2(length l_759) 5)" +"(let-values(((lst_760)(cdr l_759))" +"((lst_761)" "(list" -"(lambda(v_158)(quoted? symbol? v_158))" -"(lambda(v_159)(is-lambda? v_159 2 defns_3))" -"(lambda(v_160)(ok-make-struct-type-property-super? v_160 defns_3))" -"(lambda(v_161)" -"(let-values(((v103_0) v_161)((temp104_1) 1)((defns105_0) defns_3))" -"(any-side-effects?9.1 defns105_0 unsafe-undefined unsafe-undefined v103_0 temp104_1))))))" +"(lambda(v_0)(quoted? symbol? v_0))" +"(lambda(v_0)(is-lambda? v_0 2 defns_0))" +"(lambda(v_0)(ok-make-struct-type-property-super? v_0 defns_0))" +"(lambda(v_0)" +"(let-values(((v103_767) v_0)((temp104_768) 1)((defns105_769) defns_0))" +"(any-side-effects?9.1" +" defns105_769" +" unsafe-undefined" +" unsafe-undefined" +" v103_767" +" temp104_768))))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_244)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_245)))" -"((letrec-values(((for-loop_227)" -"(lambda(result_96 lst_246 lst_60)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_760)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_761)))" +"((letrec-values(((for-loop_770)" +"(lambda(result_0 lst_0 lst_1)" "(begin" " 'for-loop" -"(if(if(pair? lst_246)(pair? lst_60) #f)" -"(let-values(((arg_0)(unsafe-car lst_246))" -"((rest_27)(unsafe-cdr lst_246))" -"((pred_1)(unsafe-car lst_60))" -"((rest_135)(unsafe-cdr lst_60)))" -"(let-values(((result_97)" +"(if(if(pair? lst_0)(pair? lst_1) #f)" +"(let-values(((arg_774)(unsafe-car lst_0))" +"((rest_775)(unsafe-cdr lst_0))" +"((pred_776)(unsafe-car lst_1))" +"((rest_777)(unsafe-cdr lst_1)))" +"(let-values(((result_778)" "(let-values()" -"(let-values(((result_98)" -"(let-values()(let-values()(pred_1 arg_0)))))" -"(values result_98)))))" -"(if(if(not((lambda x_62(not result_97)) arg_0))" -"(if(not((lambda x_63(not result_97)) pred_1))(not #f) #f)" +"(let-values(((result_780)" +"(let-values()" +"(let-values()(pred_776 arg_774)))))" +"(values result_780)))))" +"(if(if(not((lambda x_0(not result_778)) arg_774))" +"(if(not((lambda x_0(not result_778)) pred_776))(not #f) #f)" " #f)" -"(for-loop_227 result_97 rest_27 rest_135)" -" result_97)))" -" result_96)))))" -" for-loop_227)" +"(for-loop_770 result_778 rest_775 rest_777)" +" result_778)))" +" result_0)))))" +" for-loop_770)" " #t" -" lst_244" -" lst_245)))" +" lst_760" +" lst_761)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_162 defns_4)" +"(lambda(v_0 defns_0)" "(begin" -"(let-values(((or-part_235)(quoted? null? v_162)))" -"(if or-part_235" -" or-part_235" -"(let-values(((or-part_236)(eq? 'null(correlated-e v_162))))" -"(if or-part_236" -" or-part_236" -"(if(pair?(correlated-e v_162))" -"(if(eq?(correlated-e(car(correlated-e v_162))) 'list)" -"(if(let-values(((lst_247)(cdr(correlated->list v_162))))" +"(let-values(((or-part_785)(quoted? null? v_0)))" +"(if or-part_785" +" or-part_785" +"(let-values(((or-part_786)(eq? 'null(correlated-e v_0))))" +"(if or-part_786" +" or-part_786" +"(if(pair?(correlated-e v_0))" +"(if(eq?(correlated-e(car(correlated-e v_0))) 'list)" +"(if(let-values(((lst_787)(cdr(correlated->list v_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_247)))" -"((letrec-values(((for-loop_228)" -"(lambda(result_99 lst_64)" +"(let-values()(check-list lst_787)))" +"((letrec-values(((for-loop_788)" +"(lambda(result_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_64)" -"(let-values(((prop+val_0)(unsafe-car lst_64))" -"((rest_29)(unsafe-cdr lst_64)))" -"(let-values(((result_100)" +"(if(pair? lst_0)" +"(let-values(((prop+val_791)(unsafe-car lst_0))" +"((rest_792)(unsafe-cdr lst_0)))" +"(let-values(((result_793)" "(let-values()" -"(let-values(((result_101)" +"(let-values(((result_795)" "(let-values()" "(let-values()" "(if(=" "(correlated-length" -" prop+val_0)" +" prop+val_791)" " 3)" -"(let-values(((prop+val_1)" +"(let-values(((prop+val_796)" "(correlated->list" -" prop+val_0)))" +" prop+val_791)))" "(if(eq?" " 'cons" "(correlated-e" -"(car prop+val_1)))" -"(if(let-values(((or-part_237)" +"(car prop+val_796)))" +"(if(let-values(((or-part_797)" "(memq" "(correlated-e" "(list-ref" -" prop+val_1" +" prop+val_796" " 1))" " '(prop:procedure" " prop:equal+hash" " prop:custom-write))))" -"(if or-part_237" -" or-part_237" +"(if or-part_797" +" or-part_797" "(known-property?" "(lookup-defn" -" defns_4" +" defns_0" "(correlated-e" "(list-ref" -" prop+val_1" +" prop+val_796" " 1))))))" "(not" -"(let-values(((temp106_1)" +"(let-values(((temp106_799)" "(list-ref" -" prop+val_1" +" prop+val_796" " 2))" -"((temp107_0)" +"((temp107_800)" " 1)" -"((defns108_0)" -" defns_4))" +"((defns108_801)" +" defns_0))" "(any-side-effects?9.1" -" defns108_0" +" defns108_801" " unsafe-undefined" " unsafe-undefined" -" temp106_1" -" temp107_0)))" +" temp106_799" +" temp107_800)))" " #f)" " #f))" " #f)))))" -"(values result_101)))))" -"(if(if(not((lambda x_64(not result_100)) prop+val_0))" +"(values result_795)))))" +"(if(if(not((lambda x_0(not result_793)) prop+val_791))" "(not #f)" " #f)" -"(for-loop_228 result_100 rest_29)" -" result_100)))" -" result_99)))))" -" for-loop_228)" +"(for-loop_788 result_793 rest_792)" +" result_793)))" +" result_0)))))" +" for-loop_788)" " #t" -" lst_247)))" +" lst_787)))" "(=" -"(sub1(correlated-length v_162))" +"(sub1(correlated-length v_0))" "(set-count" -"(let-values(((lst_248)(cdr(correlated->list v_162))))" +"(let-values(((lst_803)(cdr(correlated->list v_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_248)))" -"((letrec-values(((for-loop_229)" -"(lambda(table_172 lst_249)" +"(let-values()(check-list lst_803)))" +"((letrec-values(((for-loop_804)" +"(lambda(table_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_249)" -"(let-values(((prop+val_2)(unsafe-car lst_249))" -"((rest_136)(unsafe-cdr lst_249)))" -"(let-values(((table_173)" -"(let-values(((table_174) table_172))" -"(let-values(((table_175)" +"(if(pair? lst_0)" +"(let-values(((prop+val_807)(unsafe-car lst_0))" +"((rest_808)(unsafe-cdr lst_0)))" +"(let-values(((table_809)" +"(let-values(((table_810) table_0))" +"(let-values(((table_811)" "(let-values()" -"(let-values(((key_64 val_55)" +"(let-values(((key_812 val_813)" "(let-values()" "(values" "(let-values()" "(correlated-e" "(list-ref" "(correlated->list" -" prop+val_2)" +" prop+val_807)" " 1)))" " #t))))" "(hash-set" -" table_174" -" key_64" -" val_55)))))" -"(values table_175)))))" -"(if(not #f)(for-loop_229 table_173 rest_136) table_173)))" -" table_172)))))" -" for-loop_229)" +" table_810" +" key_812" +" val_813)))))" +"(values table_811)))))" +"(if(not #f)(for-loop_804 table_809 rest_808) table_809)))" +" table_0)))))" +" for-loop_804)" " '#hash()" -" lst_248)))))" +" lst_803)))))" " #f)" " #f)" " #f))))))))" "(define-values" "(ok-make-struct-type?)" -"(lambda(e_63 ready-variable?_1 defns_5)" +"(lambda(e_0 ready-variable?_0 defns_0)" "(begin" -"(let-values(((l_58)(correlated->list e_63)))" -"(let-values(((init-field-count-expr_0)(if(>(length l_58) 3)(list-ref l_58 3) #f)))" -"(let-values(((auto-field-count-expr_0)(if(>(length l_58) 4)(list-ref l_58 4) #f)))" -"(let-values(((num-fields_0)" +"(let-values(((l_817)(correlated->list e_0)))" +"(let-values(((init-field-count-expr_818)(if(>(length l_817) 3)(list-ref l_817 3) #f)))" +"(let-values(((auto-field-count-expr_819)(if(>(length l_817) 4)(list-ref l_817 4) #f)))" +"(let-values(((num-fields_820)" "(maybe+" -"(field-count-expr-to-field-count init-field-count-expr_0)" -"(field-count-expr-to-field-count auto-field-count-expr_0))))" -"(let-values(((immutables-expr_0)" -"(let-values(((or-part_238)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" -"(if or-part_238 or-part_238 'null))))" -"(let-values(((super-expr_0)(if(>(length l_58) 2)(list-ref l_58 2) #f)))" -"(if(>=(length l_58) 5)" -"(if(<=(length l_58) 12)" -"(let-values(((lst_250)(cdr l_58))" -"((lst_251)" +"(field-count-expr-to-field-count init-field-count-expr_818)" +"(field-count-expr-to-field-count auto-field-count-expr_819))))" +"(let-values(((immutables-expr_821)" +"(let-values(((or-part_823)(if(>(length l_817) 9)(list-ref l_817 9) #f)))" +"(if or-part_823 or-part_823 'null))))" +"(let-values(((super-expr_822)(if(>(length l_817) 2)(list-ref l_817 2) #f)))" +"(if(>=(length l_817) 5)" +"(if(<=(length l_817) 12)" +"(let-values(((lst_824)(cdr l_817))" +"((lst_825)" "(list" -"(lambda(v_163)(quoted? symbol? v_163))" -"(lambda(v_164)(super-ok? v_164 defns_5))" -"(lambda(v_165)(field-count-expr-to-field-count v_165))" -"(lambda(v_166)(field-count-expr-to-field-count v_166))" -"(lambda(v_167)" +"(lambda(v_0)(quoted? symbol? v_0))" +"(lambda(v_0)(super-ok? v_0 defns_0))" +"(lambda(v_0)(field-count-expr-to-field-count v_0))" +"(lambda(v_0)(field-count-expr-to-field-count v_0))" +"(lambda(v_0)" "(not" -"(let-values(((v109_0) v_167)" -"((temp110_0) 1)" -"((ready-variable?111_0) ready-variable?_1)" -"((defns112_0) defns_5))" +"(let-values(((v109_832) v_0)" +"((temp110_833) 1)" +"((ready-variable?111_834) ready-variable?_0)" +"((defns112_835) defns_0))" "(any-side-effects?9.1" -" defns112_0" +" defns112_835" " unsafe-undefined" -" ready-variable?111_0" -" v109_0" -" temp110_0))))" -"(lambda(v_168)" -"(known-good-struct-properties? v_168 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_169)(inspector-or-false? v_169))" -"(lambda(v_170)(procedure-spec? v_170 num-fields_0))" -"(lambda(v_171)(immutables-ok? v_171 init-field-count-expr_0)))))" +" ready-variable?111_834" +" v109_832" +" temp110_833))))" +"(lambda(v_0)" +"(known-good-struct-properties? v_0 immutables-expr_821 super-expr_822 defns_0))" +"(lambda(v_0)(inspector-or-false? v_0))" +"(lambda(v_0)(procedure-spec? v_0 num-fields_820))" +"(lambda(v_0)(immutables-ok? v_0 init-field-count-expr_818)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_250)))" +"(let-values()(check-list lst_824)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_251)))" -"((letrec-values(((for-loop_230)" -"(lambda(result_102 lst_252 lst_253)" +"(let-values()(check-list lst_825)))" +"((letrec-values(((for-loop_840)" +"(lambda(result_0 lst_0 lst_1)" "(begin" " 'for-loop" -"(if(if(pair? lst_252)(pair? lst_253) #f)" -"(let-values(((arg_1)(unsafe-car lst_252))" -"((rest_137)(unsafe-cdr lst_252))" -"((pred_2)(unsafe-car lst_253))" -"((rest_138)(unsafe-cdr lst_253)))" -"(let-values(((result_103)" +"(if(if(pair? lst_0)(pair? lst_1) #f)" +"(let-values(((arg_844)(unsafe-car lst_0))" +"((rest_845)(unsafe-cdr lst_0))" +"((pred_846)(unsafe-car lst_1))" +"((rest_847)(unsafe-cdr lst_1)))" +"(let-values(((result_848)" "(let-values()" -"(let-values(((result_104)" +"(let-values(((result_850)" "(let-values()" -"(let-values()(pred_2 arg_1)))))" -"(values result_104)))))" -"(if(if(not((lambda x_65(not result_103)) arg_1))" -"(if(not((lambda x_66(not result_103)) pred_2))" +"(let-values()" +"(pred_846 arg_844)))))" +"(values result_850)))))" +"(if(if(not((lambda x_0(not result_848)) arg_844))" +"(if(not((lambda x_0(not result_848)) pred_846))" "(not #f)" " #f)" " #f)" -"(for-loop_230 result_103 rest_137 rest_138)" -" result_103)))" -" result_102)))))" -" for-loop_230)" +"(for-loop_840 result_848 rest_845 rest_847)" +" result_848)))" +" result_0)))))" +" for-loop_840)" " #t" -" lst_250" -" lst_251)))" +" lst_824" +" lst_825)))" " #f)" " #f))))))))))" "(define-values" "(super-ok?)" -"(lambda(e_64 defns_6)" +"(lambda(e_0 defns_0)" "(begin" -"(let-values(((or-part_239)(quoted? false? e_64)))" -"(if or-part_239" -" or-part_239" -"(let-values(((o_0)(lookup-defn defns_6(correlated-e e_64))))" -"(if o_0(if(known-struct-op? o_0)(eq? 'struct-type(known-struct-op-type o_0)) #f) #f)))))))" +"(let-values(((or-part_855)(quoted? false? e_0)))" +"(if or-part_855" +" or-part_855" +"(let-values(((o_856)(lookup-defn defns_0(correlated-e e_0))))" +"(if o_856(if(known-struct-op? o_856)(eq? 'struct-type(known-struct-op-type o_856)) #f) #f)))))))" "(define-values" "(extract-struct-field-count-lower-bound)" -"(lambda(e_65)" +"(lambda(e_0)" "(begin" -"(let-values(((l_59)(correlated->list e_65)))" -"(+(field-count-expr-to-field-count(list-ref l_59 3))(field-count-expr-to-field-count(list-ref l_59 4)))))))" +"(let-values(((l_858)(correlated->list e_0)))" +"(+" +"(field-count-expr-to-field-count(list-ref l_858 3))" +"(field-count-expr-to-field-count(list-ref l_858 4)))))))" "(define-values" "(quoted?)" -"(lambda(val?_0 v_172)" +"(lambda(val?_0 v_0)" "(begin" -"(let-values(((or-part_240)" -"(if(pair?(correlated-e v_172))" -"(if(eq?(correlated-e(car(correlated-e v_172))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_172)))" +"(let-values(((or-part_861)" +"(if(pair?(correlated-e v_0))" +"(if(eq?(correlated-e(car(correlated-e v_0))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_0)))" " #f)" " #f)))" -"(if or-part_240 or-part_240(val?_0(correlated-e v_172)))))))" +"(if or-part_861 or-part_861(val?_0(correlated-e v_0)))))))" "(define-values" "(quoted-value)" -"(lambda(v_173)" -"(begin(if(pair?(correlated-e v_173))(correlated-e(correlated-cadr v_173))(correlated-e v_173)))))" -"(define-values(false?)(lambda(v_174)(begin(eq?(correlated-e v_174) #f))))" +"(lambda(v_0)(begin(if(pair?(correlated-e v_0))(correlated-e(correlated-cadr v_0))(correlated-e v_0)))))" +"(define-values(false?)(lambda(v_0)(begin(eq?(correlated-e v_0) #f))))" "(define-values" "(field-count-expr-to-field-count)" -"(lambda(v_175)(begin(if(quoted? exact-nonnegative-integer? v_175)(quoted-value v_175) #f))))" +"(lambda(v_0)(begin(if(quoted? exact-nonnegative-integer? v_0)(quoted-value v_0) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_176)" +"(lambda(v_0)" "(begin" -"(let-values(((or-part_241)(quoted? false? v_176)))" -"(if or-part_241" -" or-part_241" -"(let-values(((or-part_242)(if(quoted? symbol? v_176)(eq? 'prefab(quoted-value v_176)) #f)))" -"(if or-part_242" -" or-part_242" -"(if(= 1(correlated-length v_176))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_176))))" +"(let-values(((or-part_866)(quoted? false? v_0)))" +"(if or-part_866" +" or-part_866" +"(let-values(((or-part_867)(if(quoted? symbol? v_0)(eq? 'prefab(quoted-value v_0)) #f)))" +"(if or-part_867" +" or-part_867" +"(if(= 1(correlated-length v_0))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_0))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_177 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_0 immutables-expr_0 super-expr_0 defns_0)" "(begin" -"(let-values(((or-part_243)(quoted? null? v_177)))" -"(if or-part_243" -" or-part_243" -"(let-values(((or-part_244)(eq? 'null(correlated-e v_177))))" -"(if or-part_244" -" or-part_244" -"(if(pair?(correlated-e v_177))" -"(if(eq?(correlated-e(car(correlated-e v_177))) 'list)" -"(if(let-values(((lst_254)(cdr(correlated->list v_177))))" +"(let-values(((or-part_872)(quoted? null? v_0)))" +"(if or-part_872" +" or-part_872" +"(let-values(((or-part_873)(eq? 'null(correlated-e v_0))))" +"(if or-part_873" +" or-part_873" +"(if(pair?(correlated-e v_0))" +"(if(eq?(correlated-e(car(correlated-e v_0))) 'list)" +"(if(let-values(((lst_874)(cdr(correlated->list v_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_254)))" -"((letrec-values(((for-loop_231)" -"(lambda(result_105 lst_255)" +"(let-values()(check-list lst_874)))" +"((letrec-values(((for-loop_875)" +"(lambda(result_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_255)" -"(let-values(((prop+val_3)(unsafe-car lst_255))" -"((rest_139)(unsafe-cdr lst_255)))" -"(let-values(((result_106)" +"(if(pair? lst_0)" +"(let-values(((prop+val_878)(unsafe-car lst_0))" +"((rest_879)(unsafe-cdr lst_0)))" +"(let-values(((result_880)" "(let-values()" -"(let-values(((result_107)" +"(let-values(((result_882)" "(let-values()" "(let-values()" "(if(=" "(correlated-length" -" prop+val_3)" +" prop+val_878)" " 3)" -"(let-values(((prop+val_4)" +"(let-values(((prop+val_883)" "(correlated->list" -" prop+val_3)))" +" prop+val_878)))" "(if(eq?" " 'cons" "(correlated-e" -"(car prop+val_4)))" +"(car prop+val_883)))" "(known-good-struct-property+value?" -"(list-ref prop+val_4 1)" -"(list-ref prop+val_4 2)" -" immutables-expr_1" -" super-expr_1" -" defns_7)" +"(list-ref prop+val_883 1)" +"(list-ref prop+val_883 2)" +" immutables-expr_0" +" super-expr_0" +" defns_0)" " #f))" " #f)))))" -"(values result_107)))))" -"(if(if(not((lambda x_67(not result_106)) prop+val_3))" +"(values result_882)))))" +"(if(if(not((lambda x_0(not result_880)) prop+val_878))" "(not #f)" " #f)" -"(for-loop_231 result_106 rest_139)" -" result_106)))" -" result_105)))))" -" for-loop_231)" +"(for-loop_875 result_880 rest_879)" +" result_880)))" +" result_0)))))" +" for-loop_875)" " #t" -" lst_254)))" +" lst_874)))" "(=" -"(sub1(correlated-length v_177))" +"(sub1(correlated-length v_0))" "(set-count" -"(let-values(((lst_256)(cdr(correlated->list v_177))))" +"(let-values(((lst_885)(cdr(correlated->list v_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_256)))" -"((letrec-values(((for-loop_232)" -"(lambda(table_176 lst_136)" +"(let-values()(check-list lst_885)))" +"((letrec-values(((for-loop_886)" +"(lambda(table_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_136)" -"(let-values(((prop+val_5)(unsafe-car lst_136))" -"((rest_140)(unsafe-cdr lst_136)))" -"(let-values(((table_177)" -"(let-values(((table_178) table_176))" -"(let-values(((table_179)" +"(if(pair? lst_0)" +"(let-values(((prop+val_889)(unsafe-car lst_0))" +"((rest_890)(unsafe-cdr lst_0)))" +"(let-values(((table_891)" +"(let-values(((table_892) table_0))" +"(let-values(((table_893)" "(let-values()" -"(let-values(((key_65 val_56)" +"(let-values(((key_894 val_895)" "(let-values()" "(values" "(let-values()" "(correlated-e" "(list-ref" "(correlated->list" -" prop+val_5)" +" prop+val_889)" " 1)))" " #t))))" "(hash-set" -" table_178" -" key_65" -" val_56)))))" -"(values table_179)))))" -"(if(not #f)(for-loop_232 table_177 rest_140) table_177)))" -" table_176)))))" -" for-loop_232)" +" table_892" +" key_894" +" val_895)))))" +"(values table_893)))))" +"(if(not #f)(for-loop_886 table_891 rest_890) table_891)))" +" table_0)))))" +" for-loop_886)" " '#hash()" -" lst_256)))))" +" lst_885)))))" " #f)" " #f)" " #f))))))))" "(define-values" "(known-good-struct-property+value?)" -"(lambda(prop-expr_0 val-expr_0 immutables-expr_2 super-expr_2 defns_8)" +"(lambda(prop-expr_0 val-expr_0 immutables-expr_0 super-expr_0 defns_0)" "(begin" -"(let-values(((prop-name_0)(correlated-e prop-expr_0)))" -"(let-values(((tmp_28) prop-name_0))" -"(if(equal? tmp_28 'prop:evt)" +"(let-values(((prop-name_901)(correlated-e prop-expr_0)))" +"(let-values(((tmp_902) prop-name_901))" +"(if(equal? tmp_902 'prop:evt)" "(let-values()" -"(let-values(((or-part_245)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_245 or-part_245(immutable-field? val-expr_0 immutables-expr_2))))" -"(if(equal? tmp_28 'prop:procedure)" +"(let-values(((or-part_903)(is-lambda? val-expr_0 1 defns_0)))" +"(if or-part_903 or-part_903(immutable-field? val-expr_0 immutables-expr_0))))" +"(if(equal? tmp_902 'prop:procedure)" "(let-values()" -"(let-values(((or-part_246)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_246 or-part_246(immutable-field? val-expr_0 immutables-expr_2))))" -"(if(equal? tmp_28 'prop:custom-write)" -"(let-values()(is-lambda? val-expr_0 3 defns_8))" -"(if(equal? tmp_28 'prop:equal+hash)" +"(let-values(((or-part_904)(is-lambda? val-expr_0 1 defns_0)))" +"(if or-part_904 or-part_904(immutable-field? val-expr_0 immutables-expr_0))))" +"(if(equal? tmp_902 'prop:custom-write)" +"(let-values()(is-lambda? val-expr_0 3 defns_0))" +"(if(equal? tmp_902 'prop:equal+hash)" "(let-values()" -"(let-values(((l_60)(correlated->list val-expr_0)))" -"(if(eq? 'list(car l_60))" -"(if(is-lambda?(list-ref l_60 1) 3 defns_8)" -"(if(is-lambda?(list-ref l_60 2) 2 defns_8)(is-lambda?(list-ref l_60 3) 2 defns_8) #f)" +"(let-values(((l_905)(correlated->list val-expr_0)))" +"(if(eq? 'list(car l_905))" +"(if(is-lambda?(list-ref l_905 1) 3 defns_0)" +"(if(is-lambda?(list-ref l_905 2) 2 defns_0)(is-lambda?(list-ref l_905 3) 2 defns_0) #f)" " #f)" " #f)))" -"(if(if(equal? tmp_28 'prop:method-arity-error) #t(equal? tmp_28 'prop:incomplete-arity))" +"(if(if(equal? tmp_902 'prop:method-arity-error) #t(equal? tmp_902 'prop:incomplete-arity))" "(let-values()" "(not" -"(let-values(((val-expr113_0) val-expr_0)((temp114_0) 1)((defns115_0) defns_8))" -"(any-side-effects?9.1 defns115_0 unsafe-undefined unsafe-undefined val-expr113_0 temp114_0))))" -"(if(equal? tmp_28 'prop:impersonator-of)" -"(let-values()(is-lambda? val-expr_0 1 defns_8))" -"(if(equal? tmp_28 'prop:arity-string)" -"(let-values()(is-lambda? val-expr_0 1 defns_8))" -"(if(equal? tmp_28 'prop:checked-procedure)" -"(let-values()(if(quoted? false? super-expr_2)(immutable-field? 1 immutables-expr_2) #f))" -"(let-values()" -"(let-values(((o_1)(lookup-defn defns_8 prop-name_0)))" -"(if o_1" -"(if(known-property? o_1)" -"(not" -"(let-values(((val-expr116_0) val-expr_0)((temp117_0) 1)((defns118_0) defns_8))" +"(let-values(((val-expr113_907) val-expr_0)((temp114_908) 1)((defns115_909) defns_0))" "(any-side-effects?9.1" -" defns118_0" +" defns115_909" " unsafe-undefined" " unsafe-undefined" -" val-expr116_0" -" temp117_0)))" +" val-expr113_907" +" temp114_908))))" +"(if(equal? tmp_902 'prop:impersonator-of)" +"(let-values()(is-lambda? val-expr_0 1 defns_0))" +"(if(equal? tmp_902 'prop:arity-string)" +"(let-values()(is-lambda? val-expr_0 1 defns_0))" +"(if(equal? tmp_902 'prop:checked-procedure)" +"(let-values()(if(quoted? false? super-expr_0)(immutable-field? 1 immutables-expr_0) #f))" +"(let-values()" +"(let-values(((o_910)(lookup-defn defns_0 prop-name_901)))" +"(if o_910" +"(if(known-property? o_910)" +"(not" +"(let-values(((val-expr116_912) val-expr_0)" +"((temp117_913) 1)" +"((defns118_914) defns_0))" +"(any-side-effects?9.1" +" defns118_914" +" unsafe-undefined" +" unsafe-undefined" +" val-expr116_912" +" temp117_913)))" " #f)" " #f))))))))))))))))" "(define-values" "(is-lambda?)" -"(lambda(expr_9 arity_0 defns_9)" +"(lambda(expr_0 arity_0 defns_0)" "(begin" -"(let-values(((lookup_0)(lookup-defn defns_9 expr_9)))" -"(let-values(((or-part_247)" -"(if lookup_0" -"(if(known-function? lookup_0)" -"(let-values(((or-part_248)(not arity_0)))" -"(if or-part_248 or-part_248(arity-includes?(known-function-arity lookup_0) arity_0)))" +"(let-values(((lookup_918)(lookup-defn defns_0 expr_0)))" +"(let-values(((or-part_919)" +"(if lookup_918" +"(if(known-function? lookup_918)" +"(let-values(((or-part_920)(not arity_0)))" +"(if or-part_920 or-part_920(arity-includes?(known-function-arity lookup_918) arity_0)))" " #f)" " #f)))" -"(if or-part_247" -" or-part_247" -"(let-values(((or-part_249)" -"(if(pair?(correlated-e expr_9))" -"(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" +"(if or-part_919" +" or-part_919" +"(let-values(((or-part_921)" +"(if(pair?(correlated-e expr_0))" +"(if(eq? 'case-lambda(car(correlated-e expr_0)))(not arity_0) #f)" " #f)))" -"(if or-part_249" -" or-part_249" -"(if(pair?(correlated-e expr_9))" -"(if(eq? 'lambda(car(correlated-e expr_9)))" -"(let-values(((or-part_250)(not arity_0)))" -"(if or-part_250" -" or-part_250" -"((letrec-values(((loop_92)" -"(lambda(args_4 arity_1)" +"(if or-part_921" +" or-part_921" +"(if(pair?(correlated-e expr_0))" +"(if(eq? 'lambda(car(correlated-e expr_0)))" +"(let-values(((or-part_922)(not arity_0)))" +"(if or-part_922" +" or-part_922" +"((letrec-values(((loop_923)" +"(lambda(args_0 arity_1)" "(begin" " 'loop" -"(if(correlated? args_4)" -"(let-values()(loop_92(correlated-e args_4) arity_1))" -"(if(null? args_4)" +"(if(correlated? args_0)" +"(let-values()(loop_923(correlated-e args_0) arity_1))" +"(if(null? args_0)" "(let-values()(zero? arity_1))" -"(if(pair? args_4)" -"(let-values()(loop_92(cdr args_4)(sub1 arity_1)))" +"(if(pair? args_0)" +"(let-values()(loop_923(cdr args_0)(sub1 arity_1)))" "(let-values()(not(negative? arity_1))))))))))" -" loop_92)" -"(cadr(correlated->list expr_9))" +" loop_923)" +"(cadr(correlated->list expr_0))" " arity_0)))" " #f)" " #f)))))))))" "(define-values" "(arity-includes?)" -"(lambda(a_44 n_25)" +"(lambda(a_0 n_0)" "(begin" -"(let-values(((or-part_251)(equal? a_44 n_25)))" -"(if or-part_251" -" or-part_251" -"(if(list? a_44)" -"(let-values(((lst_257) a_44))" +"(let-values(((or-part_928)(equal? a_0 n_0)))" +"(if or-part_928" +" or-part_928" +"(if(list? a_0)" +"(let-values(((lst_929) a_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_257)))" -"((letrec-values(((for-loop_233)" -"(lambda(result_108 lst_258)" +"(let-values()(check-list lst_929)))" +"((letrec-values(((for-loop_930)" +"(lambda(result_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_258)" -"(let-values(((a_45)(unsafe-car lst_258))((rest_141)(unsafe-cdr lst_258)))" -"(let-values(((result_109)" +"(if(pair? lst_0)" +"(let-values(((a_933)(unsafe-car lst_0))((rest_934)(unsafe-cdr lst_0)))" +"(let-values(((result_935)" "(let-values()" -"(let-values(((result_110)" +"(let-values(((result_937)" "(let-values()" -"(let-values()(equal? a_45 n_25)))))" -"(values result_110)))))" -"(if(if(not((lambda x_68 result_109) a_45))(not #f) #f)" -"(for-loop_233 result_109 rest_141)" -" result_109)))" -" result_108)))))" -" for-loop_233)" +"(let-values()(equal? a_933 n_0)))))" +"(values result_937)))))" +"(if(if(not((lambda x_0 result_935) a_933))(not #f) #f)" +"(for-loop_930 result_935 rest_934)" +" result_935)))" +" result_0)))))" +" for-loop_930)" " #f" -" lst_257)))" +" lst_929)))" " #f))))))" "(define-values" "(immutable-field?)" -"(lambda(val-expr_1 immutables-expr_3)" +"(lambda(val-expr_0 immutables-expr_0)" "(begin" -"(if(quoted? exact-nonnegative-integer? val-expr_1)" -"(memv(quoted-value val-expr_1)(immutables-expr-to-immutables immutables-expr_3 null))" +"(if(quoted? exact-nonnegative-integer? val-expr_0)" +"(memv(quoted-value val-expr_0)(immutables-expr-to-immutables immutables-expr_0 null))" " #f))))" "(define-values" "(immutables-expr-to-immutables)" -"(lambda(e_66 fail-v_0)" +"(lambda(e_0 fail-v_0)" "(begin" -"(let-values(((tmp_29)(if(pair?(correlated-e e_66))(correlated-e(car(correlated-e e_66))) #f)))" -"(if(equal? tmp_29 'quote)" +"(let-values(((tmp_943)(if(pair?(correlated-e e_0))(correlated-e(car(correlated-e e_0))) #f)))" +"(if(equal? tmp_943 'quote)" "(let-values()" -"(let-values(((v_178)(correlated-cadr e_66)))" -"(let-values(((or-part_252)" -"(if(correlated-length v_178)" -"(let-values(((l_61)(map2 correlated-e(correlated->list v_178))))" -"(if(andmap2 exact-nonnegative-integer? l_61)" -"(if(=(length l_61)(set-count(list->set l_61))) l_61 #f)" +"(let-values(((v_944)(correlated-cadr e_0)))" +"(let-values(((or-part_945)" +"(if(correlated-length v_944)" +"(let-values(((l_946)(map2 correlated-e(correlated->list v_944))))" +"(if(andmap2 exact-nonnegative-integer? l_946)" +"(if(=(length l_946)(set-count(list->set l_946))) l_946 #f)" " #f))" " #f)))" -"(if or-part_252 or-part_252 fail-v_0))))" +"(if or-part_945 or-part_945 fail-v_0))))" "(let-values() fail-v_0))))))" "(define-values" "(procedure-spec?)" -"(lambda(e_67 field-count_1)" +"(lambda(e_0 field-count_0)" "(begin" -"(let-values(((or-part_253)(quoted? false? e_67)))" -"(if or-part_253" -" or-part_253" -"(let-values(((or-part_254)" -"(if(quoted? exact-nonnegative-integer? e_67)" -"(if field-count_1(<(quoted-value e_67) field-count_1) #f)" +"(let-values(((or-part_949)(quoted? false? e_0)))" +"(if or-part_949" +" or-part_949" +"(let-values(((or-part_950)" +"(if(quoted? exact-nonnegative-integer? e_0)" +"(if field-count_0(<(quoted-value e_0) field-count_0) #f)" " #f)))" -"(if or-part_254 or-part_254(is-lambda? e_67 #f '#hasheq()))))))))" +"(if or-part_950 or-part_950(is-lambda? e_0 #f '#hasheq()))))))))" "(define-values" "(immutables-ok?)" -"(lambda(e_68 init-field-count-expr_1)" +"(lambda(e_0 init-field-count-expr_0)" "(begin" -"(let-values(((l_62)(immutables-expr-to-immutables e_68 #f)))" -"(let-values(((c_24)(field-count-expr-to-field-count init-field-count-expr_1)))" -"(if l_62" -"(let-values(((lst_259) l_62))" +"(let-values(((l_953)(immutables-expr-to-immutables e_0 #f)))" +"(let-values(((c_954)(field-count-expr-to-field-count init-field-count-expr_0)))" +"(if l_953" +"(let-values(((lst_955) l_953))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_259)))" -"((letrec-values(((for-loop_95)" -"(lambda(result_111 lst_260)" +"(let-values()(check-list lst_955)))" +"((letrec-values(((for-loop_956)" +"(lambda(result_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_260)" -"(let-values(((n_26)(unsafe-car lst_260))((rest_142)(unsafe-cdr lst_260)))" -"(let-values(((result_112)" +"(if(pair? lst_0)" +"(let-values(((n_959)(unsafe-car lst_0))((rest_960)(unsafe-cdr lst_0)))" +"(let-values(((result_961)" "(let-values()" -"(let-values(((result_113)" -"(let-values()(let-values()(< n_26 c_24)))))" -"(values result_113)))))" -"(if(if(not((lambda x_69(not result_112)) n_26))(not #f) #f)" -"(for-loop_95 result_112 rest_142)" -" result_112)))" -" result_111)))))" -" for-loop_95)" +"(let-values(((result_963)" +"(let-values()" +"(let-values()(< n_959 c_954)))))" +"(values result_963)))))" +"(if(if(not((lambda x_0(not result_961)) n_959))(not #f) #f)" +"(for-loop_956 result_961 rest_960)" +" result_961)))" +" result_0)))))" +" for-loop_956)" " #t" -" lst_259)))" +" lst_955)))" " #f))))))" "(define-values" "(ok-make-struct-field-accessor/mutator?)" -"(lambda(e_69 locals_17 type_1 defns_10)" +"(lambda(e_0 locals_0 type_0 defns_0)" "(begin" -"(let-values(((l_63)(correlated->list e_69)))" -"(let-values(((a_46)" -"(if(let-values(((or-part_255)(=(length l_63) 3)))" -"(if or-part_255 or-part_255(=(length l_63) 4)))" -"(let-values(((or-part_256)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" -"(if or-part_256 or-part_256(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" +"(let-values(((l_969)(correlated->list e_0)))" +"(let-values(((a_970)" +"(if(let-values(((or-part_971)(=(length l_969) 3)))" +"(if or-part_971 or-part_971(=(length l_969) 4)))" +"(let-values(((or-part_972)(hash-ref locals_0(correlated-e(list-ref l_969 1)) #f)))" +"(if or-part_972 or-part_972(lookup-defn defns_0(correlated-e(list-ref l_969 1)))))" " #f)))" -"(if(known-struct-op? a_46)" -"(if(eq?(known-struct-op-type a_46) type_1)" -"(if(<(field-count-expr-to-field-count(list-ref l_63 2))(known-struct-op-field-count a_46))" -"(let-values(((or-part_257)(=(length l_63) 3)))" -"(if or-part_257 or-part_257(quoted? symbol?(list-ref l_63 3))))" +"(if(known-struct-op? a_970)" +"(if(eq?(known-struct-op-type a_970) type_0)" +"(if(<(field-count-expr-to-field-count(list-ref l_969 2))(known-struct-op-field-count a_970))" +"(let-values(((or-part_973)(=(length l_969) 3)))" +"(if or-part_973 or-part_973(quoted? symbol?(list-ref l_969 3))))" " #f)" " #f)" " #f))))))" -"(define-values(maybe+)(lambda(x_70 y_10)(begin(if x_70(if y_10(+ x_70 y_10) #f) #f))))" +"(define-values(maybe+)(lambda(x_0 y_0)(begin(if x_0(if y_0(+ x_0 y_0) #f) #f))))" "(define-values" "(compile-single)" -"(lambda(p_36 cctx_13)" +"(lambda(p_0 cctx_0)" "(begin" -"(let-values(((p12_0) p_36)((cctx13_0) cctx_13)((temp14_4) #f)((temp15_4) #t))" -"(compile-top9.1 temp14_4 temp15_4 #f p12_0 cctx13_0)))))" +"(let-values(((p12_4) p_0)((cctx13_5) cctx_0)((temp14_6) #f)((temp15_7) #t))" +"(compile-top9.1 temp14_6 temp15_7 #f p12_4 cctx13_5)))))" "(define-values" "(compile-top9.1)" "(lambda(serializable?1_0 single-expression?2_0 to-source?3_0 p7_0 cctx8_0)" "(begin" " 'compile-top9" -"(let-values(((p_37) p7_0))" +"(let-values(((p_13) p7_0))" "(let-values(((cctx_14) cctx8_0))" -"(let-values(((serializable?_1) serializable?1_0))" -"(let-values(((single-expression?_0) single-expression?2_0))" -"(let-values(((to-source?_2) to-source?3_0))" +"(let-values(((serializable?_15) serializable?1_0))" +"(let-values(((single-expression?_16) single-expression?2_0))" +"(let-values(((to-source?_17) to-source?3_0))" "(let-values()" "(let-values()" -"(let-values(((phase_85)(compile-context-phase cctx_14)))" -"(let-values(((mpis_18)(make-module-path-index-table)))" -"(let-values(((purely-functional?_0) #t))" -"(let-values(((body-linklets_1" -" min-phase_1" -" max-phase_1" -" phase-to-link-module-uses_3" -" phase-to-link-module-uses-expr_2" -" phase-to-link-extra-inspectorss_0" -" syntax-literals_3" -" no-root-context-pos_0)" -"(let-values(((temp16_4)(list p_37))" -"((cctx17_0) cctx_14)" -"((mpis18_0) mpis_18)" -"((temp19_1)" -"(if single-expression?_0" +"(let-values(((phase_18)(compile-context-phase cctx_14)))" +"(let-values(((mpis_19)(make-module-path-index-table)))" +"(let-values(((purely-functional?_20) #t))" +"(let-values(((body-linklets_21" +" min-phase_22" +" max-phase_23" +" phase-to-link-module-uses_24" +" phase-to-link-module-uses-expr_25" +" phase-to-link-extra-inspectorss_26" +" syntax-literals_27" +" no-root-context-pos_28)" +"(let-values(((temp16_32)(list p_13))" +"((cctx17_33) cctx_14)" +"((mpis18_34) mpis_19)" +"((temp19_35)" +"(if single-expression?_16" "(list* '()(list syntax-literals-id) '(()))" "(list" "(list top-level-bind!-id top-level-require!-id)" "(list mpi-vector-id syntax-literals-id)" " instance-imports)))" -"((temp20_1)" +"((temp20_36)" "(list" " top-level-instance" " empty-top-syntax-literal-instance" " empty-instance-instance))" -"((to-source?21_0) to-source?_2)" -"((serializable?22_0) serializable?_1)" -"((temp23_3)(lambda()(set! purely-functional?_0 #f)))" -"((temp24_3)" -"(lambda(e_70 expected-results_2 phase_22 required-reference?_0)" -"(if(if purely-functional?_0" -"(let-values(((e27_0) e_70)" -"((expected-results28_0) expected-results_2)" -"((required-reference?29_0)" +"((to-source?21_37) to-source?_17)" +"((serializable?22_38) serializable?_15)" +"((temp23_39)(lambda()(set! purely-functional?_20 #f)))" +"((temp24_40)" +"(lambda(e_0 expected-results_0 phase_0 required-reference?_0)" +"(if(if purely-functional?_20" +"(let-values(((e27_48) e_0)" +"((expected-results28_49) expected-results_0)" +"((required-reference?29_50)" " required-reference?_0))" "(any-side-effects?9.1" " unsafe-undefined" " unsafe-undefined" -" required-reference?29_0" -" e27_0" -" expected-results28_0))" +" required-reference?29_50" +" e27_48" +" expected-results28_49))" " #f)" -"(let-values()(set! purely-functional?_0 #f))" +"(let-values()(set! purely-functional?_20 #f))" "(void))))" -"((temp25_3)" -"(lambda(s_43 cctx_15)" +"((temp25_41)" +"(lambda(s_0 cctx_0)" "(begin" -"(set! purely-functional?_0 #f)" -"(compile-top-level-require s_43 cctx_15))))" -"((temp26_2)(not single-expression?_0)))" +"(set! purely-functional?_20 #f)" +"(compile-top-level-require s_0 cctx_0))))" +"((temp26_42)(not single-expression?_16)))" "(compile-forms31.1" -" temp20_1" -" temp19_1" +" temp20_36" +" temp19_35" " null" -" temp24_3" -" temp26_2" -" temp23_3" +" temp24_40" +" temp26_42" +" temp23_39" " #f" " null" " unsafe-undefined" -" temp25_3" +" temp25_41" " #f" -" serializable?22_0" -" to-source?21_0" -" temp16_4" -" cctx17_0" -" mpis18_0))))" -"(let-values(((add-metadata_0)" -"(lambda(ht_117)" +" serializable?22_38" +" to-source?21_37" +" temp16_32" +" cctx17_33" +" mpis18_34))))" +"(let-values(((add-metadata_29)" +"(lambda(ht_0)" "(begin" " 'add-metadata" -"(let-values(((ht_118)(hash-set ht_117 'original-phase phase_85)))" -"(let-values(((ht_119)(hash-set ht_118 'max-phase max-phase_1)))" -" ht_119))))))" -"(let-values(((bundle_0)" -"((if to-source?_2 values 1/hash->linklet-bundle)" -"(add-metadata_0" -"(if serializable?_1" +"(let-values(((ht_54)(hash-set ht_0 'original-phase phase_18)))" +"(let-values(((ht_55)(hash-set ht_54 'max-phase max-phase_23)))" +" ht_55))))))" +"(let-values(((bundle_30)" +"((if to-source?_17 values 1/hash->linklet-bundle)" +"(add-metadata_29" +"(if serializable?_15" "(let-values()" -"(let-values(((syntax-literals-expr_1)" +"(let-values(((syntax-literals-expr_56)" "(let-values()" "(generate-eager-syntax-literals!" -" syntax-literals_3" -" mpis_18" -" phase_85" +" syntax-literals_27" +" mpis_19" +" phase_18" "(compile-context-self cctx_14)" "(compile-context-namespace cctx_14)))))" -"(let-values(((link-linklet_0)" -"((if to-source?_2" +"(let-values(((link-linklet_57)" +"((if to-source?_17" " values" -"(lambda(s_35)" +"(lambda(s_0)" "(let-values()" -"(let-values(((linklet_2 new-keys_0)" +"(let-values(((linklet_59 new-keys_60)" "(1/compile-linklet" -" s_35" +" s_0" " #f" "(vector" " deserialize-instance" " empty-eager-instance-instance)" "(lambda(inst_0)" "(values inst_0 #f)))))" -" linklet_2))))" +" linklet_59))))" "(list" " 'linklet" "(list deserialize-imports eager-instance-imports)" @@ -33122,47 +33311,47 @@ static const char *startup_source = "(list" " 'define-values" "(list mpi-vector-id)" -"(generate-module-path-index-deserialize mpis_18))" +"(generate-module-path-index-deserialize mpis_19))" "(list" " 'define-values" "(list deserialized-syntax-vector-id)" -"(list* 'make-vector(add1 phase_85) '(#f)))" +"(list* 'make-vector(add1 phase_18) '(#f)))" "(list" " 'define-values" " '(phase-to-link-modules)" -" phase-to-link-module-uses-expr_2)" +" phase-to-link-module-uses-expr_25)" "(list" " 'define-values" "(list syntax-literals-id)" -" syntax-literals-expr_1)))))" -"(hash-set body-linklets_1 'link link-linklet_0))))" -"(let-values() body-linklets_1))))))" -"(if to-source?_2" -"(let-values()(hasheq #f bundle_0))" +" syntax-literals-expr_56)))))" +"(hash-set body-linklets_21 'link link-linklet_57))))" +"(let-values() body-linklets_21))))))" +"(if to-source?_17" +"(let-values()(hasheq #f bundle_30))" "(let-values()" "(compiled-in-memory1.1" -"(1/hash->linklet-directory(hasheq #f bundle_0))" +"(1/hash->linklet-directory(hasheq #f bundle_30))" " #f" " #f" " #f" -" phase-to-link-module-uses_3" +" phase-to-link-module-uses_24" "(current-code-inspector)" -" phase-to-link-extra-inspectorss_0" -"(mpis-as-vector mpis_18)" -"(syntax-literals-as-vector syntax-literals_3)" +" phase-to-link-extra-inspectorss_26" +"(mpis-as-vector mpis_19)" +"(syntax-literals-as-vector syntax-literals_27)" " null" " null" "(extract-namespace-scopes(compile-context-namespace cctx_14))" -" purely-functional?_0)))))))))))))))))))" +" purely-functional?_20)))))))))))))))))))" "(define-values" "(compile-top-level-require)" -"(lambda(p_38 cctx_16)" +"(lambda(p_0 cctx_0)" "(begin" -"(let-values(((phase_86)(compile-context-phase cctx_16)))" -"(if(parsed-require? p_38)" +"(let-values(((phase_93)(compile-context-phase cctx_0)))" +"(if(parsed-require? p_0)" "(let-values()" -"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_38)) cctx_16)))" -"(list top-level-require!-id form-stx_0 ns-id)))" +"(let-values(((form-stx_94)(compile-quote-syntax(syntax-disarm$1(parsed-s p_0)) cctx_0)))" +"(list top-level-require!-id form-stx_94 ns-id)))" "(let-values() #f))))))" "(define-values" "(select-defined-syms-and-bind!16.1)" @@ -33178,324 +33367,324 @@ static const char *startup_source = " all-scopes-stx15_0)" "(begin" " 'select-defined-syms-and-bind!16" -"(let-values(((ids_15) ids11_0))" -"(let-values(((defined-syms_8) defined-syms12_0))" -"(let-values(((self_19) self13_0))" -"(let-values(((phase_87) phase14_0))" -"(let-values(((all-scopes-stx_3) all-scopes-stx15_0))" -"(let-values(((frame-id_7) frame-id1_0))" -"(let-values(((top-level-bind-scope_3) top-level-bind-scope2_0))" -"(let-values(((requires+provides_4) requires+provides3_0))" -"(let-values(((orig-s_28) in4_0))" -"(let-values(((as-transformer?_5) as-transformer?5_0))" +"(let-values(((ids_28) ids11_0))" +"(let-values(((defined-syms_29) defined-syms12_0))" +"(let-values(((self_30) self13_0))" +"(let-values(((phase_31) phase14_0))" +"(let-values(((all-scopes-stx_32) all-scopes-stx15_0))" +"(let-values(((frame-id_33) frame-id1_0))" +"(let-values(((top-level-bind-scope_34) top-level-bind-scope2_0))" +"(let-values(((requires+provides_35) requires+provides3_0))" +"(let-values(((orig-s_36) in4_0))" +"(let-values(((as-transformer?_37) as-transformer?5_0))" "(let-values()" -"(let-values(((defined-syms-at-phase_0)" -"(let-values(((or-part_82)(hash-ref defined-syms_8 phase_87 #f)))" -"(if or-part_82" -" or-part_82" -"(let-values(((ht_120)(make-hasheq)))" -"(begin(hash-set! defined-syms_8 phase_87 ht_120) ht_120))))))" +"(let-values(((defined-syms-at-phase_38)" +"(let-values(((or-part_39)(hash-ref defined-syms_29 phase_31 #f)))" +"(if or-part_39" +" or-part_39" +"(let-values(((ht_40)(make-hasheq)))" +"(begin(hash-set! defined-syms_29 phase_31 ht_40) ht_40))))))" "(reverse$1" -"(let-values(((lst_261) ids_15))" +"(let-values(((lst_41) ids_28))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_261)))" -"((letrec-values(((for-loop_234)" -"(lambda(fold-var_73 lst_90)" +"(let-values()(check-list lst_41)))" +"((letrec-values(((for-loop_42)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_90)" -"(let-values(((id_54)(unsafe-car lst_90))" -"((rest_143)(unsafe-cdr lst_90)))" -"(let-values(((fold-var_12)" -"(let-values(((fold-var_160) fold-var_73))" -"(let-values(((fold-var_94)" +"(if(pair? lst_0)" +"(let-values(((id_45)(unsafe-car lst_0))" +"((rest_46)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_47)" +"(let-values(((fold-var_48) fold-var_0))" +"(let-values(((fold-var_49)" "(let-values()" "(cons" "(let-values()" -"(let-values(((sym_62)" +"(let-values(((sym_50)" "(syntax-e$1" -" id_54)))" -"(let-values(((defined-sym_0)" +" id_45)))" +"(let-values(((defined-sym_51)" "(if(if(not" "(defined-as-other?" "(hash-ref" -" defined-syms-at-phase_0" -" sym_62" +" defined-syms-at-phase_38" +" sym_50" " #f)" -" id_54" -" phase_87" -" top-level-bind-scope_3))" +" id_45" +" phase_31" +" top-level-bind-scope_34))" "(if(no-extra-scopes?" -" id_54" -" all-scopes-stx_3" -" top-level-bind-scope_3" -" phase_87)" +" id_45" +" all-scopes-stx_32" +" top-level-bind-scope_34" +" phase_31)" "(symbol-interned?" -" sym_62)" +" sym_50)" " #f)" " #f)" -" sym_62" -"((letrec-values(((loop_81)" -"(lambda(pos_98)" +" sym_50" +"((letrec-values(((loop_53)" +"(lambda(pos_0)" "(begin" " 'loop" -"(let-values(((s_183)" +"(let-values(((s_55)" "(string->unreadable-symbol" "(format" " \"~a.~a\"" -" sym_62" -" pos_98))))" +" sym_50" +" pos_0))))" "(if(defined-as-other?" "(hash-ref" -" defined-syms-at-phase_0" -" s_183" +" defined-syms-at-phase_38" +" s_55" " #f)" -" id_54" -" phase_87" -" top-level-bind-scope_3)" -"(loop_81" +" id_45" +" phase_31" +" top-level-bind-scope_34)" +"(loop_53" "(add1" -" pos_98))" -" s_183))))))" -" loop_81)" +" pos_0))" +" s_55))))))" +" loop_53)" " 1))))" "(let-values((()" "(begin" "(hash-set!" -" defined-syms-at-phase_0" -" defined-sym_0" -" id_54)" +" defined-syms-at-phase_38" +" defined-sym_51" +" id_45)" "(values))))" -"(let-values(((b_75)" -"(let-values(((self23_0)" -" self_19)" -"((phase24_0)" -" phase_87)" -"((defined-sym25_0)" -" defined-sym_0)" -"((frame-id26_0)" -" frame-id_7)" -"((sym27_1)" -" sym_62))" +"(let-values(((b_52)" +"(let-values(((self23_57)" +" self_30)" +"((phase24_58)" +" phase_31)" +"((defined-sym25_59)" +" defined-sym_51)" +"((frame-id26_60)" +" frame-id_33)" +"((sym27_61)" +" sym_50))" "(make-module-binding22.1" " #f" " null" -" frame-id26_0" +" frame-id26_60" " #f" " unsafe-undefined" " unsafe-undefined" " 0" -" sym27_1" +" sym27_61" " unsafe-undefined" -" self23_0" -" phase24_0" -" defined-sym25_0))))" +" self23_57" +" phase24_58" +" defined-sym25_59))))" "(begin" -"(if requires+provides_4" +"(if requires+provides_35" "(let-values()" -"(let-values(((requires+provides28_0)" -" requires+provides_4)" -"((id29_0)" -" id_54)" -"((phase30_0)" -" phase_87)" -"((b31_0)" -" b_75))" +"(let-values(((requires+provides28_63)" +" requires+provides_35)" +"((id29_64)" +" id_45)" +"((phase30_65)" +" phase_31)" +"((b31_66)" +" b_52))" "(remove-required-id!75.1" -" b31_0" -" requires+provides28_0" -" id29_0" -" phase30_0)))" +" b31_66" +" requires+provides28_63" +" id29_64" +" phase30_65)))" "(void))" -"(let-values(((id19_0)" -" id_54)" -"((b20_0)" -" b_75)" -"((phase21_1)" -" phase_87)" -"((orig-s22_0)" -" orig-s_28))" +"(let-values(((id19_68)" +" id_45)" +"((b20_69)" +" b_52)" +"((phase21_70)" +" phase_31)" +"((orig-s22_71)" +" orig-s_36))" "(add-binding!17.1" -" orig-s22_0" +" orig-s22_71" " #f" -" id19_0" -" b20_0" -" phase21_1))" -"(if requires+provides_4" +" id19_68" +" b20_69" +" phase21_70))" +"(if requires+provides_35" "(let-values()" -"(let-values(((requires+provides32_0)" -" requires+provides_4)" -"((id33_0)" -" id_54)" -"((phase34_0)" -" phase_87)" -"((b35_0)" -" b_75)" -"((as-transformer?36_0)" -" as-transformer?_5))" +"(let-values(((requires+provides32_73)" +" requires+provides_35)" +"((id33_74)" +" id_45)" +"((phase34_75)" +" phase_31)" +"((b35_76)" +" b_52)" +"((as-transformer?36_77)" +" as-transformer?_37))" "(add-defined-or-required-id!19.1" -" as-transformer?36_0" +" as-transformer?36_77" " #f" -" requires+provides32_0" -" id33_0" -" phase34_0" -" b35_0)))" +" requires+provides32_73" +" id33_74" +" phase34_75" +" b35_76)))" "(void))" -" defined-sym_0))))))" -" fold-var_160))))" -"(values fold-var_94)))))" +" defined-sym_51))))))" +" fold-var_48))))" +"(values fold-var_49)))))" "(if(not #f)" -"(for-loop_234 fold-var_12 rest_143)" -" fold-var_12)))" -" fold-var_73)))))" -" for-loop_234)" +"(for-loop_42 fold-var_47 rest_46)" +" fold-var_47)))" +" fold-var_0)))))" +" for-loop_42)" " null" -" lst_261)))))))))))))))))))" +" lst_41)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" -"(lambda(id_55 all-scopes-stx_4 top-level-bind-scope_4 phase_73)" +"(lambda(id_0 all-scopes-stx_0 top-level-bind-scope_0 phase_0)" "(begin" -"(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_55))))" -"(let-values(((or-part_210)(bound-identifier=?$1 id_55 m-id_0 phase_73)))" -"(if or-part_210" -" or-part_210" -"(if top-level-bind-scope_4" -"(bound-identifier=?$1 id_55(add-scope m-id_0 top-level-bind-scope_4) phase_73)" +"(let-values(((m-id_115)(datum->syntax$1 all-scopes-stx_0(syntax-e$1 id_0))))" +"(let-values(((or-part_116)(bound-identifier=?$1 id_0 m-id_115 phase_0)))" +"(if or-part_116" +" or-part_116" +"(if top-level-bind-scope_0" +"(bound-identifier=?$1 id_0(add-scope m-id_115 top-level-bind-scope_0) phase_0)" " #f)))))))" "(define-values" "(defined-as-other?)" -"(lambda(prev-id_0 id_56 phase_88 top-level-bind-scope_5)" +"(lambda(prev-id_0 id_0 phase_0 top-level-bind-scope_0)" "(begin" "(if prev-id_0" -"(if(not(bound-identifier=?$1 prev-id_0 id_56 phase_88))" -"(let-values(((or-part_258)(not top-level-bind-scope_5)))" -"(if or-part_258" -" or-part_258" +"(if(not(bound-identifier=?$1 prev-id_0 id_0 phase_0))" +"(let-values(((or-part_121)(not top-level-bind-scope_0)))" +"(if or-part_121" +" or-part_121" "(not" "(bound-identifier=?$1" -"(remove-scope prev-id_0 top-level-bind-scope_5)" -"(remove-scope id_56 top-level-bind-scope_5)" -" phase_88))))" +"(remove-scope prev-id_0 top-level-bind-scope_0)" +"(remove-scope id_0 top-level-bind-scope_0)" +" phase_0))))" " #f)" " #f))))" "(define-values" "(select-defined-syms-and-bind!/ctx)" -"(lambda(tl-ids_0 ctx_10)" +"(lambda(tl-ids_0 ctx_0)" "(begin" -"(let-values(((tl-ids37_0) tl-ids_0)" -"((temp38_1)(root-expand-context-defined-syms ctx_10))" -"((temp39_2)(root-expand-context-self-mpi ctx_10))" -"((temp40_1)(expand-context-phase ctx_10))" -"((temp41_0)(root-expand-context-all-scopes-stx ctx_10))" -"((temp42_1)(root-expand-context-frame-id ctx_10))" -"((temp43_1)(root-expand-context-top-level-bind-scope ctx_10)))" +"(let-values(((tl-ids37_125) tl-ids_0)" +"((temp38_126)(root-expand-context-defined-syms ctx_0))" +"((temp39_127)(root-expand-context-self-mpi ctx_0))" +"((temp40_128)(expand-context-phase ctx_0))" +"((temp41_129)(root-expand-context-all-scopes-stx ctx_0))" +"((temp42_130)(root-expand-context-frame-id ctx_0))" +"((temp43_131)(root-expand-context-top-level-bind-scope ctx_0)))" "(select-defined-syms-and-bind!16.1" " #f" -" temp42_1" +" temp42_130" " #f" " #f" -" temp43_1" -" tl-ids37_0" -" temp38_1" -" temp39_2" -" temp40_1" -" temp41_0)))))" +" temp43_131" +" tl-ids37_125" +" temp38_126" +" temp39_127" +" temp40_128" +" temp41_129)))))" "(define-values" "(add-defined-sym!)" -"(lambda(defined-syms_9 phase_78 sym_63 id_57)" +"(lambda(defined-syms_0 phase_0 sym_0 id_0)" "(begin" -"(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_219)(hash-ref defined-syms_9 phase_78 #f)))" -"(if or-part_219" -" or-part_219" -"(let-values(((ht_121)(make-hasheq)))" -"(begin(hash-set! defined-syms_9 phase_78 ht_121) ht_121))))))" -"(hash-set! defined-syms-at-phase_1 sym_63 id_57)))))" +"(let-values(((defined-syms-at-phase_136)" +"(let-values(((or-part_137)(hash-ref defined-syms_0 phase_0 #f)))" +"(if or-part_137" +" or-part_137" +"(let-values(((ht_138)(make-hasheq)))" +"(begin(hash-set! defined-syms_0 phase_0 ht_138) ht_138))))))" +"(hash-set! defined-syms-at-phase_136 sym_0 id_0)))))" "(define-values" "(make-create-root-expand-context-from-module)" -"(lambda(requires_3 evaled-ld-h_0)" +"(lambda(requires_0 evaled-ld-h_0)" "(begin" -"(lambda(ns_59 phase-shift_13 original-self_0 self_20)" -"(let-values(((root-ctx_4)" -"(let-values(((temp1_3)(namespace-mpi ns_59)))" -"(make-root-expand-context13.1 #f null unsafe-undefined unsafe-undefined temp1_3))))" -"(let-values(((s_3)(add-scopes empty-syntax(root-expand-context-module-scopes root-ctx_4))))" +"(lambda(ns_0 phase-shift_0 original-self_0 self_0)" +"(let-values(((root-ctx_7)" +"(let-values(((temp1_11)(namespace-mpi ns_0)))" +"(make-root-expand-context13.1 #f null unsafe-undefined unsafe-undefined temp1_11))))" +"(let-values(((s_8)(add-scopes empty-syntax(root-expand-context-module-scopes root-ctx_7))))" "(let-values((()" "(begin" -"(let-values(((lst_221) requires_3))" +"(let-values(((lst_12) requires_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_221)))" -"((letrec-values(((for-loop_235)" -"(lambda(lst_16)" +"(let-values()(check-list lst_12)))" +"((letrec-values(((for-loop_13)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_16)" -"(let-values(((phase+reqs_0)(unsafe-car lst_16))" -"((rest_4)(unsafe-cdr lst_16)))" +"(if(pair? lst_0)" +"(let-values(((phase+reqs_15)(unsafe-car lst_0))" +"((rest_16)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_34)" +"(let-values(((phase_17)" "(car" -" phase+reqs_0)))" +" phase+reqs_15)))" "(begin" -"(let-values(((lst_262)" +"(let-values(((lst_18)" "(cdr" -" phase+reqs_0)))" +" phase+reqs_15)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_262)))" -"((letrec-values(((for-loop_236)" -"(lambda(lst_82)" +" lst_18)))" +"((letrec-values(((for-loop_19)" +"(lambda(lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_82)" -"(let-values(((req_4)" +" lst_1)" +"(let-values(((req_21)" "(unsafe-car" -" lst_82))" -"((rest_38)" +" lst_1))" +"((rest_22)" "(unsafe-cdr" -" lst_82)))" +" lst_1)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((mpi_43)" +"(let-values(((mpi_23)" "(module-path-index-shift" -" req_4" +" req_21" " original-self_0" -" self_20)))" -"(let-values(((mpi2_1)" -" mpi_43)" -"((s3_0)" -" s_3)" -"((self4_3)" -" self_20)" -"((s5_1)" -" s_3)" -"((ns6_0)" -" ns_59)" -"((temp7_1)" +" self_0)))" +"(let-values(((mpi2_25)" +" mpi_23)" +"((s3_26)" +" s_8)" +"((self4_27)" +" self_0)" +"((s5_28)" +" s_8)" +"((ns6_29)" +" ns_0)" +"((temp7_30)" "(phase+" -" phase_34" -" phase-shift_13))" -"((phase-shift8_0)" -" phase-shift_13)" -"((temp9_2)" +" phase_17" +" phase-shift_0))" +"((phase-shift8_31)" +" phase-shift_0)" +"((temp9_32)" " 'module))" "(perform-require!78.1" " #f" @@ -33505,51 +33694,50 @@ static const char *startup_source = " #f" " #f" " 'all" -" temp7_1" +" temp7_30" " #f" -" phase-shift8_0" +" phase-shift8_31" " #f" " #f" " #t" -" temp9_2" -" mpi2_1" -" s3_0" -" self4_3" -" s5_1" -" ns6_0))))" +" temp9_32" +" mpi2_25" +" s3_26" +" self4_27" +" s5_28" +" ns6_29))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_236" -" rest_38)" +"(for-loop_19" +" rest_22)" "(values))))" "(values))))))" -" for-loop_236)" -" lst_262)))" +" for-loop_19)" +" lst_18)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_235 rest_4)(values))))" +"(if(not #f)(for-loop_13 rest_16)(values))))" "(values))))))" -" for-loop_235)" -" lst_221)))" +" for-loop_13)" +" lst_12)))" "(values))))" "(let-values()" -"(let-values(((defined-syms_10)(root-expand-context-defined-syms root-ctx_4)))" +"(let-values(((defined-syms_9)(root-expand-context-defined-syms root-ctx_7)))" "(begin" -"(let-values(((ht_122) evaled-ld-h_0))" +"(let-values(((ht_33) evaled-ld-h_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_122)))" -"((letrec-values(((for-loop_109)" -"(lambda(i_145)" +"(let-values()(check-in-hash ht_33)))" +"((letrec-values(((for-loop_34)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_145" -"(let-values(((phase_89 linklet_3)" -"(hash-iterate-key+value ht_122 i_145)))" +"(if i_0" +"(let-values(((phase_36 linklet_37)(hash-iterate-key+value ht_33 i_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33557,47 +33745,47 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_263)" +"(let-values(((lst_38)" "(1/linklet-export-variables" -" linklet_3)))" +" linklet_37)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_263)))" -"((letrec-values(((for-loop_237)" -"(lambda(lst_264)" +"(check-list lst_38)))" +"((letrec-values(((for-loop_39)" +"(lambda(lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_264)" -"(let-values(((sym_64)" +" lst_0)" +"(let-values(((sym_41)" "(unsafe-car" -" lst_264))" -"((rest_144)" +" lst_0))" +"((rest_42)" "(unsafe-cdr" -" lst_264)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_58)" +"(let-values(((id_43)" "(datum->syntax$1" -" s_3" -" sym_64)))" +" s_8" +" sym_41)))" "(begin" -"(let-values(((id10_0)" -" id_58)" -"((temp11_2)" -"(let-values(((self13_1)" -" self_20)" -"((phase14_1)" -" phase_89)" -"((sym15_0)" -" sym_64))" +"(let-values(((id10_44)" +" id_43)" +"((temp11_45)" +"(let-values(((self13_47)" +" self_0)" +"((phase14_48)" +" phase_36)" +"((sym15_49)" +" sym_41))" "(make-module-binding22.1" " #f" " null" @@ -33608,78 +33796,76 @@ static const char *startup_source = " 0" " unsafe-undefined" " unsafe-undefined" -" self13_1" -" phase14_1" -" sym15_0)))" -"((phase12_0)" -" phase_89))" +" self13_47" +" phase14_48" +" sym15_49)))" +"((phase12_46)" +" phase_36))" "(add-binding!17.1" " #f" " #f" -" id10_0" -" temp11_2" -" phase12_0))" +" id10_44" +" temp11_45" +" phase12_46))" "(add-defined-sym!" -" defined-syms_10" -" phase_89" -" sym_64" -" id_58))))" +" defined-syms_9" +" phase_36" +" sym_41" +" id_43))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_237" -" rest_144)" +"(for-loop_39" +" rest_42)" "(values))))" "(values))))))" -" for-loop_237)" -" lst_263)))" +" for-loop_39)" +" lst_38)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)" -"(for-loop_109(hash-iterate-next ht_122 i_145))" -"(values))))" +"(if(not #f)(for-loop_34(hash-iterate-next ht_33 i_0))(values))))" "(values))))))" -" for-loop_109)" -"(hash-iterate-first ht_122))))" +" for-loop_34)" +"(hash-iterate-first ht_33))))" "(void)" -" root-ctx_4))))))))))" +" root-ctx_7))))))))))" "(define-values" "(shift-to-inside-root-context)" "(lambda(root-context_0)" "(begin" -"(let-values(((outside-mpi_0)(root-expand-context-self-mpi root-context_0)))" -"(let-values(((inside-mpi_0)(make-self-module-path-index(module-path-index-resolved outside-mpi_0))))" -"(let-values(((v_179) root-context_0))" -"(let-values(((the-struct_54) v_179))" +"(let-values(((outside-mpi_51)(root-expand-context-self-mpi root-context_0)))" +"(let-values(((inside-mpi_52)(make-self-module-path-index(module-path-index-resolved outside-mpi_51))))" +"(let-values(((v_53) root-context_0))" +"(let-values(((the-struct_54) v_53))" "(if(root-expand-context/outer? the-struct_54)" -"(let-values(((inner16_0)" -"(let-values(((the-struct_55)(root-expand-context/outer-inner v_179)))" -"(if(root-expand-context/inner? the-struct_55)" -"(let-values(((self-mpi17_0) inside-mpi_0)" -"((all-scopes-stx18_0)" -"(let-values(((temp19_2)" +"(let-values(((inner16_55)" +"(let-values(((the-struct_56)(root-expand-context/outer-inner v_53)))" +"(if(root-expand-context/inner? the-struct_56)" +"(let-values(((self-mpi17_57) inside-mpi_52)" +"((all-scopes-stx18_58)" +"(let-values(((temp19_59)" "(root-expand-context-all-scopes-stx root-context_0))" -"((outside-mpi20_0) outside-mpi_0)" -"((inside-mpi21_0) inside-mpi_0))" +"((outside-mpi20_60) outside-mpi_51)" +"((inside-mpi21_61) inside-mpi_52))" "(syntax-module-path-index-shift13.1" " #f" -" temp19_2" -" outside-mpi20_0" -" inside-mpi21_0" +" temp19_59" +" outside-mpi20_60" +" inside-mpi21_61" " #f))))" "(root-expand-context/inner2.1" -" self-mpi17_0" -"(root-expand-context/inner-module-scopes the-struct_55)" -"(root-expand-context/inner-top-level-bind-scope the-struct_55)" -" all-scopes-stx18_0" -"(root-expand-context/inner-defined-syms the-struct_55)" -"(root-expand-context/inner-counter the-struct_55)" -"(root-expand-context/inner-lift-key the-struct_55)))" -" (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_55)))))" +" self-mpi17_57" +"(root-expand-context/inner-module-scopes the-struct_56)" +"(root-expand-context/inner-top-level-bind-scope the-struct_56)" +" all-scopes-stx18_58" +"(root-expand-context/inner-defined-syms the-struct_56)" +"(root-expand-context/inner-counter the-struct_56)" +"(root-expand-context/inner-lift-key the-struct_56)))" +" (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_56)))))" "(root-expand-context/outer1.1" -" inner16_0" +" inner16_55" "(root-expand-context/outer-post-expansion the-struct_54)" "(root-expand-context/outer-use-site-scopes the-struct_54)" "(root-expand-context/outer-frame-id the-struct_54)))" @@ -33695,143 +33881,143 @@ static const char *startup_source = " extra-inspectorsss8_0)" "(begin" " 'check-require-access9" -"(let-values(((linklet_4) linklet3_0))" -"(let-values(((skip-num-imports_0) skip-imports1_0))" -"(let-values(((import-module-uses_0) import-module-uses4_0))" -"(let-values(((import-module-instances_0) import-module-instances5_0))" -"(let-values(((insp_10) insp6_0))" -"(let-values(((extra-inspector_6) extra-inspector7_0))" -"(let-values(((extra-inspectorsss_4) extra-inspectorsss8_0))" +"(let-values(((linklet_27) linklet3_0))" +"(let-values(((skip-num-imports_28) skip-imports1_0))" +"(let-values(((import-module-uses_29) import-module-uses4_0))" +"(let-values(((import-module-instances_30) import-module-instances5_0))" +"(let-values(((insp_31) insp6_0))" +"(let-values(((extra-inspector_32) extra-inspector7_0))" +"(let-values(((extra-inspectorsss_33) extra-inspectorsss8_0))" "(let-values()" "(begin" -"(let-values(((lst_41)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" -"((lst_163) import-module-uses_0)" -"((lst_89) import-module-instances_0)" -"((lst_265)" -"(let-values(((or-part_81) extra-inspectorsss_4))" -"(if or-part_81 or-part_81 import-module-uses_0))))" +"(let-values(((lst_34)(list-tail(1/linklet-import-variables linklet_27) skip-num-imports_28))" +"((lst_35) import-module-uses_29)" +"((lst_36) import-module-instances_30)" +"((lst_37)" +"(let-values(((or-part_38) extra-inspectorsss_33))" +"(if or-part_38 or-part_38 import-module-uses_29))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_41)))" +"(let-values()(check-list lst_34)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_163)))" +"(let-values()(check-list lst_35)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" +"(let-values()(check-list lst_36)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_265)))" -"((letrec-values(((for-loop_237)" -"(lambda(lst_264 lst_261 lst_23 lst_104)" +"(let-values()(check-list lst_37)))" +"((letrec-values(((for-loop_39)" +"(lambda(lst_0 lst_1 lst_2 lst_3)" "(begin" " 'for-loop" -"(if(if(pair? lst_264)" -"(if(pair? lst_261)(if(pair? lst_23)(pair? lst_104) #f) #f)" +"(if(if(pair? lst_0)" +"(if(pair? lst_1)(if(pair? lst_2)(pair? lst_3) #f) #f)" " #f)" -"(let-values(((import-syms_0)(unsafe-car lst_264))" -"((rest_145)(unsafe-cdr lst_264))" -"((mu_7)(unsafe-car lst_261))" -"((rest_85)(unsafe-cdr lst_261))" -"((mi_16)(unsafe-car lst_23))" -"((rest_43)(unsafe-cdr lst_23))" -"((extra-inspectorss_14)(unsafe-car lst_104))" -"((rest_121)(unsafe-cdr lst_104)))" +"(let-values(((import-syms_44)(unsafe-car lst_0))" +"((rest_45)(unsafe-cdr lst_0))" +"((mu_46)(unsafe-car lst_1))" +"((rest_47)(unsafe-cdr lst_1))" +"((mi_48)(unsafe-car lst_2))" +"((rest_49)(unsafe-cdr lst_2))" +"((extra-inspectorss_50)(unsafe-car lst_3))" +"((rest_51)(unsafe-cdr lst_3)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((m_15)" +"(let-values(((m_52)" "(module-instance-module" -" mi_16)))" +" mi_48)))" "(if(module-no-protected?" -" m_15)" +" m_52)" "(void)" "(let-values()" -"(let-values(((access_2)" -"(let-values(((or-part_8)" +"(let-values(((access_53)" +"(let-values(((or-part_54)" "(module-access" -" m_15)))" -"(if or-part_8" -" or-part_8" +" m_52)))" +"(if or-part_54" +" or-part_54" "(module-compute-access!" -" m_15)))))" +" m_52)))))" "(begin" -"(let-values(((lst_266)" -" import-syms_0))" +"(let-values(((lst_55)" +" import-syms_44))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_266)))" -"((letrec-values(((for-loop_238)" -"(lambda(lst_25)" +" lst_55)))" +"((letrec-values(((for-loop_56)" +"(lambda(lst_4)" "(begin" " 'for-loop" "(if(pair?" -" lst_25)" -"(let-values(((import-sym_0)" +" lst_4)" +"(let-values(((import-sym_58)" "(unsafe-car" -" lst_25))" -"((rest_9)" +" lst_4))" +"((rest_59)" "(unsafe-cdr" -" lst_25)))" +" lst_4)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((a_47)" +"(let-values(((a_60)" "(hash-ref" "(hash-ref" -" access_2" +" access_53" "(module-use-phase" -" mu_7)" +" mu_46)" " '#hasheq())" -" import-sym_0" +" import-sym_58" " 'unexported)))" -"(if(let-values(((or-part_21)" +"(if(let-values(((or-part_61)" "(eq?" -" a_47" +" a_60" " 'unexported)))" -"(if or-part_21" -" or-part_21" +"(if or-part_61" +" or-part_61" "(eq?" -" a_47" +" a_60" " 'protected)))" "(let-values()" -"(let-values(((guard-insp_3)" +"(let-values(((guard-insp_62)" "(namespace-inspector" "(module-instance-namespace" -" mi_16))))" -"(if(let-values(((or-part_259)" +" mi_48))))" +"(if(let-values(((or-part_63)" "(inspector-superior?" -" insp_10" -" guard-insp_3)))" -"(if or-part_259" -" or-part_259" -"(let-values(((or-part_260)" -"(if extra-inspector_6" +" insp_31" +" guard-insp_62)))" +"(if or-part_63" +" or-part_63" +"(let-values(((or-part_64)" +"(if extra-inspector_32" "(inspector-superior?" -" extra-inspector_6" -" guard-insp_3)" +" extra-inspector_32" +" guard-insp_62)" " #f)))" -"(if or-part_260" -" or-part_260" -"(if extra-inspectorsss_4" -"(if extra-inspectorss_14" +"(if or-part_64" +" or-part_64" +"(if extra-inspectorsss_33" +"(if extra-inspectorss_50" "(extra-inspectors-allow?" "(hash-ref" -" extra-inspectorss_14" -" import-sym_0" +" extra-inspectorss_50" +" import-sym_58" " #f)" -" guard-insp_3)" +" guard-insp_62)" " #f)" " #f)))))" "(void)" @@ -33842,567 +34028,565 @@ static const char *startup_source = " \"access disallowed by code inspector to ~a variable\\n\"" " \" variable: ~s\\n\"" " \" from module: ~a\")" -" a_47" -" import-sym_0" +" a_60" +" import-sym_58" "(1/module-path-index-resolve" "(namespace-mpi" "(module-instance-namespace" -" mi_16))))))))" +" mi_48))))))))" "(void))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_238" -" rest_9)" +"(for-loop_56" +" rest_59)" "(values))))" "(values))))))" -" for-loop_238)" -" lst_266)))" +" for-loop_56)" +" lst_55)))" "(void)))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_237 rest_145 rest_85 rest_43 rest_121)" +"(for-loop_39 rest_45 rest_47 rest_49 rest_51)" "(values))))" "(values))))))" -" for-loop_237)" -" lst_41" -" lst_163" -" lst_89" -" lst_265)))" +" for-loop_39)" +" lst_34" +" lst_35" +" lst_36" +" lst_37)))" "(void)))))))))))))" "(define-values" "(check-single-require-access)" -"(lambda(mi_17 phase_90 sym_65 insp_11)" +"(lambda(mi_0 phase_0 sym_0 insp_0)" "(begin" -"(let-values(((m_16)(module-instance-module mi_17)))" -"(if(module-no-protected? m_16)" +"(let-values(((m_89)(module-instance-module mi_0)))" +"(if(module-no-protected? m_89)" "(let-values() #t)" "(let-values()" -"(let-values(((access_3)" -"(let-values(((or-part_261)(module-access m_16)))" -"(if or-part_261 or-part_261(module-compute-access! m_16)))))" -"(let-values(((a_48)(hash-ref(hash-ref access_3 phase_90 '#hasheq()) sym_65 'unexported)))" -"(if(let-values(((or-part_34)(eq? a_48 'unexported)))" -"(if or-part_34 or-part_34(eq? a_48 'protected)))" +"(let-values(((access_90)" +"(let-values(((or-part_92)(module-access m_89)))" +"(if or-part_92 or-part_92(module-compute-access! m_89)))))" +"(let-values(((a_91)(hash-ref(hash-ref access_90 phase_0 '#hasheq()) sym_0 'unexported)))" +"(if(let-values(((or-part_93)(eq? a_91 'unexported)))" +"(if or-part_93 or-part_93(eq? a_91 'protected)))" "(let-values()" -"(let-values(((guard-insp_4)(namespace-inspector(module-instance-namespace mi_17))))" -"(let-values(((or-part_262)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" -"(if or-part_262 or-part_262(inspector-superior?(current-code-inspector) guard-insp_4)))))" +"(let-values(((guard-insp_94)(namespace-inspector(module-instance-namespace mi_0))))" +"(let-values(((or-part_95)(if insp_0(inspector-superior? insp_0 guard-insp_94) #f)))" +"(if or-part_95 or-part_95(inspector-superior?(current-code-inspector) guard-insp_94)))))" "(let-values() #t))))))))))" "(define-values(module-cache)(make-weak-hasheq))" "(define-values" "(make-module-cache-key)" -"(lambda(hash-code_6)" -" (begin (if hash-code_6 (string->symbol (format \"~s\" (list hash-code_6 (current-load-relative-directory)))) #f))))" +"(lambda(hash-code_0)" +" (begin (if hash-code_0 (string->symbol (format \"~s\" (list hash-code_0 (current-load-relative-directory)))) #f))))" "(define-values" "(module-cache-set!)" -"(lambda(key_10 proc_9)(begin(hash-set! module-cache key_10(make-ephemeron key_10 proc_9)))))" +"(lambda(key_0 proc_0)(begin(hash-set! module-cache key_0(make-ephemeron key_0 proc_0)))))" "(define-values" "(module-cache-ref)" -"(lambda(key_66)" -"(begin(let-values(((e_71)(hash-ref module-cache key_66 #f)))(if e_71(ephemeron-value e_71) #f)))))" +"(lambda(key_0)(begin(let-values(((e_5)(hash-ref module-cache key_0 #f)))(if e_5(ephemeron-value e_5) #f)))))" "(define-values(current-module-declare-as-predefined)(make-parameter #f))" "(define-values" "(eval-module8.1)" -"(lambda(namespace1_2 supermodule-name3_0 with-submodules?2_0 c7_0)" +"(lambda(namespace1_0 supermodule-name3_0 with-submodules?2_0 c7_0)" "(begin" " 'eval-module8" -"(let-values(((c_25) c7_0))" -"(let-values(((ns_60)(if(eq? namespace1_2 unsafe-undefined)(1/current-namespace) namespace1_2)))" -"(let-values(((with-submodules?_1) with-submodules?2_0))" -"(let-values(((supermodule-name_1) supermodule-name3_0))" +"(let-values(((c_5) c7_0))" +"(let-values(((ns_6)(if(eq? namespace1_0 unsafe-undefined)(1/current-namespace) namespace1_0)))" +"(let-values(((with-submodules?_7) with-submodules?2_0))" +"(let-values(((supermodule-name_8) supermodule-name3_0))" "(let-values()" "(let-values()" -"(let-values(((dh_0 h_1 data-instance_0 declaration-instance_0)" -"(compiled-module->dh+h+data-instance+declaration-instance c_25)))" -"(let-values(((syntax-literals-data-instance_0)" -"(if(compiled-in-memory? c_25)" -"(make-syntax-literal-data-instance-from-compiled-in-memory c_25)" -"(let-values(((l_64)(hash-ref h_1 'stx-data #f)))" -"(if l_64" +"(let-values(((dh_9 h_10 data-instance_11 declaration-instance_12)" +"(compiled-module->dh+h+data-instance+declaration-instance c_5)))" +"(let-values(((syntax-literals-data-instance_13)" +"(if(compiled-in-memory? c_5)" +"(make-syntax-literal-data-instance-from-compiled-in-memory c_5)" +"(let-values(((l_34)(hash-ref h_10 'stx-data #f)))" +"(if l_34" "(let-values()" "(1/instantiate-linklet" -"(1/eval-linklet l_64)" -"(list deserialize-instance data-instance_0)))" -"(if(eq?(hash-ref h_1 'module->namespace #f) 'empty)" +"(1/eval-linklet l_34)" +"(list deserialize-instance data-instance_11)))" +"(if(eq?(hash-ref h_10 'module->namespace #f) 'empty)" "(let-values() empty-syntax-literals-instance/empty-namespace)" "(let-values() empty-syntax-literals-data-instance)))))))" -"(let-values(((decl_0)" -"(lambda(key_67)" -"(begin 'decl(1/instance-variable-value declaration-instance_0 key_67)))))" -"(let-values(((pre-submodule-names_0)(hash-ref h_1 'pre null)))" -"(let-values(((post-submodule-names_0)(hash-ref h_1 'post null)))" -"(let-values(((default-name_1)(hash-ref h_1 'name 'module)))" -"(let-values(((cache-key_0)" +"(let-values(((decl_14)" +"(lambda(key_0)" +"(begin 'decl(1/instance-variable-value declaration-instance_12 key_0)))))" +"(let-values(((pre-submodule-names_15)(hash-ref h_10 'pre null)))" +"(let-values(((post-submodule-names_16)(hash-ref h_10 'post null)))" +"(let-values(((default-name_17)(hash-ref h_10 'name 'module)))" +"(let-values(((cache-key_18)" "(make-module-cache-key" -"(if(null? pre-submodule-names_0)" -"(if(null? post-submodule-names_0)(hash-ref h_1 'hash-code #f) #f)" +"(if(null? pre-submodule-names_15)" +"(if(null? post-submodule-names_16)(hash-ref h_10 'hash-code #f) #f)" " #f))))" -"(let-values(((cross-phase-persistent?_1)(hash-ref h_1 'cross-phase-persistent? #f)))" -"(let-values(((min-phase_2)(hash-ref h_1 'min-phase 0)))" -"(let-values(((max-phase_2)(hash-ref h_1 'max-phase 0)))" -"(let-values(((language-info_1)(hash-ref h_1 'language-info #f)))" -"(let-values(((phases-h_0)" -"(let-values(((start_37) min-phase_2)" -"((end_26)(add1 max-phase_2))" -"((inc_20) 1))" +"(let-values(((cross-phase-persistent?_19)(hash-ref h_10 'cross-phase-persistent? #f)))" +"(let-values(((min-phase_20)(hash-ref h_10 'min-phase 0)))" +"(let-values(((max-phase_21)(hash-ref h_10 'max-phase 0)))" +"(let-values(((language-info_22)(hash-ref h_10 'language-info #f)))" +"(let-values(((phases-h_23)" +"(let-values(((start_36) min-phase_20)" +"((end_37)(add1 max-phase_21))" +"((inc_38) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_37 end_26 inc_20)))" -"((letrec-values(((for-loop_237)" -"(lambda(table_180 pos_99)" +"(let-values()(check-range start_36 end_37 inc_38)))" +"((letrec-values(((for-loop_39)" +"(lambda(table_0 pos_0)" "(begin" " 'for-loop" -"(if(< pos_99 end_26)" -"(let-values(((phase-level_17)" -" pos_99))" -"(let-values(((table_181)" -"(let-values(((v_180)" +"(if(< pos_0 end_37)" +"(let-values(((phase-level_42) pos_0))" +"(let-values(((table_43)" +"(let-values(((v_44)" "(hash-ref" -" h_1" -" phase-level_17" +" h_10" +" phase-level_42" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_110)" -"(lambda(table_182)" +"((letrec-values(((for-loop_45)" +"(lambda(table_1)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_183)" -"(let-values(((table_112)" -" table_182))" -"(if v_180" -"(let-values(((table_184)" -" table_112))" -"(let-values(((table_185)" +"(let-values(((table_47)" +"(let-values(((table_48)" +" table_1))" +"(if v_44" +"(let-values(((table_49)" +" table_48))" +"(let-values(((table_50)" "(let-values()" -"(let-values(((key_68" -" val_57)" +"(let-values(((key_51" +" val_52)" "(let-values()" "(values" -" phase-level_17" +" phase-level_42" "(1/eval-linklet" -" v_180)))))" +" v_44)))))" "(hash-set" -" table_184" -" key_68" -" val_57)))))" +" table_49" +" key_51" +" val_52)))))" "(values" -" table_185)))" -" table_112))))" -" table_183))))))" -" for-loop_110)" -" table_180)))))" +" table_50)))" +" table_48))))" +" table_47))))))" +" for-loop_45)" +" table_0)))))" "(if(not #f)" -"(for-loop_237" -" table_181" -"(+ pos_99 inc_20))" -" table_181)))" -" table_180)))))" -" for-loop_237)" +"(for-loop_39" +" table_43" +"(+ pos_0 inc_38))" +" table_43)))" +" table_0)))))" +" for-loop_39)" " '#hash()" -" start_37)))))" -"(let-values(((syntax-literals-linklet_0)" -"(let-values(((l_14)(hash-ref h_1 'stx #f)))" -"(if l_14(1/eval-linklet l_14) #f))))" -"(let-values(((extra-inspector_7)" -"(if(compiled-in-memory? c_25)" -"(compiled-in-memory-compile-time-inspector c_25)" +" start_36)))))" +"(let-values(((syntax-literals-linklet_24)" +"(let-values(((l_53)(hash-ref h_10 'stx #f)))" +"(if l_53(1/eval-linklet l_53) #f))))" +"(let-values(((extra-inspector_25)" +"(if(compiled-in-memory? c_5)" +"(compiled-in-memory-compile-time-inspector c_5)" " #f)))" -"(let-values(((phase-to-link-extra-inspectorsss_1)" -"(if(compiled-in-memory? c_25)" -"(compiled-in-memory-phase-to-link-extra-inspectorsss c_25)" +"(let-values(((phase-to-link-extra-inspectorsss_26)" +"(if(compiled-in-memory? c_5)" +"(compiled-in-memory-phase-to-link-extra-inspectorsss c_5)" " '#hasheqv())))" -"(let-values(((requires_4)(decl_0 'requires)))" -"(let-values(((provides_8)(decl_0 'provides)))" -"(let-values(((original-self_1)(decl_0 'self-mpi)))" -"(let-values(((phase-to-link-modules_0)" -"(decl_0 'phase-to-link-modules)))" -"(let-values(((create-root-expand-context-from-module_0)" +"(let-values(((requires_27)(decl_14 'requires)))" +"(let-values(((provides_28)(decl_14 'provides)))" +"(let-values(((original-self_29)(decl_14 'self-mpi)))" +"(let-values(((phase-to-link-modules_30)" +"(decl_14 'phase-to-link-modules)))" +"(let-values(((create-root-expand-context-from-module_31)" "(make-create-root-expand-context-from-module" -" requires_4" -" phases-h_0)))" -"(let-values(((declare-submodules_0)" -"(if dh_0" -"(lambda(ns_61 names_0 declare-name_0 pre?_0)" +" requires_27" +" phases-h_23)))" +"(let-values(((declare-submodules_32)" +"(if dh_9" +"(lambda(ns_0 names_0 declare-name_0 pre?_0)" "(begin" " 'declare-submodules" -"(if(compiled-in-memory? c_25)" +"(if(compiled-in-memory? c_5)" "(begin" -"(let-values(((lst_19)" +"(let-values(((lst_58)" "(if pre?_0" "(compiled-in-memory-pre-compiled-in-memorys" -" c_25)" +" c_5)" "(compiled-in-memory-post-compiled-in-memorys" -" c_25))))" +" c_5))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_19)))" -"((letrec-values(((for-loop_15)" -"(lambda(lst_267)" +"(check-list lst_58)))" +"((letrec-values(((for-loop_59)" +"(lambda(lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_267)" -"(let-values(((c_26)" +" lst_0)" +"(let-values(((c_61)" "(unsafe-car" -" lst_267))" -"((rest_146)" +" lst_0))" +"((rest_62)" "(unsafe-cdr" -" lst_267)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((c12_0)" -" c_26)" -"((ns13_0)" -" ns_61)" -"((declare-name14_0)" +"(let-values(((c12_64)" +" c_61)" +"((ns13_65)" +" ns_0)" +"((declare-name14_66)" " declare-name_0))" "(eval-module8.1" -" ns13_0" -" declare-name14_0" +" ns13_65" +" declare-name14_66" " #t" -" c12_0)))" +" c12_64)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_15" -" rest_146)" +"(for-loop_59" +" rest_62)" "(values))))" "(values))))))" -" for-loop_15)" -" lst_19)))" +" for-loop_59)" +" lst_58)))" "(void))" "(begin" -"(let-values(((lst_268) names_0))" +"(let-values(((lst_67) names_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_268)))" -"((letrec-values(((for-loop_239)" -"(lambda(lst_176)" +"(check-list lst_67)))" +"((letrec-values(((for-loop_68)" +"(lambda(lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_176)" -"(let-values(((name_47)" +" lst_0)" +"(let-values(((name_70)" "(unsafe-car" -" lst_176))" -"((rest_93)" +" lst_0))" +"((rest_71)" "(unsafe-cdr" -" lst_176)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((sm-cd_0)" +"(let-values(((sm-cd_72)" "(hash-ref" -" dh_0" -" name_47" +" dh_9" +" name_70" " #f)))" "(begin" -"(if sm-cd_0" +"(if sm-cd_72" "(void)" "(let-values()" "(error" " \"missing submodule declaration:\"" -" name_47)))" -"(let-values(((sm-cd15_0)" -" sm-cd_0)" -"((ns16_0)" -" ns_61)" -"((declare-name17_0)" +" name_70)))" +"(let-values(((sm-cd15_74)" +" sm-cd_72)" +"((ns16_75)" +" ns_0)" +"((declare-name17_76)" " declare-name_0))" "(eval-module8.1" -" ns16_0" -" declare-name17_0" +" ns16_75" +" declare-name17_76" " #t" -" sm-cd15_0)))))" +" sm-cd15_74)))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_239" -" rest_93)" +"(for-loop_68" +" rest_71)" "(values))))" "(values))))))" -" for-loop_239)" -" lst_268)))" +" for-loop_68)" +" lst_67)))" "(void)))))" " void)))" -"(let-values(((declare-this-module_0)" -"(lambda(ns_62)" +"(let-values(((declare-this-module_33)" +"(lambda(ns_0)" "(begin" " 'declare-this-module" -"(let-values(((m_17)" -"(let-values(((temp22_3)" +"(let-values(((m_78)" +"(let-values(((temp22_81)" "(1/current-module-declare-source))" -"((original-self23_0)" -" original-self_1)" -"((requires24_0)" -" requires_4)" -"((provides25_0)" -" provides_8)" -"((language-info26_0)" -" language-info_1)" -"((min-phase27_0)" -" min-phase_2)" -"((max-phase28_0)" -" max-phase_2)" -"((cross-phase-persistent?29_0)" -" cross-phase-persistent?_1)" -"((temp30_2)" +"((original-self23_82)" +" original-self_29)" +"((requires24_83)" +" requires_27)" +"((provides25_84)" +" provides_28)" +"((language-info26_85)" +" language-info_22)" +"((min-phase27_86)" +" min-phase_20)" +"((max-phase28_87)" +" max-phase_21)" +"((cross-phase-persistent?29_88)" +" cross-phase-persistent?_19)" +"((temp30_89)" "(current-module-declare-as-predefined))" -"((temp31_1)" +"((temp31_90)" "(append" -" pre-submodule-names_0" -" post-submodule-names_0))" -"((supermodule-name32_0)" -" supermodule-name_1)" -"((temp33_0)" +" pre-submodule-names_15" +" post-submodule-names_16))" +"((supermodule-name32_91)" +" supermodule-name_8)" +"((temp33_92)" "(lambda()" "(get-all-variables" -" phases-h_0)))" -"((temp34_2)" -"(lambda(phase-level_18" -" ns_63" -" insp_12)" +" phases-h_23)))" +"((temp34_93)" +"(lambda(phase-level_0" +" ns_1" +" insp_0)" "(module-linklet-info2.1" "(hash-ref" -" phases-h_0" -" phase-level_18" +" phases-h_23" +" phase-level_0" " #f)" "(hash-ref" -" phase-to-link-modules_0" -" phase-level_18" +" phase-to-link-modules_30" +" phase-level_0" " #f)" -" original-self_1" -" insp_12" -" extra-inspector_7" +" original-self_29" +" insp_0" +" extra-inspector_25" "(hash-ref" -" phase-to-link-extra-inspectorsss_1" -" phase-level_18" +" phase-to-link-extra-inspectorsss_26" +" phase-level_0" " #f))))" -"((temp35_0)" -"(lambda(bulk-binding-registry_13)" +"((temp35_94)" +"(lambda(bulk-binding-registry_0)" "(force-syntax-deserialize" -" syntax-literals-data-instance_0" -" bulk-binding-registry_13)))" -"((temp36_1)" -"(lambda(data-box_2" -" ns_64" -" phase-shift_15" -" self_21" -" bulk-binding-registry_14" -" insp_13)" +" syntax-literals-data-instance_13" +" bulk-binding-registry_0)))" +"((temp36_95)" +"(lambda(data-box_0" +" ns_1" +" phase-shift_0" +" self_0" +" bulk-binding-registry_0" +" insp_0)" "(if(unbox" -" data-box_2)" +" data-box_0)" "(void)" "(let-values()" "(init-instance-data!" -" data-box_2" -" cache-key_0" -" ns_64" -" syntax-literals-linklet_0" -" data-instance_0" -" syntax-literals-data-instance_0" -" phase-shift_15" -" original-self_1" -" self_21" -" bulk-binding-registry_14" -" insp_13" -" create-root-expand-context-from-module_0)))))" -"((temp37_0)" -"(lambda(data-box_3" -" ns_65" -" phase-shift_16" -" phase-level_19" -" self_22" -" bulk-binding-registry_15" -" insp_14)" +" data-box_0" +" cache-key_18" +" ns_1" +" syntax-literals-linklet_24" +" data-instance_11" +" syntax-literals-data-instance_13" +" phase-shift_0" +" original-self_29" +" self_0" +" bulk-binding-registry_0" +" insp_0" +" create-root-expand-context-from-module_31)))))" +"((temp37_96)" +"(lambda(data-box_0" +" ns_1" +" phase-shift_0" +" phase-level_0" +" self_0" +" bulk-binding-registry_0" +" insp_0)" "(let-values()" -"(let-values(((syntax-literals-instance_0)" +"(let-values(((syntax-literals-instance_114)" "(instance-data-syntax-literals-instance" "(unbox" -" data-box_3))))" -"(let-values(((phase-linklet_0)" +" data-box_0))))" +"(let-values(((phase-linklet_115)" "(hash-ref" -" phases-h_0" -" phase-level_19" +" phases-h_23" +" phase-level_0" " #f)))" -"(if phase-linklet_0" +"(if phase-linklet_115" "(let-values()" -"(let-values(((module-uses_0)" +"(let-values(((module-uses_116)" "(hash-ref" -" phase-to-link-modules_0" -" phase-level_19)))" -"(let-values(((import-module-instances_1" -" import-instances_0)" -"(let-values(((mis_1" -" is_0)" -"(let-values(((lst_187)" -" module-uses_0))" +" phase-to-link-modules_30" +" phase-level_0)))" +"(let-values(((import-module-instances_117" +" import-instances_118)" +"(let-values(((mis_121" +" is_122)" +"(let-values(((lst_123)" +" module-uses_116))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_187)))" -"((letrec-values(((for-loop_3)" -"(lambda(mis_2" -" is_1" -" lst_183)" +" lst_123)))" +"((letrec-values(((for-loop_124)" +"(lambda(mis_0" +" is_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_183)" -"(let-values(((mu_8)" +" lst_0)" +"(let-values(((mu_128)" "(unsafe-car" -" lst_183))" -"((rest_98)" +" lst_0))" +"((rest_129)" "(unsafe-cdr" -" lst_183)))" -"(let-values(((mis_3" -" is_2)" -"(let-values(((mis_4)" -" mis_2)" -"((is_3)" -" is_1))" -"(let-values(((mis_5" -" is_4)" +" lst_0)))" +"(let-values(((mis_130" +" is_131)" +"(let-values(((mis_132)" +" mis_0)" +"((is_133)" +" is_0))" +"(let-values(((mis_134" +" is_135)" "(let-values()" -"(let-values(((mis45_0" -" is46_0)" +"(let-values(((mis45_136" +" is46_137)" "(let-values()" -"(let-values(((ns47_1)" -" ns_65)" -"((mu48_0)" -" mu_8)" -"((original-self49_0)" -" original-self_1)" -"((self50_0)" -" self_22)" -"((temp51_0)" +"(let-values(((ns47_139)" +" ns_1)" +"((mu48_140)" +" mu_128)" +"((original-self49_141)" +" original-self_29)" +"((self50_142)" +" self_0)" +"((temp51_143)" "(phase+" "(phase-" -" phase-level_19" +" phase-level_0" "(module-use-phase" -" mu_8))" -" phase-shift_16)))" +" mu_128))" +" phase-shift_0)))" "(namespace-module-use->module+linklet-instances144.1" -" temp51_0" -" original-self49_0" -" self50_0" -" ns47_1" -" mu48_0)))))" +" temp51_143" +" original-self49_141" +" self50_142" +" ns47_139" +" mu48_140)))))" "(values" "(cons" -" mis45_0" -" mis_4)" +" mis45_136" +" mis_132)" "(cons" -" is46_0" -" is_3))))))" +" is46_137" +" is_133))))))" "(values" -" mis_5" -" is_4)))))" +" mis_134" +" is_135)))))" "(if(not" " #f)" -"(for-loop_3" -" mis_3" -" is_2" -" rest_98)" +"(for-loop_124" +" mis_130" +" is_131" +" rest_129)" "(values" -" mis_3" -" is_2))))" +" mis_130" +" is_131))))" "(values" -" mis_2" -" is_1))))))" -" for-loop_3)" +" mis_0" +" is_0))))))" +" for-loop_124)" " null" " null" -" lst_187)))))" +" lst_123)))))" "(values" "(reverse$1" -" mis_1)" +" mis_121)" "(reverse$1" -" is_0)))))" +" is_122)))))" "(let-values((()" "(begin" -"(let-values(((phase-linklet38_0)" -" phase-linklet_0)" -"((temp39_3)" +"(let-values(((phase-linklet38_145)" +" phase-linklet_115)" +"((temp39_146)" " 2)" -"((module-uses40_0)" -" module-uses_0)" -"((import-module-instances41_0)" -" import-module-instances_1)" -"((insp42_0)" -" insp_14)" -"((extra-inspector43_0)" -" extra-inspector_7)" -"((temp44_1)" +"((module-uses40_147)" +" module-uses_116)" +"((import-module-instances41_148)" +" import-module-instances_117)" +"((insp42_149)" +" insp_0)" +"((extra-inspector43_150)" +" extra-inspector_25)" +"((temp44_151)" "(hash-ref" -" phase-to-link-extra-inspectorsss_1" -" phase-level_19" +" phase-to-link-extra-inspectorsss_26" +" phase-level_0" " #f)))" "(check-require-access9.1" -" temp39_3" -" phase-linklet38_0" -" module-uses40_0" -" import-module-instances41_0" -" insp42_0" -" extra-inspector43_0" -" temp44_1))" +" temp39_146" +" phase-linklet38_145" +" module-uses40_147" +" import-module-instances41_148" +" insp42_149" +" extra-inspector43_150" +" temp44_151))" "(values))))" -"(let-values(((module-body-instance-instance_0)" -"(let-values(((temp52_0)" -"(lambda(name_48" -" val_58)" +"(let-values(((module-body-instance-instance_119)" +"(let-values(((temp52_153)" +"(lambda(name_0" +" val_0)" "(namespace-set-transformer!" -" ns_65" +" ns_1" "(sub1" -" phase-level_19)" -" name_48" -" val_58))))" +" phase-level_0)" +" name_0" +" val_0))))" "(make-module-body-instance-instance18.1" -" temp52_0))))" -"(let-values(((instantiate-body_0)" +" temp52_153))))" +"(let-values(((instantiate-body_120)" "(lambda()" "(begin" " 'instantiate-body" "(1/instantiate-linklet" -" phase-linklet_0" +" phase-linklet_115" "(list*" -" syntax-literals-instance_0" -" module-body-instance-instance_0" -" import-instances_0)" +" syntax-literals-instance_114" +" module-body-instance-instance_119" +" import-instances_118)" "(namespace->instance" -" ns_65" -" phase-level_19))))))" +" ns_1" +" phase-level_0))))))" "(if(zero-phase?" -" phase-level_19)" +" phase-level_0)" "(let-values()" "(if(zero-phase?" -" phase-shift_16)" +" phase-shift_0)" "(let-values()" -"(instantiate-body_0))" +"(instantiate-body_120))" "(let-values()" "(with-continuation-mark" " parameterization-key" @@ -34411,17 +34595,17 @@ static const char *startup_source = " #f" " parameterization-key)" " 1/current-namespace" -" ns_65)" +" ns_1)" "(let-values()" -"(instantiate-body_0))))))" +"(instantiate-body_120))))))" "(let-values()" -"(let-values(((ns-1_0)" +"(let-values(((ns-1_156)" "(namespace->namespace-at-phase" -" ns_65" +" ns_1" "(phase+" -" phase-shift_16" +" phase-shift_0" "(sub1" -" phase-level_19)))))" +" phase-level_0)))))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -34431,246 +34615,247 @@ static const char *startup_source = " current-expand-context" "(promise1.1" "(lambda()" -"(let-values(((ns-153_0)" -" ns-1_0))" +"(let-values(((ns-153_157)" +" ns-1_156))" "(make-expand-context10.1" " #f" " #f" " #f" -" ns-153_0)))" +" ns-153_157)))" " #f)" " 1/current-namespace" -" ns_65" +" ns_1" " current-module-code-inspector" -" insp_14)" +" insp_0)" "(let-values()" -"(instantiate-body_0))))))))))))" +"(instantiate-body_120))))))))))))" "(void))))))))" "(make-module39.1" -" cross-phase-persistent?29_0" -" temp35_0" -" temp33_0" -" temp37_0" -" language-info26_0" -" max-phase28_0" -" min-phase27_0" +" cross-phase-persistent?29_88" +" temp35_94" +" temp33_92" +" temp37_96" +" language-info26_85" +" max-phase28_87" +" min-phase27_86" " #f" -" temp34_2" -" temp30_2" -" temp36_1" +" temp34_93" +" temp30_89" +" temp36_95" " #f" -" provides25_0" -" requires24_0" -" original-self23_0" -" temp22_3" -" temp31_1" -" supermodule-name32_0))))" -"(let-values(((declare-name_1)" +" provides25_84" +" requires24_83" +" original-self23_82" +" temp22_81" +" temp31_90" +" supermodule-name32_91))))" +"(let-values(((declare-name_79)" "(substitute-module-declare-name" -" default-name_1)))" +" default-name_17)))" "(begin" -"(if with-submodules?_1" +"(if with-submodules?_7" "(let-values()" -"(declare-submodules_0" -" ns_62" -" pre-submodule-names_0" -" declare-name_1" +"(declare-submodules_32" +" ns_0" +" pre-submodule-names_15" +" declare-name_79" " #t))" "(void))" -"(let-values(((ns18_0) ns_62)" -"((m19_0) m_17)" -"((declare-name20_0)" -" declare-name_1)" -"((with-submodules?21_0)" -" with-submodules?_1))" +"(let-values(((ns18_159) ns_0)" +"((m19_160) m_78)" +"((declare-name20_161)" +" declare-name_79)" +"((with-submodules?21_162)" +" with-submodules?_7))" "(declare-module!58.1" -" with-submodules?21_0" -" ns18_0" -" m19_0" -" declare-name20_0))" -"(if with-submodules?_1" +" with-submodules?21_162" +" ns18_159" +" m19_160" +" declare-name20_161))" +"(if with-submodules?_7" "(let-values()" -"(declare-submodules_0" -" ns_62" -" post-submodule-names_0" -" declare-name_1" +"(declare-submodules_32" +" ns_0" +" post-submodule-names_16" +" declare-name_79" " #f))" "(void)))))))))" "(begin" -"(if cache-key_0" +"(if cache-key_18" "(let-values()" "(module-cache-set!" -" cache-key_0" -" declare-this-module_0))" +" cache-key_18" +" declare-this-module_33))" "(void))" -"(declare-this-module_0" -" ns_60)))))))))))))))))))))))))))))))))" +"(declare-this-module_33" +" ns_6)))))))))))))))))))))))))))))))))" "(define-values" "(struct:instance-data instance-data11.1 instance-data? instance-data-syntax-literals-instance instance-data-cache-key)" -"(let-values(((struct:_66 make-_66 ?_66 -ref_66 -set!_66)" +"(let-values(((struct:_189 make-_190 ?_191 -ref_192 -set!_193)" "(let-values()" "(let-values()" "(make-struct-type 'instance-data #f 2 0 #f null(current-inspector) #f '(0 1) #f 'instance-data)))))" "(values" -" struct:_66" -" make-_66" -" ?_66" -"(make-struct-field-accessor -ref_66 0 'syntax-literals-instance)" -"(make-struct-field-accessor -ref_66 1 'cache-key))))" +" struct:_189" +" make-_190" +" ?_191" +"(make-struct-field-accessor -ref_192 0 'syntax-literals-instance)" +"(make-struct-field-accessor -ref_192 1 'cache-key))))" "(define-values" "(init-instance-data!)" -"(lambda(data-box_4" -" cache-key_1" -" ns_66" -" syntax-literals-linklet_1" -" data-instance_1" -" syntax-literals-data-instance_1" -" phase-shift_17" -" original-self_2" -" self_23" -" bulk-binding-registry_16" -" insp_15" -" create-root-expand-context-from-module_1)" +"(lambda(data-box_0" +" cache-key_0" +" ns_0" +" syntax-literals-linklet_0" +" data-instance_0" +" syntax-literals-data-instance_0" +" phase-shift_0" +" original-self_0" +" self_0" +" bulk-binding-registry_0" +" insp_0" +" create-root-expand-context-from-module_0)" "(begin" "(let-values((()" "(begin" "(if(not(load-on-demand-enabled))" "(let-values()" -"(force-syntax-deserialize syntax-literals-data-instance_1 bulk-binding-registry_16))" +"(force-syntax-deserialize syntax-literals-data-instance_0 bulk-binding-registry_0))" "(void))" "(values))))" -"(let-values(((inst_1)" -"(let-values(((ns55_1) ns_66)" -"((phase-shift56_1) phase-shift_17)" -"((self57_0) self_23)" -"((insp58_0) insp_15)" -"((bulk-binding-registry59_0) bulk-binding-registry_16)" -"((temp60_0)" -" (lambda (name_49 val_59) (error \"shouldn't get here for the root-ctx linklet\"))))" +"(let-values(((inst_226)" +"(let-values(((ns55_230) ns_0)" +"((phase-shift56_231) phase-shift_0)" +"((self57_232) self_0)" +"((insp58_233) insp_0)" +"((bulk-binding-registry59_234) bulk-binding-registry_0)" +"((temp60_235)" +" (lambda (name_0 val_0) (error \"shouldn't get here for the root-ctx linklet\"))))" "(make-instance-instance13.1" -" bulk-binding-registry59_0" -" insp58_0" -" ns55_1" -" phase-shift56_1" -" self57_0" -" temp60_0))))" -"(let-values(((syntax-literals-instance_1)" -"(if syntax-literals-linklet_1" +" bulk-binding-registry59_234" +" insp58_233" +" ns55_230" +" phase-shift56_231" +" self57_232" +" temp60_235))))" +"(let-values(((syntax-literals-instance_227)" +"(if syntax-literals-linklet_0" "(1/instantiate-linklet" -" syntax-literals-linklet_1" -"(list deserialize-instance data-instance_1 syntax-literals-data-instance_1 inst_1))" +" syntax-literals-linklet_0" +"(list deserialize-instance data-instance_0 syntax-literals-data-instance_0 inst_226))" " empty-syntax-literals-instance)))" "(let-values((()" "(begin" -"(set-box! data-box_4(instance-data11.1 syntax-literals-instance_1 cache-key_1))" +"(set-box! data-box_0(instance-data11.1 syntax-literals-instance_227 cache-key_0))" "(values))))" -"(let-values(((get-encoded-root-expand-ctx_0)" -"(1/instance-variable-value syntax-literals-instance_1 'get-encoded-root-expand-ctx)))" -"(if(eq? get-encoded-root-expand-ctx_0 'empty)" +"(let-values(((get-encoded-root-expand-ctx_228)" +"(1/instance-variable-value syntax-literals-instance_227 'get-encoded-root-expand-ctx)))" +"(if(eq? get-encoded-root-expand-ctx_228 'empty)" "(let-values()" "(namespace-set-root-expand-ctx!" -" ns_66" +" ns_0" "(promise1.1" "(lambda()" "(shift-to-inside-root-context" -"(let-values(((self61_0) self_23))" -"(make-root-expand-context13.1 #f null unsafe-undefined unsafe-undefined self61_0))))" +"(let-values(((self61_239) self_0))" +"(make-root-expand-context13.1 #f null unsafe-undefined unsafe-undefined self61_239))))" " #f)))" -"(if(procedure? get-encoded-root-expand-ctx_0)" +"(if(procedure? get-encoded-root-expand-ctx_228)" "(let-values()" "(namespace-set-root-expand-ctx!" -" ns_66" +" ns_0" "(promise1.1" "(lambda()" "(shift-to-inside-root-context" -"(root-expand-context-decode-for-module(get-encoded-root-expand-ctx_0) self_23)))" +"(root-expand-context-decode-for-module(get-encoded-root-expand-ctx_228) self_0)))" " #f)))" "(let-values()" "(namespace-set-root-expand-ctx!" -" ns_66" +" ns_0" "(promise1.1" "(lambda()" "(shift-to-inside-root-context" -"(create-root-expand-context-from-module_1 ns_66 phase-shift_17 original-self_2 self_23)))" +"(create-root-expand-context-from-module_0 ns_0 phase-shift_0 original-self_0 self_0)))" " #f)))))))))))))" "(define-values" "(force-syntax-deserialize)" -"(lambda(syntax-literals-data-instance_2 bulk-binding-registry_17)" +"(lambda(syntax-literals-data-instance_0 bulk-binding-registry_0)" "(begin" -"(if(let-values(((or-part_263)(eq? syntax-literals-data-instance_2 empty-syntax-literals-data-instance)))" -"(if or-part_263" -" or-part_263" -"(eq? syntax-literals-data-instance_2 empty-syntax-literals-instance/empty-namespace)))" +"(if(let-values(((or-part_242)(eq? syntax-literals-data-instance_0 empty-syntax-literals-data-instance)))" +"(if or-part_242" +" or-part_242" +"(eq? syntax-literals-data-instance_0 empty-syntax-literals-instance/empty-namespace)))" "(void)" "(let-values()" -"(let-values(((deserialize-syntax_0)" -"(1/instance-variable-value syntax-literals-data-instance_2 deserialize-syntax-id)))" -"(if deserialize-syntax_0(let-values()(deserialize-syntax_0 bulk-binding-registry_17))(void))))))))" +"(let-values(((deserialize-syntax_243)" +"(1/instance-variable-value syntax-literals-data-instance_0 deserialize-syntax-id)))" +"(if deserialize-syntax_243(let-values()(deserialize-syntax_243 bulk-binding-registry_0))(void))))))))" "(define-values" "(compiled-module->dh+h)" -"(lambda(c_27)" +"(lambda(c_0)" "(begin" -"(let-values(((ld/h_0)(if(compiled-in-memory? c_27)(compiled-in-memory-linklet-directory c_27) c_27)))" -"(let-values(((dh_1)" -"(if(1/linklet-directory? ld/h_0)" -"(let-values()(1/linklet-directory->hash ld/h_0))" +"(let-values(((ld/h_245)(if(compiled-in-memory? c_0)(compiled-in-memory-linklet-directory c_0) c_0)))" +"(let-values(((dh_246)" +"(if(1/linklet-directory? ld/h_245)" +"(let-values()(1/linklet-directory->hash ld/h_245))" "(let-values() #f))))" -"(let-values(((h_2)(1/linklet-bundle->hash(if dh_1(hash-ref dh_1 #f) ld/h_0))))(values dh_1 h_2)))))))" +"(let-values(((h_247)(1/linklet-bundle->hash(if dh_246(hash-ref dh_246 #f) ld/h_245))))" +"(values dh_246 h_247)))))))" "(define-values" "(compiled-module->h)" -"(lambda(c_28)(begin(let-values(((dh_2 h_3)(compiled-module->dh+h c_28))) h_3))))" +"(lambda(c_0)(begin(let-values(((dh_249 h_250)(compiled-module->dh+h c_0))) h_250))))" "(define-values" "(compiled-module->dh+h+data-instance+declaration-instance)" -"(lambda(c_29)" +"(lambda(c_0)" "(begin" -"(let-values(((dh_3 h_4)(compiled-module->dh+h c_29)))" -"(let-values(((data-instance_2)" -"(if(compiled-in-memory? c_29)" -"(make-data-instance-from-compiled-in-memory c_29)" -"(1/instantiate-linklet(1/eval-linklet(hash-ref h_4 'data))(list deserialize-instance)))))" -"(let-values(((declaration-instance_1)" -"(if(if(compiled-in-memory? c_29)(compiled-in-memory-original-self c_29) #f)" -"(make-declaration-instance-from-compiled-in-memory c_29)" +"(let-values(((dh_252 h_253)(compiled-module->dh+h c_0)))" +"(let-values(((data-instance_254)" +"(if(compiled-in-memory? c_0)" +"(make-data-instance-from-compiled-in-memory c_0)" +"(1/instantiate-linklet(1/eval-linklet(hash-ref h_253 'data))(list deserialize-instance)))))" +"(let-values(((declaration-instance_255)" +"(if(if(compiled-in-memory? c_0)(compiled-in-memory-original-self c_0) #f)" +"(make-declaration-instance-from-compiled-in-memory c_0)" "(1/instantiate-linklet" -"(1/eval-linklet(hash-ref h_4 'decl))" -"(list deserialize-instance data-instance_2)))))" -"(values dh_3 h_4 data-instance_2 declaration-instance_1)))))))" +"(1/eval-linklet(hash-ref h_253 'decl))" +"(list deserialize-instance data-instance_254)))))" +"(values dh_252 h_253 data-instance_254 declaration-instance_255)))))))" "(define-values" "(compiled-module->declaration-instance)" -"(lambda(c_30)" +"(lambda(c_0)" "(begin" -"(let-values(((dh_4 h_5 data-instance_3 declaration-instance_2)" -"(compiled-module->dh+h+data-instance+declaration-instance c_30)))" -" declaration-instance_2))))" +"(let-values(((dh_257 h_258 data-instance_259 declaration-instance_260)" +"(compiled-module->dh+h+data-instance+declaration-instance c_0)))" +" declaration-instance_260))))" "(define-values" "(compiled-module->h+declaration-instance)" -"(lambda(c_31)" +"(lambda(c_0)" "(begin" -"(let-values(((dh_5 h_6 data-instance_4 declaration-instance_3)" -"(compiled-module->dh+h+data-instance+declaration-instance c_31)))" -"(values h_6 declaration-instance_3)))))" +"(let-values(((dh_262 h_263 data-instance_264 declaration-instance_265)" +"(compiled-module->dh+h+data-instance+declaration-instance c_0)))" +"(values h_263 declaration-instance_265)))))" "(define-values" "(make-data-instance-from-compiled-in-memory)" -"(lambda(cim_6)(begin(1/make-instance 'data #f 'constant mpi-vector-id(compiled-in-memory-mpis cim_6)))))" +"(lambda(cim_0)(begin(1/make-instance 'data #f 'constant mpi-vector-id(compiled-in-memory-mpis cim_0)))))" "(define-values" "(make-declaration-instance-from-compiled-in-memory)" -"(lambda(cim_7)" +"(lambda(cim_0)" "(begin" "(1/make-instance" " 'decl" " #f" " 'constant" " 'self-mpi" -"(compiled-in-memory-original-self cim_7)" +"(compiled-in-memory-original-self cim_0)" " 'requires" -"(compiled-in-memory-requires cim_7)" +"(compiled-in-memory-requires cim_0)" " 'provides" -"(compiled-in-memory-provides cim_7)" +"(compiled-in-memory-provides cim_0)" " 'phase-to-link-modules" -"(compiled-in-memory-phase-to-link-module-uses cim_7)))))" +"(compiled-in-memory-phase-to-link-module-uses cim_0)))))" "(define-values" "(make-syntax-literal-data-instance-from-compiled-in-memory)" -"(lambda(cim_8)" +"(lambda(cim_0)" "(begin" "(1/make-instance" " 'syntax-literal-data" @@ -34679,7 +34864,7 @@ static const char *startup_source = " deserialize-syntax-id" " void" " deserialized-syntax-vector-id" -"(compiled-in-memory-syntax-literals cim_8)))))" +"(compiled-in-memory-syntax-literals cim_0)))))" "(define-values" "(empty-syntax-literals-instance/empty-namespace)" "(1/make-instance" @@ -34687,67 +34872,65 @@ static const char *startup_source = " #f" " 'constant" " get-syntax-literal!-id" -"(lambda(pos_100) #f)" +"(lambda(pos_0) #f)" " 'get-encoded-root-expand-ctx" " 'empty))" "(define-values" "(get-all-variables)" -"(lambda(phases-h_1)" +"(lambda(phases-h_0)" "(begin" -"(let-values(((ht_123) phases-h_1))" +"(let-values(((ht_271) phases-h_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_123)))" -"((letrec-values(((for-loop_240)" -"(lambda(table_186 i_146)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_271)))" +"((letrec-values(((for-loop_272)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_146" -"(let-values(((phase_91 linklet_5)(hash-iterate-key+value ht_123 i_146)))" -"(let-values(((table_187)" -"(let-values(((table_188) table_186))" -"(let-values(((table_141)" +"(if i_0" +"(let-values(((phase_275 linklet_276)(hash-iterate-key+value ht_271 i_0)))" +"(let-values(((table_277)" +"(let-values(((table_278) table_0))" +"(let-values(((table_279)" "(let-values()" -"(let-values(((key_69 val_60)" +"(let-values(((key_280 val_281)" "(let-values()" "(values" -" phase_91" +" phase_275" "(1/linklet-export-variables" -" linklet_5)))))" -"(hash-set table_188 key_69 val_60)))))" -"(values table_141)))))" -"(if(not #f)" -"(for-loop_240 table_187(hash-iterate-next ht_123 i_146))" -" table_187)))" -" table_186)))))" -" for-loop_240)" +" linklet_276)))))" +"(hash-set table_278 key_280 val_281)))))" +"(values table_279)))))" +"(if(not #f)(for-loop_272 table_277(hash-iterate-next ht_271 i_0)) table_277)))" +" table_0)))))" +" for-loop_272)" " '#hash()" -"(hash-iterate-first ht_123)))))))" +"(hash-iterate-first ht_271)))))))" "(define-values" "(provides->api-provides)" -"(lambda(provides_9 self_24)" +"(lambda(provides_0 self_0)" "(begin" -"(let-values(((extract_0)" -"(lambda(ok?_26)" +"(let-values(((extract_3)" +"(lambda(ok?_0)" "(begin" " 'extract" -"(let-values(((result-l_0)" +"(let-values(((result-l_5)" "(reverse$1" -"(let-values(((ht_124) provides_9))" +"(let-values(((ht_6) provides_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_124)))" -"((letrec-values(((for-loop_103)" -"(lambda(fold-var_59 i_147)" +"(let-values()(check-in-hash ht_6)))" +"((letrec-values(((for-loop_7)" +"(lambda(fold-var_0 i_0)" "(begin" " 'for-loop" -"(if i_147" -"(let-values(((phase_92 at-phase_11)" -"(hash-iterate-key+value ht_124 i_147)))" -"(let-values(((fold-var_60)" -"(let-values(((l_65)" +"(if i_0" +"(let-values(((phase_10 at-phase_11)" +"(hash-iterate-key+value ht_6 i_0)))" +"(let-values(((fold-var_12)" +"(let-values(((l_13)" "(reverse$1" -"(let-values(((ht_125)" +"(let-values(((ht_14)" " at-phase_11))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34755,828 +34938,819 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_125)))" -"((letrec-values(((for-loop_241)" -"(lambda(fold-var_219" -" i_148)" +" ht_14)))" +"((letrec-values(((for-loop_15)" +"(lambda(fold-var_1" +" i_1)" "(begin" " 'for-loop" -"(if i_148" -"(let-values(((sym_66" -" b/p_1)" +"(if i_1" +"(let-values(((sym_18" +" b/p_19)" "(hash-iterate-key+value" -" ht_125" -" i_148)))" -"(let-values(((fold-var_220)" -"(let-values(((fold-var_221)" -" fold-var_219))" -"(if(ok?_26" -" b/p_1)" -"(let-values(((fold-var_222)" -" fold-var_221))" -"(let-values(((fold-var_223)" +" ht_14" +" i_1)))" +"(let-values(((fold-var_20)" +"(let-values(((fold-var_21)" +" fold-var_1))" +"(if(ok?_0" +" b/p_19)" +"(let-values(((fold-var_22)" +" fold-var_21))" +"(let-values(((fold-var_23)" "(let-values()" "(cons" "(let-values()" -"(let-values(((b_64)" +"(let-values(((b_24)" "(provided-as-binding" -" b/p_1)))" +" b/p_19)))" "(list" -" sym_66" +" sym_18" "(if(eq?" -" self_24" +" self_0" "(module-binding-module" -" b_64))" +" b_24))" "(let-values()" " null)" "(let-values()" "(reverse$1" -"(let-values(((lst_87)" +"(let-values(((lst_25)" "(cons" -" b_64" +" b_24" "(module-binding-extra-nominal-bindings" -" b_64))))" +" b_24))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_87)))" -"((letrec-values(((for-loop_242)" -"(lambda(fold-var_224" -" lst_269)" +" lst_25)))" +"((letrec-values(((for-loop_26)" +"(lambda(fold-var_2" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_269)" -"(let-values(((b_76)" +" lst_0)" +"(let-values(((b_29)" "(unsafe-car" -" lst_269))" -"((rest_147)" +" lst_0))" +"((rest_30)" "(unsafe-cdr" -" lst_269)))" -"(let-values(((fold-var_29)" -"(let-values(((fold-var_30)" -" fold-var_224))" +" lst_0)))" "(let-values(((fold-var_31)" +"(let-values(((fold-var_32)" +" fold-var_2))" +"(let-values(((fold-var_33)" "(let-values()" "(cons" "(let-values()" "(if(if(eqv?" "(module-binding-nominal-phase" -" b_76)" -" phase_92)" +" b_29)" +" phase_10)" "(eq?" "(module-binding-nominal-sym" -" b_76)" -" sym_66)" +" b_29)" +" sym_18)" " #f)" "(let-values()" "(module-binding-nominal-module" -" b_76))" +" b_29))" "(let-values()" "(list" "(module-binding-nominal-module" -" b_76)" +" b_29)" "(module-binding-phase" -" b_76)" +" b_29)" "(module-binding-nominal-sym" -" b_76)" +" b_29)" "(module-binding-nominal-phase" -" b_76)))))" -" fold-var_30))))" +" b_29)))))" +" fold-var_32))))" "(values" -" fold-var_31)))))" +" fold-var_33)))))" "(if(not" " #f)" -"(for-loop_242" -" fold-var_29" -" rest_147)" -" fold-var_29)))" -" fold-var_224)))))" -" for-loop_242)" +"(for-loop_26" +" fold-var_31" +" rest_30)" +" fold-var_31)))" +" fold-var_2)))))" +" for-loop_26)" " null" -" lst_87)))))))))" -" fold-var_222))))" +" lst_25)))))))))" +" fold-var_22))))" "(values" -" fold-var_223)))" -" fold-var_221))))" +" fold-var_23)))" +" fold-var_21))))" "(if(not" " #f)" -"(for-loop_241" -" fold-var_220" +"(for-loop_15" +" fold-var_20" "(hash-iterate-next" -" ht_125" -" i_148))" -" fold-var_220)))" -" fold-var_219)))))" -" for-loop_241)" +" ht_14" +" i_1))" +" fold-var_20)))" +" fold-var_1)))))" +" for-loop_15)" " null" "(hash-iterate-first" -" ht_125)))))))" +" ht_14)))))))" "(begin" " #t" -"((letrec-values(((for-loop_109)" -"(lambda(fold-var_71)" +"((letrec-values(((for-loop_34)" +"(lambda(fold-var_1)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_225)" -"(let-values(((fold-var_32)" -" fold-var_71))" +"(let-values(((fold-var_36)" +"(let-values(((fold-var_37)" +" fold-var_1))" "(if(null?" -" l_65)" -" fold-var_32" -"(let-values(((fold-var_33)" -" fold-var_32))" -"(let-values(((fold-var_34)" +" l_13)" +" fold-var_37" +"(let-values(((fold-var_38)" +" fold-var_37))" +"(let-values(((fold-var_39)" "(let-values()" "(cons" "(let-values()" "(cons" -" phase_92" -"(let-values(((l4_0)" -" l_65)" -"((symbolapi-nonprovides)" -"(lambda(provides_10 all-vars_0)" +"(lambda(provides_0 all-vars_0)" "(begin" -"(let-values(((result-l_1)" +"(let-values(((result-l_51)" "(reverse$1" -"(let-values(((ht_85) all-vars_0))" +"(let-values(((ht_52) all-vars_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_85)))" -"((letrec-values(((for-loop_119)" -"(lambda(fold-var_171 i_95)" +"(let-values()(check-in-hash ht_52)))" +"((letrec-values(((for-loop_53)" +"(lambda(fold-var_0 i_0)" "(begin" " 'for-loop" -"(if i_95" -"(let-values(((phase_93 vars_0)(hash-iterate-key+value ht_85 i_95)))" -"(let-values(((fold-var_173)" -"(let-values(((fold-var_226) fold-var_171))" -"(let-values(((l_66)" -"(let-values(((syms_19)" +"(if i_0" +"(let-values(((phase_56 vars_57)(hash-iterate-key+value ht_52 i_0)))" +"(let-values(((fold-var_58)" +"(let-values(((fold-var_59) fold-var_0))" +"(let-values(((l_60)" +"(let-values(((syms_61)" "(hash-ref" -" provides_10" -" phase_93" +" provides_0" +" phase_56" " '#hasheq())))" "(reverse$1" -"(let-values(((lst_18) vars_0))" +"(let-values(((lst_62) vars_57))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_18)))" -"((letrec-values(((for-loop_219)" -"(lambda(fold-var_174" -" lst_270)" +"(check-list lst_62)))" +"((letrec-values(((for-loop_63)" +"(lambda(fold-var_1" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_270)" -"(let-values(((var-sym_5)" +" lst_0)" +"(let-values(((var-sym_66)" "(unsafe-car" -" lst_270))" -"((rest_148)" +" lst_0))" +"((rest_67)" "(unsafe-cdr" -" lst_270)))" -"(let-values(((fold-var_76)" -"(let-values(((fold-var_227)" -" fold-var_174))" +" lst_0)))" +"(let-values(((fold-var_68)" +"(let-values(((fold-var_69)" +" fold-var_1))" "(if(hash-ref" -" syms_19" -" var-sym_5" +" syms_61" +" var-sym_66" " #f)" -" fold-var_227" -"(let-values(((fold-var_228)" -" fold-var_227))" -"(let-values(((fold-var_229)" +" fold-var_69" +"(let-values(((fold-var_70)" +" fold-var_69))" +"(let-values(((fold-var_71)" "(let-values()" "(cons" "(let-values()" -" var-sym_5)" -" fold-var_228))))" +" var-sym_66)" +" fold-var_70))))" "(values" -" fold-var_229)))))))" +" fold-var_71)))))))" "(if(not" " #f)" -"(for-loop_219" -" fold-var_76" -" rest_148)" -" fold-var_76)))" -" fold-var_174)))))" -" for-loop_219)" +"(for-loop_63" +" fold-var_68" +" rest_67)" +" fold-var_68)))" +" fold-var_1)))))" +" for-loop_63)" " null" -" lst_18)))))))" +" lst_62)))))))" "(begin" " #t" -"((letrec-values(((for-loop_112)" -"(lambda(fold-var_66)" +"((letrec-values(((for-loop_72)" +"(lambda(fold-var_1)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_67)" -"(let-values(((fold-var_18)" -" fold-var_66))" +"(let-values(((fold-var_74)" +"(let-values(((fold-var_75)" +" fold-var_1))" "(if(null?" -" l_66)" -" fold-var_18" -"(let-values(((fold-var_19)" -" fold-var_18))" -"(let-values(((fold-var_20)" +" l_60)" +" fold-var_75" +"(let-values(((fold-var_76)" +" fold-var_75))" +"(let-values(((fold-var_77)" "(let-values()" "(cons" "(let-values()" "(cons" -" phase_93" -"(let-values(((l10_0)" -" l_66)" -"((symbollinklet-directory-or-bundle)" -"(lambda(c_32)(begin(if(compiled-in-memory? c_32)(compiled-in-memory-linklet-directory c_32) c_32))))" +"(lambda(c_0)(begin(if(compiled-in-memory? c_0)(compiled-in-memory-linklet-directory c_0) c_0))))" "(define-values" "(module-compiled-current-name)" -"(lambda(c_33)" +"(lambda(c_0)" "(begin" -"(let-values(((ld_1)(compiled->linklet-directory-or-bundle c_33)))" -"(let-values(((b_15)(if(1/linklet-bundle? ld_1) ld_1(hash-ref(1/linklet-directory->hash ld_1) #f))))" -"(hash-ref(1/linklet-bundle->hash b_15) 'name))))))" +"(let-values(((ld_3)(compiled->linklet-directory-or-bundle c_0)))" +"(let-values(((b_4)(if(1/linklet-bundle? ld_3) ld_3(hash-ref(1/linklet-directory->hash ld_3) #f))))" +"(hash-ref(1/linklet-bundle->hash b_4) 'name))))))" "(define-values" "(module-compiled-immediate-name)" -"(lambda(c_25)" -"(begin(let-values(((n_27)(module-compiled-current-name c_25)))(if(pair? n_27)(car(reverse$1 n_27)) n_27)))))" +"(lambda(c_0)" +"(begin(let-values(((n_6)(module-compiled-current-name c_0)))(if(pair? n_6)(car(reverse$1 n_6)) n_6)))))" "(define-values" "(change-module-name)" -"(lambda(c_34 name_3 prefix_4)" +"(lambda(c_0 name_0 prefix_0)" "(begin" -"(let-values(((full-name_0)(if(null? prefix_4) name_3(append prefix_4(list name_3)))))" -"(let-values(((next-prefix_0)(if(null? prefix_4)(list name_3) full-name_0)))" -"(let-values(((recur_0)" -"(lambda(sub-c_0 name_50)" +"(let-values(((full-name_10)(if(null? prefix_0) name_0(append prefix_0(list name_0)))))" +"(let-values(((next-prefix_11)(if(null? prefix_0)(list name_0) full-name_10)))" +"(let-values(((recur_12)" +"(lambda(sub-c_0 name_1)" "(begin" " 'recur" -"(if(equal?(module-compiled-current-name sub-c_0)(append next-prefix_0(list name_50)))" +"(if(equal?(module-compiled-current-name sub-c_0)(append next-prefix_11(list name_1)))" " sub-c_0" -"(change-module-name sub-c_0 name_50 next-prefix_0))))))" -"(if(compiled-in-memory? c_34)" +"(change-module-name sub-c_0 name_1 next-prefix_11))))))" +"(if(compiled-in-memory? c_0)" "(let-values()" -"(let-values(((change-submodule-name_0)" -"(lambda(sub-c_1)" +"(let-values(((change-submodule-name_15)" +"(lambda(sub-c_0)" "(begin" " 'change-submodule-name" -"(recur_0 sub-c_1(module-compiled-immediate-name sub-c_1))))))" -"(let-values(((pre-compiled-in-memorys_0)" -"(map2 change-submodule-name_0(compiled-in-memory-pre-compiled-in-memorys c_34))))" -"(let-values(((post-compiled-in-memorys_0)" -"(map2 change-submodule-name_0(compiled-in-memory-post-compiled-in-memorys c_34))))" -"(let-values(((the-struct_6) c_34))" -"(if(compiled-in-memory? the-struct_6)" -"(let-values(((pre-compiled-in-memorys8_0) pre-compiled-in-memorys_0)" -"((post-compiled-in-memorys9_0) post-compiled-in-memorys_0)" -"((linklet-directory10_0)" -"(let-values(((temp11_3)" +"(recur_12 sub-c_0(module-compiled-immediate-name sub-c_0))))))" +"(let-values(((pre-compiled-in-memorys_16)" +"(map2 change-submodule-name_15(compiled-in-memory-pre-compiled-in-memorys c_0))))" +"(let-values(((post-compiled-in-memorys_17)" +"(map2 change-submodule-name_15(compiled-in-memory-post-compiled-in-memorys c_0))))" +"(let-values(((the-struct_19) c_0))" +"(if(compiled-in-memory? the-struct_19)" +"(let-values(((pre-compiled-in-memorys8_20) pre-compiled-in-memorys_16)" +"((post-compiled-in-memorys9_21) post-compiled-in-memorys_17)" +"((linklet-directory10_22)" +"(let-values(((temp11_24)" "(update-one-name" -"(let-values(((ld_2)" -"(compiled->linklet-directory-or-bundle c_34)))" -"(if(1/linklet-bundle? ld_2)" -" ld_2" -"(hash-ref(1/linklet-directory->hash ld_2) #f)))" -" full-name_0))" -"((temp12_1)(symbol? full-name_0))" -"((temp13_1)" -"(append pre-compiled-in-memorys_0 post-compiled-in-memorys_0)))" -"(rebuild-linklet-directory5.1 temp12_1 temp11_3 temp13_1))))" +"(let-values(((ld_27)" +"(compiled->linklet-directory-or-bundle c_0)))" +"(if(1/linklet-bundle? ld_27)" +" ld_27" +"(hash-ref(1/linklet-directory->hash ld_27) #f)))" +" full-name_10))" +"((temp12_25)(symbol? full-name_10))" +"((temp13_26)" +"(append pre-compiled-in-memorys_16 post-compiled-in-memorys_17)))" +"(rebuild-linklet-directory5.1 temp12_25 temp11_24 temp13_26))))" "(compiled-in-memory1.1" -" linklet-directory10_0" -"(compiled-in-memory-original-self the-struct_6)" -"(compiled-in-memory-requires the-struct_6)" -"(compiled-in-memory-provides the-struct_6)" -"(compiled-in-memory-phase-to-link-module-uses the-struct_6)" -"(compiled-in-memory-compile-time-inspector the-struct_6)" -"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_6)" -"(compiled-in-memory-mpis the-struct_6)" -"(compiled-in-memory-syntax-literals the-struct_6)" -" pre-compiled-in-memorys8_0" -" post-compiled-in-memorys9_0" -"(compiled-in-memory-namespace-scopes the-struct_6)" -"(compiled-in-memory-purely-functional? the-struct_6)))" -" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_6)))))))" -"(if(1/linklet-directory? c_34)" +" linklet-directory10_22" +"(compiled-in-memory-original-self the-struct_19)" +"(compiled-in-memory-requires the-struct_19)" +"(compiled-in-memory-provides the-struct_19)" +"(compiled-in-memory-phase-to-link-module-uses the-struct_19)" +"(compiled-in-memory-compile-time-inspector the-struct_19)" +"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_19)" +"(compiled-in-memory-mpis the-struct_19)" +"(compiled-in-memory-syntax-literals the-struct_19)" +" pre-compiled-in-memorys8_20" +" post-compiled-in-memorys9_21" +"(compiled-in-memory-namespace-scopes the-struct_19)" +"(compiled-in-memory-purely-functional? the-struct_19)))" +" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_19)))))))" +"(if(1/linklet-directory? c_0)" "(let-values()" "(1/hash->linklet-directory" -"(let-values(((ht_126)(1/linklet-directory->hash c_34)))" +"(let-values(((ht_28)(1/linklet-directory->hash c_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_126)))" -"((letrec-values(((for-loop_243)" -"(lambda(table_189 i_92)" +"(let-values()(check-in-hash ht_28)))" +"((letrec-values(((for-loop_29)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_92" -"(let-values(((key_70 val_61)(hash-iterate-key+value ht_126 i_92)))" -"(let-values(((table_190)" -"(let-values(((table_191) table_189))" -"(let-values(((table_192)" +"(if i_0" +"(let-values(((key_32 val_33)(hash-iterate-key+value ht_28 i_0)))" +"(let-values(((table_34)" +"(let-values(((table_35) table_0))" +"(let-values(((table_36)" "(let-values()" -"(let-values(((key_71 val_62)" +"(let-values(((key_37 val_38)" "(let-values()" "(values" -" key_70" -"(if(not key_70)" +" key_32" +"(if(not key_32)" "(update-one-name" -" val_61" -" full-name_0)" -"(recur_0" -" val_61" -" key_70))))))" -"(hash-set" -" table_191" -" key_71" -" val_62)))))" -"(values table_192)))))" +" val_33" +" full-name_10)" +"(recur_12" +" val_33" +" key_32))))))" +"(hash-set table_35 key_37 val_38)))))" +"(values table_36)))))" "(if(not #f)" -"(for-loop_243 table_190(hash-iterate-next ht_126 i_92))" -" table_190)))" -" table_189)))))" -" for-loop_243)" +"(for-loop_29 table_34(hash-iterate-next ht_28 i_0))" +" table_34)))" +" table_0)))))" +" for-loop_29)" " '#hasheq()" -"(hash-iterate-first ht_126))))))" -"(let-values()(update-one-name c_34 full-name_0))))))))))" +"(hash-iterate-first ht_28))))))" +"(let-values()(update-one-name c_0 full-name_10))))))))))" "(define-values" "(update-one-name)" -"(lambda(lb_0 name_51)(begin(1/hash->linklet-bundle(hash-set(1/linklet-bundle->hash lb_0) 'name name_51)))))" +"(lambda(lb_0 name_0)(begin(1/hash->linklet-bundle(hash-set(1/linklet-bundle->hash lb_0) 'name name_0)))))" "(define-values" "(rebuild-linklet-directory5.1)" "(lambda(bundle-ok?1_0 main3_0 submods4_0)" "(begin" " 'rebuild-linklet-directory5" -"(let-values(((main_0) main3_0))" -"(let-values(((submods_0) submods4_0))" -"(let-values(((bundle-ok?_0) bundle-ok?1_0))" +"(let-values(((main_44) main3_0))" +"(let-values(((submods_45) submods4_0))" +"(let-values(((bundle-ok?_46) bundle-ok?1_0))" "(let-values()" -"(if(if(null? submods_0) bundle-ok?_0 #f)" -" main_0" +"(if(if(null? submods_45) bundle-ok?_46 #f)" +" main_44" "(1/hash->linklet-directory" "(hash-set" -"(let-values(((lst_91) submods_0))" +"(let-values(((lst_47) submods_45))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_91)))" -"((letrec-values(((for-loop_49)" -"(lambda(ht_127 lst_78)" +"(let-values()(check-list lst_47)))" +"((letrec-values(((for-loop_48)" +"(lambda(ht_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_78)" -"(let-values(((submod_1)(unsafe-car lst_78))" -"((rest_35)(unsafe-cdr lst_78)))" -"(let-values(((ht_117)" -"(let-values(((ht_118) ht_127))" -"(let-values(((ht_119)" +"(if(pair? lst_0)" +"(let-values(((submod_51)(unsafe-car lst_0))" +"((rest_52)(unsafe-cdr lst_0)))" +"(let-values(((ht_53)" +"(let-values(((ht_54) ht_0))" +"(let-values(((ht_55)" "(let-values()" -"(let-values(((name_52)" +"(let-values(((name_56)" "(module-compiled-immediate-name" -" submod_1)))" -"(if(hash-ref ht_118 name_52 #f)" +" submod_51)))" +"(if(hash-ref ht_54 name_56 #f)" "(let-values()" "(raise-arguments-error" " 'module-compiled-submodules" " \"change would result in duplicate submodule name\"" " \"name\"" -" name_52))" +" name_56))" "(let-values()" "(hash-set" -" ht_118" -" name_52" +" ht_54" +" name_56" "(compiled->linklet-directory-or-bundle" -" submod_1))))))))" -"(values ht_119)))))" -"(if(not #f)(for-loop_49 ht_117 rest_35) ht_117)))" -" ht_127)))))" -" for-loop_49)" +" submod_51))))))))" +"(values ht_55)))))" +"(if(not #f)(for-loop_48 ht_53 rest_52) ht_53)))" +" ht_0)))))" +" for-loop_48)" " '#hasheq()" -" lst_91)))" +" lst_47)))" " #f" -" main_0))))))))))" +" main_44))))))))))" "(define-values" "(1/compiled-expression?)" -"(lambda(c_32)" +"(lambda(c_0)" "(begin" " 'compiled-expression?" -"(let-values(((or-part_0)(compiled-in-memory? c_32)))" -"(if or-part_0" -" or-part_0" -"(let-values(((or-part_1)(1/linklet-directory? c_32)))" -"(if or-part_1 or-part_1(1/linklet-bundle? c_32))))))))" +"(let-values(((or-part_2)(compiled-in-memory? c_0)))" +"(if or-part_2" +" or-part_2" +"(let-values(((or-part_3)(1/linklet-directory? c_0)))(if or-part_3 or-part_3(1/linklet-bundle? c_0))))))))" "(define-values" "(1/compiled-module-expression?)" -"(lambda(c_35)" +"(lambda(c_0)" "(begin" " 'compiled-module-expression?" -"(let-values(((ld_3)(compiled->linklet-directory-or-bundle c_35)))" -"(let-values(((or-part_26)" -"(if(1/linklet-directory? ld_3)" -"(if(let-values(((b_77)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))" -"(if b_77(hash-ref(1/linklet-bundle->hash b_77) 'decl #f) #f))" +"(let-values(((ld_5)(compiled->linklet-directory-or-bundle c_0)))" +"(let-values(((or-part_6)" +"(if(1/linklet-directory? ld_5)" +"(if(let-values(((b_7)(hash-ref(1/linklet-directory->hash ld_5) #f #f)))" +"(if b_7(hash-ref(1/linklet-bundle->hash b_7) 'decl #f) #f))" " #t" " #f)" " #f)))" -"(if or-part_26" -" or-part_26" -"(if(1/linklet-bundle? ld_3)(if(hash-ref(1/linklet-bundle->hash ld_3) 'decl #f) #t #f) #f)))))))" +"(if or-part_6" +" or-part_6" +"(if(1/linklet-bundle? ld_5)(if(hash-ref(1/linklet-bundle->hash ld_5) 'decl #f) #t #f) #f)))))))" "(define-values" "(1/module-compiled-name)" "(let-values()" "(let-values()" "(case-lambda" -"((c_36)" +"((c_0)" "(begin" " 'module-compiled-name" "(begin" -"(if(1/compiled-module-expression? c_36)" +"(if(1/compiled-module-expression? c_0)" "(void)" -" (let-values () (raise-argument-error 'module-compiled-name \"compiled-module-expression?\" c_36)))" -"(module-compiled-current-name c_36))))" -"((c_37 name_53)" +" (let-values () (raise-argument-error 'module-compiled-name \"compiled-module-expression?\" c_0)))" +"(module-compiled-current-name c_0))))" +"((c_0 name_0)" "(let-values((()" "(begin" -"(if(1/compiled-module-expression? c_37)" +"(if(1/compiled-module-expression? c_0)" "(void)" "(let-values()" -" (raise-argument-error 'module-compiled-name \"compiled-module-expression?\" c_37)))" +" (raise-argument-error 'module-compiled-name \"compiled-module-expression?\" c_0)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_217)(symbol? name_53)))" -"(if or-part_217" -" or-part_217" -"(if(pair? name_53)(if(list? name_53)(andmap2 symbol? name_53) #f) #f)))" +"(if(let-values(((or-part_14)(symbol? name_0)))" +"(if or-part_14" +" or-part_14" +"(if(pair? name_0)(if(list? name_0)(andmap2 symbol? name_0) #f) #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'module-compiled-name" " \"(or/c symbol? (cons/c symbol? (non-empty-listof symbol?)))\"" -" name_53)))" +" name_0)))" "(values))))" -"(let-values(((i-name_0 prefix_5)" -"(if(symbol? name_53)" -"(values name_53 null)" -"(let-values(((r_38)(reverse$1 name_53)))(values(car r_38)(reverse$1(cdr r_38)))))))" -"(change-module-name c_37 i-name_0 prefix_5)))))))))" +"(let-values(((i-name_12 prefix_13)" +"(if(symbol? name_0)" +"(values name_0 null)" +"(let-values(((r_15)(reverse$1 name_0)))(values(car r_15)(reverse$1(cdr r_15)))))))" +"(change-module-name c_0 i-name_12 prefix_13)))))))))" "(define-values" "(1/module-compiled-submodules)" "(let-values()" "(let-values()" "(case-lambda" -"((c_13 non-star?_0)" +"((c_0 non-star?_0)" "(begin" " 'module-compiled-submodules" "(begin" -"(if(1/compiled-module-expression? c_13)" +"(if(1/compiled-module-expression? c_0)" "(void)" -" (let-values () (raise-argument-error 'module-compiled-submodules \"compiled-module-expression?\" c_13)))" -"(if(compiled-in-memory? c_13)" +" (let-values () (raise-argument-error 'module-compiled-submodules \"compiled-module-expression?\" c_0)))" +"(if(compiled-in-memory? c_0)" "(let-values()" "(if non-star?_0" -"(compiled-in-memory-pre-compiled-in-memorys c_13)" -"(compiled-in-memory-post-compiled-in-memorys c_13)))" +"(compiled-in-memory-pre-compiled-in-memorys c_0)" +"(compiled-in-memory-post-compiled-in-memorys c_0)))" "(let-values()" -"(if(1/linklet-directory? c_13)" +"(if(1/linklet-directory? c_0)" "(let-values()" -"(let-values(((ht_69)(1/linklet-directory->hash c_13)))" -"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_69 #f))))" -"(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))" +"(let-values(((ht_19)(1/linklet-directory->hash c_0)))" +"(let-values(((bh_20)(1/linklet-bundle->hash(hash-ref ht_19 #f))))" +"(let-values(((names_21)(hash-ref bh_20(if non-star?_0 'pre 'post) null)))" "(reverse$1" -"(let-values(((lst_86) names_1))" +"(let-values(((lst_22) names_21))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_108)" -"(lambda(fold-var_69 lst_87)" +"(let-values()(check-list lst_22)))" +"((letrec-values(((for-loop_23)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_87)" -"(let-values(((name_54)(unsafe-car lst_87))" -"((rest_41)(unsafe-cdr lst_87)))" -"(let-values(((fold-var_70)" -"(let-values(((fold-var_27) fold-var_69))" +"(if(pair? lst_0)" +"(let-values(((name_26)(unsafe-car lst_0))" +"((rest_27)(unsafe-cdr lst_0)))" "(let-values(((fold-var_28)" +"(let-values(((fold-var_29) fold-var_0))" +"(let-values(((fold-var_30)" "(let-values()" "(cons" "(let-values()" -"(hash-ref ht_69 name_54))" -" fold-var_27))))" -"(values fold-var_28)))))" -"(if(not #f)" -"(for-loop_108 fold-var_70 rest_41)" -" fold-var_70)))" -" fold-var_69)))))" -" for-loop_108)" +"(hash-ref ht_19 name_26))" +" fold-var_29))))" +"(values fold-var_30)))))" +"(if(not #f)(for-loop_23 fold-var_28 rest_27) fold-var_28)))" +" fold-var_0)))))" +" for-loop_23)" " null" -" lst_86))))))))" +" lst_22))))))))" "(let-values() null)))))))" -"((c_38 non-star?_1 submods_1)" +"((c_0 non-star?_0 submods_0)" "(begin" -"(if(1/compiled-module-expression? c_38)" +"(if(1/compiled-module-expression? c_0)" "(void)" -" (let-values () (raise-argument-error 'module-compiled-submodules \"compiled-module-expression?\" c_38)))" -"(if(if(list? submods_1)(andmap2 1/compiled-module-expression? submods_1) #f)" +" (let-values () (raise-argument-error 'module-compiled-submodules \"compiled-module-expression?\" c_0)))" +"(if(if(list? submods_0)(andmap2 1/compiled-module-expression? submods_0) #f)" "(void)" "(let-values()" -" (raise-argument-error 'module-compiled-submodules \"(listof compiled-module-expression?)\" submods_1)))" -"(if(if(null? submods_1)" -"(let-values(((or-part_29)(1/linklet-bundle?(compiled->linklet-directory-or-bundle c_38))))" -"(if or-part_29" -" or-part_29" -"(if(compiled-in-memory? c_38)" +" (raise-argument-error 'module-compiled-submodules \"(listof compiled-module-expression?)\" submods_0)))" +"(if(if(null? submods_0)" +"(let-values(((or-part_34)(1/linklet-bundle?(compiled->linklet-directory-or-bundle c_0))))" +"(if or-part_34" +" or-part_34" +"(if(compiled-in-memory? c_0)" "(null?" -"(if non-star?_1" -"(compiled-in-memory-pre-compiled-in-memorys c_38)" -"(compiled-in-memory-post-compiled-in-memorys c_38)))" +"(if non-star?_0" +"(compiled-in-memory-pre-compiled-in-memorys c_0)" +"(compiled-in-memory-post-compiled-in-memorys c_0)))" " #f)))" " #f)" -"(let-values() c_38)" -"(if(if(compiled-in-memory? c_38)(andmap2 compiled-in-memory? submods_1) #f)" +"(let-values() c_0)" +"(if(if(compiled-in-memory? c_0)(andmap2 compiled-in-memory? submods_0) #f)" "(let-values()" -"(let-values(((pre-compiled-in-memorys_1)" -"(if non-star?_1 submods_1(compiled-in-memory-pre-compiled-in-memorys c_38))))" -"(let-values(((post-compiled-in-memorys_1)" -"(if non-star?_1(compiled-in-memory-post-compiled-in-memorys c_38) submods_1)))" -"(let-values(((n-c_0)(normalize-to-linklet-directory c_38)))" +"(let-values(((pre-compiled-in-memorys_35)" +"(if non-star?_0 submods_0(compiled-in-memory-pre-compiled-in-memorys c_0))))" +"(let-values(((post-compiled-in-memorys_36)" +"(if non-star?_0(compiled-in-memory-post-compiled-in-memorys c_0) submods_0)))" +"(let-values(((n-c_37)(normalize-to-linklet-directory c_0)))" "(fixup-submodule-names" -"(let-values(((the-struct_47) n-c_0))" -"(if(compiled-in-memory? the-struct_47)" -"(let-values(((pre-compiled-in-memorys3_0) pre-compiled-in-memorys_1)" -"((post-compiled-in-memorys4_0) post-compiled-in-memorys_1)" -"((linklet-directory5_0)" -"(let-values(((temp6_0)" +"(let-values(((the-struct_38) n-c_37))" +"(if(compiled-in-memory? the-struct_38)" +"(let-values(((pre-compiled-in-memorys3_39) pre-compiled-in-memorys_35)" +"((post-compiled-in-memorys4_40) post-compiled-in-memorys_36)" +"((linklet-directory5_41)" +"(let-values(((temp6_43)" "(reset-submodule-names" "(hash-ref" "(1/linklet-directory->hash" -"(compiled->linklet-directory-or-bundle n-c_0))" +"(compiled->linklet-directory-or-bundle n-c_37))" " #f)" -" non-star?_1" -" submods_1))" -"((temp7_2)(symbol?(module-compiled-current-name c_38)))" -"((temp8_2)" -"(append pre-compiled-in-memorys_1 post-compiled-in-memorys_1)))" -"(rebuild-linklet-directory5.1 temp7_2 temp6_0 temp8_2))))" +" non-star?_0" +" submods_0))" +"((temp7_44)(symbol?(module-compiled-current-name c_0)))" +"((temp8_45)" +"(append pre-compiled-in-memorys_35 post-compiled-in-memorys_36)))" +"(rebuild-linklet-directory5.1 temp7_44 temp6_43 temp8_45))))" "(compiled-in-memory1.1" -" linklet-directory5_0" -"(compiled-in-memory-original-self the-struct_47)" -"(compiled-in-memory-requires the-struct_47)" -"(compiled-in-memory-provides the-struct_47)" -"(compiled-in-memory-phase-to-link-module-uses the-struct_47)" -"(compiled-in-memory-compile-time-inspector the-struct_47)" -"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_47)" -"(compiled-in-memory-mpis the-struct_47)" -"(compiled-in-memory-syntax-literals the-struct_47)" -" pre-compiled-in-memorys3_0" -" post-compiled-in-memorys4_0" -"(compiled-in-memory-namespace-scopes the-struct_47)" -"(compiled-in-memory-purely-functional? the-struct_47)))" -" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_47))))))))" +" linklet-directory5_41" +"(compiled-in-memory-original-self the-struct_38)" +"(compiled-in-memory-requires the-struct_38)" +"(compiled-in-memory-provides the-struct_38)" +"(compiled-in-memory-phase-to-link-module-uses the-struct_38)" +"(compiled-in-memory-compile-time-inspector the-struct_38)" +"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_38)" +"(compiled-in-memory-mpis the-struct_38)" +"(compiled-in-memory-syntax-literals the-struct_38)" +" pre-compiled-in-memorys3_39" +" post-compiled-in-memorys4_40" +"(compiled-in-memory-namespace-scopes the-struct_38)" +"(compiled-in-memory-purely-functional? the-struct_38)))" +" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_38))))))))" "(let-values()" -"(let-values(((n-c_1)(normalize-to-linklet-directory c_38)))" +"(let-values(((n-c_46)(normalize-to-linklet-directory c_0)))" "(fixup-submodule-names" -"(let-values(((temp9_3)" +"(let-values(((temp9_47)" "(reset-submodule-names" "(hash-ref" -"(1/linklet-directory->hash(compiled->linklet-directory-or-bundle n-c_1))" +"(1/linklet-directory->hash(compiled->linklet-directory-or-bundle n-c_46))" " #f)" -" non-star?_1" -" submods_1))" -"((temp10_3)" +" non-star?_0" +" submods_0))" +"((temp10_48)" "(map2" " compiled->linklet-directory-or-bundle" "(append" -"(if non-star?_1 submods_1(1/module-compiled-submodules c_38 #t))" -"(if non-star?_1(1/module-compiled-submodules c_38 #f) submods_1)))))" -"(rebuild-linklet-directory5.1 #f temp9_3 temp10_3)))))))))))))" +"(if non-star?_0 submods_0(1/module-compiled-submodules c_0 #t))" +"(if non-star?_0(1/module-compiled-submodules c_0 #f) submods_0)))))" +"(rebuild-linklet-directory5.1 #f temp9_47 temp10_48)))))))))))))" "(define-values" "(1/module-compiled-language-info)" -"(lambda(c_39)" +"(lambda(c_0)" "(begin" " 'module-compiled-language-info" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(1/compiled-module-expression? c_39)" +"(if(1/compiled-module-expression? c_0)" "(void)" "(let-values()" -" (raise-argument-error 'module-compiled-language-info \"compiled-module-expression?\" c_39)))" +" (raise-argument-error 'module-compiled-language-info \"compiled-module-expression?\" c_0)))" "(values))))" -"(let-values(((h_7)(compiled-module->h c_39)))(hash-ref h_7 'language-info #f))))))))" +"(let-values(((h_51)(compiled-module->h c_0)))(hash-ref h_51 'language-info #f))))))))" "(define-values" "(1/module-compiled-imports)" -"(lambda(c_40)" +"(lambda(c_0)" "(begin" " 'module-compiled-imports" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(1/compiled-module-expression? c_40)" +"(if(1/compiled-module-expression? c_0)" "(void)" "(let-values()" -" (raise-argument-error 'module-compiled-imports \"compiled-module-expression?\" c_40)))" +" (raise-argument-error 'module-compiled-imports \"compiled-module-expression?\" c_0)))" "(values))))" -"(let-values(((inst_2)(compiled-module->declaration-instance c_40)))" -"(1/instance-variable-value inst_2 'requires))))))))" +"(let-values(((inst_54)(compiled-module->declaration-instance c_0)))" +"(1/instance-variable-value inst_54 'requires))))))))" "(define-values" "(1/module-compiled-exports)" -"(lambda(c_41)" +"(lambda(c_0)" "(begin" " 'module-compiled-exports" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(1/compiled-module-expression? c_41)" +"(if(1/compiled-module-expression? c_0)" "(void)" "(let-values()" -" (raise-argument-error 'module-compiled-exports \"compiled-module-expression?\" c_41)))" +" (raise-argument-error 'module-compiled-exports \"compiled-module-expression?\" c_0)))" "(values))))" -"(let-values(((inst_3)(compiled-module->declaration-instance c_41)))" +"(let-values(((inst_57)(compiled-module->declaration-instance c_0)))" "(provides->api-provides" -"(1/instance-variable-value inst_3 'provides)" -"(1/instance-variable-value inst_3 'self-mpi)))))))))" +"(1/instance-variable-value inst_57 'provides)" +"(1/instance-variable-value inst_57 'self-mpi)))))))))" "(define-values" "(1/module-compiled-indirect-exports)" -"(lambda(c_15)" +"(lambda(c_0)" "(begin" " 'module-compiled-indirect-exports" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(1/compiled-module-expression? c_15)" +"(if(1/compiled-module-expression? c_0)" "(void)" "(let-values()" "(raise-argument-error" " 'module-compiled-indirect-exports" " \"compiled-module-expression?\"" -" c_15)))" +" c_0)))" "(values))))" -"(let-values(((h_8 inst_0)(compiled-module->h+declaration-instance c_15)))" -"(let-values(((min-phase_3)(hash-ref h_8 'min-phase 0)))" -"(let-values(((max-phase_3)(hash-ref h_8 'max-phase 0)))" +"(let-values(((h_60 inst_61)(compiled-module->h+declaration-instance c_0)))" +"(let-values(((min-phase_62)(hash-ref h_60 'min-phase 0)))" +"(let-values(((max-phase_63)(hash-ref h_60 'max-phase 0)))" "(variables->api-nonprovides" -"(1/instance-variable-value inst_0 'provides)" -"(let-values(((start_38) min-phase_3)((end_27)(add1 max-phase_3))((inc_21) 1))" +"(1/instance-variable-value inst_61 'provides)" +"(let-values(((start_64) min-phase_62)((end_65)(add1 max-phase_63))((inc_66) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_38 end_27 inc_21)))" -"((letrec-values(((for-loop_197)" -"(lambda(table_65 pos_101)" +"(let-values()(check-range start_64 end_65 inc_66)))" +"((letrec-values(((for-loop_67)" +"(lambda(table_0 pos_0)" "(begin" " 'for-loop" -"(if(< pos_101 end_27)" -"(let-values(((phase-level_20) pos_101))" -"(let-values(((table_68)" -"(let-values(((table_193) table_65))" -"(let-values(((table_194)" +"(if(< pos_0 end_65)" +"(let-values(((phase-level_70) pos_0))" +"(let-values(((table_71)" +"(let-values(((table_72) table_0))" +"(let-values(((table_73)" "(let-values()" -"(let-values(((key_72 val_63)" +"(let-values(((key_74 val_75)" "(let-values()" -"(let-values(((linklet_0)" +"(let-values(((linklet_76)" "(hash-ref" -" h_8" -" phase-level_20" +" h_60" +" phase-level_70" " #f)))" "(values" -" phase-level_20" -"(if linklet_0" +" phase-level_70" +"(if linklet_76" "(1/linklet-export-variables" -" linklet_0)" +" linklet_76)" " null))))))" -"(hash-set" -" table_193" -" key_72" -" val_63)))))" -"(values table_194)))))" -"(if(not #f)(for-loop_197 table_68(+ pos_101 inc_21)) table_68)))" -" table_65)))))" -" for-loop_197)" +"(hash-set table_72 key_74 val_75)))))" +"(values table_73)))))" +"(if(not #f)(for-loop_67 table_71(+ pos_0 inc_66)) table_71)))" +" table_0)))))" +" for-loop_67)" " '#hash()" -" start_38)))))))))))))" +" start_64)))))))))))))" "(define-values" "(1/module-compiled-cross-phase-persistent?)" -"(lambda(c_42)" +"(lambda(c_0)" "(begin" " 'module-compiled-cross-phase-persistent?" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(1/compiled-module-expression? c_42)" +"(if(1/compiled-module-expression? c_0)" "(void)" "(let-values()" "(raise-argument-error" " 'module-compiled-cross-phase-persistent?" " \"compiled-module-expression?\"" -" c_42)))" +" c_0)))" "(values))))" -"(let-values(((h_9)(compiled-module->h c_42)))(hash-ref h_9 'cross-phase-persistent? #f))))))))" +"(let-values(((h_79)(compiled-module->h c_0)))(hash-ref h_79 'cross-phase-persistent? #f))))))))" "(define-values" "(normalize-to-linklet-directory)" -"(lambda(c_43)" +"(lambda(c_0)" "(begin" -"(if(1/linklet-directory?(compiled->linklet-directory-or-bundle c_43))" -"(let-values() c_43)" -"(if(1/linklet-bundle? c_43)" -"(let-values()(1/hash->linklet-directory(hasheq #f c_43)))" +"(if(1/linklet-directory?(compiled->linklet-directory-or-bundle c_0))" +"(let-values() c_0)" +"(if(1/linklet-bundle? c_0)" +"(let-values()(1/hash->linklet-directory(hasheq #f c_0)))" "(let-values()" -"(let-values(((the-struct_8) c_43))" -"(if(compiled-in-memory? the-struct_8)" -"(let-values(((linklet-directory16_0)" -"(normalize-to-linklet-directory(compiled-in-memory-linklet-directory c_43))))" +"(let-values(((the-struct_81) c_0))" +"(if(compiled-in-memory? the-struct_81)" +"(let-values(((linklet-directory16_82)" +"(normalize-to-linklet-directory(compiled-in-memory-linklet-directory c_0))))" "(compiled-in-memory1.1" -" linklet-directory16_0" -"(compiled-in-memory-original-self the-struct_8)" -"(compiled-in-memory-requires the-struct_8)" -"(compiled-in-memory-provides the-struct_8)" -"(compiled-in-memory-phase-to-link-module-uses the-struct_8)" -"(compiled-in-memory-compile-time-inspector the-struct_8)" -"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_8)" -"(compiled-in-memory-mpis the-struct_8)" -"(compiled-in-memory-syntax-literals the-struct_8)" -"(compiled-in-memory-pre-compiled-in-memorys the-struct_8)" -"(compiled-in-memory-post-compiled-in-memorys the-struct_8)" -"(compiled-in-memory-namespace-scopes the-struct_8)" -"(compiled-in-memory-purely-functional? the-struct_8)))" -" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_8)))))))))" +" linklet-directory16_82" +"(compiled-in-memory-original-self the-struct_81)" +"(compiled-in-memory-requires the-struct_81)" +"(compiled-in-memory-provides the-struct_81)" +"(compiled-in-memory-phase-to-link-module-uses the-struct_81)" +"(compiled-in-memory-compile-time-inspector the-struct_81)" +"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_81)" +"(compiled-in-memory-mpis the-struct_81)" +"(compiled-in-memory-syntax-literals the-struct_81)" +"(compiled-in-memory-pre-compiled-in-memorys the-struct_81)" +"(compiled-in-memory-post-compiled-in-memorys the-struct_81)" +"(compiled-in-memory-namespace-scopes the-struct_81)" +"(compiled-in-memory-purely-functional? the-struct_81)))" +" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_81)))))))))" "(define-values" "(fixup-submodule-names)" -"(lambda(c_44)(begin(1/module-compiled-name c_44(1/module-compiled-name c_44)))))" +"(lambda(c_0)(begin(1/module-compiled-name c_0(1/module-compiled-name c_0)))))" "(define-values" "(reset-submodule-names)" -"(lambda(b_78 pre?_1 submods_2)" +"(lambda(b_0 pre?_0 submods_0)" "(begin" "(1/hash->linklet-bundle" "(hash-set" -"(1/linklet-bundle->hash b_78)" -"(if pre?_1 'pre 'post)" -"(map2 module-compiled-immediate-name submods_2))))))" +"(1/linklet-bundle->hash b_0)" +"(if pre?_0 'pre 'post)" +"(map2 module-compiled-immediate-name submods_0))))))" "(define-values" "(compile-module13.1)" "(lambda(force-linklet-directory?1_0" @@ -35588,122 +35762,122 @@ static const char *startup_source = " cctx12_0)" "(begin" " 'compile-module13" -"(let-values(((p_37) p11_0))" +"(let-values(((p_13) p11_0))" "(let-values(((cctx_14) cctx12_0))" -"(let-values(((force-linklet-directory?_0) force-linklet-directory?1_0))" -"(let-values(((serializable?_2) serializable?2_0))" -"(let-values(((to-source?_2) to-source?3_0))" -"(let-values(((modules-being-compiled_0)" +"(let-values(((force-linklet-directory?_15) force-linklet-directory?1_0))" +"(let-values(((serializable?_16) serializable?2_0))" +"(let-values(((to-source?_17) to-source?3_0))" +"(let-values(((modules-being-compiled_18)" "(if(eq? modules-being-compiled4_0 unsafe-undefined)" "(make-hasheq)" " modules-being-compiled4_0)))" -"(let-values(((need-compiled-submodule-rename?_0) need-compiled-submodule-rename?5_0))" +"(let-values(((need-compiled-submodule-rename?_19) need-compiled-submodule-rename?5_0))" "(let-values()" -"(let-values(((full-module-name_1)" -"(let-values(((parent-full-name_0)(compile-context-full-module-name cctx_14))" -"((name_54)(syntax-e$1(parsed-module-name-id p_37))))" -"(if parent-full-name_0" +"(let-values(((full-module-name_20)" +"(let-values(((parent-full-name_25)(compile-context-full-module-name cctx_14))" +"((name_26)(syntax-e$1(parsed-module-name-id p_13))))" +"(if parent-full-name_25" "(append" -"(if(list? parent-full-name_0) parent-full-name_0(list parent-full-name_0))" -"(list name_54))" -" name_54))))" -"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_37)))" -"(let-values(((get-submodules_0)" +"(if(list? parent-full-name_25) parent-full-name_25(list parent-full-name_25))" +"(list name_26))" +" name_26))))" +"(let-values(((compiled-submodules_21)(parsed-module-compiled-submodules p_13)))" +"(let-values(((get-submodules_22)" "(lambda(star?_0)" "(begin" " 'get-submodules" "(reverse$1" -"(let-values(((ht_126) compiled-submodules_0))" +"(let-values(((ht_28) compiled-submodules_21))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_126)))" -"((letrec-values(((for-loop_243)" -"(lambda(fold-var_28 i_92)" +"(let-values()(check-in-hash ht_28)))" +"((letrec-values(((for-loop_29)" +"(lambda(fold-var_0 i_0)" "(begin" " 'for-loop" -"(if i_92" -"(let-values(((name_55 star?+compiled_0)" +"(if i_0" +"(let-values(((name_32 star?+compiled_33)" "(hash-iterate-key+value" -" ht_126" -" i_92)))" -"(let-values(((fold-var_157)" -"(let-values(((fold-var_71)" -" fold-var_28))" +" ht_28" +" i_0)))" +"(let-values(((fold-var_34)" +"(let-values(((fold-var_35)" +" fold-var_0))" "(if(eq?" " star?_0" -"(car star?+compiled_0))" -"(let-values(((fold-var_225)" -" fold-var_71))" -"(let-values(((fold-var_32)" +"(car star?+compiled_33))" +"(let-values(((fold-var_36)" +" fold-var_35))" +"(let-values(((fold-var_37)" "(let-values()" "(cons" "(let-values()" "(cons" -" name_55" -"(if(if need-compiled-submodule-rename?_0" +" name_32" +"(if(if need-compiled-submodule-rename?_19" "(not" "(parsed-module-compiled-module" -" p_37))" +" p_13))" " #f)" "(update-submodule-names" "(cdr" -" star?+compiled_0)" -" name_55" -" full-module-name_1)" +" star?+compiled_33)" +" name_32" +" full-module-name_20)" "(cdr" -" star?+compiled_0))))" -" fold-var_225))))" -"(values fold-var_32)))" -" fold-var_71))))" +" star?+compiled_33))))" +" fold-var_36))))" +"(values fold-var_37)))" +" fold-var_35))))" "(if(not #f)" -"(for-loop_243" -" fold-var_157" -"(hash-iterate-next ht_126 i_92))" -" fold-var_157)))" -" fold-var_28)))))" -" for-loop_243)" +"(for-loop_29" +" fold-var_34" +"(hash-iterate-next ht_28 i_0))" +" fold-var_34)))" +" fold-var_0)))))" +" for-loop_29)" " null" -"(hash-iterate-first ht_126)))))))))" -"(let-values(((pre-submodules_0)(get-submodules_0 #f)))" -"(let-values(((post-submodules_0)(get-submodules_0 #t)))" -"(let-values(((c1_26)(parsed-module-compiled-module p_37)))" -"(if c1_26" -"((lambda(c_45)" -"(let-values(((name_51 prefix_6)" -"(if(symbol? full-module-name_1)" -"(values full-module-name_1 null)" -"(let-values(((r_6)(reverse$1 full-module-name_1)))" -"(values(car r_6)(reverse$1(cdr r_6)))))))" -"(let-values(((m_18)(change-module-name c_45 name_51 prefix_6)))" +"(hash-iterate-first ht_28)))))))))" +"(let-values(((pre-submodules_23)(get-submodules_22 #f)))" +"(let-values(((post-submodules_24)(get-submodules_22 #t)))" +"(let-values(((c1_38)(parsed-module-compiled-module p_13)))" +"(if c1_38" +"((lambda(c_0)" +"(let-values(((name_40 prefix_41)" +"(if(symbol? full-module-name_20)" +"(values full-module-name_20 null)" +"(let-values(((r_43)(reverse$1 full-module-name_20)))" +"(values(car r_43)(reverse$1(cdr r_43)))))))" +"(let-values(((m_42)(change-module-name c_0 name_40 prefix_41)))" "(1/module-compiled-submodules" -"(1/module-compiled-submodules m_18 #t(map2 cdr pre-submodules_0))" +"(1/module-compiled-submodules m_42 #t(map2 cdr pre-submodules_23))" " #f" -"(map2 cdr post-submodules_0)))))" -" c1_26)" +"(map2 cdr post-submodules_24)))))" +" c1_38)" "(let-values()" -"(let-values(((p37_0) p_37)" -"((cctx38_0) cctx_14)" -"((full-module-name39_0) full-module-name_1)" -"((force-linklet-directory?40_0) force-linklet-directory?_0)" -"((serializable?41_0) serializable?_2)" -"((to-source?42_0) to-source?_2)" -"((modules-being-compiled43_0) modules-being-compiled_0)" -"((pre-submodules44_0) pre-submodules_0)" -"((post-submodules45_0) post-submodules_0)" -"((need-compiled-submodule-rename?46_0)" -" need-compiled-submodule-rename?_0))" +"(let-values(((p37_45) p_13)" +"((cctx38_46) cctx_14)" +"((full-module-name39_47) full-module-name_20)" +"((force-linklet-directory?40_48) force-linklet-directory?_15)" +"((serializable?41_49) serializable?_16)" +"((to-source?42_50) to-source?_17)" +"((modules-being-compiled43_51) modules-being-compiled_18)" +"((pre-submodules44_52) pre-submodules_23)" +"((post-submodules45_53) post-submodules_24)" +"((need-compiled-submodule-rename?46_54)" +" need-compiled-submodule-rename?_19))" "(compile-module-from-parsed34.1" -" force-linklet-directory?40_0" -" full-module-name39_0" -" modules-being-compiled43_0" -" need-compiled-submodule-rename?46_0" -" post-submodules45_0" -" pre-submodules44_0" -" serializable?41_0" -" to-source?42_0" -" p37_0" -" cctx38_0)))))))))))))))))))))" +" force-linklet-directory?40_48" +" full-module-name39_47" +" modules-being-compiled43_51" +" need-compiled-submodule-rename?46_54" +" post-submodules45_53" +" pre-submodules44_52" +" serializable?41_49" +" to-source?42_50" +" p37_45" +" cctx38_46)))))))))))))))))))))" "(define-values" "(compile-module-from-parsed34.1)" "(lambda(force-linklet-directory?17_0" @@ -35714,212 +35888,213 @@ static const char *startup_source = " pre-submodules21_0" " serializable?18_0" " to-source?19_0" -" p32_1" +" p32_0" " cctx33_0)" "(begin" " 'compile-module-from-parsed34" -"(let-values(((p_10) p32_1))" -"(let-values(((cctx_17) cctx33_0))" -"(let-values(((full-module-name_2) full-module-name16_0))" -"(let-values(((force-linklet-directory?_1) force-linklet-directory?17_0))" -"(let-values(((serializable?_3) serializable?18_0))" -"(let-values(((to-source?_3) to-source?19_0))" -"(let-values(((modules-being-compiled_1) modules-being-compiled20_0))" -"(let-values(((pre-submodules_1) pre-submodules21_0))" -"(let-values(((post-submodules_1) post-submodules22_0))" -"(let-values(((need-compiled-submodule-rename?_1) need-compiled-submodule-rename?23_0))" +"(let-values(((p_112) p32_0))" +"(let-values(((cctx_113) cctx33_0))" +"(let-values(((full-module-name_114) full-module-name16_0))" +"(let-values(((force-linklet-directory?_115) force-linklet-directory?17_0))" +"(let-values(((serializable?_116) serializable?18_0))" +"(let-values(((to-source?_117) to-source?19_0))" +"(let-values(((modules-being-compiled_118) modules-being-compiled20_0))" +"(let-values(((pre-submodules_119) pre-submodules21_0))" +"(let-values(((post-submodules_120) post-submodules22_0))" +"(let-values(((need-compiled-submodule-rename?_121) need-compiled-submodule-rename?23_0))" "(let-values()" "(let-values()" -"(let-values(((enclosing-self_0)(compile-context-module-self cctx_17)))" -"(let-values(((self_25)(parsed-module-self p_10)))" -"(let-values(((requires_5)(parsed-module-requires p_10)))" -"(let-values(((provides_11)(parsed-module-provides p_10)))" -"(let-values(((encoded-root-expand-ctx-box_1)" -"(box(parsed-module-encoded-root-ctx p_10))))" -"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_10)))" -"(let-values(((language-info_2)" +"(let-values(((enclosing-self_122)(compile-context-module-self cctx_113)))" +"(let-values(((self_123)(parsed-module-self p_112)))" +"(let-values(((requires_124)(parsed-module-requires p_112)))" +"(let-values(((provides_125)(parsed-module-provides p_112)))" +"(let-values(((encoded-root-expand-ctx-box_126)" +"(box(parsed-module-encoded-root-ctx p_112))))" +"(let-values(((body-context-simple?_127)" +"(parsed-module-root-ctx-simple? p_112)))" +"(let-values(((language-info_128)" "(filter-language-info" -"(syntax-property$1(parsed-s p_10) 'module-language))))" -"(let-values(((bodys_6)(parsed-module-body p_10)))" -"(let-values(((empty-result-for-module->namespace?_0) #f))" -"(let-values(((mpis_19)(make-module-path-index-table)))" -"(let-values(((body-cctx_0)" -"(let-values(((the-struct_56) cctx_17))" -"(if(compile-context? the-struct_56)" -"(let-values(((phase47_1) 0)" -"((self48_0) self_25)" -"((module-self49_0) self_25)" -"((full-module-name50_0)" -" full-module-name_2)" -"((lazy-syntax-literals?51_0) #t))" +"(syntax-property$1(parsed-s p_112) 'module-language))))" +"(let-values(((bodys_129)(parsed-module-body p_112)))" +"(let-values(((empty-result-for-module->namespace?_130) #f))" +"(let-values(((mpis_131)(make-module-path-index-table)))" +"(let-values(((body-cctx_132)" +"(let-values(((the-struct_150) cctx_113))" +"(if(compile-context? the-struct_150)" +"(let-values(((phase47_151) 0)" +"((self48_152) self_123)" +"((module-self49_153) self_123)" +"((full-module-name50_154)" +" full-module-name_114)" +"((lazy-syntax-literals?51_155) #t))" "(compile-context1.1" -"(compile-context-namespace the-struct_56)" -" phase47_1" -" self48_0" -" module-self49_0" -" full-module-name50_0" -" lazy-syntax-literals?51_0" -"(compile-context-header the-struct_56)))" +"(compile-context-namespace the-struct_150)" +" phase47_151" +" self48_152" +" module-self49_153" +" full-module-name50_154" +" lazy-syntax-literals?51_155" +"(compile-context-header the-struct_150)))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_56)))))" -"(let-values(((cross-phase-persistent?_2) #f))" -"(let-values(((side-effects_0)(make-hasheqv)))" -"(let-values(((check-side-effects!_0)" -"(lambda(e_72" -" expected-results_3" -" phase_94" -" required-reference?_1)" +" the-struct_150)))))" +"(let-values(((cross-phase-persistent?_133) #f))" +"(let-values(((side-effects_134)(make-hasheqv)))" +"(let-values(((check-side-effects!_135)" +"(lambda(e_0" +" expected-results_0" +" phase_0" +" required-reference?_0)" "(begin" " 'check-side-effects!" -"(if(hash-ref side-effects_0 phase_94 #f)" +"(if(hash-ref side-effects_134 phase_0 #f)" "(void)" "(let-values()" -"(if(let-values(((e52_2) e_72)" -"((expected-results53_0)" -" expected-results_3)" -"((required-reference?54_0)" -" required-reference?_1))" +"(if(let-values(((e52_161) e_0)" +"((expected-results53_162)" +" expected-results_0)" +"((required-reference?54_163)" +" required-reference?_0))" "(any-side-effects?9.1" " unsafe-undefined" " unsafe-undefined" -" required-reference?54_0" -" e52_2" -" expected-results53_0))" +" required-reference?54_163" +" e52_161" +" expected-results53_162))" "(let-values()" "(hash-set!" -" side-effects_0" -" phase_94" +" side-effects_134" +" phase_0" " #t))" "(void))))))))" "(let-values((()" "(begin" -"(if(if need-compiled-submodule-rename?_1" -" modules-being-compiled_1" +"(if(if need-compiled-submodule-rename?_121" +" modules-being-compiled_118" " #f)" "(let-values()" "(begin" -"(if(null? post-submodules_1)" +"(if(null? post-submodules_120)" "(void)" "(let-values()" "(error" " \"internal error: have post submodules, but not already compiled\")))" "(register-compiled-submodules" -" modules-being-compiled_1" -" pre-submodules_1" -" self_25)))" +" modules-being-compiled_118" +" pre-submodules_119" +" self_123)))" "(void))" "(values))))" -"(let-values(((body-linklets_2" -" min-phase_4" -" max-phase_4" -" phase-to-link-module-uses_4" -" phase-to-link-module-uses-expr_3" -" phase-to-link-extra-inspectorsss_2" -" syntax-literals_4" -" root-ctx-pos_0)" -"(let-values(((bodys55_0) bodys_6)" -"((body-cctx56_0) body-cctx_0)" -"((mpis57_0) mpis_19)" -"((temp58_0)" +"(let-values(((body-linklets_136" +" min-phase_137" +" max-phase_138" +" phase-to-link-module-uses_139" +" phase-to-link-module-uses-expr_140" +" phase-to-link-extra-inspectorsss_141" +" syntax-literals_142" +" root-ctx-pos_143)" +"(let-values(((bodys55_165) bodys_129)" +"((body-cctx56_166) body-cctx_132)" +"((mpis57_167) mpis_131)" +"((temp58_168)" "(list" "(list get-syntax-literal!-id)" "(list set-transformer!-id)))" -"((temp59_2)" +"((temp59_169)" "(list" " empty-syntax-literals-instance" " empty-module-body-instance))" -"((temp60_1) '((void)))" -"((temp61_0) '(0))" -"((encoded-root-expand-ctx-box62_0)" -" encoded-root-expand-ctx-box_1)" -"((body-context-simple?63_0)" -" body-context-simple?_0)" -"((check-side-effects!64_0)" -" check-side-effects!_0)" -"((temp65_0)" -"(lambda(body_3 cctx_18)" -"(if(parsed-#%declare? body_3)" +"((temp60_170) '((void)))" +"((temp61_171) '(0))" +"((encoded-root-expand-ctx-box62_172)" +" encoded-root-expand-ctx-box_126)" +"((body-context-simple?63_173)" +" body-context-simple?_127)" +"((check-side-effects!64_174)" +" check-side-effects!_135)" +"((temp65_175)" +"(lambda(body_0 cctx_0)" +"(if(parsed-#%declare? body_0)" "(let-values()" -"(let-values(((ok?_27" -" _69_2" -" kw70_0)" -"(let-values(((s_403)" +"(let-values(((ok?_181" +" _69_182" +" kw70_183)" +"(let-values(((s_197)" "(parsed-s" -" body_3)))" -"(let-values(((orig-s_29)" -" s_403))" -"(let-values(((_69_3" -" kw70_1)" -"(let-values(((s_34)" +" body_0)))" +"(let-values(((orig-s_198)" +" s_197))" +"(let-values(((_69_199" +" kw70_200)" +"(let-values(((s_201)" "(if(syntax?$1" -" s_403)" +" s_197)" "(syntax-e$1" -" s_403)" -" s_403)))" +" s_197)" +" s_197)))" "(if(pair?" -" s_34)" -"(let-values(((_71_0)" -"(let-values(((s_59)" +" s_201)" +"(let-values(((_71_202)" +"(let-values(((s_204)" "(car" -" s_34)))" -" s_59))" -"((kw72_0)" -"(let-values(((s_404)" +" s_201)))" +" s_204))" +"((kw72_203)" +"(let-values(((s_205)" "(cdr" -" s_34)))" -"(let-values(((s_405)" +" s_201)))" +"(let-values(((s_206)" "(if(syntax?$1" -" s_404)" +" s_205)" "(syntax-e$1" -" s_404)" -" s_404)))" -"(let-values(((flat-s_19)" +" s_205)" +" s_205)))" +"(let-values(((flat-s_207)" "(to-syntax-list.1" -" s_405)))" +" s_206)))" "(if(not" -" flat-s_19)" +" flat-s_207)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_29))" +" orig-s_198))" "(let-values()" -" flat-s_19)))))))" +" flat-s_207)))))))" "(values" -" _71_0" -" kw72_0))" +" _71_202" +" kw72_203))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_29)))))" +" orig-s_198)))))" "(values" " #t" -" _69_3" -" kw70_1))))))" +" _69_199" +" kw70_200))))))" "(begin" -"(let-values(((lst_198)" -" kw70_0))" +"(let-values(((lst_208)" +" kw70_183))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_198)))" -"((letrec-values(((for-loop_207)" -"(lambda(lst_271)" +" lst_208)))" +"((letrec-values(((for-loop_209)" +"(lambda(lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_271)" -"(let-values(((kw_0)" +" lst_0)" +"(let-values(((kw_211)" "(unsafe-car" -" lst_271))" -"((rest_149)" +" lst_0))" +"((rest_212)" "(unsafe-cdr" -" lst_271)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -35929,152 +36104,152 @@ static const char *startup_source = "(begin" "(if(eq?" "(syntax-e$1" -" kw_0)" +" kw_211)" " '#:cross-phase-persistent)" "(let-values()" -"(set! cross-phase-persistent?_2" +"(set! cross-phase-persistent?_133" " #t))" "(void))" "(if(eq?" "(syntax-e$1" -" kw_0)" +" kw_211)" " '#:empty-namespace)" "(let-values()" "(begin" -"(set! empty-result-for-module->namespace?_0" +"(set! empty-result-for-module->namespace?_130" " #t)" "(set-box!" -" encoded-root-expand-ctx-box_1" +" encoded-root-expand-ctx-box_126" " #f)))" "(void))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_207" -" rest_149)" +"(for-loop_209" +" rest_212)" "(values))))" "(values))))))" -" for-loop_207)" -" lst_198)))" +" for-loop_209)" +" lst_208)))" "(void)" " #f)))" "(let-values() #f))))" -"((temp66_1)" -"(lambda(mod-name_17 phase_95)" -"(let-values(((ht_128)" -"(if modules-being-compiled_1" +"((temp66_176)" +"(lambda(mod-name_0 phase_0)" +"(let-values(((ht_215)" +"(if modules-being-compiled_118" "(hash-ref" -" modules-being-compiled_1" -" mod-name_17" +" modules-being-compiled_118" +" mod-name_0" " #f)" " #f)))" -"(if ht_128" +"(if ht_215" "(hash-ref" -" ht_128" -" phase_95" +" ht_215" +" phase_0" " #f)" " #f))))" -"((to-source?67_0) to-source?_3)" -"((serializable?68_0)" -" serializable?_3))" +"((to-source?67_177)" +" to-source?_117)" +"((serializable?68_178)" +" serializable?_116))" "(compile-forms31.1" -" temp59_2" -" temp58_0" -" temp60_1" -" check-side-effects!64_0" +" temp59_169" +" temp58_168" +" temp60_170" +" check-side-effects!64_174" " #t" " unsafe-undefined" -" encoded-root-expand-ctx-box62_0" -" temp61_0" -" temp66_1" -" temp65_0" -" body-context-simple?63_0" -" serializable?68_0" -" to-source?67_0" -" bodys55_0" -" body-cctx56_0" -" mpis57_0))))" +" encoded-root-expand-ctx-box62_172" +" temp61_171" +" temp66_176" +" temp65_175" +" body-context-simple?63_173" +" serializable?68_178" +" to-source?67_177" +" bodys55_165" +" body-cctx56_166" +" mpis57_167))))" "(let-values((()" "(begin" -"(if modules-being-compiled_1" +"(if modules-being-compiled_118" "(let-values()" "(hash-set!" -" modules-being-compiled_1" -"(1/module-path-index-resolve self_25)" -"(let-values(((ht_129)" -" body-linklets_2))" +" modules-being-compiled_118" +"(1/module-path-index-resolve" +" self_123)" +"(let-values(((ht_216)" +" body-linklets_136))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_129)))" -"((letrec-values(((for-loop_23)" -"(lambda(table_101" -" i_149)" +"(check-in-hash ht_216)))" +"((letrec-values(((for-loop_217)" +"(lambda(table_0" +" i_0)" "(begin" " 'for-loop" -"(if i_149" -"(let-values(((phase_96" -" linklet_6)" +"(if i_0" +"(let-values(((phase_220" +" linklet_221)" "(hash-iterate-key+value" -" ht_129" -" i_149)))" -"(let-values(((table_195)" -"(let-values(((table_196)" -" table_101))" -"(let-values(((table_197)" +" ht_216" +" i_0)))" +"(let-values(((table_222)" +"(let-values(((table_223)" +" table_0))" +"(let-values(((table_224)" "(let-values()" -"(let-values(((key_73" -" val_64)" +"(let-values(((key_225" +" val_226)" "(let-values()" "(values" -" phase_96" +" phase_220" "(module-linklet-info2.1" -" linklet_6" +" linklet_221" "(hash-ref" -" phase-to-link-module-uses_4" -" phase_96" +" phase-to-link-module-uses_139" +" phase_220" " #f)" -" self_25" +" self_123" " #f" " #f" -"(if phase-to-link-extra-inspectorsss_2" +"(if phase-to-link-extra-inspectorsss_141" "(hash-ref" -" phase-to-link-extra-inspectorsss_2" -" phase_96" +" phase-to-link-extra-inspectorsss_141" +" phase_220" " #f)" " #f))))))" "(hash-set" -" table_196" -" key_73" -" val_64)))))" +" table_223" +" key_225" +" val_226)))))" "(values" -" table_197)))))" +" table_224)))))" "(if(not" " #f)" -"(for-loop_23" -" table_195" +"(for-loop_217" +" table_222" "(hash-iterate-next" -" ht_129" -" i_149))" -" table_195)))" -" table_101)))))" -" for-loop_23)" +" ht_216" +" i_0))" +" table_222)))" +" table_0)))))" +" for-loop_217)" " '#hasheq()" -"(hash-iterate-first ht_129))))))" +"(hash-iterate-first ht_216))))))" "(void))" "(values))))" -"(let-values(((declaration-linklet_0)" -"(if serializable?_3" -"((if to-source?_3" +"(let-values(((declaration-linklet_144)" +"(if serializable?_116" +"((if to-source?_117" " values" -"(lambda(s_406)" +"(lambda(s_0)" "(let-values()" -"(1/compile-linklet" -" s_406" -" 'decl))))" +"(1/compile-linklet s_0 'decl))))" "(list" " 'linklet" "(list" @@ -36088,61 +36263,61 @@ static const char *startup_source = " 'define-values" " '(self-mpi)" "(add-module-path-index!" -" mpis_19" -" self_25))" +" mpis_131" +" self_123))" "(list" " 'define-values" " '(requires)" -"(let-values(((requires73_0)" -" requires_5)" -"((mpis74_0) mpis_19)" -"((temp75_0) #f))" +"(let-values(((requires73_229)" +" requires_124)" +"((mpis74_230) mpis_131)" +"((temp75_231) #f))" "(generate-deserialize6.1" -" temp75_0" -" requires73_0" -" mpis74_0)))" +" temp75_231" +" requires73_229" +" mpis74_230)))" "(list" " 'define-values" " '(provides)" -"(let-values(((provides76_0)" -" provides_11)" -"((mpis77_0) mpis_19)" -"((temp78_0) #f))" +"(let-values(((provides76_233)" +" provides_125)" +"((mpis77_234) mpis_131)" +"((temp78_235) #f))" "(generate-deserialize6.1" -" temp78_0" -" provides76_0" -" mpis77_0)))" +" temp78_235" +" provides76_233" +" mpis77_234)))" "(list" " 'define-values" " '(phase-to-link-modules)" -" phase-to-link-module-uses-expr_3)))" +" phase-to-link-module-uses-expr_140)))" " #f)))" -"(let-values(((syntax-literals-linklet_2)" +"(let-values(((syntax-literals-linklet_145)" "(if(not" "(syntax-literals-empty?" -" syntax-literals_4))" -"((if to-source?_3" +" syntax-literals_142))" +"((if to-source?_117" " values" -"(lambda(s_407)" +"(lambda(s_0)" "(let-values()" -"(let-values(((linklet_7" -" new-keys_1)" +"(let-values(((linklet_237" +" new-keys_238)" "(1/compile-linklet" -" s_407" +" s_0" " 'syntax-literals" "(vector" " deserialize-instance" " empty-top-syntax-literal-instance" " empty-syntax-literals-data-instance" " empty-instance-instance)" -"(lambda(inst_4)" +"(lambda(inst_0)" "(values" -" inst_4" +" inst_0" " #f))" -"(if serializable?_3" +"(if serializable?_116" " '(serializable)" " '()))))" -" linklet_7))))" +" linklet_237))))" "(list*" " 'linklet" "(list" @@ -36150,7 +36325,7 @@ static const char *startup_source = "(list mpi-vector-id)" "(list*" " deserialized-syntax-vector-id" -"(if serializable?_3" +"(if serializable?_116" "(list deserialize-syntax-id)" " '()))" " instance-imports)" @@ -36158,44 +36333,46 @@ static const char *startup_source = " get-syntax-literal!-id" " '(get-encoded-root-expand-ctx))" "(qq-append" -"(let-values(((syntax-literals79_0)" -" syntax-literals_4)" -"((mpis80_0) mpis_19)" -"((self81_0) self_25)" -"((temp82_1)" +"(let-values(((syntax-literals79_241)" +" syntax-literals_142)" +"((mpis80_242)" +" mpis_131)" +"((self81_243)" +" self_123)" +"((temp82_244)" "(not" -" serializable?_3)))" +" serializable?_116)))" "(generate-lazy-syntax-literals!9.1" -" temp82_1" -" syntax-literals79_0" -" mpis80_0" -" self81_0))" +" temp82_244" +" syntax-literals79_241" +" mpis80_242" +" self81_243))" "(list" "(list" " 'define-values" " '(get-encoded-root-expand-ctx)" -"(if root-ctx-pos_0" +"(if root-ctx-pos_143" "(let-values()" "(list" " 'lambda" " '()" "(generate-lazy-syntax-literal-lookup" -" root-ctx-pos_0)))" -"(if empty-result-for-module->namespace?_0" +" root-ctx-pos_143)))" +"(if empty-result-for-module->namespace?_130" "(let-values() ''empty)" "(let-values() ''#f))))))))" " #f)))" -"(let-values(((syntax-literals-data-linklet_0)" -"(if serializable?_3" +"(let-values(((syntax-literals-data-linklet_146)" +"(if serializable?_116" "(if(not" "(syntax-literals-empty?" -" syntax-literals_4))" -"((if to-source?_3" +" syntax-literals_142))" +"((if to-source?_117" " values" -"(lambda(s_208)" +"(lambda(s_0)" "(let-values()" "(1/compile-linklet" -" s_208" +" s_0" " 'syntax-literals-data))))" "(list*" " 'linklet" @@ -36212,22 +36389,22 @@ static const char *startup_source = "(list*" " 'make-vector" "(syntax-literals-count" -" syntax-literals_4)" +" syntax-literals_142)" " '(#f)))" "(let-values()" "(generate-lazy-syntax-literals-data!" -" syntax-literals_4" -" mpis_19))))" +" syntax-literals_142" +" mpis_131))))" " #f)" " #f)))" -"(let-values(((data-linklet_0)" -"(if serializable?_3" -"((if to-source?_3" +"(let-values(((data-linklet_147)" +"(if serializable?_116" +"((if to-source?_117" " values" -"(lambda(s_209)" +"(lambda(s_0)" "(let-values()" "(1/compile-linklet" -" s_209" +" s_0" " 'data))))" "(list" " 'linklet" @@ -36241,497 +36418,496 @@ static const char *startup_source = " 'define-values" "(list mpi-vector-id)" "(generate-module-path-index-deserialize" -" mpis_19))))" +" mpis_131))))" " #f)))" -"(let-values(((bundle_1)" -"(let-values(((bundle_2)" +"(let-values(((bundle_148)" +"(let-values(((bundle_247)" "(hash-set" -" body-linklets_2" +" body-linklets_136" " 'name" -" full-module-name_2)))" -"(let-values(((bundle_3)" +" full-module-name_114)))" +"(let-values(((bundle_248)" "(hash-set" -" bundle_2" +" bundle_247" " 'decl" -"(let-values(((or-part_179)" -" declaration-linklet_0))" -"(if or-part_179" -" or-part_179" +"(let-values(((or-part_249)" +" declaration-linklet_144))" +"(if or-part_249" +" or-part_249" " 'in-memory)))))" -"(let-values(((bundle_4)" -"(if data-linklet_0" +"(let-values(((bundle_250)" +"(if data-linklet_147" "(hash-set" -" bundle_3" +" bundle_248" " 'data" -" data-linklet_0)" -" bundle_3)))" -"(let-values(((bundle_5)" -"(if syntax-literals-linklet_2" +" data-linklet_147)" +" bundle_248)))" +"(let-values(((bundle_251)" +"(if syntax-literals-linklet_145" "(hash-set" -" bundle_4" +" bundle_250" " 'stx" -" syntax-literals-linklet_2)" -" bundle_4)))" -"(let-values(((bundle_6)" -"(if syntax-literals-data-linklet_0" +" syntax-literals-linklet_145)" +" bundle_250)))" +"(let-values(((bundle_252)" +"(if syntax-literals-data-linklet_146" "(hash-set" -" bundle_5" +" bundle_251" " 'stx-data" -" syntax-literals-data-linklet_0)" -" bundle_5)))" -"(let-values(((bundle_7)" +" syntax-literals-data-linklet_146)" +" bundle_251)))" +"(let-values(((bundle_253)" "(if(null?" -" pre-submodules_1)" -" bundle_6" +" pre-submodules_119)" +" bundle_252" "(hash-set" -" bundle_6" +" bundle_252" " 'pre" "(map2" " car" -" pre-submodules_1)))))" -"(let-values(((bundle_8)" +" pre-submodules_119)))))" +"(let-values(((bundle_254)" "(if(null?" -" post-submodules_1)" -" bundle_7" +" post-submodules_120)" +" bundle_253" "(hash-set" -" bundle_7" +" bundle_253" " 'post" "(map2" " car" -" post-submodules_1)))))" -"(let-values(((bundle_9)" -"(if cross-phase-persistent?_2" +" post-submodules_120)))))" +"(let-values(((bundle_255)" +"(if cross-phase-persistent?_133" "(hash-set" -" bundle_8" +" bundle_254" " 'cross-phase-persistent?" " #t)" -" bundle_8)))" -"(let-values(((bundle_10)" -"(if language-info_2" +" bundle_254)))" +"(let-values(((bundle_256)" +"(if language-info_128" "(hash-set" -" bundle_9" +" bundle_255" " 'language-info" -" language-info_2)" -" bundle_9)))" -"(let-values(((bundle_11)" +" language-info_128)" +" bundle_255)))" +"(let-values(((bundle_257)" "(if(zero?" -" min-phase_4)" -" bundle_10" +" min-phase_137)" +" bundle_256" "(hash-set" -" bundle_10" +" bundle_256" " 'min-phase" -" min-phase_4))))" -"(let-values(((bundle_12)" +" min-phase_137))))" +"(let-values(((bundle_258)" "(if(zero?" -" max-phase_4)" -" bundle_11" +" max-phase_138)" +" bundle_257" "(hash-set" -" bundle_11" +" bundle_257" " 'max-phase" -" max-phase_4))))" -"(let-values(((bundle_13)" +" max-phase_138))))" +"(let-values(((bundle_259)" "(if(hash-count" -" side-effects_0)" +" side-effects_134)" "(hash-set" -" bundle_12" +" bundle_258" " 'side-effects" -"(let-values(((temp83_0)" +"(let-values(((temp83_260)" "(hash-keys" -" side-effects_0))" -"((<84_0)" +" side-effects_134))" +"((<84_261)" " <))" "(sort7.1" " #f" " #f" -" temp83_0" -" <84_0)))" -" bundle_12)))" -"(let-values(((bundle_14)" -"(if empty-result-for-module->namespace?_0" +" temp83_260" +" <84_261)))" +" bundle_258)))" +"(let-values(((bundle_262)" +"(if empty-result-for-module->namespace?_130" "(hash-set" -" bundle_13" +" bundle_259" " 'module->namespace" " 'empty)" -" bundle_13)))" +" bundle_259)))" "(1/hash->linklet-bundle" -" bundle_14))))))))))))))))" -"(let-values(((ld_4)" -"(if(if(null? pre-submodules_1)" +" bundle_262))))))))))))))))" +"(let-values(((ld_149)" +"(if(if(null?" +" pre-submodules_119)" "(if(null?" -" post-submodules_1)" +" post-submodules_120)" "(not" -" force-linklet-directory?_1)" +" force-linklet-directory?_115)" " #f)" " #f)" -"(let-values() bundle_1)" +"(let-values() bundle_148)" "(let-values()" -"((if to-source?_3" +"((if to-source?_117" " values" " 1/hash->linklet-directory)" -"(let-values(((lst_272)" +"(let-values(((lst_263)" "(append" -" pre-submodules_1" -" post-submodules_1)))" +" pre-submodules_119" +" post-submodules_120)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_272)))" -"((letrec-values(((for-loop_244)" -"(lambda(ht_130" -" lst_273)" +" lst_263)))" +"((letrec-values(((for-loop_264)" +"(lambda(ht_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_273)" -"(let-values(((sm_0)" +" lst_0)" +"(let-values(((sm_267)" "(unsafe-car" -" lst_273))" -"((rest_150)" +" lst_0))" +"((rest_268)" "(unsafe-cdr" -" lst_273)))" -"(let-values(((ht_131)" -"(let-values(((ht_132)" -" ht_130))" -"(let-values(((ht_123)" +" lst_0)))" +"(let-values(((ht_269)" +"(let-values(((ht_270)" +" ht_0))" +"(let-values(((ht_271)" "(let-values()" "(hash-set" -" ht_132" +" ht_270" "(car" -" sm_0)" -"((if to-source?_3" +" sm_267)" +"((if to-source?_117" " values" " compiled-in-memory-linklet-directory)" "(cdr" -" sm_0))))))" +" sm_267))))))" "(values" -" ht_123)))))" +" ht_271)))))" "(if(not" " #f)" -"(for-loop_244" -" ht_131" -" rest_150)" -" ht_131)))" -" ht_130)))))" -" for-loop_244)" -"(hasheq #f bundle_1)" -" lst_272))))))))" -"(if to-source?_3" -"(let-values() ld_4)" +"(for-loop_264" +" ht_269" +" rest_268)" +" ht_269)))" +" ht_0)))))" +" for-loop_264)" +"(hasheq #f bundle_148)" +" lst_263))))))))" +"(if to-source?_117" +"(let-values() ld_149)" "(let-values()" "(compiled-in-memory1.1" -" ld_4" -" self_25" -" requires_5" -" provides_11" -" phase-to-link-module-uses_4" +" ld_149" +" self_123" +" requires_124" +" provides_125" +" phase-to-link-module-uses_139" "(current-code-inspector)" -" phase-to-link-extra-inspectorsss_2" -"(mpis-as-vector mpis_19)" +" phase-to-link-extra-inspectorsss_141" +"(mpis-as-vector mpis_131)" "(syntax-literals-as-vector" -" syntax-literals_4)" -"(map2 cdr pre-submodules_1)" -"(map2 cdr post-submodules_1)" +" syntax-literals_142)" +"(map2 cdr pre-submodules_119)" +"(map2 cdr post-submodules_120)" " #f" " #f)))))))))))))))))))))))))))))))))))))))))" "(define-values" "(update-submodule-names)" -"(lambda(cim_9 name_56 full-module-name_3)" +"(lambda(cim_0 name_0 full-module-name_0)" "(begin" "(change-module-name" -" cim_9" -" name_56" -"(if(symbol? full-module-name_3)(list full-module-name_3)(reverse$1(cdr(reverse$1 full-module-name_3))))))))" +" cim_0" +" name_0" +"(if(symbol? full-module-name_0)(list full-module-name_0)(reverse$1(cdr(reverse$1 full-module-name_0))))))))" "(define-values" "(register-compiled-submodules)" -"(lambda(modules-being-compiled_2 pre-submodules_2 self_26)" +"(lambda(modules-being-compiled_0 pre-submodules_0 self_0)" "(begin" "(begin" -"(let-values(((lst_274) pre-submodules_2))" +"(let-values(((lst_318) pre-submodules_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_274)))" -"((letrec-values(((for-loop_245)" -"(lambda(lst_275)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_318)))" +"((letrec-values(((for-loop_319)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_275)" -"(let-values(((s_408)(unsafe-car lst_275))((rest_151)(unsafe-cdr lst_275)))" +"(if(pair? lst_0)" +"(let-values(((s_321)(unsafe-car lst_0))((rest_322)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name_57)(car s_408)))" -"(let-values(((cim_10)(cdr s_408)))" -"(let-values(((phase-to-link-module-uses_5)" +"(let-values(((name_323)(car s_321)))" +"(let-values(((cim_324)(cdr s_321)))" +"(let-values(((phase-to-link-module-uses_325)" "(compiled-in-memory-phase-to-link-module-uses" -" cim_10)))" -"(let-values(((ld_5)" +" cim_324)))" +"(let-values(((ld_326)" "(compiled-in-memory-linklet-directory" -" cim_10)))" -"(let-values(((sm-self_0)" +" cim_324)))" +"(let-values(((sm-self_327)" "(1/module-path-index-join" "(list" " 'submod" " \".\"" -" name_57)" -" self_26)))" -"(let-values(((phase-to-extra-inspectorsss_0)" +" name_323)" +" self_0)))" +"(let-values(((phase-to-extra-inspectorsss_328)" "(compiled-in-memory-phase-to-link-extra-inspectorsss" -" cim_10)))" +" cim_324)))" "(hash-set!" -" modules-being-compiled_2" +" modules-being-compiled_0" "(1/module-path-index-resolve" -" sm-self_0)" -"(let-values(((ht_133)" +" sm-self_327)" +"(let-values(((ht_329)" "(1/linklet-bundle->hash" "(if(1/linklet-directory?" -" ld_5)" +" ld_326)" "(hash-ref" "(1/linklet-directory->hash" -" ld_5)" +" ld_326)" " #f)" -" ld_5))))" +" ld_326))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_133)))" -"((letrec-values(((for-loop_246)" -"(lambda(table_198" -" i_150)" +"(check-in-hash ht_329)))" +"((letrec-values(((for-loop_330)" +"(lambda(table_0" +" i_0)" "(begin" " 'for-loop" -"(if i_150" -"(let-values(((phase_97" -" linklet_8)" +"(if i_0" +"(let-values(((phase_333" +" linklet_334)" "(hash-iterate-key+value" -" ht_133" -" i_150)))" -"(let-values(((table_199)" -"(let-values(((table_200)" -" table_198))" +" ht_329" +" i_0)))" +"(let-values(((table_335)" +"(let-values(((table_336)" +" table_0))" "(if(number?" -" phase_97)" -"(let-values(((table_201)" -" table_200))" -"(let-values(((table_202)" +" phase_333)" +"(let-values(((table_337)" +" table_336))" +"(let-values(((table_338)" "(let-values()" -"(let-values(((key_74" -" val_65)" +"(let-values(((key_339" +" val_340)" "(let-values()" "(values" -" phase_97" +" phase_333" "(module-linklet-info2.1" -" linklet_8" +" linklet_334" "(hash-ref" -" phase-to-link-module-uses_5" -" phase_97" +" phase-to-link-module-uses_325" +" phase_333" " #f)" "(compiled-in-memory-original-self" -" cim_10)" +" cim_324)" " #f" "(compiled-in-memory-compile-time-inspector" -" cim_10)" -"(if phase-to-extra-inspectorsss_0" +" cim_324)" +"(if phase-to-extra-inspectorsss_328" "(hash-ref" -" phase-to-extra-inspectorsss_0" -" phase_97" +" phase-to-extra-inspectorsss_328" +" phase_333" " #f)" " #f))))))" "(hash-set" -" table_201" -" key_74" -" val_65)))))" +" table_337" +" key_339" +" val_340)))))" "(values" -" table_202)))" -" table_200))))" +" table_338)))" +" table_336))))" "(if(not" " #f)" -"(for-loop_246" -" table_199" +"(for-loop_330" +" table_335" "(hash-iterate-next" -" ht_133" -" i_150))" -" table_199)))" -" table_198)))))" -" for-loop_246)" +" ht_329" +" i_0))" +" table_335)))" +" table_0)))))" +" for-loop_330)" " '#hasheq()" "(hash-iterate-first" -" ht_133))))))))))))" +" ht_329))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_245 rest_151)(values))))" +"(if(not #f)(for-loop_319 rest_322)(values))))" "(values))))))" -" for-loop_245)" -" lst_274)))" +" for-loop_319)" +" lst_318)))" "(void)))))" "(define-values" "(filter-language-info)" -"(lambda(li_1)" +"(lambda(li_0)" "(begin" -"(if(vector? li_1)" -"(if(= 3(vector-length li_1))" -"(if(1/module-path?(vector-ref li_1 0))(if(symbol?(vector-ref li_1 1)) li_1 #f) #f)" +"(if(vector? li_0)" +"(if(= 3(vector-length li_0))" +"(if(1/module-path?(vector-ref li_0 0))(if(symbol?(vector-ref li_0 1)) li_0 #f) #f)" " #f)" " #f))))" "(define-values" "(1/compiled-expression-recompile)" -"(lambda(c_32)" +"(lambda(c_0)" "(begin" " 'compiled-expression-recompile" "(begin" -"(if(1/compiled-expression? c_32)" +"(if(1/compiled-expression? c_0)" "(void)" -" (let-values () (raise-argument-error 'compiled-expression-recompile \"compiled-expression?\" c_32)))" -"(if(1/linklet-bundle? c_32)" +" (let-values () (raise-argument-error 'compiled-expression-recompile \"compiled-expression?\" c_0)))" +"(if(1/linklet-bundle? c_0)" "(let-values()" "(1/hash->linklet-bundle" -"(let-values(((ht_134)(1/linklet-bundle->hash c_32)))" +"(let-values(((ht_2)(1/linklet-bundle->hash c_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_134)))" -"((letrec-values(((for-loop_247)" -"(lambda(table_0 i_151)" +"(let-values()(check-in-hash ht_2)))" +"((letrec-values(((for-loop_3)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_151" -"(let-values(((k_34 v_62)(hash-iterate-key+value ht_134 i_151)))" -"(let-values(((table_203)" -"(let-values(((table_204) table_0))" -"(let-values(((table_205)" +"(if i_0" +"(let-values(((k_6 v_7)(hash-iterate-key+value ht_2 i_0)))" +"(let-values(((table_8)" +"(let-values(((table_9) table_0))" +"(let-values(((table_10)" "(let-values()" -"(let-values(((key_75 val_66)" +"(let-values(((key_11 val_12)" "(let-values()" -"(if(1/linklet? v_62)" +"(if(1/linklet? v_7)" "(let-values()" "(values" -" k_34" +" k_6" "(1/recompile-linklet" -" v_62)))" +" v_7)))" "(let-values()" -"(values k_34 v_62))))))" -"(hash-set table_204 key_75 val_66)))))" -"(values table_205)))))" -"(if(not #f)" -"(for-loop_247 table_203(hash-iterate-next ht_134 i_151))" -" table_203)))" +"(values k_6 v_7))))))" +"(hash-set table_9 key_11 val_12)))))" +"(values table_10)))))" +"(if(not #f)(for-loop_3 table_8(hash-iterate-next ht_2 i_0)) table_8)))" " table_0)))))" -" for-loop_247)" +" for-loop_3)" " '#hasheq()" -"(hash-iterate-first ht_134))))))" -"(if(1/linklet-directory? c_32)" +"(hash-iterate-first ht_2))))))" +"(if(1/linklet-directory? c_0)" "(let-values()" "(1/hash->linklet-directory" -"(let-values(((ht_84)(1/linklet-directory->hash c_32)))" +"(let-values(((ht_13)(1/linklet-directory->hash c_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_84)))" -"((letrec-values(((for-loop_218)" -"(lambda(table_168 i_152)" +"(let-values()(check-in-hash ht_13)))" +"((letrec-values(((for-loop_14)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_152" -"(let-values(((k_35 v_1)(hash-iterate-key+value ht_84 i_152)))" -"(let-values(((table_206)" -"(let-values(((table_207) table_168))" -"(let-values(((table_169)" +"(if i_0" +"(let-values(((k_17 v_18)(hash-iterate-key+value ht_13 i_0)))" +"(let-values(((table_19)" +"(let-values(((table_20) table_0))" +"(let-values(((table_21)" "(let-values()" -"(let-values(((key_76 val_67)" +"(let-values(((key_22 val_23)" "(let-values()" "(if(1/compiled-expression?" -" v_1)" +" v_18)" "(let-values()" "(values" -" k_35" +" k_17" "(1/compiled-expression-recompile" -" v_1)))" +" v_18)))" "(let-values()" -"(values k_35 v_1))))))" -"(hash-set table_207 key_76 val_67)))))" -"(values table_169)))))" +"(values k_17 v_18))))))" +"(hash-set table_20 key_22 val_23)))))" +"(values table_21)))))" "(if(not #f)" -"(for-loop_218 table_206(hash-iterate-next ht_84 i_152))" -" table_206)))" -" table_168)))))" -" for-loop_218)" +"(for-loop_14 table_19(hash-iterate-next ht_13 i_0))" +" table_19)))" +" table_0)))))" +" for-loop_14)" " '#hasheq()" -"(hash-iterate-first ht_84))))))" -"(let-values() c_32)))))))" +"(hash-iterate-first ht_13))))))" +"(let-values() c_0)))))))" "(define-values" "(create-compiled-in-memorys-using-shared-data)" -"(lambda(tops_0 data-linklet_1 ns_59)" +"(lambda(tops_0 data-linklet_0 ns_0)" "(begin" -"(let-values(((data-instance_5)" +"(let-values(((data-instance_4)" "(1/instantiate-linklet" -" data-linklet_1" +" data-linklet_0" "(list" " deserialize-instance" -"(let-values(((ns1_1) ns_59)" -"((temp2_3)(namespace-phase ns_59))" -"((temp3_3)(namespace-mpi ns_59))" -"((temp4_1)(namespace-bulk-binding-registry ns_59))" -"((temp5_3)(current-code-inspector)))" -"(make-eager-instance-instance11.1 temp4_1 temp2_3 temp5_3 ns1_1 temp3_3))))))" -"(let-values(((data_0)(lambda(key_77)(begin 'data(1/instance-variable-value data-instance_5 key_77)))))" -"(let-values(((mpi-vector_0)(data_0 mpi-vector-id)))" -"(let-values(((mpi-vector-trees_0)(data_0 'mpi-vector-trees)))" -"(let-values(((phase-to-link-modules-vector_0)(data_0 'phase-to-link-modules-vector)))" -"(let-values(((phase-to-link-modules-trees_0)(data_0 'phase-to-link-modules-trees)))" -"(let-values(((syntax-literals_5)(data_0 'syntax-literals)))" -"(let-values(((syntax-literals-trees_1)(data_0 'syntax-literals-trees)))" -"(let-values(((namespace-scopes_0)(extract-namespace-scopes ns_59)))" -"(letrec-values(((construct-compiled-in-memory_0)" -"(lambda(ld_6" +"(let-values(((ns1_15) ns_0)" +"((temp2_16)(namespace-phase ns_0))" +"((temp3_17)(namespace-mpi ns_0))" +"((temp4_18)(namespace-bulk-binding-registry ns_0))" +"((temp5_19)(current-code-inspector)))" +"(make-eager-instance-instance11.1 temp4_18 temp2_16 temp5_19 ns1_15 temp3_17))))))" +"(let-values(((data_5)(lambda(key_0)(begin 'data(1/instance-variable-value data-instance_4 key_0)))))" +"(let-values(((mpi-vector_6)(data_5 mpi-vector-id)))" +"(let-values(((mpi-vector-trees_7)(data_5 'mpi-vector-trees)))" +"(let-values(((phase-to-link-modules-vector_8)(data_5 'phase-to-link-modules-vector)))" +"(let-values(((phase-to-link-modules-trees_9)(data_5 'phase-to-link-modules-trees)))" +"(let-values(((syntax-literals_10)(data_5 'syntax-literals)))" +"(let-values(((syntax-literals-trees_11)(data_5 'syntax-literals-trees)))" +"(let-values(((namespace-scopes_12)(extract-namespace-scopes ns_0)))" +"(letrec-values(((construct-compiled-in-memory_13)" +"(lambda(ld_0" " mpi-vector-tree_0" " phase-to-link-modules-tree_0" " syntax-literals-tree_0)" "(begin" " 'construct-compiled-in-memory" -"(let-values(((is-module?_0)" -"(let-values(((or-part_75)(1/linklet-bundle? ld_6)))" -"(if or-part_75" -" or-part_75" -"(let-values(((b_79)" +"(let-values(((is-module?_25)" +"(let-values(((or-part_31)(1/linklet-bundle? ld_0)))" +"(if or-part_31" +" or-part_31" +"(let-values(((b_32)" "(hash-ref" -"(1/linklet-directory->hash ld_6)" +"(1/linklet-directory->hash ld_0)" " #f" " #f)))" -"(if b_79" -"(hash-ref(1/linklet-bundle->hash b_79) 'decl #f)" +"(if b_32" +"(hash-ref(1/linklet-bundle->hash b_32) 'decl #f)" " #f))))))" -"(let-values(((mpi-pos-vec_0)(vector-ref mpi-vector-tree_0 0)))" -"(let-values(((syntax-literals-spec_0)" +"(let-values(((mpi-pos-vec_26)(vector-ref mpi-vector-tree_0 0)))" +"(let-values(((syntax-literals-spec_27)" "(vector-ref syntax-literals-tree_0 0)))" -"(let-values(((pres_0)" -"(if is-module?_0" -"(extract-submodules ld_6 'pre)" -"(compiled-top->compiled-tops ld_6))))" -"(let-values(((posts_0)" -"(if is-module?_0" -"(extract-submodules ld_6 'post)" +"(let-values(((pres_28)" +"(if is-module?_25" +"(extract-submodules ld_0 'pre)" +"(compiled-top->compiled-tops ld_0))))" +"(let-values(((posts_29)" +"(if is-module?_25" +"(extract-submodules ld_0 'post)" " null)))" -"(let-values(((map-construct-compiled-in-memory_0)" -"(lambda(l_67 vec-pos_0)" +"(let-values(((map-construct-compiled-in-memory_30)" +"(lambda(l_0 vec-pos_0)" "(begin" " 'map-construct-compiled-in-memory" "(reverse$1" -"(let-values(((lst_163) l_67)" -"((lst_89)" +"(let-values(((lst_35) l_0)" +"((lst_36)" "(vector-ref" " mpi-vector-tree_0" " vec-pos_0))" -"((lst_265)" +"((lst_37)" "(vector-ref" " phase-to-link-modules-tree_0" " vec-pos_0))" -"((lst_263)" +"((lst_38)" "(vector-ref" " syntax-literals-tree_0" " vec-pos_0)))" @@ -36739,635 +36915,635 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_163)))" +"(let-values()(check-list lst_35)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" +"(let-values()(check-list lst_36)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_265)))" +"(let-values()(check-list lst_37)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_263)))" -"((letrec-values(((for-loop_237)" -"(lambda(fold-var_158" -" lst_261" -" lst_23" -" lst_104" -" lst_90)" +"(let-values()(check-list lst_38)))" +"((letrec-values(((for-loop_39)" +"(lambda(fold-var_0" +" lst_0" +" lst_1" +" lst_2" +" lst_3)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_261)" +" lst_0)" "(if(pair?" -" lst_23)" +" lst_1)" "(if(pair?" -" lst_104)" +" lst_2)" "(pair?" -" lst_90)" +" lst_3)" " #f)" " #f)" " #f)" -"(let-values(((sub-ld_0)" +"(let-values(((sub-ld_45)" "(unsafe-car" -" lst_261))" -"((rest_143)" +" lst_0))" +"((rest_46)" "(unsafe-cdr" -" lst_261))" -"((mpi-vector-tree_1)" +" lst_0))" +"((mpi-vector-tree_47)" "(unsafe-car" -" lst_23))" -"((rest_51)" +" lst_1))" +"((rest_48)" "(unsafe-cdr" -" lst_23))" -"((phase-to-link-modules-tree_1)" +" lst_1))" +"((phase-to-link-modules-tree_49)" "(unsafe-car" -" lst_104))" -"((rest_91)" +" lst_2))" +"((rest_50)" "(unsafe-cdr" -" lst_104))" -"((syntax-literals-tree_1)" +" lst_2))" +"((syntax-literals-tree_51)" "(unsafe-car" -" lst_90))" -"((rest_35)" +" lst_3))" +"((rest_52)" "(unsafe-cdr" -" lst_90)))" -"(let-values(((fold-var_170)" -"(let-values(((fold-var_171)" -" fold-var_158))" -"(let-values(((fold-var_172)" +" lst_3)))" +"(let-values(((fold-var_53)" +"(let-values(((fold-var_54)" +" fold-var_0))" +"(let-values(((fold-var_55)" "(let-values()" "(cons" "(let-values()" -"(construct-compiled-in-memory_0" -" sub-ld_0" -" mpi-vector-tree_1" -" phase-to-link-modules-tree_1" -" syntax-literals-tree_1))" -" fold-var_171))))" +"(construct-compiled-in-memory_13" +" sub-ld_45" +" mpi-vector-tree_47" +" phase-to-link-modules-tree_49" +" syntax-literals-tree_51))" +" fold-var_54))))" "(values" -" fold-var_172)))))" +" fold-var_55)))))" "(if(not #f)" -"(for-loop_237" -" fold-var_170" -" rest_143" -" rest_51" -" rest_91" -" rest_35)" -" fold-var_170)))" -" fold-var_158)))))" -" for-loop_237)" +"(for-loop_39" +" fold-var_53" +" rest_46" +" rest_48" +" rest_50" +" rest_52)" +" fold-var_53)))" +" fold-var_0)))))" +" for-loop_39)" " null" -" lst_163" -" lst_89" -" lst_265" -" lst_263))))))))" +" lst_35" +" lst_36" +" lst_37" +" lst_38))))))))" "(compiled-in-memory1.1" -" ld_6" +" ld_0" " #f" " #f" " #f" "(vector-ref" -" phase-to-link-modules-vector_0" +" phase-to-link-modules-vector_8" "(vector-ref phase-to-link-modules-tree_0 0))" " #f" " '#hasheqv()" -"(let-values(((len_29)(vector-length mpi-pos-vec_0)))" +"(let-values(((len_56)(vector-length mpi-pos-vec_26)))" "(begin" -"(if(exact-nonnegative-integer? len_29)" +"(if(exact-nonnegative-integer? len_56)" "(void)" "(let-values()" "(raise-argument-error" " 'for/vector" " \"exact-nonnegative-integer?\"" -" len_29)))" -"(let-values(((v_59)(make-vector len_29 0)))" +" len_56)))" +"(let-values(((v_57)(make-vector len_56 0)))" "(begin" -"(if(zero? len_29)" +"(if(zero? len_56)" "(void)" "(let-values()" -"(let-values(((vec_65 len_30)" -"(let-values(((vec_66)" -" mpi-pos-vec_0))" +"(let-values(((vec_58 len_59)" +"(let-values(((vec_60)" +" mpi-pos-vec_26))" "(begin" -"(check-vector vec_66)" +"(check-vector vec_60)" "(values" -" vec_66" +" vec_60" "(unsafe-vector-length" -" vec_66))))))" +" vec_60))))))" "(begin" " #f" -"((letrec-values(((for-loop_111)" -"(lambda(i_153 pos_102)" +"((letrec-values(((for-loop_61)" +"(lambda(i_0 pos_0)" "(begin" " 'for-loop" "(if(unsafe-fx<" -" pos_102" -" len_30)" -"(let-values(((pos_103)" +" pos_0" +" len_59)" +"(let-values(((pos_64)" "(unsafe-vector-ref" -" vec_65" -" pos_102)))" -"(let-values(((i_154)" -"(let-values(((i_63)" -" i_153))" -"(let-values(((i_155)" +" vec_58" +" pos_0)))" +"(let-values(((i_65)" +"(let-values(((i_66)" +" i_0))" +"(let-values(((i_67)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_59" -" i_63" +" v_57" +" i_66" "(let-values()" "(vector-ref" -" mpi-vector_0" -" pos_103)))" +" mpi-vector_6" +" pos_64)))" "(unsafe-fx+" " 1" -" i_63)))))" +" i_66)))))" "(values" -" i_155)))))" +" i_67)))))" "(if(if(not" -"((lambda x_19" +"((lambda x_0" "(unsafe-fx=" -" i_154" -" len_29))" -" pos_103))" +" i_65" +" len_56))" +" pos_64))" "(not #f)" " #f)" -"(for-loop_111" -" i_154" +"(for-loop_61" +" i_65" "(unsafe-fx+" " 1" -" pos_102))" -" i_154)))" -" i_153)))))" -" for-loop_111)" +" pos_0))" +" i_65)))" +" i_0)))))" +" for-loop_61)" " 0" " 0)))))" -" v_59))))" -"(let-values(((len_31)(cdr syntax-literals-spec_0)))" +" v_57))))" +"(let-values(((len_69)(cdr syntax-literals-spec_27)))" "(begin" -"(if(exact-nonnegative-integer? len_31)" +"(if(exact-nonnegative-integer? len_69)" "(void)" "(let-values()" "(raise-argument-error" " 'for/vector" " \"exact-nonnegative-integer?\"" -" len_31)))" -"(let-values(((v_37)(make-vector len_31 0)))" +" len_69)))" +"(let-values(((v_70)(make-vector len_69 0)))" "(begin" -"(if(zero? len_31)" +"(if(zero? len_69)" "(void)" "(let-values()" -"(let-values(((start_15) 0)" -"((end_28)" -"(cdr syntax-literals-spec_0))" -"((inc_22) 1))" +"(let-values(((start_71) 0)" +"((end_72)" +"(cdr syntax-literals-spec_27))" +"((inc_73) 1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-range start_15 end_28 inc_22)))" -"((letrec-values(((for-loop_248)" -"(lambda(i_156 pos_104)" +"(check-range start_71 end_72 inc_73)))" +"((letrec-values(((for-loop_74)" +"(lambda(i_0 pos_0)" "(begin" " 'for-loop" -"(if(< pos_104 end_28)" -"(let-values(((i_93)" -" pos_104))" -"(let-values(((i_157)" -"(let-values(((i_36)" -" i_156))" -"(let-values(((i_20)" +"(if(< pos_0 end_72)" +"(let-values(((i_77)" +" pos_0))" +"(let-values(((i_78)" +"(let-values(((i_79)" +" i_0))" +"(let-values(((i_80)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_37" -" i_36" +" v_70" +" i_79" "(let-values()" -"(if syntax-literals_5" +"(if syntax-literals_10" "(vector-ref" -" syntax-literals_5" +" syntax-literals_10" "(+" "(car" -" syntax-literals-spec_0)" -" i_93))" +" syntax-literals-spec_27)" +" i_77))" " #f)))" "(unsafe-fx+" " 1" -" i_36)))))" +" i_79)))))" "(values" -" i_20)))))" +" i_80)))))" "(if(if(not" -"((lambda x_71" +"((lambda x_0" "(unsafe-fx=" -" i_157" -" len_31))" -" i_93))" +" i_78" +" len_69))" +" i_77))" "(not #f)" " #f)" -"(for-loop_248" -" i_157" +"(for-loop_74" +" i_78" "(+" -" pos_104" -" inc_22))" -" i_157)))" -" i_156)))))" -" for-loop_248)" +" pos_0" +" inc_73))" +" i_78)))" +" i_0)))))" +" for-loop_74)" " 0" -" start_15)))))" -" v_37))))" -"(map-construct-compiled-in-memory_0 pres_0 1)" -"(map-construct-compiled-in-memory_0 posts_0 2)" -" namespace-scopes_0" +" start_71)))))" +" v_70))))" +"(map-construct-compiled-in-memory_30 pres_28 1)" +"(map-construct-compiled-in-memory_30 posts_29 2)" +" namespace-scopes_12" " #f)))))))))))" "(map2" -" construct-compiled-in-memory_0" +" construct-compiled-in-memory_13" " tops_0" -" mpi-vector-trees_0" -" phase-to-link-modules-trees_0" -" syntax-literals-trees_1))))))))))))))" +" mpi-vector-trees_7" +" phase-to-link-modules-trees_9" +" syntax-literals-trees_11))))))))))))))" "(define-values" "(extract-submodules)" -"(lambda(ld_7 names-key_0)" +"(lambda(ld_0 names-key_0)" "(begin" -"(if(1/linklet-bundle? ld_7)" +"(if(1/linklet-bundle? ld_0)" "(let-values() null)" "(let-values()" -"(let-values(((h_10)(1/linklet-directory->hash ld_7)))" -"(let-values(((mod_3)(hash-ref h_10 #f #f)))" -" (let-values ((() (begin (if mod_3 (void) (let-values () (error \"missing main module\"))) (values))))" -"(let-values(((mh_0)(1/linklet-bundle->hash mod_3)))" -"(let-values(((names_2)(hash-ref mh_0 names-key_0 null)))" +"(let-values(((h_84)(1/linklet-directory->hash ld_0)))" +"(let-values(((mod_85)(hash-ref h_84 #f #f)))" +" (let-values ((() (begin (if mod_85 (void) (let-values () (error \"missing main module\"))) (values))))" +"(let-values(((mh_86)(1/linklet-bundle->hash mod_85)))" +"(let-values(((names_87)(hash-ref mh_86 names-key_0 null)))" "(reverse$1" -"(let-values(((lst_178) names_2))" +"(let-values(((lst_88) names_87))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_178)))" -"((letrec-values(((for-loop_249)" -"(lambda(fold-var_5 lst_276)" +"(let-values()(check-list lst_88)))" +"((letrec-values(((for-loop_89)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_276)" -"(let-values(((name_58)(unsafe-car lst_276))" -"((rest_152)(unsafe-cdr lst_276)))" -"(let-values(((fold-var_230)" -"(let-values(((fold-var_231) fold-var_5))" -"(let-values(((fold-var_161)" +"(if(pair? lst_0)" +"(let-values(((name_92)(unsafe-car lst_0))" +"((rest_93)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_94)" +"(let-values(((fold-var_95) fold-var_0))" +"(let-values(((fold-var_96)" "(let-values()" "(cons" "(let-values()" "(hash-ref" -" h_10" -" name_58" +" h_84" +" name_92" "(lambda()" "(error" " \"missing submodule declaration:\"" -" name_58))))" -" fold-var_231))))" -"(values fold-var_161)))))" -"(if(not #f)(for-loop_249 fold-var_230 rest_152) fold-var_230)))" -" fold-var_5)))))" -" for-loop_249)" +" name_92))))" +" fold-var_95))))" +"(values fold-var_96)))))" +"(if(not #f)(for-loop_89 fold-var_94 rest_93) fold-var_94)))" +" fold-var_0)))))" +" for-loop_89)" " null" -" lst_178))))))))))))))" +" lst_88))))))))))))))" "(define-values" "(eval-single-top)" -"(lambda(c_32 ns_42)" -"(begin(let-values(((c15_0) c_32)((ns16_1) ns_42)((temp17_3) #t))(eval-one-top12.1 temp17_3 c15_0 ns16_1 #t)))))" +"(lambda(c_0 ns_0)" +"(begin(let-values(((c15_4) c_0)((ns16_5) ns_0)((temp17_6) #t))(eval-one-top12.1 temp17_6 c15_4 ns16_5 #t)))))" "(define-values" "(compiled-multiple-top?)" -"(lambda(c_34)" +"(lambda(c_0)" "(begin" -"(let-values(((ld_8)(if(compiled-in-memory? c_34)(compiled-in-memory-linklet-directory c_34) c_34)))" +"(let-values(((ld_8)(if(compiled-in-memory? c_0)(compiled-in-memory-linklet-directory c_0) c_0)))" "(if(1/linklet-directory? ld_8)(not(hash-ref(1/linklet-directory->hash ld_8) #f #f)) #f)))))" "(define-values" "(eval-top)" -"(let-values(((eval-top5_0)" -"(lambda(c3_1 ns4_0 eval-compiled1_0 as-tail?2_0)" +"(let-values(((eval-top5_9)" +"(lambda(c3_0 ns4_0 eval-compiled1_0 as-tail?2_0)" "(begin" " 'eval-top5" -"(let-values(((c_46) c3_1))" -"(let-values(((ns_67) ns4_0))" -"(let-values(((eval-compiled_0)" +"(let-values(((c_14) c3_0))" +"(let-values(((ns_15) ns4_0))" +"(let-values(((eval-compiled_16)" "(if(eq? eval-compiled1_0 unsafe-undefined) eval-top eval-compiled1_0)))" -"(let-values(((as-tail?_0) as-tail?2_0))" +"(let-values(((as-tail?_17) as-tail?2_0))" "(let-values()" -"(if(compiled-multiple-top? c_46)" -"(eval-multiple-tops c_46 ns_67 eval-compiled_0 as-tail?_0)" -"(let-values(((c18_0) c_46)((ns19_0) ns_67)((as-tail?20_0) as-tail?_0))" -"(eval-one-top12.1 #f c18_0 ns19_0 as-tail?20_0))))))))))))" +"(if(compiled-multiple-top? c_14)" +"(eval-multiple-tops c_14 ns_15 eval-compiled_16 as-tail?_17)" +"(let-values(((c18_18) c_14)((ns19_19) ns_15)((as-tail?20_20) as-tail?_17))" +"(eval-one-top12.1 #f c18_18 ns19_19 as-tail?20_20))))))))))))" "(case-lambda" -"((c_47 ns_68)(begin(eval-top5_0 c_47 ns_68 unsafe-undefined #t)))" -"((c_48 ns_69 eval-compiled_1 as-tail?2_1)(eval-top5_0 c_48 ns_69 eval-compiled_1 as-tail?2_1))" -"((c_49 ns_70 eval-compiled1_1)(eval-top5_0 c_49 ns_70 eval-compiled1_1 #t)))))" +"((c_0 ns_0)(begin(eval-top5_9 c_0 ns_0 unsafe-undefined #t)))" +"((c_0 ns_0 eval-compiled_0 as-tail?2_0)(eval-top5_9 c_0 ns_0 eval-compiled_0 as-tail?2_0))" +"((c_0 ns_0 eval-compiled1_0)(eval-top5_9 c_0 ns_0 eval-compiled1_0 #t)))))" "(define-values" "(eval-multiple-tops)" -"(lambda(c_50 ns_71 eval-compiled_2 as-tail?_1)" +"(lambda(c_0 ns_0 eval-compiled_0 as-tail?_0)" "(begin" -"(let-values(((eval-compiled-parts_0)" -"(lambda(l_68)" +"(let-values(((eval-compiled-parts_34)" +"(lambda(l_0)" "(begin" " 'eval-compiled-parts" -"((letrec-values(((loop_5)" -"(lambda(l_69)" +"((letrec-values(((loop_36)" +"(lambda(l_1)" "(begin" " 'loop" -"(if(null? l_69)" +"(if(null? l_1)" "(let-values() void)" -"(if(null?(cdr l_69))" -"(let-values()(eval-compiled_2(car l_69) ns_71 as-tail?_1))" +"(if(null?(cdr l_1))" +"(let-values()(eval-compiled_0(car l_1) ns_0 as-tail?_0))" "(let-values()" "(begin" -"(eval-compiled_2(car l_69) ns_71 #f)" -"(loop_5(cdr l_69))))))))))" -" loop_5)" -" l_68)))))" -"(if(compiled-in-memory? c_50)" -"(let-values()(eval-compiled-parts_0(compiled-in-memory-pre-compiled-in-memorys c_50)))" -"(let-values(((c1_26)(hash-ref(1/linklet-directory->hash c_50) 'data #f)))" -"(if c1_26" +"(eval-compiled_0(car l_1) ns_0 #f)" +"(loop_36(cdr l_1))))))))))" +" loop_36)" +" l_0)))))" +"(if(compiled-in-memory? c_0)" +"(let-values()(eval-compiled-parts_34(compiled-in-memory-pre-compiled-in-memorys c_0)))" +"(let-values(((c1_38)(hash-ref(1/linklet-directory->hash c_0) 'data #f)))" +"(if c1_38" "((lambda(data-ld_0)" -"(eval-compiled-parts_0" +"(eval-compiled-parts_34" "(create-compiled-in-memorys-using-shared-data" -"(compiled-top->compiled-tops c_50)" +"(compiled-top->compiled-tops c_0)" "(hash-ref(1/linklet-bundle->hash(hash-ref(1/linklet-directory->hash data-ld_0) #f)) 0)" -" ns_71)))" -" c1_26)" -"(let-values()(eval-compiled-parts_0(compiled-top->compiled-tops c_50))))))))))" +" ns_0)))" +" c1_38)" +"(let-values()(eval-compiled-parts_34(compiled-top->compiled-tops c_0))))))))))" "(define-values" "(eval-one-top12.1)" "(lambda(single-expression?7_0 c10_0 ns11_0 as-tail?9_0)" "(begin" " 'eval-one-top12" -"(let-values(((c_51) c10_0))" -"(let-values(((ns_72) ns11_0))" -"(let-values(((as-tail?_2) as-tail?9_0))" -"(let-values(((single-expression?_1) single-expression?7_0))" +"(let-values(((c_44) c10_0))" +"(let-values(((ns_45) ns11_0))" +"(let-values(((as-tail?_46) as-tail?9_0))" +"(let-values(((single-expression?_47) single-expression?7_0))" "(let-values()" "(let-values()" -"(let-values(((ld_9)" -"(if(compiled-in-memory? c_51)(compiled-in-memory-linklet-directory c_51) c_51)))" -"(let-values(((h_11)(1/linklet-bundle->hash(hash-ref(1/linklet-directory->hash ld_9) #f))))" -"(let-values(((link-instance_0)" -"(if(compiled-in-memory? c_51)" +"(let-values(((ld_48)" +"(if(compiled-in-memory? c_44)(compiled-in-memory-linklet-directory c_44) c_44)))" +"(let-values(((h_49)(1/linklet-bundle->hash(hash-ref(1/linklet-directory->hash ld_48) #f))))" +"(let-values(((link-instance_50)" +"(if(compiled-in-memory? c_44)" "(link-instance-from-compiled-in-memory" -" c_51" -"(if(not single-expression?_1) ns_72 #f))" +" c_44" +"(if(not single-expression?_47) ns_45 #f))" "(1/instantiate-linklet" -"(hash-ref h_11 'link)" +"(hash-ref h_49 'link)" "(list" " deserialize-instance" -"(let-values(((ns21_0) ns_72)" -"((temp22_4)(namespace-phase ns_72))" -"((temp23_4)(namespace-mpi ns_72))" -"((temp24_4)(namespace-bulk-binding-registry ns_72))" -"((temp25_4)(current-code-inspector)))" +"(let-values(((ns21_59) ns_45)" +"((temp22_60)(namespace-phase ns_45))" +"((temp23_61)(namespace-mpi ns_45))" +"((temp24_62)(namespace-bulk-binding-registry ns_45))" +"((temp25_63)(current-code-inspector)))" "(make-eager-instance-instance11.1" -" temp24_4" -" temp22_4" -" temp25_4" -" ns21_0" -" temp23_4)))))))" -"(let-values(((orig-phase_1)(hash-ref h_11 'original-phase)))" -"(let-values(((max-phase_5)(hash-ref h_11 'max-phase)))" -"(let-values(((phase-shift_18)(phase-(namespace-phase ns_72) orig-phase_1)))" -"(let-values(((extra-inspector_8)" -"(if(compiled-in-memory? c_51)" -"(compiled-in-memory-compile-time-inspector c_51)" +" temp24_62" +" temp22_60" +" temp25_63" +" ns21_59" +" temp23_61)))))))" +"(let-values(((orig-phase_51)(hash-ref h_49 'original-phase)))" +"(let-values(((max-phase_52)(hash-ref h_49 'max-phase)))" +"(let-values(((phase-shift_53)(phase-(namespace-phase ns_45) orig-phase_51)))" +"(let-values(((extra-inspector_54)" +"(if(compiled-in-memory? c_44)" +"(compiled-in-memory-compile-time-inspector c_44)" " #f)))" -"(let-values(((phase-to-link-extra-inspectorsss_3)" -"(if(compiled-in-memory? c_51)" -"(compiled-in-memory-phase-to-link-extra-inspectorsss c_51)" +"(let-values(((phase-to-link-extra-inspectorsss_55)" +"(if(compiled-in-memory? c_44)" +"(compiled-in-memory-phase-to-link-extra-inspectorsss c_44)" " '#hasheqv())))" -"(let-values(((phase-to-link-modules_1)" -"(if(compiled-in-memory? c_51)" -"(compiled-in-memory-phase-to-link-module-uses c_51)" -"(1/instance-variable-value link-instance_0 'phase-to-link-modules))))" -"(let-values(((thunk_4)" -"(let-values(((start_38) max-phase_5)" -"((end_27)(sub1 orig-phase_1))" -"((inc_21) -1))" +"(let-values(((phase-to-link-modules_56)" +"(if(compiled-in-memory? c_44)" +"(compiled-in-memory-phase-to-link-module-uses c_44)" +"(1/instance-variable-value link-instance_50 'phase-to-link-modules))))" +"(let-values(((thunk_57)" +"(let-values(((start_64) max-phase_52)" +"((end_65)(sub1 orig-phase_51))" +"((inc_66) -1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_38 end_27 inc_21)))" -"((letrec-values(((for-loop_197)" -"(lambda(prev-thunk_0 pos_101)" +"(let-values()(check-range start_64 end_65 inc_66)))" +"((letrec-values(((for-loop_67)" +"(lambda(prev-thunk_0 pos_0)" "(begin" " 'for-loop" -"(if(> pos_101 end_27)" -"(let-values(((phase_98) pos_101))" -"(let-values(((prev-thunk_1)" -"(let-values(((prev-thunk_2)" +"(if(> pos_0 end_65)" +"(let-values(((phase_70) pos_0))" +"(let-values(((prev-thunk_71)" +"(let-values(((prev-thunk_72)" " prev-thunk_0))" -"(let-values(((prev-thunk_3)" +"(let-values(((prev-thunk_73)" "(let-values()" "(let-values((()" "(begin" -"(prev-thunk_2" +"(prev-thunk_72" " #f)" "(values))))" -"(let-values(((module-uses_1)" +"(let-values(((module-uses_74)" "(hash-ref" -" phase-to-link-modules_1" -" phase_98" +" phase-to-link-modules_56" +" phase_70" " null)))" -"(let-values(((import-module-instances_2" -" import-instances_1)" -"(let-values(((mis_6" -" is_5)" -"(let-values(((lst_96)" -" module-uses_1))" +"(let-values(((import-module-instances_75" +" import-instances_76)" +"(let-values(((mis_80" +" is_81)" +"(let-values(((lst_82)" +" module-uses_74))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_96)))" -"((letrec-values(((for-loop_113)" -"(lambda(mis_7" -" is_6" -" lst_225)" +" lst_82)))" +"((letrec-values(((for-loop_83)" +"(lambda(mis_0" +" is_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_225)" -"(let-values(((mu_9)" +" lst_0)" +"(let-values(((mu_87)" "(unsafe-car" -" lst_225))" -"((rest_153)" +" lst_0))" +"((rest_88)" "(unsafe-cdr" -" lst_225)))" -"(let-values(((mis_8" -" is_7)" -"(let-values(((mis_9)" -" mis_7)" -"((is_8)" -" is_6))" -"(let-values(((mis_10" -" is_9)" +" lst_0)))" +"(let-values(((mis_89" +" is_90)" +"(let-values(((mis_91)" +" mis_0)" +"((is_92)" +" is_0))" +"(let-values(((mis_93" +" is_94)" "(let-values()" -"(let-values(((mis26_0" -" is27_0)" +"(let-values(((mis26_95" +" is27_96)" "(let-values()" -"(let-values(((ns28_0)" -" ns_72)" -"((mu29_0)" -" mu_9)" -"((temp30_3)" +"(let-values(((ns28_98)" +" ns_45)" +"((mu29_99)" +" mu_87)" +"((temp30_100)" "(phase-" "(phase+" -" phase_98" -" phase-shift_18)" +" phase_70" +" phase-shift_53)" "(module-use-phase" -" mu_9))))" +" mu_87))))" "(namespace-module-use->module+linklet-instances144.1" -" temp30_3" +" temp30_100" " #f" " #f" -" ns28_0" -" mu29_0)))))" +" ns28_98" +" mu29_99)))))" "(values" "(cons" -" mis26_0" -" mis_9)" +" mis26_95" +" mis_91)" "(cons" -" is27_0" -" is_8))))))" +" is27_96" +" is_92))))))" "(values" -" mis_10" -" is_9)))))" +" mis_93" +" is_94)))))" "(if(not" " #f)" -"(for-loop_113" -" mis_8" -" is_7" -" rest_153)" +"(for-loop_83" +" mis_89" +" is_90" +" rest_88)" "(values" -" mis_8" -" is_7))))" +" mis_89" +" is_90))))" "(values" -" mis_7" -" is_6))))))" -" for-loop_113)" +" mis_0" +" is_0))))))" +" for-loop_83)" " null" " null" -" lst_96)))))" +" lst_82)))))" "(values" "(reverse$1" -" mis_6)" +" mis_80)" "(reverse$1" -" is_5)))))" -"(let-values(((phase-ns_0)" +" is_81)))))" +"(let-values(((phase-ns_77)" "(namespace->namespace-at-phase" -" ns_72" +" ns_45" "(phase+" -" phase_98" -" phase-shift_18))))" -"(let-values(((inst_5)" -"(if single-expression?_1" -" link-instance_0" -"(let-values(((phase-ns31_0)" -" phase-ns_0)" -"((phase-shift32_0)" -" phase-shift_18)" -"((temp33_1)" +" phase_70" +" phase-shift_53))))" +"(let-values(((inst_78)" +"(if single-expression?_47" +" link-instance_50" +"(let-values(((phase-ns31_102)" +" phase-ns_77)" +"((phase-shift32_103)" +" phase-shift_53)" +"((temp33_104)" "(namespace-mpi" -" ns_72))" -"((temp34_3)" +" ns_45))" +"((temp34_105)" "(namespace-inspector" -" ns_72))" -"((temp35_1)" +" ns_45))" +"((temp35_106)" "(namespace-bulk-binding-registry" -" ns_72))" -"((temp36_2)" -"(lambda(name_59" -" val_68)" +" ns_45))" +"((temp36_107)" +"(lambda(name_0" +" val_0)" "(namespace-set-transformer!" -" ns_72" +" ns_45" "(phase+" "(sub1" -" phase_98)" -" phase-shift_18)" -" name_59" -" val_68))))" +" phase_70)" +" phase-shift_53)" +" name_0" +" val_0))))" "(make-instance-instance13.1" -" temp35_1" -" temp34_3" -" phase-ns31_0" -" phase-shift32_0" -" temp33_1" -" temp36_2)))))" -"(let-values(((linklet_9)" +" temp35_106" +" temp34_105" +" phase-ns31_102" +" phase-shift32_103" +" temp33_104" +" temp36_107)))))" +"(let-values(((linklet_79)" "(hash-ref" -" h_11" -" phase_98" +" h_49" +" phase_70" " #f)))" -"(if linklet_9" +"(if linklet_79" "(let-values()" "(let-values((()" "(begin" -"(let-values(((linklet37_0)" -" linklet_9)" -"((temp38_2)" +"(let-values(((linklet37_112)" +" linklet_79)" +"((temp38_113)" " 3)" -"((module-uses39_0)" -" module-uses_1)" -"((import-module-instances40_0)" -" import-module-instances_2)" -"((temp41_1)" +"((module-uses39_114)" +" module-uses_74)" +"((import-module-instances40_115)" +" import-module-instances_75)" +"((temp41_116)" "(current-code-inspector))" -"((extra-inspector42_0)" -" extra-inspector_8)" -"((temp43_2)" +"((extra-inspector42_117)" +" extra-inspector_54)" +"((temp43_118)" "(hash-ref" -" phase-to-link-extra-inspectorsss_3" -" phase_98" +" phase-to-link-extra-inspectorsss_55" +" phase_70" " #f)))" "(check-require-access9.1" -" temp38_2" -" linklet37_0" -" module-uses39_0" -" import-module-instances40_0" -" temp41_1" -" extra-inspector42_0" -" temp43_2))" +" temp38_113" +" linklet37_112" +" module-uses39_114" +" import-module-instances40_115" +" temp41_116" +" extra-inspector42_117" +" temp43_118))" "(values))))" -"(let-values(((instantiate_0)" -"(lambda(tail?_49)" +"(let-values(((instantiate_110)" +"(lambda(tail?_0)" "(begin" " 'instantiate" "(1/instantiate-linklet" -" linklet_9" +" linklet_79" "(list*" " top-level-instance" -" link-instance_0" -" inst_5" -" import-instances_1)" +" link-instance_50" +" inst_78" +" import-instances_76)" "(namespace->instance" -" ns_72" +" ns_45" "(phase-" "(phase+" -" phase_98" -" phase-shift_18)" +" phase_70" +" phase-shift_53)" "(namespace-0-phase" -" ns_72)))" +" ns_45)))" "(not" -" tail?_49))))))" +" tail?_0))))))" "(if(zero-phase?" -" phase_98)" +" phase_70)" "(let-values()" -" instantiate_0)" -"(if single-expression?_1" +" instantiate_110)" +"(if single-expression?_47" "(let-values()" -"(lambda(tail?_50)" +"(lambda(tail?_0)" "(begin" " 'prev-thunk" "(with-continuation-mark" @@ -37377,17 +37553,17 @@ static const char *startup_source = " #f" " parameterization-key)" " 1/current-namespace" -" phase-ns_0)" +" phase-ns_77)" "(let-values()" -"(instantiate_0" -" tail?_50))))))" +"(instantiate_110" +" tail?_0))))))" "(let-values()" -"(let-values(((ns-1_1)" +"(let-values(((ns-1_121)" "(namespace->namespace-at-phase" -" phase-ns_0" +" phase-ns_77" "(sub1" -" phase_98))))" -"(lambda(tail?_51)" +" phase_70))))" +"(lambda(tail?_0)" "(begin" " 'prev-thunk" "(with-continuation-mark" @@ -37397,221 +37573,220 @@ static const char *startup_source = " #f" " parameterization-key)" " current-expand-context" -"(let-values(((ns-144_0)" -" ns-1_1))" +"(let-values(((ns-144_123)" +" ns-1_121))" "(make-expand-context10.1" " #f" " #f" " #f" -" ns-144_0))" +" ns-144_123))" " 1/current-namespace" -" phase-ns_0)" +" phase-ns_77)" "(let-values()" -"(instantiate_0" -" tail?_51))))))))))))" +"(instantiate_110" +" tail?_0))))))))))))" "(let-values()" " void)))))))))))" "(values" -" prev-thunk_3)))))" +" prev-thunk_73)))))" "(if(not #f)" -"(for-loop_197" -" prev-thunk_1" -"(+ pos_101 inc_21))" -" prev-thunk_1)))" +"(for-loop_67" +" prev-thunk_71" +"(+ pos_0 inc_66))" +" prev-thunk_71)))" " prev-thunk_0)))))" -" for-loop_197)" +" for-loop_67)" " void" -" start_38)))))" -"(thunk_4 as-tail?_2))))))))))))))))))))" +" start_64)))))" +"(thunk_57 as-tail?_46))))))))))))))))))))" "(define-values" "(link-instance-from-compiled-in-memory)" -"(lambda(cim_11 to-ns_0)" +"(lambda(cim_0 to-ns_0)" "(begin" -"(let-values(((orig-syntax-literals_0)(compiled-in-memory-syntax-literals cim_11)))" -"(let-values(((syntax-literals_6)" +"(let-values(((orig-syntax-literals_152)(compiled-in-memory-syntax-literals cim_0)))" +"(let-values(((syntax-literals_153)" "(if(not to-ns_0)" -"(let-values() orig-syntax-literals_0)" +"(let-values() orig-syntax-literals_152)" "(if(namespace-scopes=?" -"(compiled-in-memory-namespace-scopes cim_11)" +"(compiled-in-memory-namespace-scopes cim_0)" "(extract-namespace-scopes to-ns_0))" -"(let-values() orig-syntax-literals_0)" +"(let-values() orig-syntax-literals_152)" "(let-values()" -"(let-values(((len_32)(vector-length orig-syntax-literals_0)))" +"(let-values(((len_154)(vector-length orig-syntax-literals_152)))" "(begin" -"(if(exact-nonnegative-integer? len_32)" +"(if(exact-nonnegative-integer? len_154)" "(void)" "(let-values()" -" (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_32)))" -"(let-values(((v_89)(make-vector len_32 0)))" +" (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_154)))" +"(let-values(((v_155)(make-vector len_154 0)))" "(begin" -"(if(zero? len_32)" +"(if(zero? len_154)" "(void)" "(let-values()" -"(let-values(((vec_67 len_33)" -"(let-values(((vec_68) orig-syntax-literals_0))" +"(let-values(((vec_156 len_157)" +"(let-values(((vec_158) orig-syntax-literals_152))" "(begin" -"(check-vector vec_68)" -"(values vec_68(unsafe-vector-length vec_68))))))" +"(check-vector vec_158)" +"(values vec_158(unsafe-vector-length vec_158))))))" "(begin" " #f" -"((letrec-values(((for-loop_6)" -"(lambda(i_158 pos_105)" +"((letrec-values(((for-loop_159)" +"(lambda(i_0 pos_0)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_105 len_33)" -"(let-values(((s_50)" -"(unsafe-vector-ref vec_67 pos_105)))" -"(let-values(((i_83)" -"(let-values(((i_159) i_158))" -"(let-values(((i_160)" +"(if(unsafe-fx< pos_0 len_157)" +"(let-values(((s_162)" +"(unsafe-vector-ref vec_156 pos_0)))" +"(let-values(((i_163)" +"(let-values(((i_164) i_0))" +"(let-values(((i_165)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_89" -" i_159" +" v_155" +" i_164" "(let-values()" "(swap-top-level-scopes" -" s_50" +" s_162" "(compiled-in-memory-namespace-scopes" -" cim_11)" +" cim_0)" " to-ns_0)))" "(unsafe-fx+" " 1" -" i_159)))))" -"(values i_160)))))" +" i_164)))))" +"(values i_165)))))" "(if(if(not" -"((lambda x_72(unsafe-fx= i_83 len_32))" -" s_50))" +"((lambda x_0" +"(unsafe-fx= i_163 len_154))" +" s_162))" "(not #f)" " #f)" -"(for-loop_6 i_83(unsafe-fx+ 1 pos_105))" -" i_83)))" -" i_158)))))" -" for-loop_6)" +"(for-loop_159 i_163(unsafe-fx+ 1 pos_0))" +" i_163)))" +" i_0)))))" +" for-loop_159)" " 0" " 0)))))" -" v_89)))))))))" +" v_155)))))))))" "(1/make-instance" " 'link" " #f" " 'constant" " mpi-vector-id" -"(compiled-in-memory-mpis cim_11)" +"(compiled-in-memory-mpis cim_0)" " syntax-literals-id" -" syntax-literals_6))))))" +" syntax-literals_153))))))" "(define-values(not-available)(gensym 'not-available))" "(define-values(get-not-available)(lambda()(begin not-available)))" "(define-values" "(can-direct-eval?)" -"(lambda(p_36 ns_42 self-mpi_3)" +"(lambda(p_0 ns_0 self-mpi_0)" "(begin" -"(if(parsed-app? p_36)" +"(if(parsed-app? p_0)" "(let-values()" -"(if(can-direct-eval?(parsed-app-rator p_36) ns_42 self-mpi_3)" -"(let-values(((lst_103)(parsed-app-rands p_36)))" +"(if(can-direct-eval?(parsed-app-rator p_0) ns_0 self-mpi_0)" +"(let-values(((lst_4)(parsed-app-rands p_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_103)))" -"((letrec-values(((for-loop_117)" -"(lambda(result_114 lst_84)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_4)))" +"((letrec-values(((for-loop_5)" +"(lambda(result_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_84)" -"(let-values(((r_39)(unsafe-car lst_84))((rest_50)(unsafe-cdr lst_84)))" -"(let-values(((result_80)" +"(if(pair? lst_0)" +"(let-values(((r_8)(unsafe-car lst_0))((rest_9)(unsafe-cdr lst_0)))" +"(let-values(((result_10)" "(let-values()" -"(let-values(((result_115)" +"(let-values(((result_12)" "(let-values()" "(let-values()" -"(can-direct-eval? r_39 ns_42 self-mpi_3)))))" -"(values result_115)))))" -"(if(if(not((lambda x_73(not result_80)) r_39))(not #f) #f)" -"(for-loop_117 result_80 rest_50)" -" result_80)))" -" result_114)))))" -" for-loop_117)" +"(can-direct-eval? r_8 ns_0 self-mpi_0)))))" +"(values result_12)))))" +"(if(if(not((lambda x_0(not result_10)) r_8))(not #f) #f)" +"(for-loop_5 result_10 rest_9)" +" result_10)))" +" result_0)))))" +" for-loop_5)" " #t" -" lst_103)))" +" lst_4)))" " #f))" -"(if(parsed-id? p_36)" -"(let-values()(not(eq?(get-id-value p_36 ns_42 self-mpi_3) not-available)))" -"(if(parsed-quote? p_36)" +"(if(parsed-id? p_0)" +"(let-values()(not(eq?(get-id-value p_0 ns_0 self-mpi_0) not-available)))" +"(if(parsed-quote? p_0)" "(let-values() #t)" -"(if(parsed-quote-syntax? p_36)(let-values() #t)(let-values() #f))))))))" +"(if(parsed-quote-syntax? p_0)(let-values() #t)(let-values() #f))))))))" "(define-values" "(direct-eval)" -"(lambda(p_39 ns_67 self-mpi_4)" +"(lambda(p_0 ns_0 self-mpi_0)" "(begin" -"(if(parsed-app? p_39)" +"(if(parsed-app? p_0)" "(let-values()" "(apply" -"(direct-eval(parsed-app-rator p_39) ns_67 self-mpi_4)" +"(direct-eval(parsed-app-rator p_0) ns_0 self-mpi_0)" "(reverse$1" -"(let-values(((lst_81)(parsed-app-rands p_39)))" +"(let-values(((lst_17)(parsed-app-rands p_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_102)" -"(lambda(fold-var_232 lst_82)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_17)))" +"((letrec-values(((for-loop_18)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_82)" -"(let-values(((r_8)(unsafe-car lst_82))((rest_38)(unsafe-cdr lst_82)))" -"(let-values(((fold-var_223)" -"(let-values(((fold-var_69) fold-var_232))" -"(let-values(((fold-var_26)" +"(if(pair? lst_0)" +"(let-values(((r_21)(unsafe-car lst_0))((rest_22)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_23)" +"(let-values(((fold-var_24) fold-var_0))" +"(let-values(((fold-var_25)" "(let-values()" "(cons" "(let-values()" -"(direct-eval r_8 ns_67 self-mpi_4))" -" fold-var_69))))" -"(values fold-var_26)))))" -"(if(not #f)(for-loop_102 fold-var_223 rest_38) fold-var_223)))" -" fold-var_232)))))" -" for-loop_102)" +"(direct-eval r_21 ns_0 self-mpi_0))" +" fold-var_24))))" +"(values fold-var_25)))))" +"(if(not #f)(for-loop_18 fold-var_23 rest_22) fold-var_23)))" +" fold-var_0)))))" +" for-loop_18)" " null" -" lst_81))))))" -"(if(parsed-id? p_39)" -"(let-values()(get-id-value p_39 ns_67 self-mpi_4))" -"(if(parsed-quote? p_39)" -"(let-values()(parsed-quote-datum p_39))" -"(if(parsed-quote-syntax? p_39)(let-values()(parsed-quote-syntax-datum p_39))(let-values() #f))))))))" +" lst_17))))))" +"(if(parsed-id? p_0)" +"(let-values()(get-id-value p_0 ns_0 self-mpi_0))" +"(if(parsed-quote? p_0)" +"(let-values()(parsed-quote-datum p_0))" +"(if(parsed-quote-syntax? p_0)(let-values()(parsed-quote-syntax-datum p_0))(let-values() #f))))))))" "(define-values" "(get-id-value)" -"(lambda(p_1 ns_73 self-mpi_5)" +"(lambda(p_0 ns_0 self-mpi_0)" "(begin" -"(let-values(((b_76)(parsed-id-binding p_1)))" -"(if(parsed-primitive-id? p_1)" -"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_76) get-not-available))" -"(if(let-values(((or-part_74)(parsed-top-id? p_1)))" -"(if or-part_74" -" or-part_74" -"(let-values(((or-part_75)(not b_76)))" -"(if or-part_75 or-part_75(eq? self-mpi_5(module-binding-module b_76))))))" +"(let-values(((b_29)(parsed-id-binding p_0)))" +"(if(parsed-primitive-id? p_0)" +"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_29) get-not-available))" +"(if(let-values(((or-part_30)(parsed-top-id? p_0)))" +"(if or-part_30" +" or-part_30" +"(let-values(((or-part_31)(not b_29)))" +"(if or-part_31 or-part_31(eq? self-mpi_0(module-binding-module b_29))))))" "(let-values()" "(namespace-get-variable" -" ns_73" -"(if b_76(module-binding-phase b_76)(namespace-phase ns_73))" -"(if b_76(module-binding-sym b_76)(syntax-e$1(parsed-s p_1)))" +" ns_0" +"(if b_29(module-binding-phase b_29)(namespace-phase ns_0))" +"(if b_29(module-binding-sym b_29)(syntax-e$1(parsed-s p_0)))" " get-not-available))" "(let-values()" -"(let-values(((mi_18)" -"(let-values(((ns1_2) ns_73)" -"((temp2_4)(1/module-path-index-resolve(module-binding-module b_76)))" -"((temp3_4)(phase-(namespace-phase ns_73)(module-binding-phase b_76))))" -"(namespace->module-instance70.1 #f #f unsafe-undefined ns1_2 temp2_4 temp3_4))))" -"(if(not mi_18)" +"(let-values(((mi_32)" +"(let-values(((ns1_33) ns_0)" +"((temp2_34)(1/module-path-index-resolve(module-binding-module b_29)))" +"((temp3_35)(phase-(namespace-phase ns_0)(module-binding-phase b_29))))" +"(namespace->module-instance70.1 #f #f unsafe-undefined ns1_33 temp2_34 temp3_35))))" +"(if(not mi_32)" "(let-values() not-available)" "(if(check-single-require-access" -" mi_18" -"(module-binding-phase b_76)" -"(module-binding-sym b_76)" -"(module-binding-extra-inspector b_76))" +" mi_32" +"(module-binding-phase b_29)" +"(module-binding-sym b_29)" +"(module-binding-extra-inspector b_29))" "(let-values()" "(namespace-get-variable" -"(module-instance-namespace mi_18)" -"(module-binding-phase b_76)" -"(module-binding-sym b_76)" +"(module-instance-namespace mi_32)" +"(module-binding-phase b_29)" +"(module-binding-sym b_29)" " get-not-available))" "(let-values() not-available)))))))))))" "(define-values(runtime-scope)(new-multi-scope))" @@ -37620,12 +37795,12 @@ static const char *startup_source = "(define-values(runtime-mpi)(1/module-path-index-join ''#%runtime #f))" "(define-values" "(add-runtime-primitive!)" -"(lambda(sym_67)" +"(lambda(sym_0)" "(begin" -"(let-values(((temp1_4)(syntax-scope-set runtime-stx 0))" -"((sym2_0) sym_67)" -"((temp3_5)" -"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_4) 0)((sym6_2) sym_67))" +"(let-values(((temp1_2)(syntax-scope-set runtime-stx 0))" +"((sym2_3) sym_0)" +"((temp3_4)" +"(let-values(((runtime-mpi4_5) runtime-mpi)((temp5_6) 0)((sym6_7) sym_0))" "(make-module-binding22.1" " #f" " null" @@ -37636,10 +37811,10 @@ static const char *startup_source = " 0" " unsafe-undefined" " unsafe-undefined" -" runtime-mpi4_0" -" temp5_4" -" sym6_2))))" -"(add-binding-in-scopes!20.1 #f temp1_4 sym2_0 temp3_5)))))" +" runtime-mpi4_5" +" temp5_6" +" sym6_7))))" +"(add-binding-in-scopes!20.1 #f temp1_2 sym2_3 temp3_4)))))" "(void" "(begin" "(add-runtime-primitive! 'values)" @@ -37652,11 +37827,11 @@ static const char *startup_source = "(define-values" "(runtime-instances)" " '(#%kernel #%paramz #%foreign #%unsafe #%flfxnum #%extfl #%network #%place #%futures))" -"(define-values(box-cons!)(lambda(b_16 v_62)(begin(set-box! b_16(cons v_62(unbox b_16))))))" -"(define-values(box-clear!)(lambda(b_17)(begin(begin0(reverse$1(unbox b_17))(set-box! b_17 null)))))" +"(define-values(box-cons!)(lambda(b_0 v_0)(begin(set-box! b_0(cons v_0(unbox b_0))))))" +"(define-values(box-clear!)(lambda(b_0)(begin(begin0(reverse$1(unbox b_0))(set-box! b_0 null)))))" "(define-values" "(struct:lift-context lift-context1.1 lift-context? lift-context-convert lift-context-lifts lift-context-module*-ok?)" -"(let-values(((struct:_67 make-_67 ?_67 -ref_67 -set!_67)" +"(let-values(((struct:_9 make-_10 ?_11 -ref_12 -set!_13)" "(let-values()" "(let-values()" "(make-struct-type" @@ -37672,15 +37847,15 @@ static const char *startup_source = " #f" " 'lift-context)))))" "(values" -" struct:_67" -" make-_67" -" ?_67" -"(make-struct-field-accessor -ref_67 0 'convert)" -"(make-struct-field-accessor -ref_67 1 'lifts)" -"(make-struct-field-accessor -ref_67 2 'module*-ok?))))" +" struct:_9" +" make-_10" +" ?_11" +"(make-struct-field-accessor -ref_12 0 'convert)" +"(make-struct-field-accessor -ref_12 1 'lifts)" +"(make-struct-field-accessor -ref_12 2 'module*-ok?))))" "(define-values" "(struct:lifted-bind lifted-bind2.1 lifted-bind? lifted-bind-ids lifted-bind-keys lifted-bind-rhs)" -"(let-values(((struct:_68 make-_68 ?_68 -ref_68 -set!_68)" +"(let-values(((struct:_39 make-_40 ?_41 -ref_42 -set!_43)" "(let-values()" "(let-values()" "(make-struct-type" @@ -37696,200 +37871,200 @@ static const char *startup_source = " #f" " 'lifted-bind)))))" "(values" -" struct:_68" -" make-_68" -" ?_68" -"(make-struct-field-accessor -ref_68 0 'ids)" -"(make-struct-field-accessor -ref_68 1 'keys)" -"(make-struct-field-accessor -ref_68 2 'rhs))))" +" struct:_39" +" make-_40" +" ?_41" +"(make-struct-field-accessor -ref_42 0 'ids)" +"(make-struct-field-accessor -ref_42 1 'keys)" +"(make-struct-field-accessor -ref_42 2 'rhs))))" "(define-values" "(make-lift-context6.1)" "(lambda(module*-ok?3_0 convert5_0)" "(begin" " 'make-lift-context6" -"(let-values(((convert_0) convert5_0))" -"(let-values(((module*-ok?_0) module*-ok?3_0))" -"(let-values()(lift-context1.1 convert_0(box null) module*-ok?_0)))))))" +"(let-values(((convert_71) convert5_0))" +"(let-values(((module*-ok?_72) module*-ok?3_0))" +"(let-values()(lift-context1.1 convert_71(box null) module*-ok?_72)))))))" "(define-values" "(add-lifted!)" -"(lambda(lifts_1 ids_16 rhs_12 phase_99)" +"(lambda(lifts_0 ids_0 rhs_0 phase_0)" "(begin" -"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_99)))" -"(begin(box-cons!(lift-context-lifts lifts_1) lifted_0) lifted-ids_0)))))" -"(define-values(get-and-clear-lifts!)(lambda(lifts_2)(begin(box-clear!(lift-context-lifts lifts_2)))))" +"(let-values(((lifted-ids_91 lifted_92)((lift-context-convert lifts_0) ids_0 rhs_0 phase_0)))" +"(begin(box-cons!(lift-context-lifts lifts_0) lifted_92) lifted-ids_91)))))" +"(define-values(get-and-clear-lifts!)(lambda(lifts_0)(begin(box-clear!(lift-context-lifts lifts_0)))))" "(define-values" "(make-local-lift)" -"(lambda(lift-env_1 counter_3)" +"(lambda(lift-env_0 counter_0)" "(begin" -"(lambda(ids_17 rhs_13 phase_100)" -"(let-values(((keys_2)" +"(lambda(ids_0 rhs_0 phase_0)" +"(let-values(((keys_99)" "(reverse$1" -"(let-values(((lst_277) ids_17))" +"(let-values(((lst_100) ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_277)))" -"((letrec-values(((for-loop_29)" -"(lambda(fold-var_162 lst_278)" +"(let-values()(check-list lst_100)))" +"((letrec-values(((for-loop_101)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_278)" -"(let-values(((id_59)(unsafe-car lst_278))" -"((rest_154)(unsafe-cdr lst_278)))" -"(let-values(((fold-var_85)" -"(let-values(((fold-var_86) fold-var_162))" -"(let-values(((fold-var_87)" +"(if(pair? lst_0)" +"(let-values(((id_104)(unsafe-car lst_0))" +"((rest_105)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_106)" +"(let-values(((fold-var_107) fold-var_0))" +"(let-values(((fold-var_108)" "(let-values()" "(cons" "(let-values()" -"(let-values(((key_15)" -"(let-values(((id32_0)" -" id_59)" -"((phase33_0)" -" phase_100)" -"((counter34_0)" -" counter_3))" +"(let-values(((key_109)" +"(let-values(((id32_110)" +" id_104)" +"((phase33_111)" +" phase_0)" +"((counter34_112)" +" counter_0))" "(add-local-binding!37.1" " #f" " #f" -" id32_0" -" phase33_0" -" counter34_0))))" +" id32_110" +" phase33_111" +" counter34_112))))" "(begin" "(set-box!" -" lift-env_1" +" lift-env_0" "(hash-set" -"(unbox lift-env_1)" -" key_15" +"(unbox lift-env_0)" +" key_109" " variable))" -" key_15)))" -" fold-var_86))))" -"(values fold-var_87)))))" -"(if(not #f)(for-loop_29 fold-var_85 rest_154) fold-var_85)))" -" fold-var_162)))))" -" for-loop_29)" +" key_109)))" +" fold-var_107))))" +"(values fold-var_108)))))" +"(if(not #f)(for-loop_101 fold-var_106 rest_105) fold-var_106)))" +" fold-var_0)))))" +" for-loop_101)" " null" -" lst_277))))))" -"(values ids_17(lifted-bind2.1 ids_17 keys_2 rhs_13)))))))" +" lst_100))))))" +"(values ids_0(lifted-bind2.1 ids_0 keys_99 rhs_0)))))))" "(define-values" "(make-top-level-lift)" -"(lambda(ctx_11)" +"(lambda(ctx_0)" "(begin" -"(lambda(ids_18 rhs_14 phase_7)" -"(let-values(((post-scope_0)" +"(lambda(ids_0 rhs_0 phase_0)" +"(let-values(((post-scope_117)" "(post-expansion-scope" "(root-expand-context-post-expansion" -"(namespace-get-root-expand-ctx(expand-context-namespace ctx_11))))))" -"(let-values(((tl-ids_1)" +"(namespace-get-root-expand-ctx(expand-context-namespace ctx_0))))))" +"(let-values(((tl-ids_118)" "(reverse$1" -"(let-values(((lst_186) ids_18))" +"(let-values(((lst_120) ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_186)))" -"((letrec-values(((for-loop_250)" -"(lambda(fold-var_233 lst_187)" +"(let-values()(check-list lst_120)))" +"((letrec-values(((for-loop_121)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_187)" -"(let-values(((id_60)(unsafe-car lst_187))" -"((rest_155)(unsafe-cdr lst_187)))" -"(let-values(((fold-var_234)" -"(let-values(((fold-var_235) fold-var_233))" -"(let-values(((fold-var_236)" +"(if(pair? lst_0)" +"(let-values(((id_124)(unsafe-car lst_0))" +"((rest_125)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_126)" +"(let-values(((fold-var_127) fold-var_0))" +"(let-values(((fold-var_128)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_60" -" post-scope_0))" -" fold-var_235))))" -"(values fold-var_236)))))" +" id_124" +" post-scope_117))" +" fold-var_127))))" +"(values fold-var_128)))))" "(if(not #f)" -"(for-loop_250 fold-var_234 rest_155)" -" fold-var_234)))" -" fold-var_233)))))" -" for-loop_250)" +"(for-loop_121 fold-var_126 rest_125)" +" fold-var_126)))" +" fold-var_0)))))" +" for-loop_121)" " null" -" lst_186))))))" -"(let-values(((syms_20)(select-defined-syms-and-bind!/ctx tl-ids_1 ctx_11)))" -"(values tl-ids_1(lifted-bind2.1 tl-ids_1 syms_20 rhs_14)))))))))" +" lst_120))))))" +"(let-values(((syms_119)(select-defined-syms-and-bind!/ctx tl-ids_118 ctx_0)))" +"(values tl-ids_118(lifted-bind2.1 tl-ids_118 syms_119 rhs_0)))))))))" "(define-values" "(wrap-lifts-as-let)" -"(lambda(lifts_3 body_4 phase_101)" +"(lambda(lifts_0 body_0 phase_0)" "(begin" "(datum->syntax$1" " #f" -"(let-values(((lst_279)(reverse$1 lifts_3)))" +"(let-values(((lst_132)(reverse$1 lifts_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_279)))" -"((letrec-values(((for-loop_56)" -"(lambda(body_5 lst_189)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_132)))" +"((letrec-values(((for-loop_133)" +"(lambda(body_1 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_189)" -"(let-values(((lift_0)(unsafe-car lst_189))((rest_156)(unsafe-cdr lst_189)))" -"(let-values(((body_6)" -"(let-values(((body_7) body_5))" -"(let-values(((body_0)" +"(if(pair? lst_0)" +"(let-values(((lift_136)(unsafe-car lst_0))((rest_137)(unsafe-cdr lst_0)))" +"(let-values(((body_138)" +"(let-values(((body_139) body_1))" +"(let-values(((body_140)" "(let-values()" "(begin" -"(if(lifted-bind? lift_0)" +"(if(lifted-bind? lift_136)" "(void)" "(let-values()" " (error \"non-bindings in `lift-context`\")))" "(list" "(datum->syntax$1" -"(syntax-shift-phase-level$1 core-stx phase_101)" +"(syntax-shift-phase-level$1 core-stx phase_0)" " 'let-values)" "(list" "(list" -"(lifted-bind-ids lift_0)" -"(lifted-bind-rhs lift_0)))" -" body_7)))))" -"(values body_0)))))" -"(if(not #f)(for-loop_56 body_6 rest_156) body_6)))" -" body_5)))))" -" for-loop_56)" -" body_4" -" lst_279)))))))" +"(lifted-bind-ids lift_136)" +"(lifted-bind-rhs lift_136)))" +" body_139)))))" +"(values body_140)))))" +"(if(not #f)(for-loop_133 body_138 rest_137) body_138)))" +" body_1)))))" +" for-loop_133)" +" body_0" +" lst_132)))))))" "(define-values" "(wrap-lifts-as-begin16.1)" "(lambda(adjust-body10_0 adjust-form9_0 lifts13_0 body14_0 phase15_0)" "(begin" " 'wrap-lifts-as-begin16" -"(let-values(((lifts_4) lifts13_0))" -"(let-values(((body_8) body14_0))" -"(let-values(((phase_102) phase15_0))" -"(let-values(((adjust-form_0)(if(eq? adjust-form9_0 unsafe-undefined) values adjust-form9_0)))" -"(let-values(((adjust-body_0)(if(eq? adjust-body10_0 unsafe-undefined) values adjust-body10_0)))" +"(let-values(((lifts_146) lifts13_0))" +"(let-values(((body_147) body14_0))" +"(let-values(((phase_148) phase15_0))" +"(let-values(((adjust-form_149)(if(eq? adjust-form9_0 unsafe-undefined) values adjust-form9_0)))" +"(let-values(((adjust-body_150)(if(eq? adjust-body10_0 unsafe-undefined) values adjust-body10_0)))" "(let-values()" "(datum->syntax$1" " #f" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_102) 'begin)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_148) 'begin)" "(append" "(reverse$1" -"(let-values(((lst_280) lifts_4))" +"(let-values(((lst_151) lifts_146))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_280)))" -"((letrec-values(((for-loop_251)" -"(lambda(fold-var_168 lst_170)" +"(let-values()(check-list lst_151)))" +"((letrec-values(((for-loop_152)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_170)" -"(let-values(((lift_1)(unsafe-car lst_170))" -"((rest_157)(unsafe-cdr lst_170)))" -"(let-values(((fold-var_169)" -"(let-values(((fold-var_182) fold-var_168))" -"(let-values(((fold-var_237)" +"(if(pair? lst_0)" +"(let-values(((lift_155)(unsafe-car lst_0))" +"((rest_156)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_157)" +"(let-values(((fold-var_158) fold-var_0))" +"(let-values(((fold-var_159)" "(let-values()" "(cons" "(let-values()" -"(adjust-form_0" -"(if(lifted-bind? lift_1)" +"(adjust-form_149" +"(if(lifted-bind? lift_155)" "(let-values()" "(datum->syntax$1" " #f" @@ -37897,51 +38072,51 @@ static const char *startup_source = "(datum->syntax$1" "(syntax-shift-phase-level$1" " core-stx" -" phase_102)" +" phase_148)" " 'define-values)" -"(lifted-bind-ids lift_1)" +"(lifted-bind-ids lift_155)" "(lifted-bind-rhs" -" lift_1))))" -"(let-values() lift_1))))" -" fold-var_182))))" -"(values fold-var_237)))))" -"(if(not #f)(for-loop_251 fold-var_169 rest_157) fold-var_169)))" -" fold-var_168)))))" -" for-loop_251)" +" lift_155))))" +"(let-values() lift_155))))" +" fold-var_158))))" +"(values fold-var_159)))))" +"(if(not #f)(for-loop_152 fold-var_157 rest_156) fold-var_157)))" +" fold-var_0)))))" +" for-loop_152)" " null" -" lst_280))))" -"(list(adjust-body_0 body_8))))))))))))))" +" lst_151))))" +"(list(adjust-body_150 body_147))))))))))))))" "(define-values" "(get-lifts-as-lists)" -"(lambda(lifts_5)" +"(lambda(lifts_0)" "(begin" "(reverse$1" -"(let-values(((lst_50) lifts_5))" +"(let-values(((lst_187) lifts_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_50)))" -"((letrec-values(((for-loop_73)" -"(lambda(fold-var_35 lst_51)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_187)))" +"((letrec-values(((for-loop_188)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_51)" -"(let-values(((lift_2)(unsafe-car lst_51))((rest_22)(unsafe-cdr lst_51)))" -"(let-values(((fold-var_36)" -"(let-values(((fold-var_37) fold-var_35))" -"(let-values(((fold-var_38)" +"(if(pair? lst_0)" +"(let-values(((lift_191)(unsafe-car lst_0))((rest_192)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_193)" +"(let-values(((fold-var_194) fold-var_0))" +"(let-values(((fold-var_195)" "(let-values()" "(cons" "(let-values()" "(list" -"(lifted-bind-ids lift_2)" -"(lifted-bind-keys lift_2)" -"(lifted-bind-rhs lift_2)))" -" fold-var_37))))" -"(values fold-var_38)))))" -"(if(not #f)(for-loop_73 fold-var_36 rest_22) fold-var_36)))" -" fold-var_35)))))" -" for-loop_73)" +"(lifted-bind-ids lift_191)" +"(lifted-bind-keys lift_191)" +"(lifted-bind-rhs lift_191)))" +" fold-var_194))))" +"(values fold-var_195)))))" +"(if(not #f)(for-loop_188 fold-var_193 rest_192) fold-var_193)))" +" fold-var_0)))))" +" for-loop_188)" " null" -" lst_50)))))))" +" lst_187)))))))" "(define-values" "(struct:module-lift-context" " module-lift-context19.1" @@ -37949,7 +38124,7 @@ static const char *startup_source = " module-lift-context-wrt-phase" " module-lift-context-lifts" " module-lift-context-module*-ok?)" -"(let-values(((struct:_69 make-_69 ?_69 -ref_69 -set!_69)" +"(let-values(((struct:_196 make-_197 ?_198 -ref_199 -set!_200)" "(let-values()" "(let-values()" "(make-struct-type" @@ -37965,48 +38140,48 @@ static const char *startup_source = " #f" " 'module-lift-context)))))" "(values" -" struct:_69" -" make-_69" -" ?_69" -"(make-struct-field-accessor -ref_69 0 'wrt-phase)" -"(make-struct-field-accessor -ref_69 1 'lifts)" -"(make-struct-field-accessor -ref_69 2 'module*-ok?))))" +" struct:_196" +" make-_197" +" ?_198" +"(make-struct-field-accessor -ref_199 0 'wrt-phase)" +"(make-struct-field-accessor -ref_199 1 'lifts)" +"(make-struct-field-accessor -ref_199 2 'module*-ok?))))" "(define-values" "(make-module-lift-context)" -"(lambda(phase_10 module*-ok?_1)(begin(module-lift-context19.1 phase_10(box null) module*-ok?_1))))" +"(lambda(phase_0 module*-ok?_0)(begin(module-lift-context19.1 phase_0(box null) module*-ok?_0))))" "(define-values" "(get-and-clear-module-lifts!)" -"(lambda(module-lifts_1)(begin(box-clear!(module-lift-context-lifts module-lifts_1)))))" +"(lambda(module-lifts_0)(begin(box-clear!(module-lift-context-lifts module-lifts_0)))))" "(define-values" "(add-lifted-module!)" -"(lambda(module-lifts_2 s_409 phase_103)" +"(lambda(module-lifts_0 s_0 phase_0)" "(begin" "(begin" -"(if(let-values(((or-part_171)" -"(if(module-lift-context? module-lifts_2)" -"(module-lift-context-module*-ok? module-lifts_2)" +"(if(let-values(((or-part_232)" +"(if(module-lift-context? module-lifts_0)" +"(module-lift-context-module*-ok? module-lifts_0)" " #f)))" -"(if or-part_171" -" or-part_171" -"(if(lift-context? module-lifts_2)(lift-context-module*-ok? module-lifts_2) #f)))" +"(if or-part_232" +" or-part_232" +"(if(lift-context? module-lifts_0)(lift-context-module*-ok? module-lifts_0) #f)))" "(void)" "(let-values()" -"(let-values(((tmp_30)(core-form-sym s_409 phase_103)))" -"(if(equal? tmp_30 'module)" +"(let-values(((tmp_233)(core-form-sym s_0 phase_0)))" +"(if(equal? tmp_233 'module)" "(let-values()(void))" -"(if(equal? tmp_30 'module*)" +"(if(equal? tmp_233 'module*)" "(let-values()" "(raise-arguments-error" " 'syntax-local-lift-module" " \"cannot lift `module*' to a top-level context\"" " \"syntax\"" -" s_409))" +" s_0))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_409)))))))" -"(if(module-lift-context? module-lifts_2)" -"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_409))" -"(if(lift-context? module-lifts_2)" -"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_409))" +" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_0)))))))" +"(if(module-lift-context? module-lifts_0)" +"(let-values()(box-cons!(module-lift-context-lifts module-lifts_0) s_0))" +"(if(lift-context? module-lifts_0)" +"(let-values()(box-cons!(lift-context-lifts module-lifts_0) s_0))" " (let-values () (error \"internal error: unrecognized lift-context type for module lift\"))))))))" "(define-values" "(struct:require-lift-context" @@ -38015,7 +38190,7 @@ static const char *startup_source = " require-lift-context-do-require" " require-lift-context-wrt-phase" " require-lift-context-requires)" -"(let-values(((struct:_70 make-_70 ?_70 -ref_70 -set!_70)" +"(let-values(((struct:_234 make-_235 ?_236 -ref_237 -set!_238)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38031,25 +38206,25 @@ static const char *startup_source = " #f" " 'require-lift-context)))))" "(values" -" struct:_70" -" make-_70" -" ?_70" -"(make-struct-field-accessor -ref_70 0 'do-require)" -"(make-struct-field-accessor -ref_70 1 'wrt-phase)" -"(make-struct-field-accessor -ref_70 2 'requires))))" +" struct:_234" +" make-_235" +" ?_236" +"(make-struct-field-accessor -ref_237 0 'do-require)" +"(make-struct-field-accessor -ref_237 1 'wrt-phase)" +"(make-struct-field-accessor -ref_237 2 'requires))))" "(define-values" "(make-require-lift-context)" "(lambda(wrt-phase_0 do-require_0)(begin(require-lift-context20.1 do-require_0 wrt-phase_0(box null)))))" "(define-values" "(get-and-clear-require-lifts!)" -"(lambda(require-lifts_1)(begin(box-clear!(require-lift-context-requires require-lifts_1)))))" +"(lambda(require-lifts_0)(begin(box-clear!(require-lift-context-requires require-lifts_0)))))" "(define-values" "(add-lifted-require!)" -"(lambda(require-lifts_2 s_410 phase_104)" +"(lambda(require-lifts_0 s_0 phase_0)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_410 phase_104)" -"(box-cons!(require-lift-context-requires require-lifts_2) s_410)))))" +"((require-lift-context-do-require require-lifts_0) s_0 phase_0)" +"(box-cons!(require-lift-context-requires require-lifts_0) s_0)))))" "(define-values" "(struct:to-module-lift-context" " to-module-lift-context21.1" @@ -38058,7 +38233,7 @@ static const char *startup_source = " to-module-lift-context-provides" " to-module-lift-context-end-as-expressions?" " to-module-lift-context-ends)" -"(let-values(((struct:_71 make-_71 ?_71 -ref_71 -set!_71)" +"(let-values(((struct:_270 make-_271 ?_272 -ref_273 -set!_274)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38074,39 +38249,38 @@ static const char *startup_source = " #f" " 'to-module-lift-context)))))" "(values" -" struct:_71" -" make-_71" -" ?_71" -"(make-struct-field-accessor -ref_71 0 'wrt-phase)" -"(make-struct-field-accessor -ref_71 1 'provides)" -"(make-struct-field-accessor -ref_71 2 'end-as-expressions?)" -"(make-struct-field-accessor -ref_71 3 'ends))))" +" struct:_270" +" make-_271" +" ?_272" +"(make-struct-field-accessor -ref_273 0 'wrt-phase)" +"(make-struct-field-accessor -ref_273 1 'provides)" +"(make-struct-field-accessor -ref_273 2 'end-as-expressions?)" +"(make-struct-field-accessor -ref_273 3 'ends))))" "(define-values" "(make-to-module-lift-context27.1)" -"(lambda(end-as-expressions?23_0 shared-module-ends22_0 phase26_2)" +"(lambda(end-as-expressions?23_0 shared-module-ends22_0 phase26_0)" "(begin" " 'make-to-module-lift-context27" -"(let-values(((phase_83) phase26_2))" -"(let-values(((ends_0) shared-module-ends22_0))" -"(let-values(((end-as-expressions?_0) end-as-expressions?23_0))" -"(let-values()(to-module-lift-context21.1 phase_83(box null) end-as-expressions?_0 ends_0))))))))" +"(let-values(((phase_312) phase26_0))" +"(let-values(((ends_313) shared-module-ends22_0))" +"(let-values(((end-as-expressions?_314) end-as-expressions?23_0))" +"(let-values()(to-module-lift-context21.1 phase_312(box null) end-as-expressions?_314 ends_313))))))))" "(define-values(make-shared-module-ends)(lambda()(begin(box null))))" "(define-values" "(get-and-clear-end-lifts!)" -"(lambda(to-module-lifts_1)(begin(box-clear!(to-module-lift-context-ends to-module-lifts_1)))))" +"(lambda(to-module-lifts_0)(begin(box-clear!(to-module-lift-context-ends to-module-lifts_0)))))" "(define-values" "(get-and-clear-provide-lifts!)" -"(lambda(to-module-lifts_2)(begin(box-clear!(to-module-lift-context-provides to-module-lifts_2)))))" +"(lambda(to-module-lifts_0)(begin(box-clear!(to-module-lift-context-provides to-module-lifts_0)))))" "(define-values" "(add-lifted-to-module-provide!)" -"(lambda(to-module-lifts_3 s_218 phase_97)" -"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_218))))" +"(lambda(to-module-lifts_0 s_0 phase_0)(begin(box-cons!(to-module-lift-context-provides to-module-lifts_0) s_0))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_325 phase_3)(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_325))))" +"(lambda(to-module-lifts_0 s_0 phase_0)(begin(box-cons!(to-module-lift-context-ends to-module-lifts_0) s_0))))" "(define-values" "(struct:already-expanded already-expanded1.1 already-expanded? already-expanded-s already-expanded-binding-layer)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38122,17 +38296,17 @@ static const char *startup_source = " #f" " 'already-expanded)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 's)" -"(make-struct-field-accessor -ref_0 1 'binding-layer))))" +" struct:_1" +" make-_2" +" ?_3" +"(make-struct-field-accessor -ref_4 0 's)" +"(make-struct-field-accessor -ref_4 1 'binding-layer))))" "(define-values" "(1/prop:liberal-define-context has-liberal-define-context-property? liberal-define-context-value)" "(make-struct-type-property 'liberal-define-context))" "(define-values" "(struct:liberal-define-context make-liberal-define-context 1/liberal-define-context?)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38147,75 +38321,73 @@ static const char *startup_source = " '()" " #f" " 'make-liberal-define-context)))))" -"(values struct:_0 make-_0 ?_0)))" +"(values struct:_1 make-_2 ?_3)))" "(define-values" "(1/prop:expansion-contexts expansion-contexts? expansion-contexts-ref)" "(make-struct-type-property" " 'expansion-contexts" -"(lambda(v_29 info_0)" +"(lambda(v_0 info_0)" "(begin" -"(if(if(list? v_29)" -"(let-values(((lst_79) v_29))" +"(if(if(list? v_0)" +"(let-values(((lst_3) v_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_79)))" -"((letrec-values(((for-loop_101)" -"(lambda(result_78 lst_80)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_3)))" +"((letrec-values(((for-loop_4)" +"(lambda(result_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((s_2)(unsafe-car lst_80))((rest_37)(unsafe-cdr lst_80)))" -"(let-values(((result_65)" +"(if(pair? lst_0)" +"(let-values(((s_7)(unsafe-car lst_0))((rest_8)(unsafe-cdr lst_0)))" +"(let-values(((result_9)" "(let-values()" -"(let-values(((result_116)" +"(let-values(((result_11)" "(let-values()" "(let-values()" "(memq" -" s_2" +" s_7" " '(expression" " top-level" " module" " module-begin" " definition-context))))))" -"(values result_116)))))" -"(if(if(not((lambda x_74(not result_65)) s_2))(not #f) #f)" -"(for-loop_101 result_65 rest_37)" -" result_65)))" -" result_78)))))" -" for-loop_101)" +"(values result_11)))))" +"(if(if(not((lambda x_0(not result_9)) s_7))(not #f) #f)" +"(for-loop_4 result_9 rest_8)" +" result_9)))" +" result_0)))))" +" for-loop_4)" " #t" -" lst_79)))" +" lst_3)))" " #f)" "(void)" "(let-values()" "(raise-argument-error" " 'guard-for-prop:expansion-contexts" " \"(listof (or/c 'expression 'top-level 'module 'module-begin 'definition-context))\"" -" v_29)))" -" v_29))))" +" v_0)))" +" v_0))))" "(define-values" "(not-in-this-expand-context?)" -"(lambda(t_45 ctx_12)" +"(lambda(t_0 ctx_0)" "(begin" -"(if(expansion-contexts? t_45)" -"(not(memq(context->symbol(expand-context-context ctx_12))(expansion-contexts-ref t_45)))" +"(if(expansion-contexts? t_0)" +"(not(memq(context->symbol(expand-context-context ctx_0))(expansion-contexts-ref t_0)))" " #f))))" -"(define-values(context->symbol)(lambda(context_5)(begin(if(symbol? context_5) context_5 'definition-context))))" +"(define-values(context->symbol)(lambda(context_0)(begin(if(symbol? context_0) context_0 'definition-context))))" "(define-values" "(avoid-current-expand-context)" -"(lambda(s_178 t_46 ctx_13)" +"(lambda(s_0 t_0 ctx_0)" "(begin" -"(let-values(((wrap_1)" -"(lambda(sym_68)" +"(let-values(((wrap_19)" +"(lambda(sym_0)" "(begin" " 'wrap" "(datum->syntax$1" " #f" "(list" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_68)(expand-context-phase ctx_13))" -" s_178))))))" -"(let-values(((fail_0)" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_0)(expand-context-phase ctx_0))" +" s_0))))))" +"(let-values(((fail_20)" "(lambda()" "(begin" " 'fail" @@ -38223,14 +38395,14 @@ static const char *startup_source = " #f" "(format" " \"not allowed in context\\n expansion context: ~a\"" -"(context->symbol(expand-context-context ctx_13)))" -" s_178)))))" -"(let-values(((tmp_31)(context->symbol(expand-context-context ctx_13))))" -"(if(equal? tmp_31 'module-begin)" -"(let-values()(wrap_1 'begin))" -"(if(if(equal? tmp_31 'module) #t(if(equal? tmp_31 'top-level) #t(equal? tmp_31 'definition-context)))" -"(let-values()(if(memq 'expression(expansion-contexts-ref t_46))(wrap_1 '#%expression)(fail_0)))" -"(let-values()(fail_0))))))))))" +"(context->symbol(expand-context-context ctx_0)))" +" s_0)))))" +"(let-values(((tmp_22)(context->symbol(expand-context-context ctx_0))))" +"(if(equal? tmp_22 'module-begin)" +"(let-values()(wrap_19 'begin))" +"(if(if(equal? tmp_22 'module) #t(if(equal? tmp_22 'top-level) #t(equal? tmp_22 'definition-context)))" +"(let-values()(if(memq 'expression(expansion-contexts-ref t_0))(wrap_19 '#%expression)(fail_20)))" +"(let-values()(fail_20))))))))))" "(define-values" "(struct:reference-record" " reference-record1.1" @@ -38241,7 +38413,7 @@ static const char *startup_source = " set-reference-record-already-bound!" " set-reference-record-reference-before-bound!" " set-reference-record-all-referenced?!)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38257,127 +38429,128 @@ static const char *startup_source = " #f" " 'reference-record)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 'already-bound)" -"(make-struct-field-accessor -ref_0 1 'reference-before-bound)" -"(make-struct-field-accessor -ref_0 2 'all-referenced?)" -"(make-struct-field-mutator -set!_0 0 'already-bound)" -"(make-struct-field-mutator -set!_0 1 'reference-before-bound)" -"(make-struct-field-mutator -set!_0 2 'all-referenced?))))" +" struct:_1" +" make-_2" +" ?_3" +"(make-struct-field-accessor -ref_4 0 'already-bound)" +"(make-struct-field-accessor -ref_4 1 'reference-before-bound)" +"(make-struct-field-accessor -ref_4 2 'all-referenced?)" +"(make-struct-field-mutator -set!_5 0 'already-bound)" +"(make-struct-field-mutator -set!_5 1 'reference-before-bound)" +"(make-struct-field-mutator -set!_5 2 'all-referenced?))))" "(define-values(make-reference-record)(lambda()(begin(reference-record1.1(seteq)(seteq) #f))))" "(define-values" "(reference-record-used!)" -"(lambda(rr_0 key_70)" +"(lambda(rr_0 key_0)" "(begin" -"(if(set-member?(reference-record-already-bound rr_0) key_70)" +"(if(set-member?(reference-record-already-bound rr_0) key_0)" "(void)" "(let-values()" "(set-reference-record-reference-before-bound!" " rr_0" -"(set-add(reference-record-reference-before-bound rr_0) key_70)))))))" +"(set-add(reference-record-reference-before-bound rr_0) key_0)))))))" "(define-values" "(reference-records-all-used!)" "(lambda(rrs_0)" "(begin" "(begin" -"(let-values(((lst_41) rrs_0))" +"(let-values(((lst_34) rrs_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_41)))" -"((letrec-values(((for-loop_252)" -"(lambda(lst_89)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_34)))" +"((letrec-values(((for-loop_35)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_89)" -"(let-values(((rr_1)(unsafe-car lst_89))((rest_120)(unsafe-cdr lst_89)))" -"(let-values(((post-guard-var_0)(lambda()(begin 'post-guard-var #t))))" +"(if(pair? lst_0)" +"(let-values(((rr_37)(unsafe-car lst_0))((rest_38)(unsafe-cdr lst_0)))" +"(let-values(((post-guard-var_39)(lambda()(begin 'post-guard-var #t))))" "(let-values()" -"(if(reference-record-all-referenced? rr_1)" +"(if(reference-record-all-referenced? rr_37)" "(values)" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(set-reference-record-all-referenced?! rr_1 #t))" +"(set-reference-record-all-referenced?! rr_37 #t))" "(values)))))" -"(if(post-guard-var_0)(for-loop_252 rest_120)(values))))))))" +"(if(post-guard-var_39)(for-loop_35 rest_38)(values))))))))" "(values))))))" -" for-loop_252)" -" lst_41)))" +" for-loop_35)" +" lst_34)))" "(void)))))" "(define-values" "(reference-record-bound!)" -"(lambda(rr_2 keys_3)" +"(lambda(rr_0 keys_0)" "(begin" "(begin" "(set-reference-record-already-bound!" -" rr_2" -"(let-values(((lst_23) keys_3))" +" rr_0" +"(let-values(((lst_42) keys_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_23)))" -"((letrec-values(((for-loop_192)" -"(lambda(ab_3 lst_75)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" +"((letrec-values(((for-loop_43)" +"(lambda(ab_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_75)" -"(let-values(((key_78)(unsafe-car lst_75))((rest_85)(unsafe-cdr lst_75)))" -"(let-values(((ab_4)" -"(let-values(((ab_5) ab_3))" -"(let-values(((ab_6)(let-values()(set-add ab_5 key_78))))" -"(values ab_6)))))" -"(if(not #f)(for-loop_192 ab_4 rest_85) ab_4)))" -" ab_3)))))" -" for-loop_192)" -"(reference-record-already-bound rr_2)" -" lst_23))))" +"(if(pair? lst_0)" +"(let-values(((key_46)(unsafe-car lst_0))((rest_47)(unsafe-cdr lst_0)))" +"(let-values(((ab_48)" +"(let-values(((ab_49) ab_0))" +"(let-values(((ab_50)(let-values()(set-add ab_49 key_46))))" +"(values ab_50)))))" +"(if(not #f)(for-loop_43 ab_48 rest_47) ab_48)))" +" ab_0)))))" +" for-loop_43)" +"(reference-record-already-bound rr_0)" +" lst_42))))" "(set-reference-record-reference-before-bound!" -" rr_2" -"(let-values(((lst_58) keys_3))" +" rr_0" +"(let-values(((lst_51) keys_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_58)))" -"((letrec-values(((for-loop_85)" -"(lambda(rbb_0 lst_24)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_51)))" +"((letrec-values(((for-loop_52)" +"(lambda(rbb_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_24)" -"(let-values(((key_79)(unsafe-car lst_24))((rest_26)(unsafe-cdr lst_24)))" -"(let-values(((rbb_1)" -"(let-values(((rbb_2) rbb_0))" -"(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_79))))" -"(values rbb_3)))))" -"(if(not #f)(for-loop_85 rbb_1 rest_26) rbb_1)))" +"(if(pair? lst_0)" +"(let-values(((key_55)(unsafe-car lst_0))((rest_56)(unsafe-cdr lst_0)))" +"(let-values(((rbb_57)" +"(let-values(((rbb_58) rbb_0))" +"(let-values(((rbb_59)" +"(let-values()(set-remove rbb_58 key_55))))" +"(values rbb_59)))))" +"(if(not #f)(for-loop_52 rbb_57 rest_56) rbb_57)))" " rbb_0)))))" -" for-loop_85)" -"(reference-record-reference-before-bound rr_2)" -" lst_58))))))))" +" for-loop_52)" +"(reference-record-reference-before-bound rr_0)" +" lst_51))))))))" "(define-values" "(reference-record-forward-references?)" -"(lambda(rr_3)" +"(lambda(rr_0)" "(begin" -"(let-values(((or-part_21)(reference-record-all-referenced? rr_3)))" -"(if or-part_21 or-part_21(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" +"(let-values(((or-part_61)(reference-record-all-referenced? rr_0)))" +"(if or-part_61 or-part_61(positive?(set-count(reference-record-reference-before-bound rr_0))))))))" "(define-values" "(reference-record-clear!)" -"(lambda(rr_4)" +"(lambda(rr_0)" "(begin" -"(begin(set-reference-record-already-bound! rr_4 #f)(set-reference-record-reference-before-bound! rr_4 #f)))))" +"(begin(set-reference-record-already-bound! rr_0 #f)(set-reference-record-reference-before-bound! rr_0 #f)))))" "(define-values" "(call-expand-observe)" -"(lambda(obs_0 key_80 . args_5)" +"(lambda(obs_0 key_0 . args_0)" "(begin" "(begin" -"(let-values(((c1_27)(hash-ref key->arity key_80 #f)))" -"(if c1_27" -"((lambda(arity_2)" -"(if(let-values(((or-part_130)(eq? arity_2 'any)))" -"(if or-part_130 or-part_130(eqv?(length args_5) arity_2)))" +"(let-values(((c1_104)(hash-ref key->arity key_0 #f)))" +"(if c1_104" +"((lambda(arity_0)" +"(if(let-values(((or-part_106)(eq? arity_0 'any)))" +"(if or-part_106 or-part_106(eqv?(length args_0) arity_0)))" "(void)" -" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_80 args_5))))" -" c1_27)" -" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_80))))" -"(obs_0 key_80(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" +" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_0 args_0))))" +" c1_104)" +" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_0))))" +"(obs_0 key_0(if(null? args_0)(let-values() #f)(let-values()(apply list* args_0))))))))" "(define-values" "(key->arity)" " '#hash((block->letrec . 1)" @@ -38465,16 +38638,16 @@ static const char *startup_source = "(lambda(track?1_0 orig-s3_0 new4_0)" "(begin" " 'rebuild5" -"(let-values(((orig-s_30) orig-s3_0))" -"(let-values(((new_2) new4_0))" -"(let-values(((track?_0) track?1_0))" +"(let-values(((orig-s_4) orig-s3_0))" +"(let-values(((new_5) new4_0))" +"(let-values(((track?_6) track?1_0))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 orig-s_30) new_2 orig-s_30(if track?_0 orig-s_30 #f))" -" orig-s_30))))))))" +"(datum->syntax$1(syntax-disarm$1 orig-s_4) new_5 orig-s_4(if track?_6 orig-s_4 #f))" +" orig-s_4))))))))" "(define-values" "(struct:expanded+parsed expanded+parsed1.1 expanded+parsed? expanded+parsed-s expanded+parsed-parsed)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38490,11 +38663,11 @@ static const char *startup_source = " #f" " 'expanded+parsed)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 's)" -"(make-struct-field-accessor -ref_0 1 'parsed))))" +" struct:_1" +" make-_2" +" ?_3" +"(make-struct-field-accessor -ref_4 0 's)" +"(make-struct-field-accessor -ref_4 1 'parsed))))" "(define-values" "(struct:semi-parsed-define-values" " semi-parsed-define-values2.1" @@ -38503,7 +38676,7 @@ static const char *startup_source = " semi-parsed-define-values-syms" " semi-parsed-define-values-ids" " semi-parsed-define-values-rhs)" -"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" +"(let-values(((struct:_26 make-_27 ?_28 -ref_29 -set!_30)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38519,20 +38692,20 @@ static const char *startup_source = " #f" " 'semi-parsed-define-values)))))" "(values" -" struct:_61" -" make-_61" -" ?_61" -"(make-struct-field-accessor -ref_61 0 's)" -"(make-struct-field-accessor -ref_61 1 'syms)" -"(make-struct-field-accessor -ref_61 2 'ids)" -"(make-struct-field-accessor -ref_61 3 'rhs))))" +" struct:_26" +" make-_27" +" ?_28" +"(make-struct-field-accessor -ref_29 0 's)" +"(make-struct-field-accessor -ref_29 1 'syms)" +"(make-struct-field-accessor -ref_29 2 'ids)" +"(make-struct-field-accessor -ref_29 3 'rhs))))" "(define-values" "(struct:semi-parsed-begin-for-syntax" " semi-parsed-begin-for-syntax3.1" " semi-parsed-begin-for-syntax?" " semi-parsed-begin-for-syntax-s" " semi-parsed-begin-for-syntax-body)" -"(let-values(((struct:_35 make-_35 ?_35 -ref_35 -set!_35)" +"(let-values(((struct:_61 make-_62 ?_63 -ref_64 -set!_65)" "(let-values()" "(let-values()" "(make-struct-type" @@ -38548,517 +38721,521 @@ static const char *startup_source = " #f" " 'semi-parsed-begin-for-syntax)))))" "(values" -" struct:_35" -" make-_35" -" ?_35" -"(make-struct-field-accessor -ref_35 0 's)" -"(make-struct-field-accessor -ref_35 1 'body))))" -"(define-values(extract-syntax)(lambda(s_191)(begin(if(expanded+parsed? s_191)(expanded+parsed-s s_191) s_191))))" +" struct:_61" +" make-_62" +" ?_63" +"(make-struct-field-accessor -ref_64 0 's)" +"(make-struct-field-accessor -ref_64 1 'body))))" +"(define-values(extract-syntax)(lambda(s_0)(begin(if(expanded+parsed? s_0)(expanded+parsed-s s_0) s_0))))" "(define-values" "(parsed-only)" -"(lambda(l_70)" +"(lambda(l_0)" "(begin" "(reverse$1" -"(let-values(((lst_178) l_70))" +"(let-values(((lst_88) l_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_178)))" -"((letrec-values(((for-loop_249)" -"(lambda(fold-var_5 lst_276)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_88)))" +"((letrec-values(((for-loop_89)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_276)" -"(let-values(((i_45)(unsafe-car lst_276))((rest_152)(unsafe-cdr lst_276)))" -"(let-values(((fold-var_230)" -"(let-values(((fold-var_231) fold-var_5))" -"(if(let-values(((or-part_264)(parsed? i_45)))" -"(if or-part_264" -" or-part_264" -"(let-values(((or-part_36)(expanded+parsed? i_45)))" -"(if or-part_36" -" or-part_36" -"(semi-parsed-begin-for-syntax? i_45)))))" -"(let-values(((fold-var_176) fold-var_231))" -"(let-values(((fold-var_177)" +"(if(pair? lst_0)" +"(let-values(((i_92)(unsafe-car lst_0))((rest_93)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_94)" +"(let-values(((fold-var_95) fold-var_0))" +"(if(let-values(((or-part_96)(parsed? i_92)))" +"(if or-part_96" +" or-part_96" +"(let-values(((or-part_97)(expanded+parsed? i_92)))" +"(if or-part_97" +" or-part_97" +"(semi-parsed-begin-for-syntax? i_92)))))" +"(let-values(((fold-var_98) fold-var_95))" +"(let-values(((fold-var_99)" "(let-values()" "(cons" "(let-values()" -"(if(expanded+parsed? i_45)" +"(if(expanded+parsed? i_92)" "(let-values()" -"(expanded+parsed-parsed i_45))" -"(if(semi-parsed-begin-for-syntax? i_45)" +"(expanded+parsed-parsed i_92))" +"(if(semi-parsed-begin-for-syntax? i_92)" "(let-values()" "(parsed-begin-for-syntax21.1" -"(semi-parsed-begin-for-syntax-s i_45)" +"(semi-parsed-begin-for-syntax-s i_92)" "(parsed-only" "(semi-parsed-begin-for-syntax-body" -" i_45))))" -"(let-values() i_45))))" -" fold-var_176))))" -"(values fold-var_177)))" -" fold-var_231))))" -"(if(not #f)(for-loop_249 fold-var_230 rest_152) fold-var_230)))" -" fold-var_5)))))" -" for-loop_249)" +" i_92))))" +"(let-values() i_92))))" +" fold-var_98))))" +"(values fold-var_99)))" +" fold-var_95))))" +"(if(not #f)(for-loop_89 fold-var_94 rest_93) fold-var_94)))" +" fold-var_0)))))" +" for-loop_89)" " null" -" lst_178)))))))" +" lst_88)))))))" "(define-values" "(syntax-only)" -"(lambda(l_19)" +"(lambda(l_0)" "(begin" "(reverse$1" -"(let-values(((lst_281) l_19))" +"(let-values(((lst_101) l_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_281)))" -"((letrec-values(((for-loop_253)" -"(lambda(fold-var_163 lst_282)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_101)))" +"((letrec-values(((for-loop_102)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_282)" -"(let-values(((i_37)(unsafe-car lst_282))((rest_158)(unsafe-cdr lst_282)))" -"(let-values(((fold-var_86)" -"(let-values(((fold-var_87) fold-var_163))" -"(if(let-values(((or-part_265)(syntax?$1 i_37)))" -"(if or-part_265" -" or-part_265" -"(let-values(((or-part_25)(expanded+parsed? i_37)))" -"(if or-part_25" -" or-part_25" -"(semi-parsed-begin-for-syntax? i_37)))))" -"(let-values(((fold-var_88) fold-var_87))" -"(let-values(((fold-var_238)" +"(if(pair? lst_0)" +"(let-values(((i_105)(unsafe-car lst_0))((rest_106)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_107)" +"(let-values(((fold-var_108) fold-var_0))" +"(if(let-values(((or-part_109)(syntax?$1 i_105)))" +"(if or-part_109" +" or-part_109" +"(let-values(((or-part_110)(expanded+parsed? i_105)))" +"(if or-part_110" +" or-part_110" +"(semi-parsed-begin-for-syntax? i_105)))))" +"(let-values(((fold-var_111) fold-var_108))" +"(let-values(((fold-var_112)" "(let-values()" "(cons" "(let-values()" -"(if(expanded+parsed? i_37)" -"(let-values()(expanded+parsed-s i_37))" -"(if(semi-parsed-begin-for-syntax? i_37)" +"(if(expanded+parsed? i_105)" +"(let-values()(expanded+parsed-s i_105))" +"(if(semi-parsed-begin-for-syntax? i_105)" "(let-values()" -"(let-values(((s_411)" +"(let-values(((s_113)" "(semi-parsed-begin-for-syntax-s" -" i_37)))" -"(let-values(((nested-bodys_0)" +" i_105)))" +"(let-values(((nested-bodys_114)" "(semi-parsed-begin-for-syntax-body" -" i_37)))" -"(let-values(((disarmed-s_0)" +" i_105)))" +"(let-values(((disarmed-s_115)" "(syntax-disarm$1" -" s_411)))" -"(let-values(((ok?_28" -" begin-for-syntax7_0" -" _8_0)" -"(let-values(((s_412)" -" disarmed-s_0))" -"(let-values(((orig-s_31)" -" s_412))" -"(let-values(((begin-for-syntax7_1" -" _8_1)" -"(let-values(((s_86)" +" s_113)))" +"(let-values(((ok?_116" +" begin-for-syntax7_117" +" _8_118)" +"(let-values(((s_132)" +" disarmed-s_115))" +"(let-values(((orig-s_133)" +" s_132))" +"(let-values(((begin-for-syntax7_134" +" _8_135)" +"(let-values(((s_136)" "(if(syntax?$1" -" s_412)" +" s_132)" "(syntax-e$1" -" s_412)" -" s_412)))" +" s_132)" +" s_132)))" "(if(pair?" -" s_86)" -"(let-values(((begin-for-syntax9_0)" -"(let-values(((s_28)" +" s_136)" +"(let-values(((begin-for-syntax9_137)" +"(let-values(((s_139)" "(car" -" s_86)))" -" s_28))" -"((_10_0)" -"(let-values(((s_29)" +" s_136)))" +" s_139))" +"((_10_138)" +"(let-values(((s_140)" "(cdr" -" s_86)))" -"(let-values(((s_30)" +" s_136)))" +"(let-values(((s_141)" "(if(syntax?$1" -" s_29)" +" s_140)" "(syntax-e$1" -" s_29)" -" s_29)))" -"(let-values(((flat-s_20)" +" s_140)" +" s_140)))" +"(let-values(((flat-s_142)" "(to-syntax-list.1" -" s_30)))" +" s_141)))" "(if(not" -" flat-s_20)" +" flat-s_142)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_31))" +" orig-s_133))" "(let-values()" -" flat-s_20)))))))" +" flat-s_142)))))))" "(values" -" begin-for-syntax9_0" -" _10_0))" +" begin-for-syntax9_137" +" _10_138))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_31)))))" +" orig-s_133)))))" "(values" " #t" -" begin-for-syntax7_1" -" _8_1))))))" -"(let-values(((s11_0) s_411)" -"((temp12_2)" +" begin-for-syntax7_134" +" _8_135))))))" +"(let-values(((s11_143) s_113)" +"((temp12_144)" "(list*" -" begin-for-syntax7_0" +" begin-for-syntax7_117" "(syntax-only" -" nested-bodys_0))))" +" nested-bodys_114))))" "(rebuild5.1" " #t" -" s11_0" -" temp12_2)))))))" -"(let-values() i_37))))" -" fold-var_88))))" -"(values fold-var_238)))" -" fold-var_87))))" -"(if(not #f)(for-loop_253 fold-var_86 rest_158) fold-var_86)))" -" fold-var_163)))))" -" for-loop_253)" +" s11_143" +" temp12_144)))))))" +"(let-values() i_105))))" +" fold-var_111))))" +"(values fold-var_112)))" +" fold-var_108))))" +"(if(not #f)(for-loop_102 fold-var_107 rest_106) fold-var_107)))" +" fold-var_0)))))" +" for-loop_102)" " null" -" lst_281)))))))" +" lst_101)))))))" "(define-values" "(expand9.1)" "(lambda(alternate-id1_0 fail-non-transformer3_0 skip-log?2_0 s7_0 ctx8_0)" "(begin" " 'expand9" -"(let-values(((s_188) s7_0))" -"(let-values(((ctx_14) ctx8_0))" -"(let-values(((alternate-id_0) alternate-id1_0))" -"(let-values(((skip-log?_0) skip-log?2_0))" -"(let-values(((fail-non-transformer_0) fail-non-transformer3_0))" +"(let-values(((s_37) s7_0))" +"(let-values(((ctx_38) ctx8_0))" +"(let-values(((alternate-id_39) alternate-id1_0))" +"(let-values(((skip-log?_40) skip-log?2_0))" +"(let-values(((fail-non-transformer_41) fail-non-transformer3_0))" "(let-values()" "(begin" -"(let-values(((obs_1)(expand-context-observer ctx_14)))" -"(if obs_1" +"(let-values(((obs_42)(expand-context-observer ctx_38)))" +"(if obs_42" "(let-values()" -"(if(not skip-log?_0)" +"(if(not skip-log?_40)" "(let-values()" "(call-expand-observe" -" obs_1" -"(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" -" s_188))" +" obs_42" +"(if(expand-context-only-immediate? ctx_38) 'enter-check 'visit)" +" s_37))" "(void)))" "(void)))" -"(if(syntax-identifier? s_188)" -"(let-values()(expand-identifier s_188 ctx_14 alternate-id_0))" -"(if(if(pair?(syntax-content s_188))(syntax-identifier?(car(syntax-content s_188))) #f)" +"(if(syntax-identifier? s_37)" +"(let-values()(expand-identifier s_37 ctx_38 alternate-id_39))" +"(if(if(pair?(syntax-content s_37))(syntax-identifier?(car(syntax-content s_37))) #f)" "(let-values()" -"(let-values(((s122_0) s_188)" -"((ctx123_0) ctx_14)" -"((alternate-id124_0) alternate-id_0)" -"((fail-non-transformer125_0) fail-non-transformer_0))" +"(let-values(((s122_44) s_37)" +"((ctx123_45) ctx_38)" +"((alternate-id124_46) alternate-id_39)" +"((fail-non-transformer125_47) fail-non-transformer_41))" "(expand-id-application-form17.1" -" fail-non-transformer125_0" -" s122_0" -" ctx123_0" -" alternate-id124_0)))" -"(if(let-values(((or-part_67)(pair?(syntax-content s_188))))" -"(if or-part_67 or-part_67(null?(syntax-content s_188))))" -"(let-values()(expand-implicit '#%app s_188 ctx_14 #f))" -"(if(already-expanded?(syntax-content s_188))" -"(let-values()(expand-already-expanded s_188 ctx_14))" -"(let-values()(expand-implicit '#%datum s_188 ctx_14 #f))))))))))))))))" +" fail-non-transformer125_47" +" s122_44" +" ctx123_45" +" alternate-id124_46)))" +"(if(let-values(((or-part_48)(pair?(syntax-content s_37))))" +"(if or-part_48 or-part_48(null?(syntax-content s_37))))" +"(let-values()(expand-implicit '#%app s_37 ctx_38 #f))" +"(if(already-expanded?(syntax-content s_37))" +"(let-values()(expand-already-expanded s_37 ctx_38))" +"(let-values()(expand-implicit '#%datum s_37 ctx_38 #f))))))))))))))))" "(define-values" "(expand-identifier)" -"(lambda(s_413 ctx_15 alternate-id_1)" +"(lambda(s_0 ctx_0 alternate-id_0)" "(begin" -"(let-values(((id_61)(let-values(((or-part_266) alternate-id_1))(if or-part_266 or-part_266 s_413))))" -"(if(if(not(free-id-set-empty?(expand-context-stops ctx_15)))" -"(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_61)" +"(let-values(((id_81)(let-values(((or-part_82) alternate-id_0))(if or-part_82 or-part_82 s_0))))" +"(if(if(not(free-id-set-empty?(expand-context-stops ctx_0)))" +"(free-id-set-member?(expand-context-stops ctx_0)(expand-context-phase ctx_0) id_81)" " #f)" "(let-values()" "(begin" -"(let-values(((obs_2)(expand-context-observer ctx_15)))" -"(if obs_2" +"(let-values(((obs_83)(expand-context-observer ctx_0)))" +"(if obs_83" "(let-values()" -"(if(not(expand-context-only-immediate? ctx_15))" +"(if(not(expand-context-only-immediate? ctx_0))" "(let-values()" "(begin" -"(call-expand-observe obs_2 'resolve id_61)" -"(call-expand-observe obs_2 'enter-prim s_413)" -"(call-expand-observe obs_2 'prim-stop)" -"(call-expand-observe obs_2 'exit-prim s_413)" -"(call-expand-observe obs_2 'return s_413)))" +"(call-expand-observe obs_83 'resolve id_81)" +"(call-expand-observe obs_83 'enter-prim s_0)" +"(call-expand-observe obs_83 'prim-stop)" +"(call-expand-observe obs_83 'exit-prim s_0)" +"(call-expand-observe obs_83 'return s_0)))" "(void)))" "(void)))" -" s_413))" +" s_0))" "(let-values()" -"(let-values(((binding_18)" -"(let-values(((id126_0) id_61)" -"((temp127_1)(expand-context-phase ctx_15))" -"((temp128_1) 'ambiguous)" -"((temp129_0) #t))" -"(resolve+shift28.1 temp128_1 #f null temp129_0 #f id126_0 temp127_1))))" +"(let-values(((binding_84)" +"(let-values(((id126_86) id_81)" +"((temp127_87)(expand-context-phase ctx_0))" +"((temp128_88) 'ambiguous)" +"((temp129_89) #t))" +"(resolve+shift28.1 temp128_88 #f null temp129_89 #f id126_86 temp127_87))))" "(begin" -"(let-values(((obs_3)(expand-context-observer ctx_15)))" -"(if obs_3" +"(let-values(((obs_90)(expand-context-observer ctx_0)))" +"(if obs_90" "(let-values()" -"(if(not(expand-context-only-immediate? ctx_15))" -"(let-values()(call-expand-observe obs_3 'resolve id_61))" +"(if(not(expand-context-only-immediate? ctx_0))" +"(let-values()(call-expand-observe obs_90 'resolve id_81))" "(void)))" "(void)))" -"(if(eq? binding_18 'ambiguous)" -"(let-values()(raise-ambiguous-error id_61 ctx_15))" -"(if(not binding_18)" -"(let-values()(expand-implicit '#%top(substitute-alternate-id s_413 alternate-id_1) ctx_15 s_413))" +"(if(eq? binding_84 'ambiguous)" +"(let-values()(raise-ambiguous-error id_81 ctx_0))" +"(if(not binding_84)" +"(let-values()(expand-implicit '#%top(substitute-alternate-id s_0 alternate-id_0) ctx_0 s_0))" "(let-values()" -"(let-values(((t_47 primitive?_2 insp-of-t_0 protected?_3)" -"(let-values(((binding138_0) binding_18)" -"((ctx139_0) ctx_15)" -"((id140_0) id_61)" -"((temp141_0)(if alternate-id_1 s_413 #f))" -"((temp142_0)(expand-context-in-local-expand? ctx_15)))" -"(lookup62.1 temp141_0 temp142_0 binding138_0 ctx139_0 id140_0))))" -"(let-values(((t130_0) t_47)" -"((insp-of-t131_0) insp-of-t_0)" -"((s132_0) s_413)" -"((id133_0) id_61)" -"((ctx134_0) ctx_15)" -"((binding135_0) binding_18)" -"((primitive?136_0) primitive?_2)" -"((protected?137_0) protected?_3))" +"(let-values(((t_91 primitive?_92 insp-of-t_93 protected?_94)" +"(let-values(((binding138_96) binding_84)" +"((ctx139_97) ctx_0)" +"((id140_98) id_81)" +"((temp141_99)(if alternate-id_0 s_0 #f))" +"((temp142_100)(expand-context-in-local-expand? ctx_0)))" +"(lookup62.1 temp141_99 temp142_100 binding138_96 ctx139_97 id140_98))))" +"(let-values(((t130_101) t_91)" +"((insp-of-t131_102) insp-of-t_93)" +"((s132_103) s_0)" +"((id133_104) id_81)" +"((ctx134_105) ctx_0)" +"((binding135_106) binding_84)" +"((primitive?136_107) primitive?_92)" +"((protected?137_108) protected?_94))" "(dispatch30.1" " #f" -" t130_0" -" insp-of-t131_0" -" s132_0" -" id133_0" -" ctx134_0" -" binding135_0" -" primitive?136_0" -" protected?137_0))))))))))))))" +" t130_101" +" insp-of-t131_102" +" s132_103" +" id133_104" +" ctx134_105" +" binding135_106" +" primitive?136_107" +" protected?137_108))))))))))))))" "(define-values" "(expand-id-application-form17.1)" "(lambda(fail-non-transformer12_0 s14_0 ctx15_0 alternate-id16_0)" "(begin" " 'expand-id-application-form17" -"(let-values(((s_84) s14_0))" -"(let-values(((ctx_16) ctx15_0))" -"(let-values(((alternate-id_2) alternate-id16_0))" -"(let-values(((fail-non-transformer_1) fail-non-transformer12_0))" +"(let-values(((s_121) s14_0))" +"(let-values(((ctx_122) ctx15_0))" +"(let-values(((alternate-id_123) alternate-id16_0))" +"(let-values(((fail-non-transformer_124) fail-non-transformer12_0))" "(let-values()" -"(let-values(((id_62)" -"(let-values(((or-part_141) alternate-id_2))" -"(if or-part_141 or-part_141(car(syntax-e/no-taint s_84))))))" -"(if(if(not(free-id-set-empty?(expand-context-stops ctx_16)))" -"(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_62)" +"(let-values(((id_125)" +"(let-values(((or-part_126) alternate-id_123))" +"(if or-part_126 or-part_126(car(syntax-e/no-taint s_121))))))" +"(if(if(not(free-id-set-empty?(expand-context-stops ctx_122)))" +"(free-id-set-member?(expand-context-stops ctx_122)(expand-context-phase ctx_122) id_125)" " #f)" "(let-values()" "(begin" -"(let-values(((obs_4)(expand-context-observer ctx_16)))" -"(if obs_4" +"(let-values(((obs_127)(expand-context-observer ctx_122)))" +"(if obs_127" "(let-values()" -"(if(not(expand-context-only-immediate? ctx_16))" +"(if(not(expand-context-only-immediate? ctx_122))" "(let-values()" "(begin" -"(call-expand-observe obs_4 'resolve id_62)" -"(call-expand-observe obs_4 'enter-prim s_84)" -"(call-expand-observe obs_4 'prim-stop)" -"(call-expand-observe obs_4 'exit-prim s_84)" -"(call-expand-observe obs_4 'return s_84)))" +"(call-expand-observe obs_127 'resolve id_125)" +"(call-expand-observe obs_127 'enter-prim s_121)" +"(call-expand-observe obs_127 'prim-stop)" +"(call-expand-observe obs_127 'exit-prim s_121)" +"(call-expand-observe obs_127 'return s_121)))" "(void)))" "(void)))" -" s_84))" +" s_121))" "(let-values()" -"(let-values(((binding_19)" -"(let-values(((id143_0) id_62)" -"((temp144_0)(expand-context-phase ctx_16))" -"((temp145_0) 'ambiguous)" -"((temp146_0) #t))" -"(resolve+shift28.1 temp145_0 #f null temp146_0 #f id143_0 temp144_0))))" +"(let-values(((binding_128)" +"(let-values(((id143_130) id_125)" +"((temp144_131)(expand-context-phase ctx_122))" +"((temp145_132) 'ambiguous)" +"((temp146_133) #t))" +"(resolve+shift28.1 temp145_132 #f null temp146_133 #f id143_130 temp144_131))))" "(begin" -"(let-values(((obs_5)(expand-context-observer ctx_16)))" -"(if obs_5" +"(let-values(((obs_134)(expand-context-observer ctx_122)))" +"(if obs_134" "(let-values()" -"(if(not(expand-context-only-immediate? ctx_16))" -"(let-values()(call-expand-observe obs_5 'resolve id_62))" +"(if(not(expand-context-only-immediate? ctx_122))" +"(let-values()(call-expand-observe obs_134 'resolve id_125))" "(void)))" "(void)))" -"(if(eq? binding_19 'ambiguous)" +"(if(eq? binding_128 'ambiguous)" "(let-values()" "(begin" -"(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))" -"(raise-ambiguous-error id_62 ctx_16)))" -"(if(not binding_19)" +"(if fail-non-transformer_124(let-values()(fail-non-transformer_124))(void))" +"(raise-ambiguous-error id_125 ctx_122)))" +"(if(not binding_128)" "(let-values()" "(begin" -"(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))" -"(expand-implicit '#%app(substitute-alternate-id s_84 alternate-id_2) ctx_16 id_62)))" -"(let-values()" -"(let-values(((t_48 primitive?_3 insp-of-t_1 protected?_4)" -"(let-values(((binding147_0) binding_19)" -"((ctx148_0) ctx_16)" -"((id149_0) id_62)" -"((temp150_0)" -"(if alternate-id_2(car(syntax-e/no-taint s_84)) #f))" -"((temp151_0)(expand-context-in-local-expand? ctx_16)))" -"(lookup62.1 temp150_0 temp151_0 binding147_0 ctx148_0 id149_0))))" -"(if(variable? t_48)" -"(let-values()" -"(begin" -"(if fail-non-transformer_1(let-values()(fail-non-transformer_1))(void))" +"(if fail-non-transformer_124(let-values()(fail-non-transformer_124))(void))" "(expand-implicit" " '#%app" -"(substitute-alternate-id s_84 alternate-id_2)" -" ctx_16" -" id_62)))" +"(substitute-alternate-id s_121 alternate-id_123)" +" ctx_122" +" id_125)))" "(let-values()" -"(let-values(((t152_0) t_48)" -"((insp-of-t153_0) insp-of-t_1)" -"((s154_0) s_84)" -"((id155_0) id_62)" -"((ctx156_0) ctx_16)" -"((binding157_0) binding_19)" -"((primitive?158_0) primitive?_3)" -"((protected?159_0) protected?_4)" -"((fail-non-transformer160_0) fail-non-transformer_1))" +"(let-values(((t_135 primitive?_136 insp-of-t_137 protected?_138)" +"(let-values(((binding147_140) binding_128)" +"((ctx148_141) ctx_122)" +"((id149_142) id_125)" +"((temp150_143)" +"(if alternate-id_123(car(syntax-e/no-taint s_121)) #f))" +"((temp151_144)(expand-context-in-local-expand? ctx_122)))" +"(lookup62.1" +" temp150_143" +" temp151_144" +" binding147_140" +" ctx148_141" +" id149_142))))" +"(if(variable? t_135)" +"(let-values()" +"(begin" +"(if fail-non-transformer_124(let-values()(fail-non-transformer_124))(void))" +"(expand-implicit" +" '#%app" +"(substitute-alternate-id s_121 alternate-id_123)" +" ctx_122" +" id_125)))" +"(let-values()" +"(let-values(((t152_146) t_135)" +"((insp-of-t153_147) insp-of-t_137)" +"((s154_148) s_121)" +"((id155_149) id_125)" +"((ctx156_150) ctx_122)" +"((binding157_151) binding_128)" +"((primitive?158_152) primitive?_136)" +"((protected?159_153) protected?_138)" +"((fail-non-transformer160_154) fail-non-transformer_124))" "(dispatch30.1" -" fail-non-transformer160_0" -" t152_0" -" insp-of-t153_0" -" s154_0" -" id155_0" -" ctx156_0" -" binding157_0" -" primitive?158_0" -" protected?159_0)))))))))))))))))))))" +" fail-non-transformer160_154" +" t152_146" +" insp-of-t153_147" +" s154_148" +" id155_149" +" ctx156_150" +" binding157_151" +" primitive?158_152" +" protected?159_153)))))))))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_69 s_52 ctx_17 trigger-id_1)" +"(lambda(sym_0 s_0 ctx_0 trigger-id_0)" "(begin" -"(if(expand-context-only-immediate? ctx_17)" +"(if(expand-context-only-immediate? ctx_0)" "(let-values()" "(begin" -"(let-values(((obs_6)(expand-context-observer ctx_17)))" -"(if obs_6(let-values()(let-values()(call-expand-observe obs_6 'exit-check s_52)))(void)))" -" s_52))" +"(let-values(((obs_173)(expand-context-observer ctx_0)))" +"(if obs_173(let-values()(let-values()(call-expand-observe obs_173 'exit-check s_0)))(void)))" +" s_0))" "(let-values()" -"(let-values(((disarmed-s_1)(syntax-disarm$1 s_52)))" -"(let-values(((id_63)(datum->syntax$1 disarmed-s_1 sym_69)))" -"(if(if(not(free-id-set-empty?(expand-context-stops ctx_17)))" -"(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_63)" +"(let-values(((disarmed-s_174)(syntax-disarm$1 s_0)))" +"(let-values(((id_175)(datum->syntax$1 disarmed-s_174 sym_0)))" +"(if(if(not(free-id-set-empty?(expand-context-stops ctx_0)))" +"(free-id-set-member?(expand-context-stops ctx_0)(expand-context-phase ctx_0) id_175)" " #f)" "(let-values()" "(begin" -"(let-values(((obs_7)(expand-context-observer ctx_17)))" -"(if obs_7" +"(let-values(((obs_176)(expand-context-observer ctx_0)))" +"(if obs_176" "(let-values()" -"(if(not(expand-context-only-immediate? ctx_17))" +"(if(not(expand-context-only-immediate? ctx_0))" "(let-values()" "(begin" -"(call-expand-observe obs_7 'resolve id_63)" -"(call-expand-observe obs_7 'enter-prim s_52)" -"(call-expand-observe obs_7 'prim-stop)" -"(call-expand-observe obs_7 'exit-prim s_52)" -"(call-expand-observe obs_7 'return s_52)))" +"(call-expand-observe obs_176 'resolve id_175)" +"(call-expand-observe obs_176 'enter-prim s_0)" +"(call-expand-observe obs_176 'prim-stop)" +"(call-expand-observe obs_176 'exit-prim s_0)" +"(call-expand-observe obs_176 'return s_0)))" "(void)))" "(void)))" -" s_52))" +" s_0))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_8)(expand-context-observer ctx_17)))" -"(if obs_8" -"(let-values()(let-values()(call-expand-observe obs_8 'resolve id_63)))" +"(let-values(((obs_178)(expand-context-observer ctx_0)))" +"(if obs_178" +"(let-values()(let-values()(call-expand-observe obs_178 'resolve id_175)))" "(void)))" "(values))))" -"(let-values(((b_80)" -"(let-values(((id161_0) id_63)" -"((temp162_1)(expand-context-phase ctx_17))" -"((temp163_2) 'ambiguous)" -"((temp164_0) #t))" -"(resolve+shift28.1 temp163_2 #f null temp164_0 #f id161_0 temp162_1))))" -"(if(eq? b_80 'ambiguous)" -"(let-values()(raise-ambiguous-error id_63 ctx_17))" +"(let-values(((b_177)" +"(let-values(((id161_180) id_175)" +"((temp162_181)(expand-context-phase ctx_0))" +"((temp163_182) 'ambiguous)" +"((temp164_183) #t))" +"(resolve+shift28.1 temp163_182 #f null temp164_183 #f id161_180 temp162_181))))" +"(if(eq? b_177 'ambiguous)" +"(let-values()(raise-ambiguous-error id_175 ctx_0))" "(let-values()" -"(let-values(((t_49 primitive?_4 insp-of-t_2 protected?_5)" -"(if b_80" -"(let-values(((b165_0) b_80)((ctx166_0) ctx_17)((id167_0) id_63))" -"(lookup62.1 #f #f b165_0 ctx166_0 id167_0))" +"(let-values(((t_184 primitive?_185 insp-of-t_186 protected?_187)" +"(if b_177" +"(let-values(((b165_188) b_177)((ctx166_189) ctx_0)((id167_190) id_175))" +"(lookup62.1 #f #f b165_188 ctx166_189 id167_190))" "(values #f #f #f #f))))" -"(if(transformer? t_49)" +"(if(transformer? t_184)" "(let-values()" -"(let-values(((fail-non-transformer_2)" -"(if(1/rename-transformer? t_49)" +"(let-values(((fail-non-transformer_191)" +"(if(1/rename-transformer? t_184)" "(lambda()" "(begin" " 'fail-non-transformer" -"(raise-syntax-implicit-error s_52 sym_69 trigger-id_1 ctx_17)))" +"(raise-syntax-implicit-error s_0 sym_0 trigger-id_0 ctx_0)))" " #f)))" -"(let-values(((t168_0) t_49)" -"((insp-of-t169_0) insp-of-t_2)" -"((temp170_1)(make-explicit ctx_17 sym_69 s_52 disarmed-s_1))" -"((id171_1) id_63)" -"((ctx172_0) ctx_17)" -"((b173_0) b_80)" -"((fail-non-transformer174_0) fail-non-transformer_2))" +"(let-values(((t168_193) t_184)" +"((insp-of-t169_194) insp-of-t_186)" +"((temp170_195)(make-explicit ctx_0 sym_0 s_0 disarmed-s_174))" +"((id171_196) id_175)" +"((ctx172_197) ctx_0)" +"((b173_198) b_177)" +"((fail-non-transformer174_199) fail-non-transformer_191))" "(dispatch-transformer41.1" -" fail-non-transformer174_0" -" t168_0" -" insp-of-t169_0" -" temp170_1" -" id171_1" -" ctx172_0" -" b173_0))))" -"(if(core-form? t_49)" +" fail-non-transformer174_199" +" t168_193" +" insp-of-t169_194" +" temp170_195" +" id171_196" +" ctx172_197" +" b173_198))))" +"(if(core-form? t_184)" "(let-values()" -"(if(if(eq? sym_69 '#%top)" -"(if(eq?(core-form-name t_49) '#%top)" -"(expand-context-in-local-expand? ctx_17)" +"(if(if(eq? sym_0 '#%top)" +"(if(eq?(core-form-name t_184) '#%top)" +"(expand-context-in-local-expand? ctx_0)" " #f)" " #f)" -"(let-values()(dispatch-implicit-#%top-core-form t_49 s_52 ctx_17))" +"(let-values()(dispatch-implicit-#%top-core-form t_184 s_0 ctx_0))" "(let-values()" -"(dispatch-core-form" -" t_49" -"(make-explicit ctx_17 sym_69 s_52 disarmed-s_1)" -" ctx_17))))" +"(dispatch-core-form t_184(make-explicit ctx_0 sym_0 s_0 disarmed-s_174) ctx_0))))" "(let-values()" -"(let-values(((tl-id_0)" -"(if(eq? sym_69 '#%top)" -"(if(root-expand-context-top-level-bind-scope ctx_17)" -"(add-scope s_52(root-expand-context-top-level-bind-scope ctx_17))" +"(let-values(((tl-id_200)" +"(if(eq? sym_0 '#%top)" +"(if(root-expand-context-top-level-bind-scope ctx_0)" +"(add-scope s_0(root-expand-context-top-level-bind-scope ctx_0))" " #f)" " #f)))" -"(let-values(((tl-b_0)" -"(if tl-id_0" -"(let-values(((tl-id175_0) tl-id_0)" -"((temp176_0)(expand-context-phase ctx_17)))" -"(resolve40.1 #f #f null #f tl-id175_0 temp176_0))" +"(let-values(((tl-b_201)" +"(if tl-id_200" +"(let-values(((tl-id175_202) tl-id_200)" +"((temp176_203)(expand-context-phase ctx_0)))" +"(resolve40.1 #f #f null #f tl-id175_202 temp176_203))" " #f)))" -"(if tl-b_0" +"(if tl-b_201" "(let-values()" -"(if(if(expand-context-to-parsed? ctx_17)" -"(free-id-set-empty?(expand-context-stops ctx_17))" +"(if(if(expand-context-to-parsed? ctx_0)" +"(free-id-set-empty?(expand-context-stops ctx_0))" " #f)" -"(parsed-id2.1 tl-id_0 tl-b_0 #f)" -" tl-id_0))" +"(parsed-id2.1 tl-id_200 tl-b_201 #f)" +" tl-id_200))" "(let-values()" "(raise-syntax-implicit-error" -" s_52" -" sym_69" -" trigger-id_1" -" ctx_17))))))))))))))))))))))" +" s_0" +" sym_0" +" trigger-id_0" +" ctx_0))))))))))))))))))))))" "(define-values" "(expand-already-expanded)" -"(lambda(s_59 ctx_18)" +"(lambda(s_0 ctx_0)" "(begin" -"(let-values(((ae_0)(syntax-e$1 s_59)))" -"(let-values(((exp-s_0)(already-expanded-s ae_0)))" +"(let-values(((ae_206)(syntax-e$1 s_0)))" +"(let-values(((exp-s_207)(already-expanded-s ae_206)))" "(begin" -"(if(let-values(((or-part_267)(syntax-any-macro-scopes? s_59)))" -"(if or-part_267" -" or-part_267" -"(let-values(((or-part_215)" +"(if(let-values(((or-part_208)(syntax-any-macro-scopes? s_0)))" +"(if or-part_208" +" or-part_208" +"(let-values(((or-part_209)" "(not" -"(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))" -"(if or-part_215" -" or-part_215" -"(if(parsed? exp-s_0)" +"(eq?(expand-context-binding-layer ctx_0)(already-expanded-binding-layer ae_206)))))" +"(if or-part_209" +" or-part_209" +"(if(parsed? exp-s_207)" "(not" -"(if(expand-context-to-parsed? ctx_18)" -"(free-id-set-empty?(expand-context-stops ctx_18))" -" #f))" +"(if(expand-context-to-parsed? ctx_0)(free-id-set-empty?(expand-context-stops ctx_0)) #f))" " #f)))))" "(let-values()" "(raise-syntax-error$1" @@ -39066,883 +39243,900 @@ static const char *startup_source = "(string-append" " \"expanded syntax not in its original lexical context;\\n\"" " \" extra bindings or scopes in the current context\")" -"(if(not(parsed? exp-s_0)) exp-s_0 #f)))" +"(if(not(parsed? exp-s_207)) exp-s_207 #f)))" "(void))" -"(if(expand-context-only-immediate? ctx_18)" -"(let-values() s_59)" -"(if(parsed? exp-s_0)" -"(let-values() exp-s_0)" +"(if(expand-context-only-immediate? ctx_0)" +"(let-values() s_0)" +"(if(parsed? exp-s_207)" +"(let-values() exp-s_207)" "(let-values()" -"(let-values(((result-s_1)(syntax-track-origin$1 exp-s_0 s_59)))" +"(let-values(((result-s_210)(syntax-track-origin$1 exp-s_207 s_0)))" "(begin" -"(let-values(((obs_9)(expand-context-observer ctx_18)))" -"(if obs_9" -"(let-values()(let-values()(call-expand-observe obs_9 'opaque-expr result-s_1)))" +"(let-values(((obs_211)(expand-context-observer ctx_0)))" +"(if obs_211" +"(let-values()(let-values()(call-expand-observe obs_211 'opaque-expr result-s_210)))" "(void)))" -"(if(if(expand-context-to-parsed? ctx_18)(free-id-set-empty?(expand-context-stops ctx_18)) #f)" -"(let-values(((result-s177_0) result-s_1)((ctx178_0) ctx_18))" -"(expand9.1 #f #f #f result-s177_0 ctx178_0))" -" result-s_1))))))))))))" +"(if(if(expand-context-to-parsed? ctx_0)(free-id-set-empty?(expand-context-stops ctx_0)) #f)" +"(let-values(((result-s177_212) result-s_210)((ctx178_213) ctx_0))" +"(expand9.1 #f #f #f result-s177_212 ctx178_213))" +" result-s_210))))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_70 s_414 disarmed-s_2)" +"(lambda(ctx_0 sym_0 s_0 disarmed-s_0)" "(begin" -"(let-values(((new-s_0)" -"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_70 disarmed-s_2) s_414 s_414) s_414)))" +"(let-values(((new-s_218)(syntax-rearm$1(datum->syntax$1 disarmed-s_0(cons sym_0 disarmed-s_0) s_0 s_0) s_0)))" "(begin" -"(let-values(((obs_10)(expand-context-observer ctx_19)))" -"(if obs_10(let-values()(let-values()(call-expand-observe obs_10 'tag new-s_0)))(void)))" -" new-s_0)))))" +"(let-values(((obs_219)(expand-context-observer ctx_0)))" +"(if obs_219(let-values()(let-values()(call-expand-observe obs_219 'tag new-s_218)))(void)))" +" new-s_218)))))" "(define-values" "(dispatch30.1)" -"(lambda(fail-non-transformer20_0 t22_0 insp-of-t23_0 s24_1 id25_1 ctx26_0 binding27_1 primitive?28_0 protected?29_0)" +"(lambda(fail-non-transformer20_0 t22_0 insp-of-t23_0 s24_0 id25_0 ctx26_0 binding27_0 primitive?28_0 protected?29_0)" "(begin" " 'dispatch30" -"(let-values(((t_50) t22_0))" -"(let-values(((insp-of-t_3) insp-of-t23_0))" -"(let-values(((s_415) s24_1))" -"(let-values(((id_64) id25_1))" -"(let-values(((ctx_20) ctx26_0))" -"(let-values(((binding_20) binding27_1))" -"(let-values(((primitive?_5) primitive?28_0))" -"(let-values(((protected?_6) protected?29_0))" -"(let-values(((fail-non-transformer_3) fail-non-transformer20_0))" +"(let-values(((t_229) t22_0))" +"(let-values(((insp-of-t_230) insp-of-t23_0))" +"(let-values(((s_231) s24_0))" +"(let-values(((id_232) id25_0))" +"(let-values(((ctx_233) ctx26_0))" +"(let-values(((binding_234) binding27_0))" +"(let-values(((primitive?_235) primitive?28_0))" +"(let-values(((protected?_236) protected?29_0))" +"(let-values(((fail-non-transformer_237) fail-non-transformer20_0))" "(let-values()" -"(if(core-form? t_50)" -"(let-values()(dispatch-core-form t_50 s_415 ctx_20))" -"(if(transformer? t_50)" +"(if(core-form? t_229)" +"(let-values()(dispatch-core-form t_229 s_231 ctx_233))" +"(if(transformer? t_229)" "(let-values()" -"(let-values(((t179_0) t_50)" -"((insp-of-t180_0) insp-of-t_3)" -"((s181_0) s_415)" -"((id182_0) id_64)" -"((ctx183_0) ctx_20)" -"((binding184_0) binding_20)" -"((fail-non-transformer185_0) fail-non-transformer_3))" +"(let-values(((t179_239) t_229)" +"((insp-of-t180_240) insp-of-t_230)" +"((s181_241) s_231)" +"((id182_242) id_232)" +"((ctx183_243) ctx_233)" +"((binding184_244) binding_234)" +"((fail-non-transformer185_245) fail-non-transformer_237))" "(dispatch-transformer41.1" -" fail-non-transformer185_0" -" t179_0" -" insp-of-t180_0" -" s181_0" -" id182_0" -" ctx183_0" -" binding184_0)))" -"(if(variable? t_50)" +" fail-non-transformer185_245" +" t179_239" +" insp-of-t180_240" +" s181_241" +" id182_242" +" ctx183_243" +" binding184_244)))" +"(if(variable? t_229)" "(let-values()" -"(dispatch-variable t_50 s_415 id_64 ctx_20 binding_20 primitive?_5 protected?_6))" -" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_415))))))))))))))))))" +"(dispatch-variable" +" t_229" +" s_231" +" id_232" +" ctx_233" +" binding_234" +" primitive?_235" +" protected?_236))" +" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_231))))))))))))))))))" "(define-values" "(dispatch-core-form)" -"(lambda(t_51 s_416 ctx_21)" +"(lambda(t_0 s_0 ctx_0)" "(begin" -"(if(expand-context-only-immediate? ctx_21)" +"(if(expand-context-only-immediate? ctx_0)" "(let-values()" "(begin" -"(let-values(((obs_11)(expand-context-observer ctx_21)))" -"(if obs_11(let-values()(let-values()(call-expand-observe obs_11 'exit-check s_416)))(void)))" -" s_416))" -"(if(expand-context-observer ctx_21)" +"(let-values(((obs_284)(expand-context-observer ctx_0)))" +"(if obs_284(let-values()(let-values()(call-expand-observe obs_284 'exit-check s_0)))(void)))" +" s_0))" +"(if(expand-context-observer ctx_0)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_12)(expand-context-observer ctx_21)))" -"(if obs_12" -"(let-values()(let-values()(call-expand-observe obs_12 'enter-prim s_416)))" +"(let-values(((obs_286)(expand-context-observer ctx_0)))" +"(if obs_286" +"(let-values()(let-values()(call-expand-observe obs_286 'enter-prim s_0)))" "(void)))" "(values))))" -"(let-values(((result-s_2)((core-form-expander t_51) s_416 ctx_21)))" +"(let-values(((result-s_285)((core-form-expander t_0) s_0 ctx_0)))" "(begin" -"(let-values(((obs_13)(expand-context-observer ctx_21)))" -"(if obs_13" +"(let-values(((obs_287)(expand-context-observer ctx_0)))" +"(if obs_287" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_13 'exit-prim(extract-syntax result-s_2))" -"(call-expand-observe obs_13 'return(extract-syntax result-s_2)))))" +"(call-expand-observe obs_287 'exit-prim(extract-syntax result-s_285))" +"(call-expand-observe obs_287 'return(extract-syntax result-s_285)))))" "(void)))" -" result-s_2))))" -"(let-values()((core-form-expander t_51) s_416 ctx_21)))))))" +" result-s_285))))" +"(let-values()((core-form-expander t_0) s_0 ctx_0)))))))" "(define-values" "(dispatch-implicit-#%top-core-form)" -"(lambda(t_52 s_321 ctx_22)" +"(lambda(t_0 s_0 ctx_0)" "(begin" "(let-values((()" "(begin" -"(let-values(((obs_14)(expand-context-observer ctx_22)))" -"(if obs_14" -"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_321)))" +"(let-values(((obs_292)(expand-context-observer ctx_0)))" +"(if obs_292" +"(let-values()(let-values()(call-expand-observe obs_292 'enter-prim s_0)))" "(void)))" "(values))))" -"(let-values(((result-s_3)((core-form-expander t_52) s_321 ctx_22 #t)))" +"(let-values(((result-s_291)((core-form-expander t_0) s_0 ctx_0 #t)))" "(begin" -"(let-values(((obs_15)(expand-context-observer ctx_22)))" -"(if obs_15" +"(let-values(((obs_293)(expand-context-observer ctx_0)))" +"(if obs_293" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_15 'exit-prim result-s_3)" -"(call-expand-observe obs_15 'return result-s_3))))" +"(call-expand-observe obs_293 'exit-prim result-s_291)" +"(call-expand-observe obs_293 'return result-s_291))))" "(void)))" -" result-s_3))))))" +" result-s_291))))))" "(define-values" "(dispatch-transformer41.1)" "(lambda(fail-non-transformer33_0 t35_0 insp-of-t36_0 s37_0 id38_0 ctx39_0 binding40_0)" "(begin" " 'dispatch-transformer41" -"(let-values(((t_53) t35_0))" -"(let-values(((insp-of-t_4) insp-of-t36_0))" -"(let-values(((s_417) s37_0))" -"(let-values(((id_65) id38_0))" -"(let-values(((ctx_23) ctx39_0))" -"(let-values(((binding_21) binding40_0))" -"(let-values(((fail-non-transformer_4) fail-non-transformer33_0))" +"(let-values(((t_315) t35_0))" +"(let-values(((insp-of-t_316) insp-of-t36_0))" +"(let-values(((s_317) s37_0))" +"(let-values(((id_318) id38_0))" +"(let-values(((ctx_319) ctx39_0))" +"(let-values(((binding_320) binding40_0))" +"(let-values(((fail-non-transformer_321) fail-non-transformer33_0))" "(let-values()" -"(if(not-in-this-expand-context? t_53 ctx_23)" +"(if(not-in-this-expand-context? t_315 ctx_319)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_16)(expand-context-observer ctx_23)))" -"(if obs_16" +"(let-values(((obs_323)(expand-context-observer ctx_319)))" +"(if obs_323" "(let-values()" -"(let-values()(call-expand-observe obs_16 'enter-macro s_417)))" +"(let-values()(call-expand-observe obs_323 'enter-macro s_317)))" "(void)))" "(values))))" -"(let-values(((adj-s_0)" +"(let-values(((adj-s_322)" "(avoid-current-expand-context" -"(substitute-alternate-id s_417 id_65)" -" t_53" -" ctx_23)))" +"(substitute-alternate-id s_317 id_318)" +" t_315" +" ctx_319)))" "(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_417)))" +"(let-values(((obs_324)(expand-context-observer ctx_319)))" +"(if obs_324" +"(let-values()(let-values()(call-expand-observe obs_324 'exit-macro s_317)))" "(void)))" -"(let-values(((adj-s186_0) adj-s_0)((ctx187_0) ctx_23))" -"(expand9.1 #f #f #f adj-s186_0 ctx187_0))))))" -"(if(if(expand-context-should-not-encounter-macros? ctx_23)" -"(not(1/rename-transformer? t_53))" +"(let-values(((adj-s186_325) adj-s_322)((ctx187_326) ctx_319))" +"(expand9.1 #f #f #f adj-s186_325 ctx187_326))))))" +"(if(if(expand-context-should-not-encounter-macros? ctx_319)" +"(not(1/rename-transformer? t_315))" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"encountered a macro binding in form that should be fully expanded\"" -" s_417))" +" s_317))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_18)(expand-context-observer ctx_23)))" -"(if obs_18" +"(let-values(((obs_329)(expand-context-observer ctx_319)))" +"(if obs_329" "(let-values()" -"(if(if(expand-context-only-immediate? ctx_23)" -"(not(1/rename-transformer? t_53))" +"(if(if(expand-context-only-immediate? ctx_319)" +"(not(1/rename-transformer? t_315))" " #f)" "(let-values()" "(begin" -"(call-expand-observe obs_18 'visit s_417)" -"(call-expand-observe obs_18 'resolve id_65)))" +"(call-expand-observe obs_329 'visit s_317)" +"(call-expand-observe obs_329 'resolve id_318)))" "(void)))" "(void)))" "(values))))" -"(let-values(((exp-s_1 re-ctx_0)" -"(if(1/rename-transformer? t_53)" -"(values s_417 ctx_23)" -"(let-values(((t188_0) t_53)" -"((insp-of-t189_0) insp-of-t_4)" -"((s190_0) s_417)" -"((id191_0) id_65)" -"((ctx192_0) ctx_23)" -"((binding193_0) binding_21))" +"(let-values(((exp-s_327 re-ctx_328)" +"(if(1/rename-transformer? t_315)" +"(values s_317 ctx_319)" +"(let-values(((t188_330) t_315)" +"((insp-of-t189_331) insp-of-t_316)" +"((s190_332) s_317)" +"((id191_333) id_318)" +"((ctx192_334) ctx_319)" +"((binding193_335) binding_320))" "(apply-transformer52.1" " #f" -" t188_0" -" insp-of-t189_0" -" s190_0" -" id191_0" -" ctx192_0" -" binding193_0)))))" +" t188_330" +" insp-of-t189_331" +" s190_332" +" id191_333" +" ctx192_334" +" binding193_335)))))" "(begin" -"(let-values(((obs_19)(expand-context-observer ctx_23)))" -"(if obs_19" +"(let-values(((obs_336)(expand-context-observer ctx_319)))" +"(if obs_336" "(let-values()" -"(if(if(expand-context-only-immediate? ctx_23)" -"(not(1/rename-transformer? t_53))" +"(if(if(expand-context-only-immediate? ctx_319)" +"(not(1/rename-transformer? t_315))" " #f)" -"(let-values()(call-expand-observe obs_19 'return exp-s_1))" +"(let-values()(call-expand-observe obs_336 'return exp-s_327))" "(void)))" "(void)))" -"(if(expand-context-just-once? ctx_23)" -"(let-values() exp-s_1)" +"(if(expand-context-just-once? ctx_319)" +"(let-values() exp-s_327)" "(let-values()" -"(let-values(((exp-s194_0) exp-s_1)" -"((re-ctx195_0) re-ctx_0)" -"((temp196_0)" -"(if(1/rename-transformer? t_53)" +"(let-values(((exp-s194_338) exp-s_327)" +"((re-ctx195_339) re-ctx_328)" +"((temp196_340)" +"(if(1/rename-transformer? t_315)" "(syntax-track-origin$1" "(transfer-srcloc" -"(rename-transformer-target-in-context t_53 ctx_23)" -" id_65)" -" id_65" -" id_65)" +"(rename-transformer-target-in-context t_315 ctx_319)" +" id_318)" +" id_318" +" id_318)" " #f))" -"((temp197_0)" -"(let-values(((or-part_268)" -"(expand-context-only-immediate? ctx_23)))" -"(if or-part_268 or-part_268(1/rename-transformer? t_53))))" -"((temp198_0)" -"(if(1/rename-transformer? t_53) fail-non-transformer_4 #f)))" +"((temp197_341)" +"(let-values(((or-part_343)" +"(expand-context-only-immediate? ctx_319)))" +"(if or-part_343 or-part_343(1/rename-transformer? t_315))))" +"((temp198_342)" +"(if(1/rename-transformer? t_315) fail-non-transformer_321 #f)))" "(expand9.1" -" temp196_0" -" temp198_0" -" temp197_0" -" exp-s194_0" -" re-ctx195_0)))))))))))))))))))))" +" temp196_340" +" temp198_342" +" temp197_341" +" exp-s194_338" +" re-ctx195_339)))))))))))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_54 s_114 id_66 ctx_24 binding_22 primitive?_6 protected?_7)" +"(lambda(t_0 s_0 id_0 ctx_0 binding_0 primitive?_0 protected?_0)" "(begin" -"(if(expand-context-only-immediate? ctx_24)" +"(if(expand-context-only-immediate? ctx_0)" "(let-values()" "(begin" -"(let-values(((obs_20)(expand-context-observer ctx_24)))" -"(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_114)))(void)))" -" id_66))" +"(let-values(((obs_371)(expand-context-observer ctx_0)))" +"(if obs_371(let-values()(let-values()(call-expand-observe obs_371 'exit-check s_0)))(void)))" +" id_0))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_21)(expand-context-observer ctx_24)))" -"(if obs_21" -"(let-values()(let-values()(call-expand-observe obs_21 'variable s_114 id_66)))" +"(let-values(((obs_373)(expand-context-observer ctx_0)))" +"(if obs_373" +"(let-values()(let-values()(call-expand-observe obs_373 'variable s_0 id_0)))" "(void)))" "(values))))" -"(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" -"(let-values(((result-s_4)" -"(let-values(((id199_0) id_66)" -"((t200_0) t_54)" -"((temp201_0)" +"(let-values((()(begin(register-variable-referenced-if-local! binding_0)(values))))" +"(let-values(((result-s_372)" +"(let-values(((id199_375) id_0)" +"((t200_376) t_0)" +"((temp201_377)" "(free-id-set-empty-or-just-module*?" -"(expand-context-stops ctx_24)" -"(expand-context-phase ctx_24))))" -"(substitute-variable6.1 temp201_0 id199_0 t200_0))))" -"(if(if(expand-context-to-parsed? ctx_24)(free-id-set-empty?(expand-context-stops ctx_24)) #f)" +"(expand-context-stops ctx_0)" +"(expand-context-phase ctx_0))))" +"(substitute-variable6.1 temp201_377 id199_375 t200_376))))" +"(if(if(expand-context-to-parsed? ctx_0)(free-id-set-empty?(expand-context-stops ctx_0)) #f)" "(let-values()" -"(let-values(((prop-s_0)(keep-properties-only~ result-s_4)))" -"(let-values(((insp_16)(syntax-inspector result-s_4)))" -"(if primitive?_6" -"(parsed-primitive-id3.1 prop-s_0 binding_22 insp_16)" -"(parsed-id2.1 prop-s_0 binding_22 insp_16)))))" +"(let-values(((prop-s_378)(keep-properties-only~ result-s_372)))" +"(let-values(((insp_379)(syntax-inspector result-s_372)))" +"(if primitive?_0" +"(parsed-primitive-id3.1 prop-s_378 binding_0 insp_379)" +"(parsed-id2.1 prop-s_378 binding_0 insp_379)))))" "(let-values()" -"(let-values(((protected-result-s_0)" -"(if protected?_7(syntax-property$1 result-s_4 'protected #t) result-s_4)))" +"(let-values(((protected-result-s_380)" +"(if protected?_0(syntax-property$1 result-s_372 'protected #t) result-s_372)))" "(begin" -"(let-values(((obs_22)(expand-context-observer ctx_24)))" -"(if obs_22" -"(let-values()(let-values()(call-expand-observe obs_22 'return protected-result-s_0)))" +"(let-values(((obs_381)(expand-context-observer ctx_0)))" +"(if obs_381" +"(let-values()(let-values()(call-expand-observe obs_381 'return protected-result-s_380)))" "(void)))" -" protected-result-s_0))))))))))))" +" protected-result-s_380))))))))))))" "(define-values" "(apply-transformer52.1)" -"(lambda(origin-id44_0 t46_0 insp-of-t47_0 s48_1 id49_1 ctx50_0 binding51_0)" +"(lambda(origin-id44_0 t46_0 insp-of-t47_0 s48_0 id49_0 ctx50_0 binding51_0)" "(begin" " 'apply-transformer52" -"(let-values(((t_55) t46_0))" -"(let-values(((insp-of-t_5) insp-of-t47_0))" -"(let-values(((s_122) s48_1))" -"(let-values(((id_33) id49_1))" -"(let-values(((ctx_25) ctx50_0))" -"(let-values(((binding_23) binding51_0))" -"(let-values(((origin-id_0) origin-id44_0))" +"(let-values(((t_389) t46_0))" +"(let-values(((insp-of-t_390) insp-of-t47_0))" +"(let-values(((s_391) s48_0))" +"(let-values(((id_392) id49_0))" +"(let-values(((ctx_393) ctx50_0))" +"(let-values(((binding_394) binding51_0))" +"(let-values(((origin-id_395) origin-id44_0))" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_23)(expand-context-observer ctx_25)))" -"(if obs_23" +"(let-values(((obs_408)(expand-context-observer ctx_393)))" +"(if obs_408" "(let-values()" -"(let-values()(call-expand-observe obs_23 'enter-macro s_122)))" +"(let-values()(call-expand-observe obs_408 'enter-macro s_391)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_3)(syntax-disarm$1 s_122)))" -"(let-values(((intro-scope_0)(new-scope 'macro)))" -"(let-values(((intro-s_0)(flip-scope disarmed-s_3 intro-scope_0)))" -"(let-values(((use-s_0 use-scopes_0)" -"(maybe-add-use-site-scope intro-s_0 ctx_25 binding_23)))" -"(let-values(((cleaned-s_0)(syntax-remove-taint-dispatch-properties use-s_0)))" -"(let-values(((def-ctx-scopes_1)(box null)))" -"(let-values(((transformed-s_0)" +"(let-values(((disarmed-s_396)(syntax-disarm$1 s_391)))" +"(let-values(((intro-scope_397)(new-scope 'macro)))" +"(let-values(((intro-s_398)(flip-scope disarmed-s_396 intro-scope_397)))" +"(let-values(((use-s_399 use-scopes_400)" +"(maybe-add-use-site-scope intro-s_398 ctx_393 binding_394)))" +"(let-values(((cleaned-s_401)(syntax-remove-taint-dispatch-properties use-s_399)))" +"(let-values(((def-ctx-scopes_402)(box null)))" +"(let-values(((transformed-s_403)" "(apply-transformer-in-context" -" t_55" -" cleaned-s_0" -" ctx_25" -" insp-of-t_5" -" intro-scope_0" -" use-scopes_0" -" def-ctx-scopes_1" -" id_33)))" -"(let-values(((result-s_5)(flip-scope transformed-s_0 intro-scope_0)))" -"(let-values(((post-s_0)(maybe-add-post-expansion result-s_5 ctx_25)))" -"(let-values(((tracked-s_0)" +" t_389" +" cleaned-s_401" +" ctx_393" +" insp-of-t_390" +" intro-scope_397" +" use-scopes_400" +" def-ctx-scopes_402" +" id_392)))" +"(let-values(((result-s_404)(flip-scope transformed-s_403 intro-scope_397)))" +"(let-values(((post-s_405)(maybe-add-post-expansion result-s_404 ctx_393)))" +"(let-values(((tracked-s_406)" "(syntax-track-origin$1" -" post-s_0" -" cleaned-s_0" -"(let-values(((or-part_269) origin-id_0))" -"(if or-part_269" -" or-part_269" -"(if(syntax-identifier? s_122)" -" s_122" -"(car(syntax-e$1 s_122))))))))" -"(let-values(((rearmed-s_0)" +" post-s_405" +" cleaned-s_401" +"(let-values(((or-part_409) origin-id_395))" +"(if or-part_409" +" or-part_409" +"(if(syntax-identifier? s_391)" +" s_391" +"(car(syntax-e$1 s_391))))))))" +"(let-values(((rearmed-s_407)" "(taint-dispatch" -" tracked-s_0" -"(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_122))" -"(expand-context-phase ctx_25))))" +" tracked-s_406" +"(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_391))" +"(expand-context-phase ctx_393))))" "(begin" -"(let-values(((obs_24)(expand-context-observer ctx_25)))" -"(if obs_24" +"(let-values(((obs_411)(expand-context-observer ctx_393)))" +"(if obs_411" "(let-values()" "(let-values()" -"(call-expand-observe obs_24 'exit-macro rearmed-s_0)))" +"(call-expand-observe obs_411 'exit-macro rearmed-s_407)))" "(void)))" "(values" -" rearmed-s_0" +" rearmed-s_407" "(accumulate-def-ctx-scopes" -" ctx_25" -" def-ctx-scopes_1)))))))))))))))))))))))))))" +" ctx_393" +" def-ctx-scopes_402)))))))))))))))))))))))))))" "(define-values" "(apply-transformer-in-context)" -"(lambda(t_56 cleaned-s_1 ctx_26 insp-of-t_6 intro-scope_1 use-scopes_1 def-ctx-scopes_2 id_67)" +"(lambda(t_0 cleaned-s_0 ctx_0 insp-of-t_0 intro-scope_0 use-scopes_0 def-ctx-scopes_0 id_0)" "(begin" "(let-values((()" "(begin" -"(let-values(((obs_25)(expand-context-observer ctx_26)))" -"(if obs_25" -"(let-values()(let-values()(call-expand-observe obs_25 'macro-pre-x cleaned-s_1)))" +"(let-values(((obs_453)(expand-context-observer ctx_0)))" +"(if obs_453" +"(let-values()(let-values()(call-expand-observe obs_453 'macro-pre-x cleaned-s_0)))" "(void)))" "(values))))" -"(let-values(((confine-def-ctx-scopes?_0)" +"(let-values(((confine-def-ctx-scopes?_449)" "(not" -"(let-values(((or-part_270)(expand-context-only-immediate? ctx_26)))" -"(if or-part_270" -" or-part_270" +"(let-values(((or-part_454)(expand-context-only-immediate? ctx_0)))" +"(if or-part_454" +" or-part_454" "(not" "(free-id-set-empty-or-just-module*?" -"(expand-context-stops ctx_26)" -"(expand-context-phase ctx_26))))))))" -"(let-values(((accum-ctx_0)" -"(if(if confine-def-ctx-scopes?_0" -"(if(expand-context-def-ctx-scopes ctx_26)" -"(not(null?(unbox(expand-context-def-ctx-scopes ctx_26))))" +"(expand-context-stops ctx_0)" +"(expand-context-phase ctx_0))))))))" +"(let-values(((accum-ctx_450)" +"(if(if confine-def-ctx-scopes?_449" +"(if(expand-context-def-ctx-scopes ctx_0)" +"(not(null?(unbox(expand-context-def-ctx-scopes ctx_0))))" " #f)" " #f)" -"(accumulate-def-ctx-scopes ctx_26(expand-context-def-ctx-scopes ctx_26))" -" ctx_26)))" -"(let-values(((m-ctx_0)" -"(let-values(((v_181) accum-ctx_0))" -"(let-values(((the-struct_57) v_181))" -"(if(expand-context/outer? the-struct_57)" -"(let-values(((current-introduction-scopes202_0)(list intro-scope_1))" -"((current-use-scopes203_0) use-scopes_1)" -"((def-ctx-scopes204_0)" -"(if confine-def-ctx-scopes?_0" -" def-ctx-scopes_2" -"(expand-context-def-ctx-scopes ctx_26)))" -"((inner205_0)(root-expand-context/outer-inner v_181)))" +"(accumulate-def-ctx-scopes ctx_0(expand-context-def-ctx-scopes ctx_0))" +" ctx_0)))" +"(let-values(((m-ctx_451)" +"(let-values(((v_455) accum-ctx_450))" +"(let-values(((the-struct_456) v_455))" +"(if(expand-context/outer? the-struct_456)" +"(let-values(((current-introduction-scopes202_457)(list intro-scope_0))" +"((current-use-scopes203_458) use-scopes_0)" +"((def-ctx-scopes204_459)" +"(if confine-def-ctx-scopes?_449" +" def-ctx-scopes_0" +"(expand-context-def-ctx-scopes ctx_0)))" +"((inner205_460)(root-expand-context/outer-inner v_455)))" "(expand-context/outer1.1" -" inner205_0" -"(root-expand-context/outer-post-expansion the-struct_57)" -"(root-expand-context/outer-use-site-scopes the-struct_57)" -"(root-expand-context/outer-frame-id the-struct_57)" -"(expand-context/outer-context the-struct_57)" -"(expand-context/outer-env the-struct_57)" -"(expand-context/outer-scopes the-struct_57)" -" def-ctx-scopes204_0" -"(expand-context/outer-binding-layer the-struct_57)" -"(expand-context/outer-reference-records the-struct_57)" -"(expand-context/outer-only-immediate? the-struct_57)" -"(expand-context/outer-need-eventually-defined the-struct_57)" -" current-introduction-scopes202_0" -" current-use-scopes203_0" -"(expand-context/outer-name the-struct_57)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_57))))))" -"(let-values(((transformed-s_1)" +" inner205_460" +"(root-expand-context/outer-post-expansion the-struct_456)" +"(root-expand-context/outer-use-site-scopes the-struct_456)" +"(root-expand-context/outer-frame-id the-struct_456)" +"(expand-context/outer-context the-struct_456)" +"(expand-context/outer-env the-struct_456)" +"(expand-context/outer-scopes the-struct_456)" +" def-ctx-scopes204_459" +"(expand-context/outer-binding-layer the-struct_456)" +"(expand-context/outer-reference-records the-struct_456)" +"(expand-context/outer-only-immediate? the-struct_456)" +"(expand-context/outer-need-eventually-defined the-struct_456)" +" current-introduction-scopes202_457" +" current-use-scopes203_458" +"(expand-context/outer-name the-struct_456)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_456))))))" +"(let-values(((transformed-s_452)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-expand-context" -" m-ctx_0" +" m-ctx_451" " 1/current-namespace" "(namespace->namespace-at-phase" -"(expand-context-namespace ctx_26)" -"(add1(expand-context-phase ctx_26)))" +"(expand-context-namespace ctx_0)" +"(add1(expand-context-phase ctx_0)))" " current-module-code-inspector" -" insp-of-t_6)" +" insp-of-t_0)" "(let-values()" "(call-with-continuation-barrier" -"(lambda()((transformer->procedure t_56) cleaned-s_1)))))))" +"(lambda()((transformer->procedure t_0) cleaned-s_0)))))))" "(begin" -"(let-values(((obs_26)(expand-context-observer ctx_26)))" -"(if obs_26" +"(let-values(((obs_461)(expand-context-observer ctx_0)))" +"(if obs_461" "(let-values()" -"(let-values()(call-expand-observe obs_26 'macro-post-x transformed-s_1 cleaned-s_1)))" +"(let-values()(call-expand-observe obs_461 'macro-post-x transformed-s_452 cleaned-s_0)))" "(void)))" -"(if(syntax?$1 transformed-s_1)" +"(if(syntax?$1 transformed-s_452)" "(void)" "(let-values()" "(raise-arguments-error" -"(syntax-e$1 id_67)" +"(syntax-e$1 id_0)" " \"received value from syntax expander was not syntax\"" " \"received\"" -" transformed-s_1)))" -" transformed-s_1)))))))))" +" transformed-s_452)))" +" transformed-s_452)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_344 ctx_27 binding_24)" +"(lambda(s_0 ctx_0 binding_0)" "(begin" -"(if(if(root-expand-context-use-site-scopes ctx_27)" -"(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_24))" +"(if(if(root-expand-context-use-site-scopes ctx_0)" +"(matching-frame?(root-expand-context-frame-id ctx_0)(binding-frame-id binding_0))" " #f)" "(let-values()" -"(let-values(((sc_32)(new-scope 'use-site)))" -"(let-values(((b_81)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_81(cons sc_32(unbox b_81)))(values(add-scope s_344 sc_32)(list sc_32))))))" -"(let-values()(values s_344 null))))))" +"(let-values(((sc_465)(new-scope 'use-site)))" +"(let-values(((b_466)(root-expand-context-use-site-scopes ctx_0)))" +"(begin(set-box! b_466(cons sc_465(unbox b_466)))(values(add-scope s_0 sc_465)(list sc_465))))))" +"(let-values()(values s_0 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" "(begin" "(if current-frame-id_0" -"(let-values(((or-part_271)(eq? current-frame-id_0 bind-frame-id_0)))" -"(if or-part_271 or-part_271(eq? current-frame-id_0 'all)))" +"(let-values(((or-part_469)(eq? current-frame-id_0 bind-frame-id_0)))" +"(if or-part_469 or-part_469(eq? current-frame-id_0 'all)))" " #f))))" "(define-values" "(maybe-add-post-expansion)" -"(lambda(s_241 ctx_28)(begin(apply-post-expansion(root-expand-context-post-expansion ctx_28) s_241))))" +"(lambda(s_0 ctx_0)(begin(apply-post-expansion(root-expand-context-post-expansion ctx_0) s_0))))" "(define-values" "(accumulate-def-ctx-scopes)" -"(lambda(ctx_29 def-ctx-scopes_3)" +"(lambda(ctx_0 def-ctx-scopes_0)" "(begin" -"(if(null?(unbox def-ctx-scopes_3))" -" ctx_29" -"(let-values(((v_182) ctx_29))" -"(let-values(((the-struct_58) v_182))" -"(if(expand-context/outer? the-struct_58)" -"(let-values(((scopes206_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner207_0)(root-expand-context/outer-inner v_182)))" +"(if(null?(unbox def-ctx-scopes_0))" +" ctx_0" +"(let-values(((v_474) ctx_0))" +"(let-values(((the-struct_475) v_474))" +"(if(expand-context/outer? the-struct_475)" +"(let-values(((scopes206_476)(append(unbox def-ctx-scopes_0)(expand-context-scopes ctx_0)))" +"((inner207_477)(root-expand-context/outer-inner v_474)))" "(expand-context/outer1.1" -" inner207_0" -"(root-expand-context/outer-post-expansion the-struct_58)" -"(root-expand-context/outer-use-site-scopes the-struct_58)" -"(root-expand-context/outer-frame-id the-struct_58)" -"(expand-context/outer-context the-struct_58)" -"(expand-context/outer-env the-struct_58)" -" scopes206_0" -"(expand-context/outer-def-ctx-scopes the-struct_58)" -"(expand-context/outer-binding-layer the-struct_58)" -"(expand-context/outer-reference-records the-struct_58)" -"(expand-context/outer-only-immediate? the-struct_58)" -"(expand-context/outer-need-eventually-defined the-struct_58)" -"(expand-context/outer-current-introduction-scopes the-struct_58)" -"(expand-context/outer-current-use-scopes the-struct_58)" -"(expand-context/outer-name the-struct_58)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_58))))))))" +" inner207_477" +"(root-expand-context/outer-post-expansion the-struct_475)" +"(root-expand-context/outer-use-site-scopes the-struct_475)" +"(root-expand-context/outer-frame-id the-struct_475)" +"(expand-context/outer-context the-struct_475)" +"(expand-context/outer-env the-struct_475)" +" scopes206_476" +"(expand-context/outer-def-ctx-scopes the-struct_475)" +"(expand-context/outer-binding-layer the-struct_475)" +"(expand-context/outer-reference-records the-struct_475)" +"(expand-context/outer-only-immediate? the-struct_475)" +"(expand-context/outer-need-eventually-defined the-struct_475)" +"(expand-context/outer-current-introduction-scopes the-struct_475)" +"(expand-context/outer-current-use-scopes the-struct_475)" +"(expand-context/outer-name the-struct_475)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_475))))))))" "(define-values" "(lookup62.1)" "(lambda(in55_0 out-of-context-as-variable?56_0 b59_0 ctx60_0 id61_0)" "(begin" " 'lookup62" -"(let-values(((b_82) b59_0))" -"(let-values(((ctx_30) ctx60_0))" -"(let-values(((id_37) id61_0))" -"(let-values(((in-s_7) in55_0))" -"(let-values(((out-of-context-as-variable?_1) out-of-context-as-variable?56_0))" +"(let-values(((b_483) b59_0))" +"(let-values(((ctx_484) ctx60_0))" +"(let-values(((id_485) id61_0))" +"(let-values(((in-s_486) in55_0))" +"(let-values(((out-of-context-as-variable?_487) out-of-context-as-variable?56_0))" "(let-values()" -"(let-values(((b208_0) b_82)" -"((temp209_1)(expand-context-env ctx_30))" -"((temp210_0)(expand-context-lift-envs ctx_30))" -"((temp211_0)(expand-context-namespace ctx_30))" -"((temp212_0)(expand-context-phase ctx_30))" -"((id213_0) id_37)" -"((in-s214_0) in-s_7)" -"((out-of-context-as-variable?215_0) out-of-context-as-variable?_1))" +"(let-values(((b208_489) b_483)" +"((temp209_490)(expand-context-env ctx_484))" +"((temp210_491)(expand-context-lift-envs ctx_484))" +"((temp211_492)(expand-context-namespace ctx_484))" +"((temp212_493)(expand-context-phase ctx_484))" +"((id213_494) id_485)" +"((in-s214_495) in-s_486)" +"((out-of-context-as-variable?215_496) out-of-context-as-variable?_487))" "(binding-lookup50.1" -" in-s214_0" -" out-of-context-as-variable?215_0" -" b208_0" -" temp209_1" -" temp210_0" -" temp211_0" -" temp212_0" -" id213_0)))))))))))" +" in-s214_495" +" out-of-context-as-variable?215_496" +" b208_489" +" temp209_490" +" temp210_491" +" temp211_492" +" temp212_493" +" id213_494)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_355 alternate-id_3)" +"(lambda(s_0 alternate-id_0)" "(begin" -"(if(not alternate-id_3)" -"(let-values() s_355)" -"(if(syntax-identifier? s_355)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_355) s_355))" +"(if(not alternate-id_0)" +"(let-values() s_0)" +"(if(syntax-identifier? s_0)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_0 s_0) s_0))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_355)))" +"(let-values(((disarmed-s_525)(syntax-disarm$1 s_0)))" "(syntax-rearm$1" "(syntax-track-origin$1" -"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_355)" -" s_355)" -" s_355))))))))" +"(datum->syntax$1 disarmed-s_525(cons alternate-id_0(cdr(syntax-e$1 disarmed-s_525))) s_0)" +" s_0)" +" s_0))))))))" "(define-values" "(register-variable-referenced-if-local!)" -"(lambda(binding_25)" +"(lambda(binding_0)" "(begin" -"(if(if(local-binding? binding_25)(reference-record?(binding-frame-id binding_25)) #f)" -"(let-values()(reference-record-used!(binding-frame-id binding_25)(local-binding-key binding_25)))" +"(if(if(local-binding? binding_0)(reference-record?(binding-frame-id binding_0)) #f)" +"(let-values()(reference-record-used!(binding-frame-id binding_0)(local-binding-key binding_0)))" "(void)))))" "(define-values" "(expand/capture-lifts75.1)" "(lambda(always-wrap?68_0 begin-form?66_0 expand-lifts?65_0 lift-key67_0 s73_0 ctx74_0)" "(begin" " 'expand/capture-lifts75" -"(let-values(((s_360) s73_0))" -"(let-values(((ctx_31) ctx74_0))" -"(let-values(((expand-lifts?_0) expand-lifts?65_0))" -"(let-values(((begin-form?_0) begin-form?66_0))" -"(let-values(((lift-key_2)(if(eq? lift-key67_0 unsafe-undefined)(generate-lift-key) lift-key67_0)))" -"(let-values(((always-wrap?_0) always-wrap?68_0))" +"(let-values(((s_533) s73_0))" +"(let-values(((ctx_534) ctx74_0))" +"(let-values(((expand-lifts?_535) expand-lifts?65_0))" +"(let-values(((begin-form?_536) begin-form?66_0))" +"(let-values(((lift-key_537)(if(eq? lift-key67_0 unsafe-undefined)(generate-lift-key) lift-key67_0)))" +"(let-values(((always-wrap?_538) always-wrap?68_0))" "(let-values()" -"(let-values(((context_6)(expand-context-context ctx_31)))" -"(let-values(((phase_105)(expand-context-phase ctx_31)))" -"(let-values(((local?_0)(not begin-form?_0)))" -"((letrec-values(((loop_93)" -"(lambda(s_418 always-wrap?_1 ctx_32)" +"(let-values(((context_539)(expand-context-context ctx_534)))" +"(let-values(((phase_540)(expand-context-phase ctx_534)))" +"(let-values(((local?_541)(not begin-form?_536)))" +"((letrec-values(((loop_542)" +"(lambda(s_0 always-wrap?_0 ctx_0)" "(begin" " 'loop" -"(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" -"(let-values(((lift-ctx_0)" -"(let-values(((temp216_0)" -"(if local?_0" +"(let-values(((lift-env_546)(if local?_541(box empty-env) #f)))" +"(let-values(((lift-ctx_547)" +"(let-values(((temp216_554)" +"(if local?_541" "(make-local-lift" -" lift-env_2" -"(root-expand-context-counter ctx_32))" -"(make-top-level-lift ctx_32)))" -"((temp217_1)" -"(if(not local?_0)" -"(eq? context_6 'module)" +" lift-env_546" +"(root-expand-context-counter ctx_0))" +"(make-top-level-lift ctx_0)))" +"((temp217_555)" +"(if(not local?_541)" +"(eq? context_539 'module)" " #f)))" -"(make-lift-context6.1 temp217_1 temp216_0))))" -"(let-values(((capture-ctx_0)" -"(let-values(((v_183) ctx_32))" -"(let-values(((the-struct_59) v_183))" -"(if(expand-context/outer? the-struct_59)" -"(let-values(((inner218_0)" -"(let-values(((the-struct_60)" +"(make-lift-context6.1 temp217_555 temp216_554))))" +"(let-values(((capture-ctx_548)" +"(let-values(((v_556) ctx_0))" +"(let-values(((the-struct_557) v_556))" +"(if(expand-context/outer? the-struct_557)" +"(let-values(((inner218_558)" +"(let-values(((the-struct_559)" "(root-expand-context/outer-inner" -" v_183)))" +" v_556)))" "(if(expand-context/inner?" -" the-struct_60)" -"(let-values(((lift-key219_0)" -" lift-key_2)" -"((lifts220_0)" -" lift-ctx_0)" -"((lift-envs221_0)" -"(if local?_0" +" the-struct_559)" +"(let-values(((lift-key219_560)" +" lift-key_537)" +"((lifts220_561)" +" lift-ctx_547)" +"((lift-envs221_562)" +"(if local?_541" "(cons" -" lift-env_2" +" lift-env_546" "(expand-context-lift-envs" -" ctx_32))" +" ctx_0))" "(expand-context-lift-envs" -" ctx_32)))" -"((module-lifts222_0)" -"(if(let-values(((or-part_272)" -" local?_0))" -"(if or-part_272" -" or-part_272" +" ctx_0)))" +"((module-lifts222_563)" +"(if(let-values(((or-part_564)" +" local?_541))" +"(if or-part_564" +" or-part_564" "(not" "(memq" -" context_6" +" context_539" " '(top-level" " module)))))" "(expand-context-module-lifts" -" ctx_32)" -" lift-ctx_0)))" +" ctx_0)" +" lift-ctx_547)))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_60)" +" the-struct_559)" "(root-expand-context/inner-module-scopes" -" the-struct_60)" +" the-struct_559)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_60)" +" the-struct_559)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_60)" +" the-struct_559)" "(root-expand-context/inner-defined-syms" -" the-struct_60)" +" the-struct_559)" "(root-expand-context/inner-counter" -" the-struct_60)" -" lift-key219_0" +" the-struct_559)" +" lift-key219_560" "(expand-context/inner-to-parsed?" -" the-struct_60)" +" the-struct_559)" "(expand-context/inner-phase" -" the-struct_60)" +" the-struct_559)" "(expand-context/inner-namespace" -" the-struct_60)" +" the-struct_559)" "(expand-context/inner-just-once?" -" the-struct_60)" +" the-struct_559)" "(expand-context/inner-module-begin-k" -" the-struct_60)" +" the-struct_559)" "(expand-context/inner-allow-unbound?" -" the-struct_60)" +" the-struct_559)" "(expand-context/inner-in-local-expand?" -" the-struct_60)" +" the-struct_559)" "(expand-context/inner-keep-#%expression?" -" the-struct_60)" +" the-struct_559)" "(expand-context/inner-stops" -" the-struct_60)" +" the-struct_559)" "(expand-context/inner-declared-submodule-names" -" the-struct_60)" -" lifts220_0" -" lift-envs221_0" -" module-lifts222_0" +" the-struct_559)" +" lifts220_561" +" lift-envs221_562" +" module-lifts222_563" "(expand-context/inner-require-lifts" -" the-struct_60)" +" the-struct_559)" "(expand-context/inner-to-module-lifts" -" the-struct_60)" +" the-struct_559)" "(expand-context/inner-requires+provides" -" the-struct_60)" +" the-struct_559)" "(expand-context/inner-observer" -" the-struct_60)" +" the-struct_559)" "(expand-context/inner-for-serializable?" -" the-struct_60)" +" the-struct_559)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_60)))" +" the-struct_559)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_60)))))" +" the-struct_559)))))" "(expand-context/outer1.1" -" inner218_0" +" inner218_558" "(root-expand-context/outer-post-expansion" -" the-struct_59)" +" the-struct_557)" "(root-expand-context/outer-use-site-scopes" -" the-struct_59)" +" the-struct_557)" "(root-expand-context/outer-frame-id" -" the-struct_59)" -"(expand-context/outer-context the-struct_59)" -"(expand-context/outer-env the-struct_59)" -"(expand-context/outer-scopes the-struct_59)" +" the-struct_557)" +"(expand-context/outer-context the-struct_557)" +"(expand-context/outer-env the-struct_557)" +"(expand-context/outer-scopes the-struct_557)" "(expand-context/outer-def-ctx-scopes" -" the-struct_59)" +" the-struct_557)" "(expand-context/outer-binding-layer" -" the-struct_59)" +" the-struct_557)" "(expand-context/outer-reference-records" -" the-struct_59)" +" the-struct_557)" "(expand-context/outer-only-immediate?" -" the-struct_59)" +" the-struct_557)" "(expand-context/outer-need-eventually-defined" -" the-struct_59)" +" the-struct_557)" "(expand-context/outer-current-introduction-scopes" -" the-struct_59)" +" the-struct_557)" "(expand-context/outer-current-use-scopes" -" the-struct_59)" -"(expand-context/outer-name the-struct_59)))" +" the-struct_557)" +"(expand-context/outer-name the-struct_557)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_59))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_418)))" -"(let-values(((exp-s_2)" -"(let-values(((s223_0) s_418)" -"((capture-ctx224_0) capture-ctx_0))" -"(expand9.1 #f #f #f s223_0 capture-ctx224_0))))" -"(let-values(((lifts_6)" +" the-struct_557))))))" +"(let-values(((rebuild-s_549)(keep-properties-only s_0)))" +"(let-values(((exp-s_550)" +"(let-values(((s223_565) s_0)" +"((capture-ctx224_566)" +" capture-ctx_548))" +"(expand9.1" +" #f" +" #f" +" #f" +" s223_565" +" capture-ctx224_566))))" +"(let-values(((lifts_551)" "(get-and-clear-lifts!" -"(expand-context-lifts capture-ctx_0))))" -"(let-values(((with-lifts-s_0)" -"(if(let-values(((or-part_273)" -"(pair? lifts_6)))" -"(if or-part_273" -" or-part_273" -" always-wrap?_1))" +"(expand-context-lifts capture-ctx_548))))" +"(let-values(((with-lifts-s_552)" +"(if(let-values(((or-part_567)" +"(pair? lifts_551)))" +"(if or-part_567" +" or-part_567" +" always-wrap?_0))" "(let-values()" -"(if(expand-context-to-parsed? ctx_32)" +"(if(expand-context-to-parsed? ctx_0)" "(let-values()" "(begin" -"(if expand-lifts?_0" +"(if expand-lifts?_535" "(void)" "(let-values()" "(error" " \"internal error: to-parsed mode without expanding lifts\")))" "(wrap-lifts-as-parsed-let" -" lifts_6" -" exp-s_2" -" rebuild-s_0" -" ctx_32" -"(lambda(rhs_15 rhs-ctx_0)" -"(loop_93 rhs_15 #f rhs-ctx_0)))))" +" lifts_551" +" exp-s_550" +" rebuild-s_549" +" ctx_0" +"(lambda(rhs_0 rhs-ctx_0)" +"(loop_542 rhs_0 #f rhs-ctx_0)))))" "(let-values()" -"(if begin-form?_0" -"(let-values(((lifts225_0) lifts_6)" -"((exp-s226_0) exp-s_2)" -"((phase227_0)" -" phase_105))" +"(if begin-form?_536" +"(let-values(((lifts225_570)" +" lifts_551)" +"((exp-s226_571)" +" exp-s_550)" +"((phase227_572)" +" phase_540))" "(wrap-lifts-as-begin16.1" " unsafe-undefined" " unsafe-undefined" -" lifts225_0" -" exp-s226_0" -" phase227_0))" +" lifts225_570" +" exp-s226_571" +" phase227_572))" "(wrap-lifts-as-let" -" lifts_6" -" exp-s_2" -" phase_105)))))" -"(let-values() exp-s_2))))" -"(if(let-values(((or-part_274)(not expand-lifts?_0)))" -"(if or-part_274" -" or-part_274" -"(let-values(((or-part_275)(null? lifts_6)))" -"(if or-part_275" -" or-part_275" -"(expand-context-to-parsed? ctx_32)))))" -"(let-values() with-lifts-s_0)" +" lifts_551" +" exp-s_550" +" phase_540)))))" +"(let-values() exp-s_550))))" +"(if(let-values(((or-part_573)(not expand-lifts?_535)))" +"(if or-part_573" +" or-part_573" +"(let-values(((or-part_574)(null? lifts_551)))" +"(if or-part_574" +" or-part_574" +"(expand-context-to-parsed? ctx_0)))))" +"(let-values() with-lifts-s_552)" "(let-values()" "(begin" -"(let-values(((obs_27)" -"(expand-context-observer ctx_32)))" -"(if obs_27" +"(let-values(((obs_575)" +"(expand-context-observer ctx_0)))" +"(if obs_575" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_27" +" obs_575" " 'letlift-loop" -" with-lifts-s_0)))" +" with-lifts-s_552)))" "(void)))" -"(loop_93 with-lifts-s_0 #f ctx_32)))))))))))))))" -" loop_93)" -" s_360" -" always-wrap?_0" -" ctx_31))))))))))))))" +"(loop_542 with-lifts-s_552 #f ctx_0)))))))))))))))" +" loop_542)" +" s_533" +" always-wrap?_538" +" ctx_534))))))))))))))" "(define-values" "(expand-transformer92.1)" "(lambda(always-wrap?82_0 begin-form?79_0 context78_0 expand-lifts?80_0 keep-stops?83_0 lift-key81_0 s90_0 ctx91_0)" "(begin" " 'expand-transformer92" -"(let-values(((s_419) s90_0))" -"(let-values(((ctx_33) ctx91_0))" -"(let-values(((context_7) context78_0))" -"(let-values(((begin-form?_1) begin-form?79_0))" -"(let-values(((expand-lifts?_1) expand-lifts?80_0))" -"(let-values(((lift-key_3)(if(eq? lift-key81_0 unsafe-undefined)(generate-lift-key) lift-key81_0)))" -"(let-values(((always-wrap?_2) always-wrap?82_0))" -"(let-values(((keep-stops?_0) keep-stops?83_0))" +"(let-values(((s_619) s90_0))" +"(let-values(((ctx_620) ctx91_0))" +"(let-values(((context_621) context78_0))" +"(let-values(((begin-form?_622) begin-form?79_0))" +"(let-values(((expand-lifts?_623) expand-lifts?80_0))" +"(let-values(((lift-key_624)(if(eq? lift-key81_0 unsafe-undefined)(generate-lift-key) lift-key81_0)))" +"(let-values(((always-wrap?_625) always-wrap?82_0))" +"(let-values(((keep-stops?_626) keep-stops?83_0))" "(let-values()" "(let-values()" -"(let-values(((trans-ctx_0)" -"(let-values(((ctx234_0) ctx_33)" -"((context235_0) context_7)" -"((keep-stops?236_0) keep-stops?_0))" -"(context->transformer-context99.1 keep-stops?236_0 ctx234_0 context235_0))))" -"(let-values(((s228_0) s_419)" -"((trans-ctx229_0) trans-ctx_0)" -"((expand-lifts?230_0) expand-lifts?_1)" -"((begin-form?231_0) begin-form?_1)" -"((lift-key232_0) lift-key_3)" -"((always-wrap?233_0) always-wrap?_2))" +"(let-values(((trans-ctx_627)" +"(let-values(((ctx234_629) ctx_620)" +"((context235_630) context_621)" +"((keep-stops?236_631) keep-stops?_626))" +"(context->transformer-context99.1" +" keep-stops?236_631" +" ctx234_629" +" context235_630))))" +"(let-values(((s228_633) s_619)" +"((trans-ctx229_634) trans-ctx_627)" +"((expand-lifts?230_635) expand-lifts?_623)" +"((begin-form?231_636) begin-form?_622)" +"((lift-key232_637) lift-key_624)" +"((always-wrap?233_638) always-wrap?_625))" "(expand/capture-lifts75.1" -" always-wrap?233_0" -" begin-form?231_0" -" expand-lifts?230_0" -" lift-key232_0" -" s228_0" -" trans-ctx229_0))))))))))))))))" +" always-wrap?233_638" +" begin-form?231_636" +" expand-lifts?230_635" +" lift-key232_637" +" s228_633" +" trans-ctx229_634))))))))))))))))" "(define-values" "(context->transformer-context99.1)" "(lambda(keep-stops?95_0 ctx98_0 context97_0)" "(begin" " 'context->transformer-context99" -"(let-values(((ctx_34) ctx98_0))" -"(let-values(((context_8) context97_0))" -"(let-values(((keep-stops?_1) keep-stops?95_0))" +"(let-values(((ctx_689) ctx98_0))" +"(let-values(((context_690) context97_0))" +"(let-values(((keep-stops?_691) keep-stops?95_0))" "(let-values()" -"(let-values(((phase_106)(add1(expand-context-phase ctx_34))))" -"(let-values(((ns_74)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_106)))" +"(let-values(((phase_692)(add1(expand-context-phase ctx_689))))" +"(let-values(((ns_693)(namespace->namespace-at-phase(expand-context-namespace ctx_689) phase_692)))" "(begin" -"(namespace-visit-available-modules! ns_74 phase_106)" -"(let-values(((v_184) ctx_34))" -"(let-values(((the-struct_61) v_184))" -"(if(expand-context/outer? the-struct_61)" -"(let-values(((context237_0) context_8)" -"((scopes238_0) null)" -"((env239_0) empty-env)" -"((only-immediate?240_0)" -"(if keep-stops?_1(expand-context-only-immediate? ctx_34) #f))" -"((def-ctx-scopes241_0) #f)" -"((post-expansion242_0) #f)" -"((inner243_0)" -"(let-values(((the-struct_62)(root-expand-context/outer-inner v_184)))" -"(if(expand-context/inner? the-struct_62)" -"(let-values(((phase244_0) phase_106)" -"((namespace245_0) ns_74)" -"((stops246_0)" -"(if keep-stops?_1" -"(expand-context-stops ctx_34)" +"(namespace-visit-available-modules! ns_693 phase_692)" +"(let-values(((v_694) ctx_689))" +"(let-values(((the-struct_695) v_694))" +"(if(expand-context/outer? the-struct_695)" +"(let-values(((context237_696) context_690)" +"((scopes238_697) null)" +"((env239_698) empty-env)" +"((only-immediate?240_699)" +"(if keep-stops?_691(expand-context-only-immediate? ctx_689) #f))" +"((def-ctx-scopes241_700) #f)" +"((post-expansion242_701) #f)" +"((inner243_702)" +"(let-values(((the-struct_703)(root-expand-context/outer-inner v_694)))" +"(if(expand-context/inner? the-struct_703)" +"(let-values(((phase244_704) phase_692)" +"((namespace245_705) ns_693)" +"((stops246_706)" +"(if keep-stops?_691" +"(expand-context-stops ctx_689)" " empty-free-id-set)))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_62)" -"(root-expand-context/inner-module-scopes the-struct_62)" -"(root-expand-context/inner-top-level-bind-scope the-struct_62)" -"(root-expand-context/inner-all-scopes-stx the-struct_62)" -"(root-expand-context/inner-defined-syms the-struct_62)" -"(root-expand-context/inner-counter the-struct_62)" -"(root-expand-context/inner-lift-key the-struct_62)" -"(expand-context/inner-to-parsed? the-struct_62)" -" phase244_0" -" namespace245_0" -"(expand-context/inner-just-once? the-struct_62)" -"(expand-context/inner-module-begin-k the-struct_62)" -"(expand-context/inner-allow-unbound? the-struct_62)" -"(expand-context/inner-in-local-expand? the-struct_62)" -"(expand-context/inner-keep-#%expression? the-struct_62)" -" stops246_0" -"(expand-context/inner-declared-submodule-names the-struct_62)" -"(expand-context/inner-lifts the-struct_62)" -"(expand-context/inner-lift-envs the-struct_62)" -"(expand-context/inner-module-lifts the-struct_62)" -"(expand-context/inner-require-lifts the-struct_62)" -"(expand-context/inner-to-module-lifts the-struct_62)" -"(expand-context/inner-requires+provides the-struct_62)" -"(expand-context/inner-observer the-struct_62)" -"(expand-context/inner-for-serializable? the-struct_62)" -"(expand-context/inner-should-not-encounter-macros? the-struct_62)))" +"(root-expand-context/inner-self-mpi the-struct_703)" +"(root-expand-context/inner-module-scopes the-struct_703)" +"(root-expand-context/inner-top-level-bind-scope the-struct_703)" +"(root-expand-context/inner-all-scopes-stx the-struct_703)" +"(root-expand-context/inner-defined-syms the-struct_703)" +"(root-expand-context/inner-counter the-struct_703)" +"(root-expand-context/inner-lift-key the-struct_703)" +"(expand-context/inner-to-parsed? the-struct_703)" +" phase244_704" +" namespace245_705" +"(expand-context/inner-just-once? the-struct_703)" +"(expand-context/inner-module-begin-k the-struct_703)" +"(expand-context/inner-allow-unbound? the-struct_703)" +"(expand-context/inner-in-local-expand? the-struct_703)" +"(expand-context/inner-keep-#%expression? the-struct_703)" +" stops246_706" +"(expand-context/inner-declared-submodule-names the-struct_703)" +"(expand-context/inner-lifts the-struct_703)" +"(expand-context/inner-lift-envs the-struct_703)" +"(expand-context/inner-module-lifts the-struct_703)" +"(expand-context/inner-require-lifts the-struct_703)" +"(expand-context/inner-to-module-lifts the-struct_703)" +"(expand-context/inner-requires+provides the-struct_703)" +"(expand-context/inner-observer the-struct_703)" +"(expand-context/inner-for-serializable? the-struct_703)" +"(expand-context/inner-should-not-encounter-macros? the-struct_703)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_62)))))" +" the-struct_703)))))" "(expand-context/outer1.1" -" inner243_0" -" post-expansion242_0" -"(root-expand-context/outer-use-site-scopes the-struct_61)" -"(root-expand-context/outer-frame-id the-struct_61)" -" context237_0" -" env239_0" -" scopes238_0" -" def-ctx-scopes241_0" -"(expand-context/outer-binding-layer the-struct_61)" -"(expand-context/outer-reference-records the-struct_61)" -" only-immediate?240_0" -"(expand-context/outer-need-eventually-defined the-struct_61)" -"(expand-context/outer-current-introduction-scopes the-struct_61)" -"(expand-context/outer-current-use-scopes the-struct_61)" -"(expand-context/outer-name the-struct_61)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_61))))))))))))))" +" inner243_702" +" post-expansion242_701" +"(root-expand-context/outer-use-site-scopes the-struct_695)" +"(root-expand-context/outer-frame-id the-struct_695)" +" context237_696" +" env239_698" +" scopes238_697" +" def-ctx-scopes241_700" +"(expand-context/outer-binding-layer the-struct_695)" +"(expand-context/outer-reference-records the-struct_695)" +" only-immediate?240_699" +"(expand-context/outer-need-eventually-defined the-struct_695)" +"(expand-context/outer-current-introduction-scopes the-struct_695)" +"(expand-context/outer-current-use-scopes the-struct_695)" +"(expand-context/outer-name the-struct_695)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_695))))))))))))))" "(define-values" "(expand+eval-for-syntaxes-binding108.1)" "(lambda(log-next?102_0 who104_0 rhs105_0 ids106_0 ctx107_0)" "(begin" " 'expand+eval-for-syntaxes-binding108" -"(let-values(((who_16) who104_0))" -"(let-values(((rhs_16) rhs105_0))" -"(let-values(((ids_19) ids106_0))" -"(let-values(((ctx_35) ctx107_0))" -"(let-values(((log-next?_0) log-next?102_0))" +"(let-values(((who_733) who104_0))" +"(let-values(((rhs_734) rhs105_0))" +"(let-values(((ids_735) ids106_0))" +"(let-values(((ctx_736) ctx107_0))" +"(let-values(((log-next?_737) log-next?102_0))" "(let-values()" -"(let-values(((exp-rhs_0)" -"(let-values(((rhs247_0) rhs_16)((temp248_0)(as-named-context ctx_35 ids_19)))" +"(let-values(((exp-rhs_738)" +"(let-values(((rhs247_741) rhs_734)((temp248_742)(as-named-context ctx_736 ids_735)))" "(expand-transformer92.1" " #f" " #f" @@ -39950,53 +40144,55 @@ static const char *startup_source = " #t" " #f" " unsafe-undefined" -" rhs247_0" -" temp248_0))))" -"(let-values(((phase_107)(add1(expand-context-phase ctx_35))))" -"(let-values(((parsed-rhs_0)" -"(if(expand-context-to-parsed? ctx_35)" -" exp-rhs_0" -"(let-values(((exp-rhs249_0) exp-rhs_0)" -"((temp250_1)" -"(let-values(((temp251_0)(as-to-parsed-context ctx_35)))" -"(context->transformer-context99.1 #f temp251_0 'expression))))" -"(expand9.1 #f #f #f exp-rhs249_0 temp250_1)))))" +" rhs247_741" +" temp248_742))))" +"(let-values(((phase_739)(add1(expand-context-phase ctx_736))))" +"(let-values(((parsed-rhs_740)" +"(if(expand-context-to-parsed? ctx_736)" +" exp-rhs_738" +"(let-values(((exp-rhs249_743) exp-rhs_738)" +"((temp250_744)" +"(let-values(((temp251_745)(as-to-parsed-context ctx_736)))" +"(context->transformer-context99.1 #f temp251_745 'expression))))" +"(expand9.1 #f #f #f exp-rhs249_743 temp250_744)))))" "(begin" -"(if log-next?_0" +"(if log-next?_737" "(let-values()" -"(let-values(((obs_28)(expand-context-observer ctx_35)))" -"(if obs_28(let-values()(let-values()(call-expand-observe obs_28 'next)))(void))))" +"(let-values(((obs_746)(expand-context-observer ctx_736)))" +"(if obs_746" +"(let-values()(let-values()(call-expand-observe obs_746 'next)))" +"(void))))" "(void))" "(values" -" exp-rhs_0" -" parsed-rhs_0" +" exp-rhs_738" +" parsed-rhs_740" "(eval-for-bindings" -" who_16" -" ids_19" -" parsed-rhs_0" -" phase_107" -"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_107)" -" ctx_35)))))))))))))))" +" who_733" +" ids_735" +" parsed-rhs_740" +" phase_739" +"(namespace->namespace-at-phase(expand-context-namespace ctx_736) phase_739)" +" ctx_736)))))))))))))))" "(define-values" "(eval-for-syntaxes-binding)" -"(lambda(who_17 rhs_17 ids_20 ctx_36)" +"(lambda(who_0 rhs_0 ids_0 ctx_0)" "(begin" -"(let-values(((exp-rhs_1 parsed-rhs_1 vals_3)" -"(let-values(((who252_0) who_17)((rhs253_0) rhs_17)((ids254_0) ids_20)((ctx255_0) ctx_36))" -"(expand+eval-for-syntaxes-binding108.1 #t who252_0 rhs253_0 ids254_0 ctx255_0))))" -" vals_3))))" +"(let-values(((exp-rhs_774 parsed-rhs_775 vals_776)" +"(let-values(((who252_777) who_0)((rhs253_778) rhs_0)((ids254_779) ids_0)((ctx255_780) ctx_0))" +"(expand+eval-for-syntaxes-binding108.1 #t who252_777 rhs253_778 ids254_779 ctx255_780))))" +" vals_776))))" "(define-values" "(eval-for-bindings)" -"(lambda(who_18 ids_21 p_40 phase_108 ns_75 ctx_37)" +"(lambda(who_0 ids_0 p_0 phase_0 ns_0 ctx_0)" "(begin" -"(let-values(((compiled_0)" -"(if(can-direct-eval? p_40 ns_75(root-expand-context-self-mpi ctx_37))" +"(let-values(((compiled_787)" +"(if(can-direct-eval? p_0 ns_0(root-expand-context-self-mpi ctx_0))" " #f" "(compile-single" -" p_40" -"(let-values(((ns256_0) ns_75)((phase257_0) phase_108))" -"(make-compile-context14.1 #f unsafe-undefined #f ns256_0 phase257_0 unsafe-undefined))))))" -"(let-values(((vals_4)" +" p_0" +"(let-values(((ns256_790) ns_0)((phase257_791) phase_0))" +"(make-compile-context14.1 #f unsafe-undefined #f ns256_790 phase257_791 unsafe-undefined))))))" +"(let-values(((vals_788)" "(call-with-values" "(lambda()" "(with-continuation-mark" @@ -40004,282 +40200,277 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-expand-context" -" ctx_37" +" ctx_0" " 1/current-namespace" -" ns_75" +" ns_0" " eval-jit-enabled" " #f)" "(let-values()" -"(if compiled_0" -"(eval-single-top compiled_0 ns_75)" -"(direct-eval p_40 ns_75(root-expand-context-self-mpi ctx_37))))))" +"(if compiled_787" +"(eval-single-top compiled_787 ns_0)" +"(direct-eval p_0 ns_0(root-expand-context-self-mpi ctx_0))))))" " list)))" "(begin" -"(if(=(length vals_4)(length ids_21))" +"(if(=(length vals_788)(length ids_0))" "(void)" "(let-values()" "(apply" " raise-result-arity-error" -" who_18" -"(length ids_21)" -"(if(null? ids_21)" +" who_0" +"(length ids_0)" +"(if(null? ids_0)" " (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_420)(begin(datum->syntax$1 #f 'props s_420 s_420))))" -"(define-values(keep-properties-only~)(lambda(s_421)(begin #f)))" +" (format \"\\n in: definition of ~a~a\" (syntax-e$1 (car ids_0)) (if (pair? (cdr ids_0)) \" ...\" \"\"))))" +" vals_788)))" +" vals_788))))))" +"(define-values(keep-properties-only)(lambda(s_0)(begin(datum->syntax$1 #f 'props s_0 s_0))))" +"(define-values(keep-properties-only~)(lambda(s_0)(begin #f)))" "(define-values" "(keep-as-needed119.1)" "(lambda(for-track?111_0 keep-for-error?113_0 keep-for-parsed?112_0 ctx117_0 s118_0)" "(begin" " 'keep-as-needed119" -"(let-values(((ctx_38) ctx117_0))" -"(let-values(((s_422) s118_0))" +"(let-values(((ctx_799) ctx117_0))" +"(let-values(((s_800) s118_0))" "(let-values()" -"(let-values(((keep-for-parsed?_0) keep-for-parsed?112_0))" -"(let-values(((keep-for-error?_0) keep-for-error?113_0))" +"(let-values(((keep-for-parsed?_802) keep-for-parsed?112_0))" +"(let-values(((keep-for-error?_803) keep-for-error?113_0))" "(let-values()" -"(let-values(((d_33)(syntax-e$1 s_422)))" -"(let-values(((keep-e_0)" -"(if(symbol? d_33)" -"(let-values() d_33)" -"(if(if(pair? d_33)(syntax-identifier?(car d_33)) #f)" -"(let-values()(syntax-e$1(car d_33)))" +"(let-values(((d_804)(syntax-e$1 s_800)))" +"(let-values(((keep-e_805)" +"(if(symbol? d_804)" +"(let-values() d_804)" +"(if(if(pair? d_804)(syntax-identifier?(car d_804)) #f)" +"(let-values()(syntax-e$1(car d_804)))" "(let-values() #f)))))" -"(if(expand-context-to-parsed? ctx_38)" +"(if(expand-context-to-parsed? ctx_799)" "(let-values()" -"(if(let-values(((or-part_276) keep-for-parsed?_0))" -"(if or-part_276 or-part_276 keep-for-error?_0))" -"(datum->syntax$1 #f keep-e_0 s_422 s_422)" +"(if(let-values(((or-part_806) keep-for-parsed?_802))" +"(if or-part_806 or-part_806 keep-for-error?_803))" +"(datum->syntax$1 #f keep-e_805 s_800 s_800)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_422) keep-e_0 s_422 s_422)" -" s_422))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_800) keep-e_805 s_800 s_800)" +" s_800))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_154 trans-idss_0)" +"(lambda(s_0 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_154)" +"(let-values() s_0)" "(let-values()" "(syntax-property$1" -" s_154" +" s_0" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_197)(syntax-property$1 s_154 'disappeared-binding)))" -"(if or-part_197 or-part_197 null)))))))))" +"(let-values(((or-part_838)(syntax-property$1 s_0 'disappeared-binding)))" +"(if or-part_838 or-part_838 null)))))))))" "(define-values" "(increment-binding-layer)" -"(lambda(ids_22 ctx_39 layer-val_0)" +"(lambda(ids_0 ctx_0 layer-val_0)" "(begin" -"(if((letrec-values(((loop_94)" -"(lambda(ids_23)" +"(if((letrec-values(((loop_842)" +"(lambda(ids_1)" "(begin" " 'loop" -"(let-values(((or-part_198)(identifier? ids_23)))" -"(if or-part_198" -" or-part_198" -"(if(pair? ids_23)" -"(let-values(((or-part_199)(loop_94(car ids_23))))" -"(if or-part_199 or-part_199(loop_94(cdr ids_23))))" +"(let-values(((or-part_844)(identifier? ids_1)))" +"(if or-part_844" +" or-part_844" +"(if(pair? ids_1)" +"(let-values(((or-part_845)(loop_842(car ids_1))))" +"(if or-part_845 or-part_845(loop_842(cdr ids_1))))" " #f)))))))" -" loop_94)" -" ids_22)" +" loop_842)" +" ids_0)" " layer-val_0" -"(expand-context-binding-layer ctx_39)))))" +"(expand-context-binding-layer ctx_0)))))" "(define-values" "(wrap-lifts-as-parsed-let)" -"(lambda(lifts_7 exp-s_3 rebuild-s_1 ctx_40 parse-rhs_0)" +"(lambda(lifts_0 exp-s_0 rebuild-s_0 ctx_0 parse-rhs_0)" "(begin" -"(let-values(((idss+keyss+rhss_0)(get-lifts-as-lists lifts_7)))" -"((letrec-values(((lets-loop_0)" -"(lambda(idss+keyss+rhss_1 rhs-ctx_1)" +"(let-values(((idss+keyss+rhss_851)(get-lifts-as-lists lifts_0)))" +"((letrec-values(((lets-loop_852)" +"(lambda(idss+keyss+rhss_0 rhs-ctx_0)" "(begin" " 'lets-loop" -"(if(null? idss+keyss+rhss_1)" -"(let-values() exp-s_3)" +"(if(null? idss+keyss+rhss_0)" +"(let-values() exp-s_0)" "(let-values()" -"(let-values(((ids_24)(caar idss+keyss+rhss_1)))" -"(let-values(((keys_4)(cadar idss+keyss+rhss_1)))" -"(let-values(((rhs_18)(caddar idss+keyss+rhss_1)))" -"(let-values(((exp-rhs_2)(parse-rhs_0 rhs_18 rhs-ctx_1)))" +"(let-values(((ids_855)(caar idss+keyss+rhss_0)))" +"(let-values(((keys_856)(cadar idss+keyss+rhss_0)))" +"(let-values(((rhs_857)(caddar idss+keyss+rhss_0)))" +"(let-values(((exp-rhs_858)(parse-rhs_0 rhs_857 rhs-ctx_0)))" "(parsed-let-values17.1" -" rebuild-s_1" -"(list ids_24)" -"(list(list keys_4 exp-rhs_2))" +" rebuild-s_0" +"(list ids_855)" +"(list(list keys_856 exp-rhs_858))" "(list" -"(lets-loop_0" -"(cdr idss+keyss+rhss_1)" -"(let-values(((v_185) rhs-ctx_1))" -"(let-values(((the-struct_63) v_185))" -"(if(expand-context/outer? the-struct_63)" -"(let-values(((env258_0)" -"(let-values(((lst_283) ids_24)((lst_284) keys_4))" +"(lets-loop_852" +"(cdr idss+keyss+rhss_0)" +"(let-values(((v_859) rhs-ctx_0))" +"(let-values(((the-struct_860) v_859))" +"(if(expand-context/outer? the-struct_860)" +"(let-values(((env258_861)" +"(let-values(((lst_863) ids_855)((lst_864) keys_856))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_283)))" +"(let-values()(check-list lst_863)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_284)))" -"((letrec-values(((for-loop_254)" -"(lambda(env_3 lst_285 lst_286)" +"(let-values()(check-list lst_864)))" +"((letrec-values(((for-loop_865)" +"(lambda(env_0 lst_0 lst_1)" "(begin" " 'for-loop" -"(if(if(pair? lst_285)" -"(pair? lst_286)" +"(if(if(pair? lst_0)" +"(pair? lst_1)" " #f)" -"(let-values(((id_68)" +"(let-values(((id_869)" "(unsafe-car" -" lst_285))" -"((rest_159)" +" lst_0))" +"((rest_870)" "(unsafe-cdr" -" lst_285))" -"((key_81)" +" lst_0))" +"((key_871)" "(unsafe-car" -" lst_286))" -"((rest_160)" +" lst_1))" +"((rest_872)" "(unsafe-cdr" -" lst_286)))" -"(let-values(((env_4)" -"(let-values(((env_5)" -" env_3))" -"(let-values(((env_6)" +" lst_1)))" +"(let-values(((env_873)" +"(let-values(((env_874)" +" env_0))" +"(let-values(((env_875)" "(let-values()" "(env-extend" -" env_5" -" key_81" +" env_874" +" key_871" "(local-variable1.1" -" id_68)))))" +" id_869)))))" "(values" -" env_6)))))" +" env_875)))))" "(if(not #f)" -"(for-loop_254" -" env_4" -" rest_159" -" rest_160)" -" env_4)))" -" env_3)))))" -" for-loop_254)" -"(expand-context-env rhs-ctx_1)" -" lst_283" -" lst_284))))" -"((inner259_0)(root-expand-context/outer-inner v_185)))" +"(for-loop_865" +" env_873" +" rest_870" +" rest_872)" +" env_873)))" +" env_0)))))" +" for-loop_865)" +"(expand-context-env rhs-ctx_0)" +" lst_863" +" lst_864))))" +"((inner259_862)" +"(root-expand-context/outer-inner v_859)))" "(expand-context/outer1.1" -" inner259_0" -"(root-expand-context/outer-post-expansion the-struct_63)" -"(root-expand-context/outer-use-site-scopes the-struct_63)" -"(root-expand-context/outer-frame-id the-struct_63)" -"(expand-context/outer-context the-struct_63)" -" env258_0" -"(expand-context/outer-scopes the-struct_63)" -"(expand-context/outer-def-ctx-scopes the-struct_63)" -"(expand-context/outer-binding-layer the-struct_63)" -"(expand-context/outer-reference-records the-struct_63)" -"(expand-context/outer-only-immediate? the-struct_63)" -"(expand-context/outer-need-eventually-defined the-struct_63)" -"(expand-context/outer-current-introduction-scopes the-struct_63)" -"(expand-context/outer-current-use-scopes the-struct_63)" -"(expand-context/outer-name the-struct_63)))" +" inner259_862" +"(root-expand-context/outer-post-expansion the-struct_860)" +"(root-expand-context/outer-use-site-scopes the-struct_860)" +"(root-expand-context/outer-frame-id the-struct_860)" +"(expand-context/outer-context the-struct_860)" +" env258_861" +"(expand-context/outer-scopes the-struct_860)" +"(expand-context/outer-def-ctx-scopes the-struct_860)" +"(expand-context/outer-binding-layer the-struct_860)" +"(expand-context/outer-reference-records the-struct_860)" +"(expand-context/outer-only-immediate? the-struct_860)" +"(expand-context/outer-need-eventually-defined the-struct_860)" +"(expand-context/outer-current-introduction-scopes the-struct_860)" +"(expand-context/outer-current-use-scopes the-struct_860)" +"(expand-context/outer-name the-struct_860)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_63)))))))))))))))))" -" lets-loop_0)" -" idss+keyss+rhss_0" -" ctx_40)))))" +" the-struct_860)))))))))))))))))" +" lets-loop_852)" +" idss+keyss+rhss_851" +" ctx_0)))))" "(define-values" "(rename-transformer-target-in-context)" -"(lambda(t_57 ctx_41)" +"(lambda(t_0 ctx_0)" "(begin" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_41)" -"(let-values()(1/rename-transformer-target t_57))))))" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_0)" +"(let-values()(1/rename-transformer-target t_0))))))" "(define-values" "(maybe-install-free=id-in-context!)" -"(lambda(val_69 id_69 phase_109 ctx_42)" +"(lambda(val_0 id_0 phase_0 ctx_0)" "(begin" -"(if(1/rename-transformer? val_69)" +"(if(1/rename-transformer? val_0)" "(let-values()" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_42)" -"(let-values()(maybe-install-free=id! val_69 id_69 phase_109))))" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) current-expand-context ctx_0)" +"(let-values()(maybe-install-free=id! val_0 id_0 phase_0))))" "(void)))))" "(define-values" "(transfer-srcloc)" -"(lambda(new-s_1 old-s_0)" +"(lambda(new-s_0 old-s_0)" "(begin" -"(let-values(((srcloc_7)(syntax-srcloc old-s_0)))" -"(if srcloc_7" -"(let-values(((the-struct_64) new-s_1))" -"(if(syntax?$1 the-struct_64)" -"(let-values(((srcloc260_0) srcloc_7))" +"(let-values(((srcloc_884)(syntax-srcloc old-s_0)))" +"(if srcloc_884" +"(let-values(((the-struct_885) new-s_0))" +"(if(syntax?$1 the-struct_885)" +"(let-values(((srcloc260_886) srcloc_884))" "(syntax1.1" -"(syntax-content the-struct_64)" -"(syntax-scopes the-struct_64)" -"(syntax-shifted-multi-scopes the-struct_64)" -"(syntax-scope-propagations+tamper the-struct_64)" -"(syntax-mpi-shifts the-struct_64)" -" srcloc260_0" -"(syntax-props the-struct_64)" -"(syntax-inspector the-struct_64)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_64)))" -" new-s_1)))))" +"(syntax-content the-struct_885)" +"(syntax-scopes the-struct_885)" +"(syntax-shifted-multi-scopes the-struct_885)" +"(syntax-scope-propagations+tamper the-struct_885)" +"(syntax-mpi-shifts the-struct_885)" +" srcloc260_886" +"(syntax-props the-struct_885)" +"(syntax-inspector the-struct_885)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_885)))" +" new-s_0)))))" "(define-values" "(stop-ids->all-stop-ids)" -"(lambda(stop-ids_0 phase_45)" +"(lambda(stop-ids_0 phase_0)" "(begin" "(if(null? stop-ids_0)" "(let-values() stop-ids_0)" "(let-values()" -"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_45)))" +"(let-values(((p-core-stx_3)(syntax-shift-phase-level$1 core-stx phase_0)))" "(if(if(= 1(length stop-ids_0))" -"(free-identifier=?$1(car stop-ids_0)(datum->syntax$1 p-core-stx_1 'module*) phase_45 phase_45)" +"(free-identifier=?$1(car stop-ids_0)(datum->syntax$1 p-core-stx_3 'module*) phase_0 phase_0)" " #f)" "(let-values() stop-ids_0)" "(let-values()" "(append" " stop-ids_0" "(reverse$1" -"(let-values(((lst_103) auto-stop-syms))" +"(let-values(((lst_4) auto-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_103)))" -"((letrec-values(((for-loop_117)" -"(lambda(fold-var_91 lst_84)" +"(let-values()(check-list lst_4)))" +"((letrec-values(((for-loop_5)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_84)" -"(let-values(((sym_71)(unsafe-car lst_84))" -"((rest_50)(unsafe-cdr lst_84)))" -"(let-values(((fold-var_92)" -"(let-values(((fold-var_93) fold-var_91))" -"(let-values(((fold-var_60)" +"(if(pair? lst_0)" +"(let-values(((sym_8)(unsafe-car lst_0))((rest_9)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_10)" +"(let-values(((fold-var_11) fold-var_0))" +"(let-values(((fold-var_12)" "(let-values()" "(cons" "(let-values()" -"(datum->syntax$1" -" p-core-stx_1" -" sym_71))" -" fold-var_93))))" -"(values fold-var_60)))))" -"(if(not #f)(for-loop_117 fold-var_92 rest_50) fold-var_92)))" -" fold-var_91)))))" -" for-loop_117)" +"(datum->syntax$1 p-core-stx_3 sym_8))" +" fold-var_11))))" +"(values fold-var_12)))))" +"(if(not #f)(for-loop_5 fold-var_10 rest_9) fold-var_10)))" +" fold-var_0)))))" +" for-loop_5)" " null" -" lst_103)))))))))))))" +" lst_4)))))))))))))" "(define-values" "(auto-stop-syms)" " '(begin" @@ -40299,33 +40490,33 @@ static const char *startup_source = " #%variable-reference))" "(define-values" "(module-expand-stop-ids)" -"(lambda(phase_110)" +"(lambda(phase_0)" "(begin" -"(let-values(((p-core-stx_2)(syntax-shift-phase-level$1 core-stx phase_110)))" +"(let-values(((p-core-stx_14)(syntax-shift-phase-level$1 core-stx phase_0)))" "(reverse$1" -"(let-values(((lst_102) module-stop-syms))" +"(let-values(((lst_15) module-stop-syms))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_102)))" -"((letrec-values(((for-loop_116)" -"(lambda(fold-var_239 lst_262)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_15)))" +"((letrec-values(((for-loop_16)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_262)" -"(let-values(((sym_18)(unsafe-car lst_262))((rest_161)(unsafe-cdr lst_262)))" -"(let-values(((fold-var_221)" -"(let-values(((fold-var_222) fold-var_239))" -"(let-values(((fold-var_223)" +"(if(pair? lst_0)" +"(let-values(((sym_19)(unsafe-car lst_0))((rest_20)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_21)" +"(let-values(((fold-var_22) fold-var_0))" +"(let-values(((fold-var_23)" "(let-values()" "(cons" "(let-values()" -"(datum->syntax$1 p-core-stx_2 sym_18))" -" fold-var_222))))" -"(values fold-var_223)))))" -"(if(not #f)(for-loop_116 fold-var_221 rest_161) fold-var_221)))" -" fold-var_239)))))" -" for-loop_116)" +"(datum->syntax$1 p-core-stx_14 sym_19))" +" fold-var_22))))" +"(values fold-var_23)))))" +"(if(not #f)(for-loop_16 fold-var_21 rest_20) fold-var_21)))" +" fold-var_0)))))" +" for-loop_16)" " null" -" lst_102))))))))" +" lst_15))))))))" "(define-values" "(module-stop-syms)" "(append" @@ -40340,7 +40531,7 @@ static const char *startup_source = " internal-definition-context-add-scope?" " internal-definition-context-env-mixins" " internal-definition-context-parent-ctx)" -"(let-values(((struct:_32 make-_32 ?_32 -ref_32 -set!_32)" +"(let-values(((struct:_15 make-_16 ?_17 -ref_18 -set!_19)" "(let-values()" "(let-values()" "(make-struct-type" @@ -40356,1145 +40547,1145 @@ static const char *startup_source = " #f" " 'internal-definition-context)))))" "(values" -" struct:_32" -" make-_32" -" ?_32" -"(make-struct-field-accessor -ref_32 0 'frame-id)" -"(make-struct-field-accessor -ref_32 1 'scope)" -"(make-struct-field-accessor -ref_32 2 'add-scope?)" -"(make-struct-field-accessor -ref_32 3 'env-mixins)" -"(make-struct-field-accessor -ref_32 4 'parent-ctx))))" +" struct:_15" +" make-_16" +" ?_17" +"(make-struct-field-accessor -ref_18 0 'frame-id)" +"(make-struct-field-accessor -ref_18 1 'scope)" +"(make-struct-field-accessor -ref_18 2 'add-scope?)" +"(make-struct-field-accessor -ref_18 3 'env-mixins)" +"(make-struct-field-accessor -ref_18 4 'parent-ctx))))" "(define-values" "(struct:env-mixin env-mixin2.1 env-mixin? env-mixin-id env-mixin-sym env-mixin-value env-mixin-cache)" -"(let-values(((struct:_72 make-_72 ?_72 -ref_72 -set!_72)" +"(let-values(((struct:_55 make-_56 ?_57 -ref_58 -set!_59)" "(let-values()" "(let-values()" "(make-struct-type 'env-mixin #f 4 0 #f null(current-inspector) #f '(0 1 2 3) #f 'env-mixin)))))" "(values" -" struct:_72" -" make-_72" -" ?_72" -"(make-struct-field-accessor -ref_72 0 'id)" -"(make-struct-field-accessor -ref_72 1 'sym)" -"(make-struct-field-accessor -ref_72 2 'value)" -"(make-struct-field-accessor -ref_72 3 'cache))))" +" struct:_55" +" make-_56" +" ?_57" +"(make-struct-field-accessor -ref_58 0 'id)" +"(make-struct-field-accessor -ref_58 1 'sym)" +"(make-struct-field-accessor -ref_58 2 'value)" +"(make-struct-field-accessor -ref_58 3 'cache))))" "(define-values" "(1/syntax-local-make-definition-context)" -"(let-values(((syntax-local-make-definition-context5_0)" +"(let-values(((syntax-local-make-definition-context5_90)" "(lambda(parent-ctx3_0 add-scope?4_0)" "(begin" " 'syntax-local-make-definition-context5" -"(let-values(((parent-ctx_0) parent-ctx3_0))" -"(let-values(((add-scope?_0) add-scope?4_0))" +"(let-values(((parent-ctx_93) parent-ctx3_0))" +"(let-values(((add-scope?_94) add-scope?4_0))" "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_64)(not parent-ctx_0)))" -"(if or-part_64" -" or-part_64" -"(1/internal-definition-context? parent-ctx_0)))" +"(if(let-values(((or-part_99)(not parent-ctx_93)))" +"(if or-part_99" +" or-part_99" +"(1/internal-definition-context? parent-ctx_93)))" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-make-definition-context" " \"(or/c #f internal-definition-context?)\"" -" parent-ctx_0)))" +" parent-ctx_93)))" "(values))))" -"(let-values(((ctx_43)" -"(let-values(((temp49_1) 'syntax-local-make-definition-context))" -"(get-current-expand-context16.1 #f temp49_1))))" -"(let-values(((frame-id_8)" -"(let-values(((or-part_65)(root-expand-context-frame-id ctx_43)))" -"(if or-part_65" -" or-part_65" -"(let-values(((or-part_227)" -"(if parent-ctx_0" -"(internal-definition-context-frame-id parent-ctx_0)" +"(let-values(((ctx_95)" +"(let-values(((temp49_100) 'syntax-local-make-definition-context))" +"(get-current-expand-context16.1 #f temp49_100))))" +"(let-values(((frame-id_96)" +"(let-values(((or-part_101)(root-expand-context-frame-id ctx_95)))" +"(if or-part_101" +" or-part_101" +"(let-values(((or-part_102)" +"(if parent-ctx_93" +"(internal-definition-context-frame-id parent-ctx_93)" " #f)))" -"(if or-part_227 or-part_227(gensym)))))))" -"(let-values(((sc_33)(new-scope 'intdef)))" -"(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" +"(if or-part_102 or-part_102(gensym)))))))" +"(let-values(((sc_97)(new-scope 'intdef)))" +"(let-values(((def-ctx-scopes_98)(expand-context-def-ctx-scopes ctx_95)))" "(begin" -"(if def-ctx-scopes_4" +"(if def-ctx-scopes_98" "(let-values()" -"(set-box! def-ctx-scopes_4(cons sc_33(unbox def-ctx-scopes_4))))" +"(set-box! def-ctx-scopes_98(cons sc_97(unbox def-ctx-scopes_98))))" "(void))" "(internal-definition-context1.1" -" frame-id_8" -" sc_33" -" add-scope?_0" +" frame-id_96" +" sc_97" +" add-scope?_94" "(box null)" -" parent-ctx_0))))))))))))))" +" parent-ctx_93))))))))))))))" "(case-lambda" -"(()(begin 'syntax-local-make-definition-context(syntax-local-make-definition-context5_0 #f #t)))" -"((parent-ctx_1 add-scope?4_1)(syntax-local-make-definition-context5_0 parent-ctx_1 add-scope?4_1))" -"((parent-ctx3_1)(syntax-local-make-definition-context5_0 parent-ctx3_1 #t)))))" +"(()(begin 'syntax-local-make-definition-context(syntax-local-make-definition-context5_90 #f #t)))" +"((parent-ctx_0 add-scope?4_0)(syntax-local-make-definition-context5_90 parent-ctx_0 add-scope?4_0))" +"((parent-ctx3_0)(syntax-local-make-definition-context5_90 parent-ctx3_0 #t)))))" "(define-values" "(1/syntax-local-bind-syntaxes)" -"(let-values(((syntax-local-bind-syntaxes11_0)" +"(let-values(((syntax-local-bind-syntaxes11_106)" "(lambda(ids8_0 s9_0 intdef10_0 extra-intdefs7_0)" "(begin" " 'syntax-local-bind-syntaxes11" -"(let-values(((ids_25) ids8_0))" -"(let-values(((s_423) s9_0))" -"(let-values(((intdef_0) intdef10_0))" -"(let-values(((extra-intdefs_0) extra-intdefs7_0))" +"(let-values(((ids_111) ids8_0))" +"(let-values(((s_112) s9_0))" +"(let-values(((intdef_113) intdef10_0))" +"(let-values(((extra-intdefs_114) extra-intdefs7_0))" "(let-values()" "(let-values((()" "(begin" -"(if(if(list? ids_25)(andmap2 identifier? ids_25) #f)" +"(if(if(list? ids_111)(andmap2 identifier? ids_111) #f)" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-bind-syntaxes" " \"(listof identifier?)\"" -" ids_25)))" +" ids_111)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_98)(not s_423)))" -"(if or-part_98 or-part_98(syntax?$1 s_423)))" +"(if(let-values(((or-part_122)(not s_112)))" +"(if or-part_122 or-part_122(syntax?$1 s_112)))" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-bind-syntaxes" " \"(or/c syntax? #f)\"" -" s_423)))" +" s_112)))" "(values))))" "(let-values((()" "(begin" -"(if(1/internal-definition-context? intdef_0)" +"(if(1/internal-definition-context? intdef_113)" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-bind-syntaxes" " \"internal-definition-context?\"" -" intdef_0)))" +" intdef_113)))" "(values))))" "(let-values((()" "(begin" -"(if(intdefs? extra-intdefs_0)" +"(if(intdefs? extra-intdefs_114)" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-bind-syntaxes" " intdefs?-string" -" extra-intdefs_0)))" +" extra-intdefs_114)))" "(values))))" -"(let-values(((ctx_44)" -"(let-values(((temp50_1) 'local-expand))" -"(get-current-expand-context16.1 #f temp50_1))))" +"(let-values(((ctx_115)" +"(let-values(((temp50_123) 'local-expand))" +"(get-current-expand-context16.1 #f temp50_123))))" "(let-values((()" "(begin" -"(let-values(((obs_29)(expand-context-observer ctx_44)))" -"(if obs_29" +"(let-values(((obs_124)(expand-context-observer ctx_115)))" +"(if obs_124" "(let-values()" "(let-values()" -"(call-expand-observe obs_29 'local-bind ids_25)))" +"(call-expand-observe obs_124 'local-bind ids_111)))" "(void)))" "(values))))" -"(let-values(((phase_7)(expand-context-phase ctx_44)))" -"(let-values(((all-intdefs_0)" -"(if(list? extra-intdefs_0)" -"(cons intdef_0 extra-intdefs_0)" -"(list intdef_0 extra-intdefs_0))))" -"(let-values(((intdef-ids_0)" +"(let-values(((phase_116)(expand-context-phase ctx_115)))" +"(let-values(((all-intdefs_117)" +"(if(list? extra-intdefs_114)" +"(cons intdef_113 extra-intdefs_114)" +"(list intdef_113 extra-intdefs_114))))" +"(let-values(((intdef-ids_118)" "(reverse$1" -"(let-values(((lst_188) ids_25))" +"(let-values(((lst_125) ids_111))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_188)))" -"((letrec-values(((for-loop_121)" -"(lambda(fold-var_235 lst_287)" +"(let-values()(check-list lst_125)))" +"((letrec-values(((for-loop_126)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_287)" -"(let-values(((id_70)" +"(if(pair? lst_0)" +"(let-values(((id_129)" "(unsafe-car" -" lst_287))" -"((rest_162)" +" lst_0))" +"((rest_130)" "(unsafe-cdr" -" lst_287)))" -"(let-values(((fold-var_240)" -"(let-values(((fold-var_241)" -" fold-var_235))" -"(let-values(((fold-var_242)" +" lst_0)))" +"(let-values(((fold-var_131)" +"(let-values(((fold-var_132)" +" fold-var_0))" +"(let-values(((fold-var_133)" "(let-values()" "(cons" "(let-values()" -"(let-values(((pre-id_0)" +"(let-values(((pre-id_134)" "(remove-use-site-scopes" "(flip-introduction-scopes" -" id_70" -" ctx_44)" -" ctx_44)))" -"(let-values(((temp51_1)" -"(let-values(((pre-id53_0)" -" pre-id_0)" -"((intdef54_0)" -" intdef_0)" -"((temp55_1)" +" id_129" +" ctx_115)" +" ctx_115)))" +"(let-values(((temp51_135)" +"(let-values(((pre-id53_138)" +" pre-id_134)" +"((intdef54_139)" +" intdef_113)" +"((temp55_140)" " #t))" "(add-intdef-scopes24.1" " unsafe-undefined" -" temp55_1" -" pre-id53_0" -" intdef54_0)))" -"((extra-intdefs52_0)" -" extra-intdefs_0))" +" temp55_140" +" pre-id53_138" +" intdef54_139)))" +"((extra-intdefs52_136)" +" extra-intdefs_114))" "(add-intdef-scopes24.1" " unsafe-undefined" " #f" -" temp51_1" -" extra-intdefs52_0))))" -" fold-var_241))))" +" temp51_135" +" extra-intdefs52_136))))" +" fold-var_132))))" "(values" -" fold-var_242)))))" +" fold-var_133)))))" "(if(not #f)" -"(for-loop_121" -" fold-var_240" -" rest_162)" -" fold-var_240)))" -" fold-var_235)))))" -" for-loop_121)" +"(for-loop_126" +" fold-var_131" +" rest_130)" +" fold-var_131)))" +" fold-var_0)))))" +" for-loop_126)" " null" -" lst_188))))))" +" lst_125))))))" "(let-values((()" "(begin" -"(let-values(((obs_30)" -"(expand-context-observer ctx_44)))" -"(if obs_30" +"(let-values(((obs_141)" +"(expand-context-observer ctx_115)))" +"(if obs_141" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_30" +" obs_141" " 'rename-list" -" intdef-ids_0)))" +" intdef-ids_118)))" "(void)))" "(values))))" -"(let-values(((syms_20)" +"(let-values(((syms_119)" "(reverse$1" -"(let-values(((lst_167) intdef-ids_0))" +"(let-values(((lst_142) intdef-ids_118))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_167)))" -"((letrec-values(((for-loop_194)" -"(lambda(fold-var_165 lst_168)" +"(let-values()(check-list lst_142)))" +"((letrec-values(((for-loop_143)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_168)" -"(let-values(((intdef-id_0)" +"(if(pair? lst_0)" +"(let-values(((intdef-id_146)" "(unsafe-car" -" lst_168))" -"((rest_163)" +" lst_0))" +"((rest_147)" "(unsafe-cdr" -" lst_168)))" -"(let-values(((fold-var_243)" -"(let-values(((fold-var_179)" -" fold-var_165))" -"(let-values(((fold-var_244)" +" lst_0)))" +"(let-values(((fold-var_148)" +"(let-values(((fold-var_149)" +" fold-var_0))" +"(let-values(((fold-var_150)" "(let-values()" "(cons" "(let-values()" -"(let-values(((intdef-id56_0)" -" intdef-id_0)" -"((phase57_0)" -" phase_7)" -"((temp58_1)" +"(let-values(((intdef-id56_152)" +" intdef-id_146)" +"((phase57_153)" +" phase_116)" +"((temp58_154)" "(root-expand-context-counter" -" ctx_44))" -"((temp59_3)" +" ctx_115))" +"((temp59_155)" "(internal-definition-context-frame-id" -" intdef_0)))" +" intdef_113)))" "(add-local-binding!37.1" -" temp59_3" +" temp59_155" " #f" -" intdef-id56_0" -" phase57_0" -" temp58_1)))" -" fold-var_179))))" +" intdef-id56_152" +" phase57_153" +" temp58_154)))" +" fold-var_149))))" "(values" -" fold-var_244)))))" +" fold-var_150)))))" "(if(not #f)" -"(for-loop_194" -" fold-var_243" -" rest_163)" -" fold-var_243)))" -" fold-var_165)))))" -" for-loop_194)" +"(for-loop_143" +" fold-var_148" +" rest_147)" +" fold-var_148)))" +" fold-var_0)))))" +" for-loop_143)" " null" -" lst_167))))))" -"(let-values(((vals_5)" -"(if s_423" +" lst_142))))))" +"(let-values(((vals_120)" +"(if s_112" "(let-values()" -"(let-values(((input-s_0)" +"(let-values(((input-s_156)" "(flip-introduction-scopes" -"(let-values(((s60_0) s_423)" -"((all-intdefs61_0)" -" all-intdefs_0))" +"(let-values(((s60_159) s_112)" +"((all-intdefs61_160)" +" all-intdefs_117))" "(add-intdef-scopes24.1" " unsafe-undefined" " #f" -" s60_0" -" all-intdefs61_0))" -" ctx_44)))" -"(let-values(((tmp-env_0)" -"(let-values(((lst_288) syms_20)" -"((lst_140)" -" intdef-ids_0))" +" s60_159" +" all-intdefs61_160))" +" ctx_115)))" +"(let-values(((tmp-env_157)" +"(let-values(((lst_161) syms_119)" +"((lst_162)" +" intdef-ids_118))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_288)))" +"(check-list lst_161)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_140)))" -"((letrec-values(((for-loop_173)" -"(lambda(env_7" -" lst_141" -" lst_289)" +"(check-list lst_162)))" +"((letrec-values(((for-loop_163)" +"(lambda(env_0" +" lst_0" +" lst_1)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_141)" +" lst_0)" "(pair?" -" lst_289)" +" lst_1)" " #f)" -"(let-values(((sym_72)" +"(let-values(((sym_167)" "(unsafe-car" -" lst_141))" -"((rest_164)" +" lst_0))" +"((rest_168)" "(unsafe-cdr" -" lst_141))" -"((intdef-id_1)" +" lst_0))" +"((intdef-id_169)" "(unsafe-car" -" lst_289))" -"((rest_165)" +" lst_1))" +"((rest_170)" "(unsafe-cdr" -" lst_289)))" -"(let-values(((env_8)" -"(let-values(((env_9)" -" env_7))" -"(let-values(((env_10)" +" lst_1)))" +"(let-values(((env_171)" +"(let-values(((env_172)" +" env_0))" +"(let-values(((env_173)" "(let-values()" "(hash-set" -" env_9" -" sym_72" +" env_172" +" sym_167" "(local-variable1.1" -" intdef-id_1)))))" +" intdef-id_169)))))" "(values" -" env_10)))))" +" env_173)))))" "(if(not" " #f)" -"(for-loop_173" -" env_8" -" rest_164" -" rest_165)" -" env_8)))" -" env_7)))))" -" for-loop_173)" -"(expand-context-env ctx_44)" -" lst_288" -" lst_140)))))" +"(for-loop_163" +" env_171" +" rest_168" +" rest_170)" +" env_171)))" +" env_0)))))" +" for-loop_163)" +"(expand-context-env ctx_115)" +" lst_161" +" lst_162)))))" "(let-values((()" "(begin" -"(let-values(((obs_31)" +"(let-values(((obs_174)" "(expand-context-observer" -" ctx_44)))" -"(if obs_31" +" ctx_115)))" +"(if obs_174" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_31" +" obs_174" " 'enter-bind)))" "(void)))" "(values))))" -"(let-values(((vals_6)" +"(let-values(((vals_158)" "(eval-for-syntaxes-binding" " 'syntax-local-bind-syntaxes" -" input-s_0" -" ids_25" -"(let-values(((temp62_2)" -"(let-values(((v_66)" -" ctx_44))" -"(let-values(((the-struct_65)" -" v_66))" +" input-s_156" +" ids_111" +"(let-values(((temp62_176)" +"(let-values(((v_179)" +" ctx_115))" +"(let-values(((the-struct_180)" +" v_179))" "(if(expand-context/outer?" -" the-struct_65)" -"(let-values(((env65_0)" -" tmp-env_0)" -"((inner66_0)" +" the-struct_180)" +"(let-values(((env65_181)" +" tmp-env_157)" +"((inner66_182)" "(root-expand-context/outer-inner" -" v_66)))" +" v_179)))" "(expand-context/outer1.1" -" inner66_0" +" inner66_182" "(root-expand-context/outer-post-expansion" -" the-struct_65)" +" the-struct_180)" "(root-expand-context/outer-use-site-scopes" -" the-struct_65)" +" the-struct_180)" "(root-expand-context/outer-frame-id" -" the-struct_65)" +" the-struct_180)" "(expand-context/outer-context" -" the-struct_65)" -" env65_0" +" the-struct_180)" +" env65_181" "(expand-context/outer-scopes" -" the-struct_65)" +" the-struct_180)" "(expand-context/outer-def-ctx-scopes" -" the-struct_65)" +" the-struct_180)" "(expand-context/outer-binding-layer" -" the-struct_65)" +" the-struct_180)" "(expand-context/outer-reference-records" -" the-struct_65)" +" the-struct_180)" "(expand-context/outer-only-immediate?" -" the-struct_65)" +" the-struct_180)" "(expand-context/outer-need-eventually-defined" -" the-struct_65)" +" the-struct_180)" "(expand-context/outer-current-introduction-scopes" -" the-struct_65)" +" the-struct_180)" "(expand-context/outer-current-use-scopes" -" the-struct_65)" +" the-struct_180)" "(expand-context/outer-name" -" the-struct_65)))" +" the-struct_180)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_65)))))" -"((temp63_2)" +" the-struct_180)))))" +"((temp63_177)" " 'expression)" -"((all-intdefs64_0)" -" all-intdefs_0))" +"((all-intdefs64_178)" +" all-intdefs_117))" "(make-local-expand-context44.1" -" temp63_2" +" temp63_177" " #t" -" all-intdefs64_0" +" all-intdefs64_178" " #t" " unsafe-undefined" " #f" " #f" " #f" -" temp62_2)))))" +" temp62_176)))))" "(begin" -"(let-values(((obs_32)" +"(let-values(((obs_183)" "(expand-context-observer" -" ctx_44)))" -"(if obs_32" +" ctx_115)))" +"(if obs_183" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_32" +" obs_183" " 'exit-bind)))" "(void)))" -" vals_6))))))" +" vals_158))))))" "(let-values()" "(reverse$1" -"(let-values(((lst_106) intdef-ids_0))" +"(let-values(((lst_184) intdef-ids_118))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_106)))" -"((letrec-values(((for-loop_80)" -"(lambda(fold-var_101" -" lst_50)" +"(let-values()(check-list lst_184)))" +"((letrec-values(((for-loop_185)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_50)" -"(let-values(((intdef-id_2)" +"(if(pair? lst_0)" +"(let-values(((intdef-id_188)" "(unsafe-car" -" lst_50))" -"((rest_53)" +" lst_0))" +"((rest_189)" "(unsafe-cdr" -" lst_50)))" -"(let-values(((fold-var_102)" -"(let-values(((fold-var_103)" -" fold-var_101))" -"(let-values(((fold-var_104)" +" lst_0)))" +"(let-values(((fold-var_190)" +"(let-values(((fold-var_191)" +" fold-var_0))" +"(let-values(((fold-var_192)" "(let-values()" "(cons" "(let-values()" "(local-variable1.1" -" intdef-id_2))" -" fold-var_103))))" +" intdef-id_188))" +" fold-var_191))))" "(values" -" fold-var_104)))))" +" fold-var_192)))))" "(if(not #f)" -"(for-loop_80" -" fold-var_102" -" rest_53)" -" fold-var_102)))" -" fold-var_101)))))" -" for-loop_80)" +"(for-loop_185" +" fold-var_190" +" rest_189)" +" fold-var_190)))" +" fold-var_0)))))" +" for-loop_185)" " null" -" lst_106))))))))" -"(let-values(((env-mixins_0)" -"(internal-definition-context-env-mixins intdef_0)))" +" lst_184))))))))" +"(let-values(((env-mixins_121)" +"(internal-definition-context-env-mixins" +" intdef_113)))" "(begin" "(set-box!" -" env-mixins_0" +" env-mixins_121" "(append" "(reverse$1" -"(let-values(((lst_290) intdef-ids_0)" -"((lst_195) syms_20)" -"((lst_291) vals_5))" +"(let-values(((lst_193) intdef-ids_118)" +"((lst_194) syms_119)" +"((lst_195) vals_120))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_290)))" +"(let-values()(check-list lst_193)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_194)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_195)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_291)))" -"((letrec-values(((for-loop_255)" -"(lambda(fold-var_245" -" lst_292" -" lst_293" -" lst_294)" +"((letrec-values(((for-loop_196)" +"(lambda(fold-var_0" +" lst_0" +" lst_1" +" lst_2)" "(begin" " 'for-loop" -"(if(if(pair? lst_292)" -"(if(pair? lst_293)" -"(pair? lst_294)" +"(if(if(pair? lst_0)" +"(if(pair? lst_1)" +"(pair? lst_2)" " #f)" " #f)" -"(let-values(((intdef-id_3)" +"(let-values(((intdef-id_201)" "(unsafe-car" -" lst_292))" -"((rest_166)" +" lst_0))" +"((rest_202)" "(unsafe-cdr" -" lst_292))" -"((sym_73)" +" lst_0))" +"((sym_203)" "(unsafe-car" -" lst_293))" -"((rest_167)" +" lst_1))" +"((rest_204)" "(unsafe-cdr" -" lst_293))" -"((val_70)" +" lst_1))" +"((val_205)" "(unsafe-car" -" lst_294))" -"((rest_168)" +" lst_2))" +"((rest_206)" "(unsafe-cdr" -" lst_294)))" -"(let-values(((fold-var_246)" -"(let-values(((fold-var_247)" -" fold-var_245))" -"(let-values(((fold-var_248)" +" lst_2)))" +"(let-values(((fold-var_207)" +"(let-values(((fold-var_208)" +" fold-var_0))" +"(let-values(((fold-var_209)" "(let-values()" "(cons" "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_70" -" intdef-id_3" -" phase_7" -" ctx_44)" +" val_205" +" intdef-id_201" +" phase_116" +" ctx_115)" "(env-mixin2.1" -" intdef-id_3" -" sym_73" -" val_70" +" intdef-id_201" +" sym_203" +" val_205" "(make-weak-hasheq))))" -" fold-var_247))))" +" fold-var_208))))" "(values" -" fold-var_248)))))" +" fold-var_209)))))" "(if(not #f)" -"(for-loop_255" -" fold-var_246" -" rest_166" -" rest_167" -" rest_168)" -" fold-var_246)))" -" fold-var_245)))))" -" for-loop_255)" +"(for-loop_196" +" fold-var_207" +" rest_202" +" rest_204" +" rest_206)" +" fold-var_207)))" +" fold-var_0)))))" +" for-loop_196)" " null" -" lst_290" -" lst_195" -" lst_291))))" -"(unbox env-mixins_0)))" -"(let-values(((obs_33)(expand-context-observer ctx_44)))" -"(if obs_33" +" lst_193" +" lst_194" +" lst_195))))" +"(unbox env-mixins_121)))" +"(let-values(((obs_210)(expand-context-observer ctx_115)))" +"(if obs_210" "(let-values()" "(let-values()" -"(call-expand-observe obs_33 'exit-local-bind)))" +"(call-expand-observe obs_210 'exit-local-bind)))" "(void))))))))))))))))))))))))))" "(case-lambda" -"((ids_26 s_202 intdef_1)" -"(begin 'syntax-local-bind-syntaxes(syntax-local-bind-syntaxes11_0 ids_26 s_202 intdef_1 '())))" -"((ids_13 s_424 intdef_2 extra-intdefs7_1)" -"(syntax-local-bind-syntaxes11_0 ids_13 s_424 intdef_2 extra-intdefs7_1)))))" +"((ids_0 s_0 intdef_0)" +"(begin 'syntax-local-bind-syntaxes(syntax-local-bind-syntaxes11_106 ids_0 s_0 intdef_0 '())))" +"((ids_0 s_0 intdef_0 extra-intdefs7_0)(syntax-local-bind-syntaxes11_106 ids_0 s_0 intdef_0 extra-intdefs7_0)))))" "(define-values" "(1/internal-definition-context-binding-identifiers)" -"(lambda(intdef_3)" +"(lambda(intdef_0)" "(begin" " 'internal-definition-context-binding-identifiers" "(begin" -"(if(1/internal-definition-context? intdef_3)" +"(if(1/internal-definition-context? intdef_0)" "(void)" "(let-values()" "(raise-argument-error" " 'internal-definition-context-binding-identifiers" " \"internal-definition-context?\"" -" intdef_3)))" +" intdef_0)))" "(reverse$1" -"(let-values(((lst_29)(unbox(internal-definition-context-env-mixins intdef_3))))" +"(let-values(((lst_219)(unbox(internal-definition-context-env-mixins intdef_0))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_29)))" -"((letrec-values(((for-loop_14)" -"(lambda(fold-var_249 lst_295)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_219)))" +"((letrec-values(((for-loop_220)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_295)" -"(let-values(((env-mixin_0)(unsafe-car lst_295))" -"((rest_169)(unsafe-cdr lst_295)))" -"(let-values(((fold-var_250)" -"(let-values(((fold-var_251) fold-var_249))" -"(let-values(((fold-var_252)" +"(if(pair? lst_0)" +"(let-values(((env-mixin_223)(unsafe-car lst_0))((rest_224)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_225)" +"(let-values(((fold-var_226) fold-var_0))" +"(let-values(((fold-var_227)" "(let-values()" "(cons" -"(let-values()(env-mixin-id env-mixin_0))" -" fold-var_251))))" -"(values fold-var_252)))))" -"(if(not #f)(for-loop_14 fold-var_250 rest_169) fold-var_250)))" -" fold-var_249)))))" -" for-loop_14)" +"(let-values()(env-mixin-id env-mixin_223))" +" fold-var_226))))" +"(values fold-var_227)))))" +"(if(not #f)(for-loop_220 fold-var_225 rest_224) fold-var_225)))" +" fold-var_0)))))" +" for-loop_220)" " null" -" lst_29))))))))" +" lst_219))))))))" "(define-values" "(1/internal-definition-context-introduce)" -"(let-values(((internal-definition-context-introduce16_0)" +"(let-values(((internal-definition-context-introduce16_228)" "(lambda(intdef14_0 s15_0 mode13_0)" "(begin" " 'internal-definition-context-introduce16" -"(let-values(((intdef_4) intdef14_0))" -"(let-values(((s_37) s15_0))" -"(let-values(((mode_13) mode13_0))" +"(let-values(((intdef_232) intdef14_0))" +"(let-values(((s_233) s15_0))" +"(let-values(((mode_234) mode13_0))" "(let-values()" "(begin" -"(if(1/internal-definition-context? intdef_4)" +"(if(1/internal-definition-context? intdef_232)" "(void)" "(let-values()" "(raise-argument-error" " 'internal-definition-context-introduce" " \"internal-definition-context?\"" -" intdef_4)))" -"(if(syntax?$1 s_37)" +" intdef_232)))" +"(if(syntax?$1 s_233)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_37)))" -"(let-values(((s67_0) s_37)" -"((intdef68_0) intdef_4)" -"((temp69_0) #t)" -"((temp70_0)" -"(let-values(((tmp_32) mode_13))" -"(if(equal? tmp_32 'add)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_233)))" +"(let-values(((s67_236) s_233)" +"((intdef68_237) intdef_232)" +"((temp69_238) #t)" +"((temp70_239)" +"(let-values(((tmp_240) mode_234))" +"(if(equal? tmp_240 'add)" "(let-values() add-scope)" -"(if(equal? tmp_32 'remove)" +"(if(equal? tmp_240 'remove)" "(let-values() remove-scope)" -"(if(equal? tmp_32 'flip)" +"(if(equal? tmp_240 'flip)" "(let-values() flip-scope)" "(let-values()" "(raise-argument-error" " 'internal-definition-context-introduce" " \"(or/c 'add 'remove 'flip)\"" -" mode_13))))))))" -"(add-intdef-scopes24.1 temp70_0 temp69_0 s67_0 intdef68_0)))))))))))" +" mode_234))))))))" +"(add-intdef-scopes24.1 temp70_239 temp69_238 s67_236 intdef68_237)))))))))))" "(case-lambda" -"((intdef_5 s_207)" -"(begin 'internal-definition-context-introduce(internal-definition-context-introduce16_0 intdef_5 s_207 'flip)))" -"((intdef_6 s_425 mode13_1)(internal-definition-context-introduce16_0 intdef_6 s_425 mode13_1)))))" +"((intdef_0 s_0)" +"(begin 'internal-definition-context-introduce(internal-definition-context-introduce16_228 intdef_0 s_0 'flip)))" +"((intdef_0 s_0 mode13_0)(internal-definition-context-introduce16_228 intdef_0 s_0 mode13_0)))))" "(define-values" "(1/internal-definition-context-seal)" -"(lambda(intdef_7)" +"(lambda(intdef_0)" "(begin" " 'internal-definition-context-seal" "(begin" -"(if(1/internal-definition-context? intdef_7)" +"(if(1/internal-definition-context? intdef_0)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-seal \"internal-definition-context?\" intdef_7)))" +" (raise-argument-error 'internal-definition-context-seal \"internal-definition-context?\" intdef_0)))" "(void)))))" "(define-values" "(1/identifier-remove-from-definition-context)" -"(lambda(id_71 intdef_8)" +"(lambda(id_0 intdef_0)" "(begin" " 'identifier-remove-from-definition-context" "(begin" -"(if(identifier? id_71)" +"(if(identifier? id_0)" "(void)" -" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_71)))" -"(if(let-values(((or-part_179)(1/internal-definition-context? intdef_8)))" -"(if or-part_179 or-part_179(if(list? intdef_8)(andmap2 1/internal-definition-context? intdef_8) #f)))" +" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_0)))" +"(if(let-values(((or-part_249)(1/internal-definition-context? intdef_0)))" +"(if or-part_249 or-part_249(if(list? intdef_0)(andmap2 1/internal-definition-context? intdef_0) #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'identifier-remove-from-definition-context" " \"(or/c internal-definition-context? (listof internal-definition-context?))\"" -" intdef_8)))" -"(let-values(((x_75)" -"(let-values(((a_49) intdef_8))" -"(if(list? a_49)" -"(let-values()(reverse$1 a_49))" -"(if(not a_49)(let-values() null)(let-values()(list a_49)))))))" +" intdef_0)))" +"(let-values(((x_250)" +"(let-values(((a_251) intdef_0))" +"(if(list? a_251)" +"(let-values()(reverse$1 a_251))" +"(if(not a_251)(let-values() null)(let-values()(list a_251)))))))" "(begin" " #t" -"((letrec-values(((for-loop_209)" -"(lambda(id_72 a_50)" +"((letrec-values(((for-loop_252)" +"(lambda(id_1 a_0)" "(begin" " 'for-loop" -"(if(pair? a_50)" -"(let-values(((intdef_9)(car a_50)))" -"(let-values(((id_73)" -"(let-values(((id_74) id_72))" -"(let-values(((id_75)" +"(if(pair? a_0)" +"(let-values(((intdef_255)(car a_0)))" +"(let-values(((id_256)" +"(let-values(((id_257) id_1))" +"(let-values(((id_258)" "(let-values()" "(1/internal-definition-context-introduce" -" intdef_9" -" id_74" +" intdef_255" +" id_257" " 'remove))))" -"(values id_75)))))" -"(if(not #f)(for-loop_209 id_73(cdr a_50)) id_73)))" -" id_72)))))" -" for-loop_209)" -" id_71" -" x_75)))))))" +"(values id_258)))))" +"(if(not #f)(for-loop_252 id_256(cdr a_0)) id_256)))" +" id_1)))))" +" for-loop_252)" +" id_0" +" x_250)))))))" "(define-values" "(intdefs?)" -"(lambda(x_76)" +"(lambda(x_0)" "(begin" -"(let-values(((or-part_277)(1/internal-definition-context? x_76)))" -"(if or-part_277 or-part_277(if(list? x_76)(andmap2 1/internal-definition-context? x_76) #f))))))" +"(let-values(((or-part_260)(1/internal-definition-context? x_0)))" +"(if or-part_260 or-part_260(if(list? x_0)(andmap2 1/internal-definition-context? x_0) #f))))))" " (define-values (intdefs?-string) \"(or/c internal-definition-context? (listof internal-definition-context?))\")" "(define-values" "(intdefs-or-false?)" -"(lambda(x_77)(begin(let-values(((or-part_278)(not x_77)))(if or-part_278 or-part_278(intdefs? x_77))))))" +"(lambda(x_0)(begin(let-values(((or-part_262)(not x_0)))(if or-part_262 or-part_262(intdefs? x_0))))))" "(define-values" "(intdefs-or-false?-string)" " \"(or/c internal-definition-context? (listof internal-definition-context?) #f)\")" "(define-values" "(add-intdef-bindings)" -"(lambda(env_11 intdefs_0)" +"(lambda(env_0 intdefs_0)" "(begin" -"(let-values(((x_78)" -"(let-values(((a_51) intdefs_0))" -"(if(list? a_51)" -"(let-values()(reverse$1 a_51))" -"(if(not a_51)(let-values() null)(let-values()(list a_51)))))))" +"(let-values(((x_265)" +"(let-values(((a_266) intdefs_0))" +"(if(list? a_266)" +"(let-values()(reverse$1 a_266))" +"(if(not a_266)(let-values() null)(let-values()(list a_266)))))))" "(begin" " #t" -"((letrec-values(((for-loop_256)" -"(lambda(env_12 a_52)" +"((letrec-values(((for-loop_267)" +"(lambda(env_1 a_0)" "(begin" " 'for-loop" -"(if(pair? a_52)" -"(let-values(((intdef_10)(car a_52)))" -"(let-values(((env_13)" -"(let-values(((env_14) env_12))" -"(let-values(((env_15)" +"(if(pair? a_0)" +"(let-values(((intdef_270)(car a_0)))" +"(let-values(((env_271)" +"(let-values(((env_272) env_1))" +"(let-values(((env_273)" "(let-values()" -"(let-values(((parent-ctx_2)" +"(let-values(((parent-ctx_274)" "(internal-definition-context-parent-ctx" -" intdef_10)))" -"(let-values(((parent-env_0)" -"(if parent-ctx_2" +" intdef_270)))" +"(let-values(((parent-env_275)" +"(if parent-ctx_274" "(add-intdef-bindings" -" env_14" -" parent-ctx_2)" -" env_14)))" -"(let-values(((env-mixins_1)" +" env_272" +" parent-ctx_274)" +" env_272)))" +"(let-values(((env-mixins_276)" "(unbox" "(internal-definition-context-env-mixins" -" intdef_10))))" -"((letrec-values(((loop_95)" -"(lambda(env_16" -" env-mixins_2)" +" intdef_270))))" +"((letrec-values(((loop_277)" +"(lambda(env_2 env-mixins_0)" "(begin" " 'loop" -"(if(null? env-mixins_2)" -"(let-values() env_16)" +"(if(null? env-mixins_0)" +"(let-values() env_2)" "(let-values()" -"(let-values(((env-mixin_1)" +"(let-values(((env-mixin_280)" "(car" -" env-mixins_2)))" -"(let-values(((or-part_279)" +" env-mixins_0)))" +"(let-values(((or-part_281)" "(hash-ref" "(env-mixin-cache" -" env-mixin_1)" -" env_16" +" env-mixin_280)" +" env_2" " #f)))" -"(if or-part_279" -" or-part_279" -"(let-values(((new-env_0)" +"(if or-part_281" +" or-part_281" +"(let-values(((new-env_282)" "(env-extend" -"(loop_95" -" env_16" +"(loop_277" +" env_2" "(cdr" -" env-mixins_2))" +" env-mixins_0))" "(env-mixin-sym" -" env-mixin_1)" +" env-mixin_280)" "(env-mixin-value" -" env-mixin_1))))" +" env-mixin_280))))" "(begin" "(hash-set!" "(env-mixin-cache" -" env-mixin_1)" -" env_16" -" new-env_0)" -" new-env_0)))))))))))" -" loop_95)" -" parent-env_0" -" env-mixins_1)))))))" -"(values env_15)))))" -"(if(not #f)(for-loop_256 env_13(cdr a_52)) env_13)))" -" env_12)))))" -" for-loop_256)" -" env_11" -" x_78))))))" +" env-mixin_280)" +" env_2" +" new-env_282)" +" new-env_282)))))))))))" +" loop_277)" +" parent-env_275" +" env-mixins_276)))))))" +"(values env_273)))))" +"(if(not #f)(for-loop_267 env_271(cdr a_0)) env_271)))" +" env_1)))))" +" for-loop_267)" +" env_0" +" x_265))))))" "(define-values" "(add-intdef-scopes24.1)" "(lambda(action19_0 always?18_0 s22_0 intdefs23_0)" "(begin" " 'add-intdef-scopes24" -"(let-values(((s_426) s22_0))" -"(let-values(((intdefs_1) intdefs23_0))" -"(let-values(((always?_0) always?18_0))" -"(let-values(((action_0)(if(eq? action19_0 unsafe-undefined) add-scope action19_0)))" +"(let-values(((s_287) s22_0))" +"(let-values(((intdefs_288) intdefs23_0))" +"(let-values(((always?_289) always?18_0))" +"(let-values(((action_290)(if(eq? action19_0 unsafe-undefined) add-scope action19_0)))" "(let-values()" -"(let-values(((x_79)" -"(let-values(((a_53) intdefs_1))" -"(if(list? a_53)" -"(let-values()(reverse$1 a_53))" -"(if(not a_53)(let-values() null)(let-values()(list a_53)))))))" +"(let-values(((x_291)" +"(let-values(((a_292) intdefs_288))" +"(if(list? a_292)" +"(let-values()(reverse$1 a_292))" +"(if(not a_292)(let-values() null)(let-values()(list a_292)))))))" "(begin" " #t" -"((letrec-values(((for-loop_257)" -"(lambda(s_71 a_54)" +"((letrec-values(((for-loop_293)" +"(lambda(s_0 a_0)" "(begin" " 'for-loop" -"(if(pair? a_54)" -"(let-values(((intdef_11)(car a_54)))" -"(let-values(((s_427)" -"(let-values(((s_214) s_71))" -"(if(let-values(((or-part_280) always?_0))" -"(if or-part_280" -" or-part_280" +"(if(pair? a_0)" +"(let-values(((intdef_296)(car a_0)))" +"(let-values(((s_297)" +"(let-values(((s_298) s_0))" +"(if(let-values(((or-part_299) always?_289))" +"(if or-part_299" +" or-part_299" "(internal-definition-context-add-scope?" -" intdef_11)))" -"(let-values(((s_428) s_214))" -"(let-values(((s_215)" +" intdef_296)))" +"(let-values(((s_300) s_298))" +"(let-values(((s_301)" "(let-values()" -"(action_0" -" s_428" +"(action_290" +" s_300" "(internal-definition-context-scope" -" intdef_11)))))" -"(values s_215)))" -" s_214))))" -"(if(not #f)(for-loop_257 s_427(cdr a_54)) s_427)))" -" s_71)))))" -" for-loop_257)" -" s_426" -" x_79)))))))))))" +" intdef_296)))))" +"(values s_301)))" +" s_298))))" +"(if(not #f)(for-loop_293 s_297(cdr a_0)) s_297)))" +" s_0)))))" +" for-loop_293)" +" s_287" +" x_291)))))))))))" "(define-values" "(make-local-expand-context44.1)" "(lambda(context27_0" " extend-stops?31_0" " intdefs29_0" " keep-#%expression?34_0" -" phase28_1" +" phase28_0" " stop-ids30_0" " to-parsed-ok?32_0" " track-to-be-defined?33_0" " ctx43_0)" "(begin" " 'make-local-expand-context44" -"(let-values(((ctx_45) ctx43_0))" -"(let-values(((context_9) context27_0))" -"(let-values(((phase_111)(if(eq? phase28_1 unsafe-undefined)(expand-context-phase ctx_45) phase28_1)))" -"(let-values(((intdefs_2) intdefs29_0))" -"(let-values(((stop-ids_1) stop-ids30_0))" -"(let-values(((extend-stops?_0) extend-stops?31_0))" -"(let-values(((to-parsed-ok?_0) to-parsed-ok?32_0))" -"(let-values(((track-to-be-defined?_0) track-to-be-defined?33_0))" -"(let-values(((keep-#%expression?_1) keep-#%expression?34_0))" +"(let-values(((ctx_338) ctx43_0))" +"(let-values(((context_339) context27_0))" +"(let-values(((phase_340)(if(eq? phase28_0 unsafe-undefined)(expand-context-phase ctx_338) phase28_0)))" +"(let-values(((intdefs_341) intdefs29_0))" +"(let-values(((stop-ids_342) stop-ids30_0))" +"(let-values(((extend-stops?_343) extend-stops?31_0))" +"(let-values(((to-parsed-ok?_344) to-parsed-ok?32_0))" +"(let-values(((track-to-be-defined?_345) track-to-be-defined?33_0))" +"(let-values(((keep-#%expression?_346) keep-#%expression?34_0))" "(let-values()" -"(let-values(((same-kind?_0)" -"(let-values(((or-part_281)(eq? context_9(expand-context-context ctx_45))))" -"(if or-part_281" -" or-part_281" -"(if(list? context_9)(list?(expand-context-context ctx_45)) #f)))))" -"(let-values(((all-stop-ids_0)" -"(if stop-ids_1" -"(if extend-stops?_0" -"(stop-ids->all-stop-ids stop-ids_1 phase_111)" -" stop-ids_1)" +"(let-values(((same-kind?_347)" +"(let-values(((or-part_350)(eq? context_339(expand-context-context ctx_338))))" +"(if or-part_350" +" or-part_350" +"(if(list? context_339)(list?(expand-context-context ctx_338)) #f)))))" +"(let-values(((all-stop-ids_348)" +"(if stop-ids_342" +"(if extend-stops?_343" +"(stop-ids->all-stop-ids stop-ids_342 phase_340)" +" stop-ids_342)" " null)))" -"(let-values(((def-ctx-scopes_5)" -"(if(expand-context-def-ctx-scopes ctx_45)" -"(unbox(expand-context-def-ctx-scopes ctx_45))" +"(let-values(((def-ctx-scopes_349)" +"(if(expand-context-def-ctx-scopes ctx_338)" +"(unbox(expand-context-def-ctx-scopes ctx_338))" " null)))" -"(let-values(((v_186) ctx_45))" -"(let-values(((the-struct_66) v_186))" -"(if(expand-context/outer? the-struct_66)" -"(let-values(((context71_0) context_9)" -"((env72_0)" -"(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" -"((use-site-scopes73_0)" -"(if(let-values(((or-part_282)(eq? context_9 'module)))" -"(if or-part_282" -" or-part_282" -"(let-values(((or-part_283)(eq? context_9 'module-begin)))" -"(if or-part_283 or-part_283(list? context_9)))))" -"(let-values(((or-part_284)" -"(root-expand-context-use-site-scopes ctx_45)))" -"(if or-part_284 or-part_284(box null)))" +"(let-values(((v_351) ctx_338))" +"(let-values(((the-struct_352) v_351))" +"(if(expand-context/outer? the-struct_352)" +"(let-values(((context71_353) context_339)" +"((env72_354)" +"(add-intdef-bindings(expand-context-env ctx_338) intdefs_341))" +"((use-site-scopes73_355)" +"(if(let-values(((or-part_363)(eq? context_339 'module)))" +"(if or-part_363" +" or-part_363" +"(let-values(((or-part_364)" +"(eq? context_339 'module-begin)))" +"(if or-part_364 or-part_364(list? context_339)))))" +"(let-values(((or-part_365)" +"(root-expand-context-use-site-scopes ctx_338)))" +"(if or-part_365 or-part_365(box null)))" " #f))" -"((frame-id74_0)" -"(let-values(((x_80)" -"(let-values(((a_55) intdefs_2))" -"(if(list? a_55)" -"(let-values()(reverse$1 a_55))" -"(if(not a_55)" +"((frame-id74_356)" +"(let-values(((x_366)" +"(let-values(((a_367) intdefs_341))" +"(if(list? a_367)" +"(let-values()(reverse$1 a_367))" +"(if(not a_367)" "(let-values() null)" -"(let-values()(list a_55)))))))" +"(let-values()(list a_367)))))))" "(begin" " #t" -"((letrec-values(((for-loop_59)" -"(lambda(frame-id_9 a_56)" +"((letrec-values(((for-loop_368)" +"(lambda(frame-id_0 a_0)" "(begin" " 'for-loop" -"(if(pair? a_56)" -"(let-values(((intdef_12)(car a_56)))" -"(let-values(((frame-id_10)" -"(let-values(((frame-id_11)" -" frame-id_9))" -"(let-values(((frame-id_12)" +"(if(pair? a_0)" +"(let-values(((intdef_371)(car a_0)))" +"(let-values(((frame-id_372)" +"(let-values(((frame-id_373)" +" frame-id_0))" +"(let-values(((frame-id_374)" "(let-values()" -"(let-values(((i-frame-id_0)" +"(let-values(((i-frame-id_375)" "(internal-definition-context-frame-id" -" intdef_12)))" -"(if(if frame-id_11" -"(if i-frame-id_0" +" intdef_371)))" +"(if(if frame-id_373" +"(if i-frame-id_375" "(not" "(eq?" -" frame-id_11" -" i-frame-id_0))" +" frame-id_373" +" i-frame-id_375))" " #f)" " #f)" "(let-values()" " 'all)" "(let-values()" -"(let-values(((or-part_285)" -" frame-id_11))" -"(if or-part_285" -" or-part_285" -" i-frame-id_0))))))))" +"(let-values(((or-part_376)" +" frame-id_373))" +"(if or-part_376" +" or-part_376" +" i-frame-id_375))))))))" "(values" -" frame-id_12)))))" +" frame-id_374)))))" "(if(not #f)" -"(for-loop_59" -" frame-id_10" -"(cdr a_56))" -" frame-id_10)))" -" frame-id_9)))))" -" for-loop_59)" -"(root-expand-context-frame-id ctx_45)" -" x_80))))" -"((post-expansion75_0)" -"(let-values(((pe_2)" -"(if same-kind?_0" -"(if(let-values(((or-part_286)(pair? context_9)))" -"(if or-part_286" -" or-part_286" +"(for-loop_368" +" frame-id_372" +"(cdr a_0))" +" frame-id_372)))" +" frame-id_0)))))" +" for-loop_368)" +"(root-expand-context-frame-id ctx_338)" +" x_366))))" +"((post-expansion75_357)" +"(let-values(((pe_377)" +"(if same-kind?_347" +"(if(let-values(((or-part_378)" +"(pair? context_339)))" +"(if or-part_378" +" or-part_378" "(memq" -" context_9" +" context_339" " '(module module-begin top-level))))" -"(root-expand-context-post-expansion ctx_45)" +"(root-expand-context-post-expansion ctx_338)" " #f)" " #f)))" -"(if(if intdefs_2(not(null? intdefs_2)) #f)" +"(if(if intdefs_341(not(null? intdefs_341)) #f)" "(let-values()" -"(lambda(s_429)" +"(lambda(s_0)" "(begin" " 'post-expansion75" -"(let-values(((temp81_0)" -"(apply-post-expansion pe_2 s_429))" -"((intdefs82_0) intdefs_2))" +"(let-values(((temp81_380)" +"(apply-post-expansion pe_377 s_0))" +"((intdefs82_381) intdefs_341))" "(add-intdef-scopes24.1" " unsafe-undefined" " #f" -" temp81_0" -" intdefs82_0)))))" -"(let-values() pe_2))))" -"((scopes76_0)" -"(append def-ctx-scopes_5(expand-context-scopes ctx_45)))" -"((only-immediate?77_0)(not stop-ids_1))" -"((current-introduction-scopes78_0) null)" -"((need-eventually-defined79_0)" -"(let-values(((ht_135)" -"(expand-context-need-eventually-defined ctx_45)))" -"(if track-to-be-defined?_0" -"(let-values() ht_135)" -"(if ht_135(let-values()(make-hasheqv))(let-values() #f)))))" -"((inner80_0)" -"(let-values(((the-struct_67)" -"(root-expand-context/outer-inner v_186)))" -"(if(expand-context/inner? the-struct_67)" -"(let-values(((to-parsed?83_0)" -"(if to-parsed-ok?_0" -"(expand-context-to-parsed? ctx_45)" +" temp81_380" +" intdefs82_381)))))" +"(let-values() pe_377))))" +"((scopes76_358)" +"(append def-ctx-scopes_349(expand-context-scopes ctx_338)))" +"((only-immediate?77_359)(not stop-ids_342))" +"((current-introduction-scopes78_360) null)" +"((need-eventually-defined79_361)" +"(let-values(((ht_382)" +"(expand-context-need-eventually-defined ctx_338)))" +"(if track-to-be-defined?_345" +"(let-values() ht_382)" +"(if ht_382(let-values()(make-hasheqv))(let-values() #f)))))" +"((inner80_362)" +"(let-values(((the-struct_383)" +"(root-expand-context/outer-inner v_351)))" +"(if(expand-context/inner? the-struct_383)" +"(let-values(((to-parsed?83_384)" +"(if to-parsed-ok?_344" +"(expand-context-to-parsed? ctx_338)" " #f))" -"((just-once?84_0) #f)" -"((in-local-expand?85_0) #t)" -"((keep-#%expression?86_0) keep-#%expression?_1)" -"((stops87_0)" -"(free-id-set phase_111 all-stop-ids_0)))" +"((just-once?84_385) #f)" +"((in-local-expand?85_386) #t)" +"((keep-#%expression?86_387) keep-#%expression?_346)" +"((stops87_388)" +"(free-id-set phase_340 all-stop-ids_348)))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_67)" -"(root-expand-context/inner-module-scopes the-struct_67)" +"(root-expand-context/inner-self-mpi the-struct_383)" +"(root-expand-context/inner-module-scopes the-struct_383)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_67)" -"(root-expand-context/inner-all-scopes-stx the-struct_67)" -"(root-expand-context/inner-defined-syms the-struct_67)" -"(root-expand-context/inner-counter the-struct_67)" -"(root-expand-context/inner-lift-key the-struct_67)" -" to-parsed?83_0" -"(expand-context/inner-phase the-struct_67)" -"(expand-context/inner-namespace the-struct_67)" -" just-once?84_0" -"(expand-context/inner-module-begin-k the-struct_67)" -"(expand-context/inner-allow-unbound? the-struct_67)" -" in-local-expand?85_0" -" keep-#%expression?86_0" -" stops87_0" -"(expand-context/inner-declared-submodule-names the-struct_67)" -"(expand-context/inner-lifts the-struct_67)" -"(expand-context/inner-lift-envs the-struct_67)" -"(expand-context/inner-module-lifts the-struct_67)" -"(expand-context/inner-require-lifts the-struct_67)" -"(expand-context/inner-to-module-lifts the-struct_67)" -"(expand-context/inner-requires+provides the-struct_67)" -"(expand-context/inner-observer the-struct_67)" -"(expand-context/inner-for-serializable? the-struct_67)" +" the-struct_383)" +"(root-expand-context/inner-all-scopes-stx the-struct_383)" +"(root-expand-context/inner-defined-syms the-struct_383)" +"(root-expand-context/inner-counter the-struct_383)" +"(root-expand-context/inner-lift-key the-struct_383)" +" to-parsed?83_384" +"(expand-context/inner-phase the-struct_383)" +"(expand-context/inner-namespace the-struct_383)" +" just-once?84_385" +"(expand-context/inner-module-begin-k the-struct_383)" +"(expand-context/inner-allow-unbound? the-struct_383)" +" in-local-expand?85_386" +" keep-#%expression?86_387" +" stops87_388" +"(expand-context/inner-declared-submodule-names" +" the-struct_383)" +"(expand-context/inner-lifts the-struct_383)" +"(expand-context/inner-lift-envs the-struct_383)" +"(expand-context/inner-module-lifts the-struct_383)" +"(expand-context/inner-require-lifts the-struct_383)" +"(expand-context/inner-to-module-lifts the-struct_383)" +"(expand-context/inner-requires+provides the-struct_383)" +"(expand-context/inner-observer the-struct_383)" +"(expand-context/inner-for-serializable? the-struct_383)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_67)))" +" the-struct_383)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_67)))))" +" the-struct_383)))))" "(expand-context/outer1.1" -" inner80_0" -" post-expansion75_0" -" use-site-scopes73_0" -" frame-id74_0" -" context71_0" -" env72_0" -" scopes76_0" -"(expand-context/outer-def-ctx-scopes the-struct_66)" -"(expand-context/outer-binding-layer the-struct_66)" -"(expand-context/outer-reference-records the-struct_66)" -" only-immediate?77_0" -" need-eventually-defined79_0" -" current-introduction-scopes78_0" -"(expand-context/outer-current-use-scopes the-struct_66)" -"(expand-context/outer-name the-struct_66)))" +" inner80_362" +" post-expansion75_357" +" use-site-scopes73_355" +" frame-id74_356" +" context71_353" +" env72_354" +" scopes76_358" +"(expand-context/outer-def-ctx-scopes the-struct_352)" +"(expand-context/outer-binding-layer the-struct_352)" +"(expand-context/outer-reference-records the-struct_352)" +" only-immediate?77_359" +" need-eventually-defined79_361" +" current-introduction-scopes78_360" +"(expand-context/outer-current-use-scopes the-struct_352)" +"(expand-context/outer-name the-struct_352)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_66))))))))))))))))))))" +" the-struct_352))))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_430 ctx_46)(begin(flip-scopes s_430(expand-context-current-introduction-scopes ctx_46)))))" +"(lambda(s_0 ctx_0)(begin(flip-scopes s_0(expand-context-current-introduction-scopes ctx_0)))))" "(define-values" "(flip-introduction-and-use-scopes)" -"(lambda(s_231 ctx_47)" -"(begin(flip-scopes(flip-introduction-scopes s_231 ctx_47)(expand-context-current-use-scopes ctx_47)))))" +"(lambda(s_0 ctx_0)" +"(begin(flip-scopes(flip-introduction-scopes s_0 ctx_0)(expand-context-current-use-scopes ctx_0)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" "(begin" " 'syntax-transforming?" -"(if(let-values(((temp55_2) #t))(get-current-expand-context16.1 temp55_2 'unexpected)) #t #f))))" +"(if(let-values(((temp55_12) #t))(get-current-expand-context16.1 temp55_12 'unexpected)) #t #f))))" "(define-values" "(1/syntax-transforming-with-lifts?)" "(lambda()" "(begin" " 'syntax-transforming-with-lifts?" -"(let-values(((ctx_48)(let-values(((temp56_2) #t))(get-current-expand-context16.1 temp56_2 'unexpected))))" -"(if ctx_48(if(expand-context-lifts ctx_48) #t #f) #f)))))" +"(let-values(((ctx_13)(let-values(((temp56_15) #t))(get-current-expand-context16.1 temp56_15 'unexpected))))" +"(if ctx_13(if(expand-context-lifts ctx_13) #t #f) #f)))))" "(define-values" "(1/syntax-transforming-module-expression?)" "(lambda()" "(begin" " 'syntax-transforming-module-expression?" -"(let-values(((ctx_49)(let-values(((temp57_0) #t))(get-current-expand-context16.1 temp57_0 'unexpected))))" -"(if ctx_49(if(expand-context-to-module-lifts ctx_49) #t #f) #f)))))" +"(let-values(((ctx_16)(let-values(((temp57_18) #t))(get-current-expand-context16.1 temp57_18 'unexpected))))" +"(if ctx_16(if(expand-context-to-module-lifts ctx_16) #t #f) #f)))))" "(define-values" "(1/syntax-local-transforming-module-provides?)" "(lambda()" "(begin" " 'syntax-local-transforming-module-provides?" -"(let-values(((ctx_50)(let-values(((temp58_2) #t))(get-current-expand-context16.1 temp58_2 'unexpected))))" -"(if ctx_50(if(expand-context-requires+provides ctx_50) #t #f) #f)))))" +"(let-values(((ctx_19)(let-values(((temp58_21) #t))(get-current-expand-context16.1 temp58_21 'unexpected))))" +"(if ctx_19(if(expand-context-requires+provides ctx_19) #t #f) #f)))))" "(define-values" "(1/syntax-local-context)" "(lambda()" "(begin" " 'syntax-local-context" -"(let-values(((ctx_51)" -"(let-values(((temp59_4) 'syntax-local-context))(get-current-expand-context16.1 #f temp59_4))))" -"(expand-context-context ctx_51)))))" +"(let-values(((ctx_22)" +"(let-values(((temp59_23) 'syntax-local-context))(get-current-expand-context16.1 #f temp59_23))))" +"(expand-context-context ctx_22)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_431)" +"(lambda(s_0)" "(begin" " 'syntax-local-introduce" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_431)" +"(if(syntax?$1 s_0)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_431)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_0)))" "(values))))" -"(let-values(((ctx_9)" -"(let-values(((temp61_1) 'syntax-local-introduce))" -"(get-current-expand-context16.1 #f temp61_1))))" -"(flip-introduction-and-use-scopes s_431 ctx_9))))))))" +"(let-values(((ctx_26)" +"(let-values(((temp61_27) 'syntax-local-introduce))" +"(get-current-expand-context16.1 #f temp61_27))))" +"(flip-introduction-and-use-scopes s_0 ctx_26))))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" -"(lambda(id_76)" +"(lambda(id_0)" "(begin" " 'syntax-local-identifier-as-binding" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_76)" +"(if(identifier? id_0)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_76)))" +" (raise-argument-error 'syntax-local-identifier-as-binding \"identifier?\" id_0)))" "(values))))" -"(let-values(((ctx_52)" -"(let-values(((temp63_3) 'syntax-local-identifier-as-binding))" -"(get-current-expand-context16.1 #f temp63_3))))" -"(remove-use-site-scopes id_76 ctx_52))))))))" +"(let-values(((ctx_30)" +"(let-values(((temp63_31) 'syntax-local-identifier-as-binding))" +"(get-current-expand-context16.1 #f temp63_31))))" +"(remove-use-site-scopes id_0 ctx_30))))))))" "(define-values" "(1/syntax-local-phase-level)" "(lambda()" "(begin" " 'syntax-local-phase-level" -"(let-values(((ctx_53)(let-values(((temp64_2) #t))(get-current-expand-context16.1 temp64_2 'unexpected))))" -"(if ctx_53(expand-context-phase ctx_53) 0)))))" +"(let-values(((ctx_32)(let-values(((temp64_34) #t))(get-current-expand-context16.1 temp64_34 'unexpected))))" +"(if ctx_32(expand-context-phase ctx_32) 0)))))" "(define-values" "(1/syntax-local-name)" "(lambda()" @@ -41502,21 +41693,21 @@ static const char *startup_source = " 'syntax-local-name" "(let-values()" "(let-values()" -"(let-values(((ctx_54)" -"(let-values(((who66_0) 'syntax-local-name))(get-current-expand-context16.1 #f who66_0))))" -"(let-values(((id_77)(expand-context-name ctx_54)))" -"(if id_77(datum->syntax$1 #f(syntax-e$1 id_77) id_77) #f))))))))" +"(let-values(((ctx_36)" +"(let-values(((who66_38) 'syntax-local-name))(get-current-expand-context16.1 #f who66_38))))" +"(let-values(((id_37)(expand-context-name ctx_36)))" +"(if id_37(datum->syntax$1 #f(syntax-e$1 id_37) id_37) #f))))))))" "(define-values" "(1/make-syntax-introducer)" -"(let-values(((make-syntax-introducer2_0)" +"(let-values(((make-syntax-introducer2_39)" "(lambda(as-use-site?1_0)" "(begin" " 'make-syntax-introducer2" -"(let-values(((as-use-site?_0) as-use-site?1_0))" -"(let-values()(do-make-syntax-introducer(new-scope(if as-use-site?_0 'use-site 'macro)))))))))" +"(let-values(((as-use-site?_41) as-use-site?1_0))" +"(let-values()(do-make-syntax-introducer(new-scope(if as-use-site?_41 'use-site 'macro)))))))))" "(case-lambda" -"(()(begin 'make-syntax-introducer(make-syntax-introducer2_0 #f)))" -"((as-use-site?1_1)(make-syntax-introducer2_0 as-use-site?1_1)))))" +"(()(begin 'make-syntax-introducer(make-syntax-introducer2_39 #f)))" +"((as-use-site?1_0)(make-syntax-introducer2_39 as-use-site?1_0)))))" "(define-values" "(1/make-interned-syntax-introducer)" "(lambda(sym-key_0)" @@ -41531,146 +41722,146 @@ static const char *startup_source = "(do-make-syntax-introducer(make-interned-scope sym-key_0))))))))" "(define-values" "(do-make-syntax-introducer)" -"(lambda(sc_34)" +"(lambda(sc_0)" "(begin" -"(let-values(((core70_0)" +"(let-values(((core70_46)" "(lambda(s69_0 mode68_0)" "(begin" " 'core70" -"(let-values(((s_432) s69_0))" -"(let-values(((mode_14) mode68_0))" +"(let-values(((s_49) s69_0))" +"(let-values(((mode_50) mode68_0))" "(let-values()" "(begin" -"(if(syntax?$1 s_432)" +"(if(syntax?$1 s_49)" "(void)" -" (let-values () (raise-argument-error 'syntax-introducer \"syntax?\" s_432)))" -"(let-values(((tmp_33) mode_14))" -"(if(equal? tmp_33 'add)" -"(let-values()(add-scope s_432 sc_34))" -"(if(equal? tmp_33 'remove)" -"(let-values()(remove-scope s_432 sc_34))" -"(if(equal? tmp_33 'flip)" -"(let-values()(flip-scope s_432 sc_34))" +" (let-values () (raise-argument-error 'syntax-introducer \"syntax?\" s_49)))" +"(let-values(((tmp_51) mode_50))" +"(if(equal? tmp_51 'add)" +"(let-values()(add-scope s_49 sc_0))" +"(if(equal? tmp_51 'remove)" +"(let-values()(remove-scope s_49 sc_0))" +"(if(equal? tmp_51 'flip)" +"(let-values()(flip-scope s_49 sc_0))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" " \"(or/c 'add 'remove 'flip)\"" -" mode_14))))))))))))))" -"(case-lambda((s_190)(core70_0 s_190 'flip))((s_90 mode68_1)(core70_0 s_90 mode68_1)))))))" +" mode_50))))))))))))))" +"(case-lambda((s_0)(core70_46 s_0 'flip))((s_0 mode68_0)(core70_46 s_0 mode68_0)))))))" "(define-values" "(1/make-syntax-delta-introducer)" -"(let-values(((make-syntax-delta-introducer7_0)" +"(let-values(((make-syntax-delta-introducer7_55)" "(lambda(ext-s5_0 base-s6_0 phase4_0)" "(begin" " 'make-syntax-delta-introducer7" -"(let-values(((ext-s_0) ext-s5_0))" -"(let-values(((base-s_0) base-s6_0))" -"(let-values(((phase_5)" +"(let-values(((ext-s_59) ext-s5_0))" +"(let-values(((base-s_60) base-s6_0))" +"(let-values(((phase_61)" "(if(eq? phase4_0 unsafe-undefined)(1/syntax-local-phase-level) phase4_0)))" "(let-values()" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 ext-s_0)" +"(if(syntax?$1 ext-s_59)" "(void)" "(let-values()" "(raise-argument-error" " 'make-syntax-delta-introducer" " \"syntax?\"" -" ext-s_0)))" +" ext-s_59)))" "(values))))" "(let-values((()" "(begin" -"(if((lambda(x_19)" -"(let-values(((or-part_287)(not x_19)))" -"(if or-part_287 or-part_287(syntax?$1 x_19))))" -" base-s_0)" +"(if((lambda(x_0)" +"(let-values(((or-part_69)(not x_0)))" +"(if or-part_69 or-part_69(syntax?$1 x_0))))" +" base-s_60)" "(void)" "(let-values()" "(raise-argument-error" " 'make-syntax-delta-introducer" " \"(or/c syntax? #f)\"" -" base-s_0)))" +" base-s_60)))" "(values))))" "(let-values((()" "(begin" -"(if(phase? phase_5)" +"(if(phase? phase_61)" "(void)" "(let-values()" "(raise-argument-error" " 'make-syntax-delta-introducer" " phase?-string" -" phase_5)))" +" phase_61)))" "(values))))" -"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_5)))" -"(let-values(((base-scs_0)" +"(let-values(((ext-scs_63)(syntax-scope-set ext-s_59 phase_61)))" +"(let-values(((base-scs_64)" "(syntax-scope-set" -"(let-values(((or-part_22) base-s_0))" -"(if or-part_22 or-part_22 empty-syntax))" -" phase_5)))" -"(let-values(((use-base-scs_0)" -"(if(subset? base-scs_0 ext-scs_0)" -" base-scs_0" -"(let-values(((or-part_288)" -"(if(identifier? base-s_0)" -"(let-values(((base-s73_0) base-s_0)" -"((phase74_1) phase_5)" -"((temp75_1) #t))" +"(let-values(((or-part_70) base-s_60))" +"(if or-part_70 or-part_70 empty-syntax))" +" phase_61)))" +"(let-values(((use-base-scs_65)" +"(if(subset? base-scs_64 ext-scs_63)" +" base-scs_64" +"(let-values(((or-part_71)" +"(if(identifier? base-s_60)" +"(let-values(((base-s73_73) base-s_60)" +"((phase74_74) phase_61)" +"((temp75_75) #t))" "(resolve40.1" " #f" " #f" " null" -" temp75_1" -" base-s73_0" -" phase74_1))" +" temp75_75" +" base-s73_73" +" phase74_74))" " #f)))" -"(if or-part_288 or-part_288(seteq))))))" -"(let-values(((delta-scs_0)" -"(set->list(set-subtract ext-scs_0 use-base-scs_0))))" -"(let-values(((maybe-taint_0)" -"(if(syntax-clean? ext-s_0) values syntax-taint$1)))" -"(let-values(((core78_0)" -"(lambda(s77_1 mode76_0)" +"(if or-part_71 or-part_71(seteq))))))" +"(let-values(((delta-scs_66)" +"(set->list(set-subtract ext-scs_63 use-base-scs_65))))" +"(let-values(((maybe-taint_67)" +"(if(syntax-clean? ext-s_59) values syntax-taint$1)))" +"(let-values(((core78_76)" +"(lambda(s77_0 mode76_0)" "(begin" " 'core78" -"(let-values(((s_11) s77_1))" -"(let-values(((mode_15) mode76_0))" +"(let-values(((s_79) s77_0))" +"(let-values(((mode_80) mode76_0))" "(let-values()" -"(maybe-taint_0" -"(let-values(((tmp_34) mode_15))" -"(if(equal? tmp_34 'add)" +"(maybe-taint_67" +"(let-values(((tmp_81) mode_80))" +"(if(equal? tmp_81 'add)" "(let-values()" -"(add-scopes s_11 delta-scs_0))" -"(if(equal? tmp_34 'remove)" +"(add-scopes s_79 delta-scs_66))" +"(if(equal? tmp_81 'remove)" "(let-values()" -"(remove-scopes s_11 delta-scs_0))" -"(if(equal? tmp_34 'flip)" +"(remove-scopes s_79 delta-scs_66))" +"(if(equal? tmp_81 'flip)" "(let-values()" -"(flip-scopes s_11 delta-scs_0))" +"(flip-scopes s_79 delta-scs_66))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" " \"(or/c 'add 'remove 'flip)\"" -" mode_15))))))))))))))" +" mode_80))))))))))))))" "(case-lambda" -"((s_92)(core78_0 s_92 'add))" -"((s_12 mode76_1)(core78_0 s_12 mode76_1))))))))))))))))))))))" +"((s_0)(core78_76 s_0 'add))" +"((s_0 mode76_0)(core78_76 s_0 mode76_0))))))))))))))))))))))" "(case-lambda" -"((ext-s_1 base-s_1)" -"(begin 'make-syntax-delta-introducer(make-syntax-delta-introducer7_0 ext-s_1 base-s_1 unsafe-undefined)))" -"((ext-s_2 base-s_2 phase4_1)(make-syntax-delta-introducer7_0 ext-s_2 base-s_2 phase4_1)))))" +"((ext-s_0 base-s_0)" +"(begin 'make-syntax-delta-introducer(make-syntax-delta-introducer7_55 ext-s_0 base-s_0 unsafe-undefined)))" +"((ext-s_0 base-s_0 phase4_0)(make-syntax-delta-introducer7_55 ext-s_0 base-s_0 phase4_0)))))" "(define-values" "(1/syntax-local-make-delta-introducer)" -"(lambda(id-stx_1)" +"(lambda(id-stx_0)" "(begin" " 'syntax-local-make-delta-introducer" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id-stx_1)" +"(if(identifier? id-stx_0)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-make-delta-introducer \"identifier?\" id-stx_1)))" +" (let-values () (raise-argument-error 'syntax-local-make-delta-introducer \"identifier?\" id-stx_0)))" "(raise" "(exn:fail:unsupported" " \"syntax-local-make-delta-introducer: not supported anymore\"" @@ -41680,328 +41871,337 @@ static const char *startup_source = "(lambda(immediate?9_0 who11_0 id12_0 intdefs13_0 failure-thunk14_0)" "(begin" " 'do-syntax-local-value15" -"(let-values(((who_19) who11_0))" -"(let-values(((id_78) id12_0))" -"(let-values(((intdefs_3) intdefs13_0))" -"(let-values(((failure-thunk_0) failure-thunk14_0))" -"(let-values(((immediate?_1) immediate?9_0))" +"(let-values(((who_107) who11_0))" +"(let-values(((id_108) id12_0))" +"(let-values(((intdefs_109) intdefs13_0))" +"(let-values(((failure-thunk_110) failure-thunk14_0))" +"(let-values(((immediate?_111) immediate?9_0))" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_78)" +"(if(identifier? id_108)" "(void)" -" (let-values () (raise-argument-error who_19 \"identifier?\" id_78)))" +" (let-values () (raise-argument-error who_107 \"identifier?\" id_108)))" "(values))))" "(let-values((()" "(begin" -"(if((lambda(x_81)" -"(let-values(((or-part_210)(not x_81)))" -"(if or-part_210" -" or-part_210" -"((lambda(p_41)" -"(if(procedure? p_41)(procedure-arity-includes? p_41 0) #f))" -" x_81))))" -" failure-thunk_0)" +"(if((lambda(x_0)" +"(let-values(((or-part_116)(not x_0)))" +"(if or-part_116" +" or-part_116" +"((lambda(p_0)" +"(if(procedure? p_0)(procedure-arity-includes? p_0 0) #f))" +" x_0))))" +" failure-thunk_110)" "(void)" "(let-values()" "(raise-argument-error" -" who_19" +" who_107" " \"(or/c #f (procedure-arity-includes/c 0))\"" -" failure-thunk_0)))" +" failure-thunk_110)))" "(values))))" "(let-values((()" "(begin" -"(if(intdefs-or-false? intdefs_3)" +"(if(intdefs-or-false? intdefs_109)" "(void)" "(let-values()" -"(raise-argument-error who_19 intdefs-or-false?-string intdefs_3)))" +"(raise-argument-error who_107 intdefs-or-false?-string intdefs_109)))" "(values))))" -"(let-values(((current-ctx_0)" -"(let-values(((who81_0) who_19))(get-current-expand-context16.1 #f who81_0))))" -"(let-values(((ctx_11)" -"(if intdefs_3" -"(let-values(((v_187) current-ctx_0))" -"(let-values(((the-struct_68) v_187))" -"(if(expand-context/outer? the-struct_68)" -"(let-values(((env82_0)" +"(let-values(((current-ctx_112)" +"(let-values(((who81_118) who_107))" +"(get-current-expand-context16.1 #f who81_118))))" +"(let-values(((ctx_113)" +"(if intdefs_109" +"(let-values(((v_119) current-ctx_112))" +"(let-values(((the-struct_120) v_119))" +"(if(expand-context/outer? the-struct_120)" +"(let-values(((env82_121)" "(add-intdef-bindings" -"(expand-context-env current-ctx_0)" -" intdefs_3))" -"((inner83_0)(root-expand-context/outer-inner v_187)))" +"(expand-context-env current-ctx_112)" +" intdefs_109))" +"((inner83_122)(root-expand-context/outer-inner v_119)))" "(expand-context/outer1.1" -" inner83_0" -"(root-expand-context/outer-post-expansion the-struct_68)" -"(root-expand-context/outer-use-site-scopes the-struct_68)" -"(root-expand-context/outer-frame-id the-struct_68)" -"(expand-context/outer-context the-struct_68)" -" env82_0" -"(expand-context/outer-scopes the-struct_68)" -"(expand-context/outer-def-ctx-scopes the-struct_68)" -"(expand-context/outer-binding-layer the-struct_68)" -"(expand-context/outer-reference-records the-struct_68)" -"(expand-context/outer-only-immediate? the-struct_68)" -"(expand-context/outer-need-eventually-defined the-struct_68)" -"(expand-context/outer-current-introduction-scopes the-struct_68)" -"(expand-context/outer-current-use-scopes the-struct_68)" -"(expand-context/outer-name the-struct_68)))" +" inner83_122" +"(root-expand-context/outer-post-expansion the-struct_120)" +"(root-expand-context/outer-use-site-scopes the-struct_120)" +"(root-expand-context/outer-frame-id the-struct_120)" +"(expand-context/outer-context the-struct_120)" +" env82_121" +"(expand-context/outer-scopes the-struct_120)" +"(expand-context/outer-def-ctx-scopes the-struct_120)" +"(expand-context/outer-binding-layer the-struct_120)" +"(expand-context/outer-reference-records the-struct_120)" +"(expand-context/outer-only-immediate? the-struct_120)" +"(expand-context/outer-need-eventually-defined the-struct_120)" +"(expand-context/outer-current-introduction-scopes the-struct_120)" +"(expand-context/outer-current-use-scopes the-struct_120)" +"(expand-context/outer-name the-struct_120)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_68))))" -" current-ctx_0)))" +" the-struct_120))))" +" current-ctx_112)))" "(let-values((()" "(begin" -"(let-values(((obs_34)(expand-context-observer ctx_11)))" -"(if obs_34" +"(let-values(((obs_123)(expand-context-observer ctx_113)))" +"(if obs_123" "(let-values()" -"(let-values()(call-expand-observe obs_34 'local-value id_78)))" +"(let-values()(call-expand-observe obs_123 'local-value id_108)))" "(void)))" "(values))))" -"(let-values(((phase_73)(expand-context-phase ctx_11)))" -"((letrec-values(((loop_96)" -"(lambda(id_62)" +"(let-values(((phase_114)(expand-context-phase ctx_113)))" +"((letrec-values(((loop_124)" +"(lambda(id_0)" "(begin" " 'loop" -"(let-values(((b_83)" -"(if immediate?_1" -"(let-values(((id84_0) id_62)" -"((phase85_0) phase_73)" -"((temp86_0) #t))" +"(let-values(((b_126)" +"(if immediate?_111" +"(let-values(((id84_128) id_0)" +"((phase85_129) phase_114)" +"((temp86_130) #t))" "(resolve+shift28.1" " #f" " #f" " null" -" temp86_0" +" temp86_130" " #f" -" id84_0" -" phase85_0))" +" id84_128" +" phase85_129))" "(resolve+shift/extra-inspector" -" id_62" -" phase_73" -"(expand-context-namespace ctx_11)))))" +" id_0" +" phase_114" +"(expand-context-namespace ctx_113)))))" "(begin" -"(let-values(((obs_35)(expand-context-observer ctx_11)))" -"(if obs_35" +"(let-values(((obs_131)(expand-context-observer ctx_113)))" +"(if obs_131" "(let-values()" "(let-values()" -"(call-expand-observe obs_35 'resolve id_62)))" +"(call-expand-observe obs_131 'resolve id_0)))" "(void)))" -"(if(not b_83)" +"(if(not b_126)" "(let-values()" "(begin" -"(let-values(((obs_36)" -"(expand-context-observer ctx_11)))" -"(if obs_36" +"(let-values(((obs_132)" +"(expand-context-observer ctx_113)))" +"(if obs_132" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_36" +" obs_132" " 'local-value-result" " #f)))" "(void)))" -"(if failure-thunk_0" -"(failure-thunk_0)" -" (error who_19 \"unbound identifier: ~v\" id_62))))" +"(if failure-thunk_110" +"(failure-thunk_110)" +" (error who_107 \"unbound identifier: ~v\" id_0))))" "(let-values()" -"(let-values(((v_40 primitive?_7 insp_17 protected?_8)" -"(let-values(((b87_0) b_83)" -"((ctx88_0) ctx_11)" -"((id89_0) id_62)" -"((temp90_0) #t))" +"(let-values(((v_133" +" primitive?_134" +" insp_135" +" protected?_136)" +"(let-values(((b87_138) b_126)" +"((ctx88_139) ctx_113)" +"((id89_140) id_0)" +"((temp90_141) #t))" "(lookup62.1" " #f" -" temp90_0" -" b87_0" -" ctx88_0" -" id89_0))))" -"(if(let-values(((or-part_101)(variable? v_40)))" -"(if or-part_101 or-part_101(core-form? v_40)))" +" temp90_141" +" b87_138" +" ctx88_139" +" id89_140))))" +"(if(let-values(((or-part_142)(variable? v_133)))" +"(if or-part_142 or-part_142(core-form? v_133)))" "(let-values()" "(begin" -"(let-values(((obs_37)" -"(expand-context-observer ctx_11)))" -"(if obs_37" +"(let-values(((obs_143)" +"(expand-context-observer ctx_113)))" +"(if obs_143" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_37" +" obs_143" " 'local-value-result" " #f)))" "(void)))" -"(if failure-thunk_0" -"(failure-thunk_0)" +"(if failure-thunk_110" +"(failure-thunk_110)" "(error" -" who_19" +" who_107" " \"identifier is not bound to syntax: ~v\"" -" id_62))))" +" id_0))))" "(let-values()" "(begin" -"(let-values(((obs_38)" -"(expand-context-observer ctx_11)))" -"(if obs_38" +"(let-values(((obs_144)" +"(expand-context-observer ctx_113)))" +"(if obs_144" "(let-values()" "(if(not" -"(if(1/rename-transformer? v_40)" -"(not immediate?_1)" +"(if(1/rename-transformer? v_133)" +"(not immediate?_111)" " #f))" "(let-values()" "(call-expand-observe" -" obs_38" +" obs_144" " 'local-value-result" " #t))" "(void)))" "(void)))" -"(if(1/rename-transformer? v_40)" +"(if(1/rename-transformer? v_133)" "(let-values()" -"(if immediate?_1" +"(if immediate?_111" "(values" -" v_40" -"(1/rename-transformer-target v_40))" -"(loop_96" -"(1/rename-transformer-target v_40))))" -"(if immediate?_1" -"(let-values()(values v_40 #f))" -"(let-values() v_40)))))))))))))))" -" loop_96)" -"(flip-introduction-scopes id_78 ctx_11))))))))))))))))))" +" v_133" +"(1/rename-transformer-target v_133))" +"(loop_124" +"(1/rename-transformer-target v_133))))" +"(if immediate?_111" +"(let-values()(values v_133 #f))" +"(let-values() v_133)))))))))))))))" +" loop_124)" +"(flip-introduction-scopes id_108 ctx_113))))))))))))))))))" "(define-values" "(1/syntax-local-value)" -"(let-values(((syntax-local-value21_0)" +"(let-values(((syntax-local-value21_161)" "(lambda(id20_0 failure-thunk18_0 intdef19_0)" "(begin" " 'syntax-local-value21" -"(let-values(((id_79) id20_0))" -"(let-values(((failure-thunk_1) failure-thunk18_0))" -"(let-values(((intdef_13) intdef19_0))" +"(let-values(((id_165) id20_0))" +"(let-values(((failure-thunk_166) failure-thunk18_0))" +"(let-values(((intdef_167) intdef19_0))" "(let-values()" -"(let-values(((temp91_1) 'syntax-local-value)" -"((temp92_1) #f)" -"((id93_1) id_79)" -"((intdef94_0) intdef_13)" -"((failure-thunk95_0) failure-thunk_1))" -"(do-syntax-local-value15.1 temp92_1 temp91_1 id93_1 intdef94_0 failure-thunk95_0))))))))))" +"(let-values(((temp91_169) 'syntax-local-value)" +"((temp92_170) #f)" +"((id93_171) id_165)" +"((intdef94_172) intdef_167)" +"((failure-thunk95_173) failure-thunk_166))" +"(do-syntax-local-value15.1" +" temp92_170" +" temp91_169" +" id93_171" +" intdef94_172" +" failure-thunk95_173))))))))))" "(case-lambda" -"((id_80)(begin 'syntax-local-value(syntax-local-value21_0 id_80 #f #f)))" -"((id_63 failure-thunk_2 intdef19_1)(syntax-local-value21_0 id_63 failure-thunk_2 intdef19_1))" -"((id_81 failure-thunk18_1)(syntax-local-value21_0 id_81 failure-thunk18_1 #f)))))" +"((id_0)(begin 'syntax-local-value(syntax-local-value21_161 id_0 #f #f)))" +"((id_0 failure-thunk_0 intdef19_0)(syntax-local-value21_161 id_0 failure-thunk_0 intdef19_0))" +"((id_0 failure-thunk18_0)(syntax-local-value21_161 id_0 failure-thunk18_0 #f)))))" "(define-values" "(1/syntax-local-value/immediate)" -"(let-values(((syntax-local-value/immediate26_0)" -"(lambda(id25_2 failure-thunk23_0 intdef24_0)" +"(let-values(((syntax-local-value/immediate26_180)" +"(lambda(id25_0 failure-thunk23_0 intdef24_0)" "(begin" " 'syntax-local-value/immediate26" -"(let-values(((id_82) id25_2))" -"(let-values(((failure-thunk_3) failure-thunk23_0))" -"(let-values(((intdef_14) intdef24_0))" +"(let-values(((id_184) id25_0))" +"(let-values(((failure-thunk_185) failure-thunk23_0))" +"(let-values(((intdef_186) intdef24_0))" "(let-values()" -"(let-values(((temp96_1) 'syntax-local-value/immediate)" -"((temp97_1) #t)" -"((id98_0) id_82)" -"((intdef99_0) intdef_14)" -"((failure-thunk100_0) failure-thunk_3))" +"(let-values(((temp96_188) 'syntax-local-value/immediate)" +"((temp97_189) #t)" +"((id98_190) id_184)" +"((intdef99_191) intdef_186)" +"((failure-thunk100_192) failure-thunk_185))" "(do-syntax-local-value15.1" -" temp97_1" -" temp96_1" -" id98_0" -" intdef99_0" -" failure-thunk100_0))))))))))" +" temp97_189" +" temp96_188" +" id98_190" +" intdef99_191" +" failure-thunk100_192))))))))))" "(case-lambda" -"((id_83)(begin 'syntax-local-value/immediate(syntax-local-value/immediate26_0 id_83 #f #f)))" -"((id_84 failure-thunk_4 intdef24_1)(syntax-local-value/immediate26_0 id_84 failure-thunk_4 intdef24_1))" -"((id_85 failure-thunk23_1)(syntax-local-value/immediate26_0 id_85 failure-thunk23_1 #f)))))" +"((id_0)(begin 'syntax-local-value/immediate(syntax-local-value/immediate26_180 id_0 #f #f)))" +"((id_0 failure-thunk_0 intdef24_0)(syntax-local-value/immediate26_180 id_0 failure-thunk_0 intdef24_0))" +"((id_0 failure-thunk23_0)(syntax-local-value/immediate26_180 id_0 failure-thunk23_0 #f)))))" "(define-values" "(do-lift-values-expression)" -"(lambda(who_20 n_28 s_34)" +"(lambda(who_0 n_0 s_0)" "(begin" "(let-values((()" "(begin" -" (if (syntax?$1 s_34) (void) (let-values () (raise-argument-error who_20 \"syntax?\" s_34)))" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_0)))" "(values))))" "(let-values((()" "(begin" -"(if(exact-nonnegative-integer? n_28)" +"(if(exact-nonnegative-integer? n_0)" "(void)" -" (let-values () (raise-argument-error who_20 \"exact-nonnegative-integer?\" n_28)))" +" (let-values () (raise-argument-error who_0 \"exact-nonnegative-integer?\" n_0)))" "(values))))" -"(let-values(((ctx_55)(let-values(((who101_0) who_20))(get-current-expand-context16.1 #f who101_0))))" -"(let-values(((lifts_8)(expand-context-lifts ctx_55)))" +"(let-values(((ctx_202)(let-values(((who101_206) who_0))(get-current-expand-context16.1 #f who101_206))))" +"(let-values(((lifts_203)(expand-context-lifts ctx_202)))" "(let-values((()" "(begin" -" (if lifts_8 (void) (let-values () (raise-arguments-error who_20 \"no lift target\")))" +" (if lifts_203 (void) (let-values () (raise-arguments-error who_0 \"no lift target\")))" "(values))))" -"(let-values(((counter_4)(root-expand-context-counter ctx_55)))" -"(let-values(((ids_27)" +"(let-values(((counter_204)(root-expand-context-counter ctx_202)))" +"(let-values(((ids_205)" "(reverse$1" -"(let-values(((start_39) 0)((end_29) n_28)((inc_23) 1))" +"(let-values(((start_207) 0)((end_208) n_0)((inc_209) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_39 end_29 inc_23)))" -"((letrec-values(((for-loop_221)" -"(lambda(fold-var_253 pos_106)" +"(let-values()(check-range start_207 end_208 inc_209)))" +"((letrec-values(((for-loop_210)" +"(lambda(fold-var_0 pos_0)" "(begin" " 'for-loop" -"(if(< pos_106 end_29)" +"(if(< pos_0 end_208)" "(let-values()" -"(let-values(((fold-var_254)" -"(let-values(((fold-var_255) fold-var_253))" -"(let-values(((fold-var_256)" +"(let-values(((fold-var_214)" +"(let-values(((fold-var_215) fold-var_0))" +"(let-values(((fold-var_216)" "(let-values()" "(cons" "(let-values()" "(let-values((()" "(begin" "(set-box!" -" counter_4" +" counter_204" "(add1" "(unbox" -" counter_4)))" +" counter_204)))" "(values))))" -"(let-values(((name_60)" +"(let-values(((name_217)" "(string->unreadable-symbol" "(format" " \"lifted/~a\"" "(unbox" -" counter_4)))))" +" counter_204)))))" "(add-scope" "(datum->syntax$1" " #f" -" name_60)" +" name_217)" "(new-scope" " 'macro)))))" -" fold-var_255))))" -"(values fold-var_256)))))" +" fold-var_215))))" +"(values fold-var_216)))))" "(if(not #f)" -"(for-loop_221 fold-var_254(+ pos_106 inc_23))" -" fold-var_254)))" -" fold-var_253)))))" -" for-loop_221)" +"(for-loop_210 fold-var_214(+ pos_0 inc_209))" +" fold-var_214)))" +" fold-var_0)))))" +" for-loop_210)" " null" -" start_39))))))" +" start_207))))))" "(begin" -"(let-values(((obs_39)(expand-context-observer ctx_55)))" -"(if obs_39" -"(let-values()(let-values()(call-expand-observe obs_39 'lift-expr ids_27 s_34)))" +"(let-values(((obs_218)(expand-context-observer ctx_202)))" +"(if obs_218" +"(let-values()(let-values()(call-expand-observe obs_218 'lift-expr ids_205 s_0)))" "(void)))" "(map2" -"(lambda(id_86)(flip-introduction-scopes id_86 ctx_55))" +"(lambda(id_0)(flip-introduction-scopes id_0 ctx_202))" "(add-lifted!" -" lifts_8" -" ids_27" -"(flip-introduction-scopes s_34 ctx_55)" -"(expand-context-phase ctx_55))))))))))))))" +" lifts_203" +" ids_205" +"(flip-introduction-scopes s_0 ctx_202)" +"(expand-context-phase ctx_202))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" -"(lambda(s_36)" +"(lambda(s_0)" "(begin" " 'syntax-local-lift-expression" -"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_36)))))))" +"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_0)))))))" "(define-values" "(1/syntax-local-lift-values-expression)" -"(lambda(n_29 s_63)" +"(lambda(n_0 s_0)" "(begin" " 'syntax-local-lift-values-expression" -"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_63))))))" +"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_0 s_0))))))" "(define-values" "(1/syntax-local-lift-context)" "(lambda()" @@ -42009,47 +42209,47 @@ static const char *startup_source = " 'syntax-local-lift-context" "(let-values()" "(let-values()" -"(let-values(((ctx_56)" -"(let-values(((who105_0) 'syntax-local-lift-context))" -"(get-current-expand-context16.1 #f who105_0))))" -"(root-expand-context-lift-key ctx_56)))))))" +"(let-values(((ctx_226)" +"(let-values(((who105_227) 'syntax-local-lift-context))" +"(get-current-expand-context16.1 #f who105_227))))" +"(root-expand-context-lift-key ctx_226)))))))" "(define-values" "(1/syntax-local-lift-module)" -"(lambda(s_64)" +"(lambda(s_0)" "(begin" " 'syntax-local-lift-module" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_64)" +"(if(syntax?$1 s_0)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_64)))" +" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_0)))" "(values))))" -"(let-values(((ctx_57)" -"(let-values(((who107_0) 'syntax-local-lift-module))" -"(get-current-expand-context16.1 #f who107_0))))" -"(let-values(((phase_103)(expand-context-phase ctx_57)))" +"(let-values(((ctx_230)" +"(let-values(((who107_232) 'syntax-local-lift-module))" +"(get-current-expand-context16.1 #f who107_232))))" +"(let-values(((phase_231)(expand-context-phase ctx_230)))" "(begin" -"(let-values(((tmp_30)(core-form-sym s_64 phase_103)))" -"(if(if(equal? tmp_30 'module) #t(equal? tmp_30 'module*))" +"(let-values(((tmp_233)(core-form-sym s_0 phase_231)))" +"(if(if(equal? tmp_233 'module) #t(equal? tmp_233 'module*))" "(let-values()" -"(let-values(((lifts_9)(expand-context-module-lifts ctx_57)))" +"(let-values(((lifts_234)(expand-context-module-lifts ctx_230)))" "(begin" -"(if lifts_9" +"(if lifts_234" "(void)" "(let-values()" "(raise-arguments-error" " 'syntax-local-lift-module" " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" -" s_64)))" -"(add-lifted-module! lifts_9(flip-introduction-scopes s_64 ctx_57) phase_103))))" +" s_0)))" +"(add-lifted-module! lifts_234(flip-introduction-scopes s_0 ctx_230) phase_231))))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_64))))" -"(let-values(((obs_40)(expand-context-observer ctx_57)))" -"(if obs_40" -"(let-values()(let-values()(call-expand-observe obs_40 'lift-statement s_64)))" +" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_0))))" +"(let-values(((obs_235)(expand-context-observer ctx_230)))" +"(if obs_235" +"(let-values()(let-values()(call-expand-observe obs_235 'lift-statement s_0)))" "(void))))))))))))" "(define-values" "(do-local-lift-to-module48.1)" @@ -42066,232 +42266,233 @@ static const char *startup_source = " s47_0)" "(begin" " 'do-local-lift-to-module48" -"(let-values(((who_21) who46_0))" -"(let-values(((s_433) s47_0))" -"(let-values(((no-target-msg_0) no-target-msg28_0))" -"(let-values(((intro?_0) intro?29_0))" -"(let-values(((more-checks_0)(if(eq? more-checks30_0 unsafe-undefined) void more-checks30_0)))" -"(let-values(((get-lift-ctx_0) get-lift-ctx31_0))" -"(let-values(((add-lifted!_0) add-lifted!32_0))" -"(let-values(((get-wrt-phase_0) get-wrt-phase33_0))" -"(let-values(((pre-wrap_0)" +"(let-values(((who_253) who46_0))" +"(let-values(((s_254) s47_0))" +"(let-values(((no-target-msg_255) no-target-msg28_0))" +"(let-values(((intro?_256) intro?29_0))" +"(let-values(((more-checks_257)(if(eq? more-checks30_0 unsafe-undefined) void more-checks30_0)))" +"(let-values(((get-lift-ctx_258) get-lift-ctx31_0))" +"(let-values(((add-lifted!_259) add-lifted!32_0))" +"(let-values(((get-wrt-phase_260) get-wrt-phase33_0))" +"(let-values(((pre-wrap_261)" "(if(eq? pre-wrap34_0 unsafe-undefined)" -"(lambda(s_434 phase_112 lift-ctx_1)(begin 'pre-wrap s_434))" +"(lambda(s_0 phase_0 lift-ctx_0)(begin 'pre-wrap s_0))" " pre-wrap34_0)))" -"(let-values(((shift-wrap_0)" +"(let-values(((shift-wrap_265)" "(if(eq? shift-wrap35_0 unsafe-undefined)" -"(lambda(s_210 phase_113 lift-ctx_2)(begin 'shift-wrap s_210))" +"(lambda(s_0 phase_0 lift-ctx_0)(begin 'shift-wrap s_0))" " shift-wrap35_0)))" -"(let-values(((post-wrap_0)" +"(let-values(((post-wrap_269)" "(if(eq? post-wrap36_0 unsafe-undefined)" -"(lambda(s_211 phase_12 lift-ctx_3)(begin 'post-wrap s_211))" +"(lambda(s_0 phase_0 lift-ctx_0)(begin 'post-wrap s_0))" " post-wrap36_0)))" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_433)" +"(if(syntax?$1 s_254)" "(void)" -" (let-values () (raise-argument-error who_21 \"syntax?\" s_433)))" +" (let-values () (raise-argument-error who_253 \"syntax?\" s_254)))" "(values))))" -"(let-values((()(begin(more-checks_0)(values))))" -"(let-values(((ctx_58)" -"(let-values(((who108_0) who_21))" -"(get-current-expand-context16.1 #f who108_0))))" -"(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_58)))" +"(let-values((()(begin(more-checks_257)(values))))" +"(let-values(((ctx_273)" +"(let-values(((who108_281) who_253))" +"(get-current-expand-context16.1 #f who108_281))))" +"(let-values(((lift-ctx_274)(get-lift-ctx_258 ctx_273)))" "(let-values((()" "(begin" -"(if lift-ctx_4" +"(if lift-ctx_274" "(void)" "(let-values()" "(raise-arguments-error" -" who_21" -" no-target-msg_0" +" who_253" +" no-target-msg_255" " \"form to lift\"" -" s_433)))" +" s_254)))" "(values))))" -"(let-values(((phase_91)(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_433 ctx_58) s_433)))" -"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_91 lift-ctx_4)))" -"(let-values(((shift-s_0)" -"(let-values(((start_40) phase_91)" -"((end_30) wrt-phase_1)" -"((inc_24) -1))" +"(let-values(((phase_275)(expand-context-phase ctx_273)))" +"(let-values(((wrt-phase_276)(get-wrt-phase_260 lift-ctx_274)))" +"(let-values(((added-s_277)" +"(if intro?_256" +"(flip-introduction-scopes s_254 ctx_273)" +" s_254)))" +"(let-values(((pre-s_278)" +"(pre-wrap_261 added-s_277 phase_275 lift-ctx_274)))" +"(let-values(((shift-s_279)" +"(let-values(((start_282) phase_275)" +"((end_283) wrt-phase_276)" +"((inc_284) -1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-range start_40 end_30 inc_24)))" -"((letrec-values(((for-loop_131)" -"(lambda(s_435 pos_107)" +"(check-range start_282 end_283 inc_284)))" +"((letrec-values(((for-loop_285)" +"(lambda(s_0 pos_0)" "(begin" " 'for-loop" -"(if(> pos_107 end_30)" -"(let-values(((phase_114)" -" pos_107))" -"(let-values(((s_321)" -"(let-values(((s_436)" -" s_435))" -"(let-values(((s_437)" +"(if(> pos_0 end_283)" +"(let-values(((phase_288)" +" pos_0))" +"(let-values(((s_289)" +"(let-values(((s_290)" +" s_0))" +"(let-values(((s_291)" "(let-values()" -"(shift-wrap_0" -" s_436" +"(shift-wrap_265" +" s_290" "(sub1" -" phase_114)" -" lift-ctx_4))))" +" phase_288)" +" lift-ctx_274))))" "(values" -" s_437)))))" +" s_291)))))" "(if(not #f)" -"(for-loop_131" -" s_321" -"(+ pos_107 inc_24))" -" s_321)))" -" s_435)))))" -" for-loop_131)" -" pre-s_0" -" start_40)))))" -"(let-values(((post-s_1)" -"(post-wrap_0 shift-s_0 wrt-phase_1 lift-ctx_4)))" +"(for-loop_285" +" s_289" +"(+ pos_0 inc_284))" +" s_289)))" +" s_0)))))" +" for-loop_285)" +" pre-s_278" +" start_282)))))" +"(let-values(((post-s_280)" +"(post-wrap_269 shift-s_279 wrt-phase_276 lift-ctx_274)))" "(begin" -"(add-lifted!_0 lift-ctx_4 post-s_1 wrt-phase_1)" -"(values ctx_58 post-s_1))))))))))))))))))))))))))))" +"(add-lifted!_259 lift-ctx_274 post-s_280 wrt-phase_276)" +"(values ctx_273 post-s_280))))))))))))))))))))))))))))" "(define-values" "(1/syntax-local-lift-require)" -"(lambda(s_218 use-s_1)" +"(lambda(s_0 use-s_0)" "(begin" " 'syntax-local-lift-require" "(let-values()" "(let-values()" -"(let-values(((sc_35)(new-scope 'lifted-require)))" -"(let-values(((ctx_59 added-s_1)" -"(let-values(((who110_0) 'syntax-local-lift-require)" -"((temp111_0)(datum->syntax$1 #f s_218))" -" ((temp112_0) \"could not find target context\")" -"((temp113_0) #f)" -"((temp114_1)" +"(let-values(((sc_335)(new-scope 'lifted-require)))" +"(let-values(((ctx_336 added-s_337)" +"(let-values(((who110_340) 'syntax-local-lift-require)" +"((temp111_341)(datum->syntax$1 #f s_0))" +" ((temp112_342) \"could not find target context\")" +"((temp113_343) #f)" +"((temp114_344)" "(lambda()" -"(if(syntax?$1 use-s_1)" +"(if(syntax?$1 use-s_0)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-local-lift-require \"syntax?\" use-s_1)))))" -"((expand-context-require-lifts115_0) expand-context-require-lifts)" -"((require-lift-context-wrt-phase116_0) require-lift-context-wrt-phase)" -"((add-lifted-require!117_0) add-lifted-require!)" -"((temp118_0)" -"(lambda(s_110 phase_115 require-lift-ctx_0)" -"(require-spec-shift-for-syntax s_110)))" -"((temp119_0)" -"(lambda(s_438 phase_116 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_438 sc_35) phase_116))))" +" (raise-argument-error 'syntax-local-lift-require \"syntax?\" use-s_0)))))" +"((expand-context-require-lifts115_345) expand-context-require-lifts)" +"((require-lift-context-wrt-phase116_346) require-lift-context-wrt-phase)" +"((add-lifted-require!117_347) add-lifted-require!)" +"((temp118_348)" +"(lambda(s_1 phase_0 require-lift-ctx_0)(require-spec-shift-for-syntax s_1)))" +"((temp119_349)" +"(lambda(s_1 phase_0 require-lift-ctx_0)" +"(wrap-form '#%require(add-scope s_1 sc_335) phase_0))))" "(do-local-lift-to-module48.1" -" add-lifted-require!117_0" -" expand-context-require-lifts115_0" -" require-lift-context-wrt-phase116_0" -" temp113_0" -" temp114_1" -" temp112_0" -" temp119_0" +" add-lifted-require!117_347" +" expand-context-require-lifts115_345" +" require-lift-context-wrt-phase116_346" +" temp113_343" +" temp114_344" +" temp112_342" +" temp119_349" " unsafe-undefined" -" temp118_0" -" who110_0" -" temp111_0))))" +" temp118_348" +" who110_340" +" temp111_341))))" "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_59)" -"(expand-context-phase ctx_59))" +"(expand-context-namespace ctx_336)" +"(expand-context-phase ctx_336))" "(values))))" -"(let-values(((result-s_6)(add-scope use-s_1 sc_35)))" +"(let-values(((result-s_338)(add-scope use-s_0 sc_335)))" "(begin" -"(let-values(((obs_41)(expand-context-observer ctx_59)))" -"(if obs_41" +"(let-values(((obs_356)(expand-context-observer ctx_336)))" +"(if obs_356" "(let-values()" -"(let-values()(call-expand-observe obs_41 'lift-require added-s_1 use-s_1 result-s_6)))" +"(let-values()(call-expand-observe obs_356 'lift-require added-s_337 use-s_0 result-s_338)))" "(void)))" -" result-s_6))))))))))" +" result-s_338))))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_161)" +"(lambda(s_0)" "(begin" " 'syntax-local-lift-provide" "(let-values()" "(let-values()" -"(let-values(((ctx_60 result-s_7)" -"(let-values(((who121_0) 'syntax-local-lift-provide)" -"((s122_1) s_161)" -" ((temp123_0) \"not expanding in a module run-time body\")" -"((expand-context-to-module-lifts124_0) expand-context-to-module-lifts)" -"((to-module-lift-context-wrt-phase125_0) to-module-lift-context-wrt-phase)" -"((add-lifted-to-module-provide!126_0) add-lifted-to-module-provide!)" -"((temp127_2)" -"(lambda(s_439 phase_117 to-module-lift-ctx_0)(wrap-form 'for-syntax s_439 #f)))" -"((temp128_2)" -"(lambda(s_116 phase_118 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_116 phase_118))))" +"(let-values(((ctx_359 result-s_360)" +"(let-values(((who121_362) 'syntax-local-lift-provide)" +"((s122_363) s_0)" +" ((temp123_364) \"not expanding in a module run-time body\")" +"((expand-context-to-module-lifts124_365) expand-context-to-module-lifts)" +"((to-module-lift-context-wrt-phase125_366) to-module-lift-context-wrt-phase)" +"((add-lifted-to-module-provide!126_367) add-lifted-to-module-provide!)" +"((temp127_368)" +"(lambda(s_1 phase_0 to-module-lift-ctx_0)(wrap-form 'for-syntax s_1 #f)))" +"((temp128_369)" +"(lambda(s_1 phase_0 to-module-lift-ctx_0)(wrap-form '#%provide s_1 phase_0))))" "(do-local-lift-to-module48.1" -" add-lifted-to-module-provide!126_0" -" expand-context-to-module-lifts124_0" -" to-module-lift-context-wrt-phase125_0" +" add-lifted-to-module-provide!126_367" +" expand-context-to-module-lifts124_365" +" to-module-lift-context-wrt-phase125_366" " #t" " unsafe-undefined" -" temp123_0" -" temp128_2" +" temp123_364" +" temp128_369" " unsafe-undefined" -" temp127_2" -" who121_0" -" s122_1))))" -"(let-values(((obs_42)(expand-context-observer ctx_60)))" -"(if obs_42" -"(let-values()(let-values()(call-expand-observe obs_42 'lift-provide result-s_7)))" +" temp127_368" +" who121_362" +" s122_363))))" +"(let-values(((obs_376)(expand-context-observer ctx_359)))" +"(if obs_376" +"(let-values()(let-values()(call-expand-observe obs_376 'lift-provide result-s_360)))" "(void)))))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" -"(lambda(s_225)" +"(lambda(s_0)" "(begin" " 'syntax-local-lift-module-end-declaration" "(let-values()" "(let-values()" -"(let-values(((ctx_61 also-s_0)" -"(let-values(((who130_0) 'syntax-local-lift-module-end-declaration)" -"((s131_0) s_225)" -"((temp132_1)" +"(let-values(((ctx_379 also-s_380)" +"(let-values(((who130_382) 'syntax-local-lift-module-end-declaration)" +"((s131_383) s_0)" +"((temp132_384)" " \"not currently transforming an expression within a module declaration\")" -"((expand-context-to-module-lifts133_0) expand-context-to-module-lifts)" -"((temp134_1)(lambda(lift-ctx_5) 0))" -"((add-lifted-to-module-end!135_0) add-lifted-to-module-end!)" -"((temp136_0)" -"(lambda(orig-s_32 phase_119 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_119)" -" orig-s_32)))" -"((temp137_1)" -"(lambda(s_440 phase_120 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_440 phase_120))))" +"((expand-context-to-module-lifts133_385) expand-context-to-module-lifts)" +"((temp134_386)(lambda(lift-ctx_0) 0))" +"((add-lifted-to-module-end!135_387) add-lifted-to-module-end!)" +"((temp136_388)" +"(lambda(orig-s_0 phase_0 to-module-lift-ctx_0)" +"(if(to-module-lift-context-end-as-expressions? to-module-lift-ctx_0)" +"(wrap-form '#%expression orig-s_0 phase_0)" +" orig-s_0)))" +"((temp137_389)" +"(lambda(s_1 phase_0 to-module-lift-ctx_0)" +"(wrap-form 'begin-for-syntax s_1 phase_0))))" "(do-local-lift-to-module48.1" -" add-lifted-to-module-end!135_0" -" expand-context-to-module-lifts133_0" -" temp134_1" +" add-lifted-to-module-end!135_387" +" expand-context-to-module-lifts133_385" +" temp134_386" " #t" " unsafe-undefined" -" temp132_1" +" temp132_384" " unsafe-undefined" -" temp136_0" -" temp137_1" -" who130_0" -" s131_0))))" -"(let-values(((obs_43)(expand-context-observer ctx_61)))" -"(if obs_43" -"(let-values()(let-values()(call-expand-observe obs_43 'lift-statement s_225)))" +" temp136_388" +" temp137_389" +" who130_382" +" s131_383))))" +"(let-values(((obs_397)(expand-context-observer ctx_379)))" +"(if obs_397" +"(let-values()(let-values()(call-expand-observe obs_397 'lift-statement s_0)))" "(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_74 s_124 phase_121)" +"(lambda(sym_0 s_0 phase_0)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_121(syntax-shift-phase-level$1 core-stx phase_121) #f) sym_74) s_124)))))" +"(list(datum->syntax$1(if phase_0(syntax-shift-phase-level$1 core-stx phase_0) #f) sym_0) s_0)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -42308,38 +42509,38 @@ static const char *startup_source = " 'syntax-local-module-defined-identifiers" " \"not currently transforming module provides\")))" "(values))))" -"(let-values(((ctx_62)" -"(let-values(((temp139_0) 'syntax-local-module-defined-identifiers))" -"(get-current-expand-context16.1 #f temp139_0))))" -"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_62))))))))))" +"(let-values(((ctx_402)" +"(let-values(((temp139_403) 'syntax-local-module-defined-identifiers))" +"(get-current-expand-context16.1 #f temp139_403))))" +"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_402))))))))))" "(define-values" "(1/syntax-local-module-required-identifiers)" -"(lambda(mod-path_8 phase-level_21)" +"(lambda(mod-path_0 phase-level_0)" "(begin" " 'syntax-local-module-required-identifiers" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_289)(not mod-path_8)))" -"(if or-part_289 or-part_289(1/module-path? mod-path_8)))" +"(if(let-values(((or-part_411)(not mod-path_0)))" +"(if or-part_411 or-part_411(1/module-path? mod-path_0)))" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-module-required-identifiers" " \"(or/c module-path? #f)\"" -" mod-path_8)))" +" mod-path_0)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_290)(eq? phase-level_21 #t)))" -"(if or-part_290 or-part_290(phase? phase-level_21)))" +"(if(let-values(((or-part_412)(eq? phase-level_0 #t)))" +"(if or-part_412 or-part_412(phase? phase-level_0)))" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-module-required-identifiers" " (format \"(or/c ~a #t)\" phase?-string)" -" phase-level_21)))" +" phase-level_0)))" "(values))))" "(let-values((()" "(begin" @@ -42350,90 +42551,88 @@ static const char *startup_source = " 'syntax-local-module-required-identifiers" " \"not currently transforming module provides\")))" "(values))))" -"(let-values(((ctx_63)" -"(let-values(((temp141_1) 'syntax-local-module-required-identifiers))" -"(get-current-expand-context16.1 #f temp141_1))))" -"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_63)))" -"(let-values(((mpi_44)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_63) #f)))" -"(let-values(((requireds_0)" +"(let-values(((ctx_407)" +"(let-values(((temp141_413) 'syntax-local-module-required-identifiers))" +"(get-current-expand-context16.1 #f temp141_413))))" +"(let-values(((requires+provides_408)(expand-context-requires+provides ctx_407)))" +"(let-values(((mpi_409)(if mod-path_0(module-path->mpi/context mod-path_0 ctx_407) #f)))" +"(let-values(((requireds_410)" "(extract-all-module-requires" -" requires+provides_5" -" mpi_44" -"(if(eq? phase-level_21 #t) 'all phase-level_21))))" -"(if requireds_0" +" requires+provides_408" +" mpi_409" +"(if(eq? phase-level_0 #t) 'all phase-level_0))))" +"(if requireds_410" "(reverse$1" -"(let-values(((ht_136)(requireds->phase-ht requireds_0)))" +"(let-values(((ht_414)(requireds->phase-ht requireds_410)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_136)))" -"((letrec-values(((for-loop_258)" -"(lambda(fold-var_257 i_161)" +"(let-values()(check-in-hash ht_414)))" +"((letrec-values(((for-loop_415)" +"(lambda(fold-var_0 i_0)" "(begin" " 'for-loop" -"(if i_161" -"(let-values(((phase_122 ids_28)" -"(hash-iterate-key+value ht_136 i_161)))" -"(let-values(((fold-var_207)" -"(let-values(((fold-var_258) fold-var_257))" -"(let-values(((fold-var_259)" +"(if i_0" +"(let-values(((phase_418 ids_419)" +"(hash-iterate-key+value ht_414 i_0)))" +"(let-values(((fold-var_420)" +"(let-values(((fold-var_421) fold-var_0))" +"(let-values(((fold-var_422)" "(let-values()" "(cons" "(let-values()" -"(cons phase_122 ids_28))" -" fold-var_258))))" -"(values fold-var_259)))))" +"(cons phase_418 ids_419))" +" fold-var_421))))" +"(values fold-var_422)))))" "(if(not #f)" -"(for-loop_258" -" fold-var_207" -"(hash-iterate-next ht_136 i_161))" -" fold-var_207)))" -" fold-var_257)))))" -" for-loop_258)" +"(for-loop_415 fold-var_420(hash-iterate-next ht_414 i_0))" +" fold-var_420)))" +" fold-var_0)))))" +" for-loop_415)" " null" -"(hash-iterate-first ht_136)))))" +"(hash-iterate-first ht_414)))))" " #f)))))))))))))" "(define-values" "(requireds->phase-ht)" -"(lambda(requireds_1)" +"(lambda(requireds_0)" "(begin" -"(let-values(((lst_296) requireds_1))" +"(let-values(((lst_424) requireds_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_296)))" -"((letrec-values(((for-loop_139)" -"(lambda(ht_137 lst_297)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_424)))" +"((letrec-values(((for-loop_425)" +"(lambda(ht_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_297)" -"(let-values(((r_40)(unsafe-car lst_297))((rest_170)(unsafe-cdr lst_297)))" -"(let-values(((ht_138)" -"(let-values(((ht_139) ht_137))" -"(let-values(((ht_140)" +"(if(pair? lst_0)" +"(let-values(((r_428)(unsafe-car lst_0))((rest_429)(unsafe-cdr lst_0)))" +"(let-values(((ht_430)" +"(let-values(((ht_431) ht_0))" +"(let-values(((ht_432)" "(let-values()" "(hash-update" -" ht_139" -"(required-phase r_40)" -"(lambda(l_71)(cons(required-id r_40) l_71))" +" ht_431" +"(required-phase r_428)" +"(lambda(l_0)(cons(required-id r_428) l_0))" " null))))" -"(values ht_140)))))" -"(if(not #f)(for-loop_139 ht_138 rest_170) ht_138)))" -" ht_137)))))" -" for-loop_139)" +"(values ht_432)))))" +"(if(not #f)(for-loop_425 ht_430 rest_429) ht_430)))" +" ht_0)))))" +" for-loop_425)" "(hasheqv)" -" lst_296))))))" +" lst_424))))))" "(define-values" "(1/syntax-local-module-exports)" -"(lambda(mod-path_9)" +"(lambda(mod-path_0)" "(begin" " 'syntax-local-module-exports" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_291)(1/module-path? mod-path_9)))" -"(if or-part_291" -" or-part_291" -"(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))" +"(if(let-values(((or-part_440)(1/module-path? mod-path_0)))" +"(if or-part_440" +" or-part_440" +"(if(syntax?$1 mod-path_0)(1/module-path?(syntax->datum$1 mod-path_0)) #f)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42443,97 +42642,97 @@ static const char *startup_source = " \" (and/c syntax?\\n\"" " \" (lambda (stx)\\n\"" " \" (module-path? (syntax->datum stx)))))\")" -" mod-path_9)))" +" mod-path_0)))" "(values))))" -"(let-values(((ctx_64)" -"(let-values(((temp143_0) 'syntax-local-module-exports))" -"(get-current-expand-context16.1 #f temp143_0))))" -"(let-values(((ns_76)(expand-context-namespace ctx_64)))" -"(let-values(((mod-name_18)" +"(let-values(((ctx_436)" +"(let-values(((temp143_441) 'syntax-local-module-exports))" +"(get-current-expand-context16.1 #f temp143_441))))" +"(let-values(((ns_437)(expand-context-namespace ctx_436)))" +"(let-values(((mod-name_438)" "(1/module-path-index-resolve" "(module-path->mpi/context" -"(if(syntax?$1 mod-path_9)(syntax->datum$1 mod-path_9) mod-path_9)" -" ctx_64)" +"(if(syntax?$1 mod-path_0)(syntax->datum$1 mod-path_0) mod-path_0)" +" ctx_436)" " #t)))" -"(let-values(((m_19)(namespace->module ns_76 mod-name_18)))" +"(let-values(((m_439)(namespace->module ns_437 mod-name_438)))" "(begin" -"(if m_19" +"(if m_439" "(void)" -"(let-values()(raise-unknown-module-error 'syntax-local-module-exports mod-name_18)))" +"(let-values()(raise-unknown-module-error 'syntax-local-module-exports mod-name_438)))" "(reverse$1" -"(let-values(((ht_141)(module-provides m_19)))" +"(let-values(((ht_442)(module-provides m_439)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_141)))" -"((letrec-values(((for-loop_259)" -"(lambda(fold-var_260 i_162)" +"(let-values()(check-in-hash ht_442)))" +"((letrec-values(((for-loop_443)" +"(lambda(fold-var_0 i_0)" "(begin" " 'for-loop" -"(if i_162" -"(let-values(((phase_123 syms_21)" -"(hash-iterate-key+value ht_141 i_162)))" -"(let-values(((fold-var_261)" -"(let-values(((fold-var_262) fold-var_260))" -"(let-values(((fold-var_263)" +"(if i_0" +"(let-values(((phase_446 syms_447)" +"(hash-iterate-key+value ht_442 i_0)))" +"(let-values(((fold-var_448)" +"(let-values(((fold-var_449) fold-var_0))" +"(let-values(((fold-var_450)" "(let-values()" "(cons" "(let-values()" "(cons" -" phase_123" +" phase_446" "(reverse$1" -"(let-values(((ht_142)" -" syms_21))" +"(let-values(((ht_451)" +" syms_447))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash-keys" -" ht_142)))" -"((letrec-values(((for-loop_260)" -"(lambda(fold-var_264" -" i_12)" +" ht_451)))" +"((letrec-values(((for-loop_452)" +"(lambda(fold-var_1" +" i_1)" "(begin" " 'for-loop" -"(if i_12" -"(let-values(((sym_75)" +"(if i_1" +"(let-values(((sym_455)" "(hash-iterate-key" -" ht_142" -" i_12)))" -"(let-values(((fold-var_265)" -"(let-values(((fold-var_266)" -" fold-var_264))" -"(let-values(((fold-var_267)" +" ht_451" +" i_1)))" +"(let-values(((fold-var_456)" +"(let-values(((fold-var_457)" +" fold-var_1))" +"(let-values(((fold-var_458)" "(let-values()" "(cons" "(let-values()" -" sym_75)" -" fold-var_266))))" +" sym_455)" +" fold-var_457))))" "(values" -" fold-var_267)))))" +" fold-var_458)))))" "(if(not" " #f)" -"(for-loop_260" -" fold-var_265" +"(for-loop_452" +" fold-var_456" "(hash-iterate-next" -" ht_142" -" i_12))" -" fold-var_265)))" -" fold-var_264)))))" -" for-loop_260)" +" ht_451" +" i_1))" +" fold-var_456)))" +" fold-var_1)))))" +" for-loop_452)" " null" "(hash-iterate-first" -" ht_142)))))))" -" fold-var_262))))" -"(values fold-var_263)))))" +" ht_451)))))))" +" fold-var_449))))" +"(values fold-var_450)))))" "(if(not #f)" -"(for-loop_259 fold-var_261(hash-iterate-next ht_141 i_162))" -" fold-var_261)))" -" fold-var_260)))))" -" for-loop_259)" +"(for-loop_443 fold-var_448(hash-iterate-next ht_442 i_0))" +" fold-var_448)))" +" fold-var_0)))))" +" for-loop_443)" " null" -"(hash-iterate-first ht_141))))))))))))))))" +"(hash-iterate-first ht_442))))))))))))))))" "(define-values" "(1/syntax-local-submodules)" "(lambda()" @@ -42541,79 +42740,79 @@ static const char *startup_source = " 'syntax-local-submodules" "(let-values()" "(let-values()" -"(let-values(((ctx_65)" -"(let-values(((who145_0) 'syntax-local-submodules))" -"(get-current-expand-context16.1 #f who145_0))))" -"(let-values(((submods_3)(expand-context-declared-submodule-names ctx_65)))" +"(let-values(((ctx_460)" +"(let-values(((who145_462) 'syntax-local-submodules))" +"(get-current-expand-context16.1 #f who145_462))))" +"(let-values(((submods_461)(expand-context-declared-submodule-names ctx_460)))" "(reverse$1" -"(let-values(((ht_143) submods_3))" +"(let-values(((ht_463) submods_461))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_143)))" -"((letrec-values(((for-loop_261)" -"(lambda(fold-var_268 i_163)" +"(let-values()(check-in-hash ht_463)))" +"((letrec-values(((for-loop_464)" +"(lambda(fold-var_0 i_0)" "(begin" " 'for-loop" -"(if i_163" -"(let-values(((name_61 kind_8)(hash-iterate-key+value ht_143 i_163)))" -"(let-values(((fold-var_269)" -"(let-values(((fold-var_270) fold-var_268))" -"(if(eq? kind_8 'module)" -"(let-values(((fold-var_271) fold-var_270))" -"(let-values(((fold-var_272)" +"(if i_0" +"(let-values(((name_467 kind_468)(hash-iterate-key+value ht_463 i_0)))" +"(let-values(((fold-var_469)" +"(let-values(((fold-var_470) fold-var_0))" +"(if(eq? kind_468 'module)" +"(let-values(((fold-var_471) fold-var_470))" +"(let-values(((fold-var_472)" "(let-values()" "(cons" -"(let-values() name_61)" -" fold-var_271))))" -"(values fold-var_272)))" -" fold-var_270))))" +"(let-values() name_467)" +" fold-var_471))))" +"(values fold-var_472)))" +" fold-var_470))))" "(if(not #f)" -"(for-loop_261 fold-var_269(hash-iterate-next ht_143 i_163))" -" fold-var_269)))" -" fold-var_268)))))" -" for-loop_261)" +"(for-loop_464 fold-var_469(hash-iterate-next ht_463 i_0))" +" fold-var_469)))" +" fold-var_0)))))" +" for-loop_464)" " null" -"(hash-iterate-first ht_143))))))))))))" +"(hash-iterate-first ht_463))))))))))))" "(define-values" "(1/syntax-local-get-shadower)" -"(let-values(((syntax-local-get-shadower53_0)" +"(let-values(((syntax-local-get-shadower53_473)" "(lambda(id52_0 only-generated?51_0)" "(begin" " 'syntax-local-get-shadower53" -"(let-values(((id_87) id52_0))" +"(let-values(((id_476) id52_0))" "(let-values()" "(let-values()" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_87)" +"(if(identifier? id_476)" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-local-get-shadower" " \"identifier?\"" -" id_87)))" +" id_476)))" "(values))))" -"(let-values(((ctx_66)" -"(let-values(((who147_0) 'syntax-local-get-shadower))" -"(get-current-expand-context16.1 #f who147_0))))" -"(let-values(((new-id_0)(add-scopes id_87(expand-context-scopes ctx_66))))" -"(if(syntax-clean? id_87) new-id_0(syntax-taint$1 new-id_0))))))))))))))" +"(let-values(((ctx_479)" +"(let-values(((who147_481) 'syntax-local-get-shadower))" +"(get-current-expand-context16.1 #f who147_481))))" +"(let-values(((new-id_480)(add-scopes id_476(expand-context-scopes ctx_479))))" +"(if(syntax-clean? id_476) new-id_480(syntax-taint$1 new-id_480))))))))))))))" "(case-lambda" -"((id_88)(begin 'syntax-local-get-shadower(syntax-local-get-shadower53_0 id_88 #f)))" -"((id_89 only-generated?51_1)(syntax-local-get-shadower53_0 id_89 only-generated?51_1)))))" +"((id_0)(begin 'syntax-local-get-shadower(syntax-local-get-shadower53_473 id_0 #f)))" +"((id_0 only-generated?51_0)(syntax-local-get-shadower53_473 id_0 only-generated?51_0)))))" "(define-values" "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_189)" +"(lambda(s_0)" "(let-values((()" "(begin" -" (if (syntax?$1 s_189) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_189)))" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_0)))" "(values))))" -"(let-values(((srcloc_8)(syntax-srcloc s_189)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" +"(let-values(((srcloc_4)(syntax-srcloc s_0)))(if srcloc_4(srcloc-accessor_0 srcloc_4) #f)))))))" "(define-values(1/syntax-source)(syntax-source-accessor 'syntax-source srcloc-source))" "(define-values(1/syntax-line)(syntax-source-accessor 'syntax-line srcloc-line))" "(define-values(1/syntax-column)(syntax-source-accessor 'syntax-column srcloc-column))" @@ -42621,68 +42820,68 @@ static const char *startup_source = "(define-values(1/syntax-span)(syntax-source-accessor 'syntax-span srcloc-span))" "(define-values" "(encoded-srcloc?)" -"(lambda(v_61)" +"(lambda(v_0)" "(begin" -"(let-values(((or-part_26)(if(list? v_61)(if(=(length v_61) 5)(srcloc-vector?(list->vector v_61)) #f) #f)))" -"(if or-part_26 or-part_26(if(vector? v_61)(if(=(vector-length v_61) 5)(srcloc-vector? v_61) #f) #f))))))" +"(let-values(((or-part_6)(if(list? v_0)(if(=(length v_0) 5)(srcloc-vector?(list->vector v_0)) #f) #f)))" +"(if or-part_6 or-part_6(if(vector? v_0)(if(=(vector-length v_0) 5)(srcloc-vector? v_0) #f) #f))))))" "(define-values" "(srcloc-vector?)" -"(lambda(v_62)" +"(lambda(v_0)" "(begin" -"(if(let-values(((or-part_292)(not(vector-ref v_62 1))))" -"(if or-part_292 or-part_292(exact-positive-integer?(vector-ref v_62 1))))" -"(if(let-values(((or-part_27)(not(vector-ref v_62 2))))" -"(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_62 2))))" -"(if(let-values(((or-part_10)(not(vector-ref v_62 3))))" -"(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_62 3))))" -"(let-values(((or-part_158)(not(vector-ref v_62 4))))" -"(if or-part_158 or-part_158(exact-nonnegative-integer?(vector-ref v_62 4))))" +"(if(let-values(((or-part_8)(not(vector-ref v_0 1))))" +"(if or-part_8 or-part_8(exact-positive-integer?(vector-ref v_0 1))))" +"(if(let-values(((or-part_9)(not(vector-ref v_0 2))))" +"(if or-part_9 or-part_9(exact-nonnegative-integer?(vector-ref v_0 2))))" +"(if(let-values(((or-part_10)(not(vector-ref v_0 3))))" +"(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_0 3))))" +"(let-values(((or-part_11)(not(vector-ref v_0 4))))" +"(if or-part_11 or-part_11(exact-nonnegative-integer?(vector-ref v_0 4))))" " #f)" " #f)" " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_129)" +"(lambda(v_0)" "(begin" -"(if(srcloc? v_129)" +"(if(srcloc? v_0)" "(let-values()" -"(let-values(((the-struct_35) empty-syntax))" -"(if(syntax?$1 the-struct_35)" -"(let-values(((srcloc1_2) v_129))" +"(let-values(((the-struct_13) empty-syntax))" +"(if(syntax?$1 the-struct_13)" +"(let-values(((srcloc1_14) v_0))" "(syntax1.1" -"(syntax-content the-struct_35)" -"(syntax-scopes the-struct_35)" -"(syntax-shifted-multi-scopes the-struct_35)" -"(syntax-scope-propagations+tamper the-struct_35)" -"(syntax-mpi-shifts the-struct_35)" -" srcloc1_2" -"(syntax-props the-struct_35)" -"(syntax-inspector the-struct_35)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_35))))" -"(if(pair? v_129)" -"(let-values()(to-srcloc-stx(list->vector v_129)))" -"(if(vector? v_129)" +"(syntax-content the-struct_13)" +"(syntax-scopes the-struct_13)" +"(syntax-shifted-multi-scopes the-struct_13)" +"(syntax-scope-propagations+tamper the-struct_13)" +"(syntax-mpi-shifts the-struct_13)" +" srcloc1_14" +"(syntax-props the-struct_13)" +"(syntax-inspector the-struct_13)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_13))))" +"(if(pair? v_0)" +"(let-values()(to-srcloc-stx(list->vector v_0)))" +"(if(vector? v_0)" "(let-values()" -"(let-values(((the-struct_36) empty-syntax))" -"(if(syntax?$1 the-struct_36)" -"(let-values(((srcloc2_0)" +"(let-values(((the-struct_15) empty-syntax))" +"(if(syntax?$1 the-struct_15)" +"(let-values(((srcloc2_16)" "(srcloc" -"(vector-ref v_129 0)" -"(vector-ref v_129 1)" -"(vector-ref v_129 2)" -"(vector-ref v_129 3)" -"(vector-ref v_129 4))))" +"(vector-ref v_0 0)" +"(vector-ref v_0 1)" +"(vector-ref v_0 2)" +"(vector-ref v_0 3)" +"(vector-ref v_0 4))))" "(syntax1.1" -"(syntax-content the-struct_36)" -"(syntax-scopes the-struct_36)" -"(syntax-shifted-multi-scopes the-struct_36)" -"(syntax-scope-propagations+tamper the-struct_36)" -"(syntax-mpi-shifts the-struct_36)" -" srcloc2_0" -"(syntax-props the-struct_36)" -"(syntax-inspector the-struct_36)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_36))))" -"(let-values() v_129)))))))" +"(syntax-content the-struct_15)" +"(syntax-scopes the-struct_15)" +"(syntax-shifted-multi-scopes the-struct_15)" +"(syntax-scope-propagations+tamper the-struct_15)" +"(syntax-mpi-shifts the-struct_15)" +" srcloc2_16" +"(syntax-props the-struct_15)" +"(syntax-inspector the-struct_15)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_15))))" +"(let-values() v_0)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -42695,39 +42894,40 @@ static const char *startup_source = "(syntax-e$1 s_0)))))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_189)" +"(lambda(s_0)" "(begin" " 'syntax->datum" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_189) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_189)))" -"(syntax->datum$1 s_189)))))))" -"(define-values(maybe-syntax->datum)(lambda(s_73)(begin(if(syntax?$1 s_73)(syntax->datum$1 s_73) s_73))))" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_0)))" +"(syntax->datum$1 s_0)))))))" +"(define-values(maybe-syntax->datum)(lambda(s_0)(begin(if(syntax?$1 s_0)(syntax->datum$1 s_0) s_0))))" "(define-values" "(1/datum->syntax)" -"(let-values(((datum->syntax6_1)" -"(lambda(stx-c4_1 s5_2 stx-l1_0 stx-p2_0 ignored3_0)" +"(let-values(((datum->syntax6_6)" +"(lambda(stx-c4_0 s5_0 stx-l1_0 stx-p2_0 ignored3_0)" "(begin" " 'datum->syntax6" -"(let-values(((stx-c_4) stx-c4_1))" -"(let-values(((s_441) s5_2))" -"(let-values(((stx-l_2) stx-l1_0))" -"(let-values(((stx-p_1) stx-p2_0))" +"(let-values(((stx-c_12) stx-c4_0))" +"(let-values(((s_13) s5_0))" +"(let-values(((stx-l_14) stx-l1_0))" +"(let-values(((stx-p_15) stx-p2_0))" "(let-values()" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(let-values(((or-part_6)(not stx-c_4)))" -"(if or-part_6 or-part_6(syntax?$1 stx-c_4)))" +"(if(let-values(((or-part_18)(not stx-c_12)))" +"(if or-part_18 or-part_18(syntax?$1 stx-c_12)))" "(void)" -" (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))" -"(if(let-values(((or-part_293)(not stx-l_2)))" -"(if or-part_293" -" or-part_293" -"(let-values(((or-part_28)(syntax?$1 stx-l_2)))" -"(if or-part_28 or-part_28(encoded-srcloc? stx-l_2)))))" +"(let-values()" +" (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_12)))" +"(if(let-values(((or-part_19)(not stx-l_14)))" +"(if or-part_19" +" or-part_19" +"(let-values(((or-part_20)(syntax?$1 stx-l_14)))" +"(if or-part_20 or-part_20(encoded-srcloc? stx-l_14)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -42744,475 +42944,479 @@ static const char *startup_source = " \" (or/c exact-nonnegative-integer? #f)\\n\"" " \" (or/c exact-positive-integer? #f)\\n\"" " \" (or/c exact-nonnegative-integer? #f)))\")" -" stx-l_2)))" -"(if(let-values(((or-part_294)(not stx-p_1)))" -"(if or-part_294 or-part_294(syntax?$1 stx-p_1)))" +" stx-l_14)))" +"(if(let-values(((or-part_21)(not stx-p_15)))" +"(if or-part_21 or-part_21(syntax?$1 stx-p_15)))" "(void)" -" (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-p_1)))" -"(datum->syntax$1 stx-c_4 s_441(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" +"(let-values()" +" (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-p_15)))" +"(datum->syntax$1 stx-c_12 s_13(to-srcloc-stx stx-l_14) stx-p_15))))))))))))))" "(case-lambda" -"((stx-c_5 s_77)(begin 'datum->syntax(datum->syntax6_1 stx-c_5 s_77 #f #f #f)))" -"((stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1)(datum->syntax6_1 stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1))" -"((stx-c_7 s_442 stx-l_4 stx-p2_1)(datum->syntax6_1 stx-c_7 s_442 stx-l_4 stx-p2_1 #f))" -"((stx-c_8 s_181 stx-l1_1)(datum->syntax6_1 stx-c_8 s_181 stx-l1_1 #f #f)))))" +"((stx-c_0 s_0)(begin 'datum->syntax(datum->syntax6_6 stx-c_0 s_0 #f #f #f)))" +"((stx-c_0 s_0 stx-l_0 stx-p_0 ignored3_0)(datum->syntax6_6 stx-c_0 s_0 stx-l_0 stx-p_0 ignored3_0))" +"((stx-c_0 s_0 stx-l_0 stx-p2_0)(datum->syntax6_6 stx-c_0 s_0 stx-l_0 stx-p2_0 #f))" +"((stx-c_0 s_0 stx-l1_0)(datum->syntax6_6 stx-c_0 s_0 stx-l1_0 #f #f)))))" "(define-values" "(1/syntax->list)" -"(lambda(s_443)" +"(lambda(s_0)" "(begin" " 'syntax->list" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_443) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_443)))" -"(syntax->list$1 s_443)))))))" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_0)))" +"(syntax->list$1 s_0)))))))" "(define-values" "(1/syntax-original?)" -"(lambda(s_167)" +"(lambda(s_0)" "(begin" " 'syntax-original?" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_167) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_167)))" -"(if(syntax-property$1 s_167 original-property-sym)(not(syntax-any-macro-scopes? s_167)) #f)))))))" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_0)))" +"(if(syntax-property$1 s_0 original-property-sym)(not(syntax-any-macro-scopes? s_0)) #f)))))))" "(define-values" "(1/bound-identifier=?)" -"(let-values(((bound-identifier=?11_0)" +"(let-values(((bound-identifier=?11_40)" "(lambda(a9_0 b10_0 phase8_0)" "(begin" " 'bound-identifier=?11" -"(let-values(((a_57) a9_0))" -"(let-values(((b_65) b10_0))" -"(let-values(((phase_124)" +"(let-values(((a_44) a9_0))" +"(let-values(((b_45) b10_0))" +"(let-values(((phase_46)" "(if(eq? phase8_0 unsafe-undefined)(1/syntax-local-phase-level) phase8_0)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? a_57)" +"(if(identifier? a_44)" "(void)" -" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_57)))" -"(if(identifier? b_65)" +" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_44)))" +"(if(identifier? b_45)" "(void)" -" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_65)))" -"(if(phase? phase_124)" +" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_45)))" +"(if(phase? phase_46)" "(void)" -"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_124)))" -"(bound-identifier=?$1 a_57 b_65 phase_124))))))))))))" +"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_46)))" +"(bound-identifier=?$1 a_44 b_45 phase_46))))))))))))" "(case-lambda" -"((a_58 b_84)(begin 'bound-identifier=?(bound-identifier=?11_0 a_58 b_84 unsafe-undefined)))" -"((a_59 b_85 phase8_1)(bound-identifier=?11_0 a_59 b_85 phase8_1)))))" +"((a_0 b_0)(begin 'bound-identifier=?(bound-identifier=?11_40 a_0 b_0 unsafe-undefined)))" +"((a_0 b_0 phase8_0)(bound-identifier=?11_40 a_0 b_0 phase8_0)))))" "(define-values" "(1/free-identifier=?)" -"(let-values(((free-identifier=?17_0)" -"(lambda(a15_0 b16_1 a-phase13_0 b-phase14_0)" +"(let-values(((free-identifier=?17_53)" +"(lambda(a15_0 b16_0 a-phase13_0 b-phase14_0)" "(begin" " 'free-identifier=?17" -"(let-values(((a_60) a15_0))" -"(let-values(((b_86) b16_1))" -"(let-values(((a-phase_1)" +"(let-values(((a_58) a15_0))" +"(let-values(((b_59) b16_0))" +"(let-values(((a-phase_60)" "(if(eq? a-phase13_0 unsafe-undefined)(1/syntax-local-phase-level) a-phase13_0)))" -"(let-values(((b-phase_1)(if(eq? b-phase14_0 unsafe-undefined) a-phase_1 b-phase14_0)))" +"(let-values(((b-phase_61)(if(eq? b-phase14_0 unsafe-undefined) a-phase_60 b-phase14_0)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? a_60)" +"(if(identifier? a_58)" "(void)" -" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_60)))" -"(if(identifier? b_86)" +" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_58)))" +"(if(identifier? b_59)" "(void)" -" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_86)))" -"(if(phase? a-phase_1)" +" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_59)))" +"(if(phase? a-phase_60)" "(void)" -"(let-values()(raise-argument-error 'free-identifier=? phase?-string a-phase_1)))" -"(if(phase? b-phase_1)" +"(let-values()" +"(raise-argument-error 'free-identifier=? phase?-string a-phase_60)))" +"(if(phase? b-phase_61)" "(void)" -"(let-values()(raise-argument-error 'free-identifier=? phase?-string b-phase_1)))" -"(free-identifier=?$1 a_60 b_86 a-phase_1 b-phase_1)))))))))))))" +"(let-values()" +"(raise-argument-error 'free-identifier=? phase?-string b-phase_61)))" +"(free-identifier=?$1 a_58 b_59 a-phase_60 b-phase_61)))))))))))))" "(case-lambda" -"((a_61 b_39)(begin 'free-identifier=?(free-identifier=?17_0 a_61 b_39 unsafe-undefined unsafe-undefined)))" -"((a_62 b_87 a-phase_2 b-phase14_1)(free-identifier=?17_0 a_62 b_87 a-phase_2 b-phase14_1))" -"((a_63 b_88 a-phase13_1)(free-identifier=?17_0 a_63 b_88 a-phase13_1 unsafe-undefined)))))" +"((a_0 b_0)(begin 'free-identifier=?(free-identifier=?17_53 a_0 b_0 unsafe-undefined unsafe-undefined)))" +"((a_0 b_0 a-phase_0 b-phase14_0)(free-identifier=?17_53 a_0 b_0 a-phase_0 b-phase14_0))" +"((a_0 b_0 a-phase13_0)(free-identifier=?17_53 a_0 b_0 a-phase13_0 unsafe-undefined)))))" "(define-values" "(1/free-transformer-identifier=?)" -"(lambda(a_64 b_89)" +"(lambda(a_0 b_0)" "(begin" " 'free-transformer-identifier=?" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? a_64)" +"(if(identifier? a_0)" "(void)" -" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" a_64)))" +" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" a_0)))" "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_89)" +"(if(identifier? b_0)" "(void)" -" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_89)))" +" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_0)))" "(values))))" -"(let-values(((phase_125)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_64 b_89 phase_125 phase_125)))))))))" +"(let-values(((phase_75)(add1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_0 b_0 phase_75 phase_75)))))))))" "(define-values" "(1/free-template-identifier=?)" -"(lambda(a_65 b_90)" +"(lambda(a_0 b_0)" "(begin" " 'free-template-identifier=?" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? a_65)" +"(if(identifier? a_0)" "(void)" -" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" a_65)))" +" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" a_0)))" "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_90)" +"(if(identifier? b_0)" "(void)" -" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_90)))" +" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_0)))" "(values))))" -"(let-values(((phase_126)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_65 b_90 phase_126 phase_126)))))))))" +"(let-values(((phase_79)(sub1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_0 b_0 phase_79 phase_79)))))))))" "(define-values" "(1/free-label-identifier=?)" -"(lambda(a_66 b_91)" +"(lambda(a_0 b_0)" "(begin" " 'free-label-identifier=?" "(let-values()" "(let-values()" "(begin" -"(if(identifier? a_66)" +"(if(identifier? a_0)" "(void)" -" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_66)))" -"(if(identifier? b_91)" +" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_0)))" +"(if(identifier? b_0)" "(void)" -" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_91)))" -"(free-identifier=?$1 a_66 b_91 #f #f)))))))" +" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_0)))" +"(free-identifier=?$1 a_0 b_0 #f #f)))))))" "(define-values" "(1/identifier-binding)" -"(let-values(((identifier-binding22_0)" +"(let-values(((identifier-binding22_83)" "(lambda(id21_0 phase19_0 top-level-symbol?20_0)" "(begin" " 'identifier-binding22" -"(let-values(((id_90) id21_0))" -"(let-values(((phase_127)" +"(let-values(((id_87) id21_0))" +"(let-values(((phase_88)" "(if(eq? phase19_0 unsafe-undefined)(1/syntax-local-phase-level) phase19_0)))" -"(let-values(((top-level-symbol?_1) top-level-symbol?20_0))" +"(let-values(((top-level-symbol?_89) top-level-symbol?20_0))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_90)" +"(if(identifier? id_87)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_90)))" -"(if(phase? phase_127)" +" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_87)))" +"(if(phase? phase_88)" "(void)" -"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_127)))" -"(identifier-binding$1 id_90 phase_127 top-level-symbol?_1))))))))))))" +"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_88)))" +"(identifier-binding$1 id_87 phase_88 top-level-symbol?_89))))))))))))" "(case-lambda" -"((id_91)(begin 'identifier-binding(identifier-binding22_0 id_91 unsafe-undefined #f)))" -"((id_15 phase_86 top-level-symbol?20_1)(identifier-binding22_0 id_15 phase_86 top-level-symbol?20_1))" -"((id_92 phase19_1)(identifier-binding22_0 id_92 phase19_1 #f)))))" +"((id_0)(begin 'identifier-binding(identifier-binding22_83 id_0 unsafe-undefined #f)))" +"((id_0 phase_0 top-level-symbol?20_0)(identifier-binding22_83 id_0 phase_0 top-level-symbol?20_0))" +"((id_0 phase19_0)(identifier-binding22_83 id_0 phase19_0 #f)))))" "(define-values" "(1/identifier-transformer-binding)" -"(let-values(((identifier-transformer-binding26_0)" -"(lambda(id25_3 phase24_1)" +"(let-values(((identifier-transformer-binding26_97)" +"(lambda(id25_0 phase24_0)" "(begin" " 'identifier-transformer-binding26" -"(let-values(((id_93) id25_3))" -"(let-values(((phase_128)" -"(if(eq? phase24_1 unsafe-undefined)(1/syntax-local-phase-level) phase24_1)))" +"(let-values(((id_100) id25_0))" +"(let-values(((phase_101)" +"(if(eq? phase24_0 unsafe-undefined)(1/syntax-local-phase-level) phase24_0)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_93)" +"(if(identifier? id_100)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_93)))" -"(identifier-binding$1 id_93(if phase_128(add1 phase_128) #f))))))))))))" +" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_100)))" +"(identifier-binding$1 id_100(if phase_101(add1 phase_101) #f))))))))))))" "(case-lambda" -"((id_94)(begin 'identifier-transformer-binding(identifier-transformer-binding26_0 id_94 unsafe-undefined)))" -"((id_59 phase24_2)(identifier-transformer-binding26_0 id_59 phase24_2)))))" +"((id_0)(begin 'identifier-transformer-binding(identifier-transformer-binding26_97 id_0 unsafe-undefined)))" +"((id_0 phase24_0)(identifier-transformer-binding26_97 id_0 phase24_0)))))" "(define-values" "(1/identifier-template-binding)" -"(lambda(id_95)" +"(lambda(id_0)" "(begin" " 'identifier-template-binding" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_95)" +"(if(identifier? id_0)" "(void)" -" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_95)))" -"(identifier-binding$1 id_95(sub1(1/syntax-local-phase-level)))))))))" +" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_0)))" +"(identifier-binding$1 id_0(sub1(1/syntax-local-phase-level)))))))))" "(define-values" "(1/identifier-label-binding)" -"(lambda(id_78)" +"(lambda(id_0)" "(begin" " 'identifier-label-binding" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_78)" +"(if(identifier? id_0)" "(void)" -" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_78)))" -"(identifier-binding$1 id_78 #f)))))))" +" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_0)))" +"(identifier-binding$1 id_0 #f)))))))" "(define-values" "(1/identifier-binding-symbol)" -"(let-values(((identifier-binding-symbol30_0)" -"(lambda(id29_1 phase28_2)" +"(let-values(((identifier-binding-symbol30_110)" +"(lambda(id29_0 phase28_0)" "(begin" " 'identifier-binding-symbol30" -"(let-values(((id_96) id29_1))" -"(let-values(((phase_73)" -"(if(eq? phase28_2 unsafe-undefined)(1/syntax-local-phase-level) phase28_2)))" +"(let-values(((id_113) id29_0))" +"(let-values(((phase_114)" +"(if(eq? phase28_0 unsafe-undefined)(1/syntax-local-phase-level) phase28_0)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_96)" -"(void)" -" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_96)))" -"(if(phase? phase_73)" +"(if(identifier? id_113)" "(void)" "(let-values()" -"(raise-argument-error 'identifier-binding-symbol phase?-string phase_73)))" -"(identifier-binding-symbol$1 id_96 phase_73)))))))))))" +" (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_113)))" +"(if(phase? phase_114)" +"(void)" +"(let-values()" +"(raise-argument-error 'identifier-binding-symbol phase?-string phase_114)))" +"(identifier-binding-symbol$1 id_113 phase_114)))))))))))" "(case-lambda" -"((id_97)(begin 'identifier-binding-symbol(identifier-binding-symbol30_0 id_97 unsafe-undefined)))" -"((id_98 phase28_3)(identifier-binding-symbol30_0 id_98 phase28_3)))))" +"((id_0)(begin 'identifier-binding-symbol(identifier-binding-symbol30_110 id_0 unsafe-undefined)))" +"((id_0 phase28_0)(identifier-binding-symbol30_110 id_0 phase28_0)))))" "(define-values" "(1/identifier-prune-lexical-context)" -"(let-values(((identifier-prune-lexical-context34_0)" -"(lambda(id33_1 syms32_1)" +"(let-values(((identifier-prune-lexical-context34_119)" +"(lambda(id33_0 syms32_0)" "(begin" " 'identifier-prune-lexical-context34" -"(let-values(((id_99) id33_1))" -"(let-values(((syms_22) syms32_1))" +"(let-values(((id_122) id33_0))" +"(let-values(((syms_123) syms32_0))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(identifier? id_99)" +"(if(identifier? id_122)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_99)))" -"(if(if(list? syms_22)(andmap2 symbol? syms_22) #f)" +" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_122)))" +"(if(if(list? syms_123)(andmap2 symbol? syms_123) #f)" "(void)" "(let-values()" "(raise-argument-error" " 'identifier-prune-lexical-context" " \"(listof symbol?)\"" -" syms_22)))" -" id_99))))))))))" +" syms_123)))" +" id_122))))))))))" "(case-lambda" -"((id_62)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context34_0 id_62 null)))" -"((id_100 syms32_2)(identifier-prune-lexical-context34_0 id_100 syms32_2)))))" +"((id_0)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context34_119 id_0 null)))" +"((id_0 syms32_0)(identifier-prune-lexical-context34_119 id_0 syms32_0)))))" "(define-values" "(1/syntax-debug-info)" -"(let-values(((syntax-debug-info39_0)" -"(lambda(s38_1 phase36_0 all-bindings?37_0)" +"(let-values(((syntax-debug-info39_128)" +"(lambda(s38_0 phase36_0 all-bindings?37_0)" "(begin" " 'syntax-debug-info39" -"(let-values(((s_412) s38_1))" -"(let-values(((phase_78)" +"(let-values(((s_132) s38_0))" +"(let-values(((phase_133)" "(if(eq? phase36_0 unsafe-undefined)(1/syntax-local-phase-level) phase36_0)))" -"(let-values(((all-bindings?_1) all-bindings?37_0))" +"(let-values(((all-bindings?_134) all-bindings?37_0))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_412)" +"(if(syntax?$1 s_132)" "(void)" -" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_412)))" -"(if(phase? phase_78)" +" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_132)))" +"(if(phase? phase_133)" "(void)" -"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_78)))" -"(syntax-debug-info$1 s_412 phase_78 all-bindings?_1))))))))))))" +"(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_133)))" +"(syntax-debug-info$1 s_132 phase_133 all-bindings?_134))))))))))))" "(case-lambda" -"((s_86)(begin 'syntax-debug-info(syntax-debug-info39_0 s_86 unsafe-undefined #f)))" -"((s_444 phase_129 all-bindings?37_1)(syntax-debug-info39_0 s_444 phase_129 all-bindings?37_1))" -"((s_29 phase36_1)(syntax-debug-info39_0 s_29 phase36_1 #f)))))" +"((s_0)(begin 'syntax-debug-info(syntax-debug-info39_128 s_0 unsafe-undefined #f)))" +"((s_0 phase_0 all-bindings?37_0)(syntax-debug-info39_128 s_0 phase_0 all-bindings?37_0))" +"((s_0 phase36_0)(syntax-debug-info39_128 s_0 phase36_0 #f)))))" "(define-values" "(1/syntax-shift-phase-level)" -"(lambda(s_445 phase_130)" +"(lambda(s_0 phase_0)" "(begin" " 'syntax-shift-phase-level" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_445)" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_0)))" +"(if(phase? phase_0)" "(void)" -" (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_445)))" -"(if(phase? phase_130)" -"(void)" -"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_130)))" -"(syntax-shift-phase-level$1 s_445 phase_130)))))))" +"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_0)))" +"(syntax-shift-phase-level$1 s_0 phase_0)))))))" "(define-values" "(1/syntax-track-origin)" -"(lambda(new-stx_8 old-stx_4 id_101)" +"(lambda(new-stx_0 old-stx_0 id_0)" "(begin" " 'syntax-track-origin" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 new-stx_8)" +"(if(syntax?$1 new-stx_0)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" new-stx_8)))" +" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" new-stx_0)))" "(values))))" "(let-values((()" "(begin" -"(if(syntax?$1 old-stx_4)" +"(if(syntax?$1 old-stx_0)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" old-stx_4)))" +" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" old-stx_0)))" "(values))))" "(let-values((()" "(begin" -"(if(identifier? id_101)" +"(if(identifier? id_0)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_101)))" +" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_0)))" "(values))))" -"(let-values(((s_446)(syntax-track-origin$1 new-stx_8 old-stx_4 id_101)))" -"(let-values(((ctx_67)" -"(let-values(((temp60_2) #t))(get-current-expand-context16.1 temp60_2 'unexpected))))" +"(let-values(((s_149)(syntax-track-origin$1 new-stx_0 old-stx_0 id_0)))" +"(let-values(((ctx_150)" +"(let-values(((temp60_152) #t))" +"(get-current-expand-context16.1 temp60_152 'unexpected))))" "(begin" -"(if ctx_67" +"(if ctx_150" "(let-values()" -"(let-values(((obs_44)(expand-context-observer ctx_67)))" -"(if obs_44" -"(let-values()(let-values()(call-expand-observe obs_44 'track-origin new-stx_8 s_446)))" +"(let-values(((obs_153)(expand-context-observer ctx_150)))" +"(if obs_153" +"(let-values()" +"(let-values()(call-expand-observe obs_153 'track-origin new-stx_0 s_149)))" "(void))))" "(void))" -" s_446)))))))))))" +" s_149)))))))))))" "(define-values" "(1/namespace-attach-module)" -"(let-values(((namespace-attach-module4_0)" -"(lambda(src-namespace2_0 mod-path3_1 dest-namespace1_0)" +"(let-values(((namespace-attach-module4_1)" +"(lambda(src-namespace2_0 mod-path3_0 dest-namespace1_0)" "(begin" " 'namespace-attach-module4" -"(let-values(((src-namespace_0) src-namespace2_0))" -"(let-values(((mod-path_10) mod-path3_1))" -"(let-values(((dest-namespace_0)" +"(let-values(((src-namespace_5) src-namespace2_0))" +"(let-values(((mod-path_6) mod-path3_0))" +"(let-values(((dest-namespace_7)" "(if(eq? dest-namespace1_0 unsafe-undefined)" "(1/current-namespace)" " dest-namespace1_0)))" "(let-values()" "(let-values()" "(let-values()" -"(let-values(((who21_0) 'namespace-attach-module)" -"((src-namespace22_0) src-namespace_0)" -"((mod-path23_0) mod-path_10)" -"((dest-namespace24_0) dest-namespace_0)" -"((temp25_5) #t))" +"(let-values(((who21_10) 'namespace-attach-module)" +"((src-namespace22_11) src-namespace_5)" +"((mod-path23_12) mod-path_6)" +"((dest-namespace24_13) dest-namespace_7)" +"((temp25_14) #t))" "(do-attach-module17.1" -" temp25_5" -" who21_0" -" src-namespace22_0" -" mod-path23_0" -" dest-namespace24_0))))))))))))" +" temp25_14" +" who21_10" +" src-namespace22_11" +" mod-path23_12" +" dest-namespace24_13))))))))))))" "(case-lambda" -"((src-namespace_1 mod-path_11)" -"(begin 'namespace-attach-module(namespace-attach-module4_0 src-namespace_1 mod-path_11 unsafe-undefined)))" -"((src-namespace_2 mod-path_12 dest-namespace1_1)" -"(namespace-attach-module4_0 src-namespace_2 mod-path_12 dest-namespace1_1)))))" +"((src-namespace_0 mod-path_0)" +"(begin 'namespace-attach-module(namespace-attach-module4_1 src-namespace_0 mod-path_0 unsafe-undefined)))" +"((src-namespace_0 mod-path_0 dest-namespace1_0)" +"(namespace-attach-module4_1 src-namespace_0 mod-path_0 dest-namespace1_0)))))" "(define-values" "(1/namespace-attach-module-declaration)" -"(let-values(((namespace-attach-module-declaration9_0)" -"(lambda(src-namespace7_0 mod-path8_2 dest-namespace6_0)" +"(let-values(((namespace-attach-module-declaration9_20)" +"(lambda(src-namespace7_0 mod-path8_0 dest-namespace6_0)" "(begin" " 'namespace-attach-module-declaration9" -"(let-values(((src-namespace_3) src-namespace7_0))" -"(let-values(((mod-path_6) mod-path8_2))" -"(let-values(((dest-namespace_1)" +"(let-values(((src-namespace_24) src-namespace7_0))" +"(let-values(((mod-path_25) mod-path8_0))" +"(let-values(((dest-namespace_26)" "(if(eq? dest-namespace6_0 unsafe-undefined)" "(1/current-namespace)" " dest-namespace6_0)))" "(let-values()" "(let-values()" "(let-values()" -"(let-values(((who27_0) 'namespace-attach-module-declaration)" -"((src-namespace28_0) src-namespace_3)" -"((mod-path29_0) mod-path_6)" -"((dest-namespace30_0) dest-namespace_1)" -"((temp31_2) #f))" +"(let-values(((who27_29) 'namespace-attach-module-declaration)" +"((src-namespace28_30) src-namespace_24)" +"((mod-path29_31) mod-path_25)" +"((dest-namespace30_32) dest-namespace_26)" +"((temp31_33) #f))" "(do-attach-module17.1" -" temp31_2" -" who27_0" -" src-namespace28_0" -" mod-path29_0" -" dest-namespace30_0))))))))))))" +" temp31_33" +" who27_29" +" src-namespace28_30" +" mod-path29_31" +" dest-namespace30_32))))))))))))" "(case-lambda" -"((src-namespace_4 mod-path_13)" +"((src-namespace_0 mod-path_0)" "(begin" " 'namespace-attach-module-declaration" -"(namespace-attach-module-declaration9_0 src-namespace_4 mod-path_13 unsafe-undefined)))" -"((src-namespace_5 mod-path_14 dest-namespace6_1)" -"(namespace-attach-module-declaration9_0 src-namespace_5 mod-path_14 dest-namespace6_1)))))" +"(namespace-attach-module-declaration9_20 src-namespace_0 mod-path_0 unsafe-undefined)))" +"((src-namespace_0 mod-path_0 dest-namespace6_0)" +"(namespace-attach-module-declaration9_20 src-namespace_0 mod-path_0 dest-namespace6_0)))))" "(define-values" "(do-attach-module17.1)" "(lambda(attach-instances?11_0 who13_0 src-namespace14_0 mod-path15_0 dest-namespace16_0)" "(begin" " 'do-attach-module17" -"(let-values(((who_22) who13_0))" -"(let-values(((src-namespace_6) src-namespace14_0))" -"(let-values(((mod-path_15) mod-path15_0))" -"(let-values(((dest-namespace_2) dest-namespace16_0))" -"(let-values(((attach-instances?_0) attach-instances?11_0))" +"(let-values(((who_44) who13_0))" +"(let-values(((src-namespace_45) src-namespace14_0))" +"(let-values(((mod-path_46) mod-path15_0))" +"(let-values(((dest-namespace_47) dest-namespace16_0))" +"(let-values(((attach-instances?_48) attach-instances?11_0))" "(let-values()" "(let-values((()" "(begin" -"(if(1/namespace? src-namespace_6)" +"(if(1/namespace? src-namespace_45)" "(void)" -" (let-values () (raise-argument-error who_22 \"namespace?\" src-namespace_6)))" +" (let-values () (raise-argument-error who_44 \"namespace?\" src-namespace_45)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_7)(1/module-path? mod-path_15)))" -"(if or-part_7 or-part_7(1/resolved-module-path? mod-path_15)))" +"(if(let-values(((or-part_53)(1/module-path? mod-path_46)))" +"(if or-part_53 or-part_53(1/resolved-module-path? mod-path_46)))" "(void)" "(let-values()" "(raise-argument-error" -" who_22" +" who_44" " \"(or/c module-path? resolved-module-path?)\"" -" mod-path_15)))" +" mod-path_46)))" "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? dest-namespace_2)" +"(if(1/namespace? dest-namespace_47)" "(void)" -" (let-values () (raise-argument-error who_22 \"namespace?\" dest-namespace_2)))" +" (let-values () (raise-argument-error who_44 \"namespace?\" dest-namespace_47)))" "(values))))" -"(let-values(((phase_131)(namespace-phase src-namespace_6)))" +"(let-values(((phase_49)(namespace-phase src-namespace_45)))" "(let-values((()" "(begin" -"(if(eqv? phase_131(namespace-phase dest-namespace_2))" +"(if(eqv? phase_49(namespace-phase dest-namespace_47))" "(void)" "(let-values()" "(raise-arguments-error" -" who_22" +" who_44" " \"source and destination namespace phases do not match\"" " \"source phase\"" -" phase_131" +" phase_49" " \"destination phase\"" -"(namespace-phase dest-namespace_2))))" +"(namespace-phase dest-namespace_47))))" "(values))))" -"(let-values(((todo_0)(make-hasheq)))" -"(let-values(((missing_0) '#:missing))" +"(let-values(((todo_50)(make-hasheq)))" +"(let-values(((missing_51) '#:missing))" "(let-values((()" "(begin" -"((letrec-values(((loop_97)" -"(lambda(mpi_45" -" phase_93" -" attach-instances?_1" +"((letrec-values(((loop_54)" +"(lambda(mpi_0" +" phase_0" +" attach-instances?_0" " attach-phase_0)" "(begin" " 'loop" -"(let-values(((mod-name_19)" +"(let-values(((mod-name_59)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -43220,169 +43424,169 @@ static const char *startup_source = " #f" " parameterization-key)" " 1/current-namespace" -" src-namespace_6)" +" src-namespace_45)" "(let-values()" "(1/module-path-index-resolve" -" mpi_45)))))" -"(let-values(((attach-this-instance?_0)" -"(if attach-instances?_1" -"(eqv? phase_93 attach-phase_0)" +" mpi_0)))))" +"(let-values(((attach-this-instance?_60)" +"(if attach-instances?_0" +"(eqv? phase_0 attach-phase_0)" " #f)))" -"(let-values(((m-ns_12)" +"(let-values(((m-ns_61)" "(hash-ref" "(hash-ref" -" todo_0" -" mod-name_19" +" todo_50" +" mod-name_59" " '#hasheqv())" -" phase_93" -" missing_0)))" -"(if(let-values(((or-part_165)" -"(eq? missing_0 m-ns_12)))" -"(if or-part_165" -" or-part_165" -"(if attach-this-instance?_0" -"(not m-ns_12)" +" phase_0" +" missing_51)))" +"(if(let-values(((or-part_62)" +"(eq? missing_51 m-ns_61)))" +"(if or-part_62" +" or-part_62" +"(if attach-this-instance?_60" +"(not m-ns_61)" " #f)))" "(let-values()" -"(let-values(((m_20)" +"(let-values(((m_63)" "(namespace->module" -" src-namespace_6" -" mod-name_19)))" +" src-namespace_45" +" mod-name_59)))" "(begin" -"(if m_20" +"(if m_63" "(void)" "(let-values()" "(raise-arguments-error" -" who_22" +" who_44" " \"module not declared (in the source namespace)\"" " \"module name\"" -" mod-name_19)))" +" mod-name_59)))" "(if(if(module-cross-phase-persistent?" -" m_20)" +" m_63)" "(if(not" -"(label-phase? phase_93))" -"(not(zero-phase? phase_93))" +"(label-phase? phase_0))" +"(not(zero-phase? phase_0))" " #f)" " #f)" "(let-values()" -"(loop_97" -" mpi_45" +"(loop_54" +" mpi_0" " 0" -" attach-instances?_1" +" attach-instances?_0" " 0))" "(let-values()" -"(let-values(((already-m_0)" +"(let-values(((already-m_64)" "(namespace->module" -" dest-namespace_2" -" mod-name_19)))" +" dest-namespace_47" +" mod-name_59)))" "(let-values((()" "(begin" -"(if(if already-m_0" +"(if(if already-m_64" "(not" "(eq?" -" already-m_0" -" m_20))" +" already-m_64" +" m_63))" " #f)" "(let-values()" "(raise-arguments-error" -" who_22" +" who_44" " \"a different declaration is already in the destination namespace\"" " \"module name\"" -" mod-name_19))" +" mod-name_59))" "(void))" "(values))))" -"(let-values(((m-ns_13" -" already?_0)" -"(if(let-values(((or-part_295)" -" attach-this-instance?_0))" -"(if or-part_295" -" or-part_295" +"(let-values(((m-ns_65" +" already?_66)" +"(if(let-values(((or-part_67)" +" attach-this-instance?_60))" +"(if or-part_67" +" or-part_67" "(module-cross-phase-persistent?" -" m_20)))" +" m_63)))" "(let-values()" -"(let-values(((m-ns_14)" -"(let-values(((src-namespace32_0)" -" src-namespace_6)" -"((mod-name33_0)" -" mod-name_19)" -"((phase34_1)" -" phase_93))" +"(let-values(((m-ns_68)" +"(let-values(((src-namespace32_70)" +" src-namespace_45)" +"((mod-name33_71)" +" mod-name_59)" +"((phase34_72)" +" phase_0))" "(namespace->module-namespace82.1" " #f" " #f" " unsafe-undefined" -" src-namespace32_0" -" mod-name33_0" -" phase34_1))))" +" src-namespace32_70" +" mod-name33_71" +" phase34_72))))" "(let-values((()" "(begin" -"(if m-ns_14" +"(if m-ns_68" "(void)" "(let-values()" "(raise-arguments-error" -" who_22" +" who_44" " \"module not instantiated (in the source namespace)\"" " \"module name\"" -" mod-name_19)))" +" mod-name_59)))" "(values))))" -"(let-values(((already-m-ns_0)" -"(if already-m_0" -"(let-values(((dest-namespace35_0)" -" dest-namespace_2)" -"((mod-name36_0)" -" mod-name_19)" -"((phase37_1)" -" phase_93))" +"(let-values(((already-m-ns_69)" +"(if already-m_64" +"(let-values(((dest-namespace35_73)" +" dest-namespace_47)" +"((mod-name36_74)" +" mod-name_59)" +"((phase37_75)" +" phase_0))" "(namespace->module-namespace82.1" " #f" " #f" " unsafe-undefined" -" dest-namespace35_0" -" mod-name36_0" -" phase37_1))" +" dest-namespace35_73" +" mod-name36_74" +" phase37_75))" " #f)))" "(begin" -"(if(if already-m-ns_0" +"(if(if already-m-ns_69" "(if(not" "(eq?" -" m-ns_14" -" already-m-ns_0))" +" m-ns_68" +" already-m-ns_69))" "(not" "(namespace-same-instance?" -" m-ns_14" -" already-m-ns_0))" +" m-ns_68" +" already-m-ns_69))" " #f)" " #f)" "(let-values()" "(raise-arguments-error" -" who_22" +" who_44" " \"a different instance is already in the destination namespace\"" " \"module name\"" -" mod-name_19))" +" mod-name_59))" "(void))" "(values" -" m-ns_14" -"(if already-m-ns_0" +" m-ns_68" +"(if already-m-ns_69" " #t" " #f)))))))" "(let-values()" "(begin" "(if(if(label-phase?" -" phase_93)" +" phase_0)" "(not" -"(let-values(((src-namespace38_0)" -" src-namespace_6)" -"((mod-name39_0)" -" mod-name_19)" -"((phase40_0)" -" phase_93))" +"(let-values(((src-namespace38_76)" +" src-namespace_45)" +"((mod-name39_77)" +" mod-name_59)" +"((phase40_78)" +" phase_0))" "(namespace->module-namespace82.1" " #f" " #f" " unsafe-undefined" -" src-namespace38_0" -" mod-name39_0" -" phase40_0)))" +" src-namespace38_76" +" mod-name39_77" +" phase40_78)))" " #f)" "(let-values()" "(with-continuation-mark" @@ -43392,159 +43596,159 @@ static const char *startup_source = " #f" " parameterization-key)" " 1/current-namespace" -" src-namespace_6)" +" src-namespace_45)" "(let-values()" -"(let-values(((src-namespace41_0)" -" src-namespace_6)" -"((mpi42_0)" -" mpi_45)" -"((phase43_1)" -" phase_93))" +"(let-values(((src-namespace41_79)" +" src-namespace_45)" +"((mpi42_80)" +" mpi_0)" +"((phase43_81)" +" phase_0))" "(namespace-module-instantiate!96.1" " #t" " unsafe-undefined" " unsafe-undefined" " #f" -" src-namespace41_0" -" mpi42_0" -" phase43_1)))))" +" src-namespace41_79" +" mpi42_80" +" phase43_81)))))" "(void))" "(values" " #f" -"(if already-m_0" +"(if already-m_64" " #t" " #f)))))))" "(begin" "(hash-update!" -" todo_0" -" mod-name_19" -"(lambda(ht_144)" +" todo_50" +" mod-name_59" +"(lambda(ht_0)" "(hash-set" -" ht_144" -" phase_93" -" m-ns_13))" +" ht_0" +" phase_0" +" m-ns_65))" " '#hasheqv())" -"(if already?_0" +"(if already?_66" "(void)" "(let-values()" "(begin" -"(let-values(((lst_298)" +"(let-values(((lst_83)" "(module-requires" -" m_20)))" +" m_63)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_298)))" -"((letrec-values(((for-loop_262)" -"(lambda(lst_97)" +" lst_83)))" +"((letrec-values(((for-loop_84)" +"(lambda(lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_97)" -"(let-values(((phase+reqs_1)" +" lst_0)" +"(let-values(((phase+reqs_86)" "(unsafe-car" -" lst_97))" -"((rest_46)" +" lst_0))" +"((rest_87)" "(unsafe-cdr" -" lst_97)))" +" lst_0)))" "(let-values((()" -"(let-values(((lst_178)" +"(let-values(((lst_88)" "(cdr" -" phase+reqs_1)))" +" phase+reqs_86)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_178)))" -"((letrec-values(((for-loop_249)" -"(lambda(lst_10)" +" lst_88)))" +"((letrec-values(((for-loop_89)" +"(lambda(lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_10)" -"(let-values(((req_5)" +" lst_1)" +"(let-values(((req_91)" "(unsafe-car" -" lst_10))" -"((rest_1)" +" lst_1))" +"((rest_92)" "(unsafe-cdr" -" lst_10)))" +" lst_1)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_97" +"(loop_54" "(module-path-index-shift" -" req_5" +" req_91" "(module-self" -" m_20)" -" mpi_45)" +" m_63)" +" mpi_0)" "(phase+" -" phase_93" +" phase_0" "(car" -" phase+reqs_1))" -" attach-instances?_1" +" phase+reqs_86))" +" attach-instances?_0" " attach-phase_0))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_249" -" rest_1)" +"(for-loop_89" +" rest_92)" "(values))))" "(values))))))" -" for-loop_249)" -" lst_178)))))" +" for-loop_89)" +" lst_88)))))" "(if(not" " #f)" -"(for-loop_262" -" rest_46)" +"(for-loop_84" +" rest_87)" "(values))))" "(values))))))" -" for-loop_262)" -" lst_298)))" +" for-loop_84)" +" lst_83)))" "(void)" -"(let-values(((lst_164)" +"(let-values(((lst_93)" "(module-submodule-names" -" m_20)))" +" m_63)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_164)))" -"((letrec-values(((for-loop_18)" -"(lambda(lst_299)" +" lst_93)))" +"((letrec-values(((for-loop_94)" +"(lambda(lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_299)" -"(let-values(((submod-name_0)" +" lst_0)" +"(let-values(((submod-name_96)" "(unsafe-car" -" lst_299))" -"((rest_96)" +" lst_0))" +"((rest_97)" "(unsafe-cdr" -" lst_299)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_97" +"(loop_54" "(1/module-path-index-join" "(list" " 'submod" " \".\"" -" submod-name_0)" -" mpi_45)" +" submod-name_96)" +" mpi_0)" " #f" " #f" " attach-phase_0))" @@ -43552,86 +43756,86 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_18" -" rest_96)" +"(for-loop_94" +" rest_97)" "(values))))" "(values))))))" -" for-loop_18)" -" lst_164)))" +" for-loop_94)" +" lst_93)))" "(void)" "(if(module-supermodule-name" -" m_20)" +" m_63)" "(let-values()" -"(loop_97" +"(loop_54" "(1/module-path-index-join" " '(submod" " \"..\")" -" mpi_45)" +" mpi_0)" " #f" " #f" " attach-phase_0))" "(void))))))))))))))" "(void)))))))))" -" loop_97)" +" loop_54)" "(1/module-path-index-join" -"(if(1/resolved-module-path? mod-path_15)" -"(resolved-module-path->module-path mod-path_15)" -" mod-path_15)" +"(if(1/resolved-module-path? mod-path_46)" +"(resolved-module-path->module-path mod-path_46)" +" mod-path_46)" " #f)" -" phase_131" -" attach-instances?_0" -" phase_131)" +" phase_49" +" attach-instances?_48" +" phase_49)" "(values))))" "(let-values((()" "(begin" -"(let-values(((ht_145) todo_0))" +"(let-values(((ht_98) todo_50))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_145)))" -"((letrec-values(((for-loop_263)" -"(lambda(i_30)" +"(let-values()(check-in-hash ht_98)))" +"((letrec-values(((for-loop_99)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_30" -"(let-values(((mod-name_20 phases_0)" +"(if i_0" +"(let-values(((mod-name_101 phases_102)" "(hash-iterate-key+value" -" ht_145" -" i_30)))" +" ht_98" +" i_0)))" "(let-values((()" -"(let-values(((ht_146)" -" phases_0))" +"(let-values(((ht_103)" +" phases_102))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash" -" ht_146)))" -"((letrec-values(((for-loop_264)" -"(lambda(i_37)" +" ht_103)))" +"((letrec-values(((for-loop_104)" +"(lambda(i_1)" "(begin" " 'for-loop" -"(if i_37" -"(let-values(((phase_76" -" m-ns_15)" +"(if i_1" +"(let-values(((phase_106" +" m-ns_107)" "(hash-iterate-key+value" -" ht_146" -" i_37)))" +" ht_103" +" i_1)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((m_21)" +"(let-values(((m_108)" "(namespace->module" -" src-namespace_6" -" mod-name_20)))" +" src-namespace_45" +" mod-name_101)))" "(begin" "(module-force-bulk-binding!" -" m_21" -" src-namespace_6)" +" m_108" +" src-namespace_45)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -43639,569 +43843,571 @@ static const char *startup_source = " #f" " parameterization-key)" " 1/current-namespace" -" dest-namespace_2)" +" dest-namespace_47)" "(let-values()" -"(let-values(((dest-namespace44_0)" -" dest-namespace_2)" -"((m45_0)" -" m_21)" -"((mod-name46_0)" -" mod-name_20))" +"(let-values(((dest-namespace44_109)" +" dest-namespace_47)" +"((m45_110)" +" m_108)" +"((mod-name46_111)" +" mod-name_101))" "(declare-module!58.1" " #t" -" dest-namespace44_0" -" m45_0" -" mod-name46_0))))" -"(if m-ns_15" +" dest-namespace44_109" +" m45_110" +" mod-name46_111))))" +"(if m-ns_107" "(let-values()" "(begin" "(namespace-record-module-instance-attached!" -" src-namespace_6" -" mod-name_20" -" phase_76)" -"(let-values(((or-part_69)" -"(let-values(((dest-namespace47_0)" -" dest-namespace_2)" -"((mod-name48_0)" -" mod-name_20)" -"((phase49_1)" -" phase_76))" +" src-namespace_45" +" mod-name_101" +" phase_106)" +"(let-values(((or-part_112)" +"(let-values(((dest-namespace47_113)" +" dest-namespace_47)" +"((mod-name48_114)" +" mod-name_101)" +"((phase49_115)" +" phase_106))" "(namespace->module-namespace82.1" " #f" " #f" " unsafe-undefined" -" dest-namespace47_0" -" mod-name48_0" -" phase49_1))))" -"(if or-part_69" -" or-part_69" +" dest-namespace47_113" +" mod-name48_114" +" phase49_115))))" +"(if or-part_112" +" or-part_112" "(namespace-install-module-namespace!" -" dest-namespace_2" -" mod-name_20" -" phase_76" -" m_21" -" m-ns_15)))))" +" dest-namespace_47" +" mod-name_101" +" phase_106" +" m_108" +" m-ns_107)))))" "(void)))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_264" +"(for-loop_104" "(hash-iterate-next" -" ht_146" -" i_37))" +" ht_103" +" i_1))" "(values))))" "(values))))))" -" for-loop_264)" +" for-loop_104)" "(hash-iterate-first" -" ht_146))))))" +" ht_103))))))" "(if(not #f)" -"(for-loop_263" -"(hash-iterate-next ht_145 i_30))" +"(for-loop_99" +"(hash-iterate-next ht_98 i_0))" "(values))))" "(values))))))" -" for-loop_263)" -"(hash-iterate-first ht_145))))" +" for-loop_99)" +"(hash-iterate-first ht_98))))" "(values))))" "(let-values()" -"(let-values(((mnr_0)(1/current-module-name-resolver)))" +"(let-values(((mnr_52)(1/current-module-name-resolver)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -" dest-namespace_2)" +" dest-namespace_47)" "(let-values()" "(begin" -"(let-values(((ht_147) todo_0))" +"(let-values(((ht_116) todo_50))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_147)))" -"((letrec-values(((for-loop_265)" -"(lambda(i_164)" +"(let-values()(check-in-hash-keys ht_116)))" +"((letrec-values(((for-loop_117)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_164" -"(let-values(((mod-name_21)" -"(hash-iterate-key ht_147 i_164)))" +"(if i_0" +"(let-values(((mod-name_119)" +"(hash-iterate-key ht_116 i_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(mnr_0" -" mod-name_21" -" src-namespace_6))" +"(mnr_52" +" mod-name_119" +" src-namespace_45))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_265" -"(hash-iterate-next ht_147 i_164))" +"(for-loop_117" +"(hash-iterate-next ht_116 i_0))" "(values))))" "(values))))))" -" for-loop_265)" -"(hash-iterate-first ht_147))))" +" for-loop_117)" +"(hash-iterate-first ht_116))))" "(void))))))))))))))))))))))))" "(define-values" "(1/make-empty-namespace)" "(lambda()" "(begin" " 'make-empty-namespace" -"(let-values(((current-ns_0)(1/current-namespace)))" -"(let-values(((phase_45)(namespace-phase current-ns_0)))" -"(let-values(((ns_59)(namespace->namespace-at-phase(make-namespace) phase_45)))" +"(let-values(((current-ns_1)(1/current-namespace)))" +"(let-values(((phase_2)(namespace-phase current-ns_1)))" +"(let-values(((ns_3)(namespace->namespace-at-phase(make-namespace) phase_2)))" "(begin" -"(1/namespace-attach-module current-ns_0 ''#%kernel ns_59)" -"(namespace-primitive-module-visit! ns_59 '#%kernel)" -" ns_59)))))))" +"(1/namespace-attach-module current-ns_1 ''#%kernel ns_3)" +"(namespace-primitive-module-visit! ns_3 '#%kernel)" +" ns_3)))))))" "(define-values" "(1/namespace-syntax-introduce)" -"(let-values(((namespace-syntax-introduce3_0)" -"(lambda(s2_8 ns1_3)" +"(let-values(((namespace-syntax-introduce3_4)" +"(lambda(s2_0 ns1_0)" "(begin" " 'namespace-syntax-introduce3" -"(let-values(((s_2) s2_8))" -"(let-values(((ns_58)(if(eq? ns1_3 unsafe-undefined)(1/current-namespace) ns1_3)))" +"(let-values(((s_7) s2_0))" +"(let-values(((ns_8)(if(eq? ns1_0 unsafe-undefined)(1/current-namespace) ns1_0)))" "(let-values()" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_2)" +"(if(syntax?$1 s_7)" "(void)" "(let-values()" -" (raise-argument-error 'namespace-syntax-introduce \"syntax?\" s_2)))" +" (raise-argument-error 'namespace-syntax-introduce \"syntax?\" s_7)))" "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? ns_58)" +"(if(1/namespace? ns_8)" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-syntax-introduce" " \"namespace?\"" -" ns_58)))" +" ns_8)))" "(values))))" -"(let-values(((root-ctx_5)(namespace-get-root-expand-ctx ns_58)))" -"(let-values(((post-scope_1)" +"(let-values(((root-ctx_10)(namespace-get-root-expand-ctx ns_8)))" +"(let-values(((post-scope_11)" "(post-expansion-scope" -"(root-expand-context-post-expansion root-ctx_5))))" -"(let-values(((other-namespace-scopes_0)" +"(root-expand-context-post-expansion root-ctx_10))))" +"(let-values(((other-namespace-scopes_12)" "(reverse$1" -"(let-values(((ht_148)" +"(let-values(((ht_15)" "(syntax-scope-set" -"(root-expand-context-all-scopes-stx root-ctx_5)" +"(root-expand-context-all-scopes-stx root-ctx_10)" " 0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_148)))" -"((letrec-values(((for-loop_116)" -"(lambda(fold-var_239 i_165)" +"(let-values()(check-in-immutable-hash-keys ht_15)))" +"((letrec-values(((for-loop_16)" +"(lambda(fold-var_0 i_0)" "(begin" " 'for-loop" -"(if i_165" -"(let-values(((sc_36)" +"(if i_0" +"(let-values(((sc_19)" "(unsafe-immutable-hash-iterate-key" -" ht_148" -" i_165)))" -"(let-values(((fold-var_220)" -"(let-values(((fold-var_221)" -" fold-var_239))" +" ht_15" +" i_0)))" +"(let-values(((fold-var_20)" +"(let-values(((fold-var_21)" +" fold-var_0))" "(if(equal?" -" sc_36" -" post-scope_1)" -" fold-var_221" -"(let-values(((fold-var_222)" -" fold-var_221))" -"(let-values(((fold-var_223)" +" sc_19" +" post-scope_11)" +" fold-var_21" +"(let-values(((fold-var_22)" +" fold-var_21))" +"(let-values(((fold-var_23)" "(let-values()" "(cons" "(let-values()" -" sc_36)" -" fold-var_222))))" +" sc_19)" +" fold-var_22))))" "(values" -" fold-var_223)))))))" +" fold-var_23)))))))" "(if(not #f)" -"(for-loop_116" -" fold-var_220" +"(for-loop_16" +" fold-var_20" "(unsafe-immutable-hash-iterate-next" -" ht_148" -" i_165))" -" fold-var_220)))" -" fold-var_239)))))" -" for-loop_116)" +" ht_15" +" i_0))" +" fold-var_20)))" +" fold-var_0)))))" +" for-loop_16)" " null" -"(unsafe-immutable-hash-iterate-first ht_148)))))))" -"(let-values(((add-ns-scopes_0)" -"(lambda(s_431)" +"(unsafe-immutable-hash-iterate-first ht_15)))))))" +"(let-values(((add-ns-scopes_13)" +"(lambda(s_0)" "(begin" " 'add-ns-scopes" -"(let-values(((temp64_3)" +"(let-values(((temp64_26)" "(add-scopes" -"(push-scope s_431 post-scope_1)" -" other-namespace-scopes_0))" -"((temp65_1)" -"(root-expand-context-all-scopes-stx root-ctx_5))" -"((temp66_2)" -"(let-values(((or-part_74)" +"(push-scope s_0 post-scope_11)" +" other-namespace-scopes_12))" +"((temp65_27)" +"(root-expand-context-all-scopes-stx" +" root-ctx_10))" +"((temp66_28)" +"(let-values(((or-part_30)" "(namespace-declaration-inspector" -" ns_58)))" -"(if or-part_74" -" or-part_74" +" ns_8)))" +"(if or-part_30" +" or-part_30" "(current-code-inspector))))" -"((temp67_1) #t))" +"((temp67_29) #t))" "(syntax-transfer-shifts36.1" -" temp67_1" -" temp64_3" -" temp65_1" -" temp66_2))))))" -"(let-values(((maybe-module-id_0)" -"(if(pair?(1/syntax-e s_2))" -"(if(identifier?(car(1/syntax-e s_2)))" -"(add-ns-scopes_0(car(1/syntax-e s_2)))" +" temp67_29" +" temp64_26" +" temp65_27" +" temp66_28))))))" +"(let-values(((maybe-module-id_14)" +"(if(pair?(1/syntax-e s_7))" +"(if(identifier?(car(1/syntax-e s_7)))" +"(add-ns-scopes_13(car(1/syntax-e s_7)))" " #f)" " #f)))" -"(if(if maybe-module-id_0" +"(if(if maybe-module-id_14" "(1/free-identifier=?" -" maybe-module-id_0" -"(1/namespace-module-identifier ns_58)" -"(namespace-phase ns_58))" +" maybe-module-id_14" +"(1/namespace-module-identifier ns_8)" +"(namespace-phase ns_8))" " #f)" "(let-values()" "(1/datum->syntax" -" s_2" -"(cons maybe-module-id_0(cdr(1/syntax-e s_2)))" -" s_2" -" s_2))" -"(let-values()(add-ns-scopes_0 s_2)))))))))))))))))))" +" s_7" +"(cons maybe-module-id_14(cdr(1/syntax-e s_7)))" +" s_7" +" s_7))" +"(let-values()(add-ns-scopes_13 s_7)))))))))))))))))))" "(case-lambda" -"((s_78)(begin 'namespace-syntax-introduce(namespace-syntax-introduce3_0 s_78 unsafe-undefined)))" -"((s_447 ns1_2)(namespace-syntax-introduce3_0 s_447 ns1_2)))))" +"((s_0)(begin 'namespace-syntax-introduce(namespace-syntax-introduce3_4 s_0 unsafe-undefined)))" +"((s_0 ns1_0)(namespace-syntax-introduce3_4 s_0 ns1_0)))))" "(define-values" "(namespace-datum-introduce)" -"(lambda(s_181)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_181)))))" +"(lambda(s_0)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_0)))))" "(define-values" "(1/namespace-module-identifier)" -"(let-values(((namespace-module-identifier6_0)" +"(let-values(((namespace-module-identifier6_35)" "(lambda(where5_0)" "(begin" " 'namespace-module-identifier6" -"(let-values(((where_0)(if(eq? where5_0 unsafe-undefined)(1/current-namespace) where5_0)))" +"(let-values(((where_37)(if(eq? where5_0 unsafe-undefined)(1/current-namespace) where5_0)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(let-values(((or-part_82)(1/namespace? where_0)))" -"(if or-part_82 or-part_82(phase? where_0)))" +"(if(let-values(((or-part_39)(1/namespace? where_37)))" +"(if or-part_39 or-part_39(phase? where_37)))" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-module-identifier" " (string-append \"(or/c namespace? \" phase?-string \")\")" -" where_0)))" +" where_37)))" "(1/datum->syntax" "(1/syntax-shift-phase-level" " core-stx" -"(if(1/namespace? where_0)(namespace-phase where_0) where_0))" +"(if(1/namespace? where_37)(namespace-phase where_37) where_37))" " 'module))))))))))" "(case-lambda" -"(()(begin 'namespace-module-identifier(namespace-module-identifier6_0 unsafe-undefined)))" -"((where5_1)(namespace-module-identifier6_0 where5_1)))))" +"(()(begin 'namespace-module-identifier(namespace-module-identifier6_35 unsafe-undefined)))" +"((where5_0)(namespace-module-identifier6_35 where5_0)))))" "(define-values" "(1/namespace-symbol->identifier)" -"(lambda(sym_64)" +"(lambda(sym_0)" "(begin" " 'namespace-symbol->identifier" "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_64)" +"(if(symbol? sym_0)" "(void)" -" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_64)))" -"(1/namespace-syntax-introduce(1/datum->syntax #f sym_64))))))))" +" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_0)))" +"(1/namespace-syntax-introduce(1/datum->syntax #f sym_0))))))))" "(define-values" "(do-namespace-require21.1)" -"(lambda(copy-variable-as-constant?11_1" -" copy-variable-phase-level10_1" +"(lambda(copy-variable-as-constant?11_0" +" copy-variable-phase-level10_0" " run?8_0" -" skip-variable-phase-level12_1" +" skip-variable-phase-level12_0" " visit?9_0" " who18_0" " req19_0" -" ns20_1)" +" ns20_0)" "(begin" " 'do-namespace-require21" -"(let-values(((run?_3) run?8_0))" -"(let-values(((visit?_3) visit?9_0))" -"(let-values(((who_23) who18_0))" -"(let-values(((req_6) req19_0))" -"(let-values(((ns_77) ns20_1))" -"(let-values(((copy-variable-phase-level_2) copy-variable-phase-level10_1))" -"(let-values(((copy-variable-as-constant?_2) copy-variable-as-constant?11_1))" -"(let-values(((skip-variable-phase-level_2) skip-variable-phase-level12_1))" +"(let-values(((run?_51) run?8_0))" +"(let-values(((visit?_52) visit?9_0))" +"(let-values(((who_53) who18_0))" +"(let-values(((req_54) req19_0))" +"(let-values(((ns_55) ns20_0))" +"(let-values(((copy-variable-phase-level_56) copy-variable-phase-level10_0))" +"(let-values(((copy-variable-as-constant?_57) copy-variable-as-constant?11_0))" +"(let-values(((skip-variable-phase-level_58) skip-variable-phase-level12_0))" "(let-values()" "(let-values((()" "(begin" -"(if(1/namespace? ns_77)" +"(if(1/namespace? ns_55)" "(void)" -" (let-values () (raise-argument-error who_23 \"namespace?\" ns_77)))" +" (let-values () (raise-argument-error who_53 \"namespace?\" ns_55)))" "(values))))" -"(let-values(((ctx-stx_0)" +"(let-values(((ctx-stx_59)" "(add-scopes" " empty-syntax" -"(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_77)))))" -"(if(let-values(((or-part_164)(1/module-path-index? req_6)))" -"(if or-part_164 or-part_164(1/module-path? req_6)))" +"(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_55)))))" +"(if(let-values(((or-part_60)(1/module-path-index? req_54)))" +"(if or-part_60 or-part_60(1/module-path? req_54)))" "(let-values()" -"(let-values(((temp70_1)" -"(if(1/module-path-index? req_6)" -" req_6" -"(1/module-path-index-join req_6 #f)))" -"((temp71_0) #f)" -"((temp72_0) #f)" -"((ctx-stx73_0) ctx-stx_0)" -"((ns74_0) ns_77)" -"((run?75_0) run?_3)" -"((visit?76_0) visit?_3)" -"((temp77_0)(namespace-phase ns_77))" -"((temp78_1)(namespace-phase ns_77))" -"((copy-variable-phase-level79_0) copy-variable-phase-level_2)" -"((copy-variable-as-constant?80_0) copy-variable-as-constant?_2)" -"((skip-variable-phase-level81_0) skip-variable-phase-level_2)" -"((who82_0) who_23))" +"(let-values(((temp70_62)" +"(if(1/module-path-index? req_54)" +" req_54" +"(1/module-path-index-join req_54 #f)))" +"((temp71_63) #f)" +"((temp72_64) #f)" +"((ctx-stx73_65) ctx-stx_59)" +"((ns74_66) ns_55)" +"((run?75_67) run?_51)" +"((visit?76_68) visit?_52)" +"((temp77_69)(namespace-phase ns_55))" +"((temp78_70)(namespace-phase ns_55))" +"((copy-variable-phase-level79_71) copy-variable-phase-level_56)" +"((copy-variable-as-constant?80_72) copy-variable-as-constant?_57)" +"((skip-variable-phase-level81_73) skip-variable-phase-level_58)" +"((who82_74) who_53))" "(perform-require!78.1" " #f" " #t" " #f" -" copy-variable-as-constant?80_0" -" copy-variable-phase-level79_0" +" copy-variable-as-constant?80_72" +" copy-variable-phase-level79_71" " #f" " 'all" -" temp77_0" +" temp77_69" " #f" -" temp78_1" -" run?75_0" -" skip-variable-phase-level81_0" -" visit?76_0" -" who82_0" -" temp70_1" -" temp71_0" -" temp72_0" -" ctx-stx73_0" -" ns74_0)))" +" temp78_70" +" run?75_67" +" skip-variable-phase-level81_73" +" visit?76_68" +" who82_74" +" temp70_62" +" temp71_63" +" temp72_64" +" ctx-stx73_65" +" ns74_66)))" "(let-values()" -"(let-values(((run?83_0) run?_3)" -"((visit?84_0) visit?_3)" -"((temp85_0)(list(1/datum->syntax ctx-stx_0 req_6)))" -"((temp86_1) #f)" -"((ns87_0) ns_77)" -"((temp88_0)(namespace-phase ns_77))" -"((temp89_1)" -"(let-values(((temp92_2) #f))(make-requires+provides8.1 #f temp92_2)))" -"((skip-variable-phase-level90_0) skip-variable-phase-level_2)" -"((who91_0) who_23))" +"(let-values(((run?83_76) run?_51)" +"((visit?84_77) visit?_52)" +"((temp85_78)(list(1/datum->syntax ctx-stx_59 req_54)))" +"((temp86_79) #f)" +"((ns87_80) ns_55)" +"((temp88_81)(namespace-phase ns_55))" +"((temp89_82)" +"(let-values(((temp92_85) #f))(make-requires+provides8.1 #f temp92_85)))" +"((skip-variable-phase-level90_83) skip-variable-phase-level_58)" +"((who91_84) who_53))" "(parse-and-perform-requires!30.1" " #f" " #f" " unsafe-undefined" " #f" " unsafe-undefined" -" run?83_0" +" run?83_76" " #f" -" skip-variable-phase-level90_0" -" visit?84_0" -" who91_0" -" temp85_0" -" temp86_1" -" ns87_0" -" temp88_0" -" temp89_1))))))))))))))))))" +" skip-variable-phase-level90_83" +" visit?84_77" +" who91_84" +" temp85_78" +" temp86_79" +" ns87_80" +" temp88_81" +" temp89_82))))))))))))))))))" "(define-values" "(1/namespace-require)" -"(let-values(((namespace-require26_0)" +"(let-values(((namespace-require26_130)" "(lambda(req25_0 ns24_0)" "(begin" " 'namespace-require26" -"(let-values(((req_7) req25_0))" -"(let-values(((ns_78)(if(eq? ns24_0 unsafe-undefined)(1/current-namespace) ns24_0)))" +"(let-values(((req_133) req25_0))" +"(let-values(((ns_134)(if(eq? ns24_0 unsafe-undefined)(1/current-namespace) ns24_0)))" "(let-values()" "(let-values()" "(let-values()" -"(let-values(((who94_0) 'namespace-require)((req95_0) req_7)((ns96_0) ns_78))" -"(do-namespace-require21.1 #f #f #t #f #f who94_0 req95_0 ns96_0)))))))))))" +"(let-values(((who94_136) 'namespace-require)((req95_137) req_133)((ns96_138) ns_134))" +"(do-namespace-require21.1 #f #f #t #f #f who94_136 req95_137 ns96_138)))))))))))" "(case-lambda" -"((req_8)(begin 'namespace-require(namespace-require26_0 req_8 unsafe-undefined)))" -"((req_9 ns24_1)(namespace-require26_0 req_9 ns24_1)))))" +"((req_0)(begin 'namespace-require(namespace-require26_130 req_0 unsafe-undefined)))" +"((req_0 ns24_0)(namespace-require26_130 req_0 ns24_0)))))" "(define-values" "(1/namespace-require/expansion-time)" -"(let-values(((namespace-require/expansion-time30_0)" -"(lambda(req29_0 ns28_1)" +"(let-values(((namespace-require/expansion-time30_142)" +"(lambda(req29_0 ns28_0)" "(begin" " 'namespace-require/expansion-time30" -"(let-values(((req_10) req29_0))" -"(let-values(((ns_79)(if(eq? ns28_1 unsafe-undefined)(1/current-namespace) ns28_1)))" +"(let-values(((req_145) req29_0))" +"(let-values(((ns_146)(if(eq? ns28_0 unsafe-undefined)(1/current-namespace) ns28_0)))" "(let-values()" "(let-values()" "(let-values()" -"(let-values(((temp98_1) #f)" -"((temp99_0) #t)" -"((who100_0) 'namespace-require/expansion-time)" -"((req101_0) req_10)" -"((ns102_0) ns_79))" +"(let-values(((temp98_149) #f)" +"((temp99_150) #t)" +"((who100_151) 'namespace-require/expansion-time)" +"((req101_152) req_145)" +"((ns102_153) ns_146))" "(do-namespace-require21.1" " #f" " #f" -" temp98_1" +" temp98_149" " #f" -" temp99_0" -" who100_0" -" req101_0" -" ns102_0)))))))))))" +" temp99_150" +" who100_151" +" req101_152" +" ns102_153)))))))))))" "(case-lambda" -"((req_11)(begin 'namespace-require/expansion-time(namespace-require/expansion-time30_0 req_11 unsafe-undefined)))" -"((req_12 ns28_2)(namespace-require/expansion-time30_0 req_12 ns28_2)))))" +"((req_0)(begin 'namespace-require/expansion-time(namespace-require/expansion-time30_142 req_0 unsafe-undefined)))" +"((req_0 ns28_0)(namespace-require/expansion-time30_142 req_0 ns28_0)))))" "(define-values" "(1/namespace-require/constant)" -"(let-values(((namespace-require/constant34_0)" +"(let-values(((namespace-require/constant34_157)" "(lambda(req33_0 ns32_0)" "(begin" " 'namespace-require/constant34" -"(let-values(((req_13) req33_0))" -"(let-values(((ns_80)(if(eq? ns32_0 unsafe-undefined)(1/current-namespace) ns32_0)))" +"(let-values(((req_160) req33_0))" +"(let-values(((ns_161)(if(eq? ns32_0 unsafe-undefined)(1/current-namespace) ns32_0)))" "(let-values()" "(let-values()" "(let-values()" -"(let-values(((who104_1) 'namespace-require/constant)" -"((req105_0) req_13)" -"((ns106_0) ns_80)" -"((temp107_1) 0)" -"((temp108_0) #t))" +"(let-values(((who104_164) 'namespace-require/constant)" +"((req105_165) req_160)" +"((ns106_166) ns_161)" +"((temp107_167) 0)" +"((temp108_168) #t))" "(do-namespace-require21.1" -" temp108_0" -" temp107_1" +" temp108_168" +" temp107_167" " #t" " #f" " #f" -" who104_1" -" req105_0" -" ns106_0)))))))))))" +" who104_164" +" req105_165" +" ns106_166)))))))))))" "(case-lambda" -"((req_14)(begin 'namespace-require/constant(namespace-require/constant34_0 req_14 unsafe-undefined)))" -"((req_15 ns32_1)(namespace-require/constant34_0 req_15 ns32_1)))))" +"((req_0)(begin 'namespace-require/constant(namespace-require/constant34_157 req_0 unsafe-undefined)))" +"((req_0 ns32_0)(namespace-require/constant34_157 req_0 ns32_0)))))" "(define-values" "(1/namespace-require/copy)" -"(let-values(((namespace-require/copy38_0)" +"(let-values(((namespace-require/copy38_172)" "(lambda(req37_0 ns36_0)" "(begin" " 'namespace-require/copy38" -"(let-values(((req_16) req37_0))" -"(let-values(((ns_81)(if(eq? ns36_0 unsafe-undefined)(1/current-namespace) ns36_0)))" +"(let-values(((req_175) req37_0))" +"(let-values(((ns_176)(if(eq? ns36_0 unsafe-undefined)(1/current-namespace) ns36_0)))" "(let-values()" "(let-values()" "(let-values()" -"(let-values(((who110_1) 'namespace-require/copy)" -"((req111_0) req_16)" -"((ns112_0) ns_81)" -"((temp113_1) 0)" -"((temp114_2) 0))" +"(let-values(((who110_179) 'namespace-require/copy)" +"((req111_180) req_175)" +"((ns112_181) ns_176)" +"((temp113_182) 0)" +"((temp114_183) 0))" "(do-namespace-require21.1" " #f" -" temp113_1" +" temp113_182" " #t" -" temp114_2" +" temp114_183" " #f" -" who110_1" -" req111_0" -" ns112_0)))))))))))" +" who110_179" +" req111_180" +" ns112_181)))))))))))" "(case-lambda" -"((req_17)(begin 'namespace-require/copy(namespace-require/copy38_0 req_17 unsafe-undefined)))" -"((req_18 ns36_1)(namespace-require/copy38_0 req_18 ns36_1)))))" +"((req_0)(begin 'namespace-require/copy(namespace-require/copy38_172 req_0 unsafe-undefined)))" +"((req_0 ns36_0)(namespace-require/copy38_172 req_0 ns36_0)))))" "(define-values" "(1/namespace-variable-value)" -"(let-values(((namespace-variable-value44_0)" +"(let-values(((namespace-variable-value44_187)" "(lambda(sym43_0 use-mapping?40_0 failure-thunk41_0 ns42_0)" "(begin" " 'namespace-variable-value44" -"(let-values(((sym_76) sym43_0))" -"(let-values(((use-mapping?_0) use-mapping?40_0))" -"(let-values(((failure-thunk_5) failure-thunk41_0))" -"(let-values(((ns_11)(if(eq? ns42_0 unsafe-undefined)(1/current-namespace) ns42_0)))" +"(let-values(((sym_192) sym43_0))" +"(let-values(((use-mapping?_193) use-mapping?40_0))" +"(let-values(((failure-thunk_194) failure-thunk41_0))" +"(let-values(((ns_195)(if(eq? ns42_0 unsafe-undefined)(1/current-namespace) ns42_0)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_76)" +"(if(symbol? sym_192)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_76)))" -"(if(let-values(((or-part_132)(not failure-thunk_5)))" -"(if or-part_132" -" or-part_132" -"(if(procedure? failure-thunk_5)" -"(procedure-arity-includes? failure-thunk_5 0)" +"(let-values()" +" (raise-argument-error 'namespace-variable-value \"symbol?\" sym_192)))" +"(if(let-values(((or-part_197)(not failure-thunk_194)))" +"(if or-part_197" +" or-part_197" +"(if(procedure? failure-thunk_194)" +"(procedure-arity-includes? failure-thunk_194 0)" " #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-variable-value" " \"(or/c #f (procedure-arity-includes/c 0))\"" -" failure-thunk_5)))" -"(if(1/namespace? ns_11)" +" failure-thunk_194)))" +"(if(1/namespace? ns_195)" "(void)" "(let-values()" -" (raise-argument-error 'namespace-variable-value \"namespace?\" ns_11)))" +" (raise-argument-error 'namespace-variable-value \"namespace?\" ns_195)))" "((call/ec" "(lambda(escape_0)" -"(let-values(((var-ns_0 var-phase-level_0 var-sym_6)" -"(if use-mapping?_0" +"(let-values(((var-ns_199 var-phase-level_200 var-sym_201)" +"(if use-mapping?_193" "(let-values()" -"(let-values(((id_102)(1/datum->syntax #f sym_76)))" -"(let-values(((b_14)" +"(let-values(((id_203)(1/datum->syntax #f sym_192)))" +"(let-values(((b_204)" "(resolve+shift/extra-inspector" -"(1/namespace-syntax-introduce id_102 ns_11)" -"(namespace-phase ns_11)" -" ns_11)))" +"(1/namespace-syntax-introduce id_203 ns_195)" +"(namespace-phase ns_195)" +" ns_195)))" "(let-values((()" "(begin" -"(if b_14" +"(if b_204" "(let-values()" "(namespace-visit-available-modules!" -" ns_11))" +" ns_195))" "(void))" "(values))))" -"(let-values(((v_188" -" primitive?_8" -" extra-inspector_9" -" protected?_9)" -"(if b_14" -"(let-values(((b116_0) b_14)" -"((empty-env117_0)" +"(let-values(((v_205" +" primitive?_206" +" extra-inspector_207" +" protected?_208)" +"(if b_204" +"(let-values(((b116_209) b_204)" +"((empty-env117_210)" " empty-env)" -"((null118_0) null)" -"((ns119_0) ns_11)" -"((temp120_0)" -"(namespace-phase ns_11))" -"((id121_0) id_102))" +"((null118_211) null)" +"((ns119_212) ns_195)" +"((temp120_213)" +"(namespace-phase ns_195))" +"((id121_214) id_203))" "(binding-lookup50.1" " #f" " #f" -" b116_0" -" empty-env117_0" -" null118_0" -" ns119_0" -" temp120_0" -" id121_0))" +" b116_209" +" empty-env117_210" +" null118_211" +" ns119_212" +" temp120_213" +" id121_214))" "(values variable #f #f #f))))" "(begin" -"(if(variable? v_188)" +"(if(variable? v_205)" "(void)" "(let-values()" "(escape_0" -"(let-values(((or-part_52) failure-thunk_5))" -"(if or-part_52" -" or-part_52" +"(let-values(((or-part_215) failure-thunk_194))" +"(if or-part_215" +" or-part_215" "(lambda()" "(raise" "(make-exn:fail:syntax$1" @@ -44209,98 +44415,99 @@ static const char *startup_source = "(string-append" " \"namespace-variable-value: bound to syntax\\n\"" " \" in: ~s\")" -" sym_76)" +" sym_192)" "(current-continuation-marks)" " null))))))))" -"(if(module-binding? b_14)" +"(if(module-binding? b_204)" "(values" "(if(top-level-module-path-index?" -"(module-binding-module b_14))" -" ns_11" +"(module-binding-module b_204))" +" ns_195" "(module-instance-namespace" "(binding->module-instance" -" b_14" -" ns_11" -"(namespace-phase ns_11)" -" id_102)))" -"(module-binding-phase b_14)" -"(module-binding-sym b_14))" +" b_204" +" ns_195" +"(namespace-phase ns_195)" +" id_203)))" +"(module-binding-phase b_204)" +"(module-binding-sym b_204))" "(values" -" ns_11" -"(namespace-phase ns_11)" -" sym_76))))))))" -"(let-values()(values ns_11(namespace-phase ns_11) sym_76)))))" -"(let-values(((val_71)" +" ns_195" +"(namespace-phase ns_195)" +" sym_192))))))))" +"(let-values()" +"(values ns_195(namespace-phase ns_195) sym_192)))))" +"(let-values(((val_202)" "(namespace-get-variable" -" var-ns_0" -" var-phase-level_0" -" var-sym_6" +" var-ns_199" +" var-phase-level_200" +" var-sym_201" "(lambda()" "(escape_0" -"(let-values(((or-part_296) failure-thunk_5))" -"(if or-part_296" -" or-part_296" +"(let-values(((or-part_216) failure-thunk_194))" +"(if or-part_216" +" or-part_216" "(raise" "(exn:fail:contract:variable" "(format" "(string-append" " \"namespace-variable-value: given name is not defined\\n\"" " \" name: ~s\")" -" sym_76)" +" sym_192)" "(current-continuation-marks)" -" sym_76)))))))))" -"(lambda() val_71))))))))))))))))))" +" sym_192)))))))))" +"(lambda() val_202))))))))))))))))))" "(case-lambda" -"((sym_77)(begin 'namespace-variable-value(namespace-variable-value44_0 sym_77 #t #f unsafe-undefined)))" -"((sym_78 use-mapping?_1 failure-thunk_6 ns42_1)" -"(namespace-variable-value44_0 sym_78 use-mapping?_1 failure-thunk_6 ns42_1))" -"((sym_79 use-mapping?_2 failure-thunk41_1)" -"(namespace-variable-value44_0 sym_79 use-mapping?_2 failure-thunk41_1 unsafe-undefined))" -"((sym_80 use-mapping?40_1)(namespace-variable-value44_0 sym_80 use-mapping?40_1 #f unsafe-undefined)))))" +"((sym_0)(begin 'namespace-variable-value(namespace-variable-value44_187 sym_0 #t #f unsafe-undefined)))" +"((sym_0 use-mapping?_0 failure-thunk_0 ns42_0)" +"(namespace-variable-value44_187 sym_0 use-mapping?_0 failure-thunk_0 ns42_0))" +"((sym_0 use-mapping?_0 failure-thunk41_0)" +"(namespace-variable-value44_187 sym_0 use-mapping?_0 failure-thunk41_0 unsafe-undefined))" +"((sym_0 use-mapping?40_0)(namespace-variable-value44_187 sym_0 use-mapping?40_0 #f unsafe-undefined)))))" "(define-values" "(1/namespace-set-variable-value!)" -"(let-values(((namespace-set-variable-value!51_0)" -"(lambda(sym49_0 val50_0 map?46_0 ns47_2 as-constant?48_0)" +"(let-values(((namespace-set-variable-value!51_227)" +"(lambda(sym49_0 val50_0 map?46_0 ns47_0 as-constant?48_0)" "(begin" " 'namespace-set-variable-value!51" -"(let-values(((sym_81) sym49_0))" -"(let-values(((val_72) val50_0))" -"(let-values(((map?_0) map?46_0))" -"(let-values(((ns_82)(if(eq? ns47_2 unsafe-undefined)(1/current-namespace) ns47_2)))" -"(let-values(((as-constant?_2) as-constant?48_0))" +"(let-values(((sym_233) sym49_0))" +"(let-values(((val_234) val50_0))" +"(let-values(((map?_235) map?46_0))" +"(let-values(((ns_236)(if(eq? ns47_0 unsafe-undefined)(1/current-namespace) ns47_0)))" +"(let-values(((as-constant?_237) as-constant?48_0))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_81)" +"(if(symbol? sym_233)" "(void)" "(let-values()" -" (raise-argument-error 'namespace-set-variable-value! \"symbol?\" sym_81)))" -"(if(1/namespace? ns_82)" +" (raise-argument-error 'namespace-set-variable-value! \"symbol?\" sym_233)))" +"(if(1/namespace? ns_236)" "(void)" "(let-values()" -" (raise-argument-error 'namespace-set-variable-value! \"namespace?\" ns_82)))" +" (raise-argument-error 'namespace-set-variable-value! \"namespace?\" ns_236)))" "(namespace-set-variable!" -" ns_82" -"(namespace-phase ns_82)" -" sym_81" -" val_72" -" as-constant?_2)" -"(if map?_0" +" ns_236" +"(namespace-phase ns_236)" +" sym_233" +" val_234" +" as-constant?_237)" +"(if map?_235" "(let-values()" "(let-values((()" "(begin" "(namespace-unset-transformer!" -" ns_82" -"(namespace-phase ns_82)" -" sym_81)" +" ns_236" +"(namespace-phase ns_236)" +" sym_233)" "(values))))" -"(let-values(((id_103)(1/datum->syntax #f sym_81)))" -"(let-values(((temp123_1)(1/namespace-syntax-introduce id_103 ns_82))" -"((temp124_0)" -"(let-values(((temp126_0)(namespace-mpi ns_82))" -"((temp127_3)(namespace-phase ns_82))" -"((sym128_0) sym_81))" +"(let-values(((id_239)(1/datum->syntax #f sym_233)))" +"(let-values(((temp123_240)(1/namespace-syntax-introduce id_239 ns_236))" +"((temp124_241)" +"(let-values(((temp126_243)(namespace-mpi ns_236))" +"((temp127_244)(namespace-phase ns_236))" +"((sym128_245) sym_233))" "(make-module-binding22.1" " #f" " null" @@ -44311,219 +44518,218 @@ static const char *startup_source = " 0" " unsafe-undefined" " unsafe-undefined" -" temp126_0" -" temp127_3" -" sym128_0)))" -"((temp125_0)(namespace-phase ns_82)))" -"(add-binding!17.1 #f #f temp123_1 temp124_0 temp125_0)))))" +" temp126_243" +" temp127_244" +" sym128_245)))" +"((temp125_242)(namespace-phase ns_236)))" +"(add-binding!17.1 #f #f temp123_240 temp124_241 temp125_242)))))" "(void)))))))))))))))" "(case-lambda" -"((sym_82 val_73)" -"(begin 'namespace-set-variable-value!(namespace-set-variable-value!51_0 sym_82 val_73 #f unsafe-undefined #f)))" -"((sym_83 val_74 map?_1 ns_83 as-constant?48_1)" -"(namespace-set-variable-value!51_0 sym_83 val_74 map?_1 ns_83 as-constant?48_1))" -"((sym_84 val_75 map?_2 ns47_3)(namespace-set-variable-value!51_0 sym_84 val_75 map?_2 ns47_3 #f))" -"((sym_85 val_76 map?46_1)(namespace-set-variable-value!51_0 sym_85 val_76 map?46_1 unsafe-undefined #f)))))" +"((sym_0 val_0)" +"(begin 'namespace-set-variable-value!(namespace-set-variable-value!51_227 sym_0 val_0 #f unsafe-undefined #f)))" +"((sym_0 val_0 map?_0 ns_0 as-constant?48_0)" +"(namespace-set-variable-value!51_227 sym_0 val_0 map?_0 ns_0 as-constant?48_0))" +"((sym_0 val_0 map?_0 ns47_0)(namespace-set-variable-value!51_227 sym_0 val_0 map?_0 ns47_0 #f))" +"((sym_0 val_0 map?46_0)(namespace-set-variable-value!51_227 sym_0 val_0 map?46_0 unsafe-undefined #f)))))" "(define-values" "(1/namespace-undefine-variable!)" -"(let-values(((namespace-undefine-variable!55_0)" +"(let-values(((namespace-undefine-variable!55_260)" "(lambda(sym54_0 ns53_0)" "(begin" " 'namespace-undefine-variable!55" -"(let-values(((sym_86) sym54_0))" -"(let-values(((ns_84)(if(eq? ns53_0 unsafe-undefined)(1/current-namespace) ns53_0)))" +"(let-values(((sym_263) sym54_0))" +"(let-values(((ns_264)(if(eq? ns53_0 unsafe-undefined)(1/current-namespace) ns53_0)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(symbol? sym_86)" -"(void)" -" (let-values () (raise-argument-error 'namespace-undefine-variable! \"symbol?\" sym_86)))" -"(if(1/namespace? ns_84)" +"(if(symbol? sym_263)" "(void)" "(let-values()" -" (raise-argument-error 'namespace-undefine-variable! \"namespace?\" ns_84)))" -"(namespace-unset-variable! ns_84(namespace-phase ns_84) sym_86)))))))))))" +" (raise-argument-error 'namespace-undefine-variable! \"symbol?\" sym_263)))" +"(if(1/namespace? ns_264)" +"(void)" +"(let-values()" +" (raise-argument-error 'namespace-undefine-variable! \"namespace?\" ns_264)))" +"(namespace-unset-variable! ns_264(namespace-phase ns_264) sym_263)))))))))))" "(case-lambda" -"((sym_87)(begin 'namespace-undefine-variable!(namespace-undefine-variable!55_0 sym_87 unsafe-undefined)))" -"((sym_7 ns53_1)(namespace-undefine-variable!55_0 sym_7 ns53_1)))))" +"((sym_0)(begin 'namespace-undefine-variable!(namespace-undefine-variable!55_260 sym_0 unsafe-undefined)))" +"((sym_0 ns53_0)(namespace-undefine-variable!55_260 sym_0 ns53_0)))))" "(define-values" "(1/namespace-mapped-symbols)" -"(let-values(((namespace-mapped-symbols58_0)" +"(let-values(((namespace-mapped-symbols58_269)" "(lambda(ns57_0)" "(begin" " 'namespace-mapped-symbols58" -"(let-values(((ns_85)(if(eq? ns57_0 unsafe-undefined)(1/current-namespace) ns57_0)))" +"(let-values(((ns_271)(if(eq? ns57_0 unsafe-undefined)(1/current-namespace) ns57_0)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(1/namespace? ns_85)" +"(if(1/namespace? ns_271)" "(void)" -" (let-values () (raise-argument-error 'namespace-mapped-symbols \"namespace?\" ns_85)))" +" (let-values () (raise-argument-error 'namespace-mapped-symbols \"namespace?\" ns_271)))" "(set->list" "(set-union" "(syntax-mapped-names" -"(root-expand-context-all-scopes-stx(namespace-get-root-expand-ctx ns_85))" -"(namespace-phase ns_85))" -"(list->set(1/instance-variable-names(namespace->instance ns_85 0))))))))))))))" +"(root-expand-context-all-scopes-stx(namespace-get-root-expand-ctx ns_271))" +"(namespace-phase ns_271))" +"(list->set(1/instance-variable-names(namespace->instance ns_271 0))))))))))))))" "(case-lambda" -"(()(begin 'namespace-mapped-symbols(namespace-mapped-symbols58_0 unsafe-undefined)))" -"((ns57_1)(namespace-mapped-symbols58_0 ns57_1)))))" +"(()(begin 'namespace-mapped-symbols(namespace-mapped-symbols58_269 unsafe-undefined)))" +"((ns57_0)(namespace-mapped-symbols58_269 ns57_0)))))" "(define-values" "(1/namespace-base-phase)" -"(let-values(((namespace-base-phase61_0)" +"(let-values(((namespace-base-phase61_274)" "(lambda(ns60_0)" "(begin" " 'namespace-base-phase61" -"(let-values(((ns_86)(if(eq? ns60_0 unsafe-undefined)(1/current-namespace) ns60_0)))" +"(let-values(((ns_276)(if(eq? ns60_0 unsafe-undefined)(1/current-namespace) ns60_0)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(1/namespace? ns_86)" +"(if(1/namespace? ns_276)" "(void)" -" (let-values () (raise-argument-error 'namespace-base-phase \"namespace?\" ns_86)))" -"(namespace-phase ns_86))))))))))" +" (let-values () (raise-argument-error 'namespace-base-phase \"namespace?\" ns_276)))" +"(namespace-phase ns_276))))))))))" "(case-lambda" -"(()(begin 'namespace-base-phase(namespace-base-phase61_0 unsafe-undefined)))" -"((ns60_1)(namespace-base-phase61_0 ns60_1)))))" +"(()(begin 'namespace-base-phase(namespace-base-phase61_274 unsafe-undefined)))" +"((ns60_0)(namespace-base-phase61_274 ns60_0)))))" "(define-values" "(1/eval)" -"(let-values(((eval4_0)" -"(lambda(s3_1 ns1_4 compile2_0)" +"(let-values(((eval4_11)" +"(lambda(s3_0 ns1_0 compile2_0)" "(begin" " 'eval4" -"(let-values(((s_448) s3_1))" -"(let-values(((ns_87)(if(eq? ns1_4 unsafe-undefined)(1/current-namespace) ns1_4)))" -"(let-values(((compile_1)" +"(let-values(((s_15) s3_0))" +"(let-values(((ns_16)(if(eq? ns1_0 unsafe-undefined)(1/current-namespace) ns1_0)))" +"(let-values(((compile_17)" "(if(eq? compile2_0 unsafe-undefined)" -"(lambda(s_75 ns_55)(begin 'compile(1/compile s_75 ns_55 #f)))" +"(lambda(s_0 ns_0)(begin 'compile(1/compile s_0 ns_0 #f)))" " compile2_0)))" "(let-values()" -"(if(let-values(((or-part_28)(compiled-in-memory? s_448)))" -"(if or-part_28" -" or-part_28" -"(let-values(((or-part_294)(1/linklet-directory? s_448)))" -"(if or-part_294 or-part_294(1/linklet-bundle? s_448)))))" -"(let-values()(eval-compiled s_448 ns_87))" -"(if(if(syntax?$1 s_448)" -"(let-values(((or-part_297)(compiled-in-memory?(1/syntax-e s_448))))" -"(if or-part_297" -" or-part_297" -"(let-values(((or-part_298)(1/linklet-directory?(1/syntax-e s_448))))" -"(if or-part_298 or-part_298(1/linklet-bundle?(1/syntax-e s_448))))))" +"(if(let-values(((or-part_20)(compiled-in-memory? s_15)))" +"(if or-part_20" +" or-part_20" +"(let-values(((or-part_21)(1/linklet-directory? s_15)))" +"(if or-part_21 or-part_21(1/linklet-bundle? s_15)))))" +"(let-values()(eval-compiled s_15 ns_16))" +"(if(if(syntax?$1 s_15)" +"(let-values(((or-part_22)(compiled-in-memory?(1/syntax-e s_15))))" +"(if or-part_22" +" or-part_22" +"(let-values(((or-part_23)(1/linklet-directory?(1/syntax-e s_15))))" +"(if or-part_23 or-part_23(1/linklet-bundle?(1/syntax-e s_15))))))" " #f)" -"(let-values()(eval-compiled(1/syntax->datum s_448) ns_87))" +"(let-values()(eval-compiled(1/syntax->datum s_15) ns_16))" "(let-values()" -"(let-values(((s66_0) s_448)" -"((ns67_1) ns_87)" -"((temp68_1)" -"(lambda(s_180 ns_88 tail?_52)" -"(eval-compiled(compile_1 s_180 ns_88) ns_88 tail?_52)))" -"((temp69_1) #f))" -"(per-top-level54.1 #f #f temp69_1 #t #f temp68_1 #f s66_0 ns67_1)))))))))))))" +"(let-values(((s66_25) s_15)" +"((ns67_26) ns_16)" +"((temp68_27)" +"(lambda(s_0 ns_0 tail?_0)" +"(eval-compiled(compile_17 s_0 ns_0) ns_0 tail?_0)))" +"((temp69_28) #f))" +"(per-top-level54.1 #f #f temp69_28 #t #f temp68_27 #f s66_25 ns67_26)))))))))))))" "(case-lambda" -"((s_447)(begin 'eval(eval4_0 s_447 unsafe-undefined unsafe-undefined)))" -"((s_76 ns_89 compile2_1)(eval4_0 s_76 ns_89 compile2_1))" -"((s_443 ns1_5)(eval4_0 s_443 ns1_5 unsafe-undefined)))))" +"((s_0)(begin 'eval(eval4_11 s_0 unsafe-undefined unsafe-undefined)))" +"((s_0 ns_0 compile2_0)(eval4_11 s_0 ns_0 compile2_0))" +"((s_0 ns1_0)(eval4_11 s_0 ns1_0 unsafe-undefined)))))" "(define-values" "(eval-compiled)" -"(let-values(((eval-compiled9_0)" -"(lambda(c7_1 ns8_0 as-tail?6_0)" +"(let-values(((eval-compiled9_38)" +"(lambda(c7_0 ns8_0 as-tail?6_0)" "(begin" " 'eval-compiled9" -"(let-values(((c_52) c7_1))" -"(let-values(((ns_90) ns8_0))" -"(let-values(((as-tail?_3) as-tail?6_0))" +"(let-values(((c_42) c7_0))" +"(let-values(((ns_43) ns8_0))" +"(let-values(((as-tail?_44) as-tail?6_0))" "(let-values()" -"(if(1/compiled-module-expression? c_52)" +"(if(1/compiled-module-expression? c_42)" "(let-values()" -"(let-values(((c70_0) c_52)((ns71_0) ns_90))(eval-module8.1 ns71_0 #f #t c70_0)))" -"(let-values()(eval-top c_52 ns_90 eval-compiled as-tail?_3)))))))))))" +"(let-values(((c70_46) c_42)((ns71_47) ns_43))(eval-module8.1 ns71_47 #f #t c70_46)))" +"(let-values()(eval-top c_42 ns_43 eval-compiled as-tail?_44)))))))))))" "(case-lambda" -"((c_53 ns_91)(begin(eval-compiled9_0 c_53 ns_91 #t)))" -"((c_54 ns_92 as-tail?6_1)(eval-compiled9_0 c_54 ns_92 as-tail?6_1)))))" +"((c_0 ns_0)(begin(eval-compiled9_38 c_0 ns_0 #t)))" +"((c_0 ns_0 as-tail?6_0)(eval-compiled9_38 c_0 ns_0 as-tail?6_0)))))" "(define-values" "(1/compile)" -"(let-values(((compile16_0)" -"(lambda(s15_1 ns11_1 serializable?12_0 expand13_0 to-source?14_0)" +"(let-values(((compile16_53)" +"(lambda(s15_0 ns11_0 serializable?12_0 expand13_0 to-source?14_0)" "(begin" " 'compile16" -"(let-values(((s_184) s15_1))" -"(let-values(((ns_93)(if(eq? ns11_1 unsafe-undefined)(1/current-namespace) ns11_1)))" -"(let-values(((serializable?_4) serializable?12_0))" -"(let-values(((expand_0)(if(eq? expand13_0 unsafe-undefined) expand$1 expand13_0)))" -"(let-values(((to-source?_4) to-source?14_0))" +"(let-values(((s_59) s15_0))" +"(let-values(((ns_60)(if(eq? ns11_0 unsafe-undefined)(1/current-namespace) ns11_0)))" +"(let-values(((serializable?_61) serializable?12_0))" +"(let-values(((expand_62)(if(eq? expand13_0 unsafe-undefined) expand$1 expand13_0)))" +"(let-values(((to-source?_63) to-source?14_0))" "(let-values()" -"(let-values(((cs_0)" -"(if(1/compiled-expression? s_184)" -"(let-values()(list s_184))" -"(if(if(syntax?$1 s_184)" -"(1/compiled-expression?(1/syntax-e s_184))" -" #f)" -"(let-values()(list(1/syntax-e s_184)))" +"(let-values(((cs_64)" +"(if(1/compiled-expression? s_59)" +"(let-values()(list s_59))" +"(if(if(syntax?$1 s_59)(1/compiled-expression?(1/syntax-e s_59)) #f)" +"(let-values()(list(1/syntax-e s_59)))" "(let-values()" -"(let-values(((s72_0) s_184)" -"((ns73_0) ns_93)" -"((temp74_0)" -"(lambda(s_449 ns_46 as-tail?_4)" +"(let-values(((s72_66) s_59)" +"((ns73_67) ns_60)" +"((temp74_68)" +"(lambda(s_0 ns_0 as-tail?_0)" "(list" "(compile-single$1" -" s_449" -" ns_46" -" expand_0" -" serializable?_4" -" to-source?_4))))" -"((append75_0) append)" -"((temp76_0) #f))" +" s_0" +" ns_0" +" expand_62" +" serializable?_61" +" to-source?_63))))" +"((append75_69) append)" +"((temp76_70) #f))" "(per-top-level54.1" -" append75_0" +" append75_69" " #f" -" temp76_0" +" temp76_70" " #t" " #f" -" temp74_0" +" temp74_68" " #f" -" s72_0" -" ns73_0)))))))" -"(if(if(= 1(length cs_0))(not(compiled-multiple-top?(car cs_0))) #f)" -"(car cs_0)" -"(let-values(((cs77_0) cs_0)" -"((to-source?78_0) to-source?_4)" -"((serializable?79_0) serializable?_4)" -"((ns80_0) ns_93))" +" s72_66" +" ns73_67)))))))" +"(if(if(= 1(length cs_64))(not(compiled-multiple-top?(car cs_64))) #f)" +"(car cs_64)" +"(let-values(((cs77_75) cs_64)" +"((to-source?78_76) to-source?_63)" +"((serializable?79_77) serializable?_61)" +"((ns80_78) ns_60))" "(compiled-tops->compiled-top8.1" -" serializable?79_0" -" ns80_0" -" to-source?78_0" -" cs77_0))))))))))))))" +" serializable?79_77" +" ns80_78" +" to-source?78_76" +" cs77_75))))))))))))))" "(case-lambda" -"((s_11)(begin 'compile(compile16_0 s_11 unsafe-undefined #t unsafe-undefined #f)))" -"((s_450 ns_94 serializable?_5 expand_1 to-source?14_1)" -"(compile16_0 s_450 ns_94 serializable?_5 expand_1 to-source?14_1))" -"((s_14 ns_95 serializable?_6 expand13_1)(compile16_0 s_14 ns_95 serializable?_6 expand13_1 #f))" -"((s_15 ns_96 serializable?12_1)(compile16_0 s_15 ns_96 serializable?12_1 unsafe-undefined #f))" -"((s_83 ns11_2)(compile16_0 s_83 ns11_2 #t unsafe-undefined #f)))))" +"((s_0)(begin 'compile(compile16_53 s_0 unsafe-undefined #t unsafe-undefined #f)))" +"((s_0 ns_0 serializable?_0 expand_0 to-source?14_0)" +"(compile16_53 s_0 ns_0 serializable?_0 expand_0 to-source?14_0))" +"((s_0 ns_0 serializable?_0 expand13_0)(compile16_53 s_0 ns_0 serializable?_0 expand13_0 #f))" +"((s_0 ns_0 serializable?12_0)(compile16_53 s_0 ns_0 serializable?12_0 unsafe-undefined #f))" +"((s_0 ns11_0)(compile16_53 s_0 ns11_0 #t unsafe-undefined #f)))))" "(define-values" "(compile-to-linklets)" -"(let-values(((compile-to-linklets20_0)" -"(lambda(s19_0 ns18_1)" +"(let-values(((compile-to-linklets20_94)" +"(lambda(s19_0 ns18_0)" "(begin" " 'compile-to-linklets20" -"(let-values(((s_20) s19_0))" -"(let-values(((ns_63)(if(eq? ns18_1 unsafe-undefined)(1/current-namespace) ns18_1)))" -"(let-values()(1/compile s_20 ns_63 #t expand$1 #t))))))))" +"(let-values(((s_97) s19_0))" +"(let-values(((ns_98)(if(eq? ns18_0 unsafe-undefined)(1/current-namespace) ns18_0)))" +"(let-values()(1/compile s_97 ns_98 #t expand$1 #t))))))))" "(case-lambda" -"((s_451)(begin(compile-to-linklets20_0 s_451 unsafe-undefined)))" -"((s_22 ns18_2)(compile-to-linklets20_0 s_22 ns18_2)))))" +"((s_0)(begin(compile-to-linklets20_94 s_0 unsafe-undefined)))" +"((s_0 ns18_0)(compile-to-linklets20_94 s_0 ns18_0)))))" "(define-values" "(struct:lifted-parsed-begin" " lifted-parsed-begin22.1" " lifted-parsed-begin?" " lifted-parsed-begin-seq" " lifted-parsed-begin-last)" -"(let-values(((struct:_73 make-_73 ?_73 -ref_73 -set!_73)" +"(let-values(((struct:_102 make-_103 ?_104 -ref_105 -set!_106)" "(let-values()" "(let-values()" "(make-struct-type" @@ -44539,116 +44745,124 @@ static const char *startup_source = " #f" " 'lifted-parsed-begin)))))" "(values" -" struct:_73" -" make-_73" -" ?_73" -"(make-struct-field-accessor -ref_73 0 'seq)" -"(make-struct-field-accessor -ref_73 1 'last))))" +" struct:_102" +" make-_103" +" ?_104" +"(make-struct-field-accessor -ref_105 0 'seq)" +"(make-struct-field-accessor -ref_105 1 'last))))" "(define-values" "(compile-single$1)" -"(lambda(s_452 ns_97 expand_2 serializable?_7 to-source?_5)" +"(lambda(s_0 ns_0 expand_0 serializable?_0 to-source?_0)" "(begin" " 'compile-single" -"(let-values(((exp-s_4)(expand_2 s_452 ns_97 #f #t serializable?_7)))" -"((letrec-values(((loop_98)" -"(lambda(exp-s_5)" +"(let-values(((exp-s_132)(expand_0 s_0 ns_0 #f #t serializable?_0)))" +"((letrec-values(((loop_133)" +"(lambda(exp-s_0)" "(begin" " 'loop" -"(if(parsed-module? exp-s_5)" +"(if(parsed-module? exp-s_0)" "(let-values()" -"(let-values(((exp-s82_0) exp-s_5)" -"((temp83_1)" -"(let-values(((ns86_0) ns_97))" +"(let-values(((exp-s82_136) exp-s_0)" +"((temp83_137)" +"(let-values(((ns86_141) ns_0))" "(make-compile-context14.1" " #f" " unsafe-undefined" " #f" -" ns86_0" +" ns86_141" " unsafe-undefined" " unsafe-undefined)))" -"((serializable?84_0) serializable?_7)" -"((to-source?85_0) to-source?_5))" +"((serializable?84_138) serializable?_0)" +"((to-source?85_139) to-source?_0))" "(compile-module13.1" " #f" " unsafe-undefined" " #t" -" serializable?84_0" -" to-source?85_0" -" exp-s82_0" -" temp83_1)))" -"(if(lifted-parsed-begin? exp-s_5)" +" serializable?84_138" +" to-source?85_139" +" exp-s82_136" +" temp83_137)))" +"(if(lifted-parsed-begin? exp-s_0)" "(let-values()" -"(let-values(((temp87_0)" +"(let-values(((temp87_143)" "(reverse$1" -"(let-values(((lst_168)" +"(let-values(((lst_145)" "(append" -"(lifted-parsed-begin-seq exp-s_5)" -"(list(lifted-parsed-begin-last exp-s_5)))))" +"(lifted-parsed-begin-seq exp-s_0)" +"(list(lifted-parsed-begin-last exp-s_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_168)))" -"((letrec-values(((for-loop_5)" -"(lambda(fold-var_273 lst_300)" +"(let-values()(check-list lst_145)))" +"((letrec-values(((for-loop_146)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_300)" -"(let-values(((e_73)" -"(unsafe-car lst_300))" -"((rest_88)" -"(unsafe-cdr lst_300)))" -"(let-values(((fold-var_166)" -"(let-values(((fold-var_167)" -" fold-var_273))" -"(let-values(((fold-var_168)" +"(if(pair? lst_0)" +"(let-values(((e_149)(unsafe-car lst_0))" +"((rest_150)" +"(unsafe-cdr lst_0)))" +"(let-values(((fold-var_151)" +"(let-values(((fold-var_152)" +" fold-var_0))" +"(let-values(((fold-var_153)" "(let-values()" "(cons" "(let-values()" -"(loop_98" -" e_73))" -" fold-var_167))))" +"(loop_133" +" e_149))" +" fold-var_152))))" "(values" -" fold-var_168)))))" +" fold-var_153)))))" "(if(not #f)" -"(for-loop_5 fold-var_166 rest_88)" -" fold-var_166)))" -" fold-var_273)))))" -" for-loop_5)" +"(for-loop_146" +" fold-var_151" +" rest_150)" +" fold-var_151)))" +" fold-var_0)))))" +" for-loop_146)" " null" -" lst_168)))))" -"((to-source?88_0) to-source?_5))" -"(compiled-tops->compiled-top8.1 #f #f to-source?88_0 temp87_0)))" +" lst_145)))))" +"((to-source?88_144) to-source?_0))" +"(compiled-tops->compiled-top8.1 #f #f to-source?88_144 temp87_143)))" "(let-values()" -"(let-values(((exp-s89_0) exp-s_5)" -"((temp90_1)" -"(let-values(((ns93_1) ns_97))" +"(let-values(((exp-s89_155) exp-s_0)" +"((temp90_156)" +"(let-values(((ns93_160) ns_0))" "(make-compile-context14.1" " #f" " unsafe-undefined" " #f" -" ns93_1" +" ns93_160" " unsafe-undefined" " unsafe-undefined)))" -"((serializable?91_0) serializable?_7)" -"((to-source?92_0) to-source?_5))" -"(compile-top9.1 serializable?91_0 #f to-source?92_0 exp-s89_0 temp90_1)))))))))" -" loop_98)" -" exp-s_4)))))" +"((serializable?91_157) serializable?_0)" +"((to-source?92_158) to-source?_0))" +"(compile-top9.1" +" serializable?91_157" +" #f" +" to-source?92_158" +" exp-s89_155" +" temp90_156)))))))))" +" loop_133)" +" exp-s_132)))))" "(define-values" "(expand$1)" -"(let-values(((expand28_0)" -"(lambda(s27_1 ns23_0 observable?24_0 to-parsed?25_0 serializable?26_0)" +"(let-values(((expand28_161)" +"(lambda(s27_0 ns23_0 observable?24_0 to-parsed?25_0 serializable?26_0)" "(begin" " 'expand28" -"(let-values(((s_453) s27_1))" -"(let-values(((ns_98)(if(eq? ns23_0 unsafe-undefined)(1/current-namespace) ns23_0)))" -"(let-values(((observable?_0) observable?24_0))" -"(let-values(((to-parsed?_2) to-parsed?25_0))" -"(let-values(((serializable?_8) serializable?26_0))" +"(let-values(((s_167) s27_0))" +"(let-values(((ns_168)(if(eq? ns23_0 unsafe-undefined)(1/current-namespace) ns23_0)))" +"(let-values(((observable?_169) observable?24_0))" +"(let-values(((to-parsed?_170) to-parsed?25_0))" +"(let-values(((serializable?_171) serializable?26_0))" "(let-values()" -"(let-values(((observer_2)(if observable?_0(current-expand-observe) #f)))" +"(let-values(((observer_172)(if observable?_169(current-expand-observe) #f)))" "(begin" -"(if observer_2(let-values()(call-expand-observe observer_2 'start-top))(void))" +"(if observer_172" +"(let-values()(call-expand-observe observer_172 'start-top))" +"(void))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -44656,218 +44870,222 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s94_1) s_453)" -"((ns95_0) ns_98)" -"((temp96_2)" -"(lambda(s_314 ns_99 as-tail?_5)" +"(let-values(((s94_174) s_167)" +"((ns95_175) ns_168)" +"((temp96_176)" +"(lambda(s_0 ns_0 as-tail?_0)" "(expand-single" -" s_314" -" ns_99" -" observer_2" -" to-parsed?_2" -" serializable?_8)))" -"((cons97_0) cons)" -"((re-pair98_0) re-pair)" -"((observer99_0) observer_2))" +" s_0" +" ns_0" +" observer_172" +" to-parsed?_170" +" serializable?_171)))" +"((cons97_177) cons)" +"((re-pair98_178) re-pair)" +"((observer99_179) observer_172))" "(per-top-level54.1" -" cons97_0" +" cons97_177" " #f" -" observer99_0" +" observer99_179" " #t" " #f" -" temp96_2" -" re-pair98_0" -" s94_1" -" ns95_0))))))))))))))))" +" temp96_176" +" re-pair98_178" +" s94_174" +" ns95_175))))))))))))))))" "(case-lambda" -"((s_454)(begin 'expand(expand28_0 s_454 unsafe-undefined #f #f #f)))" -"((s_455 ns_9 observable?_1 to-parsed?_3 serializable?26_1)" -"(expand28_0 s_455 ns_9 observable?_1 to-parsed?_3 serializable?26_1))" -"((s_456 ns_100 observable?_2 to-parsed?25_1)(expand28_0 s_456 ns_100 observable?_2 to-parsed?25_1 #f))" -"((s_305 ns_101 observable?24_1)(expand28_0 s_305 ns_101 observable?24_1 #f #f))" -"((s_457 ns23_1)(expand28_0 s_457 ns23_1 #f #f #f)))))" +"((s_0)(begin 'expand(expand28_161 s_0 unsafe-undefined #f #f #f)))" +"((s_0 ns_0 observable?_0 to-parsed?_0 serializable?26_0)" +"(expand28_161 s_0 ns_0 observable?_0 to-parsed?_0 serializable?26_0))" +"((s_0 ns_0 observable?_0 to-parsed?25_0)(expand28_161 s_0 ns_0 observable?_0 to-parsed?25_0 #f))" +"((s_0 ns_0 observable?24_0)(expand28_161 s_0 ns_0 observable?24_0 #f #f))" +"((s_0 ns23_0)(expand28_161 s_0 ns23_0 #f #f #f)))))" "(define-values" "(expand-single)" -"(lambda(s_58 ns_102 observer_3 to-parsed?_4 serializable?_9)" +"(lambda(s_0 ns_0 observer_0 to-parsed?_0 serializable?_0)" "(begin" -"(let-values(((rebuild-s_2)(keep-properties-only s_58)))" -"(let-values(((ctx_68)" -"(let-values(((ns100_0) ns_102)" -"((to-parsed?101_0) to-parsed?_4)" -"((serializable?102_0) serializable?_9)" -"((observer103_0) observer_3))" -"(make-expand-context10.1 serializable?102_0 observer103_0 to-parsed?101_0 ns100_0))))" -"(let-values(((require-lifts_3 lifts_10 exp-s_0)(expand-capturing-lifts s_58 ctx_68)))" -"(if(if(null? require-lifts_3)(null? lifts_10) #f)" -"(let-values() exp-s_0)" -"(if to-parsed?_4" +"(let-values(((rebuild-s_203)(keep-properties-only s_0)))" +"(let-values(((ctx_204)" +"(let-values(((ns100_209) ns_0)" +"((to-parsed?101_210) to-parsed?_0)" +"((serializable?102_211) serializable?_0)" +"((observer103_212) observer_0))" +"(make-expand-context10.1 serializable?102_211 observer103_212 to-parsed?101_210 ns100_209))))" +"(let-values(((require-lifts_205 lifts_206 exp-s_207)(expand-capturing-lifts s_0 ctx_204)))" +"(if(if(null? require-lifts_205)(null? lifts_206) #f)" +"(let-values() exp-s_207)" +"(if to-parsed?_0" "(let-values()" -"(let-values(((require-lifts104_0) require-lifts_3)" -"((lifts105_0) lifts_10)" -"((exp-s106_0) exp-s_0)" -"((rebuild-s107_0) rebuild-s_2)" -"((temp108_1)" -"(lambda(form_0)" -"(expand-single form_0 ns_102 observer_3 to-parsed?_4 serializable?_9))))" +"(let-values(((require-lifts104_214) require-lifts_205)" +"((lifts105_215) lifts_206)" +"((exp-s106_216) exp-s_207)" +"((rebuild-s107_217) rebuild-s_203)" +"((temp108_218)" +"(lambda(form_0)(expand-single form_0 ns_0 observer_0 to-parsed?_0 serializable?_0))))" "(wrap-lifts-as-lifted-parsed-begin63.1" -" temp108_1" -" require-lifts104_0" -" lifts105_0" -" exp-s106_0" -" rebuild-s107_0)))" +" temp108_218" +" require-lifts104_214" +" lifts105_215" +" exp-s106_216" +" rebuild-s107_217)))" "(let-values()" "(let-values((()" "(begin" -"(log-top-lift-begin-before ctx_68 require-lifts_3 lifts_10 exp-s_0 ns_102)" +"(log-top-lift-begin-before ctx_204 require-lifts_205 lifts_206 exp-s_207 ns_0)" "(values))))" -"(let-values(((new-s_2)" -"(let-values(((temp109_0)(append require-lifts_3 lifts_10))" -"((temp110_1)" -"(lambda(form_1)" +"(let-values(((new-s_220)" +"(let-values(((temp109_222)(append require-lifts_205 lifts_206))" +"((temp110_223)" +"(lambda(form_0)" "(begin" -"(let-values(((obs_45)(expand-context-observer ctx_68)))" -"(if obs_45" +"(let-values(((obs_228)(expand-context-observer ctx_204)))" +"(if obs_228" "(let-values()" -"(let-values()(call-expand-observe obs_45 'next)))" +"(let-values()(call-expand-observe obs_228 'next)))" "(void)))" "(expand-single" -" form_1" -" ns_102" -" observer_3" -" to-parsed?_4" -" serializable?_9))))" -"((temp111_1)" -"(lambda(form_2)" -"(if to-parsed?_4" -"(let-values() form_2)" +" form_0" +" ns_0" +" observer_0" +" to-parsed?_0" +" serializable?_0))))" +"((temp111_224)" +"(lambda(form_0)" +"(if to-parsed?_0" +"(let-values() form_0)" "(let-values()" "(begin" -"(let-values(((obs_46)(expand-context-observer ctx_68)))" -"(if obs_46" +"(let-values(((obs_230)(expand-context-observer ctx_204)))" +"(if obs_230" "(let-values()" -"(let-values()(call-expand-observe obs_46 'next)))" +"(let-values()(call-expand-observe obs_230 'next)))" "(void)))" "(expand-single" -" form_2" -" ns_102" -" observer_3" -" to-parsed?_4" -" serializable?_9))))))" -"((exp-s112_0) exp-s_0)" -"((temp113_2)(namespace-phase ns_102)))" -"(wrap-lifts-as-begin16.1 temp111_1 temp110_1 temp109_0 exp-s112_0 temp113_2))))" -"(begin(log-top-begin-after ctx_68 new-s_2) new-s_2))))))))))))" +" form_0" +" ns_0" +" observer_0" +" to-parsed?_0" +" serializable?_0))))))" +"((exp-s112_225) exp-s_207)" +"((temp113_226)(namespace-phase ns_0)))" +"(wrap-lifts-as-begin16.1" +" temp111_224" +" temp110_223" +" temp109_222" +" exp-s112_225" +" temp113_226))))" +"(begin(log-top-begin-after ctx_204 new-s_220) new-s_220))))))))))))" "(define-values" "(expand-once$1)" -"(let-values(((expand-once32_0)" +"(let-values(((expand-once32_231)" "(lambda(s31_0 ns30_0)" "(begin" " 'expand-once32" -"(let-values(((s_66) s31_0))" -"(let-values(((ns_103)(if(eq? ns30_0 unsafe-undefined)(1/current-namespace) ns30_0)))" +"(let-values(((s_234) s31_0))" +"(let-values(((ns_235)(if(eq? ns30_0 unsafe-undefined)(1/current-namespace) ns30_0)))" "(let-values()" -"(let-values(((s114_0) s_66)" -"((ns115_0) ns_103)" -"((temp116_0)" -"(lambda(s_425 ns_104 as-tail?_6)(expand-single-once s_425 ns_104)))" -"((cons117_0) cons)" -"((re-pair118_0) re-pair)" -"((temp119_1) #t)" -"((temp120_1) #f))" +"(let-values(((s114_237) s_234)" +"((ns115_238) ns_235)" +"((temp116_239)(lambda(s_0 ns_0 as-tail?_0)(expand-single-once s_0 ns_0)))" +"((cons117_240) cons)" +"((re-pair118_241) re-pair)" +"((temp119_242) #t)" +"((temp120_243) #f))" "(per-top-level54.1" -" cons117_0" -" temp119_1" -" temp120_1" +" cons117_240" +" temp119_242" +" temp120_243" " #t" " #f" -" temp116_0" -" re-pair118_0" -" s114_0" -" ns115_0)))))))))" +" temp116_239" +" re-pair118_241" +" s114_237" +" ns115_238)))))))))" "(case-lambda" -"((s_38)(begin 'expand-once(expand-once32_0 s_38 unsafe-undefined)))" -"((s_319 ns30_1)(expand-once32_0 s_319 ns30_1)))))" +"((s_0)(begin 'expand-once(expand-once32_231 s_0 unsafe-undefined)))" +"((s_0 ns30_0)(expand-once32_231 s_0 ns30_0)))))" "(define-values" "(expand-single-once)" -"(lambda(s_458 ns_83)" +"(lambda(s_0 ns_0)" "(begin" -"(let-values(((require-lifts_4 lifts_11 exp-s_6)" +"(let-values(((require-lifts_252 lifts_253 exp-s_254)" "(expand-capturing-lifts" -" s_458" -"(let-values(((v_119)(let-values(((ns121_0) ns_83))(make-expand-context10.1 #f #f #f ns121_0))))" -"(let-values(((the-struct_69) v_119))" -"(if(expand-context/outer? the-struct_69)" -"(let-values(((inner122_0)" -"(let-values(((the-struct_70)(root-expand-context/outer-inner v_119)))" -"(if(expand-context/inner? the-struct_70)" -"(let-values(((just-once?123_0) #t))" +" s_0" +"(let-values(((v_255)" +"(let-values(((ns121_256) ns_0))(make-expand-context10.1 #f #f #f ns121_256))))" +"(let-values(((the-struct_257) v_255))" +"(if(expand-context/outer? the-struct_257)" +"(let-values(((inner122_258)" +"(let-values(((the-struct_259)(root-expand-context/outer-inner v_255)))" +"(if(expand-context/inner? the-struct_259)" +"(let-values(((just-once?123_260) #t))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_70)" -"(root-expand-context/inner-module-scopes the-struct_70)" -"(root-expand-context/inner-top-level-bind-scope the-struct_70)" -"(root-expand-context/inner-all-scopes-stx the-struct_70)" -"(root-expand-context/inner-defined-syms the-struct_70)" -"(root-expand-context/inner-counter the-struct_70)" -"(root-expand-context/inner-lift-key the-struct_70)" -"(expand-context/inner-to-parsed? the-struct_70)" -"(expand-context/inner-phase the-struct_70)" -"(expand-context/inner-namespace the-struct_70)" -" just-once?123_0" -"(expand-context/inner-module-begin-k the-struct_70)" -"(expand-context/inner-allow-unbound? the-struct_70)" -"(expand-context/inner-in-local-expand? the-struct_70)" -"(expand-context/inner-keep-#%expression? the-struct_70)" -"(expand-context/inner-stops the-struct_70)" -"(expand-context/inner-declared-submodule-names the-struct_70)" -"(expand-context/inner-lifts the-struct_70)" -"(expand-context/inner-lift-envs the-struct_70)" -"(expand-context/inner-module-lifts the-struct_70)" -"(expand-context/inner-require-lifts the-struct_70)" -"(expand-context/inner-to-module-lifts the-struct_70)" -"(expand-context/inner-requires+provides the-struct_70)" -"(expand-context/inner-observer the-struct_70)" -"(expand-context/inner-for-serializable? the-struct_70)" -"(expand-context/inner-should-not-encounter-macros? the-struct_70)))" +"(root-expand-context/inner-self-mpi the-struct_259)" +"(root-expand-context/inner-module-scopes the-struct_259)" +"(root-expand-context/inner-top-level-bind-scope the-struct_259)" +"(root-expand-context/inner-all-scopes-stx the-struct_259)" +"(root-expand-context/inner-defined-syms the-struct_259)" +"(root-expand-context/inner-counter the-struct_259)" +"(root-expand-context/inner-lift-key the-struct_259)" +"(expand-context/inner-to-parsed? the-struct_259)" +"(expand-context/inner-phase the-struct_259)" +"(expand-context/inner-namespace the-struct_259)" +" just-once?123_260" +"(expand-context/inner-module-begin-k the-struct_259)" +"(expand-context/inner-allow-unbound? the-struct_259)" +"(expand-context/inner-in-local-expand? the-struct_259)" +"(expand-context/inner-keep-#%expression? the-struct_259)" +"(expand-context/inner-stops the-struct_259)" +"(expand-context/inner-declared-submodule-names the-struct_259)" +"(expand-context/inner-lifts the-struct_259)" +"(expand-context/inner-lift-envs the-struct_259)" +"(expand-context/inner-module-lifts the-struct_259)" +"(expand-context/inner-require-lifts the-struct_259)" +"(expand-context/inner-to-module-lifts the-struct_259)" +"(expand-context/inner-requires+provides the-struct_259)" +"(expand-context/inner-observer the-struct_259)" +"(expand-context/inner-for-serializable? the-struct_259)" +"(expand-context/inner-should-not-encounter-macros? the-struct_259)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_70)))))" +" the-struct_259)))))" "(expand-context/outer1.1" -" inner122_0" -"(root-expand-context/outer-post-expansion the-struct_69)" -"(root-expand-context/outer-use-site-scopes the-struct_69)" -"(root-expand-context/outer-frame-id the-struct_69)" -"(expand-context/outer-context the-struct_69)" -"(expand-context/outer-env the-struct_69)" -"(expand-context/outer-scopes the-struct_69)" -"(expand-context/outer-def-ctx-scopes the-struct_69)" -"(expand-context/outer-binding-layer the-struct_69)" -"(expand-context/outer-reference-records the-struct_69)" -"(expand-context/outer-only-immediate? the-struct_69)" -"(expand-context/outer-need-eventually-defined the-struct_69)" -"(expand-context/outer-current-introduction-scopes the-struct_69)" -"(expand-context/outer-current-use-scopes the-struct_69)" -"(expand-context/outer-name the-struct_69)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_69)))))))" -"(if(if(null? require-lifts_4)(null? lifts_11) #f)" -"(let-values() exp-s_6)" +" inner122_258" +"(root-expand-context/outer-post-expansion the-struct_257)" +"(root-expand-context/outer-use-site-scopes the-struct_257)" +"(root-expand-context/outer-frame-id the-struct_257)" +"(expand-context/outer-context the-struct_257)" +"(expand-context/outer-env the-struct_257)" +"(expand-context/outer-scopes the-struct_257)" +"(expand-context/outer-def-ctx-scopes the-struct_257)" +"(expand-context/outer-binding-layer the-struct_257)" +"(expand-context/outer-reference-records the-struct_257)" +"(expand-context/outer-only-immediate? the-struct_257)" +"(expand-context/outer-need-eventually-defined the-struct_257)" +"(expand-context/outer-current-introduction-scopes the-struct_257)" +"(expand-context/outer-current-use-scopes the-struct_257)" +"(expand-context/outer-name the-struct_257)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_257)))))))" +"(if(if(null? require-lifts_252)(null? lifts_253) #f)" +"(let-values() exp-s_254)" "(let-values()" -"(let-values(((temp124_1)(append require-lifts_4 lifts_11))" -"((exp-s125_0) exp-s_6)" -"((temp126_1)(namespace-phase ns_83)))" -"(wrap-lifts-as-begin16.1 unsafe-undefined unsafe-undefined temp124_1 exp-s125_0 temp126_1))))))))" +"(let-values(((temp124_261)(append require-lifts_252 lifts_253))" +"((exp-s125_262) exp-s_254)" +"((temp126_263)(namespace-phase ns_0)))" +"(wrap-lifts-as-begin16.1 unsafe-undefined unsafe-undefined temp124_261 exp-s125_262 temp126_263))))))))" "(define-values" "(expand-to-top-form$1)" -"(let-values(((expand-to-top-form36_0)" +"(let-values(((expand-to-top-form36_264)" "(lambda(s35_0 ns34_0)" "(begin" " 'expand-to-top-form36" -"(let-values(((s_459) s35_0))" -"(let-values(((ns_105)(if(eq? ns34_0 unsafe-undefined)(1/current-namespace) ns34_0)))" +"(let-values(((s_267) s35_0))" +"(let-values(((ns_268)(if(eq? ns34_0 unsafe-undefined)(1/current-namespace) ns34_0)))" "(let-values()" -"(let-values(((observer_4)(current-expand-observe)))" +"(let-values(((observer_269)(current-expand-observe)))" "(begin" -"(if observer_4(let-values()(call-expand-observe observer_4 'start-top))(void))" +"(if observer_269(let-values()(call-expand-observe observer_269 'start-top))(void))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -44875,24 +45093,24 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s127_0) s_459)" -"((ns128_0) ns_105)" -"((temp129_1) #f)" -"((temp130_0) #f)" -"((observer131_0) observer_4))" +"(let-values(((s127_271) s_267)" +"((ns128_272) ns_268)" +"((temp129_273) #f)" +"((temp130_274) #f)" +"((observer131_275) observer_269))" "(per-top-level54.1" " #f" " #f" -" observer131_0" -" temp130_0" +" observer131_275" +" temp130_274" " #f" -" temp129_1" +" temp129_273" " #f" -" s127_0" -" ns128_0)))))))))))))" +" s127_271" +" ns128_272)))))))))))))" "(case-lambda" -"((s_460)(begin 'expand-to-top-form(expand-to-top-form36_0 s_460 unsafe-undefined)))" -"((s_461 ns34_1)(expand-to-top-form36_0 s_461 ns34_1)))))" +"((s_0)(begin 'expand-to-top-form(expand-to-top-form36_264 s_0 unsafe-undefined)))" +"((s_0 ns34_0)(expand-to-top-form36_264 s_0 ns34_0)))))" "(define-values" "(per-top-level54.1)" "(lambda(combine39_0" @@ -44903,1163 +45121,1169 @@ static const char *startup_source = " single38_0" " wrap40_0" " given-s52_0" -" ns53_2)" +" ns53_0)" "(begin" " 'per-top-level54" -"(let-values(((given-s_0) given-s52_0))" -"(let-values(((ns_106) ns53_2))" -"(let-values(((single_0) single38_0))" -"(let-values(((combine_0) combine39_0))" -"(let-values(((wrap_2) wrap40_0))" -"(let-values(((just-once?_1) just-once?41_0))" -"(let-values(((quick-immediate?_0) quick-immediate?42_0))" -"(let-values(((serializable?_10) serializable?43_0))" -"(let-values(((observer_5) observer44_0))" +"(let-values(((given-s_294) given-s52_0))" +"(let-values(((ns_295) ns53_0))" +"(let-values(((single_296) single38_0))" +"(let-values(((combine_297) combine39_0))" +"(let-values(((wrap_298) wrap40_0))" +"(let-values(((just-once?_299) just-once?41_0))" +"(let-values(((quick-immediate?_300) quick-immediate?42_0))" +"(let-values(((serializable?_301) serializable?43_0))" +"(let-values(((observer_302) observer44_0))" "(let-values()" -"(let-values(((s_216)(maybe-intro given-s_0 ns_106)))" -"(let-values(((ctx_69)" -"(let-values(((ns132_0) ns_106)((observer133_0) observer_5))" -"(make-expand-context10.1 #f observer133_0 #f ns132_0))))" -"(let-values(((phase_132)(namespace-phase ns_106)))" -"((letrec-values(((loop_99)" -"(lambda(s_462 phase_133 ns_107 as-tail?_7)" +"(let-values(((s_303)(maybe-intro given-s_294 ns_295)))" +"(let-values(((ctx_304)" +"(let-values(((ns132_307) ns_295)((observer133_308) observer_302))" +"(make-expand-context10.1 #f observer133_308 #f ns132_307))))" +"(let-values(((phase_305)(namespace-phase ns_295)))" +"((letrec-values(((loop_309)" +"(lambda(s_0 phase_0 ns_0 as-tail?_0)" "(begin" " 'loop" -"(let-values(((tl-ctx_0)" -"(let-values(((v_189) ctx_69))" -"(let-values(((the-struct_71) v_189))" -"(if(expand-context/outer? the-struct_71)" -"(let-values(((inner134_0)" -"(let-values(((the-struct_72)" +"(let-values(((tl-ctx_314)" +"(let-values(((v_320) ctx_304))" +"(let-values(((the-struct_321) v_320))" +"(if(expand-context/outer? the-struct_321)" +"(let-values(((inner134_322)" +"(let-values(((the-struct_323)" "(root-expand-context/outer-inner" -" v_189)))" +" v_320)))" "(if(expand-context/inner?" -" the-struct_72)" -"(let-values(((phase135_1)" -" phase_133)" -"((namespace136_0)" -" ns_107)" -"((just-once?137_0)" -" just-once?_1)" -"((for-serializable?138_0)" -" serializable?_10))" +" the-struct_323)" +"(let-values(((phase135_324)" +" phase_0)" +"((namespace136_325)" +" ns_0)" +"((just-once?137_326)" +" just-once?_299)" +"((for-serializable?138_327)" +" serializable?_301))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_72)" +" the-struct_323)" "(root-expand-context/inner-module-scopes" -" the-struct_72)" +" the-struct_323)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_72)" +" the-struct_323)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_72)" +" the-struct_323)" "(root-expand-context/inner-defined-syms" -" the-struct_72)" +" the-struct_323)" "(root-expand-context/inner-counter" -" the-struct_72)" +" the-struct_323)" "(root-expand-context/inner-lift-key" -" the-struct_72)" +" the-struct_323)" "(expand-context/inner-to-parsed?" -" the-struct_72)" -" phase135_1" -" namespace136_0" -" just-once?137_0" +" the-struct_323)" +" phase135_324" +" namespace136_325" +" just-once?137_326" "(expand-context/inner-module-begin-k" -" the-struct_72)" +" the-struct_323)" "(expand-context/inner-allow-unbound?" -" the-struct_72)" +" the-struct_323)" "(expand-context/inner-in-local-expand?" -" the-struct_72)" +" the-struct_323)" "(expand-context/inner-keep-#%expression?" -" the-struct_72)" +" the-struct_323)" "(expand-context/inner-stops" -" the-struct_72)" +" the-struct_323)" "(expand-context/inner-declared-submodule-names" -" the-struct_72)" +" the-struct_323)" "(expand-context/inner-lifts" -" the-struct_72)" +" the-struct_323)" "(expand-context/inner-lift-envs" -" the-struct_72)" +" the-struct_323)" "(expand-context/inner-module-lifts" -" the-struct_72)" +" the-struct_323)" "(expand-context/inner-require-lifts" -" the-struct_72)" +" the-struct_323)" "(expand-context/inner-to-module-lifts" -" the-struct_72)" +" the-struct_323)" "(expand-context/inner-requires+provides" -" the-struct_72)" +" the-struct_323)" "(expand-context/inner-observer" -" the-struct_72)" -" for-serializable?138_0" +" the-struct_323)" +" for-serializable?138_327" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_72)))" +" the-struct_323)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_72)))))" +" the-struct_323)))))" "(expand-context/outer1.1" -" inner134_0" +" inner134_322" "(root-expand-context/outer-post-expansion" -" the-struct_71)" +" the-struct_321)" "(root-expand-context/outer-use-site-scopes" -" the-struct_71)" +" the-struct_321)" "(root-expand-context/outer-frame-id" -" the-struct_71)" +" the-struct_321)" "(expand-context/outer-context" -" the-struct_71)" -"(expand-context/outer-env the-struct_71)" -"(expand-context/outer-scopes the-struct_71)" +" the-struct_321)" +"(expand-context/outer-env the-struct_321)" +"(expand-context/outer-scopes" +" the-struct_321)" "(expand-context/outer-def-ctx-scopes" -" the-struct_71)" +" the-struct_321)" "(expand-context/outer-binding-layer" -" the-struct_71)" +" the-struct_321)" "(expand-context/outer-reference-records" -" the-struct_71)" +" the-struct_321)" "(expand-context/outer-only-immediate?" -" the-struct_71)" +" the-struct_321)" "(expand-context/outer-need-eventually-defined" -" the-struct_71)" +" the-struct_321)" "(expand-context/outer-current-introduction-scopes" -" the-struct_71)" +" the-struct_321)" "(expand-context/outer-current-use-scopes" -" the-struct_71)" -"(expand-context/outer-name the-struct_71)))" +" the-struct_321)" +"(expand-context/outer-name" +" the-struct_321)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_71))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_462 #f)))" +" the-struct_321))))))" +"(let-values(((wb-s_315)(if just-once?_299 s_0 #f)))" "(let-values((()" "(begin" -"(let-values(((obs_47)" +"(let-values(((obs_328)" "(expand-context-observer" -" tl-ctx_0)))" -"(if obs_47" +" tl-ctx_314)))" +"(if obs_328" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_47" +" obs_328" " 'visit" -" s_462)))" +" s_0)))" "(void)))" "(values))))" -"(let-values(((require-lifts_5 lifts_12 exp-s_7)" +"(let-values(((require-lifts_316 lifts_317 exp-s_318)" "(expand-capturing-lifts" -" s_462" -"(let-values(((v_190) tl-ctx_0))" -"(let-values(((the-struct_73) v_190))" -"(if(expand-context/outer? the-struct_73)" -"(let-values(((only-immediate?139_0)" +" s_0" +"(let-values(((v_329) tl-ctx_314))" +"(let-values(((the-struct_330) v_329))" +"(if(expand-context/outer?" +" the-struct_330)" +"(let-values(((only-immediate?139_331)" " #t)" -"((inner140_0)" -"(let-values(((the-struct_74)" +"((inner140_332)" +"(let-values(((the-struct_333)" "(root-expand-context/outer-inner" -" v_190)))" +" v_329)))" "(if(expand-context/inner?" -" the-struct_74)" -"(let-values(((phase141_0)" -" phase_133)" -"((namespace142_0)" -" ns_107))" +" the-struct_333)" +"(let-values(((phase141_334)" +" phase_0)" +"((namespace142_335)" +" ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_74)" +" the-struct_333)" "(root-expand-context/inner-module-scopes" -" the-struct_74)" +" the-struct_333)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_74)" +" the-struct_333)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_74)" +" the-struct_333)" "(root-expand-context/inner-defined-syms" -" the-struct_74)" +" the-struct_333)" "(root-expand-context/inner-counter" -" the-struct_74)" +" the-struct_333)" "(root-expand-context/inner-lift-key" -" the-struct_74)" +" the-struct_333)" "(expand-context/inner-to-parsed?" -" the-struct_74)" -" phase141_0" -" namespace142_0" +" the-struct_333)" +" phase141_334" +" namespace142_335" "(expand-context/inner-just-once?" -" the-struct_74)" +" the-struct_333)" "(expand-context/inner-module-begin-k" -" the-struct_74)" +" the-struct_333)" "(expand-context/inner-allow-unbound?" -" the-struct_74)" +" the-struct_333)" "(expand-context/inner-in-local-expand?" -" the-struct_74)" +" the-struct_333)" "(expand-context/inner-keep-#%expression?" -" the-struct_74)" +" the-struct_333)" "(expand-context/inner-stops" -" the-struct_74)" +" the-struct_333)" "(expand-context/inner-declared-submodule-names" -" the-struct_74)" +" the-struct_333)" "(expand-context/inner-lifts" -" the-struct_74)" +" the-struct_333)" "(expand-context/inner-lift-envs" -" the-struct_74)" +" the-struct_333)" "(expand-context/inner-module-lifts" -" the-struct_74)" +" the-struct_333)" "(expand-context/inner-require-lifts" -" the-struct_74)" +" the-struct_333)" "(expand-context/inner-to-module-lifts" -" the-struct_74)" +" the-struct_333)" "(expand-context/inner-requires+provides" -" the-struct_74)" +" the-struct_333)" "(expand-context/inner-observer" -" the-struct_74)" +" the-struct_333)" "(expand-context/inner-for-serializable?" -" the-struct_74)" +" the-struct_333)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_74)))" +" the-struct_333)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_74)))))" +" the-struct_333)))))" "(expand-context/outer1.1" -" inner140_0" +" inner140_332" "(root-expand-context/outer-post-expansion" -" the-struct_73)" +" the-struct_330)" "(root-expand-context/outer-use-site-scopes" -" the-struct_73)" +" the-struct_330)" "(root-expand-context/outer-frame-id" -" the-struct_73)" +" the-struct_330)" "(expand-context/outer-context" -" the-struct_73)" +" the-struct_330)" "(expand-context/outer-env" -" the-struct_73)" +" the-struct_330)" "(expand-context/outer-scopes" -" the-struct_73)" +" the-struct_330)" "(expand-context/outer-def-ctx-scopes" -" the-struct_73)" +" the-struct_330)" "(expand-context/outer-binding-layer" -" the-struct_73)" +" the-struct_330)" "(expand-context/outer-reference-records" -" the-struct_73)" -" only-immediate?139_0" +" the-struct_330)" +" only-immediate?139_331" "(expand-context/outer-need-eventually-defined" -" the-struct_73)" +" the-struct_330)" "(expand-context/outer-current-introduction-scopes" -" the-struct_73)" +" the-struct_330)" "(expand-context/outer-current-use-scopes" -" the-struct_73)" +" the-struct_330)" "(expand-context/outer-name" -" the-struct_73)))" +" the-struct_330)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_73)))))))" -"(let-values(((disarmed-exp-s_0)" -"(syntax-disarm$1 exp-s_7)))" -"(if(let-values(((or-part_299)" -"(pair? require-lifts_5)))" -"(if or-part_299 or-part_299(pair? lifts_12)))" +" the-struct_330)))))))" +"(let-values(((disarmed-exp-s_319)" +"(syntax-disarm$1 exp-s_318)))" +"(if(let-values(((or-part_336)" +"(pair? require-lifts_316)))" +"(if or-part_336 or-part_336(pair? lifts_317)))" "(let-values()" -"(let-values(((new-s_3)" -"(let-values(((temp143_1)" +"(let-values(((new-s_337)" +"(let-values(((temp143_338)" "(append" -" require-lifts_5" -" lifts_12))" -"((exp-s144_0) exp-s_7)" -"((phase145_0) phase_133))" +" require-lifts_316" +" lifts_317))" +"((exp-s144_339)" +" exp-s_318)" +"((phase145_340) phase_0))" "(wrap-lifts-as-begin16.1" " unsafe-undefined" " unsafe-undefined" -" temp143_1" -" exp-s144_0" -" phase145_0))))" +" temp143_338" +" exp-s144_339" +" phase145_340))))" "(begin" -"(let-values(((obs_48)" +"(let-values(((obs_341)" "(expand-context-observer" -" tl-ctx_0)))" -"(if obs_48" +" tl-ctx_314)))" +"(if obs_341" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_48" +" obs_341" " 'lift-loop" -" new-s_3)))" +" new-s_337)))" "(void)))" -"(if just-once?_1" -" new-s_3" -"(loop_99" -" new-s_3" -" phase_133" -" ns_107" -" as-tail?_7)))))" -"(if(not single_0)" +"(if just-once?_299" +" new-s_337" +"(loop_309" +" new-s_337" +" phase_0" +" ns_0" +" as-tail?_0)))))" +"(if(not single_296)" "(let-values()" "(begin" -"(let-values(((obs_49)" +"(let-values(((obs_342)" "(expand-context-observer" -" tl-ctx_0)))" -"(if obs_49" +" tl-ctx_314)))" +"(if obs_342" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_49" +" obs_342" " 'return" -" exp-s_7)))" +" exp-s_318)))" "(void)))" -" exp-s_7))" -"(if(if just-once?_1(not(eq? exp-s_7 wb-s_0)) #f)" -"(let-values() exp-s_7)" +" exp-s_318))" +"(if(if just-once?_299" +"(not(eq? exp-s_318 wb-s_315))" +" #f)" +"(let-values() exp-s_318)" "(let-values()" -"(let-values(((tmp_35)" +"(let-values(((tmp_343)" "(core-form-sym" -" disarmed-exp-s_0" -" phase_133)))" -"(if(equal? tmp_35 'begin)" +" disarmed-exp-s_319" +" phase_0)))" +"(if(equal? tmp_343 'begin)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_50)" +"(let-values(((obs_361)" "(expand-context-observer" -" ctx_69)))" -"(if obs_50" +" ctx_304)))" +"(if obs_361" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_50" +" obs_361" " 'prim-begin)))" "(void)))" "(values))))" -"(let-values(((ok?_29 begin146_0 e147_0)" -"(let-values(((s_463)" -" disarmed-exp-s_0))" -"(let-values(((orig-s_33)" -" s_463))" -"(let-values(((begin146_1" -" e147_1)" -"(let-values(((s_162)" +"(let-values(((ok?_344" +" begin146_345" +" e147_346)" +"(let-values(((s_362)" +" disarmed-exp-s_319))" +"(let-values(((orig-s_363)" +" s_362))" +"(let-values(((begin146_364" +" e147_365)" +"(let-values(((s_366)" "(if(syntax?$1" -" s_463)" +" s_362)" "(syntax-e$1" -" s_463)" -" s_463)))" +" s_362)" +" s_362)))" "(if(pair?" -" s_162)" -"(let-values(((begin148_0)" -"(let-values(((s_115)" +" s_366)" +"(let-values(((begin148_367)" +"(let-values(((s_369)" "(car" -" s_162)))" -" s_115))" -"((e149_0)" -"(let-values(((s_439)" +" s_366)))" +" s_369))" +"((e149_368)" +"(let-values(((s_370)" "(cdr" -" s_162)))" -"(let-values(((s_224)" +" s_366)))" +"(let-values(((s_371)" "(if(syntax?$1" -" s_439)" +" s_370)" "(syntax-e$1" -" s_439)" -" s_439)))" -"(let-values(((flat-s_21)" +" s_370)" +" s_370)))" +"(let-values(((flat-s_372)" "(to-syntax-list.1" -" s_224)))" +" s_371)))" "(if(not" -" flat-s_21)" +" flat-s_372)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_33))" +" orig-s_363))" "(let-values()" -" flat-s_21)))))))" +" flat-s_372)))))))" "(values" -" begin148_0" -" e149_0))" +" begin148_367" +" e149_368))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_33)))))" +" orig-s_363)))))" "(values" " #t" -" begin146_1" -" e147_1))))))" -"(letrec-values(((begin-loop_0)" -"(lambda(es_2)" +" begin146_364" +" e147_365))))))" +"(letrec-values(((begin-loop_360)" +"(lambda(es_0)" "(begin" " 'begin-loop" -"(if(null? es_2)" +"(if(null? es_0)" "(let-values()" -"(if combine_0" +"(if combine_297" " null" "(void)))" "(if(if(not" -" combine_0)" +" combine_297)" "(null?" "(cdr" -" es_2))" +" es_0))" " #f)" "(let-values()" -"(loop_99" -"(car es_2)" -" phase_133" -" ns_107" -" as-tail?_7))" +"(loop_309" +"(car es_0)" +" phase_0" +" ns_0" +" as-tail?_0))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_51)" +"(let-values(((obs_375)" "(expand-context-observer" -" tl-ctx_0)))" -"(if obs_51" +" tl-ctx_314)))" +"(if obs_375" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_51" +" obs_375" " 'next)))" "(void)))" "(values))))" -"(let-values(((a_67)" -"(if combine_0" -"(loop_99" +"(let-values(((a_374)" +"(if combine_297" +"(loop_309" "(car" -" es_2)" -" phase_133" -" ns_107" +" es_0)" +" phase_0" +" ns_0" " #f)" "(begin" -"(loop_99" +"(loop_309" "(car" -" es_2)" -" phase_133" -" ns_107" +" es_0)" +" phase_0" +" ns_0" " #f)" "(void)))))" -"(if combine_0" -"(combine_0" -" a_67" -"(begin-loop_0" +"(if combine_297" +"(combine_297" +" a_374" +"(begin-loop_360" "(cdr" -" es_2)))" -"(begin-loop_0" +" es_0)))" +"(begin-loop_360" "(cdr" -" es_2))))))))))))" -"(if wrap_2" +" es_0))))))))))))" +"(if wrap_298" "(let-values()" -"(let-values(((new-s_4)" -"(wrap_2" -" begin146_0" -" exp-s_7" -"(begin-loop_0" -" e147_0))))" +"(let-values(((new-s_376)" +"(wrap_298" +" begin146_345" +" exp-s_318" +"(begin-loop_360" +" e147_346))))" "(begin" -"(let-values(((obs_52)" +"(let-values(((obs_377)" "(expand-context-observer" -" tl-ctx_0)))" -"(if obs_52" +" tl-ctx_314)))" +"(if obs_377" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_52" +" obs_377" " 'return" -" new-s_4)))" +" new-s_376)))" "(void)))" -" new-s_4)))" +" new-s_376)))" "(let-values()" -"(begin-loop_0 e147_0)))))))" -"(if(equal? tmp_35 'begin-for-syntax)" +"(begin-loop_360 e147_346)))))))" +"(if(equal? tmp_343 'begin-for-syntax)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_43)" +"(let-values(((obs_397)" "(expand-context-observer" -" tl-ctx_0)))" -"(if obs_43" +" tl-ctx_314)))" +"(if obs_397" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_43" +" obs_397" " 'prim-begin-for-syntax)))" "(void)))" "(values))))" -"(let-values(((ok?_30" -" begin-for-syntax150_0" -" e151_0)" -"(let-values(((s_464)" -" disarmed-exp-s_0))" -"(let-values(((orig-s_34)" -" s_464))" -"(let-values(((begin-for-syntax150_1" -" e151_1)" -"(let-values(((s_127)" +"(let-values(((ok?_378" +" begin-for-syntax150_379" +" e151_380)" +"(let-values(((s_398)" +" disarmed-exp-s_319))" +"(let-values(((orig-s_399)" +" s_398))" +"(let-values(((begin-for-syntax150_400" +" e151_401)" +"(let-values(((s_402)" "(if(syntax?$1" -" s_464)" +" s_398)" "(syntax-e$1" -" s_464)" -" s_464)))" +" s_398)" +" s_398)))" "(if(pair?" -" s_127)" -"(let-values(((begin-for-syntax152_0)" -"(let-values(((s_465)" +" s_402)" +"(let-values(((begin-for-syntax152_403)" +"(let-values(((s_405)" "(car" -" s_127)))" -" s_465))" -"((e153_0)" -"(let-values(((s_466)" +" s_402)))" +" s_405))" +"((e153_404)" +"(let-values(((s_406)" "(cdr" -" s_127)))" -"(let-values(((s_467)" +" s_402)))" +"(let-values(((s_407)" "(if(syntax?$1" -" s_466)" +" s_406)" "(syntax-e$1" -" s_466)" -" s_466)))" -"(let-values(((flat-s_22)" +" s_406)" +" s_406)))" +"(let-values(((flat-s_408)" "(to-syntax-list.1" -" s_467)))" +" s_407)))" "(if(not" -" flat-s_22)" +" flat-s_408)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_34))" +" orig-s_399))" "(let-values()" -" flat-s_22)))))))" +" flat-s_408)))))))" "(values" -" begin-for-syntax152_0" -" e153_0))" +" begin-for-syntax152_403" +" e153_404))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_34)))))" +" orig-s_399)))))" "(values" " #t" -" begin-for-syntax150_1" -" e151_1))))))" -"(let-values(((next-phase_0)" -"(add1 phase_133)))" -"(let-values(((next-ns_0)" +" begin-for-syntax150_400" +" e151_401))))))" +"(let-values(((next-phase_394)" +"(add1 phase_0)))" +"(let-values(((next-ns_395)" "(namespace->namespace-at-phase" -" ns_107" -" next-phase_0)))" +" ns_0" +" next-phase_394)))" "(let-values((()" "(begin" -"(let-values(((obs_53)" +"(let-values(((obs_409)" "(expand-context-observer" -" tl-ctx_0)))" -"(if obs_53" +" tl-ctx_314)))" +"(if obs_409" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_53" +" obs_409" " 'prepare-env)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(if quick-immediate?_0" +"(if quick-immediate?_300" "(let-values()" "(namespace-visit-available-modules!" -" ns_107))" +" ns_0))" "(void))" "(values))))" "(let-values((()" "(begin" "(namespace-visit-available-modules!" -" next-ns_0)" +" next-ns_395)" "(values))))" -"(let-values(((l_72)" +"(let-values(((l_396)" "(reverse$1" -"(let-values(((lst_208)" -" e151_0))" +"(let-values(((lst_410)" +" e151_380))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_208)))" -"((letrec-values(((for-loop_266)" -"(lambda(fold-var_274" -" lst_301)" +" lst_410)))" +"((letrec-values(((for-loop_411)" +"(lambda(fold-var_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_301)" -"(let-values(((s_468)" +" lst_0)" +"(let-values(((s_414)" "(unsafe-car" -" lst_301))" -"((rest_113)" +" lst_0))" +"((rest_415)" "(unsafe-cdr" -" lst_301)))" -"(let-values(((fold-var_257)" -"(let-values(((fold-var_275)" -" fold-var_274))" -"(let-values(((fold-var_205)" +" lst_0)))" +"(let-values(((fold-var_416)" +"(let-values(((fold-var_417)" +" fold-var_0))" +"(let-values(((fold-var_418)" "(let-values()" "(cons" "(let-values()" "(begin" -"(let-values(((obs_54)" +"(let-values(((obs_419)" "(expand-context-observer" -" tl-ctx_0)))" -"(if obs_54" +" tl-ctx_314)))" +"(if obs_419" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_54" +" obs_419" " 'next)))" "(void)))" -"(loop_99" -" s_468" -" next-phase_0" -" next-ns_0" +"(loop_309" +" s_414" +" next-phase_394" +" next-ns_395" " #f)))" -" fold-var_275))))" +" fold-var_417))))" "(values" -" fold-var_205)))))" +" fold-var_418)))))" "(if(not" " #f)" -"(for-loop_266" -" fold-var_257" -" rest_113)" -" fold-var_257)))" -" fold-var_274)))))" -" for-loop_266)" +"(for-loop_411" +" fold-var_416" +" rest_415)" +" fold-var_416)))" +" fold-var_0)))))" +" for-loop_411)" " null" -" lst_208))))))" -"(if wrap_2" +" lst_410))))))" +"(if wrap_298" "(let-values()" -"(let-values(((new-s_5)" -"(wrap_2" -" begin-for-syntax150_0" -" exp-s_7" -" l_72)))" +"(let-values(((new-s_420)" +"(wrap_298" +" begin-for-syntax150_379" +" exp-s_318" +" l_396)))" "(begin" -"(let-values(((obs_55)" +"(let-values(((obs_421)" "(expand-context-observer" -" tl-ctx_0)))" -"(if obs_55" +" tl-ctx_314)))" +"(if obs_421" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_55" +" obs_421" " 'return" -" new-s_5)))" +" new-s_420)))" "(void)))" -" new-s_5)))" -"(if combine_0" +" new-s_420)))" +"(if combine_297" "(let-values()" "(apply" " append" -" l_72))" +" l_396))" "(let-values()" "(void)))))))))))))" "(let-values()" -"(single_0" -" exp-s_7" -" ns_107" -" as-tail?_7))))))))))))))))))" -" loop_99)" -" s_216" -" phase_132" -" ns_106" +"(single_296" +" exp-s_318" +" ns_0" +" as-tail?_0))))))))))))))))))" +" loop_309)" +" s_303" +" phase_305" +" ns_295" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_340 ns_108)" -"(begin(if(syntax?$1 s_340) s_340(1/namespace-syntax-introduce(1/datum->syntax #f s_340) ns_108)))))" +"(lambda(s_0 ns_0)(begin(if(syntax?$1 s_0) s_0(1/namespace-syntax-introduce(1/datum->syntax #f s_0) ns_0)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_469 r_41)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_469)(cons form-id_0 r_41) s_469 s_469) s_469))))" +"(lambda(form-id_0 s_0 r_0)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_0)(cons form-id_0 r_0) s_0 s_0) s_0))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_343 ctx_70)" +"(lambda(s_0 ctx_0)" "(begin" "(let-values()" -"(let-values(((ns_109)(expand-context-namespace ctx_70)))" -"(let-values((()(begin(namespace-visit-available-modules! ns_109)(values))))" -"(let-values(((lift-ctx_6)" -"(let-values(((temp154_1)(make-top-level-lift ctx_70)))" -"(make-lift-context6.1 #f temp154_1))))" -"(let-values(((require-lift-ctx_2)" +"(let-values(((ns_463)(expand-context-namespace ctx_0)))" +"(let-values((()(begin(namespace-visit-available-modules! ns_463)(values))))" +"(let-values(((lift-ctx_464)" +"(let-values(((temp154_467)(make-top-level-lift ctx_0)))" +"(make-lift-context6.1 #f temp154_467))))" +"(let-values(((require-lift-ctx_465)" "(make-require-lift-context" -"(namespace-phase ns_109)" -"(make-parse-top-lifted-require ns_109))))" -"(let-values(((exp-s_8)" -"(let-values(((s155_0) s_343)" -"((temp156_0)" -"(let-values(((v_191) ctx_70))" -"(let-values(((the-struct_75) v_191))" -"(if(expand-context/outer? the-struct_75)" -"(let-values(((inner157_0)" -"(let-values(((the-struct_76)" -"(root-expand-context/outer-inner v_191)))" -"(if(expand-context/inner? the-struct_76)" -"(let-values(((lifts158_0) lift-ctx_6)" -"((module-lifts159_0) lift-ctx_6)" -"((require-lifts160_0)" -" require-lift-ctx_2))" +"(namespace-phase ns_463)" +"(make-parse-top-lifted-require ns_463))))" +"(let-values(((exp-s_466)" +"(let-values(((s155_468) s_0)" +"((temp156_469)" +"(let-values(((v_470) ctx_0))" +"(let-values(((the-struct_471) v_470))" +"(if(expand-context/outer? the-struct_471)" +"(let-values(((inner157_472)" +"(let-values(((the-struct_473)" +"(root-expand-context/outer-inner v_470)))" +"(if(expand-context/inner? the-struct_473)" +"(let-values(((lifts158_474) lift-ctx_464)" +"((module-lifts159_475) lift-ctx_464)" +"((require-lifts160_476)" +" require-lift-ctx_465))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_76)" +" the-struct_473)" "(root-expand-context/inner-module-scopes" -" the-struct_76)" +" the-struct_473)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_76)" +" the-struct_473)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_76)" +" the-struct_473)" "(root-expand-context/inner-defined-syms" -" the-struct_76)" -"(root-expand-context/inner-counter the-struct_76)" +" the-struct_473)" +"(root-expand-context/inner-counter" +" the-struct_473)" "(root-expand-context/inner-lift-key" -" the-struct_76)" -"(expand-context/inner-to-parsed? the-struct_76)" -"(expand-context/inner-phase the-struct_76)" -"(expand-context/inner-namespace the-struct_76)" -"(expand-context/inner-just-once? the-struct_76)" +" the-struct_473)" +"(expand-context/inner-to-parsed? the-struct_473)" +"(expand-context/inner-phase the-struct_473)" +"(expand-context/inner-namespace the-struct_473)" +"(expand-context/inner-just-once? the-struct_473)" "(expand-context/inner-module-begin-k" -" the-struct_76)" +" the-struct_473)" "(expand-context/inner-allow-unbound?" -" the-struct_76)" +" the-struct_473)" "(expand-context/inner-in-local-expand?" -" the-struct_76)" +" the-struct_473)" "(expand-context/inner-keep-#%expression?" -" the-struct_76)" -"(expand-context/inner-stops the-struct_76)" +" the-struct_473)" +"(expand-context/inner-stops the-struct_473)" "(expand-context/inner-declared-submodule-names" -" the-struct_76)" -" lifts158_0" -"(expand-context/inner-lift-envs the-struct_76)" -" module-lifts159_0" -" require-lifts160_0" +" the-struct_473)" +" lifts158_474" +"(expand-context/inner-lift-envs the-struct_473)" +" module-lifts159_475" +" require-lifts160_476" "(expand-context/inner-to-module-lifts" -" the-struct_76)" +" the-struct_473)" "(expand-context/inner-requires+provides" -" the-struct_76)" -"(expand-context/inner-observer the-struct_76)" +" the-struct_473)" +"(expand-context/inner-observer the-struct_473)" "(expand-context/inner-for-serializable?" -" the-struct_76)" +" the-struct_473)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_76)))" +" the-struct_473)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_76)))))" +" the-struct_473)))))" "(expand-context/outer1.1" -" inner157_0" -"(root-expand-context/outer-post-expansion the-struct_75)" -"(root-expand-context/outer-use-site-scopes the-struct_75)" -"(root-expand-context/outer-frame-id the-struct_75)" -"(expand-context/outer-context the-struct_75)" -"(expand-context/outer-env the-struct_75)" -"(expand-context/outer-scopes the-struct_75)" -"(expand-context/outer-def-ctx-scopes the-struct_75)" -"(expand-context/outer-binding-layer the-struct_75)" -"(expand-context/outer-reference-records the-struct_75)" -"(expand-context/outer-only-immediate? the-struct_75)" -"(expand-context/outer-need-eventually-defined the-struct_75)" -"(expand-context/outer-current-introduction-scopes the-struct_75)" -"(expand-context/outer-current-use-scopes the-struct_75)" -"(expand-context/outer-name the-struct_75)))" +" inner157_472" +"(root-expand-context/outer-post-expansion the-struct_471)" +"(root-expand-context/outer-use-site-scopes the-struct_471)" +"(root-expand-context/outer-frame-id the-struct_471)" +"(expand-context/outer-context the-struct_471)" +"(expand-context/outer-env the-struct_471)" +"(expand-context/outer-scopes the-struct_471)" +"(expand-context/outer-def-ctx-scopes the-struct_471)" +"(expand-context/outer-binding-layer the-struct_471)" +"(expand-context/outer-reference-records the-struct_471)" +"(expand-context/outer-only-immediate? the-struct_471)" +"(expand-context/outer-need-eventually-defined the-struct_471)" +"(expand-context/outer-current-introduction-scopes the-struct_471)" +"(expand-context/outer-current-use-scopes the-struct_471)" +"(expand-context/outer-name the-struct_471)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_75))))))" -"(expand9.1 #f #f #f s155_0 temp156_0))))" +" the-struct_471))))))" +"(expand9.1 #f #f #f s155_468 temp156_469))))" "(values" -"(get-and-clear-require-lifts! require-lift-ctx_2)" -"(get-and-clear-lifts! lift-ctx_6)" -" exp-s_8))))))))))" +"(get-and-clear-require-lifts! require-lift-ctx_465)" +"(get-and-clear-lifts! lift-ctx_464)" +" exp-s_466))))))))))" "(define-values" "(make-parse-top-lifted-require)" -"(lambda(ns_110)" +"(lambda(ns_0)" "(begin" -"(lambda(s_347 phase_134)" -"(let-values(((ok?_31 #%require161_0 req162_0)" -"(let-values(((s_470)(syntax-disarm$1 s_347)))" -"(let-values(((orig-s_35) s_470))" -"(let-values(((#%require161_1 req162_1)" -"(let-values(((s_471)(if(syntax?$1 s_470)(syntax-e$1 s_470) s_470)))" -"(if(pair? s_471)" -"(let-values(((#%require163_0)(let-values(((s_472)(car s_471))) s_472))" -"((req164_0)" -"(let-values(((s_473)(cdr s_471)))" -"(let-values(((s_474)" -"(if(syntax?$1 s_473)" -"(syntax-e$1 s_473)" -" s_473)))" -"(if(pair? s_474)" -"(let-values(((req165_0)" -"(let-values(((s_475)(car s_474)))" -" s_475))" +"(lambda(s_0 phase_0)" +"(let-values(((ok?_480 #%require161_481 req162_482)" +"(let-values(((s_496)(syntax-disarm$1 s_0)))" +"(let-values(((orig-s_497) s_496))" +"(let-values(((#%require161_498 req162_499)" +"(let-values(((s_500)(if(syntax?$1 s_496)(syntax-e$1 s_496) s_496)))" +"(if(pair? s_500)" +"(let-values(((#%require163_501)(let-values(((s_503)(car s_500))) s_503))" +"((req164_502)" +"(let-values(((s_504)(cdr s_500)))" +"(let-values(((s_505)" +"(if(syntax?$1 s_504)" +"(syntax-e$1 s_504)" +" s_504)))" +"(if(pair? s_505)" +"(let-values(((req165_506)" +"(let-values(((s_507)(car s_505)))" +" s_507))" "(()" -"(let-values(((s_476)(cdr s_474)))" -"(let-values(((s_477)" -"(if(syntax?$1 s_476)" -"(syntax-e$1 s_476)" -" s_476)))" -"(if(null? s_477)" +"(let-values(((s_508)(cdr s_505)))" +"(let-values(((s_509)" +"(if(syntax?$1 s_508)" +"(syntax-e$1 s_508)" +" s_508)))" +"(if(null? s_509)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_35))))))" -"(values req165_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_35))))))" -"(values #%require163_0 req164_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" -"(values #t #%require161_1 req162_1))))))" -"(let-values(((temp166_0)(list req162_0))" -"((s167_0) s_347)" -"((ns168_0) ns_110)" -"((phase169_1) phase_134)" -"((phase170_0) phase_134)" -"((temp171_1)(let-values(((temp173_0) #f))(make-requires+provides8.1 #f temp173_0)))" -"((temp172_0) 'require))" +" orig-s_497))))))" +"(values req165_506))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_497))))))" +"(values #%require163_501 req164_502))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_497)))))" +"(values #t #%require161_498 req162_499))))))" +"(let-values(((temp166_511)(list req162_482))" +"((s167_512) s_0)" +"((ns168_513) ns_0)" +"((phase169_514) phase_0)" +"((phase170_515) phase_0)" +"((temp171_516)(let-values(((temp173_518) #f))(make-requires+provides8.1 #f temp173_518)))" +"((temp172_517) 'require))" "(parse-and-perform-requires!30.1" " #f" " #f" " unsafe-undefined" " #f" -" phase170_0" +" phase170_515" " #f" " #f" " #f" " #t" -" temp172_0" -" temp166_0" -" s167_0" -" ns168_0" -" phase169_1" -" temp171_1)))))))" +" temp172_517" +" temp166_511" +" s167_512" +" ns168_513" +" phase169_514" +" temp171_516)))))))" "(define-values" "(wrap-lifts-as-lifted-parsed-begin63.1)" "(lambda(adjust-form57_0 require-lifts59_0 lifts60_0 exp-s61_0 rebuild-s62_0)" "(begin" " 'wrap-lifts-as-lifted-parsed-begin63" -"(let-values(((require-lifts_6) require-lifts59_0))" -"(let-values(((lifts_13) lifts60_0))" -"(let-values(((exp-s_9) exp-s61_0))" -"(let-values(((rebuild-s_3) rebuild-s62_0))" -"(let-values(((adjust-form_1) adjust-form57_0))" +"(let-values(((require-lifts_534) require-lifts59_0))" +"(let-values(((lifts_535) lifts60_0))" +"(let-values(((exp-s_536) exp-s61_0))" +"(let-values(((rebuild-s_537) rebuild-s62_0))" +"(let-values(((adjust-form_538) adjust-form57_0))" "(let-values()" "(lifted-parsed-begin22.1" "(append" "(reverse$1" -"(let-values(((lst_302) require-lifts_6))" +"(let-values(((lst_539) require-lifts_534))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_302)))" -"((letrec-values(((for-loop_267)" -"(lambda(fold-var_276 lst_303)" +"(let-values()(check-list lst_539)))" +"((letrec-values(((for-loop_540)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_303)" -"(let-values(((req_19)(unsafe-car lst_303))" -"((rest_171)(unsafe-cdr lst_303)))" -"(let-values(((fold-var_277)" -"(let-values(((fold-var_278) fold-var_276))" -"(let-values(((fold-var_279)" +"(if(pair? lst_0)" +"(let-values(((req_543)(unsafe-car lst_0))" +"((rest_544)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_545)" +"(let-values(((fold-var_546) fold-var_0))" +"(let-values(((fold-var_547)" "(let-values()" "(cons" "(let-values()" -"(parsed-require23.1 req_19))" -" fold-var_278))))" -"(values fold-var_279)))))" -"(if(not #f)(for-loop_267 fold-var_277 rest_171) fold-var_277)))" -" fold-var_276)))))" -" for-loop_267)" +"(parsed-require23.1 req_543))" +" fold-var_546))))" +"(values fold-var_547)))))" +"(if(not #f)(for-loop_540 fold-var_545 rest_544) fold-var_545)))" +" fold-var_0)))))" +" for-loop_540)" " null" -" lst_302))))" +" lst_539))))" "(reverse$1" -"(let-values(((lst_304)(get-lifts-as-lists lifts_13)))" +"(let-values(((lst_548)(get-lifts-as-lists lifts_535)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_304)))" -"((letrec-values(((for-loop_268)" -"(lambda(fold-var_280 lst_305)" +"(let-values()(check-list lst_548)))" +"((letrec-values(((for-loop_549)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_305)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_305))" -"((rest_172)(unsafe-cdr lst_305)))" -"(let-values(((fold-var_281)" -"(let-values(((fold-var_282) fold-var_280))" -"(let-values(((fold-var_283)" +"(if(pair? lst_0)" +"(let-values(((ids+syms+rhs_552)(unsafe-car lst_0))" +"((rest_553)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_554)" +"(let-values(((fold-var_555) fold-var_0))" +"(let-values(((fold-var_556)" "(let-values()" "(cons" "(let-values()" -"(let-values(((exp-rhs_3)" -"(adjust-form_1" +"(let-values(((exp-rhs_557)" +"(adjust-form_538" "(caddr" -" ids+syms+rhs_0))))" -"(let-values(((just-rhs_0)" +" ids+syms+rhs_552))))" +"(let-values(((just-rhs_558)" "(if(lifted-parsed-begin?" -" exp-rhs_3)" +" exp-rhs_557)" "(lifted-parsed-begin-last" -" exp-rhs_3)" -" exp-rhs_3)))" -"(let-values(((dv_0)" +" exp-rhs_557)" +" exp-rhs_557)))" +"(let-values(((dv_559)" "(parsed-define-values19.1" -" rebuild-s_3" +" rebuild-s_537" "(car" -" ids+syms+rhs_0)" +" ids+syms+rhs_552)" "(cadr" -" ids+syms+rhs_0)" -" just-rhs_0)))" +" ids+syms+rhs_552)" +" just-rhs_558)))" "(if(lifted-parsed-begin?" -" exp-rhs_3)" -"(let-values(((the-struct_77)" -" exp-rhs_3))" +" exp-rhs_557)" +"(let-values(((the-struct_560)" +" exp-rhs_557))" "(if(lifted-parsed-begin?" -" the-struct_77)" -"(let-values(((last174_0)" -" dv_0))" +" the-struct_560)" +"(let-values(((last174_561)" +" dv_559))" "(lifted-parsed-begin22.1" "(lifted-parsed-begin-seq" -" the-struct_77)" -" last174_0))" +" the-struct_560)" +" last174_561))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_77)))" -" dv_0)))))" -" fold-var_282))))" -"(values fold-var_283)))))" -"(if(not #f)(for-loop_268 fold-var_281 rest_172) fold-var_281)))" -" fold-var_280)))))" -" for-loop_268)" +" the-struct_560)))" +" dv_559)))))" +" fold-var_555))))" +"(values fold-var_556)))))" +"(if(not #f)(for-loop_549 fold-var_554 rest_553) fold-var_554)))" +" fold-var_0)))))" +" for-loop_549)" " null" -" lst_304)))))" -" exp-s_9))))))))))" +" lst_548)))))" +" exp-s_536))))))))))" "(define-values" "(log-top-lift-begin-before)" -"(lambda(ctx_71 require-lifts_7 lifts_14 exp-s_10 ns_111)" +"(lambda(ctx_0 require-lifts_0 lifts_0 exp-s_0 ns_0)" "(begin" -"(let-values(((obs_56)(expand-context-observer ctx_71)))" -"(if obs_56" +"(let-values(((obs_583)(expand-context-observer ctx_0)))" +"(if obs_583" "(let-values()" -"(let-values(((new-s_6)" -"(let-values(((temp175_0)(append require-lifts_7 lifts_14))" -"((exp-s176_0) exp-s_10)" -"((temp177_0)(namespace-phase ns_111)))" +"(let-values(((new-s_584)" +"(let-values(((temp175_585)(append require-lifts_0 lifts_0))" +"((exp-s176_586) exp-s_0)" +"((temp177_587)(namespace-phase ns_0)))" "(wrap-lifts-as-begin16.1" " unsafe-undefined" " unsafe-undefined" -" temp175_0" -" exp-s176_0" -" temp177_0))))" -"(begin(call-expand-observe obs_56 'lift-loop new-s_6)(log-top-begin-before ctx_71 new-s_6))))" +" temp175_585" +" exp-s176_586" +" temp177_587))))" +"(begin(call-expand-observe obs_583 'lift-loop new-s_584)(log-top-begin-before ctx_0 new-s_584))))" "(void))))))" "(define-values" "(log-top-begin-before)" -"(lambda(ctx_72 new-s_7)" +"(lambda(ctx_0 new-s_0)" "(begin" -"(let-values(((obs_57)(expand-context-observer ctx_72)))" -"(if obs_57" +"(let-values(((obs_590)(expand-context-observer ctx_0)))" +"(if obs_590" "(let-values()" -"(let-values(((ok?_32 begin178_0 e179_0)" -"(let-values(((s_478) new-s_7))" -"(let-values(((orig-s_36) s_478))" -"(let-values(((begin178_1 e179_1)" -"(let-values(((s_479)(if(syntax?$1 s_478)(syntax-e$1 s_478) s_478)))" -"(if(pair? s_479)" -"(let-values(((begin180_0)(let-values(((s_480)(car s_479))) s_480))" -"((e181_0)" -"(let-values(((s_481)(cdr s_479)))" -"(let-values(((s_482)" -"(if(syntax?$1 s_481)" -"(syntax-e$1 s_481)" -" s_481)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_482)))" -"(if(not flat-s_23)" +"(let-values(((ok?_591 begin178_592 e179_593)" +"(let-values(((s_607) new-s_0))" +"(let-values(((orig-s_608) s_607))" +"(let-values(((begin178_609 e179_610)" +"(let-values(((s_611)(if(syntax?$1 s_607)(syntax-e$1 s_607) s_607)))" +"(if(pair? s_611)" +"(let-values(((begin180_612)(let-values(((s_614)(car s_611))) s_614))" +"((e181_613)" +"(let-values(((s_615)(cdr s_611)))" +"(let-values(((s_616)" +"(if(syntax?$1 s_615)" +"(syntax-e$1 s_615)" +" s_615)))" +"(let-values(((flat-s_617)(to-syntax-list.1 s_616)))" +"(if(not flat-s_617)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_36))" -"(let-values() flat-s_23)))))))" -"(values begin180_0 e181_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_36)))))" -"(values #t begin178_1 e179_1))))))" +" orig-s_608))" +"(let-values() flat-s_617)))))))" +"(values begin180_612 e181_613))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_608)))))" +"(values #t begin178_609 e179_610))))))" "(begin" -"(call-expand-observe obs_57 'visit new-s_7)" -"(call-expand-observe obs_57 'resolve begin178_0)" -"(call-expand-observe obs_57 'enter-prim new-s_7)" -"(call-expand-observe obs_57 'prim-begin)" -"(call-expand-observe obs_57 'enter-list(1/datum->syntax #f e179_0 new-s_7)))))" +"(call-expand-observe obs_590 'visit new-s_0)" +"(call-expand-observe obs_590 'resolve begin178_592)" +"(call-expand-observe obs_590 'enter-prim new-s_0)" +"(call-expand-observe obs_590 'prim-begin)" +"(call-expand-observe obs_590 'enter-list(1/datum->syntax #f e179_593 new-s_0)))))" "(void))))))" "(define-values" "(log-top-begin-after)" -"(lambda(ctx_73 new-s_8)" +"(lambda(ctx_0 new-s_0)" "(begin" -"(let-values(((obs_58)(expand-context-observer ctx_73)))" -"(if obs_58" +"(let-values(((obs_620)(expand-context-observer ctx_0)))" +"(if obs_620" "(let-values()" -"(let-values(((ok?_33 begin182_0 e183_0)" -"(let-values(((s_392) new-s_8))" -"(let-values(((orig-s_37) s_392))" -"(let-values(((begin182_1 e183_1)" -"(let-values(((s_483)(if(syntax?$1 s_392)(syntax-e$1 s_392) s_392)))" -"(if(pair? s_483)" -"(let-values(((begin184_0)(let-values(((s_138)(car s_483))) s_138))" -"((e185_0)" -"(let-values(((s_139)(cdr s_483)))" -"(let-values(((s_484)" -"(if(syntax?$1 s_139)" -"(syntax-e$1 s_139)" -" s_139)))" -"(let-values(((flat-s_24)(to-syntax-list.1 s_484)))" -"(if(not flat-s_24)" +"(let-values(((ok?_621 begin182_622 e183_623)" +"(let-values(((s_637) new-s_0))" +"(let-values(((orig-s_638) s_637))" +"(let-values(((begin182_639 e183_640)" +"(let-values(((s_641)(if(syntax?$1 s_637)(syntax-e$1 s_637) s_637)))" +"(if(pair? s_641)" +"(let-values(((begin184_642)(let-values(((s_644)(car s_641))) s_644))" +"((e185_643)" +"(let-values(((s_645)(cdr s_641)))" +"(let-values(((s_646)" +"(if(syntax?$1 s_645)" +"(syntax-e$1 s_645)" +" s_645)))" +"(let-values(((flat-s_647)(to-syntax-list.1 s_646)))" +"(if(not flat-s_647)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_37))" -"(let-values() flat-s_24)))))))" -"(values begin184_0 e185_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_37)))))" -"(values #t begin182_1 e183_1))))))" -"(let-values(((obs_59)(expand-context-observer ctx_73)))" -"(if obs_59" +" orig-s_638))" +"(let-values() flat-s_647)))))))" +"(values begin184_642 e185_643))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_638)))))" +"(values #t begin182_639 e183_640))))))" +"(let-values(((obs_648)(expand-context-observer ctx_0)))" +"(if obs_648" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_59 'exit-list(1/datum->syntax #f e183_0 new-s_8))" -"(call-expand-observe obs_59 'exit-prim new-s_8)" -"(call-expand-observe obs_59 'return new-s_8))))" +"(call-expand-observe obs_648 'exit-list(1/datum->syntax #f e183_623 new-s_0))" +"(call-expand-observe obs_648 'exit-prim new-s_0)" +"(call-expand-observe obs_648 'return new-s_0))))" "(void)))))" "(void))))))" -" (define-values (replace-me) (lambda (who_0) (begin (lambda args_6 (error who_0 \"this stub must be replaced\")))))" +" (define-values (replace-me) (lambda (who_0) (begin (lambda args_0 (error who_0 \"this stub must be replaced\")))))" "(define-values" "(1/current-eval)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-eval)" -"(lambda(p_42)" +"(lambda(p_0)" "(begin" -"(if((lambda(p_43)(if(procedure? p_43)(procedure-arity-includes? p_43 1) #f)) p_42)" +"(if((lambda(p_1)(if(procedure? p_1)(procedure-arity-includes? p_1 1) #f)) p_0)" "(void)" -" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_42)))" -" p_42))))))" +" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_0)))" +" p_0))))))" "(define-values" "(1/current-compile)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-compile)" -"(lambda(p_23)" +"(lambda(p_0)" "(begin" -"(if((lambda(p_44)(if(procedure? p_44)(procedure-arity-includes? p_44 2) #f)) p_23)" +"(if((lambda(p_1)(if(procedure? p_1)(procedure-arity-includes? p_1 2) #f)) p_0)" "(void)" -" (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_23)))" -" p_23))))))" +" (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_0)))" +" p_0))))))" "(define-values" "(1/current-load)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-load)" -"(lambda(p_45)" +"(lambda(p_0)" "(begin" -"(if((lambda(p_28)(if(procedure? p_28)(procedure-arity-includes? p_28 2) #f)) p_45)" +"(if((lambda(p_1)(if(procedure? p_1)(procedure-arity-includes? p_1 2) #f)) p_0)" "(void)" -" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_45)))" -" p_45))))))" +" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_0)))" +" p_0))))))" "(define-values" "(1/current-load/use-compiled)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-load/use-compiled)" -"(lambda(p_37)" +"(lambda(p_0)" "(begin" -"(if((lambda(p_39)(if(procedure? p_39)(procedure-arity-includes? p_39 2) #f)) p_37)" +"(if((lambda(p_1)(if(procedure? p_1)(procedure-arity-includes? p_1 2) #f)) p_0)" "(void)" -" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_37)))" -" p_37))))))" +" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_0)))" +" p_0))))))" "(define-values" "(1/current-library-collection-paths)" "(let-values()" "(let-values()" "(make-parameter" " null" -"(lambda(l_73)" +"(lambda(l_0)" "(begin" -"(if((lambda(l_74)(if(list? l_74)(andmap2 complete-path-string? l_74) #f)) l_73)" +"(if((lambda(l_1)(if(list? l_1)(andmap2 complete-path-string? l_1) #f)) l_0)" "(void)" "(let-values()" "(raise-argument-error" " 'current-library-collection-paths" " \"(listof (and/c path-string? complete-path?))\"" -" l_73)))" -"(map2 to-path l_73)))))))" +" l_0)))" +"(map2 to-path l_0)))))))" "(define-values" "(1/current-library-collection-links)" "(let-values()" "(let-values()" "(make-parameter" " null" -"(lambda(l_8)" +"(lambda(l_0)" "(begin" -"(if((lambda(l_75)" -"(if(list? l_75)" +"(if((lambda(l_1)" +"(if(list? l_1)" "(andmap2" -"(lambda(p_46)" -"(let-values(((or-part_297)(not p_46)))" -"(if or-part_297" -" or-part_297" -"(let-values(((or-part_298)(complete-path-string? p_46)))" -"(if or-part_298" -" or-part_298" -"(if(hash? p_46)" -"(let-values(((ht_149) p_46))" +"(lambda(p_0)" +"(let-values(((or-part_22)(not p_0)))" +"(if or-part_22" +" or-part_22" +"(let-values(((or-part_23)(complete-path-string? p_0)))" +"(if or-part_23" +" or-part_23" +"(if(hash? p_0)" +"(let-values(((ht_24) p_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_149)))" -"((letrec-values(((for-loop_269)" -"(lambda(result_117 i_166)" +"(let-values()(check-in-hash ht_24)))" +"((letrec-values(((for-loop_25)" +"(lambda(result_0 i_0)" "(begin" " 'for-loop" -"(if i_166" -"(let-values(((k_36 v_3)" -"(hash-iterate-key+value ht_149 i_166)))" -"(let-values(((result_118)" +"(if i_0" +"(let-values(((k_28 v_29)" +"(hash-iterate-key+value ht_24 i_0)))" +"(let-values(((result_30)" "(let-values()" -"(let-values(((result_119)" +"(let-values(((result_32)" "(let-values()" "(let-values()" -"(if(let-values(((or-part_77)" +"(if(let-values(((or-part_33)" "(not" -" k_36)))" -"(if or-part_77" -" or-part_77" +" k_28)))" +"(if or-part_33" +" or-part_33" "(if(symbol?" -" k_36)" +" k_28)" "(1/module-path?" -" k_36)" +" k_28)" " #f)))" -"(if(list? v_3)" +"(if(list? v_29)" "(andmap2" " complete-path-string?" -" v_3)" +" v_29)" " #f)" " #f)))))" -"(values result_119)))))" -"(if(if(not((lambda x_82(not result_118)) k_36 v_3))" +"(values result_32)))))" +"(if(if(not((lambda x_0(not result_30)) k_28 v_29))" "(not #f)" " #f)" -"(for-loop_269" -" result_118" -"(hash-iterate-next ht_149 i_166))" -" result_118)))" -" result_117)))))" -" for-loop_269)" +"(for-loop_25 result_30(hash-iterate-next ht_24 i_0))" +" result_30)))" +" result_0)))))" +" for-loop_25)" " #t" -"(hash-iterate-first ht_149))))" +"(hash-iterate-first ht_24))))" " #f))))))" -" l_75)" +" l_1)" " #f))" -" l_8)" +" l_0)" "(void)" "(let-values()" "(raise-argument-error" @@ -46069,382 +46293,381 @@ static const char *startup_source = " \" (and/c path-string? complete-path?)\\n\"" " \" (hash/c (or/c (and/c symbol? module-path?) #f)\\n\"" " \" (listof (and/c path-string? complete-path?)))))\")" -" l_8)))" +" l_0)))" "(map2" -"(lambda(p_4)" -"(if(not p_4)" +"(lambda(p_0)" +"(if(not p_0)" "(let-values() #f)" -"(if(path? p_4)" -"(let-values() p_4)" -"(if(string? p_4)" -"(let-values()(string->path p_4))" +"(if(path? p_0)" +"(let-values() p_0)" +"(if(string? p_0)" +"(let-values()(string->path p_0))" "(let-values()" -"(let-values(((ht_150) p_4))" +"(let-values(((ht_36) p_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_150)))" -"((letrec-values(((for-loop_270)" -"(lambda(table_208 i_167)" +"(let-values()(check-in-hash ht_36)))" +"((letrec-values(((for-loop_37)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_167" -"(let-values(((k_37 v_192)(hash-iterate-key+value ht_150 i_167)))" -"(let-values(((table_209)" -"(let-values(((table_181) table_208))" -"(let-values(((table_210)" +"(if i_0" +"(let-values(((k_40 v_41)(hash-iterate-key+value ht_36 i_0)))" +"(let-values(((table_42)" +"(let-values(((table_43) table_0))" +"(let-values(((table_44)" "(let-values()" -"(let-values(((key_82 val_77)" +"(let-values(((key_45 val_46)" "(let-values()" "(values" -" k_37" -"(to-path v_192)))))" +" k_40" +"(to-path v_41)))))" "(hash-set" -" table_181" -" key_82" -" val_77)))))" -"(values table_210)))))" +" table_43" +" key_45" +" val_46)))))" +"(values table_44)))))" "(if(not #f)" -"(for-loop_270 table_209(hash-iterate-next ht_150 i_167))" -" table_209)))" -" table_208)))))" -" for-loop_270)" +"(for-loop_37 table_42(hash-iterate-next ht_36 i_0))" +" table_42)))" +" table_0)))))" +" for-loop_37)" " '#hash()" -"(hash-iterate-first ht_150)))))))))" -" l_8)))))))" +"(hash-iterate-first ht_36)))))))))" +" l_0)))))))" "(define-values" "(1/use-compiled-file-paths)" "(let-values()" "(let-values()" "(make-parameter" " (list (string->path \"compiled\"))" -"(lambda(l_48)" +"(lambda(l_0)" "(begin" -"(if((lambda(l_76)(if(list? l_76)(andmap2 relative-path-string?$1 l_76) #f)) l_48)" +"(if((lambda(l_1)(if(list? l_1)(andmap2 relative-path-string?$1 l_1) #f)) l_0)" "(void)" "(let-values()" -" (raise-argument-error 'use-compiled-file-paths \"(listof (and/c path-string? relative-path?))\" l_48)))" -"(map2 to-path l_48)))))))" +" (raise-argument-error 'use-compiled-file-paths \"(listof (and/c path-string? relative-path?))\" l_0)))" +"(map2 to-path l_0)))))))" "(define-values" "(1/current-compiled-file-roots)" "(let-values()" "(let-values()" "(make-parameter" " '(same)" -"(lambda(l_77)" +"(lambda(l_0)" "(begin" -"(if((lambda(l_78)" -"(if(list? l_78)" +"(if((lambda(l_1)" +"(if(list? l_1)" "(andmap2" -"(lambda(p_47)" -"(let-values(((or-part_8)(path-string? p_47)))(if or-part_8 or-part_8(eq? p_47 'same))))" -" l_78)" +"(lambda(p_0)" +"(let-values(((or-part_54)(path-string? p_0)))(if or-part_54 or-part_54(eq? p_0 'same))))" +" l_1)" " #f))" -" l_77)" +" l_0)" "(void)" "(let-values()" -" (raise-argument-error 'current-compiled-file-roots \"(listof (or/c path-string? 'same))\" l_77)))" -"(map2 to-path l_77)))))))" +" (raise-argument-error 'current-compiled-file-roots \"(listof (or/c path-string? 'same))\" l_0)))" +"(map2 to-path l_0)))))))" "(define-values" "(1/use-compiled-file-check)" "(let-values()" "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_193)" +"(lambda(v_0)" "(begin" -"(if((lambda(v_59)" -"(let-values(((or-part_32)(eq? v_59 'modify-seconds)))" -"(if or-part_32 or-part_32(eq? v_59 'exists))))" -" v_193)" +"(if((lambda(v_1)" +"(let-values(((or-part_58)(eq? v_1 'modify-seconds)))(if or-part_58 or-part_58(eq? v_1 'exists))))" +" v_0)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_193)))" -" v_193))))))" -"(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_71)(if v_71 #t #f))))" -"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_194)(if v_194 #t #f))))" -"(define-values(complete-path-string?)(lambda(p_48)(begin(if(path-string? p_48)(complete-path? p_48) #f))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_0)))" +" v_0))))))" +"(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_0)(if v_0 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_0)(if v_0 #t #f))))" +"(define-values(complete-path-string?)(lambda(p_0)(begin(if(path-string? p_0)(complete-path? p_0) #f))))" "(define-values" "(relative-path-string?$1)" -"(lambda(p_49)(begin 'relative-path-string?(if(path-string? p_49)(relative-path? p_49) #f))))" -"(define-values(to-path)(lambda(p_50)(begin(if(string? p_50)(string->path p_50) p_50))))" +"(lambda(p_0)(begin 'relative-path-string?(if(path-string? p_0)(relative-path? p_0) #f))))" +"(define-values(to-path)(lambda(p_0)(begin(if(string? p_0)(string->path p_0) p_0))))" "(define-values" "(eval$1)" "(let-values()" "(let-values()" "(case-lambda" -"((s_72)(begin 'eval((1/current-eval)(intro s_72))))" -"((s_189 ns_112)" +"((s_0)(begin 'eval((1/current-eval)(intro s_0))))" +"((s_0 ns_0)" "(begin" -" (if (1/namespace? ns_112) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_112)))" +" (if (1/namespace? ns_0) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_0)))" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_112)" -"(let-values()((1/current-eval)(intro s_189 ns_112))))))))))" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_0)" +"(let-values()((1/current-eval)(intro s_0 ns_0))))))))))" "(define-values" "(1/eval-syntax)" "(let-values()" "(let-values()" "(case-lambda" -"((s_8)" +"((s_0)" "(begin" " 'eval-syntax" "(begin" -" (if (syntax?$1 s_8) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_8)))" -"((1/current-eval) s_8))))" -"((s_2 ns_58)" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_0)))" +"((1/current-eval) s_0))))" +"((s_0 ns_0)" "(begin" -" (if (syntax?$1 s_2) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_2)))" -" (if (1/namespace? ns_58) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_58)))" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_0)))" +" (if (1/namespace? ns_0) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_0)))" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_58)" -"(let-values()((1/current-eval) s_2)))))))))" -"(define-values(compile$1)(lambda(s_177)(begin 'compile((1/current-compile)(intro s_177) #f))))" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_0)" +"(let-values()((1/current-eval) s_0)))))))))" +"(define-values(compile$1)(lambda(s_0)(begin 'compile((1/current-compile)(intro s_0) #f))))" "(define-values" "(1/compile-syntax)" -"(lambda(s_485)" +"(lambda(s_0)" "(begin" " 'compile-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_485) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_485)))" -"((1/current-compile) s_485 #f)))))))" -"(define-values(1/expand)(lambda(s_9)(begin 'expand(expand$1(intro s_9)(1/current-namespace) #t))))" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_0)))" +"((1/current-compile) s_0 #f)))))))" +"(define-values(1/expand)(lambda(s_0)(begin 'expand(expand$1(intro s_0)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" -"(lambda(s_441)" +"(lambda(s_0)" "(begin" " 'expand-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_441) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_441)))" -"(expand$1 s_441(1/current-namespace) #t)))))))" -"(define-values(1/expand-once)(lambda(s_448)(begin 'expand-once(expand-once$1(intro s_448)))))" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_0)))" +"(expand$1 s_0(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_0)(begin 'expand-once(expand-once$1(intro s_0)))))" "(define-values" "(1/expand-syntax-once)" -"(lambda(s_178)" +"(lambda(s_0)" "(begin" " 'expand-syntax-once" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_178) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_178)))" -"(expand-once$1 s_178)))))))" -"(define-values(1/expand-to-top-form)(lambda(s_75)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_75)))))" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_0)))" +"(expand-once$1 s_0)))))))" +"(define-values(1/expand-to-top-form)(lambda(s_0)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_0)))))" "(define-values" "(1/expand-syntax-to-top-form)" -"(lambda(s_170)" +"(lambda(s_0)" "(begin" " 'expand-syntax-to-top-form" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_170)" -"(void)" -" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_170)))" -"(expand-to-top-form$1 s_170)))))))" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_0)))" +"(expand-to-top-form$1 s_0)))))))" "(define-values" "(intro)" -"(let-values(((intro3_0)" -"(lambda(given-s2_0 ns1_6)" +"(let-values(((intro3_21)" +"(lambda(given-s2_0 ns1_0)" "(begin" " 'intro3" -"(let-values(((given-s_1) given-s2_0))" -"(let-values(((ns_113)(if(eq? ns1_6 unsafe-undefined)(1/current-namespace) ns1_6)))" +"(let-values(((given-s_24) given-s2_0))" +"(let-values(((ns_25)(if(eq? ns1_0 unsafe-undefined)(1/current-namespace) ns1_0)))" "(let-values()" -"(let-values(((s_304)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" -"(1/namespace-syntax-introduce s_304 ns_113)))))))))" +"(let-values(((s_26)(if(syntax?$1 given-s_24) given-s_24(1/datum->syntax #f given-s_24))))" +"(1/namespace-syntax-introduce s_26 ns_25)))))))))" "(case-lambda" -"((given-s_2)(begin(intro3_0 given-s_2 unsafe-undefined)))" -"((given-s_3 ns1_7)(intro3_0 given-s_3 ns1_7)))))" +"((given-s_0)(begin(intro3_21 given-s_0 unsafe-undefined)))" +"((given-s_0 ns1_0)(intro3_21 given-s_0 ns1_0)))))" "(define-values" "(do-dynamic-require)" -"(let-values(((do-dynamic-require5_0)" -"(lambda(who2_0 mod-path3_1 sym4_0 fail-k1_0)" +"(let-values(((do-dynamic-require5_1)" +"(lambda(who2_0 mod-path3_0 sym4_0 fail-k1_0)" "(begin" " 'do-dynamic-require5" -"(let-values(((who_24) who2_0))" -"(let-values(((mod-path_5) mod-path3_1))" -"(let-values(((sym_71) sym4_0))" -"(let-values(((fail-k_2)" +"(let-values(((who_6) who2_0))" +"(let-values(((mod-path_7) mod-path3_0))" +"(let-values(((sym_8) sym4_0))" +"(let-values(((fail-k_9)" "(if(eq? fail-k1_0 unsafe-undefined)" " default-dynamic-require-fail-thunk" " fail-k1_0)))" "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_217)(1/module-path? mod-path_5)))" -"(if or-part_217" -" or-part_217" -"(let-values(((or-part_3)(1/module-path-index? mod-path_5)))" -"(if or-part_3 or-part_3(1/resolved-module-path? mod-path_5)))))" +"(if(let-values(((or-part_14)(1/module-path? mod-path_7)))" +"(if or-part_14" +" or-part_14" +"(let-values(((or-part_15)(1/module-path-index? mod-path_7)))" +"(if or-part_15" +" or-part_15" +"(1/resolved-module-path? mod-path_7)))))" "(void)" "(let-values()" "(raise-argument-error" -" who_24" +" who_6" " \"(or/c module-path? module-path-index? resolved-module-path?)\"" -" mod-path_5)))" +" mod-path_7)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_4)(symbol? sym_71)))" -"(if or-part_4" -" or-part_4" -"(let-values(((or-part_5)(not sym_71)))" -"(if or-part_5" -" or-part_5" -"(let-values(((or-part_6)(equal? sym_71 0)))" -"(if or-part_6 or-part_6(void? sym_71)))))))" +"(if(let-values(((or-part_16)(symbol? sym_8)))" +"(if or-part_16" +" or-part_16" +"(let-values(((or-part_17)(not sym_8)))" +"(if or-part_17" +" or-part_17" +"(let-values(((or-part_18)(equal? sym_8 0)))" +"(if or-part_18 or-part_18(void? sym_8)))))))" "(void)" "(let-values()" -" (raise-argument-error who_24 \"(or/c symbol? #f 0 void?)\" sym_71)))" +" (raise-argument-error who_6 \"(or/c symbol? #f 0 void?)\" sym_8)))" "(values))))" "(let-values((()" "(begin" -"(if(if(procedure? fail-k_2)" -"(procedure-arity-includes? fail-k_2 0)" +"(if(if(procedure? fail-k_9)" +"(procedure-arity-includes? fail-k_9 0)" " #f)" "(void)" -" (let-values () (raise-argument-error who_24 \"(-> any)\" fail-k_2)))" +" (let-values () (raise-argument-error who_6 \"(-> any)\" fail-k_9)))" "(values))))" -"(let-values(((ns_114)(1/current-namespace)))" -"(let-values(((mpi_46)" -"(if(1/module-path? mod-path_5)" -"(let-values()(1/module-path-index-join mod-path_5 #f))" -"(if(1/module-path-index? mod-path_5)" -"(let-values() mod-path_5)" +"(let-values(((ns_10)(1/current-namespace)))" +"(let-values(((mpi_11)" +"(if(1/module-path? mod-path_7)" +"(let-values()(1/module-path-index-join mod-path_7 #f))" +"(if(1/module-path-index? mod-path_7)" +"(let-values() mod-path_7)" "(let-values()" "(1/module-path-index-join" -"(resolved-module-path->module-path mod-path_5)" +"(resolved-module-path->module-path mod-path_7)" " #f))))))" -"(let-values(((mod-name_22)(1/module-path-index-resolve mpi_46 #t)))" -"(let-values(((phase_110)(namespace-phase ns_114)))" -"(if(not sym_71)" +"(let-values(((mod-name_12)(1/module-path-index-resolve mpi_11 #t)))" +"(let-values(((phase_13)(namespace-phase ns_10)))" +"(if(not sym_8)" "(let-values()" -"(let-values(((ns17_0) ns_114)" -"((mpi18_0) mpi_46)" -"((phase19_2) phase_110)" -"((phase20_1) phase_110)" -"((temp21_1) #f))" +"(let-values(((ns17_20) ns_10)" +"((mpi18_21) mpi_11)" +"((phase19_22) phase_13)" +"((phase20_23) phase_13)" +"((temp21_24) #f))" "(namespace-module-instantiate!96.1" -" temp21_1" -" phase20_1" +" temp21_24" +" phase20_23" " unsafe-undefined" " #f" -" ns17_0" -" mpi18_0" -" phase19_2)))" -"(if(equal? sym_71 0)" +" ns17_20" +" mpi18_21" +" phase19_22)))" +"(if(equal? sym_8 0)" "(let-values()" -"(let-values(((ns22_0) ns_114)" -"((mpi23_0) mpi_46)" -"((phase24_3) phase_110)" -"((phase25_0) phase_110))" +"(let-values(((ns22_26) ns_10)" +"((mpi23_27) mpi_11)" +"((phase24_28) phase_13)" +"((phase25_29) phase_13))" "(namespace-module-instantiate!96.1" " #t" -" phase25_0" +" phase25_29" " unsafe-undefined" " #f" -" ns22_0" -" mpi23_0" -" phase24_3)))" -"(if(void? sym_71)" +" ns22_26" +" mpi23_27" +" phase24_28)))" +"(if(void? sym_8)" "(let-values()" -"(let-values(((ns26_0) ns_114)" -"((mpi27_0) mpi_46)" -"((phase28_4) phase_110)" -"((phase29_0) phase_110))" +"(let-values(((ns26_31) ns_10)" +"((mpi27_32) mpi_11)" +"((phase28_33) phase_13)" +"((phase29_34) phase_13))" "(namespace-module-visit!104.1" -" phase29_0" -" ns26_0" -" mpi27_0" -" phase28_4)))" +" phase29_34" +" ns26_31" +" mpi27_32" +" phase28_33)))" "(let-values()" -"(let-values(((m_22)(namespace->module ns_114 mod-name_22)))" +"(let-values(((m_35)(namespace->module ns_10 mod-name_12)))" "(let-values((()" "(begin" -"(if m_22" +"(if m_35" "(void)" "(let-values()" "(raise-unknown-module-error" " 'dynamic-require" -" mod-name_22)))" +" mod-name_12)))" "(values))))" -"(let-values(((binding/p_5)" +"(let-values(((binding/p_36)" "(hash-ref" -"(hash-ref(module-provides m_22) 0 '#hasheq())" -" sym_71" +"(hash-ref(module-provides m_35) 0 '#hasheq())" +" sym_8" " #f)))" -"(if(not binding/p_5)" +"(if(not binding/p_36)" "(let-values()" -"(if(eq? fail-k_2 default-dynamic-require-fail-thunk)" +"(if(eq? fail-k_9 default-dynamic-require-fail-thunk)" "(raise-arguments-error" " 'dynamic-require" " \"name is not provided\"" " \"name\"" -" sym_71" +" sym_8" " \"module\"" -" mod-name_22)" -"(fail-k_2)))" +" mod-name_12)" +"(fail-k_9)))" "(let-values()" -"(let-values(((binding_5)" -"(provided-as-binding binding/p_5)))" -"(let-values(((ex-sym_2)" -"(module-binding-sym binding_5)))" -"(let-values(((ex-phase_0)" -"(module-binding-phase binding_5)))" +"(let-values(((binding_37)" +"(provided-as-binding binding/p_36)))" +"(let-values(((ex-sym_38)" +"(module-binding-sym binding_37)))" +"(let-values(((ex-phase_39)" +"(module-binding-phase binding_37)))" "(let-values((()" "(begin" -"(let-values(((ns30_2) ns_114)" -"((mpi31_0) mpi_46)" -"((phase32_1) phase_110)" -"((phase33_1) phase_110)" -"((temp34_4) #f))" +"(let-values(((ns30_46) ns_10)" +"((mpi31_47) mpi_11)" +"((phase32_48) phase_13)" +"((phase33_49) phase_13)" +"((temp34_50) #f))" "(namespace-module-instantiate!96.1" -" temp34_4" -" phase33_1" +" temp34_50" +" phase33_49" " unsafe-undefined" " #f" -" ns30_2" -" mpi31_0" -" phase32_1))" +" ns30_46" +" mpi31_47" +" phase32_48))" "(values))))" -"(let-values(((ex-mod-name_0)" +"(let-values(((ex-mod-name_40)" "(1/module-path-index-resolve" "(module-path-index-shift" -"(module-binding-module binding_5)" -"(module-self m_22)" -" mpi_46))))" -"(let-values(((m-ns_16)" -"(let-values(((ns35_0) ns_114)" -"((ex-mod-name36_0)" -" ex-mod-name_0)" -"((temp37_1)" +"(module-binding-module binding_37)" +"(module-self m_35)" +" mpi_11))))" +"(let-values(((m-ns_41)" +"(let-values(((ns35_52) ns_10)" +"((ex-mod-name36_53)" +" ex-mod-name_40)" +"((temp37_54)" "(phase-" -" phase_110" -" ex-phase_0))" -"((temp38_3) #t))" +" phase_13" +" ex-phase_39))" +"((temp38_55) #t))" "(namespace->module-namespace82.1" " #f" -" temp38_3" +" temp38_55" " unsafe-undefined" -" ns35_0" -" ex-mod-name36_0" -" temp37_1))))" -"(let-values(((ex-m_0)" +" ns35_52" +" ex-mod-name36_53" +" temp37_54))))" +"(let-values(((ex-m_42)" "(namespace->module" -" ns_114" -" ex-mod-name_0)))" -"(let-values(((access_4)" -"(let-values(((or-part_30)" +" ns_10" +" ex-mod-name_40)))" +"(let-values(((access_43)" +"(let-values(((or-part_56)" "(module-access" -" ex-m_0)))" -"(if or-part_30" -" or-part_30" +" ex-m_42)))" +"(if or-part_56" +" or-part_56" "(module-compute-access!" -" ex-m_0)))))" +" ex-m_42)))))" "(let-values((()" "(begin" "(if(if(not" @@ -46452,24 +46675,24 @@ static const char *startup_source = " 'provided" "(hash-ref" "(hash-ref" -" access_4" -" ex-phase_0" +" access_43" +" ex-phase_39" " '#hasheq())" -" ex-sym_2" +" ex-sym_38" " #f)))" "(if(not" "(inspector-superior?" "(current-code-inspector)" "(namespace-inspector" -" m-ns_16)))" +" m-ns_41)))" "(not" "(if(module-binding-extra-inspector" -" binding_5)" +" binding_37)" "(inspector-superior?" "(module-binding-extra-inspector" -" binding_5)" +" binding_37)" "(namespace-inspector" -" m-ns_16))" +" m-ns_41))" " #f))" " #f)" " #f)" @@ -46478,77 +46701,77 @@ static const char *startup_source = " 'dynamic-require" " \"name is protected\"" " \"name\"" -" sym_71" +" sym_8" " \"module\"" -" mod-name_22))" +" mod-name_12))" "(void))" "(values))))" -"(let-values(((fail_1)" +"(let-values(((fail_44)" "(lambda()" "(begin" " 'fail" "(if(eq?" -" fail-k_2" +" fail-k_9" " default-dynamic-require-fail-thunk)" "(raise-arguments-error" " 'dynamic-require" " \"name's binding is missing\"" " \"name\"" -" sym_71" +" sym_8" " \"module\"" -" mod-name_22)" -"(fail-k_2))))))" +" mod-name_12)" +"(fail-k_9))))))" "(if(not" "(provided-as-transformer?" -" binding/p_5))" +" binding/p_36))" "(let-values()" "(namespace-get-variable" -" m-ns_16" -" ex-phase_0" -" ex-sym_2" -" fail_1))" +" m-ns_41" +" ex-phase_39" +" ex-sym_38" +" fail_44))" "(let-values()" -"(let-values(((missing_1)" +"(let-values(((missing_57)" "(gensym 'missing)))" "(let-values((()" "(begin" -"(let-values(((ns39_0)" -" ns_114)" -"((mpi40_0)" -" mpi_46)" -"((phase41_1)" -" phase_110)" -"((phase42_0)" -" phase_110))" +"(let-values(((ns39_60)" +" ns_10)" +"((mpi40_61)" +" mpi_11)" +"((phase41_62)" +" phase_13)" +"((phase42_63)" +" phase_13))" "(namespace-module-visit!104.1" -" phase42_0" -" ns39_0" -" mpi40_0" -" phase41_1))" +" phase42_63" +" ns39_60" +" mpi40_61" +" phase41_62))" "(values))))" "(let-values(((t_58)" "(namespace-get-transformer" -" m-ns_16" -" ex-phase_0" -" ex-sym_2" -" missing_1)))" -"(if(eq? t_58 missing_1)" -"(let-values()(fail_1))" +" m-ns_41" +" ex-phase_39" +" ex-sym_38" +" missing_57)))" +"(if(eq? t_58 missing_57)" +"(let-values()(fail_44))" "(let-values()" -"(let-values(((tmp-ns_0)" -"(let-values(((ns43_0)" -" ns_114))" +"(let-values(((tmp-ns_64)" +"(let-values(((ns43_66)" +" ns_10))" "(new-namespace8.1" " #t" " unsafe-undefined" -" ns43_0))))" -"(let-values(((mod-path_16)" +" ns43_66))))" +"(let-values(((mod-path_65)" "(resolved-module-path->module-path" -" mod-name_22)))" +" mod-name_12)))" "(begin" "(1/namespace-require" -" mod-path_16" -" tmp-ns_0)" +" mod-path_65" +" tmp-ns_64)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -46556,42 +46779,43 @@ static const char *startup_source = " #f" " parameterization-key)" " 1/current-namespace" -" tmp-ns_0)" +" tmp-ns_64)" "(let-values()" "(1/eval" -" sym_71" -" tmp-ns_0))))))))))))))))))))))))))))))))))))))))))))))))" +" sym_8" +" tmp-ns_64))))))))))))))))))))))))))))))))))))))))))))))))" "(case-lambda" -"((who_25 mod-path_17 sym_88)(begin(do-dynamic-require5_0 who_25 mod-path_17 sym_88 unsafe-undefined)))" -"((who_26 mod-path_18 sym_89 fail-k1_1)(do-dynamic-require5_0 who_26 mod-path_18 sym_89 fail-k1_1)))))" +"((who_0 mod-path_0 sym_0)(begin(do-dynamic-require5_1 who_0 mod-path_0 sym_0 unsafe-undefined)))" +"((who_0 mod-path_0 sym_0 fail-k1_0)(do-dynamic-require5_1 who_0 mod-path_0 sym_0 fail-k1_0)))))" " (define-values (default-dynamic-require-fail-thunk) (lambda () (begin (error \"failed\"))))" "(define-values" "(1/dynamic-require)" -"(let-values(((dynamic-require10_0)" -"(lambda(mod-path8_3 sym9_0 fail-k7_0)" +"(let-values(((dynamic-require10_74)" +"(lambda(mod-path8_0 sym9_0 fail-k7_0)" "(begin" " 'dynamic-require10" -"(let-values(((mod-path_19) mod-path8_3))" -"(let-values(((sym_90) sym9_0))" -"(let-values(((fail-k_3)" +"(let-values(((mod-path_78) mod-path8_0))" +"(let-values(((sym_79) sym9_0))" +"(let-values(((fail-k_80)" "(if(eq? fail-k7_0 unsafe-undefined)" " default-dynamic-require-fail-thunk" " fail-k7_0)))" "(let-values()" "(let-values()" -"(let-values()(do-dynamic-require 'dynamic-require mod-path_19 sym_90 fail-k_3)))))))))))" +"(let-values()" +"(do-dynamic-require 'dynamic-require mod-path_78 sym_79 fail-k_80)))))))))))" "(case-lambda" -"((mod-path_20 sym_91)(begin 'dynamic-require(dynamic-require10_0 mod-path_20 sym_91 unsafe-undefined)))" -"((mod-path_21 sym_92 fail-k7_1)(dynamic-require10_0 mod-path_21 sym_92 fail-k7_1)))))" +"((mod-path_0 sym_0)(begin 'dynamic-require(dynamic-require10_74 mod-path_0 sym_0 unsafe-undefined)))" +"((mod-path_0 sym_0 fail-k7_0)(dynamic-require10_74 mod-path_0 sym_0 fail-k7_0)))))" "(define-values" "(1/dynamic-require-for-syntax)" -"(let-values(((dynamic-require-for-syntax15_0)" +"(let-values(((dynamic-require-for-syntax15_87)" "(lambda(mod-path13_0 sym14_0 fail-k12_0)" "(begin" " 'dynamic-require-for-syntax15" -"(let-values(((mod-path_22) mod-path13_0))" -"(let-values(((sym_93) sym14_0))" -"(let-values(((fail-k_4)" +"(let-values(((mod-path_91) mod-path13_0))" +"(let-values(((sym_92) sym14_0))" +"(let-values(((fail-k_93)" "(if(eq? fail-k12_0 unsafe-undefined)" " default-dynamic-require-fail-thunk" " fail-k12_0)))" @@ -46603,18 +46827,18 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -"(let-values(((ns_115)(1/current-namespace)))" -"(namespace->namespace-at-phase ns_115(add1(namespace-phase ns_115)))))" +"(let-values(((ns_95)(1/current-namespace)))" +"(namespace->namespace-at-phase ns_95(add1(namespace-phase ns_95)))))" "(let-values()" "(do-dynamic-require" " 'dynamic-require-for-syntax" -" mod-path_22" -" sym_93" -" fail-k_4)))))))))))))" +" mod-path_91" +" sym_92" +" fail-k_93)))))))))))))" "(case-lambda" -"((mod-path_23 sym_94)" -"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax15_0 mod-path_23 sym_94 unsafe-undefined)))" -"((mod-path_24 sym_95 fail-k12_1)(dynamic-require-for-syntax15_0 mod-path_24 sym_95 fail-k12_1)))))" +"((mod-path_0 sym_0)" +"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax15_87 mod-path_0 sym_0 unsafe-undefined)))" +"((mod-path_0 sym_0 fail-k12_0)(dynamic-require-for-syntax15_87 mod-path_0 sym_0 fail-k12_0)))))" "(define-values" "(1/load)" "(lambda(s_0)" @@ -46626,79 +46850,79 @@ static const char *startup_source = "(begin" " (if (path-string? s_0) (void) (let-values () (raise-argument-error 'load \"path-string?\" s_0)))" "(values))))" -"(let-values(((p_51)(->path s_0)))" -"(call-with-current-load-relative-directory p_51(lambda()((1/current-load) p_51 #f))))))))))" +"(let-values(((p_3)(->path s_0)))" +"(call-with-current-load-relative-directory p_3(lambda()((1/current-load) p_3 #f))))))))))" "(define-values" "(1/load-extension)" -"(lambda(s_1)" +"(lambda(s_0)" "(begin" " 'load-extension" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(path-string? s_1)" +"(if(path-string? s_0)" "(void)" -" (let-values () (raise-argument-error 'load-extension \"path-string?\" s_1)))" +" (let-values () (raise-argument-error 'load-extension \"path-string?\" s_0)))" "(values))))" -"(let-values(((p_52)(->path s_1)))" -"(call-with-current-load-relative-directory p_52(lambda()((current-load-extension) p_52 #f))))))))))" +"(let-values(((p_6)(->path s_0)))" +"(call-with-current-load-relative-directory p_6(lambda()((current-load-extension) p_6 #f))))))))))" "(define-values" "(call-with-current-load-relative-directory)" -"(lambda(p_23 thunk_5)" +"(lambda(p_0 thunk_0)" "(begin" -"(let-values(((base_18 name_62 dir?_2)(split-path p_23)))" +"(let-values(((base_9 name_10 dir?_11)(split-path p_0)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-load-relative-directory" -"(if(eq? base_18 'relative)(current-directory)(path->complete-path base_18)))" -"(let-values()(thunk_5)))))))" +"(if(eq? base_9 'relative)(current-directory)(path->complete-path base_9)))" +"(let-values()(thunk_0)))))))" "(define-values" "(1/load/use-compiled)" -"(lambda(f_27)" +"(lambda(f_0)" "(begin" " 'load/use-compiled" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(path-string? f_27)" +"(if(path-string? f_0)" "(void)" -" (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" f_27)))" +" (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" f_0)))" "(values))))" -"(let-values(((p_39)(->path f_27)))((1/current-load/use-compiled) p_39 #f))))))))" +"(let-values(((p_14)(->path f_0)))((1/current-load/use-compiled) p_14 #f))))))))" "(define-values" "(embedded-load)" -"(lambda(start_41 end_31 str_24 as-predefined?_0)" +"(lambda(start_0 end_0 str_0 as-predefined?_0)" "(begin" -"(let-values(((s_170)" -"(if str_24" -" str_24" -"(let-values(((sp_0)(find-system-path 'exec-file)))" -"(let-values(((exe_0)(find-executable-path sp_0 #f)))" -"(let-values(((start_42)" -"(let-values(((or-part_298)(1/string->number start_41)))" -"(if or-part_298 or-part_298 0))))" -"(let-values(((end_32)" -"(let-values(((or-part_90)(1/string->number end_31)))" -"(if or-part_90 or-part_90 0))))" -"(let-values(((exe4_0) exe_0)" -"((temp5_5)" +"(let-values(((s_19)" +"(if str_0" +" str_0" +"(let-values(((sp_20)(find-system-path 'exec-file)))" +"(let-values(((exe_21)(find-executable-path sp_20 #f)))" +"(let-values(((start_22)" +"(let-values(((or-part_23)(1/string->number start_0)))" +"(if or-part_23 or-part_23 0))))" +"(let-values(((end_24)" +"(let-values(((or-part_25)(1/string->number end_0)))" +"(if or-part_25 or-part_25 0))))" +"(let-values(((exe4_26) exe_21)" +"((temp5_27)" "(lambda()" "(begin" " 'temp5" "(begin" -"(file-position(current-input-port) start_42)" -"(read-bytes(max 0(- end_32 start_42))))))))" -"(with-input-from-file45.1 'binary exe4_0 temp5_5)))))))))" -"(let-values(((p_53)(open-input-bytes s_170)))" -"((letrec-values(((loop_68)" +"(file-position(current-input-port) start_22)" +"(read-bytes(max 0(- end_24 start_22))))))))" +"(with-input-from-file45.1 'binary exe4_26 temp5_27)))))))))" +"(let-values(((p_28)(open-input-bytes s_19)))" +"((letrec-values(((loop_29)" "(lambda()" "(begin" " 'loop" -"(let-values(((e_74)" +"(let-values(((e_30)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -46711,8 +46935,8 @@ static const char *startup_source = " #t" " read-on-demand-source" " #t)" -"(let-values()(1/read p_53)))))" -"(if(eof-object? e_74)" +"(let-values()(1/read p_28)))))" +"(if(eof-object? e_30)" "(void)" "(let-values()" "(begin" @@ -46722,10 +46946,10 @@ static const char *startup_source = "(continuation-mark-set-first #f parameterization-key)" " current-module-declare-as-predefined" " as-predefined?_0)" -"(let-values()((1/current-eval) e_74)))" -"(loop_68)))))))))" -" loop_68)))))))" -"(define-values(->path)(lambda(s_78)(begin(if(string? s_78)(string->path s_78) s_78))))" +"(let-values()((1/current-eval) e_30)))" +"(loop_29)))))))))" +" loop_29)))))))" +"(define-values(->path)(lambda(s_0)(begin(if(string? s_0)(string->path s_0) s_0))))" "(define-values" "(find-main-collects)" "(lambda()" @@ -46742,48 +46966,48 @@ static const char *startup_source = "(let-values()(simplify-path collects-path_0))" "(if(absolute-path? collects-path_0)" "(let-values()" -"(let-values(((exec_0)" +"(let-values(((exec_2)" "(path->complete-path" "(find-executable-path(find-system-path 'exec-file))" "(find-system-path 'orig-dir))))" -"(let-values(((base_19 name_63 dir?_3)(split-path exec_0)))" -"(simplify-path(path->complete-path collects-path_0 base_19)))))" +"(let-values(((base_3 name_4 dir?_5)(split-path exec_2)))" +"(simplify-path(path->complete-path collects-path_0 base_3)))))" "(let-values()" -"(let-values(((p_52)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" -"(if p_52(simplify-path p_52) #f))))))))" +"(let-values(((p_6)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" +"(if p_6(simplify-path p_6) #f))))))))" "(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_27 s_189 l_4)" +"(lambda(who_0 s_0 l_0)" "(begin" "(begin" -"(if(relative-path-string? s_189)" +"(if(relative-path-string? s_0)" "(void)" -" (let-values () (raise-argument-error who_27 \"(and/c path-string? relative-path?)\" s_189)))" -"(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" +" (let-values () (raise-argument-error who_0 \"(and/c path-string? relative-path?)\" s_0)))" +"(if((lambda(l_1)(if(list? l_1)(andmap2 relative-path-string? l_1) #f)) l_0)" "(void)" -" (let-values () (raise-argument-error who_27 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" +" (let-values () (raise-argument-error who_0 \"(listof (and/c path-string? relative-path?))\" l_0)))))))" "(define-values" "(check-fail)" -"(lambda(who_24 fail_2)" +"(lambda(who_0 fail_0)" "(begin" -"(if((lambda(p_44)(if(procedure? p_44)(procedure-arity-includes? p_44 1) #f)) fail_2)" +"(if((lambda(p_0)(if(procedure? p_0)(procedure-arity-includes? p_0 1) #f)) fail_0)" "(void)" -" (let-values () (raise-argument-error who_24 \"(procedure-arity-includes/c 1)\" fail_2))))))" +" (let-values () (raise-argument-error who_0 \"(procedure-arity-includes/c 1)\" fail_0))))))" "(define-values" "(1/collection-path)" -"(lambda(fail_3 collection_0 collection-path_0)" +"(lambda(fail_0 collection_0 collection-path_0)" "(begin" " 'collection-path" "(let-values()" "(let-values()" "(begin" "(check-collection 'collection-path collection_0 collection-path_0)" -"(check-fail 'collection-path fail_3)" -"(find-col-file fail_3 collection_0 collection-path_0 #f #f)))))))" +"(check-fail 'collection-path fail_0)" +"(find-col-file fail_0 collection_0 collection-path_0 #f #f)))))))" "(define-values" "(1/collection-file-path)" -"(lambda(fail_4 check-compiled?_0 file-name_0 collection_1 collection-path_1)" +"(lambda(fail_0 check-compiled?_0 file-name_0 collection_0 collection-path_0)" "(begin" " 'collection-file-path" "(let-values()" @@ -46793,94 +47017,94 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'collection-file-path \"(and/c path-string? relative-path?)\" file-name_0)))" -"(check-collection 'collection-file-path collection_1 collection-path_1)" -"(check-fail 'collection-file-path fail_4)" -"(find-col-file fail_4 collection_1 collection-path_1 file-name_0 check-compiled?_0)))))))" +"(check-collection 'collection-file-path collection_0 collection-path_0)" +"(check-fail 'collection-file-path fail_0)" +"(find-col-file fail_0 collection_0 collection-path_0 file-name_0 check-compiled?_0)))))))" "(define-values" "(get-config-table)" -"(lambda(d_34)" +"(lambda(d_0)" "(begin" -" (let-values (((p_54) (if d_34 (build-path d_34 \"config.rktd\") #f)))" -"(let-values(((or-part_294)" -"(if p_54" -"(if(file-exists? p_54)" -"(let-values(((p7_1) p_54)" -"((temp8_1)" +" (let-values (((p_20) (if d_0 (build-path d_0 \"config.rktd\") #f)))" +"(let-values(((or-part_21)" +"(if p_20" +"(if(file-exists? p_20)" +"(let-values(((p7_22) p_20)" +"((temp8_23)" "(lambda()" "(begin" " 'temp8" -"(let-values(((v_2)(call-with-default-reading-parameterization 1/read)))" -"(if(hash? v_2) v_2 #f))))))" -"(with-input-from-file45.1 'binary p7_1 temp8_1))" +"(let-values(((v_24)(call-with-default-reading-parameterization 1/read)))" +"(if(hash? v_24) v_24 #f))))))" +"(with-input-from-file45.1 'binary p7_22 temp8_23))" " #f)" " #f)))" -"(if or-part_294 or-part_294 '#hash()))))))" +"(if or-part_21 or-part_21 '#hash()))))))" "(define-values" "(get-installation-name)" "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))" "(define-values" "(coerce-to-path)" -"(lambda(p_1)" +"(lambda(p_0)" "(begin" -"(if(string? p_1)" -"(let-values()(collects-relative-path->complete-path(string->path p_1)))" -"(if(bytes? p_1)" -"(let-values()(collects-relative-path->complete-path(bytes->path p_1)))" -"(if(path? p_1)(let-values()(collects-relative-path->complete-path p_1))(let-values() p_1)))))))" +"(if(string? p_0)" +"(let-values()(collects-relative-path->complete-path(string->path p_0)))" +"(if(bytes? p_0)" +"(let-values()(collects-relative-path->complete-path(bytes->path p_0)))" +"(if(path? p_0)(let-values()(collects-relative-path->complete-path p_0))(let-values() p_0)))))))" "(define-values" "(collects-relative-path->complete-path)" -"(lambda(p_55)" +"(lambda(p_0)" "(begin" -"(if(complete-path? p_55)" -"(let-values() p_55)" +"(if(complete-path? p_0)" +"(let-values() p_0)" "(let-values()" "(path->complete-path" -" p_55" -"(let-values(((or-part_72)(find-main-collects)))(if or-part_72 or-part_72(current-directory)))))))))" +" p_0" +"(let-values(((or-part_28)(find-main-collects)))(if or-part_28 or-part_28(current-directory)))))))))" "(define-values" "(add-config-search)" -"(lambda(ht_70 key_83 orig-l_9)" +"(lambda(ht_0 key_0 orig-l_0)" "(begin" -"(let-values(((l_79)(hash-ref ht_70 key_83 #f)))" -"(if l_79" -"((letrec-values(((loop_100)" -"(lambda(l_64)" +"(let-values(((l_32)(hash-ref ht_0 key_0 #f)))" +"(if l_32" +"((letrec-values(((loop_33)" +"(lambda(l_0)" "(begin" " 'loop" -"(if(null? l_64)" +"(if(null? l_0)" "(let-values() null)" -"(if(not(car l_64))" -"(let-values()(append orig-l_9(loop_100(cdr l_64))))" -"(let-values()(cons(coerce-to-path(car l_64))(loop_100(cdr l_64))))))))))" -" loop_100)" -" l_79)" -" orig-l_9)))))" +"(if(not(car l_0))" +"(let-values()(append orig-l_0(loop_33(cdr l_0))))" +"(let-values()(cons(coerce-to-path(car l_0))(loop_33(cdr l_0))))))))))" +" loop_33)" +" l_32)" +" orig-l_0)))))" "(define-values" "(1/find-library-collection-links)" "(lambda()" "(begin" " 'find-library-collection-links" -"(let-values(((ht_81)(get-config-table(find-main-config))))" -"(let-values(((lf_0)" +"(let-values(((ht_35)(get-config-table(find-main-config))))" +"(let-values(((lf_36)" "(coerce-to-path" -"(let-values(((or-part_80)(hash-ref ht_81 'links-file #f)))" -"(if or-part_80" -" or-part_80" +"(let-values(((or-part_37)(hash-ref ht_35 'links-file #f)))" +"(if or-part_37" +" or-part_37" "(build-path" -"(let-values(((or-part_81)(hash-ref ht_81 'share-dir #f)))" -" (if or-part_81 or-part_81 (build-path 'up \"share\")))" +"(let-values(((or-part_38)(hash-ref ht_35 'share-dir #f)))" +" (if or-part_38 or-part_38 (build-path 'up \"share\")))" " \"links.rktd\"))))))" "(append" "(list #f)" "(if(if(1/use-user-specific-search-paths)(1/use-collection-link-paths) #f)" -" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_81) \"links.rktd\"))" +" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_35) \"links.rktd\"))" " null)" -"(if(1/use-collection-link-paths)(add-config-search ht_81 'links-search-files(list lf_0)) null)))))))" +"(if(1/use-collection-link-paths)(add-config-search ht_35 'links-search-files(list lf_36)) null)))))))" "(define-values(links-cache)(make-weak-hash))" "(define-values(stamp-prompt-tag)(make-continuation-prompt-tag 'stamp))" "(define-values" "(file->stamp)" -"(lambda(path_7 old-stamp_0)" +"(lambda(path_0 old-stamp_0)" "(begin" "(if(if old-stamp_0(if(cdr old-stamp_0)(not(sync/timeout 0(cdr old-stamp_0))) #f) #f)" "(let-values() old-stamp_0)" @@ -46888,457 +47112,453 @@ static const char *startup_source = "(call-with-continuation-prompt" "(lambda()" "(call-with-exception-handler" -"(lambda(exn_1)" +"(lambda(exn_0)" "(abort-current-continuation" " stamp-prompt-tag" -"(if(exn:fail:filesystem? exn_1)(lambda() #f)(lambda()(raise exn_1)))))" +"(if(exn:fail:filesystem? exn_0)(lambda() #f)(lambda()(raise exn_0)))))" "(lambda()" -"(let-values(((dir-evt_0)" +"(let-values(((dir-evt_42)" "(if(vector-ref(system-type 'fs-change) 2)" -"((letrec-values(((loop_63)" -"(lambda(path_8)" +"((letrec-values(((loop_43)" +"(lambda(path_1)" "(begin" " 'loop" -"(let-values(((base_20 name_64 dir?_4)(split-path path_8)))" -"(if(path? base_20)" -"(if(directory-exists? base_20)" -"(filesystem-change-evt base_20(lambda() #f))" -"(loop_63 base_20))" +"(let-values(((base_45 name_46 dir?_47)(split-path path_1)))" +"(if(path? base_45)" +"(if(directory-exists? base_45)" +"(filesystem-change-evt base_45(lambda() #f))" +"(loop_43 base_45))" " #f))))))" -" loop_63)" -" path_7)" +" loop_43)" +" path_0)" " #f)))" -"(if(not(file-exists? path_7))" -"(let-values()(cons #f dir-evt_0))" +"(if(not(file-exists? path_0))" +"(let-values()(cons #f dir-evt_42))" "(let-values()" -"(let-values(((evt_0)" +"(let-values(((evt_48)" "(if(vector-ref(system-type 'fs-change) 2)" -"(filesystem-change-evt path_7(lambda() #f))" +"(filesystem-change-evt path_0(lambda() #f))" " #f)))" "(begin" -"(if dir-evt_0(let-values()(filesystem-change-evt-cancel dir-evt_0))(void))" -"(cons(file->bytes path_7) evt_0)))))))))" +"(if dir-evt_42(let-values()(filesystem-change-evt-cancel dir-evt_42))(void))" +"(cons(file->bytes path_0) evt_48)))))))))" " stamp-prompt-tag))))))" "(define-values" "(file->bytes)" -"(lambda(path_9)" +"(lambda(path_0)" "(begin" -"(let-values(((path9_0) path_9)" -"((temp10_4)" -"(lambda(p_56)" +"(let-values(((path9_50) path_0)" +"((temp10_51)" +"(lambda(p_0)" "(begin" " 'temp10" -"(let-values(((bstr_1)(read-bytes 8192 p_56)))" -"(if(if(bytes? bstr_1)(>=(bytes-length bstr_1) 8192) #f)" +"(let-values(((bstr_53)(read-bytes 8192 p_0)))" +"(if(if(bytes? bstr_53)(>=(bytes-length bstr_53) 8192) #f)" "(apply" " bytes-append" "(cons" -" bstr_1" -"((letrec-values(((loop_97)" +" bstr_53" +"((letrec-values(((loop_54)" "(lambda()" "(begin" " 'loop" -"(let-values(((bstr_2)(read-bytes 8192 p_56)))" -"(if(eof-object? bstr_2) null(cons bstr_2(loop_97))))))))" -" loop_97))))" -" bstr_1))))))" -"(call-with-input-file*61.1 'binary path9_0 temp10_4)))))" +"(let-values(((bstr_55)(read-bytes 8192 p_0)))" +"(if(eof-object? bstr_55) null(cons bstr_55(loop_54))))))))" +" loop_54))))" +" bstr_53))))))" +"(call-with-input-file*61.1 'binary path9_50 temp10_51)))))" "(define-values" "(no-file-stamp?)" -"(lambda(a_68)(begin(let-values(((or-part_31)(not a_68)))(if or-part_31 or-part_31(not(car a_68)))))))" +"(lambda(a_0)(begin(let-values(((or-part_57)(not a_0)))(if or-part_57 or-part_57(not(car a_0)))))))" "(define-values" "(get-linked-collections)" "(lambda(links-path_0)" "(begin" "(call/ec" -"(lambda(esc_1)" -"(let-values(((make-handler_0)" +"(lambda(esc_0)" +"(let-values(((make-handler_60)" "(lambda(ts_0)" "(begin" " 'make-handler" -"(lambda(exn_2)" +"(lambda(exn_0)" "(begin" -"(if(exn:fail? exn_2)" -"(let-values(((l_80)(current-logger)))" -"(if(log-level? l_80 'error)" +"(if(exn:fail? exn_0)" +"(let-values(((l_63)(current-logger)))" +"(if(log-level? l_63 'error)" "(let-values()" "(log-message" -" l_80" +" l_63" " 'error" "(format" " \"error reading collection links file ~s: ~a\"" " links-path_0" -"(exn-message exn_2))" +"(exn-message exn_0))" "(current-continuation-marks)))" "(void)))" "(void))" "(if ts_0" "(let-values()(hash-set! links-cache links-path_0(cons ts_0 '#hasheq())))" "(void))" -"(if(exn:fail? exn_2)(esc_1(make-hasheq)) exn_2)))))))" +"(if(exn:fail? exn_0)(esc_0(make-hasheq)) exn_0)))))))" "(call-with-exception-handler" -"(make-handler_0 #f)" +"(make-handler_60 #f)" "(lambda()" -"(let-values(((links-stamp+cache_0)(hash-ref links-cache links-path_0 '(#f . #hasheq()))))" -"(let-values(((a-links-stamp_0)(car links-stamp+cache_0)))" -"(let-values(((ts_1)(file->stamp links-path_0 a-links-stamp_0)))" -"(if(equal? ts_1 a-links-stamp_0)" -"(let-values()(cdr links-stamp+cache_0))" +"(let-values(((links-stamp+cache_64)(hash-ref links-cache links-path_0 '(#f . #hasheq()))))" +"(let-values(((a-links-stamp_65)(car links-stamp+cache_64)))" +"(let-values(((ts_66)(file->stamp links-path_0 a-links-stamp_65)))" +"(if(equal? ts_66 a-links-stamp_65)" +"(let-values()(cdr links-stamp+cache_64))" "(let-values()" "(call-with-exception-handler" -"(make-handler_0 ts_1)" +"(make-handler_60 ts_66)" "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_195)" -"(if(no-file-stamp? ts_1)" +"(let-values(((v_67)" +"(if(no-file-stamp? ts_66)" " null" -"(let-values(((links-path11_0) links-path_0)" -"((temp12_3)" -"(lambda(p_30)" +"(let-values(((links-path11_70) links-path_0)" +"((temp12_71)" +"(lambda(p_0)" "(begin" " 'temp12" "(begin0" -"(1/read p_30)" -"(if(eof-object?(1/read p_30))" +"(1/read p_0)" +"(if(eof-object?(1/read p_0))" "(void)" "(let-values()" " (error \"expected a single S-expression\"))))))))" -"(call-with-input-file*61.1 'binary links-path11_0 temp12_3)))))" +"(call-with-input-file*61.1 'binary links-path11_70 temp12_71)))))" "(let-values((()" "(begin" -"(if(if(list? v_195)" +"(if(if(list? v_67)" "(andmap2" -"(lambda(p_57)" -"(if(list? p_57)" -"(if(let-values(((or-part_226)(= 2(length p_57))))" -"(if or-part_226 or-part_226(= 3(length p_57))))" -"(if(let-values(((or-part_300)(string?(car p_57))))" -"(if or-part_300" -" or-part_300" -"(let-values(((or-part_301)" -"(eq? 'root(car p_57))))" -"(if or-part_301" -" or-part_301" -"(eq? 'static-root(car p_57))))))" -"(if(path-string?(cadr p_57))" -"(let-values(((or-part_302)(null?(cddr p_57))))" -"(if or-part_302 or-part_302(regexp?(caddr p_57))))" +"(lambda(p_0)" +"(if(list? p_0)" +"(if(let-values(((or-part_74)(= 2(length p_0))))" +"(if or-part_74 or-part_74(= 3(length p_0))))" +"(if(let-values(((or-part_75)(string?(car p_0))))" +"(if or-part_75" +" or-part_75" +"(let-values(((or-part_76)(eq? 'root(car p_0))))" +"(if or-part_76" +" or-part_76" +"(eq? 'static-root(car p_0))))))" +"(if(path-string?(cadr p_0))" +"(let-values(((or-part_77)(null?(cddr p_0))))" +"(if or-part_77 or-part_77(regexp?(caddr p_0))))" " #f)" " #f)" " #f)" " #f))" -" v_195)" +" v_67)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" "(values))))" -"(let-values(((ht_151)(make-hasheq)))" -"(let-values(((dir_0)" -"(let-values(((base_21 name_65 dir?_5)(split-path links-path_0)))" -" base_21)))" +"(let-values(((ht_68)(make-hasheq)))" +"(let-values(((dir_69)" +"(let-values(((base_78 name_79 dir?_80)(split-path links-path_0)))" +" base_78)))" "(begin" "(for-each2" -"(lambda(p_58)" -"(if(let-values(((or-part_266)(null?(cddr p_58))))" -"(if or-part_266 or-part_266(regexp-match?(caddr p_58)(version))))" +"(lambda(p_0)" +"(if(let-values(((or-part_82)(null?(cddr p_0))))" +"(if or-part_82 or-part_82(regexp-match?(caddr p_0)(version))))" "(let-values()" -"(let-values(((dir_1)" -"(simplify-path(path->complete-path(cadr p_58) dir_0))))" -"(if(eq?(car p_58) 'static-root)" +"(let-values(((dir_83)" +"(simplify-path(path->complete-path(cadr p_0) dir_69))))" +"(if(eq?(car p_0) 'static-root)" "(let-values()" "(for-each2" -"(lambda(sub_1)" -"(if(directory-exists?(build-path dir_1 sub_1))" +"(lambda(sub_0)" +"(if(directory-exists?(build-path dir_83 sub_0))" "(let-values()" -"(let-values(((k_38)(string->symbol(path->string sub_1))))" +"(let-values(((k_85)(string->symbol(path->string sub_0))))" "(hash-set!" -" ht_151" -" k_38" -"(cons dir_1(hash-ref ht_151 k_38 null)))))" +" ht_68" +" k_85" +"(cons dir_83(hash-ref ht_68 k_85 null)))))" "(void)))" -"(directory-list dir_1)))" -"(if(eq?(car p_58) 'root)" +"(directory-list dir_83)))" +"(if(eq?(car p_0) 'root)" "(let-values()" "(begin" -"(if(hash-ref ht_151 #f #f)" +"(if(hash-ref ht_68 #f #f)" "(void)" -"(let-values()(hash-set! ht_151 #f null)))" +"(let-values()(hash-set! ht_68 #f null)))" "(hash-for-each" -" ht_151" -"(lambda(k_39 v_196)" -"(hash-set! ht_151 k_39(cons dir_1 v_196))))))" +" ht_68" +"(lambda(k_0 v_0)(hash-set! ht_68 k_0(cons dir_83 v_0))))))" "(let-values()" -"(let-values(((s_486)(string->symbol(car p_58))))" +"(let-values(((s_88)(string->symbol(car p_0))))" "(hash-set!" -" ht_151" -" s_486" -"(cons(box dir_1)(hash-ref ht_151 s_486 null)))))))))" +" ht_68" +" s_88" +"(cons(box dir_83)(hash-ref ht_68 s_88 null)))))))))" "(void)))" -" v_195)" -"(hash-for-each" -" ht_151" -"(lambda(k_40 v_197)(hash-set! ht_151 k_40(reverse$1 v_197))))" -"(hash-set! links-cache links-path_0(cons ts_1 ht_151))" -" ht_151))))))))))))))))))))))" +" v_67)" +"(hash-for-each ht_68(lambda(k_0 v_0)(hash-set! ht_68 k_0(reverse$1 v_0))))" +"(hash-set! links-cache links-path_0(cons ts_66 ht_68))" +" ht_68))))))))))))))))))))))" "(define-values" "(normalize-collection-reference)" -"(lambda(collection_2 collection-path_2)" +"(lambda(collection_0 collection-path_0)" "(begin" -"(if(string? collection_2)" +"(if(string? collection_0)" "(let-values()" -" (let-values (((m_23) (regexp-match-positions '#rx\"/+\" collection_2)))" -"(if m_23" -"(if(=(caar m_23)(sub1(string-length collection_2)))" -"(let-values()(values(substring collection_2 0(caar m_23)) collection-path_2))" +" (let-values (((m_93) (regexp-match-positions '#rx\"/+\" collection_0)))" +"(if m_93" +"(if(=(caar m_93)(sub1(string-length collection_0)))" +"(let-values()(values(substring collection_0 0(caar m_93)) collection-path_0))" "(let-values()" "(values" -"(substring collection_2 0(caar m_23))" -"(cons(substring collection_2(cdar m_23)) collection-path_2))))" -"(values collection_2 collection-path_2))))" +"(substring collection_0 0(caar m_93))" +"(cons(substring collection_0(cdar m_93)) collection-path_0))))" +"(values collection_0 collection-path_0))))" "(let-values()" -"(let-values(((base_22 name_66 dir?_6)(split-path collection_2)))" -"(if(eq? base_22 'relative)" -"(values name_66 collection-path_2)" -"(normalize-collection-reference base_22(cons name_66 collection-path_2)))))))))" +"(let-values(((base_94 name_95 dir?_96)(split-path collection_0)))" +"(if(eq? base_94 'relative)" +"(values name_95 collection-path_0)" +"(normalize-collection-reference base_94(cons name_95 collection-path_0)))))))))" "(define-values" "(find-col-file)" -"(lambda(fail_5 collection-in_0 collection-path-in_0 file-name_1 check-compiled?_1)" +"(lambda(fail_0 collection-in_0 collection-path-in_0 file-name_0 check-compiled?_0)" "(begin" -"(let-values(((collection_3 collection-path_3)" +"(let-values(((collection_102 collection-path_103)" "(normalize-collection-reference collection-in_0 collection-path-in_0)))" -"(let-values(((all-paths_0)" -"(let-values(((sym_96)" +"(let-values(((all-paths_104)" +"(let-values(((sym_109)" "(string->symbol" -"(if(path? collection_3)(path->string collection_3) collection_3))))" -"((letrec-values(((loop_47)" -"(lambda(l_81)" +"(if(path? collection_102)(path->string collection_102) collection_102))))" +"((letrec-values(((loop_110)" +"(lambda(l_0)" "(begin" " 'loop" -"(if(null? l_81)" +"(if(null? l_0)" "(let-values() null)" -"(if(not(car l_81))" +"(if(not(car l_0))" "(let-values()" -"(append(1/current-library-collection-paths)(loop_47(cdr l_81))))" -"(if(hash?(car l_81))" +"(append(1/current-library-collection-paths)(loop_110(cdr l_0))))" +"(if(hash?(car l_0))" "(let-values()" "(append" -"(map2 box(hash-ref(car l_81) sym_96 null))" -"(hash-ref(car l_81) #f null)" -"(loop_47(cdr l_81))))" +"(map2 box(hash-ref(car l_0) sym_109 null))" +"(hash-ref(car l_0) #f null)" +"(loop_110(cdr l_0))))" "(let-values()" -"(let-values(((ht_152)(get-linked-collections(car l_81))))" +"(let-values(((ht_112)(get-linked-collections(car l_0))))" "(append" -"(hash-ref ht_152 sym_96 null)" -"(hash-ref ht_152 #f null)" -"(loop_47(cdr l_81))))))))))))" -" loop_47)" +"(hash-ref ht_112 sym_109 null)" +"(hash-ref ht_112 #f null)" +"(loop_110(cdr l_0))))))))))))" +" loop_110)" "(1/current-library-collection-links)))))" -"(let-values(((done_0)(lambda(p_59)(begin 'done(if file-name_1(build-path p_59 file-name_1) p_59)))))" -"(let-values(((*build-path-rep_0)" -"(lambda(p_60 c_55)" -"(begin '*build-path-rep(if(path? p_60)(build-path p_60 c_55)(unbox p_60))))))" -"(let-values(((*directory-exists?_0)" -"(lambda(orig_0 p_41)" -"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_41) #t)))))" -"(let-values(((to-string_0)" -"(lambda(p_61)(begin 'to-string(if(path? p_61)(path->string p_61) p_61)))))" -"((letrec-values(((cloop_0)" -"(lambda(paths_1 found-col_0)" +"(let-values(((done_105)(lambda(p_0)(begin 'done(if file-name_0(build-path p_0 file-name_0) p_0)))))" +"(let-values(((*build-path-rep_106)" +"(lambda(p_0 c_0)" +"(begin '*build-path-rep(if(path? p_0)(build-path p_0 c_0)(unbox p_0))))))" +"(let-values(((*directory-exists?_107)" +"(lambda(orig_0 p_0)" +"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_0) #t)))))" +"(let-values(((to-string_108)" +"(lambda(p_0)(begin 'to-string(if(path? p_0)(path->string p_0) p_0)))))" +"((letrec-values(((cloop_119)" +"(lambda(paths_0 found-col_0)" "(begin" " 'cloop" -"(if(null? paths_1)" +"(if(null? paths_0)" "(if found-col_0" -"(done_0 found-col_0)" -"(let-values(((rest-coll_0)" -"(if(null? collection-path_3)" +"(done_105 found-col_0)" +"(let-values(((rest-coll_122)" +"(if(null? collection-path_103)" " \"\"" "(apply" " string-append" -"((letrec-values(((loop_101)" +"((letrec-values(((loop_123)" "(lambda(cp_0)" "(begin" " 'loop" "(if(null?(cdr cp_0))" -"(list(to-string_0(car cp_0)))" +"(list(to-string_108(car cp_0)))" "(list*" -"(to-string_0(car cp_0))" +"(to-string_108(car cp_0))" " \"/\"" -"(loop_101(cdr cp_0))))))))" -" loop_101)" -" collection-path_3)))))" -"(letrec-values(((filter_1)" -"(lambda(f_40 l_82)" +"(loop_123(cdr cp_0))))))))" +" loop_123)" +" collection-path_103)))))" +"(letrec-values(((filter_125)" +"(lambda(f_0 l_0)" "(begin" " 'filter" -"(if(null? l_82)" +"(if(null? l_0)" " null" -"(if(f_40(car l_82))" -"(cons(car l_82)(filter_1 f_40(cdr l_82)))" -"(filter_1 f_40(cdr l_82))))))))" -"(fail_5" +"(if(f_0(car l_0))" +"(cons(car l_0)(filter_125 f_0(cdr l_0)))" +"(filter_125 f_0(cdr l_0))))))))" +"(fail_0" "(format" " \"collection not found\\n collection: ~s\\n in collection directories:~a~a\"" -"(if(null? collection-path_3)" -"(to-string_0 collection_3)" -" (string-append (to-string_0 collection_3) \"/\" rest-coll_0))" +"(if(null? collection-path_103)" +"(to-string_108 collection_102)" +" (string-append (to-string_108 collection_102) \"/\" rest-coll_122))" "(apply" " string-append" "(map2" -" (lambda (p_62) (format \"\\n ~a ~a\" \" \" p_62))" -"(let-values(((len_34)(length all-paths_0))" -"((clen_0)" +" (lambda (p_0) (format \"\\n ~a ~a\" \" \" p_0))" +"(let-values(((len_129)(length all-paths_104))" +"((clen_130)" "(length(1/current-library-collection-paths))))" -"(if(<(- len_34 clen_0) 5)" -" all-paths_0" +"(if(<(- len_129 clen_130) 5)" +" all-paths_104" "(append" "(1/current-library-collection-paths)" "(list" "(format" " \"... [~a additional linked and package directories]\"" -"(- len_34 clen_0))))))))" -"(if(ormap2 box? all-paths_0)" +"(- len_129 clen_130))))))))" +"(if(ormap2 box? all-paths_104)" "(format" " \"\\n sub-collection: ~s\\n in parent directories:~a\"" -" rest-coll_0" +" rest-coll_122" "(apply" " string-append" "(map2" -" (lambda (p_63) (format \"\\n ~a\" (unbox p_63)))" -"(filter_1 box? all-paths_0))))" +" (lambda (p_0) (format \"\\n ~a\" (unbox p_0)))" +"(filter_125 box? all-paths_104))))" " \"\"))))))" -"(let-values(((dir_2)(*build-path-rep_0(car paths_1) collection_3)))" -"(if(*directory-exists?_0(car paths_1) dir_2)" -"(let-values(((cpath_0)(apply build-path dir_2 collection-path_3)))" -"(if(if(null? collection-path_3) #t(directory-exists? cpath_0))" -"(if file-name_1" -"(if(let-values(((or-part_303)" +"(let-values(((dir_132)(*build-path-rep_106(car paths_0) collection_102)))" +"(if(*directory-exists?_107(car paths_0) dir_132)" +"(let-values(((cpath_133)(apply build-path dir_132 collection-path_103)))" +"(if(if(null? collection-path_103) #t(directory-exists? cpath_133))" +"(if file-name_0" +"(if(let-values(((or-part_134)" "(file-exists?/maybe-compiled" -" cpath_0" -" file-name_1" -" check-compiled?_1)))" -"(if or-part_303" -" or-part_303" -"(let-values(((alt-file-name_0)" -"(let-values(((file-name_2)" -"(if(path? file-name_1)" -"(path->string file-name_1)" -" file-name_1)))" -"(let-values(((len_35)" -"(string-length file-name_2)))" -"(if(>= len_35 4)" +" cpath_133" +" file-name_0" +" check-compiled?_0)))" +"(if or-part_134" +" or-part_134" +"(let-values(((alt-file-name_135)" +"(let-values(((file-name_136)" +"(if(path? file-name_0)" +"(path->string file-name_0)" +" file-name_0)))" +"(let-values(((len_137)" +"(string-length" +" file-name_136)))" +"(if(>= len_137 4)" "(if(string=?" " \".rkt\"" "(substring" -" file-name_2" -"(- len_35 4)))" +" file-name_136" +"(- len_137 4)))" "(string-append" "(substring" -" file-name_2" +" file-name_136" " 0" -"(- len_35 4))" +"(- len_137 4))" " \".ss\")" " #f)" " #f)))))" -"(if alt-file-name_0" +"(if alt-file-name_135" "(file-exists?/maybe-compiled" -" cpath_0" -" alt-file-name_0" -" check-compiled?_1)" +" cpath_133" +" alt-file-name_135" +" check-compiled?_0)" " #f))))" -"(done_0 cpath_0)" -"(cloop_0" -"(cdr paths_1)" -"(let-values(((or-part_100) found-col_0))" -"(if or-part_100 or-part_100 cpath_0))))" -"(done_0 cpath_0))" -"(cloop_0(cdr paths_1) found-col_0)))" -"(cloop_0(cdr paths_1) found-col_0))))))))" -" cloop_0)" -" all-paths_0" +"(done_105 cpath_133)" +"(cloop_119" +"(cdr paths_0)" +"(let-values(((or-part_138) found-col_0))" +"(if or-part_138 or-part_138 cpath_133))))" +"(done_105 cpath_133))" +"(cloop_119(cdr paths_0) found-col_0)))" +"(cloop_119(cdr paths_0) found-col_0))))))))" +" cloop_119)" +" all-paths_104" " #f))))))))))" "(define-values" "(file-exists?/maybe-compiled)" -"(lambda(dir_3 path_10 check-compiled?_2)" +"(lambda(dir_0 path_0 check-compiled?_0)" "(begin" -"(let-values(((or-part_101)(file-exists?(build-path dir_3 path_10))))" -"(if or-part_101" -" or-part_101" -"(if check-compiled?_2" -" (let-values (((try-path_0) (path-add-extension path_10 #\".zo\"))" -"((modes_0)(1/use-compiled-file-paths))" -"((roots_0)(1/current-compiled-file-roots)))" +"(let-values(((or-part_142)(file-exists?(build-path dir_0 path_0))))" +"(if or-part_142" +" or-part_142" +"(if check-compiled?_0" +" (let-values (((try-path_143) (path-add-extension path_0 #\".zo\"))" +"((modes_144)(1/use-compiled-file-paths))" +"((roots_145)(1/current-compiled-file-roots)))" "(ormap2" -"(lambda(d_35)" +"(lambda(d_0)" "(ormap2" -"(lambda(mode_16)" +"(lambda(mode_0)" "(file-exists?" -"(let-values(((p_64)(build-path dir_3 mode_16 try-path_0)))" -"(if(eq? d_35 'same)" -"(let-values() p_64)" -"(if(relative-path? d_35)" -"(let-values()(build-path p_64 d_35))" -"(let-values()(reroot-path p_64 d_35)))))))" -" modes_0))" -" roots_0))" +"(let-values(((p_148)(build-path dir_0 mode_0 try-path_143)))" +"(if(eq? d_0 'same)" +"(let-values() p_148)" +"(if(relative-path? d_0)" +"(let-values()(build-path p_148 d_0))" +"(let-values()(reroot-path p_148 d_0)))))))" +" modes_144))" +" roots_145))" " #f))))))" "(define-values" "(1/find-library-collection-paths)" -"(let-values(((find-library-collection-paths3_0)" +"(let-values(((find-library-collection-paths3_149)" "(lambda(extra-collects-dirs1_0 post-collects-dirs2_0)" "(begin" " 'find-library-collection-paths3" -"(let-values(((extra-collects-dirs_0) extra-collects-dirs1_0))" -"(let-values(((post-collects-dirs_0) post-collects-dirs2_0))" +"(let-values(((extra-collects-dirs_152) extra-collects-dirs1_0))" +"(let-values(((post-collects-dirs_153) post-collects-dirs2_0))" "(let-values()" -"(let-values(((user-too?_0)(1/use-user-specific-search-paths))" -"((cons-if_0)" -"(lambda(f_41 r_42)(begin 'cons-if(if f_41(cons f_41 r_42) r_42))))" -"((config-table_1)(get-config-table(find-main-config))))" +"(let-values(((user-too?_154)(1/use-user-specific-search-paths))" +"((cons-if_155)(lambda(f_0 r_0)(begin 'cons-if(if f_0(cons f_0 r_0) r_0))))" +"((config-table_156)(get-config-table(find-main-config))))" "(path-list-string->path-list" -"(if user-too?_0" -"(let-values(((c_56)" +"(if user-too?_154" +"(let-values(((c_159)" "(environment-variables-ref" "(current-environment-variables)" " #\"PLTCOLLECTS\")))" -" (if c_56 (bytes->string/locale c_56 '#\\?) \"\"))" +" (if c_159 (bytes->string/locale c_159 '#\\?) \"\"))" " \"\")" "(add-config-search" -" config-table_1" +" config-table_156" " 'collects-search-dirs" -"(cons-if_0" -"(if user-too?_0" +"(cons-if_155" +"(if user-too?_154" "(build-path" "(find-system-path 'addon-dir)" -"(get-installation-name config-table_1)" +"(get-installation-name config-table_156)" " \"collects\")" " #f)" -"((letrec-values(((loop_102)" -"(lambda(l_83)" +"((letrec-values(((loop_160)" +"(lambda(l_0)" "(begin" " 'loop" -"(if(null? l_83)" +"(if(null? l_0)" " null" -"(let-values(((collects-path_1)(car l_83)))" -"(let-values(((v_198)" +"(let-values(((collects-path_162)(car l_0)))" +"(let-values(((v_163)" "(exe-relative-path->complete-path" -" collects-path_1)))" -"(if v_198" +" collects-path_162)))" +"(if v_163" "(cons" "(simplify-path" -"(path->complete-path v_198(current-directory)))" -"(loop_102(cdr l_83)))" -"(loop_102(cdr l_83))))))))))" -" loop_102)" +"(path->complete-path v_163(current-directory)))" +"(loop_160(cdr l_0)))" +"(loop_160(cdr l_0))))))))))" +" loop_160)" "(append" -" extra-collects-dirs_0" +" extra-collects-dirs_152" "(list(find-system-path 'collects-dir))" -" post-collects-dirs_0)))))))))))))" +" post-collects-dirs_153)))))))))))))" "(case-lambda" -"(()(begin 'find-library-collection-paths(find-library-collection-paths3_0 null null)))" -"((extra-collects-dirs_1 post-collects-dirs2_1)" -"(find-library-collection-paths3_0 extra-collects-dirs_1 post-collects-dirs2_1))" -"((extra-collects-dirs1_1)(find-library-collection-paths3_0 extra-collects-dirs1_1 null)))))" +"(()(begin 'find-library-collection-paths(find-library-collection-paths3_149 null null)))" +"((extra-collects-dirs_0 post-collects-dirs2_0)" +"(find-library-collection-paths3_149 extra-collects-dirs_0 post-collects-dirs2_0))" +"((extra-collects-dirs1_0)(find-library-collection-paths3_149 extra-collects-dirs1_0 null)))))" "(define-values(prop:readtable prop:readtable? prop:readtable-ref)(make-struct-type-property 'readtable))" "(define-values" "(1/current-readtable)" @@ -47346,14 +47566,13 @@ static const char *startup_source = "(let-values()" "(make-parameter" " #f" -"(lambda(v_199)" +"(lambda(v_0)" "(begin" -"(if((lambda(x_83)" -"(let-values(((or-part_11)(not x_83)))(if or-part_11 or-part_11(prop:readtable? x_83))))" -" v_199)" +"(if((lambda(x_0)(let-values(((or-part_4)(not x_0)))(if or-part_4 or-part_4(prop:readtable? x_0))))" +" v_0)" "(void)" -" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_199)))" -" v_199))))))" +" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_0)))" +" v_0))))))" "(define-values" "(struct:read-config/outer" " read-config/outer1.1" @@ -47365,7 +47584,7 @@ static const char *startup_source = " read-config/outer-pos" " read-config/outer-indentations" " read-config/outer-keep-comment?)" -"(let-values(((struct:_26 make-_26 ?_26 -ref_26 -set!_26)" +"(let-values(((struct:_6 make-_7 ?_8 -ref_9 -set!_10)" "(let-values()" "(let-values()" "(make-struct-type" @@ -47381,16 +47600,16 @@ static const char *startup_source = " #f" " 'read-config/outer)))))" "(values" -" struct:_26" -" make-_26" -" ?_26" -"(make-struct-field-accessor -ref_26 0 'inner)" -"(make-struct-field-accessor -ref_26 1 'wrap)" -"(make-struct-field-accessor -ref_26 2 'line)" -"(make-struct-field-accessor -ref_26 3 'col)" -"(make-struct-field-accessor -ref_26 4 'pos)" -"(make-struct-field-accessor -ref_26 5 'indentations)" -"(make-struct-field-accessor -ref_26 6 'keep-comment?))))" +" struct:_6" +" make-_7" +" ?_8" +"(make-struct-field-accessor -ref_9 0 'inner)" +"(make-struct-field-accessor -ref_9 1 'wrap)" +"(make-struct-field-accessor -ref_9 2 'line)" +"(make-struct-field-accessor -ref_9 3 'col)" +"(make-struct-field-accessor -ref_9 4 'pos)" +"(make-struct-field-accessor -ref_9 5 'indentations)" +"(make-struct-field-accessor -ref_9 6 'keep-comment?))))" "(define-values" "(struct:read-config/inner" " read-config/inner2.1" @@ -47407,7 +47626,7 @@ static const char *startup_source = " read-config/inner-parameter-override" " read-config/inner-parameter-cache" " read-config/inner-st)" -"(let-values(((struct:_74 make-_74 ?_74 -ref_74 -set!_74)" +"(let-values(((struct:_56 make-_57 ?_58 -ref_59 -set!_60)" "(let-values()" "(let-values()" "(make-struct-type" @@ -47423,36 +47642,36 @@ static const char *startup_source = " #f" " 'read-config/inner)))))" "(values" -" struct:_74" -" make-_74" -" ?_74" -"(make-struct-field-accessor -ref_74 0 'readtable)" -"(make-struct-field-accessor -ref_74 1 'next-readtable)" -"(make-struct-field-accessor -ref_74 2 'for-syntax?)" -"(make-struct-field-accessor -ref_74 3 'source)" -"(make-struct-field-accessor -ref_74 4 'read-compiled)" -"(make-struct-field-accessor -ref_74 5 'dynamic-require)" -"(make-struct-field-accessor -ref_74 6 'module-declared?)" -"(make-struct-field-accessor -ref_74 7 'coerce)" -"(make-struct-field-accessor -ref_74 8 'coerce-key)" -"(make-struct-field-accessor -ref_74 9 'parameter-override)" -"(make-struct-field-accessor -ref_74 10 'parameter-cache)" -"(make-struct-field-accessor -ref_74 11 'st))))" +" struct:_56" +" make-_57" +" ?_58" +"(make-struct-field-accessor -ref_59 0 'readtable)" +"(make-struct-field-accessor -ref_59 1 'next-readtable)" +"(make-struct-field-accessor -ref_59 2 'for-syntax?)" +"(make-struct-field-accessor -ref_59 3 'source)" +"(make-struct-field-accessor -ref_59 4 'read-compiled)" +"(make-struct-field-accessor -ref_59 5 'dynamic-require)" +"(make-struct-field-accessor -ref_59 6 'module-declared?)" +"(make-struct-field-accessor -ref_59 7 'coerce)" +"(make-struct-field-accessor -ref_59 8 'coerce-key)" +"(make-struct-field-accessor -ref_59 9 'parameter-override)" +"(make-struct-field-accessor -ref_59 10 'parameter-cache)" +"(make-struct-field-accessor -ref_59 11 'st))))" "(define-values" "(read-config/make)" "(lambda(readtable_0" " next-readtable_0" " for-syntax?_0" -" source_1" -" wrap_3" +" source_0" +" wrap_0" " read-compiled_0" " dynamic-require_0" " module-declared?_0" " coerce_0" " coerce-key_0" -" line_1" +" line_0" " col_0" -" pos_108" +" pos_0" " indentations_0" " keep-comment?_0" " parameter-override_0" @@ -47464,7 +47683,7 @@ static const char *startup_source = " readtable_0" " next-readtable_0" " for-syntax?_0" -" source_1" +" source_0" " read-compiled_0" " dynamic-require_0" " module-declared?_0" @@ -47473,50 +47692,48 @@ static const char *startup_source = " parameter-override_0" " parameter-cache_0" " st_0)" -" wrap_3" -" line_1" +" wrap_0" +" line_0" " col_0" -" pos_108" +" pos_0" " indentations_0" " keep-comment?_0))))" -"(define-values(read-config-wrap)(lambda(v_28)(begin(read-config/outer-wrap v_28))))" -"(define-values(read-config-line)(lambda(v_200)(begin(read-config/outer-line v_200))))" -"(define-values(read-config-col)(lambda(v_201)(begin(read-config/outer-col v_201))))" -"(define-values(read-config-pos)(lambda(v_202)(begin(read-config/outer-pos v_202))))" -"(define-values(read-config-indentations)(lambda(v_203)(begin(read-config/outer-indentations v_203))))" -"(define-values(read-config-keep-comment?)(lambda(v_89)(begin(read-config/outer-keep-comment? v_89))))" +"(define-values(read-config-wrap)(lambda(v_0)(begin(read-config/outer-wrap v_0))))" +"(define-values(read-config-line)(lambda(v_0)(begin(read-config/outer-line v_0))))" +"(define-values(read-config-col)(lambda(v_0)(begin(read-config/outer-col v_0))))" +"(define-values(read-config-pos)(lambda(v_0)(begin(read-config/outer-pos v_0))))" +"(define-values(read-config-indentations)(lambda(v_0)(begin(read-config/outer-indentations v_0))))" +"(define-values(read-config-keep-comment?)(lambda(v_0)(begin(read-config/outer-keep-comment? v_0))))" "(define-values" "(read-config-readtable)" -"(lambda(v_204)(begin(read-config/inner-readtable(read-config/outer-inner v_204)))))" +"(lambda(v_0)(begin(read-config/inner-readtable(read-config/outer-inner v_0)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_205)(begin(read-config/inner-next-readtable(read-config/outer-inner v_205)))))" +"(lambda(v_0)(begin(read-config/inner-next-readtable(read-config/outer-inner v_0)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_206)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_206)))))" -"(define-values(read-config-source)(lambda(v_65)(begin(read-config/inner-source(read-config/outer-inner v_65)))))" +"(lambda(v_0)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_0)))))" +"(define-values(read-config-source)(lambda(v_0)(begin(read-config/inner-source(read-config/outer-inner v_0)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_207)(begin(read-config/inner-read-compiled(read-config/outer-inner v_207)))))" +"(lambda(v_0)(begin(read-config/inner-read-compiled(read-config/outer-inner v_0)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_208)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_208)))))" +"(lambda(v_0)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_0)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_209)(begin(read-config/inner-module-declared?(read-config/outer-inner v_209)))))" -"(define-values" -"(read-config-coerce)" -"(lambda(v_198)(begin(read-config/inner-coerce(read-config/outer-inner v_198)))))" +"(lambda(v_0)(begin(read-config/inner-module-declared?(read-config/outer-inner v_0)))))" +"(define-values(read-config-coerce)(lambda(v_0)(begin(read-config/inner-coerce(read-config/outer-inner v_0)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_210)(begin(read-config/inner-coerce-key(read-config/outer-inner v_210)))))" +"(lambda(v_0)(begin(read-config/inner-coerce-key(read-config/outer-inner v_0)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_211)(begin(read-config/inner-parameter-override(read-config/outer-inner v_211)))))" +"(lambda(v_0)(begin(read-config/inner-parameter-override(read-config/outer-inner v_0)))))" "(define-values" "(read-config-parameter-cache)" -"(lambda(v_41)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_41)))))" -"(define-values(read-config-st)(lambda(v_212)(begin(read-config/inner-st(read-config/outer-inner v_212)))))" +"(lambda(v_0)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_0)))))" +"(define-values(read-config-st)(lambda(v_0)(begin(read-config/inner-st(read-config/outer-inner v_0)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -47525,7 +47742,7 @@ static const char *startup_source = " read-config-state-graph" " set-read-config-state-accum-str!" " set-read-config-state-graph!)" -"(let-values(((struct:_75 make-_75 ?_75 -ref_75 -set!_75)" +"(let-values(((struct:_168 make-_169 ?_170 -ref_171 -set!_172)" "(let-values()" "(let-values()" "(make-struct-type" @@ -47541,19 +47758,19 @@ static const char *startup_source = " #f" " 'read-config-state)))))" "(values" -" struct:_75" -" make-_75" -" ?_75" -"(make-struct-field-accessor -ref_75 0 'accum-str)" -"(make-struct-field-accessor -ref_75 1 'graph)" -"(make-struct-field-mutator -set!_75 0 'accum-str)" -"(make-struct-field-mutator -set!_75 1 'graph))))" +" struct:_168" +" make-_169" +" ?_170" +"(make-struct-field-accessor -ref_171 0 'accum-str)" +"(make-struct-field-accessor -ref_171 1 'graph)" +"(make-struct-field-mutator -set!_172 0 'accum-str)" +"(make-struct-field-mutator -set!_172 1 'graph))))" "(define-values(current-read-config)(make-parameter #f))" "(define-values" "(make-read-config26.1)" "(lambda(coerce12_0" " coerce-key13_0" -" dynamic-require10_1" +" dynamic-require10_0" " for-syntax?5_0" " keep-comment?14_0" " module-declared?11_0" @@ -47564,45 +47781,47 @@ static const char *startup_source = " wrap8_0)" "(begin" " 'make-read-config26" -"(let-values(((source_2) source4_0))" -"(let-values(((for-syntax?_1) for-syntax?5_0))" -"(let-values(((readtable_1)(if(eq? readtable6_0 unsafe-undefined)(1/current-readtable) readtable6_0)))" -"(let-values(((next-readtable_1)" -"(if(eq? next-readtable7_0 unsafe-undefined) readtable_1 next-readtable7_0)))" -"(let-values(((wrap_4) wrap8_0))" -"(let-values(((read-compiled_1) read-compiled9_0))" -"(let-values(((dynamic-require_1) dynamic-require10_1))" -"(let-values(((module-declared?_1) module-declared?11_0))" -"(let-values(((coerce_1) coerce12_0))" -"(let-values(((coerce-key_1) coerce-key13_0))" -"(let-values(((keep-comment?_1) keep-comment?14_0))" +"(let-values(((source_204) source4_0))" +"(let-values(((for-syntax?_205) for-syntax?5_0))" +"(let-values(((readtable_206)(if(eq? readtable6_0 unsafe-undefined)(1/current-readtable) readtable6_0)))" +"(let-values(((next-readtable_207)" +"(if(eq? next-readtable7_0 unsafe-undefined) readtable_206 next-readtable7_0)))" +"(let-values(((wrap_208) wrap8_0))" +"(let-values(((read-compiled_209) read-compiled9_0))" +"(let-values(((dynamic-require_210) dynamic-require10_0))" +"(let-values(((module-declared?_211) module-declared?11_0))" +"(let-values(((coerce_212) coerce12_0))" +"(let-values(((coerce-key_213) coerce-key13_0))" +"(let-values(((keep-comment?_214) keep-comment?14_0))" "(let-values()" "(read-config/make" -" readtable_1" -" next-readtable_1" -" for-syntax?_1" -" source_2" -" wrap_4" -"(let-values(((or-part_52) read-compiled_1))" -" (if or-part_52 or-part_52 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" -"(let-values(((or-part_304) dynamic-require_1))" -"(if or-part_304" -" or-part_304" -"(lambda(mod-path_25 sym_97 failure-k_0)" +" readtable_206" +" next-readtable_207" +" for-syntax?_205" +" source_204" +" wrap_208" +"(let-values(((or-part_215) read-compiled_209))" +"(if or-part_215" +" or-part_215" +" (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" +"(let-values(((or-part_217) dynamic-require_210))" +"(if or-part_217" +" or-part_217" +"(lambda(mod-path_0 sym_0 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_178) module-declared?_1))" -"(if or-part_178" -" or-part_178" -" (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))" -"(let-values(((or-part_221) coerce_1))" -"(if or-part_221 or-part_221(lambda(for-syntax?_2 v_135 srcloc_9) v_135)))" -"(let-values(((or-part_305) coerce-key_1))" -"(if or-part_305 or-part_305(lambda(for-syntax?_3 v_93) v_93)))" +"(let-values(((or-part_221) module-declared?_211))" +"(if or-part_221" +" or-part_221" +" (lambda (mod-path_0) (error 'read \"no `module-declare?` provided\"))))" +"(let-values(((or-part_223) coerce_212))" +"(if or-part_223 or-part_223(lambda(for-syntax?_0 v_0 srcloc_0) v_0)))" +"(let-values(((or-part_227) coerce-key_213))" +"(if or-part_227 or-part_227(lambda(for-syntax?_0 v_0) v_0)))" " #f" " #f" " #f" " null" -" keep-comment?_1" +" keep-comment?_214" " '#hasheq()" "(make-hasheq)" "(read-config-state3.1 #f #f)))))))))))))))))" @@ -47611,303 +47830,306 @@ static const char *startup_source = "(lambda(for-syntax?29_0 keep-comment?34_0 next-readtable32_0 readtable31_0 reset-graph?33_0 wrap30_0 config41_0)" "(begin" " 'read-config-update42" -"(let-values(((config_0) config41_0))" -"(let-values(((for-syntax?_4) for-syntax?29_0))" -"(let-values(((wrap_5) wrap30_0))" -"(let-values(((readtable_2) readtable31_0))" -"(let-values(((next-readtable_2)" +"(let-values(((config_312) config41_0))" +"(let-values(((for-syntax?_313) for-syntax?29_0))" +"(let-values(((wrap_314) wrap30_0))" +"(let-values(((readtable_315) readtable31_0))" +"(let-values(((next-readtable_316)" "(if(eq? next-readtable32_0 unsafe-undefined)" -"(read-config-readtable config_0)" +"(read-config-readtable config_312)" " next-readtable32_0)))" -"(let-values(((local-graph?_0) reset-graph?33_0))" -"(let-values(((keep-comment?_2) keep-comment?34_0))" +"(let-values(((local-graph?_317) reset-graph?33_0))" +"(let-values(((keep-comment?_318) keep-comment?34_0))" "(let-values()" -"(let-values(((v_213) config_0))" -"(let-values(((the-struct_78) v_213))" -"(if(read-config/outer? the-struct_78)" -"(let-values(((wrap55_0) wrap_5)" -"((keep-comment?56_0) keep-comment?_2)" -"((inner57_0)" -"(let-values(((the-struct_79)(read-config/outer-inner v_213)))" -"(if(read-config/inner? the-struct_79)" -"(let-values(((for-syntax?58_0) for-syntax?_4)" -"((readtable59_0) readtable_2)" -"((next-readtable60_0) next-readtable_2)" -"((st61_0)" -"(if local-graph?_0" +"(let-values(((v_319) config_312))" +"(let-values(((the-struct_320) v_319))" +"(if(read-config/outer? the-struct_320)" +"(let-values(((wrap55_321) wrap_314)" +"((keep-comment?56_322) keep-comment?_318)" +"((inner57_323)" +"(let-values(((the-struct_324)(read-config/outer-inner v_319)))" +"(if(read-config/inner? the-struct_324)" +"(let-values(((for-syntax?58_325) for-syntax?_313)" +"((readtable59_326) readtable_315)" +"((next-readtable60_327) next-readtable_316)" +"((st61_328)" +"(if local-graph?_317" "(read-config-state3.1 #f #f)" -"(read-config-st config_0))))" +"(read-config-st config_312))))" "(read-config/inner2.1" -" readtable59_0" -" next-readtable60_0" -" for-syntax?58_0" -"(read-config/inner-source the-struct_79)" -"(read-config/inner-read-compiled the-struct_79)" -"(read-config/inner-dynamic-require the-struct_79)" -"(read-config/inner-module-declared? the-struct_79)" -"(read-config/inner-coerce the-struct_79)" -"(read-config/inner-coerce-key the-struct_79)" -"(read-config/inner-parameter-override the-struct_79)" -"(read-config/inner-parameter-cache the-struct_79)" -" st61_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_79)))))" +" readtable59_326" +" next-readtable60_327" +" for-syntax?58_325" +"(read-config/inner-source the-struct_324)" +"(read-config/inner-read-compiled the-struct_324)" +"(read-config/inner-dynamic-require the-struct_324)" +"(read-config/inner-module-declared? the-struct_324)" +"(read-config/inner-coerce the-struct_324)" +"(read-config/inner-coerce-key the-struct_324)" +"(read-config/inner-parameter-override the-struct_324)" +"(read-config/inner-parameter-cache the-struct_324)" +" st61_328))" +"(raise-argument-error" +" 'struct-copy" +" \"read-config/inner?\"" +" the-struct_324)))))" "(read-config/outer1.1" -" inner57_0" -" wrap55_0" -"(read-config/outer-line the-struct_78)" -"(read-config/outer-col the-struct_78)" -"(read-config/outer-pos the-struct_78)" -"(read-config/outer-indentations the-struct_78)" -" keep-comment?56_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))))))))))" +" inner57_323" +" wrap55_321" +"(read-config/outer-line the-struct_320)" +"(read-config/outer-col the-struct_320)" +"(read-config/outer-pos the-struct_320)" +"(read-config/outer-indentations the-struct_320)" +" keep-comment?56_322))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_320)))))))))))))))" "(define-values" "(port+config->srcloc49.1)" "(lambda(end-pos45_0 in47_0 config48_0)" "(begin" " 'port+config->srcloc49" -"(let-values(((in_1) in47_0))" -"(let-values(((config_1) config48_0))" -"(let-values(((given-end-pos_0) end-pos45_0))" +"(let-values(((in_357) in47_0))" +"(let-values(((config_358) config48_0))" +"(let-values(((given-end-pos_359) end-pos45_0))" "(let-values()" -"(let-values(((end-pos_0)" -"(let-values(((or-part_306) given-end-pos_0))" -"(if or-part_306" -" or-part_306" -"(let-values(((end-line_0 end-col_0 end-pos_1)(port-next-location in_1)))" -" end-pos_1)))))" +"(let-values(((end-pos_360)" +"(let-values(((or-part_361) given-end-pos_359))" +"(if or-part_361" +" or-part_361" +"(let-values(((end-line_362 end-col_363 end-pos_364)(port-next-location in_357)))" +" end-pos_364)))))" "(srcloc" -"(let-values(((or-part_284)(read-config-source config_1)))" -"(if or-part_284" -" or-part_284" -" (let-values (((or-part_307) (object-name in_1))) (if or-part_307 or-part_307 \"UNKNOWN\"))))" -"(read-config-line config_1)" -"(read-config-col config_1)" -"(read-config-pos config_1)" -"(if(read-config-pos config_1)" -"(if end-pos_0(max 0(- end-pos_0(read-config-pos config_1))) #f)" +"(let-values(((or-part_365)(read-config-source config_358)))" +"(if or-part_365" +" or-part_365" +" (let-values (((or-part_366) (object-name in_357))) (if or-part_366 or-part_366 \"UNKNOWN\"))))" +"(read-config-line config_358)" +"(read-config-col config_358)" +"(read-config-pos config_358)" +"(if(read-config-pos config_358)" +"(if end-pos_360(max 0(- end-pos_360(read-config-pos config_358))) #f)" " #f))))))))))" "(define-values" "(reading-at)" -"(lambda(config_2 line_2 col_1 pos_109)" +"(lambda(config_0 line_0 col_0 pos_0)" "(begin" -"(let-values(((v_214) config_2))" -"(let-values(((the-struct_80) v_214))" -"(if(read-config/outer? the-struct_80)" -"(let-values(((line62_0) line_2)" -"((col63_0) col_1)" -"((pos64_0) pos_109)" -"((inner65_0)(read-config/outer-inner v_214)))" +"(let-values(((v_388) config_0))" +"(let-values(((the-struct_389) v_388))" +"(if(read-config/outer? the-struct_389)" +"(let-values(((line62_390) line_0)" +"((col63_391) col_0)" +"((pos64_392) pos_0)" +"((inner65_393)(read-config/outer-inner v_388)))" "(read-config/outer1.1" -" inner65_0" -"(read-config/outer-wrap the-struct_80)" -" line62_0" -" col63_0" -" pos64_0" -"(read-config/outer-indentations the-struct_80)" -"(read-config/outer-keep-comment? the-struct_80)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))" +" inner65_393" +"(read-config/outer-wrap the-struct_389)" +" line62_390" +" col63_391" +" pos64_392" +"(read-config/outer-indentations the-struct_389)" +"(read-config/outer-keep-comment? the-struct_389)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_389)))))))" "(define-values" "(disable-wrapping)" -"(lambda(config_3)" +"(lambda(config_0)" "(begin" -"(let-values(((v_215) config_3))" -"(let-values(((the-struct_81) v_215))" -"(if(read-config/outer? the-struct_81)" -"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_215)))" +"(let-values(((v_395) config_0))" +"(let-values(((the-struct_396) v_395))" +"(if(read-config/outer? the-struct_396)" +"(let-values(((wrap66_397) #f)((inner67_398)(read-config/outer-inner v_395)))" "(read-config/outer1.1" -" inner67_0" -" wrap66_0" -"(read-config/outer-line the-struct_81)" -"(read-config/outer-col the-struct_81)" -"(read-config/outer-pos the-struct_81)" -"(read-config/outer-indentations the-struct_81)" -"(read-config/outer-keep-comment? the-struct_81)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))" +" inner67_398" +" wrap66_397" +"(read-config/outer-line the-struct_396)" +"(read-config/outer-col the-struct_396)" +"(read-config/outer-pos the-struct_396)" +"(read-config/outer-indentations the-struct_396)" +"(read-config/outer-keep-comment? the-struct_396)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_396)))))))" "(define-values" "(keep-comment)" -"(lambda(config_4)" +"(lambda(config_0)" "(begin" -"(let-values(((v_216) config_4))" -"(let-values(((the-struct_82) v_216))" -"(if(read-config/outer? the-struct_82)" -"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_216)))" +"(let-values(((v_400) config_0))" +"(let-values(((the-struct_401) v_400))" +"(if(read-config/outer? the-struct_401)" +"(let-values(((keep-comment?68_402) #t)((inner69_403)(read-config/outer-inner v_400)))" "(read-config/outer1.1" -" inner69_0" -"(read-config/outer-wrap the-struct_82)" -"(read-config/outer-line the-struct_82)" -"(read-config/outer-col the-struct_82)" -"(read-config/outer-pos the-struct_82)" -"(read-config/outer-indentations the-struct_82)" -" keep-comment?68_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))" +" inner69_403" +"(read-config/outer-wrap the-struct_401)" +"(read-config/outer-line the-struct_401)" +"(read-config/outer-col the-struct_401)" +"(read-config/outer-pos the-struct_401)" +"(read-config/outer-indentations the-struct_401)" +" keep-comment?68_402))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_401)))))))" "(define-values" "(discard-comment)" -"(lambda(config_5)" +"(lambda(config_0)" "(begin" -"(if(not(read-config-keep-comment? config_5))" -"(let-values() config_5)" +"(if(not(read-config-keep-comment? config_0))" +"(let-values() config_0)" "(let-values()" -"(let-values(((v_70) config_5))" -"(let-values(((the-struct_83) v_70))" -"(if(read-config/outer? the-struct_83)" -"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_70)))" +"(let-values(((v_405) config_0))" +"(let-values(((the-struct_406) v_405))" +"(if(read-config/outer? the-struct_406)" +"(let-values(((keep-comment?70_407) #f)((inner71_408)(read-config/outer-inner v_405)))" "(read-config/outer1.1" -" inner71_0" -"(read-config/outer-wrap the-struct_83)" -"(read-config/outer-line the-struct_83)" -"(read-config/outer-col the-struct_83)" -"(read-config/outer-pos the-struct_83)" -"(read-config/outer-indentations the-struct_83)" -" keep-comment?70_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))))" +" inner71_408" +"(read-config/outer-wrap the-struct_406)" +"(read-config/outer-line the-struct_406)" +"(read-config/outer-col the-struct_406)" +"(read-config/outer-pos the-struct_406)" +"(read-config/outer-indentations the-struct_406)" +" keep-comment?70_407))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_406)))))))))" "(define-values" "(next-readtable)" -"(lambda(config_6)" +"(lambda(config_0)" "(begin" -"(if(eq?(read-config-readtable config_6)(read-config-next-readtable config_6))" -"(let-values() config_6)" +"(if(eq?(read-config-readtable config_0)(read-config-next-readtable config_0))" +"(let-values() config_0)" "(let-values()" -"(let-values(((v_217) config_6))" -"(let-values(((the-struct_84) v_217))" -"(if(read-config/outer? the-struct_84)" -"(let-values(((inner72_0)" -"(let-values(((the-struct_85)(read-config/outer-inner v_217)))" -"(if(read-config/inner? the-struct_85)" -"(let-values(((readtable73_0)(read-config-next-readtable config_6)))" +"(let-values(((v_410) config_0))" +"(let-values(((the-struct_411) v_410))" +"(if(read-config/outer? the-struct_411)" +"(let-values(((inner72_412)" +"(let-values(((the-struct_413)(read-config/outer-inner v_410)))" +"(if(read-config/inner? the-struct_413)" +"(let-values(((readtable73_414)(read-config-next-readtable config_0)))" "(read-config/inner2.1" -" readtable73_0" -"(read-config/inner-next-readtable the-struct_85)" -"(read-config/inner-for-syntax? the-struct_85)" -"(read-config/inner-source the-struct_85)" -"(read-config/inner-read-compiled the-struct_85)" -"(read-config/inner-dynamic-require the-struct_85)" -"(read-config/inner-module-declared? the-struct_85)" -"(read-config/inner-coerce the-struct_85)" -"(read-config/inner-coerce-key the-struct_85)" -"(read-config/inner-parameter-override the-struct_85)" -"(read-config/inner-parameter-cache the-struct_85)" -"(read-config/inner-st the-struct_85)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_85)))))" +" readtable73_414" +"(read-config/inner-next-readtable the-struct_413)" +"(read-config/inner-for-syntax? the-struct_413)" +"(read-config/inner-source the-struct_413)" +"(read-config/inner-read-compiled the-struct_413)" +"(read-config/inner-dynamic-require the-struct_413)" +"(read-config/inner-module-declared? the-struct_413)" +"(read-config/inner-coerce the-struct_413)" +"(read-config/inner-coerce-key the-struct_413)" +"(read-config/inner-parameter-override the-struct_413)" +"(read-config/inner-parameter-cache the-struct_413)" +"(read-config/inner-st the-struct_413)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_413)))))" "(read-config/outer1.1" -" inner72_0" -"(read-config/outer-wrap the-struct_84)" -"(read-config/outer-line the-struct_84)" -"(read-config/outer-col the-struct_84)" -"(read-config/outer-pos the-struct_84)" -"(read-config/outer-indentations the-struct_84)" -"(read-config/outer-keep-comment? the-struct_84)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))))" +" inner72_412" +"(read-config/outer-wrap the-struct_411)" +"(read-config/outer-line the-struct_411)" +"(read-config/outer-col the-struct_411)" +"(read-config/outer-pos the-struct_411)" +"(read-config/outer-indentations the-struct_411)" +"(read-config/outer-keep-comment? the-struct_411)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_411)))))))))" "(define-values" "(coerce)" -"(lambda(val_78 in_2 config_7)" +"(lambda(val_0 in_0 config_0)" "(begin" -"(let-values(((for-syntax?_5)(read-config-for-syntax? config_7)))" -"((read-config-coerce config_7)" -" for-syntax?_5" -" val_78" -"(if for-syntax?_5" -"(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f in1_0 config2_0))" +"(let-values(((for-syntax?_4)(read-config-for-syntax? config_0)))" +"((read-config-coerce config_0)" +" for-syntax?_4" +" val_0" +"(if for-syntax?_4" +"(let-values(((in1_5) in_0)((config2_6) config_0))(port+config->srcloc49.1 #f in1_5 config2_6))" " #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_218)(begin 'default-reader-guard v_218)))" +"(define-values(default-reader-guard$1)(lambda(v_0)(begin 'default-reader-guard v_0)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_219)" +"(lambda(v_0)" "(begin" -"(if(if(procedure? v_219)(procedure-arity-includes? v_219 1) #f)" +"(if(if(procedure? v_0)(procedure-arity-includes? v_0 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_219)))" -" v_219))))" -"(define-values(1/read-square-bracket-as-paren)(make-parameter #t(lambda(v_1)(if v_1 #t #f))))" -"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_220)(if v_220 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_221)(if v_221 #t #f))))" -"(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_56)(if v_56 #t #f))))" -"(define-values(1/read-cdot)(make-parameter #f(lambda(v_32)(if v_32 #t #f))))" -"(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_57)(if v_57 #t #f))))" -"(define-values(1/read-accept-compiled)(make-parameter #f(lambda(v_2)(if v_2 #t #f))))" -"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_222)(if v_222 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_223)(if v_223 #t #f))))" -"(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_58)(if v_58 #t #f))))" -"(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_33)(if v_33 #t #f))))" -"(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))" -"(define-values(1/read-accept-reader)(make-parameter #f(lambda(v_34)(if v_34 #t #f))))" -"(define-values(1/read-accept-lang)(make-parameter #t(lambda(v_4)(if v_4 #t #f))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_0)))" +" v_0))))" +"(define-values(1/read-square-bracket-as-paren)(make-parameter #t(lambda(v_0)(if v_0 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_0)(if v_0 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_0)(if v_0 #t #f))))" +"(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_0)(if v_0 #t #f))))" +"(define-values(1/read-cdot)(make-parameter #f(lambda(v_0)(if v_0 #t #f))))" +"(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_0)(if v_0 #t #f))))" +"(define-values(1/read-accept-compiled)(make-parameter #f(lambda(v_0)(if v_0 #t #f))))" +"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_0)(if v_0 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_0)(if v_0 #t #f))))" +"(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_0)(if v_0 #t #f))))" +"(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_0)(if v_0 #t #f))))" +"(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_0)(if v_0 #t #f))))" +"(define-values(1/read-accept-reader)(make-parameter #f(lambda(v_0)(if v_0 #t #f))))" +"(define-values(1/read-accept-lang)(make-parameter #t(lambda(v_0)(if v_0 #t #f))))" "(define-values(unknown)(gensym 'unknown))" "(define-values" "(check-parameter)" -"(lambda(param_0 config_8)" +"(lambda(param_0 config_0)" "(begin" -"(let-values(((cache_4)(read-config-parameter-cache config_8)))" -"(let-values(((v_60)" -"(hash-ref(read-config-parameter-override config_8) param_0(hash-ref cache_4 param_0 unknown))))" -"(if(eq? v_60 unknown)" -"(let-values()(let-values(((v_61)(param_0)))(begin(hash-set! cache_4 param_0 v_61) v_61)))" -"(let-values() v_60)))))))" +"(let-values(((cache_3)(read-config-parameter-cache config_0)))" +"(let-values(((v_4)" +"(hash-ref(read-config-parameter-override config_0) param_0(hash-ref cache_3 param_0 unknown))))" +"(if(eq? v_4 unknown)" +"(let-values()(let-values(((v_5)(param_0)))(begin(hash-set! cache_3 param_0 v_5) v_5)))" +"(let-values() v_4)))))))" "(define-values" "(override-parameter)" -"(lambda(param_1 config_9 v_31)" +"(lambda(param_0 config_0 v_0)" "(begin" -"(let-values(((v_224) config_9))" -"(let-values(((the-struct_86) v_224))" -"(if(read-config/outer? the-struct_86)" -"(let-values(((inner1_0)" -"(let-values(((the-struct_87)(read-config/outer-inner v_224)))" -"(if(read-config/inner? the-struct_87)" -"(let-values(((parameter-override2_0)" -"(hash-set(read-config-parameter-override config_9) param_1 v_31)))" +"(let-values(((v_9) config_0))" +"(let-values(((the-struct_10) v_9))" +"(if(read-config/outer? the-struct_10)" +"(let-values(((inner1_11)" +"(let-values(((the-struct_12)(read-config/outer-inner v_9)))" +"(if(read-config/inner? the-struct_12)" +"(let-values(((parameter-override2_13)" +"(hash-set(read-config-parameter-override config_0) param_0 v_0)))" "(read-config/inner2.1" -"(read-config/inner-readtable the-struct_87)" -"(read-config/inner-next-readtable the-struct_87)" -"(read-config/inner-for-syntax? the-struct_87)" -"(read-config/inner-source the-struct_87)" -"(read-config/inner-read-compiled the-struct_87)" -"(read-config/inner-dynamic-require the-struct_87)" -"(read-config/inner-module-declared? the-struct_87)" -"(read-config/inner-coerce the-struct_87)" -"(read-config/inner-coerce-key the-struct_87)" -" parameter-override2_0" -"(read-config/inner-parameter-cache the-struct_87)" -"(read-config/inner-st the-struct_87)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_87)))))" +"(read-config/inner-readtable the-struct_12)" +"(read-config/inner-next-readtable the-struct_12)" +"(read-config/inner-for-syntax? the-struct_12)" +"(read-config/inner-source the-struct_12)" +"(read-config/inner-read-compiled the-struct_12)" +"(read-config/inner-dynamic-require the-struct_12)" +"(read-config/inner-module-declared? the-struct_12)" +"(read-config/inner-coerce the-struct_12)" +"(read-config/inner-coerce-key the-struct_12)" +" parameter-override2_13" +"(read-config/inner-parameter-cache the-struct_12)" +"(read-config/inner-st the-struct_12)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_12)))))" "(read-config/outer1.1" -" inner1_0" -"(read-config/outer-wrap the-struct_86)" -"(read-config/outer-line the-struct_86)" -"(read-config/outer-col the-struct_86)" -"(read-config/outer-pos the-struct_86)" -"(read-config/outer-indentations the-struct_86)" -"(read-config/outer-keep-comment? the-struct_86)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_86)))))))" +" inner1_11" +"(read-config/outer-wrap the-struct_10)" +"(read-config/outer-line the-struct_10)" +"(read-config/outer-col the-struct_10)" +"(read-config/outer-pos the-struct_10)" +"(read-config/outer-indentations the-struct_10)" +"(read-config/outer-keep-comment? the-struct_10)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_10)))))))" "(define-values" "(force-parameters!)" -"(lambda(config_10)" +"(lambda(config_0)" "(begin" -"(let-values(((cache_5)(read-config-parameter-cache config_10)))" -"(if(hash-ref cache_5 'all-forced #f)" +"(let-values(((cache_15)(read-config-parameter-cache config_0)))" +"(if(hash-ref cache_15 'all-forced #f)" "(void)" "(let-values()" "(begin" -"(hash-set! cache_5 'all-forced #t)" -"(check-parameter read-case-sensitive config_10)" -"(check-parameter 1/read-square-bracket-as-paren config_10)" -"(check-parameter 1/read-curly-brace-as-paren config_10)" -"(check-parameter 1/read-square-bracket-with-tag config_10)" -"(check-parameter 1/read-curly-brace-with-tag config_10)" -"(check-parameter 1/read-cdot config_10)" -"(check-parameter 1/read-accept-graph config_10)" -"(check-parameter 1/read-accept-compiled config_10)" -"(check-parameter 1/read-accept-box config_10)" -"(check-parameter read-accept-bar-quote config_10)" -"(check-parameter 1/read-decimal-as-inexact config_10)" -"(check-parameter 1/read-accept-dot config_10)" -"(check-parameter 1/read-accept-infix-dot config_10)" -"(check-parameter 1/read-accept-quasiquote config_10)" -"(check-parameter 1/read-accept-reader config_10)" -"(check-parameter 1/read-accept-lang config_10))))))))" +"(hash-set! cache_15 'all-forced #t)" +"(check-parameter read-case-sensitive config_0)" +"(check-parameter 1/read-square-bracket-as-paren config_0)" +"(check-parameter 1/read-curly-brace-as-paren config_0)" +"(check-parameter 1/read-square-bracket-with-tag config_0)" +"(check-parameter 1/read-curly-brace-with-tag config_0)" +"(check-parameter 1/read-cdot config_0)" +"(check-parameter 1/read-accept-graph config_0)" +"(check-parameter 1/read-accept-compiled config_0)" +"(check-parameter 1/read-accept-box config_0)" +"(check-parameter read-accept-bar-quote config_0)" +"(check-parameter 1/read-decimal-as-inexact config_0)" +"(check-parameter 1/read-accept-dot config_0)" +"(check-parameter 1/read-accept-infix-dot config_0)" +"(check-parameter 1/read-accept-quasiquote config_0)" +"(check-parameter 1/read-accept-reader config_0)" +"(check-parameter 1/read-accept-lang config_0))))))))" "(define-values" "(struct:special-comment 1/make-special-comment 1/special-comment? 1/special-comment-value)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type" @@ -47922,7 +48144,7 @@ static const char *startup_source = " '(0)" " #f" " 'make-special-comment)))))" -"(values struct:_0 make-_0 ?_0(make-struct-field-accessor -ref_0 0 'value))))" +"(values struct:_1 make-_2 ?_3(make-struct-field-accessor -ref_4 0 'value))))" "(define-values" "(struct:readtable" " readtable1.1" @@ -47931,7 +48153,7 @@ static const char *startup_source = " readtable-char-ht" " readtable-dispatch-ht" " readtable-delimiter-ht)" -"(let-values(((struct:_13 make-_13 ?_13 -ref_13 -set!_13)" +"(let-values(((struct:_14 make-_15 ?_16 -ref_17 -set!_18)" "(let-values()" "(let-values()" "(make-struct-type" @@ -47947,46 +48169,46 @@ static const char *startup_source = " #f" " 'readtable)))))" "(values" -" struct:_13" -" make-_13" -" ?_13" -"(make-struct-field-accessor -ref_13 0 'symbol-parser)" -"(make-struct-field-accessor -ref_13 1 'char-ht)" -"(make-struct-field-accessor -ref_13 2 'dispatch-ht)" -"(make-struct-field-accessor -ref_13 3 'delimiter-ht))))" +" struct:_14" +" make-_15" +" ?_16" +"(make-struct-field-accessor -ref_17 0 'symbol-parser)" +"(make-struct-field-accessor -ref_17 1 'char-ht)" +"(make-struct-field-accessor -ref_17 2 'dispatch-ht)" +"(make-struct-field-accessor -ref_17 3 'delimiter-ht))))" "(define-values" "(1/make-readtable)" -"(lambda(rt_0 . args_7)" +"(lambda(rt_0 . args_0)" "(begin" " 'make-readtable" "(begin" -"(if(let-values(((or-part_53)(not rt_0)))(if or-part_53 or-part_53(1/readtable? rt_0)))" +"(if(let-values(((or-part_51)(not rt_0)))(if or-part_51 or-part_51(1/readtable? rt_0)))" "(void)" " (let-values () (raise-argument-error 'make-readtable \"(or/c readtable? #f)\" rt_0)))" -"((letrec-values(((loop_103)" -"(lambda(args_8 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0)" +"((letrec-values(((loop_52)" +"(lambda(args_1 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0)" "(begin" " 'loop" -"(if(null? args_8)" +"(if(null? args_1)" "(let-values()(readtable1.1 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0))" "(let-values()" -"(let-values(((key_84)(car args_8)))" +"(let-values(((key_58)(car args_1)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_165)(not key_84)))" -"(if or-part_165 or-part_165(char? key_84)))" +"(if(let-values(((or-part_62)(not key_58)))" +"(if or-part_62 or-part_62(char? key_58)))" "(void)" "(let-values()" "(raise-argument-error" " 'make-readtable" " \"(or/c char? #f)\"" -" key_84)))" +" key_58)))" "(values))))" "(let-values((()" "(begin" -"(if(null? args_8)" +"(if(null? args_1)" "(let-values()" -"(if key_84" +"(if key_58" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -47994,41 +48216,41 @@ static const char *startup_source = " \"expected 'terminating-macro, 'non-terminating-macro, 'dispatch-macro,\"" " \" or character argument after character argument\")" " \"character\"" -" key_84))" +" key_58))" "(let-values()" "(raise-arguments-error" " 'make-readtable" " \"expected 'non-terminating-macro after #f\"))))" "(void))" "(values))))" -"(let-values(((mode_17)(cadr args_8)))" +"(let-values(((mode_59)(cadr args_1)))" "(let-values((()" "(begin" -"(if key_84" +"(if key_58" "(let-values()" -"(if(let-values(((or-part_259)" -"(eq? mode_17 'terminating-macro)))" -"(if or-part_259" -" or-part_259" -"(let-values(((or-part_260)" +"(if(let-values(((or-part_63)" +"(eq? mode_59 'terminating-macro)))" +"(if or-part_63" +" or-part_63" +"(let-values(((or-part_64)" "(eq?" -" mode_17" +" mode_59" " 'non-terminating-macro)))" -"(if or-part_260" -" or-part_260" -"(let-values(((or-part_308)" -"(eq? mode_17 'dispatch-macro)))" -"(if or-part_308" -" or-part_308" -"(char? mode_17)))))))" +"(if or-part_64" +" or-part_64" +"(let-values(((or-part_65)" +"(eq? mode_59 'dispatch-macro)))" +"(if or-part_65" +" or-part_65" +"(char? mode_59)))))))" "(void)" "(let-values()" "(raise-argument-error" " 'make-readtable" " \"(or/c 'terminating-macro 'non-terminating-macro 'dispatch-macro char?)\"" -" mode_17))))" +" mode_59))))" "(let-values()" -"(if(eq? mode_17 'non-terminating-macro)" +"(if(eq? mode_59 'non-terminating-macro)" "(void)" "(let-values()" "(raise-arguments-error" @@ -48037,725 +48259,733 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(null?(cddr args_8))" +"(if(null?(cddr args_1))" "(let-values()" "(raise-arguments-error" " 'make-readtable" -"(if key_84" +"(if key_58" " \"expected readtable or #f argument after character argument\"" " \"expected procedure argument after symbol argument\")" " \"given\"" -" mode_17))" +" mode_59))" "(void))" "(values))))" -"(let-values(((target_0)(caddr args_8)))" -"(let-values(((rest-args_0)(cdddr args_8)))" -"(if(not key_84)" +"(let-values(((target_60)(caddr args_1)))" +"(let-values(((rest-args_61)(cdddr args_1)))" +"(if(not key_58)" "(let-values()" "(begin" -"(if(if(procedure? target_0)" -"(procedure-arity-includes? target_0 6)" +"(if(if(procedure? target_60)" +"(procedure-arity-includes? target_60 6)" " #f)" "(void)" "(let-values()" "(raise-argument-error" " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" -" target_0)))" -"(loop_103" -" rest-args_0" -" target_0" +" target_60)))" +"(loop_52" +" rest-args_61" +" target_60" " char-ht_0" " dispatch-ht_0" " delimiter-ht_0)))" -"(if(eq? mode_17 'dispatch-macro)" +"(if(eq? mode_59 'dispatch-macro)" "(let-values()" "(begin" -"(if(if(procedure? target_0)" -"(procedure-arity-includes? target_0 6)" +"(if(if(procedure? target_60)" +"(procedure-arity-includes? target_60 6)" " #f)" "(void)" "(let-values()" "(raise-argument-error" " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" -" target_0)))" -"(loop_103" -" rest-args_0" +" target_60)))" +"(loop_52" +" rest-args_61" " symbol-parser_0" " char-ht_0" -"(hash-set dispatch-ht_0 key_84 target_0)" +"(hash-set dispatch-ht_0 key_58 target_60)" " delimiter-ht_0)))" -"(if(char? mode_17)" +"(if(char? mode_59)" "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_287)" -"(not target_0)))" -"(if or-part_287" -" or-part_287" -"(1/readtable? target_0)))" +"(if(let-values(((or-part_69)" +"(not target_60)))" +"(if or-part_69" +" or-part_69" +"(1/readtable? target_60)))" "(void)" "(let-values()" "(raise-argument-error" " 'make-readtable" " \"(or/c readtable? #f)\"" -" target_0)))" +" target_60)))" "(values))))" -"(let-values(((actual-target_0)" -"(let-values(((or-part_22)" -"(if target_0" +"(let-values(((actual-target_66)" +"(let-values(((or-part_70)" +"(if target_60" "(hash-ref" -"(readtable-char-ht target_0)" -" mode_17" +"(readtable-char-ht target_60)" +" mode_59" " #f)" " #f)))" -"(if or-part_22 or-part_22 mode_17))))" -"(let-values(((new-char-ht_0)" -"(if actual-target_0" +"(if or-part_70 or-part_70 mode_59))))" +"(let-values(((new-char-ht_67)" +"(if actual-target_66" "(hash-set" " char-ht_0" -" key_84" -" actual-target_0)" -"(hash-remove char-ht_0 key_84))))" -"(let-values(((new-delimiter-ht_0)" +" key_58" +" actual-target_66)" +"(hash-remove char-ht_0 key_58))))" +"(let-values(((new-delimiter-ht_68)" "(hash-set" " delimiter-ht_0" -" key_84" -"(if target_0" +" key_58" +"(if target_60" "(hash-ref" -"(readtable-delimiter-ht target_0)" -" mode_17" -" mode_17)" -" mode_17))))" -"(loop_103" -" rest-args_0" +"(readtable-delimiter-ht target_60)" +" mode_59" +" mode_59)" +" mode_59))))" +"(loop_52" +" rest-args_61" " symbol-parser_0" -" new-char-ht_0" +" new-char-ht_67" " dispatch-ht_0" -" new-delimiter-ht_0))))))" +" new-delimiter-ht_68))))))" "(let-values()" "(let-values((()" "(begin" -"(if(if(procedure? target_0)" -"(procedure-arity-includes? target_0 6)" +"(if(if(procedure? target_60)" +"(procedure-arity-includes? target_60 6)" " #f)" "(void)" "(let-values()" "(raise-argument-error" " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" -" target_0)))" +" target_60)))" "(values))))" -"(let-values(((new-char-ht_1)" -"(hash-set char-ht_0 key_84 target_0)))" -"(let-values(((new-delimiter-ht_1)" +"(let-values(((new-char-ht_71)" +"(hash-set char-ht_0 key_58 target_60)))" +"(let-values(((new-delimiter-ht_72)" "(hash-set" " delimiter-ht_0" -" key_84" -"(if(eq? mode_17 'terminating-macro)" +" key_58" +"(if(eq? mode_59 'terminating-macro)" " 'delimit" " 'no-delimit))))" -"(loop_103" -" rest-args_0" +"(loop_52" +" rest-args_61" " symbol-parser_0" -" new-char-ht_1" +" new-char-ht_71" " dispatch-ht_0" -" new-delimiter-ht_1))))))))))))))))))))))" -" loop_103)" -" args_7" +" new-delimiter-ht_72))))))))))))))))))))))" +" loop_52)" +" args_0" "(if rt_0(readtable-symbol-parser rt_0) #f)" "(if rt_0(readtable-char-ht rt_0) '#hasheqv())" "(if rt_0(readtable-dispatch-ht rt_0) '#hasheqv())" "(if rt_0(readtable-delimiter-ht rt_0) '#hasheqv()))))))" "(define-values" "(*readtable-effective-char)" -"(lambda(rt_1 c_57)" +"(lambda(rt_0 c_0)" "(begin" -"(let-values(((target_1)(hash-ref(readtable-char-ht rt_1) c_57 #f)))" -"(if(not target_1)(let-values() c_57)(if(char? target_1)(let-values() target_1)(let-values() '#\\x)))))))" +"(let-values(((target_75)(hash-ref(readtable-char-ht rt_0) c_0 #f)))" +"(if(not target_75)" +"(let-values() c_0)" +"(if(char? target_75)(let-values() target_75)(let-values() '#\\x)))))))" "(define-values" "(effective-char)" -"(lambda(c_58 config_11)" +"(lambda(c_0 config_0)" "(begin" -"(let-values(((rt_2)(read-config-readtable config_11))((c_59) c_58))" -"(if(let-values(((or-part_309)(not rt_2)))(if or-part_309 or-part_309(not(char? c_59))))" -"(let-values() c_59)" -"(let-values()(*readtable-effective-char rt_2 c_59)))))))" +"(let-values(((rt_78)(read-config-readtable config_0))((c_79) c_0))" +"(if(let-values(((or-part_80)(not rt_78)))(if or-part_80 or-part_80(not(char? c_79))))" +"(let-values() c_79)" +"(let-values()(*readtable-effective-char rt_78 c_79)))))))" "(define-values" "(readtable-handler)" -"(lambda(config_12 c_60)" +"(lambda(config_0 c_0)" "(begin" -"(let-values(((rt_3)(read-config-readtable config_12)))" -"(if rt_3" -"(let-values(((target_2)(hash-ref(readtable-char-ht rt_3) c_60 #f)))" -"(if target_2(if(not(char? target_2)) target_2 #f) #f))" +"(let-values(((rt_83)(read-config-readtable config_0)))" +"(if rt_83" +"(let-values(((target_84)(hash-ref(readtable-char-ht rt_83) c_0 #f)))" +"(if target_84(if(not(char? target_84)) target_84 #f) #f))" " #f)))))" "(define-values" "(readtable-dispatch-handler)" -"(lambda(config_13 c_61)" +"(lambda(config_0 c_0)" "(begin" -"(let-values((()(begin(force-parameters! config_13)(values))))" -"(let-values(((rt_4)(read-config-readtable config_13)))" -"(if rt_4(hash-ref(readtable-dispatch-ht rt_4) c_61 #f) #f))))))" +"(let-values((()(begin(force-parameters! config_0)(values))))" +"(let-values(((rt_87)(read-config-readtable config_0)))" +"(if rt_87(hash-ref(readtable-dispatch-ht rt_87) c_0 #f) #f))))))" "(define-values" "(readtable-apply)" -"(lambda(handler_0 c_62 in_3 config_14 line_3 col_2 pos_110)" +"(lambda(handler_0 c_0 in_0 config_0 line_0 col_0 pos_0)" "(begin" -"(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_225)" -"(if(not for-syntax?_6)" +"(let-values(((for-syntax?_95)(read-config-for-syntax? config_0)))" +"(let-values(((v_96)" +"(if(not for-syntax?_95)" "(let-values()" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-read-config" -" config_14)" +" config_0)" "(let-values()" "(if(procedure-arity-includes? handler_0 2)" -"(handler_0 c_62 in_3)" -"(handler_0 c_62 in_3 #f line_3 col_2 pos_110)))))" +"(handler_0 c_0 in_0)" +"(handler_0 c_0 in_0 #f line_0 col_0 pos_0)))))" "(let-values()" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-read-config" -" config_14)" -"(let-values()" -"(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_110)))))))" -"(if(1/special-comment? v_225) v_225(coerce v_225 in_3 config_14)))))))" +" config_0)" +"(let-values()(handler_0 c_0 in_0(read-config-source config_0) line_0 col_0 pos_0)))))))" +"(if(1/special-comment? v_96) v_96(coerce v_96 in_0 config_0)))))))" "(define-values" "(1/readtable-mapping)" -"(lambda(rt_5 c_63)" +"(lambda(rt_0 c_0)" "(begin" " 'readtable-mapping" "(let-values((()" "(begin" -"(if(1/readtable? rt_5)" +"(if(1/readtable? rt_0)" "(void)" -" (let-values () (raise-argument-error 'readtable-mapping \"readtable?\" rt_5)))" +" (let-values () (raise-argument-error 'readtable-mapping \"readtable?\" rt_0)))" "(values))))" "(let-values((()" "(begin" -" (if (char? c_63) (void) (let-values () (raise-argument-error 'readtable-mapping \"char?\" c_63)))" +" (if (char? c_0) (void) (let-values () (raise-argument-error 'readtable-mapping \"char?\" c_0)))" "(values))))" -"(let-values(((handler_1)(hash-ref(readtable-char-ht rt_5) c_63 #f)))" +"(let-values(((handler_99)(hash-ref(readtable-char-ht rt_0) c_0 #f)))" "(values" -"(let-values(((or-part_167)" -"(if handler_1" -"(if(char? handler_1)" -"(let-values() handler_1)" -"(if(eq? 'delimit(hash-ref(readtable-delimiter-ht rt_5) c_63 #f))" +"(let-values(((or-part_100)" +"(if handler_99" +"(if(char? handler_99)" +"(let-values() handler_99)" +"(if(eq? 'delimit(hash-ref(readtable-delimiter-ht rt_0) c_0 #f))" "(let-values() 'terminating-macro)" "(let-values() 'non-terminating-macro)))" " #f)))" -"(if or-part_167 or-part_167 c_63))" -"(if(char? handler_1) #f handler_1)" -"(hash-ref(readtable-dispatch-ht rt_5) c_63 #f))))))))" +"(if or-part_100 or-part_100 c_0))" +"(if(char? handler_99) #f handler_99)" +"(hash-ref(readtable-dispatch-ht rt_0) c_0 #f))))))))" "(define-values" "(readtable-equivalent-chars)" -"(lambda(rt_6 c_64)" +"(lambda(rt_0 c_0)" "(begin" -"(let-values(((ht_146)(readtable-char-ht rt_6)))" +"(let-values(((ht_103)(readtable-char-ht rt_0)))" "(append" -"(if(hash-ref ht_146 c_64 #f) null(list c_64))" +"(if(hash-ref ht_103 c_0 #f) null(list c_0))" "(reverse$1" -"(let-values(((ht_153) ht_146))" +"(let-values(((ht_104) ht_103))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_153)))" -"((letrec-values(((for-loop_271)" -"(lambda(fold-var_85 i_168)" +"(let-values()(check-in-hash ht_104)))" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_0 i_0)" "(begin" " 'for-loop" -"(if i_168" -"(let-values(((k_41 v_85)(hash-iterate-key+value ht_153 i_168)))" -"(let-values(((fold-var_284)" -"(let-values(((fold-var_88) fold-var_85))" -"(if(eqv? v_85 c_64)" -"(let-values(((fold-var_238) fold-var_88))" -"(let-values(((fold-var_13)" +"(if i_0" +"(let-values(((k_108 v_109)(hash-iterate-key+value ht_104 i_0)))" +"(let-values(((fold-var_110)" +"(let-values(((fold-var_111) fold-var_0))" +"(if(eqv? v_109 c_0)" +"(let-values(((fold-var_112) fold-var_111))" +"(let-values(((fold-var_113)" "(let-values()" -"(cons(let-values() k_41) fold-var_238))))" -"(values fold-var_13)))" -" fold-var_88))))" +"(cons(let-values() k_108) fold-var_112))))" +"(values fold-var_113)))" +" fold-var_111))))" "(if(not #f)" -"(for-loop_271 fold-var_284(hash-iterate-next ht_153 i_168))" -" fold-var_284)))" -" fold-var_85)))))" -" for-loop_271)" +"(for-loop_105 fold-var_110(hash-iterate-next ht_104 i_0))" +" fold-var_110)))" +" fold-var_0)))))" +" for-loop_105)" " null" -"(hash-iterate-first ht_153))))))))))" +"(hash-iterate-first ht_104))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" -"(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" +"(let-values(((struct:_66 make-_67 ?_68 -ref_69 -set!_70)" "(let-values()" "(let-values()(make-struct-type 'special #f 1 0 #f null(current-inspector) #f '(0) #f 'special)))))" -"(values struct:_76 make-_76 ?_76(make-struct-field-accessor -ref_76 0 'value))))" +"(values struct:_66 make-_67 ?_68(make-struct-field-accessor -ref_69 0 'value))))" "(define-values" "(wrap)" -"(lambda(s-exp_3 in_2 config_7 rep_0)" +"(lambda(s-exp_0 in_0 config_0 rep_0)" "(begin" -"(let-values(((wrap_6)(read-config-wrap config_7)))" -"(if wrap_6" -"(wrap_6" -" s-exp_3" -"(let-values(((in1_1) in_2)((config2_1) config_7))(port+config->srcloc49.1 #f in1_1 config2_1))" +"(let-values(((wrap_5)(read-config-wrap config_0)))" +"(if wrap_5" +"(wrap_5" +" s-exp_0" +"(let-values(((in1_6) in_0)((config2_7) config_0))(port+config->srcloc49.1 #f in1_6 config2_7))" " rep_0)" -" s-exp_3)))))" -"(define-values(consume-char)(lambda(in_4 c_33)(begin(begin(read-char in_4)(void)))))" +" s-exp_0)))))" +"(define-values(consume-char)(lambda(in_0 c_0)(begin(begin(read-char in_0)(void)))))" "(define-values" "(consume-char/special)" -"(lambda(in_5 config_15 c_25)" -"(begin(begin(read-char-or-special in_5 special1.1(read-config-source config_15))(void)))))" +"(lambda(in_0 config_0 c_0)" +"(begin(begin(read-char-or-special in_0 special1.1(read-config-source config_0))(void)))))" "(define-values" "(reader-error12.1)" "(lambda(continuation-marks1_0 due-to2_0 end-pos4_0 who3_0 in9_0 config10_0 str11_0 new-rest_0)" "(begin" " 'reader-error12" -"(let-values(((in_6) in9_0))" -"(let-values(((config_16) config10_0))" -"(let-values(((continuation-marks_0)" +"(let-values(((in_27) in9_0))" +"(let-values(((config_28) config10_0))" +"(let-values(((continuation-marks_29)" "(if(eq? continuation-marks1_0 unsafe-undefined)" "(current-continuation-marks)" " continuation-marks1_0)))" -"(let-values(((due-to_0) due-to2_0))" -"(let-values(((who_28)" +"(let-values(((due-to_30) due-to2_0))" +"(let-values(((who_31)" "(if(eq? who3_0 unsafe-undefined)" -"(if(read-config-for-syntax? config_16) 'read-syntax 'read)" +"(if(read-config-for-syntax? config_28) 'read-syntax 'read)" " who3_0)))" -"(let-values(((end-pos_2) end-pos4_0))" -"(let-values(((str_25) str11_0))" -"(let-values(((args_9) new-rest_0))" -" (let-values (((msg_0) (format \"~a: ~a\" who_28 (apply format str_25 args_9))))" -"(let-values(((srcloc_10)" -"(if in_6" -"(let-values(((in23_0) in_6)((config24_0) config_16)((end-pos25_0) end-pos_2))" -"(port+config->srcloc49.1 end-pos25_0 in23_0 config24_0))" +"(let-values(((end-pos_32) end-pos4_0))" +"(let-values(((str_33) str11_0))" +"(let-values(((args_34) new-rest_0))" +" (let-values (((msg_35) (format \"~a: ~a\" who_31 (apply format str_33 args_34))))" +"(let-values(((srcloc_36)" +"(if in_27" +"(let-values(((in23_38) in_27)" +"((config24_39) config_28)" +"((end-pos25_40) end-pos_32))" +"(port+config->srcloc49.1 end-pos25_40 in23_38 config24_39))" " #f)))" "(raise" -"((if(eof-object? due-to_0)" +"((if(eof-object? due-to_30)" "(let-values() exn:fail:read:eof)" -"(if(not(char? due-to_0))" +"(if(not(char? due-to_30))" "(let-values() exn:fail:read:non-char)" "(let-values() exn:fail:read)))" "(let-values(((s_41)" "(if(error-print-source-location)" -"(if srcloc_10(srcloc->string srcloc_10) #f)" +"(if srcloc_36(srcloc->string srcloc_36) #f)" " #f)))" -" (if s_41 (string-append s_41 \": \" msg_0) msg_0))" -" continuation-marks_0" -"(if srcloc_10(list srcloc_10) null))))))))))))))))" +" (if s_41 (string-append s_41 \": \" msg_35) msg_35))" +" continuation-marks_29" +"(if srcloc_36(list srcloc_36) null))))))))))))))))" "(define-values" "(bad-syntax-error20.1)" "(lambda(due-to15_0 in17_0 config18_0 str19_0)" "(begin" " 'bad-syntax-error20" -"(let-values(((in_7) in17_0))" -"(let-values(((config_17) config18_0))" -"(let-values(((str_26) str19_0))" -"(let-values(((due-to_1) due-to15_0))" +"(let-values(((in_87) in17_0))" +"(let-values(((config_88) config18_0))" +"(let-values(((str_89) str19_0))" +"(let-values(((due-to_90) due-to15_0))" "(let-values()" -"(let-values(((in26_0) in_7)" -"((config27_0) config_17)" -"((due-to28_0) due-to_1)" -" ((temp29_2) \"bad syntax `~a`\")" -"((str30_0) str_26))" +"(let-values(((in26_92) in_87)" +"((config27_93) config_88)" +"((due-to28_94) due-to_90)" +" ((temp29_95) \"bad syntax `~a`\")" +"((str30_96) str_89))" "(reader-error12.1" " unsafe-undefined" -" due-to28_0" +" due-to28_94" " #f" " unsafe-undefined" -" in26_0" -" config27_0" -" temp29_2" -"(list str30_0)))))))))))" +" in26_92" +" config27_93" +" temp29_95" +"(list str30_96)))))))))))" "(define-values" "(catch-and-reraise-as-reader/proc)" -"(lambda(in_8 config_18 thunk_6)" +"(lambda(in_0 config_0 thunk_0)" "(begin" -"(let-values(((with-handlers-predicate31_0) exn:fail?)" -"((with-handlers-handler32_0)" -"(lambda(exn_3)" +"(let-values(((with-handlers-predicate31_120) exn:fail?)" +"((with-handlers-handler32_121)" +"(lambda(exn_0)" "(begin" " 'with-handlers-handler32" -"(let-values(((in33_0) in_8)" -"((config34_0) config_18)" -" ((temp35_2) \"~a\")" -"((temp36_3)" -"(let-values(((s_487)(exn-message exn_3)))" -" (regexp-replace \"^[a-z-]*: \" s_487 \"\")))" -"((temp37_2)(exn-continuation-marks exn_3)))" +"(let-values(((in33_124) in_0)" +"((config34_125) config_0)" +" ((temp35_126) \"~a\")" +"((temp36_127)" +"(let-values(((s_129)(exn-message exn_0)))" +" (regexp-replace \"^[a-z-]*: \" s_129 \"\")))" +"((temp37_128)(exn-continuation-marks exn_0)))" "(reader-error12.1" -" temp37_2" +" temp37_128" " '#\\x" " #f" " unsafe-undefined" -" in33_0" -" config34_0" -" temp35_2" -"(list temp36_3)))))))" -"(let-values(((bpz_3)(continuation-mark-set-first #f break-enabled-key)))" +" in33_124" +" config34_125" +" temp35_126" +"(list temp36_127)))))))" +"(let-values(((bpz_130)(continuation-mark-set-first #f break-enabled-key)))" "(call-handled-body" -" bpz_3" -"(lambda(e_75)" -"(select-handler/no-breaks e_75 bpz_3(list(cons with-handlers-predicate31_0 with-handlers-handler32_0))))" -"(lambda()(thunk_6))))))))" +" bpz_130" +"(lambda(e_0)" +"(select-handler/no-breaks" +" e_0" +" bpz_130" +"(list(cons with-handlers-predicate31_120 with-handlers-handler32_121))))" +"(lambda()(thunk_0))))))))" "(define-values" "(port-next-location*)" -"(lambda(in_4 init-c_0)" +"(lambda(in_0 init-c_0)" "(begin" "(if(not init-c_0)" -"(let-values()(port-next-location in_4))" +"(let-values()(port-next-location in_0))" "(let-values()" -"(let-values(((line_4 col_3 pos_111)(port-next-location in_4)))" -"(values line_4(if col_3(max 0(sub1 col_3)) #f)(if pos_111(max 1(sub1 pos_111)) #f))))))))" +"(let-values(((line_3 col_4 pos_5)(port-next-location in_0)))" +"(values line_3(if col_4(max 0(sub1 col_4)) #f)(if pos_5(max 1(sub1 pos_5)) #f))))))))" "(define-values" "(read-char/skip-whitespace-and-comments)" -"(lambda(init-c_1 read-one_0 in_5 config_15)" +"(lambda(init-c_0 read-one_0 in_0 config_0)" "(begin" -"(let-values(((rt_7)(read-config-readtable config_15)))" -"(let-values(((source_3)(read-config-source config_15)))" -"((letrec-values(((skip-loop_0)" -"(lambda(init-c_2)" +"(let-values(((rt_5)(read-config-readtable config_0)))" +"(let-values(((source_6)(read-config-source config_0)))" +"((letrec-values(((skip-loop_7)" +"(lambda(init-c_1)" "(begin" " 'skip-loop" -"(let-values(((c_36)" -"(let-values(((or-part_158) init-c_2))" -"(if or-part_158" -" or-part_158" -"(let-values(((in_9) in_5)((source_4) source_3))" -"(read-char-or-special in_9 special1.1 source_4))))))" -"(let-values(((ec_0)" -"(let-values(((rt_8) rt_7)((c_65) c_36))" -"(if(let-values(((or-part_5)(not rt_8)))" -"(if or-part_5 or-part_5(not(char? c_65))))" -"(let-values() c_65)" -"(let-values()(*readtable-effective-char rt_8 c_65))))))" -"(if(eof-object? ec_0)" -"(let-values() c_36)" -"(if(not(char? ec_0))" +"(let-values(((c_9)" +"(let-values(((or-part_11) init-c_1))" +"(if or-part_11" +" or-part_11" +"(let-values(((in_12) in_0)((source_14) source_6))" +"(read-char-or-special in_12 special1.1 source_14))))))" +"(let-values(((ec_10)" +"(let-values(((rt_15) rt_5)((c_16) c_9))" +"(if(let-values(((or-part_17)(not rt_15)))" +"(if or-part_17 or-part_17(not(char? c_16))))" +"(let-values() c_16)" +"(let-values()(*readtable-effective-char rt_15 c_16))))))" +"(if(eof-object? ec_10)" +"(let-values() c_9)" +"(if(not(char? ec_10))" "(let-values()" -"(let-values(((v_1)(special-value c_36)))" -"(if(if(1/special-comment? v_1)" -"(not(read-config-keep-comment? config_15))" +"(let-values(((v_18)(special-value c_9)))" +"(if(if(1/special-comment? v_18)" +"(not(read-config-keep-comment? config_0))" " #f)" -"(let-values()(skip-loop_0 #f))" -"(let-values() c_36))))" -"(if(char-whitespace? ec_0)" -"(let-values()(skip-loop_0 #f))" -"(if(char=? '#\\; ec_0)" +"(let-values()(skip-loop_7 #f))" +"(let-values() c_9))))" +"(if(char-whitespace? ec_10)" +"(let-values()(skip-loop_7 #f))" +"(if(char=? '#\\; ec_10)" "(let-values()" "(begin" -"((letrec-values(((loop_78)" +"((letrec-values(((loop_19)" "(lambda()" "(begin" " 'loop" -"(let-values(((c_66)" -"(let-values(((in_10) in_5)" -"((source_5) source_3))" +"(let-values(((c_20)" +"(let-values(((in_21) in_0)" +"((source_23) source_6))" "(read-char-or-special" -" in_10" +" in_21" " special1.1" -" source_5))))" -"(if(let-values(((or-part_310)" -"(eof-object? c_66)))" -"(if or-part_310" -" or-part_310" +" source_23))))" +"(if(let-values(((or-part_24)" +"(eof-object? c_20)))" +"(if or-part_24" +" or-part_24" "(eqv?" " '#\\newline" -"(effective-char c_66 config_15))))" +"(effective-char c_20 config_0))))" "(void)" -"(let-values()(loop_78))))))))" -" loop_78))" -"(if(read-config-keep-comment? config_15)" +"(let-values()(loop_19))))))))" +" loop_19))" +"(if(read-config-keep-comment? config_0)" "(result-special-comment)" -"(skip-loop_0 #f))))" -"(if(if(char=? '#\\# ec_0)" +"(skip-loop_7 #f))))" +"(if(if(char=? '#\\# ec_10)" "(eqv?" " '#\\|" -"(let-values(((in_11) in_5)((skip-count_0) 0)((source_6) source_3))" -"(let-values(((c_17)" +"(let-values(((in_25) in_0)" +"((skip-count_27) 0)" +"((source_28) source_6))" +"(let-values(((c_29)" "(peek-char-or-special" -" in_11" -" skip-count_0" +" in_25" +" skip-count_27" " 'special" -" source_6)))" -"(if(eq? c_17 'special)(special1.1 'special) c_17))))" +" source_28)))" +"(if(eq? c_29 'special)(special1.1 'special) c_29))))" " #f)" "(let-values()" "(begin" -"(skip-pipe-comment! c_36 in_5 config_15)" -"(if(read-config-keep-comment? config_15)" +"(skip-pipe-comment! c_9 in_0 config_0)" +"(if(read-config-keep-comment? config_0)" "(result-special-comment)" -"(skip-loop_0 #f))))" -"(if(if(char=? '#\\# ec_0)" +"(skip-loop_7 #f))))" +"(if(if(char=? '#\\# ec_10)" "(if(eqv?" " '#\\!" -"(let-values(((in_12) in_5)" -"((skip-count_1) 0)" -"((source_7) source_3))" -"(let-values(((c_67)" +"(let-values(((in_30) in_0)" +"((skip-count_32) 0)" +"((source_33) source_6))" +"(let-values(((c_34)" "(peek-char-or-special" -" in_12" -" skip-count_1" +" in_30" +" skip-count_32" " 'special" -" source_7)))" -"(if(eq? c_67 'special)(special1.1 'special) c_67))))" -"(let-values(((c3_2)" -"(let-values(((in_13) in_5)" -"((skip-count_2) 1)" -"((source_8) source_3))" -"(let-values(((c_68)" +" source_33)))" +"(if(eq? c_34 'special)(special1.1 'special) c_34))))" +"(let-values(((c3_35)" +"(let-values(((in_36) in_0)" +"((skip-count_38) 1)" +"((source_39) source_6))" +"(let-values(((c_40)" "(peek-char-or-special" -" in_13" -" skip-count_2" +" in_36" +" skip-count_38" " 'special" -" source_8)))" -"(if(eq? c_68 'special)" +" source_39)))" +"(if(eq? c_40 'special)" "(special1.1 'special)" -" c_68)))))" -"(let-values(((or-part_311)(eqv? '#\\space c3_2)))" -"(if or-part_311 or-part_311(eqv? '#\\/ c3_2))))" +" c_40)))))" +"(let-values(((or-part_41)(eqv? '#\\space c3_35)))" +"(if or-part_41 or-part_41(eqv? '#\\/ c3_35))))" " #f)" " #f)" "(let-values()" "(begin" -"(skip-unix-line-comment! in_5 config_15)" -"(if(read-config-keep-comment? config_15)" +"(skip-unix-line-comment! in_0 config_0)" +"(if(read-config-keep-comment? config_0)" "(result-special-comment)" -"(skip-loop_0 #f))))" -"(if(if(char=? '#\\# ec_0)" +"(skip-loop_7 #f))))" +"(if(if(char=? '#\\# ec_10)" "(eqv?" " '#\\;" -"(let-values(((in_14) in_5)" -"((skip-count_3) 0)" -"((source_9) source_3))" -"(let-values(((c_69)" +"(let-values(((in_42) in_0)" +"((skip-count_44) 0)" +"((source_45) source_6))" +"(let-values(((c_46)" "(peek-char-or-special" -" in_14" -" skip-count_3" +" in_42" +" skip-count_44" " 'special" -" source_9)))" -"(if(eq? c_69 'special)(special1.1 'special) c_69))))" +" source_45)))" +"(if(eq? c_46 'special)(special1.1 'special) c_46))))" " #f)" "(let-values()" -"(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_226)(read-one_0 #f in_5 config_15)))" +"(let-values((()(begin(consume-char in_0 '#\\;)(values))))" +"(let-values(((v_47)(read-one_0 #f in_0 config_0)))" "(begin" -"(if(eof-object? v_226)" +"(if(eof-object? v_47)" "(let-values()" -"(let-values(((in1_2) in_5)" -"((config2_2) config_15)" -"((v3_0) v_226)" -"((temp4_2)" +"(let-values(((in1_49) in_0)" +"((config2_50) config_0)" +"((v3_51) v_47)" +"((temp4_52)" " \"expected a commented-out element for `~a;`, but found end-of-file\")" -"((ec5_0) ec_0))" +"((ec5_53) ec_10))" "(reader-error12.1" " unsafe-undefined" -" v3_0" +" v3_51" " #f" " unsafe-undefined" -" in1_2" -" config2_2" -" temp4_2" -"(list ec5_0))))" +" in1_49" +" config2_50" +" temp4_52" +"(list ec5_53))))" "(void))" -"(if(read-config-keep-comment? config_15)" +"(if(read-config-keep-comment? config_0)" "(result-special-comment)" -"(skip-loop_0 #f))))))" -"(let-values() c_36))))))))))))))" -" skip-loop_0)" -" init-c_1))))))" +"(skip-loop_7 #f))))))" +"(let-values() c_9))))))))))))))" +" skip-loop_7)" +" init-c_0))))))" "(define-values(result-special-comment)(lambda()(begin(special1.1(1/make-special-comment #f)))))" "(define-values" "(skip-pipe-comment!)" -"(lambda(init-c_3 in_15 config_19)" +"(lambda(init-c_0 in_0 config_0)" "(begin" -"(let-values(((source_10)(read-config-source config_19)))" -"(let-values(((line_5 col_4 pos_112)(port-next-location in_15)))" +"(let-values(((source_57)(read-config-source config_0)))" +"(let-values(((line_58 col_59 pos_60)(port-next-location in_0)))" "(begin" -"(consume-char in_15 '#\\|)" -"((letrec-values(((loop_104)" -"(lambda(prev-c_0 depth_10)" +"(consume-char in_0 '#\\|)" +"((letrec-values(((loop_61)" +"(lambda(prev-c_0 depth_0)" "(begin" " 'loop" -"(let-values(((c_70)" -"(let-values(((in_16) in_15)((source_11) source_10))" -"(read-char-or-special in_16 special1.1 source_11))))" -"(if(eof-object? c_70)" +"(let-values(((c_64)" +"(let-values(((in_65) in_0)((source_67) source_57))" +"(read-char-or-special in_65 special1.1 source_67))))" +"(if(eof-object? c_64)" "(let-values()" -"(let-values(((in6_0) in_15)" -"((temp7_3)(reading-at config_19 line_5 col_4 pos_112))" -"((c8_0) c_70)" -" ((temp9_4) \"end of file in `#|` comment\"))" +"(let-values(((in6_69) in_0)" +"((temp7_70)(reading-at config_0 line_58 col_59 pos_60))" +"((c8_71) c_64)" +" ((temp9_72) \"end of file in `#|` comment\"))" "(reader-error12.1" " unsafe-undefined" -" c8_0" +" c8_71" " #f" " unsafe-undefined" -" in6_0" -" temp7_3" -" temp9_4" +" in6_69" +" temp7_70" +" temp9_72" "(list))))" -"(if(not(char? c_70))" -"(let-values()(loop_104 #f depth_10))" -"(if(if(char=? '#\\| c_70)(eqv? prev-c_0 '#\\#) #f)" -"(let-values()(loop_104 #f(add1 depth_10)))" -"(if(if(char=? '#\\# c_70)(eqv? prev-c_0 '#\\|) #f)" +"(if(not(char? c_64))" +"(let-values()(loop_61 #f depth_0))" +"(if(if(char=? '#\\| c_64)(eqv? prev-c_0 '#\\#) #f)" +"(let-values()(loop_61 #f(add1 depth_0)))" +"(if(if(char=? '#\\# c_64)(eqv? prev-c_0 '#\\|) #f)" "(let-values()" -"(if(positive? depth_10)" -"(let-values()(loop_104 #f(sub1 depth_10)))" +"(if(positive? depth_0)" +"(let-values()(loop_61 #f(sub1 depth_0)))" "(void)))" -"(let-values()(loop_104 c_70 depth_10)))))))))))" -" loop_104)" +"(let-values()(loop_61 c_64 depth_0)))))))))))" +" loop_61)" " #f" " 0)))))))" "(define-values" "(skip-unix-line-comment!)" -"(lambda(in_17 config_20)" +"(lambda(in_0 config_0)" "(begin" -"((letrec-values(((loop_105)" +"((letrec-values(((loop_75)" "(lambda(backslash?_0)" "(begin" " 'loop" -"(let-values(((c_42)" -"(let-values(((in_18) in_17)((source_12)(read-config-source config_20)))" -"(read-char-or-special in_18 special1.1 source_12))))" -"(if(eof-object? c_42)" +"(let-values(((c_77)" +"(let-values(((in_78) in_0)((source_80)(read-config-source config_0)))" +"(read-char-or-special in_78 special1.1 source_80))))" +"(if(eof-object? c_77)" "(let-values()(void))" -"(if(not(char? c_42))" -"(let-values()(loop_105 #f))" -"(if(char=? c_42 '#\\newline)" -"(let-values()(if backslash?_0(let-values()(loop_105 #f))(void)))" -"(if(char=? c_42 '#\\\\)" -"(let-values()(loop_105 #t))" -"(let-values()(loop_105 #f)))))))))))" -" loop_105)" +"(if(not(char? c_77))" +"(let-values()(loop_75 #f))" +"(if(char=? c_77 '#\\newline)" +"(let-values()(if backslash?_0(let-values()(loop_75 #f))(void)))" +"(if(char=? c_77 '#\\\\)" +"(let-values()(loop_75 #t))" +"(let-values()(loop_75 #f)))))))))))" +" loop_75)" " #f))))" "(define-values" "(readtable-char-delimiter?)" -"(lambda(rt_9 c_33 config_7)" +"(lambda(rt_0 c_0 config_0)" "(begin" -"(let-values(((dc_0)" -"(let-values(((or-part_2)(if rt_9(hash-ref(readtable-delimiter-ht rt_9) c_33 #f) #f)))" -"(if or-part_2 or-part_2 c_33))))" -"(if(eq? dc_0 'no-delimit)" +"(let-values(((dc_4)" +"(let-values(((or-part_5)(if rt_0(hash-ref(readtable-delimiter-ht rt_0) c_0 #f) #f)))" +"(if or-part_5 or-part_5 c_0))))" +"(if(eq? dc_4 'no-delimit)" "(let-values() #f)" -"(if(not(char? dc_0))" +"(if(not(char? dc_4))" "(let-values() #t)" "(let-values()" -"(let-values(((or-part_26)(char-whitespace? dc_0)))" -"(if or-part_26" -" or-part_26" -"(let-values(((or-part_312)(char=? dc_0 '#\\()))" -"(if or-part_312" -" or-part_312" -"(let-values(((or-part_292)(char=? dc_0 '#\\))))" -"(if or-part_292" -" or-part_292" -"(let-values(((or-part_27)(char=? dc_0 '#\\[)))" -"(if or-part_27" -" or-part_27" -"(let-values(((or-part_10)(char=? dc_0 '#\\])))" +"(let-values(((or-part_6)(char-whitespace? dc_4)))" +"(if or-part_6" +" or-part_6" +"(let-values(((or-part_7)(char=? dc_4 '#\\()))" +"(if or-part_7" +" or-part_7" +"(let-values(((or-part_8)(char=? dc_4 '#\\))))" +"(if or-part_8" +" or-part_8" +"(let-values(((or-part_9)(char=? dc_4 '#\\[)))" +"(if or-part_9" +" or-part_9" +"(let-values(((or-part_10)(char=? dc_4 '#\\])))" "(if or-part_10" " or-part_10" -"(let-values(((or-part_158)(char=? dc_0 '#\\{)))" -"(if or-part_158" -" or-part_158" -"(let-values(((or-part_12)(char=? dc_0 '#\\})))" +"(let-values(((or-part_11)(char=? dc_4 '#\\{)))" +"(if or-part_11" +" or-part_11" +"(let-values(((or-part_12)(char=? dc_4 '#\\})))" "(if or-part_12" " or-part_12" -"(let-values(((or-part_13)(char=? dc_0 '#\\')))" +"(let-values(((or-part_13)(char=? dc_4 '#\\')))" "(if or-part_13" " or-part_13" -"(let-values(((or-part_217)(char=? dc_0 '#\\`)))" -"(if or-part_217" -" or-part_217" -"(let-values(((or-part_3)(char=? dc_0 '#\\,)))" -"(if or-part_3" -" or-part_3" -"(let-values(((or-part_4)(char=? dc_0 '#\\;)))" -"(if or-part_4" -" or-part_4" -" (let-values (((or-part_5) (char=? dc_0 '#\\\")))" -"(if or-part_5" -" or-part_5" -"(if(char=? dc_0 '#\\.)" -"(check-parameter 1/read-cdot config_7)" +"(let-values(((or-part_14)(char=? dc_4 '#\\`)))" +"(if or-part_14" +" or-part_14" +"(let-values(((or-part_15)(char=? dc_4 '#\\,)))" +"(if or-part_15" +" or-part_15" +"(let-values(((or-part_16)(char=? dc_4 '#\\;)))" +"(if or-part_16" +" or-part_16" +" (let-values (((or-part_17) (char=? dc_4 '#\\\")))" +"(if or-part_17" +" or-part_17" +"(if(char=? dc_4 '#\\.)" +"(check-parameter 1/read-cdot config_0)" " #f))))))))))))))))))))))))))))))))" "(define-values" "(char-delimiter?)" -"(lambda(c_14 config_21)(begin(readtable-char-delimiter?(read-config-readtable config_21) c_14 config_21))))" +"(lambda(c_0 config_0)(begin(readtable-char-delimiter?(read-config-readtable config_0) c_0 config_0))))" "(define-values" "(char-closer?)" -"(lambda(ec_1 config_8)" +"(lambda(ec_0 config_0)" "(begin" -"(if(not(eof-object? ec_1))" -"(let-values(((or-part_1)(char=? ec_1 '#\\))))" -"(if or-part_1" -" or-part_1" -"(let-values(((or-part_11)(char=? ec_1 '#\\])))(if or-part_11 or-part_11(char=? ec_1 '#\\})))))" +"(if(not(eof-object? ec_0))" +"(let-values(((or-part_3)(char=? ec_0 '#\\))))" +"(if or-part_3" +" or-part_3" +"(let-values(((or-part_4)(char=? ec_0 '#\\])))(if or-part_4 or-part_4(char=? ec_0 '#\\})))))" " #f))))" -" (define-values (closer-name) (lambda (c_25 config_22) (begin (effective-char-names c_25 config_22 \"closer\"))))" -" (define-values (opener-name) (lambda (c_34 config_23) (begin (effective-char-names c_34 config_23 \"opener\"))))" +" (define-values (closer-name) (lambda (c_0 config_0) (begin (effective-char-names c_0 config_0 \"closer\"))))" +" (define-values (opener-name) (lambda (c_0 config_0) (begin (effective-char-names c_0 config_0 \"opener\"))))" "(define-values" "(effective-char-names)" -"(lambda(c_36 config_24 fallback-str_0)" +"(lambda(c_0 config_0 fallback-str_0)" "(begin" -"(let-values(((rt_10)(read-config-readtable config_24)))" -"(if(not rt_10)" -" (let-values () (format \"`~a`\" c_36))" +"(let-values(((rt_12)(read-config-readtable config_0)))" +"(if(not rt_12)" +" (let-values () (format \"`~a`\" c_0))" "(let-values()" -"(let-values(((cs_1)(readtable-equivalent-chars rt_10 c_36)))" -"(if(null? cs_1)" +"(let-values(((cs_13)(readtable-equivalent-chars rt_12 c_0)))" +"(if(null? cs_13)" "(let-values() fallback-str_0)" -"(if(null?(cdr cs_1))" -" (let-values () (format \"`~a`\" (car cs_1)))" -"(if(null?(cddr cs_1))" -" (let-values () (format \"`~a` or `~a`\" (car cs_1) (cadr cs_1)))" +"(if(null?(cdr cs_13))" +" (let-values () (format \"`~a`\" (car cs_13)))" +"(if(null?(cddr cs_13))" +" (let-values () (format \"`~a` or `~a`\" (car cs_13) (cadr cs_13)))" "(let-values()" "(apply" " string-append" -"((letrec-values(((loop_106)" -"(lambda(cs_2)" +"((letrec-values(((loop_14)" +"(lambda(cs_0)" "(begin" " 'loop" -"(if(null?(cdr cs_2))" -" (let-values () (list (format \"or `~a`\" (car cs_2))))" +"(if(null?(cdr cs_0))" +" (let-values () (list (format \"or `~a`\" (car cs_0))))" "(let-values()" -" (cons (format \"`~a`, \" (car cs_2)) (loop_106 (cdr cs_2)))))))))" -" loop_106)" -" cs_1)))))))))))))" +" (cons (format \"`~a`, \" (car cs_0)) (loop_14 (cdr cs_0)))))))))" +" loop_14)" +" cs_13)))))))))))))" "(define-values" "(closer->opener)" -"(lambda(c_65)" +"(lambda(c_0)" "(begin" -"(let-values(((tmp_36) c_65))" -"(if(equal? tmp_36 '#\\))" +"(let-values(((tmp_17) c_0))" +"(if(equal? tmp_17 '#\\))" "(let-values() '#\\()" -"(if(equal? tmp_36 '#\\])" +"(if(equal? tmp_17 '#\\])" "(let-values() '#\\[)" -"(if(equal? tmp_36 '#\\})(let-values() '#\\{)(let-values() c_65))))))))" -" (define-values (dot-name) (lambda (config_25) (begin \"`.`\")))" +"(if(equal? tmp_17 '#\\})(let-values() '#\\{)(let-values() c_0))))))))" +" (define-values (dot-name) (lambda (config_0) (begin \"`.`\")))" "(define-values" "(all-openers-str)" -"(lambda(config_21)" +"(lambda(config_0)" "(begin" -"(let-values(((p_54)(opener-name '#\\( config_21)))" -"(let-values(((s_10)" -"(if(check-parameter 1/read-square-bracket-as-paren config_21)(opener-name '#\\[ config_21) #f)))" -"(let-values(((c_71)" -"(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" -"(if(if s_10 c_71 #f)" -" (let-values () (format \"~a, ~a, or ~a\" p_54 s_10 c_71))" -"(if(let-values(((or-part_298) s_10))(if or-part_298 or-part_298 c_71))" +"(let-values(((p_20)(opener-name '#\\( config_0)))" +"(let-values(((s_21)" +"(if(check-parameter 1/read-square-bracket-as-paren config_0)(opener-name '#\\[ config_0) #f)))" +"(let-values(((c_22)" +"(if(check-parameter 1/read-curly-brace-as-paren config_0)(opener-name '#\\{ config_0) #f)))" +"(if(if s_21 c_22 #f)" +" (let-values () (format \"~a, ~a, or ~a\" p_20 s_21 c_22))" +"(if(let-values(((or-part_23) s_21))(if or-part_23 or-part_23 c_22))" "(let-values()" -" (format \"~a or ~a\" p_54 (let-values (((or-part_310) s_10)) (if or-part_310 or-part_310 c_71))))" -"(let-values() p_54)))))))))" +" (format \"~a or ~a\" p_20 (let-values (((or-part_24) s_21)) (if or-part_24 or-part_24 c_22))))" +"(let-values() p_20)))))))))" "(define-values" "(struct:accum-string" " accum-string1.1" @@ -48764,83 +48994,83 @@ static const char *startup_source = " accum-string-str" " set-accum-string-pos!" " set-accum-string-str!)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type 'accum-string #f 2 0 #f null(current-inspector) #f '() #f 'accum-string)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 'pos)" -"(make-struct-field-accessor -ref_0 1 'str)" -"(make-struct-field-mutator -set!_0 0 'pos)" -"(make-struct-field-mutator -set!_0 1 'str))))" +" struct:_1" +" make-_2" +" ?_3" +"(make-struct-field-accessor -ref_4 0 'pos)" +"(make-struct-field-accessor -ref_4 1 'str)" +"(make-struct-field-mutator -set!_5 0 'pos)" +"(make-struct-field-mutator -set!_5 1 'str))))" "(define-values" "(accum-string-init!)" -"(lambda(config_26)" +"(lambda(config_0)" "(begin" -"(let-values(((st_1)(read-config-st config_26)))" -"(let-values(((a_69)(read-config-state-accum-str st_1)))" -"(if a_69" -"(let-values()(begin(set-read-config-state-accum-str! st_1 #f)(set-accum-string-pos! a_69 0) a_69))" +"(let-values(((st_27)(read-config-st config_0)))" +"(let-values(((a_28)(read-config-state-accum-str st_27)))" +"(if a_28" +"(let-values()(begin(set-read-config-state-accum-str! st_27 #f)(set-accum-string-pos! a_28 0) a_28))" "(let-values()(accum-string1.1 0(make-string 32)))))))))" "(define-values" "(accum-string-add!)" -"(lambda(a_70 c_50)" +"(lambda(a_0 c_0)" "(begin" -"(let-values(((pos_113)(accum-string-pos a_70)))" -"(let-values(((str_27)(accum-string-str a_70)))" -"(let-values(((str2_0)" -"(if(< pos_113(string-length str_27))" -"(let-values() str_27)" +"(let-values(((pos_31)(accum-string-pos a_0)))" +"(let-values(((str_32)(accum-string-str a_0)))" +"(let-values(((str2_33)" +"(if(< pos_31(string-length str_32))" +"(let-values() str_32)" "(let-values()" -"(let-values(((str2_1)(make-string(*(string-length str_27) 2))))" -"(begin(string-copy! str2_1 0 str_27)(set-accum-string-str! a_70 str2_1) str2_1))))))" -"(begin(string-set! str2_0 pos_113 c_50)(set-accum-string-pos! a_70(add1 pos_113)))))))))" -"(define-values(accum-string-count)(lambda(a_71)(begin(accum-string-pos a_71))))" -"(define-values(set-accum-string-count!)(lambda(a_72 pos_12)(begin(set-accum-string-pos! a_72 pos_12))))" +"(let-values(((str2_34)(make-string(*(string-length str_32) 2))))" +"(begin(string-copy! str2_34 0 str_32)(set-accum-string-str! a_0 str2_34) str2_34))))))" +"(begin(string-set! str2_33 pos_31 c_0)(set-accum-string-pos! a_0(add1 pos_31)))))))))" +"(define-values(accum-string-count)(lambda(a_0)(begin(accum-string-pos a_0))))" +"(define-values(set-accum-string-count!)(lambda(a_0 pos_0)(begin(set-accum-string-pos! a_0 pos_0))))" "(define-values" "(accum-string-convert!)" -"(lambda(a_73 convert_1 start-pos_6)" +"(lambda(a_0 convert_0 start-pos_0)" "(begin" -"(let-values(((str_28)(accum-string-str a_73)))" -"(let-values(((s_80)(convert_1(substring str_28 start-pos_6(accum-string-pos a_73)))))" -"(let-values(((len_36)(string-length s_80)))" +"(let-values(((str_41)(accum-string-str a_0)))" +"(let-values(((s_42)(convert_0(substring str_41 start-pos_0(accum-string-pos a_0)))))" +"(let-values(((len_43)(string-length s_42)))" "(begin" -"(if(<(+ len_36 start-pos_6)(string-length str_28))" +"(if(<(+ len_43 start-pos_0)(string-length str_41))" "(void)" "(let-values()" -"(let-values(((str2_2)(make-string(+ start-pos_6 len_36))))" -"(begin(string-copy! str2_2 0 str_28 0 start-pos_6)(set-accum-string-str! a_73 str2_2)))))" -"(string-copy!(accum-string-str a_73) start-pos_6 s_80)" -"(set-accum-string-pos! a_73(+ start-pos_6 len_36)))))))))" +"(let-values(((str2_44)(make-string(+ start-pos_0 len_43))))" +"(begin(string-copy! str2_44 0 str_41 0 start-pos_0)(set-accum-string-str! a_0 str2_44)))))" +"(string-copy!(accum-string-str a_0) start-pos_0 s_42)" +"(set-accum-string-pos! a_0(+ start-pos_0 len_43)))))))))" "(define-values" "(accum-string-get!6.1)" "(lambda(start-pos2_0 a4_0 config5_0)" "(begin" " 'accum-string-get!6" -"(let-values(((a_58) a4_0))" -"(let-values(((config_27) config5_0))" -"(let-values(((start-pos_7) start-pos2_0))" +"(let-values(((a_48) a4_0))" +"(let-values(((config_49) config5_0))" +"(let-values(((start-pos_50) start-pos2_0))" "(let-values()" -"(let-values(((s_43)(substring(accum-string-str a_58) start-pos_7(accum-string-pos a_58))))" -"(begin(accum-string-abandon! a_58 config_27) s_43)))))))))" +"(let-values(((s_51)(substring(accum-string-str a_48) start-pos_50(accum-string-pos a_48))))" +"(begin(accum-string-abandon! a_48 config_49) s_51)))))))))" "(define-values" "(accum-string-get-bytes!13.1)" "(lambda(start-pos9_0 a11_0 config12_0)" "(begin" " 'accum-string-get-bytes!13" -"(let-values(((a_64) a11_0))" -"(let-values(((config_28) config12_0))" -"(let-values(((start-pos_8) start-pos9_0))" +"(let-values(((a_72) a11_0))" +"(let-values(((config_73) config12_0))" +"(let-values(((start-pos_74) start-pos9_0))" "(let-values()" -"(let-values(((bstr_3)" -"(string->bytes/latin-1(accum-string-str a_64) #f start-pos_8(accum-string-pos a_64))))" -"(begin(accum-string-abandon! a_64 config_28) bstr_3)))))))))" +"(let-values(((bstr_75)" +"(string->bytes/latin-1(accum-string-str a_72) #f start-pos_74(accum-string-pos a_72))))" +"(begin(accum-string-abandon! a_72 config_73) bstr_75)))))))))" "(define-values" "(accum-string-abandon!)" -"(lambda(a_74 config_29)(begin(set-read-config-state-accum-str!(read-config-st config_29) a_74))))" +"(lambda(a_0 config_0)(begin(set-read-config-state-accum-str!(read-config-st config_0) a_0))))" "(define-values" "(struct:indentation" " indentation1.1" @@ -48859,130 +49089,131 @@ static const char *startup_source = " set-indentation-suspicious-line!" " set-indentation-max-indent!" " set-indentation-suspicious-quote!)" -"(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" +"(let-values(((struct:_1 make-_2 ?_3 -ref_4 -set!_5)" "(let-values()" "(let-values()" "(make-struct-type 'indentation #f 8 0 #f null(current-inspector) #f '(0 3) #f 'indentation)))))" "(values" -" struct:_0" -" make-_0" -" ?_0" -"(make-struct-field-accessor -ref_0 0 'closer)" -"(make-struct-field-accessor -ref_0 1 'suspicious-closer)" -"(make-struct-field-accessor -ref_0 2 'multiline?)" -"(make-struct-field-accessor -ref_0 3 'start-line)" -"(make-struct-field-accessor -ref_0 4 'last-line)" -"(make-struct-field-accessor -ref_0 5 'suspicious-line)" -"(make-struct-field-accessor -ref_0 6 'max-indent)" -"(make-struct-field-accessor -ref_0 7 'suspicious-quote)" -"(make-struct-field-mutator -set!_0 1 'suspicious-closer)" -"(make-struct-field-mutator -set!_0 2 'multiline?)" -"(make-struct-field-mutator -set!_0 4 'last-line)" -"(make-struct-field-mutator -set!_0 5 'suspicious-line)" -"(make-struct-field-mutator -set!_0 6 'max-indent)" -"(make-struct-field-mutator -set!_0 7 'suspicious-quote))))" +" struct:_1" +" make-_2" +" ?_3" +"(make-struct-field-accessor -ref_4 0 'closer)" +"(make-struct-field-accessor -ref_4 1 'suspicious-closer)" +"(make-struct-field-accessor -ref_4 2 'multiline?)" +"(make-struct-field-accessor -ref_4 3 'start-line)" +"(make-struct-field-accessor -ref_4 4 'last-line)" +"(make-struct-field-accessor -ref_4 5 'suspicious-line)" +"(make-struct-field-accessor -ref_4 6 'max-indent)" +"(make-struct-field-accessor -ref_4 7 'suspicious-quote)" +"(make-struct-field-mutator -set!_5 1 'suspicious-closer)" +"(make-struct-field-mutator -set!_5 2 'multiline?)" +"(make-struct-field-mutator -set!_5 4 'last-line)" +"(make-struct-field-mutator -set!_5 5 'suspicious-line)" +"(make-struct-field-mutator -set!_5 6 'max-indent)" +"(make-struct-field-mutator -set!_5 7 'suspicious-quote))))" "(define-values" "(make-indentation)" -"(lambda(closer_0 in_19 config_30)" +"(lambda(closer_0 in_0 config_0)" "(begin" -"(let-values(((line_6 col_5 pos_114)(port-next-location in_19)))" -"(indentation1.1 closer_0 #f #f line_6 line_6 #f(if col_5(add1 col_5) #f) #f)))))" +"(let-values(((line_59 col_60 pos_61)(port-next-location in_0)))" +"(indentation1.1 closer_0 #f #f line_59 line_59 #f(if col_60(add1 col_60) #f) #f)))))" "(define-values" "(track-indentation!)" -"(lambda(config_31 line_7 col_6)" +"(lambda(config_0 line_0 col_0)" "(begin" -"(let-values(((indts_0)(read-config-indentations config_31)))" -"(let-values(((indt_0)(if(pair? indts_0)(car indts_0) #f)))" -"(if(if indt_0" -"(if line_7(if(indentation-last-line indt_0)(> line_7(indentation-last-line indt_0)) #f) #f)" +"(let-values(((indts_65)(read-config-indentations config_0)))" +"(let-values(((indt_66)(if(pair? indts_65)(car indts_65) #f)))" +"(if(if indt_66" +"(if line_0(if(indentation-last-line indt_66)(> line_0(indentation-last-line indt_66)) #f) #f)" " #f)" "(let-values()" "(begin" -"(set-indentation-last-line! indt_0 line_7)" -"(set-indentation-multiline?! indt_0 #t)" -"(if(>= col_6(indentation-max-indent indt_0))" -"(let-values()(set-indentation-max-indent! indt_0 col_6))" +"(set-indentation-last-line! indt_66 line_0)" +"(set-indentation-multiline?! indt_66 #t)" +"(if(>= col_0(indentation-max-indent indt_66))" +"(let-values()(set-indentation-max-indent! indt_66 col_0))" "(let-values()" -"(if(indentation-suspicious-line indt_0)" +"(if(indentation-suspicious-line indt_66)" "(void)" "(let-values()" "(begin" -"(set-indentation-suspicious-closer! indt_0(indentation-closer indt_0))" -"(set-indentation-suspicious-line! indt_0 line_7))))))))" +"(set-indentation-suspicious-closer! indt_66(indentation-closer indt_66))" +"(set-indentation-suspicious-line! indt_66 line_0))))))))" "(void)))))))" "(define-values" "(indentation-possible-cause)" -"(lambda(config_32)" +"(lambda(config_0)" "(begin" -"(let-values(((indt_1)(car(read-config-indentations config_32))))" -"(if(indentation-suspicious-line indt_1)" +"(let-values(((indt_68)(car(read-config-indentations config_0))))" +"(if(indentation-suspicious-line indt_68)" "(let-values()" "(format" " \"\\n possible cause: indentation suggests a missing ~a before line ~a\"" -"(closer-name(indentation-suspicious-closer indt_1) config_32)" -"(indentation-suspicious-line indt_1)))" +"(closer-name(indentation-suspicious-closer indt_68) config_0)" +"(indentation-suspicious-line indt_68)))" " (let-values () \"\"))))))" "(define-values" "(indentation-unexpected-closer-message)" -"(lambda(ec_2 c_72 config_33)" +"(lambda(ec_0 c_0 config_0)" "(begin" -"(let-values(((indts_1)(read-config-indentations config_33)))" -"(if(null? indts_1)" -" (let-values () (format \"unexpected `~a`\" c_72))" +"(let-values(((indts_72)(read-config-indentations config_0)))" +"(if(null? indts_72)" +" (let-values () (format \"unexpected `~a`\" c_0))" "(let-values()" -"(let-values(((indt_2)(car indts_1)))" +"(let-values(((indt_73)(car indts_72)))" "(string-append" -"(if(char=? ec_2(indentation-closer indt_2))" -" (let-values () (format \"unexpected `~a`\" c_72))" +"(if(char=? ec_0(indentation-closer indt_73))" +" (let-values () (format \"unexpected `~a`\" c_0))" "(let-values()" -"(let-values(((missing_2)" -"(let-values(((or-part_301)" -"(let-values(((lst_7)(cdr indts_1)))" +"(let-values(((missing_74)" +"(let-values(((or-part_76)" +"(let-values(((lst_77)(cdr indts_72)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_7)))" -"((letrec-values(((for-loop_0)" -"(lambda(result_120 lst_8)" +"(let-values()(check-list lst_77)))" +"((letrec-values(((for-loop_78)" +"(lambda(result_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_8)" -"(let-values(((indt_3)(unsafe-car lst_8))" -"((rest_0)(unsafe-cdr lst_8)))" +"(if(pair? lst_0)" +"(let-values(((indt_81)(unsafe-car lst_0))" +"((rest_82)(unsafe-cdr lst_0)))" "(let-values(((result_83)" "(let-values()" -"(let-values(((result_121)" +"(let-values(((result_85)" "(let-values()" "(let-values()" "(if(char=?" -" ec_2" +" ec_0" "(indentation-closer" -" indt_3))" +" indt_81))" " \"missing\"" " #f)))))" -"(values result_121)))))" +"(values result_85)))))" "(if(if(not" -"((lambda x_84 result_83)" -" indt_3))" +"((lambda x_0 result_83)" +" indt_81))" "(not #f)" " #f)" -"(for-loop_0 result_83 rest_0)" +"(for-loop_78 result_83 rest_82)" " result_83)))" -" result_120)))))" -" for-loop_0)" +" result_0)))))" +" for-loop_78)" " #f" -" lst_7)))))" -" (if or-part_301 or-part_301 \"expected\"))))" -"(let-values(((opener-str_0)(opener-name(closer->opener(indentation-closer indt_2)) config_33)))" +" lst_77)))))" +" (if or-part_76 or-part_76 \"expected\"))))" +"(let-values(((opener-str_75)" +"(opener-name(closer->opener(indentation-closer indt_73)) config_0)))" "(format" " \"~a ~a to close ~a, found instead `~a`\"" -" missing_2" -"(closer-name(indentation-closer indt_2) config_33)" -"(if(indentation-multiline? indt_2)" -" (let-values () (format \"~a on line ~a\" opener-str_0 (indentation-start-line indt_2)))" -" (let-values () (format \"preceding ~a\" opener-str_0)))" -" c_72)))))" -"(indentation-possible-cause config_33)))))))))" +" missing_74" +"(closer-name(indentation-closer indt_73) config_0)" +"(if(indentation-multiline? indt_73)" +" (let-values () (format \"~a on line ~a\" opener-str_75 (indentation-start-line indt_73)))" +" (let-values () (format \"preceding ~a\" opener-str_75)))" +" c_0)))))" +"(indentation-possible-cause config_0)))))))))" "(define-values" "(read-unwrapped-sequence17.1)" "(lambda(dot-mode2_0" @@ -48998,482 +49229,483 @@ static const char *startup_source = " seq-config16_0)" "(begin" " 'read-unwrapped-sequence17" -"(let-values(((read-one_1) read-one11_0))" -"(let-values(((opener-c_0) opener-c12_0))" -"(let-values(((opener_0) opener13_0))" -"(let-values(((closer_1) closer14_0))" -"(let-values(((in_20) in15_0))" -"(let-values(((seq-config_0) seq-config16_0))" -"(let-values(((elem-config_0)" +"(let-values(((read-one_12) read-one11_0))" +"(let-values(((opener-c_13) opener-c12_0))" +"(let-values(((opener_14) opener13_0))" +"(let-values(((closer_15) closer14_0))" +"(let-values(((in_16) in15_0))" +"(let-values(((seq-config_17) seq-config16_0))" +"(let-values(((elem-config_18)" "(if(eq? elem-config1_0 unsafe-undefined)" -"(next-readtable seq-config_0)" +"(next-readtable seq-config_17)" " elem-config1_0)))" -"(let-values(((dot-mode_0) dot-mode2_0))" -"(let-values(((shape-tag?_0) shape-tag?3_0))" -"(let-values(((whitespace-read-one_0)" +"(let-values(((dot-mode_19) dot-mode2_0))" +"(let-values(((shape-tag?_20) shape-tag?3_0))" +"(let-values(((whitespace-read-one_21)" "(if(eq? whitespace-read-one4_0 unsafe-undefined)" -" read-one_1" +" read-one_12" " whitespace-read-one4_0)))" -"(let-values(((first-read-one_0)" -"(if(eq? first-read-one5_0 unsafe-undefined) read-one_1 first-read-one5_0)))" +"(let-values(((first-read-one_22)" +"(if(eq? first-read-one5_0 unsafe-undefined) read-one_12 first-read-one5_0)))" "(let-values()" -"(let-values(((head_0) #f))" -"(let-values(((indentation_0)(make-indentation closer_1 in_20 seq-config_0)))" -"(let-values(((config_34)" -"(let-values(((v_227) elem-config_0))" -"(let-values(((the-struct_88) v_227))" -"(if(read-config/outer? the-struct_88)" -"(let-values(((indentations20_0)" +"(let-values(((head_23) #f))" +"(let-values(((indentation_24)(make-indentation closer_15 in_16 seq-config_17)))" +"(let-values(((config_25)" +"(let-values(((v_33) elem-config_18))" +"(let-values(((the-struct_34) v_33))" +"(if(read-config/outer? the-struct_34)" +"(let-values(((indentations20_35)" "(cons" -" indentation_0" -"(read-config-indentations seq-config_0)))" -"((inner21_0)(read-config/outer-inner v_227)))" +" indentation_24" +"(read-config-indentations seq-config_17)))" +"((inner21_36)(read-config/outer-inner v_33)))" "(read-config/outer1.1" -" inner21_0" -"(read-config/outer-wrap the-struct_88)" -"(read-config/outer-line the-struct_88)" -"(read-config/outer-col the-struct_88)" -"(read-config/outer-pos the-struct_88)" -" indentations20_0" -"(read-config/outer-keep-comment? the-struct_88)))" +" inner21_36" +"(read-config/outer-wrap the-struct_34)" +"(read-config/outer-line the-struct_34)" +"(read-config/outer-col the-struct_34)" +"(read-config/outer-pos the-struct_34)" +" indentations20_35" +"(read-config/outer-keep-comment? the-struct_34)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_88))))))" -"(let-values(((open-end-line_0 open-end-col_0 open-end-pos_0)" -"(port-next-location in_20)))" -"(let-values(((config/keep-comment_0)(keep-comment config_34)))" -"(let-values(((read-one/not-eof_0)" -"(lambda(init-c_4 read-one_2 config_35)" +" the-struct_34))))))" +"(let-values(((open-end-line_26 open-end-col_27 open-end-pos_28)" +"(port-next-location in_16)))" +"(let-values(((config/keep-comment_29)(keep-comment config_25)))" +"(let-values(((read-one/not-eof_30)" +"(lambda(init-c_0 read-one_0 config_0)" "(begin" " 'read-one/not-eof" -"(let-values(((e_76)(read-one_2 init-c_4 in_20 config_35)))" +"(let-values(((e_40)(read-one_0 init-c_0 in_16 config_0)))" "(begin" -"(if(eof-object? e_76)" +"(if(eof-object? e_40)" "(let-values()" -"(let-values(((in22_0) in_20)" -"((seq-config23_0) seq-config_0)" -"((e24_0) e_76)" -"((open-end-pos25_0) open-end-pos_0)" -"((temp26_3)" +"(let-values(((in22_42) in_16)" +"((seq-config23_43) seq-config_17)" +"((e24_44) e_40)" +"((open-end-pos25_45) open-end-pos_28)" +"((temp26_46)" " \"expected a ~a to close `~a`~a\")" -"((temp27_5)" -"(closer-name closer_1 config_35))" -"((opener-c28_0) opener-c_0)" -"((temp29_3)" -"(indentation-possible-cause config_35)))" +"((temp27_47)" +"(closer-name closer_15 config_0))" +"((opener-c28_48) opener-c_13)" +"((temp29_49)" +"(indentation-possible-cause config_0)))" "(reader-error12.1" " unsafe-undefined" -" e24_0" -" open-end-pos25_0" +" e24_44" +" open-end-pos25_45" " unsafe-undefined" -" in22_0" -" seq-config23_0" -" temp26_3" -"(list temp27_5 opener-c28_0 temp29_3))))" +" in22_42" +" seq-config23_43" +" temp26_46" +"(list temp27_47 opener-c28_48 temp29_49))))" "(void))" -" e_76))))))" -"(let-values(((seq_0)" -"((letrec-values(((loop_107)" -"(lambda(depth_11" +" e_40))))))" +"(let-values(((seq_31)" +"((letrec-values(((loop_50)" +"(lambda(depth_0" " accum_0" -" init-c_5" -" first?_1" -" first-read-one_1)" +" init-c_0" +" first?_0" +" first-read-one_0)" "(begin" " 'loop" -"(let-values(((c_73)" +"(let-values(((c_56)" "(read-char/skip-whitespace-and-comments" -" init-c_5" -" whitespace-read-one_0" -" in_20" -" seq-config_0)))" -"(let-values(((ec_3)" +" init-c_0" +" whitespace-read-one_21" +" in_16" +" seq-config_17)))" +"(let-values(((ec_57)" "(effective-char" -" c_73" -" seq-config_0)))" -"(if(eqv? ec_3 closer_1)" +" c_56" +" seq-config_17)))" +"(if(eqv? ec_57 closer_15)" "(let-values()" "(if(null? accum_0)" " null" "(reverse$1 accum_0)))" -"(if(if(not first?_1)" -"(if(eqv? ec_3 '#\\.)" +"(if(if(not first?_0)" +"(if(eqv? ec_57 '#\\.)" "(if(check-parameter" " 1/read-accept-dot" -" config_34)" +" config_25)" "(char-delimiter?" -"(let-values(((in_21)" -" in_20)" -"((skip-count_4)" +"(let-values(((in_58)" +" in_16)" +"((skip-count_60)" " 0)" -"((source_13)" +"((source_61)" "(read-config-source" -" config_34)))" -"(let-values(((c_74)" +" config_25)))" +"(let-values(((c_62)" "(peek-char-or-special" -" in_21" -" skip-count_4" +" in_58" +" skip-count_60" " 'special" -" source_13)))" +" source_61)))" "(if(eq?" -" c_74" +" c_62" " 'special)" "(special1.1" " 'special)" -" c_74)))" -" seq-config_0)" +" c_62)))" +" seq-config_17)" " #f)" " #f)" " #f)" "(let-values()" -"(let-values(((dot-line_0" -" dot-col_0" -" dot-pos_0)" +"(let-values(((dot-line_63" +" dot-col_64" +" dot-pos_65)" "(port-next-location*" -" in_20" -" c_73)))" +" in_16" +" c_56)))" "(let-values((()" "(begin" "(track-indentation!" -" config_34" -" dot-line_0" -" dot-col_0)" +" config_25" +" dot-line_63" +" dot-col_64)" "(values))))" "(let-values((()" "(begin" -"(if(if dot-mode_0" +"(if(if dot-mode_19" "(not" -" head_0)" +" head_23)" " #f)" "(void)" "(let-values()" -"(let-values(((in30_0)" -" in_20)" -"((temp31_3)" +"(let-values(((in30_69)" +" in_16)" +"((temp31_70)" "(reading-at" -" config_34" -" dot-line_0" -" dot-col_0" -" dot-pos_0))" -"((temp32_1)" +" config_25" +" dot-line_63" +" dot-col_64" +" dot-pos_65))" +"((temp32_71)" " \"illegal use of `.`\"))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in30_0" -" temp31_3" -" temp32_1" +" in30_69" +" temp31_70" +" temp32_71" "(list)))))" "(values))))" -"(let-values(((v_228)" -"(read-one/not-eof_0" +"(let-values(((v_66)" +"(read-one/not-eof_30" " #f" -" first-read-one_1" -" config_34)))" -"(let-values(((rest-c_0)" +" first-read-one_0" +" config_25)))" +"(let-values(((rest-c_67)" "(read-char/skip-whitespace-and-comments" " #f" -" whitespace-read-one_0" -" in_20" -" seq-config_0)))" -"(let-values(((rest-ec_0)" +" whitespace-read-one_21" +" in_16" +" seq-config_17)))" +"(let-values(((rest-ec_68)" "(effective-char" -" rest-c_0" -" seq-config_0)))" +" rest-c_67" +" seq-config_17)))" "(if(eqv?" -" rest-ec_0" -" closer_1)" +" rest-ec_68" +" closer_15)" "(let-values()" "(if(null?" " accum_0)" -" v_228" +" v_66" "(append" "(reverse$1" " accum_0)" -" v_228)))" +" v_66)))" "(if(if(eqv?" -" rest-ec_0" +" rest-ec_68" " '#\\.)" "(if(check-parameter" " 1/read-accept-dot" -" config_34)" +" config_25)" "(if(check-parameter" " 1/read-accept-infix-dot" -" config_34)" +" config_25)" "(char-delimiter?" -"(let-values(((in_22)" -" in_20)" -"((skip-count_5)" +"(let-values(((in_72)" +" in_16)" +"((skip-count_74)" " 0)" -"((source_14)" +"((source_75)" "(read-config-source" -" config_34)))" -"(let-values(((c_58)" +" config_25)))" +"(let-values(((c_76)" "(peek-char-or-special" -" in_22" -" skip-count_5" +" in_72" +" skip-count_74" " 'special" -" source_14)))" +" source_75)))" "(if(eq?" -" c_58" +" c_76" " 'special)" "(special1.1" " 'special)" -" c_58)))" -" seq-config_0)" +" c_76)))" +" seq-config_17)" " #f)" " #f)" " #f)" "(let-values()" "(let-values((()" "(begin" -"(set! head_0" +"(set! head_23" "(box" -" v_228))" +" v_66))" "(values))))" -"(let-values(((dot2-line_0" -" dot2-col_0" -" dot2-pos_0)" +"(let-values(((dot2-line_77" +" dot2-col_78" +" dot2-pos_79)" "(port-next-location" -" in_20)))" +" in_16)))" "(let-values((()" "(begin" "(track-indentation!" -" config_34" -" dot2-line_0" -" dot2-col_0)" +" config_25" +" dot2-line_77" +" dot2-col_78)" "(values))))" -"(let-values(((post-c_0)" +"(let-values(((post-c_80)" "(read-char/skip-whitespace-and-comments" " #f" -" whitespace-read-one_0" -" in_20" -" seq-config_0)))" -"(let-values(((post-ec_0)" +" whitespace-read-one_21" +" in_16" +" seq-config_17)))" +"(let-values(((post-ec_81)" "(effective-char" -" post-c_0" -" seq-config_0)))" +" post-c_80" +" seq-config_17)))" "(begin" -"(if(let-values(((or-part_266)" +"(if(let-values(((or-part_82)" "(eof-object?" -" post-ec_0)))" -"(if or-part_266" -" or-part_266" +" post-ec_81)))" +"(if or-part_82" +" or-part_82" "(eqv?" -" post-ec_0" -" closer_1)))" +" post-ec_81" +" closer_15)))" "(let-values()" -"(let-values(((in33_1)" -" in_20)" -"((temp34_5)" +"(let-values(((in33_84)" +" in_16)" +"((temp34_85)" "(reading-at" -" config_34" -" dot-line_0" -" dot-col_0" -" dot-pos_0))" -"((post-ec35_0)" -" post-ec_0)" -"((temp36_4)" +" config_25" +" dot-line_63" +" dot-col_64" +" dot-pos_65))" +"((post-ec35_86)" +" post-ec_81)" +"((temp36_87)" " \"illegal use of `.`\"))" "(reader-error12.1" " unsafe-undefined" -" post-ec35_0" +" post-ec35_86" " #f" " unsafe-undefined" -" in33_1" -" temp34_5" -" temp36_4" +" in33_84" +" temp34_85" +" temp36_87" "(list))))" "(void))" -"(loop_107" -" depth_11" +"(loop_50" +" depth_0" " accum_0" -" post-c_0" +" post-c_80" " #f" -" read-one_1))))))))" +" read-one_12))))))))" "(let-values()" -"(let-values(((in37_0)" -" in_20)" -"((temp38_4)" +"(let-values(((in37_89)" +" in_16)" +"((temp38_90)" "(reading-at" -" config_34" -" dot-line_0" -" dot-col_0" -" dot-pos_0))" -"((rest-c39_0)" -" rest-c_0)" -"((temp40_2)" +" config_25" +" dot-line_63" +" dot-col_64" +" dot-pos_65))" +"((rest-c39_91)" +" rest-c_67)" +"((temp40_92)" " \"illegal use of `.`\"))" "(reader-error12.1" " unsafe-undefined" -" rest-c39_0" +" rest-c39_91" " #f" " unsafe-undefined" -" in37_0" -" temp38_4" -" temp40_2" +" in37_89" +" temp38_90" +" temp40_92" "(list)))))))))))))" "(let-values()" -"(let-values(((v_128)" -"(read-one/not-eof_0" -" c_73" -" first-read-one_1" -" config/keep-comment_0)))" -"(if(1/special-comment? v_128)" +"(let-values(((v_93)" +"(read-one/not-eof_30" +" c_56" +" first-read-one_0" +" config/keep-comment_29)))" +"(if(1/special-comment? v_93)" "(let-values()" -"(loop_107" -" depth_11" +"(loop_50" +" depth_0" " accum_0" " #f" " #f" -" read-one_1))" -"(if(> depth_11 1024)" +" read-one_12))" +"(if(> depth_0 1024)" "(let-values()" -"(loop_107" -" depth_11" -"(cons v_128 accum_0)" +"(loop_50" +" depth_0" +"(cons v_93 accum_0)" " #f" " #f" -" read-one_1))" +" read-one_12))" "(let-values()" "(cons" -" v_128" -"(loop_107" -"(add1 depth_11)" +" v_93" +"(loop_50" +"(add1 depth_0)" " null" " #f" " #f" -" read-one_1)))))))))))))))" -" loop_107)" +" read-one_12)))))))))))))))" +" loop_50)" " 0" " null" " #f" " #t" -" first-read-one_0)))" -"(let-values(((full-seq_0)(if head_0(cons(unbox head_0) seq_0) seq_0)))" -"(if shape-tag?_0" -"(add-shape-tag opener_0 in_20 config_34 full-seq_0)" -" full-seq_0))))))))))))))))))))))))" +" first-read-one_22)))" +"(let-values(((full-seq_32)" +"(if head_23(cons(unbox head_23) seq_31) seq_31)))" +"(if shape-tag?_20" +"(add-shape-tag opener_14 in_16 config_25 full-seq_32)" +" full-seq_32))))))))))))))))))))))))" "(define-values" "(add-shape-tag)" -"(lambda(opener_1 in_23 config_36 seq_1)" +"(lambda(opener_0 in_0 config_0 seq_0)" "(begin" -"(let-values(((tag_0)" -"(let-values(((tmp_37) opener_1))" -"(if(equal? tmp_37 '#\\[)" -"(let-values()(if(check-parameter 1/read-square-bracket-with-tag config_36) '#%brackets #f))" -"(if(equal? tmp_37 '#\\{)" -"(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_36) '#%braces #f))" +"(let-values(((tag_151)" +"(let-values(((tmp_152) opener_0))" +"(if(equal? tmp_152 '#\\[)" +"(let-values()(if(check-parameter 1/read-square-bracket-with-tag config_0) '#%brackets #f))" +"(if(equal? tmp_152 '#\\{)" +"(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_0) '#%braces #f))" "(let-values() #f))))))" -"(if tag_0(cons(wrap tag_0 in_23 config_36 #f) seq_1) seq_1)))))" -" (define-values (not-an-fX.1$1) (lambda (who_7 v_51) (begin 'not-an-fX (raise-argument-error who_7 \"flonum?\" v_51))))" +"(if tag_151(cons(wrap tag_151 in_0 config_0 #f) seq_0) seq_0)))))" +" (define-values (not-an-fX.1$1) (lambda (who_0 v_0) (begin 'not-an-fX (raise-argument-error who_0 \"flonum?\" v_0))))" "(define-values" "(read-digits12.1)" -"(lambda(base1_0 init3_0 max-count2_0 zero-digits-result4_0 in10_1 config11_0 accum-str9_0)" +"(lambda(base1_0 init3_0 max-count2_0 zero-digits-result4_0 in10_0 config11_0 accum-str9_0)" "(begin" " 'read-digits12" -"(let-values(((in_6) in10_1))" -"(let-values(((config_16) config11_0))" -"(let-values(((accum-str_0) accum-str9_0))" -"(let-values(((base_15) base1_0))" -"(let-values(((max-count_0) max-count2_0))" -"(let-values(((init-v_0) init3_0))" -"(let-values(((zero-digits-result_0) zero-digits-result4_0))" +"(let-values(((in_27) in10_0))" +"(let-values(((config_28) config11_0))" +"(let-values(((accum-str_29) accum-str9_0))" +"(let-values(((base_30) base1_0))" +"(let-values(((max-count_31) max-count2_0))" +"(let-values(((init-v_32) init3_0))" +"(let-values(((zero-digits-result_33) zero-digits-result4_0))" "(let-values()" -"(let-values(((c_67)" -"(let-values(((in_24) in_6)" -"((skip-count_6) 0)" -"((source_15)(read-config-source config_16)))" -"(let-values(((c_45)" -"(peek-char-or-special in_24 skip-count_6 'special source_15)))" -"(if(eq? c_45 'special)(special1.1 'special) c_45)))))" -"(if(digit?$1 c_67 base_15)" +"(let-values(((c_34)" +"(let-values(((in_35) in_27)" +"((skip-count_37) 0)" +"((source_38)(read-config-source config_28)))" +"(let-values(((c_39)" +"(peek-char-or-special in_35 skip-count_37 'special source_38)))" +"(if(eq? c_39 'special)(special1.1 'special) c_39)))))" +"(if(digit?$1 c_34 base_30)" "(let-values()" "(begin" -"(consume-char in_6 c_67)" -"(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_67))(void))" -"((letrec-values(((loop_108)" -"(lambda(v_192 max-count_1)" +"(consume-char in_27 c_34)" +"(if accum-str_29(let-values()(accum-string-add! accum-str_29 c_34))(void))" +"((letrec-values(((loop_40)" +"(lambda(v_0 max-count_0)" "(begin" " 'loop" -"(if(zero? max-count_1)" -"(let-values() v_192)" +"(if(zero? max-count_0)" +"(let-values() v_0)" "(let-values()" -"(let-values(((c_75)" -"(let-values(((in_25) in_6)" -"((skip-count_7) 0)" -"((source_16)" -"(read-config-source config_16)))" -"(let-values(((c_53)" +"(let-values(((c_43)" +"(let-values(((in_44) in_27)" +"((skip-count_46) 0)" +"((source_47)" +"(read-config-source config_28)))" +"(let-values(((c_48)" "(peek-char-or-special" -" in_25" -" skip-count_7" +" in_44" +" skip-count_46" " 'special" -" source_16)))" -"(if(eq? c_53 'special)" +" source_47)))" +"(if(eq? c_48 'special)" "(special1.1 'special)" -" c_53)))))" -"(if(digit?$1 c_75 base_15)" +" c_48)))))" +"(if(digit?$1 c_43 base_30)" "(let-values()" "(begin" -"(consume-char in_6 c_75)" -"(if accum-str_0" -"(let-values()(accum-string-add! accum-str_0 c_75))" +"(consume-char in_27 c_43)" +"(if accum-str_29" +"(let-values()(accum-string-add! accum-str_29 c_43))" "(void))" -"(loop_108" -"(+(digit->number c_75)(* v_192 base_15))" -"(sub1 max-count_1))))" -"(let-values() v_192)))))))))" -" loop_108)" -"(+(digit->number c_67)(* init-v_0 base_15))" +"(loop_40" +"(+(digit->number c_43)(* v_0 base_30))" "(sub1 max-count_0))))" -"(if zero-digits-result_0" -"(let-values() zero-digits-result_0)" -"(let-values() c_67)))))))))))))))" +"(let-values() v_0)))))))))" +" loop_40)" +"(+(digit->number c_34)(* init-v_32 base_30))" +"(sub1 max-count_31))))" +"(if zero-digits-result_33" +"(let-values() zero-digits-result_33)" +"(let-values() c_34)))))))))))))))" "(define-values" "(digit?$1)" -"(lambda(c_42 base_21)" +"(lambda(c_0 base_0)" "(begin" " 'digit?" -"(if(not(char? c_42))" +"(if(not(char? c_0))" "(let-values() #f)" -"(if(= base_21 8)" -"(let-values()(octal-digit? c_42))" -"(if(= base_21 16)(let-values()(hex-digit? c_42))(let-values()(decimal-digit? c_42))))))))" -"(define-values(decimal-digit?)(lambda(c_59)(begin(if(char>=? c_59 '#\\0)(char<=? c_59 '#\\9) #f))))" -"(define-values(octal-digit?)(lambda(c_43)(begin(if(char>=? c_43 '#\\0)(char<=? c_43 '#\\7) #f))))" +"(if(= base_0 8)" +"(let-values()(octal-digit? c_0))" +"(if(= base_0 16)(let-values()(hex-digit? c_0))(let-values()(decimal-digit? c_0))))))))" +"(define-values(decimal-digit?)(lambda(c_0)(begin(if(char>=? c_0 '#\\0)(char<=? c_0 '#\\9) #f))))" +"(define-values(octal-digit?)(lambda(c_0)(begin(if(char>=? c_0 '#\\0)(char<=? c_0 '#\\7) #f))))" "(define-values" "(hex-digit?)" -"(lambda(c_76)" +"(lambda(c_0)" "(begin" -"(let-values(((or-part_266)(if(char>=? c_76 '#\\0)(char<=? c_76 '#\\9) #f)))" -"(if or-part_266" -" or-part_266" -"(let-values(((or-part_313)(if(char>=? c_76 '#\\A)(char<=? c_76 '#\\F) #f)))" -"(if or-part_313 or-part_313(if(char>=? c_76 '#\\a)(char<=? c_76 '#\\f) #f))))))))" +"(let-values(((or-part_82)(if(char>=? c_0 '#\\0)(char<=? c_0 '#\\9) #f)))" +"(if or-part_82" +" or-part_82" +"(let-values(((or-part_83)(if(char>=? c_0 '#\\A)(char<=? c_0 '#\\F) #f)))" +"(if or-part_83 or-part_83(if(char>=? c_0 '#\\a)(char<=? c_0 '#\\f) #f))))))))" "(define-values" "(digit->number)" -"(lambda(c_77)" +"(lambda(c_0)" "(begin" -"(if(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)" -"(let-values()(-(char->integer c_77)(char->integer '#\\0)))" -"(if(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)" -"(let-values()(-(char->integer c_77)(-(char->integer '#\\A) 10)))" -"(let-values()(-(char->integer c_77)(-(char->integer '#\\a) 10))))))))" +"(if(if(char>=? c_0 '#\\0)(char<=? c_0 '#\\9) #f)" +"(let-values()(-(char->integer c_0)(char->integer '#\\0)))" +"(if(if(char>=? c_0 '#\\A)(char<=? c_0 '#\\F) #f)" +"(let-values()(-(char->integer c_0)(-(char->integer '#\\A) 10)))" +"(let-values()(-(char->integer c_0)(-(char->integer '#\\a) 10))))))))" "(define-values(string->number$1) string->number)" "(define-values" "(1/string->number)" -"(let-values(((string->number5_0)" +"(let-values(((string->number5_39)" "(lambda(s4_0 radix1_0 convert-mode2_0 decimal-mode3_0)" "(begin" " 'string->number5" -"(let-values(((s_87) s4_0))" -"(let-values(((radix_0) radix1_0))" -"(let-values(((convert-mode_0) convert-mode2_0))" -"(let-values(((decimal-mode_0)" +"(let-values(((s_44) s4_0))" +"(let-values(((radix_45) radix1_0))" +"(let-values(((convert-mode_46) convert-mode2_0))" +"(let-values(((decimal-mode_47)" "(if(eq? decimal-mode3_0 unsafe-undefined)" "(if(1/read-decimal-as-inexact) 'decimal-as-inexact 'decimal-as-exact)" " decimal-mode3_0)))" @@ -49481,93 +49713,93 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(string? s_87)" +"(if(string? s_44)" "(void)" -" (let-values () (raise-argument-error 'string->number \"string?\" s_87)))" -"(if((lambda(p_65)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" +" (let-values () (raise-argument-error 'string->number \"string?\" s_44)))" +"(if((lambda(p_0)(if(exact-integer? radix_45)(<= 2 radix_45 16) #f)) radix_45)" "(void)" "(let-values()" -" (raise-argument-error 'string->number \"(integer-in 2 16)\" radix_0)))" -"(if((lambda(p_6)" -"(let-values(((or-part_53)(eq? p_6 'number-or-false)))" -"(if or-part_53 or-part_53(eq? p_6 'read))))" -" convert-mode_0)" +" (raise-argument-error 'string->number \"(integer-in 2 16)\" radix_45)))" +"(if((lambda(p_0)" +"(let-values(((or-part_51)(eq? p_0 'number-or-false)))" +"(if or-part_51 or-part_51(eq? p_0 'read))))" +" convert-mode_46)" "(void)" "(let-values()" "(raise-argument-error" " 'string->number" " \"(or/c 'number-or-false 'read)\"" -" convert-mode_0)))" -"(if((lambda(p_56)" -"(let-values(((or-part_7)(eq? p_56 'decimal-as-inexact)))" -"(if or-part_7 or-part_7(eq? p_56 'decimal-as-exact))))" -" decimal-mode_0)" +" convert-mode_46)))" +"(if((lambda(p_0)" +"(let-values(((or-part_53)(eq? p_0 'decimal-as-inexact)))" +"(if or-part_53 or-part_53(eq? p_0 'decimal-as-exact))))" +" decimal-mode_47)" "(void)" "(let-values()" "(raise-argument-error" " 'string->number" " \"(or/c 'decimal-as-inexact decimal-as-exact)\"" -" decimal-mode_0)))" -"(let-values(((s66_1) s_87)" -"((temp67_2) 0)" -"((temp68_2)(string-length s_87))" -"((radix69_0) radix_0)" -"((temp70_2) #f)" -"((decimal-mode71_0) decimal-mode_0)" -"((convert-mode72_0) convert-mode_0))" +" decimal-mode_47)))" +"(let-values(((s66_55) s_44)" +"((temp67_56) 0)" +"((temp68_57)(string-length s_44))" +"((radix69_58) radix_45)" +"((temp70_59) #f)" +"((decimal-mode71_60) decimal-mode_47)" +"((convert-mode72_61) convert-mode_46))" "(do-string->number17.1" " #f" -" temp70_2" -" s66_1" -" temp67_2" -" temp68_2" -" radix69_0" -" decimal-mode71_0" -" convert-mode72_0))))))))))))))" +" temp70_59" +" s66_55" +" temp67_56" +" temp68_57" +" radix69_58" +" decimal-mode71_60" +" convert-mode72_61))))))))))))))" "(case-lambda" -"((s_308)(begin 'string->number(string->number5_0 s_308 10 'number-or-false unsafe-undefined)))" -"((s_488 radix_1 convert-mode_1 decimal-mode3_1)(string->number5_0 s_488 radix_1 convert-mode_1 decimal-mode3_1))" -"((s_186 radix_2 convert-mode2_1)(string->number5_0 s_186 radix_2 convert-mode2_1 unsafe-undefined))" -"((s_489 radix1_1)(string->number5_0 s_489 radix1_1 'number-or-false unsafe-undefined)))))" +"((s_0)(begin 'string->number(string->number5_39 s_0 10 'number-or-false unsafe-undefined)))" +"((s_0 radix_0 convert-mode_0 decimal-mode3_0)(string->number5_39 s_0 radix_0 convert-mode_0 decimal-mode3_0))" +"((s_0 radix_0 convert-mode2_0)(string->number5_39 s_0 radix_0 convert-mode2_0 unsafe-undefined))" +"((s_0 radix1_0)(string->number5_39 s_0 radix1_0 'number-or-false unsafe-undefined)))))" "(define-values" "(do-string->number17.1)" -"(lambda(in-complex8_0 radix-set?7_0 s11_1 start12_0 end13_0 radix14_0 exactness15_0 convert-mode16_0)" +"(lambda(in-complex8_0 radix-set?7_0 s11_0 start12_0 end13_0 radix14_0 exactness15_0 convert-mode16_0)" "(begin" " 'do-string->number17" -"(let-values(((s_17) s11_1))" -"(let-values(((start_43) start12_0))" -"(let-values(((end_33) end13_0))" -"(let-values(((radix_3) radix14_0))" -"(let-values(((radix-set?_0) radix-set?7_0))" -"(let-values(((exactness_0) exactness15_0))" -"(let-values(((in-complex_0) in-complex8_0))" -"(let-values(((convert-mode_2) convert-mode16_0))" +"(let-values(((s_94) s11_0))" +"(let-values(((start_95) start12_0))" +"(let-values(((end_96) end13_0))" +"(let-values(((radix_97) radix14_0))" +"(let-values(((radix-set?_98) radix-set?7_0))" +"(let-values(((exactness_99) exactness15_0))" +"(let-values(((in-complex_100) in-complex8_0))" +"(let-values(((convert-mode_101) convert-mode16_0))" "(let-values()" -"(if(= start_43 end_33)" +"(if(= start_95 end_96)" "(let-values()" -"(if(eq? convert-mode_2 'must-read)" +"(if(eq? convert-mode_101 'must-read)" " (let-values () (format \"no digits\"))" "(let-values() #f)))" "(let-values()" -"(let-values(((c_64)(string-ref s_17 start_43)))" -"(if(char=? '#\\# c_64)" +"(let-values(((c_102)(string-ref s_94 start_95)))" +"(if(char=? '#\\# c_102)" "(let-values()" -"(let-values(((next_4)(add1 start_43)))" -"(if(= next_4 end_33)" +"(let-values(((next_103)(add1 start_95)))" +"(if(= next_103 end_96)" "(let-values()" -"(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no character after `#` indicator in `~.a`\" s_17))" +"(if(eq? convert-mode_101 'must-read)" +" (let-values () (format \"no character after `#` indicator in `~.a`\" s_94))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_169)(string-ref s_17 next_4)))" -"(let-values(((tmp_38) i_169))" -"(let-values(((index_2)" -"(if(char? tmp_38)" -"(let-values(((codepoint_0)(char->integer tmp_38)))" -"(if(if(unsafe-fx>= codepoint_0 66)" -"(unsafe-fx< codepoint_0 121)" +"(let-values(((i_104)(string-ref s_94 next_103)))" +"(let-values(((tmp_105) i_104))" +"(let-values(((index_106)" +"(if(char? tmp_105)" +"(let-values(((codepoint_107)(char->integer tmp_105)))" +"(if(if(unsafe-fx>= codepoint_107 66)" +"(unsafe-fx< codepoint_107 121)" " #f)" -"(let-values(((tbl_0)" +"(let-values(((tbl_108)" " '#(2" " 0" " 2" @@ -49624,755 +49856,757 @@ static const char *startup_source = " 0" " 2)))" "(unsafe-vector*-ref" -" tbl_0" -"(unsafe-fx- codepoint_0 66)))" +" tbl_108" +"(unsafe-fx- codepoint_107 66)))" " 0))" " 0)))" -"(if(unsafe-fx< index_2 1)" +"(if(unsafe-fx< index_106 1)" "(let-values()" -"(if(eq?(read-complains convert-mode_2) 'must-read)" +"(if(eq?(read-complains convert-mode_101) 'must-read)" "(let-values()" "(format" " \"bad `#` indicator `~a` at `~.a`\"" -" i_169" -"(substring s_17 start_43 end_33)))" +" i_104" +"(substring s_94 start_95 end_96)))" "(let-values() #f)))" -"(if(unsafe-fx< index_2 2)" +"(if(unsafe-fx< index_106 2)" "(let-values()" -"(if(let-values(((or-part_265)(exactness-set? exactness_0)))" -"(if or-part_265 or-part_265 in-complex_0))" +"(if(let-values(((or-part_109)(exactness-set? exactness_99)))" +"(if or-part_109 or-part_109 in-complex_100))" "(let-values()" -"(if(eq? convert-mode_2 'must-read)" +"(if(eq? convert-mode_101 'must-read)" "(let-values()" "(format" " \"misplaced exactness specification at `~.a`\"" -"(substring s_17 start_43 end_33)))" +"(substring s_94 start_95 end_96)))" "(let-values() #f)))" "(let-values()" -"(let-values(((s73_1) s_17)" -"((temp74_1)(add1 next_4))" -"((end75_0) end_33)" -"((radix76_0) radix_3)" -"((radix-set?77_0) radix-set?_0)" -"((temp78_2)" -"(if(let-values(((or-part_211)" -"(char=? i_169 '#\\e)))" -"(if or-part_211" -" or-part_211" -"(char=? i_169 '#\\E)))" +"(let-values(((s73_111) s_94)" +"((temp74_112)(add1 next_103))" +"((end75_113) end_96)" +"((radix76_114) radix_97)" +"((radix-set?77_115) radix-set?_98)" +"((temp78_116)" +"(if(let-values(((or-part_118)" +"(char=? i_104 '#\\e)))" +"(if or-part_118" +" or-part_118" +"(char=? i_104 '#\\E)))" " 'exact" " 'inexact))" -"((temp79_0)" -"(if(eq? convert-mode_2 'read)" +"((temp79_117)" +"(if(eq? convert-mode_101 'read)" " 'must-read" -" convert-mode_2)))" +" convert-mode_101)))" "(do-string->number17.1" " #f" -" radix-set?77_0" -" s73_1" -" temp74_1" -" end75_0" -" radix76_0" -" temp78_2" -" temp79_0)))))" +" radix-set?77_115" +" s73_111" +" temp74_112" +" end75_113" +" radix76_114" +" temp78_116" +" temp79_117)))))" "(let-values()" -"(if(let-values(((or-part_212) radix-set?_0))" -"(if or-part_212 or-part_212 in-complex_0))" +"(if(let-values(((or-part_119) radix-set?_98))" +"(if or-part_119 or-part_119 in-complex_100))" "(let-values()" -"(if(eq? convert-mode_2 'must-read)" +"(if(eq? convert-mode_101 'must-read)" "(let-values()" "(format" " \"misplaced radix specification at `~.a`\"" -"(substring s_17 start_43 end_33)))" +"(substring s_94 start_95 end_96)))" "(let-values() #f)))" "(let-values()" -"(let-values(((radix_4)" -"(let-values(((tmp_39) i_169))" -"(if(if(equal? tmp_39 '#\\b)" +"(let-values(((radix_120)" +"(let-values(((tmp_121) i_104))" +"(if(if(equal? tmp_121 '#\\b)" " #t" -"(equal? tmp_39 '#\\B))" +"(equal? tmp_121 '#\\B))" "(let-values() 2)" -"(if(if(equal? tmp_39 '#\\o)" +"(if(if(equal? tmp_121 '#\\o)" " #t" -"(equal? tmp_39 '#\\O))" +"(equal? tmp_121 '#\\O))" "(let-values() 8)" -"(if(if(equal? tmp_39 '#\\d)" +"(if(if(equal? tmp_121 '#\\d)" " #t" -"(equal? tmp_39 '#\\D))" +"(equal? tmp_121 '#\\D))" "(let-values() 10)" "(let-values() 16)))))))" -"(let-values(((s80_0) s_17)" -"((temp81_1)(add1 next_4))" -"((end82_0) end_33)" -"((radix83_0) radix_4)" -"((temp84_1) #t)" -"((exactness85_0) exactness_0)" -"((temp86_2)" -"(if(eq? convert-mode_2 'read)" +"(let-values(((s80_123) s_94)" +"((temp81_124)(add1 next_103))" +"((end82_125) end_96)" +"((radix83_126) radix_120)" +"((temp84_127) #t)" +"((exactness85_128) exactness_99)" +"((temp86_129)" +"(if(eq? convert-mode_101 'read)" " 'must-read" -" convert-mode_2)))" +" convert-mode_101)))" "(do-string->number17.1" " #f" -" temp84_1" -" s80_0" -" temp81_1" -" end82_0" -" radix83_0" -" exactness85_0" -" temp86_2)))))))))))))))" -"(let-values(((c1_28)" -"(if(char-sign? c_64)" -"(read-special-number s_17 start_43 end_33 convert-mode_2)" +" temp84_127" +" s80_123" +" temp81_124" +" end82_125" +" radix83_126" +" exactness85_128" +" temp86_129)))))))))))))))" +"(let-values(((c1_130)" +"(if(char-sign? c_102)" +"(read-special-number s_94 start_95 end_96 convert-mode_101)" " #f)))" -"(if c1_28" -"((lambda(v_229)" -"(if(eq? exactness_0 'exact)" +"(if c1_130" +"((lambda(v_0)" +"(if(eq? exactness_99 'exact)" "(let-values()" -"(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_229))" +"(if(eq? convert-mode_101 'must-read)" +" (let-values () (format \"no exact representation for `~a`\" v_0))" "(let-values() #f)))" -"(let-values() v_229)))" -" c1_28)" -"(let-values(((c2_3)" -"(if(char-sign? c_64)" -"(if(not in-complex_0)" -"(if(>(- end_33 start_43) 7)" -"(if(char=? '#\\i(string-ref s_17(sub1 end_33)))" -"(if(char-sign?(string-ref s_17 6))" +"(let-values() v_0)))" +" c1_130)" +"(let-values(((c2_132)" +"(if(char-sign? c_102)" +"(if(not in-complex_100)" +"(if(>(- end_96 start_95) 7)" +"(if(char=? '#\\i(string-ref s_94(sub1 end_96)))" +"(if(char-sign?(string-ref s_94 6))" "(read-special-number" -" s_17" -" start_43" -"(+ start_43 6)" -" convert-mode_2)" +" s_94" +" start_95" +"(+ start_95 6)" +" convert-mode_101)" " #f)" " #f)" " #f)" " #f)" " #f)))" -"(if c2_3" -"((lambda(v_40)" -"(let-values(((s87_0) s_17)" -"((temp88_1)(+ start_43 6))" -"((temp89_2)(sub1 end_33))" -"((radix90_0) radix_3)" -"((exactness91_0) exactness_0)" -"((convert-mode92_0) convert-mode_2)" -"((temp93_1) 'i)" -"((v94_0) v_40)" -"((temp95_0)" -"(lambda(v_230 v2_0)" -"(begin 'temp95(make-rectangular v_230 v2_0)))))" +"(if c2_132" +"((lambda(v_0)" +"(let-values(((s87_135) s_94)" +"((temp88_136)(+ start_95 6))" +"((temp89_137)(sub1 end_96))" +"((radix90_138) radix_97)" +"((exactness91_139) exactness_99)" +"((convert-mode92_140) convert-mode_101)" +"((temp93_141) 'i)" +"((v94_142) v_0)" +"((temp95_143)" +"(lambda(v_1 v2_0)" +"(begin 'temp95(make-rectangular v_1 v2_0)))))" "(read-for-special-compound62.1" -" temp93_1" +" temp93_141" " #f" -" s87_0" -" temp88_1" -" temp89_2" -" radix90_0" -" exactness91_0" -" convert-mode92_0" -" v94_0" -" temp95_0)))" -" c2_3)" -"(let-values(((c3_3)" -"(if(not in-complex_0)" -"(if(>=(- end_33 start_43) 7)" -"(if(char=? '#\\i(string-ref s_17(sub1 end_33)))" -"(if(char-sign?(string-ref s_17(- end_33 7)))" +" s87_135" +" temp88_136" +" temp89_137" +" radix90_138" +" exactness91_139" +" convert-mode92_140" +" v94_142" +" temp95_143)))" +" c2_132)" +"(let-values(((c3_146)" +"(if(not in-complex_100)" +"(if(>=(- end_96 start_95) 7)" +"(if(char=? '#\\i(string-ref s_94(sub1 end_96)))" +"(if(char-sign?(string-ref s_94(- end_96 7)))" "(read-special-number" -" s_17" -"(- end_33 7)" -"(sub1 end_33)" -" convert-mode_2)" +" s_94" +"(- end_96 7)" +"(sub1 end_96)" +" convert-mode_101)" " #f)" " #f)" " #f)" " #f)))" -"(if c3_3" -"((lambda(v2_1)" -"(if(if(= start_43(- end_33 7))(not(extflonum? v2_1)) #f)" -"(let-values()(make-rectangular 0 v2_1))" +"(if c3_146" +"((lambda(v2_0)" +"(if(if(= start_95(- end_96 7))(not(extflonum? v2_0)) #f)" +"(let-values()(make-rectangular 0 v2_0))" "(let-values()" -"(let-values(((s96_0) s_17)" -"((start97_0) start_43)" -"((temp98_2)(- end_33 7))" -"((radix99_0) radix_3)" -"((exactness100_0) exactness_0)" -"((convert-mode101_0) convert-mode_2)" -"((temp102_0) 'i)" -"((temp103_0) #t)" -"((v2104_0) v2_1)" -"((temp105_1)" -"(lambda(v2_2 v_207)" -"(begin 'temp105(make-rectangular v_207 v2_2)))))" +"(let-values(((s96_149) s_94)" +"((start97_150) start_95)" +"((temp98_151)(- end_96 7))" +"((radix99_152) radix_97)" +"((exactness100_153) exactness_99)" +"((convert-mode101_154) convert-mode_101)" +"((temp102_155) 'i)" +"((temp103_156) #t)" +"((v2104_157) v2_0)" +"((temp105_158)" +"(lambda(v2_1 v_0)" +"(begin 'temp105(make-rectangular v_0 v2_1)))))" "(read-for-special-compound62.1" -" temp102_0" -" temp103_0" -" s96_0" -" start97_0" -" temp98_2" -" radix99_0" -" exactness100_0" -" convert-mode101_0" -" v2104_0" -" temp105_1)))))" -" c3_3)" -"(let-values(((c4_0)" -"(if(char-sign? c_64)" -"(if(not in-complex_0)" -"(if(>(- end_33 start_43) 7)" -"(if(char=? '#\\@(string-ref s_17(+ start_43 6)))" +" temp102_155" +" temp103_156" +" s96_149" +" start97_150" +" temp98_151" +" radix99_152" +" exactness100_153" +" convert-mode101_154" +" v2104_157" +" temp105_158)))))" +" c3_146)" +"(let-values(((c4_161)" +"(if(char-sign? c_102)" +"(if(not in-complex_100)" +"(if(>(- end_96 start_95) 7)" +"(if(char=? '#\\@(string-ref s_94(+ start_95 6)))" "(read-special-number" -" s_17" -" start_43" -"(+ start_43 6)" -" convert-mode_2)" +" s_94" +" start_95" +"(+ start_95 6)" +" convert-mode_101)" " #f)" " #f)" " #f)" " #f)))" -"(if c4_0" -"((lambda(v_209)" -"(let-values(((s106_0) s_17)" -"((temp107_2)(+ start_43 7))" -"((end108_0) end_33)" -"((radix109_0) radix_3)" -"((exactness110_0) exactness_0)" -"((convert-mode111_0) convert-mode_2)" -"((temp112_1) '@)" -"((v113_0) v_209)" -"((temp114_3)" -"(lambda(v_133 v2_3)" -"(begin 'temp114(make-polar v_133 v2_3)))))" +"(if c4_161" +"((lambda(v_0)" +"(let-values(((s106_164) s_94)" +"((temp107_165)(+ start_95 7))" +"((end108_166) end_96)" +"((radix109_167) radix_97)" +"((exactness110_168) exactness_99)" +"((convert-mode111_169) convert-mode_101)" +"((temp112_170) '@)" +"((v113_171) v_0)" +"((temp114_172)" +"(lambda(v_1 v2_0)" +"(begin 'temp114(make-polar v_1 v2_0)))))" "(read-for-special-compound62.1" -" temp112_1" +" temp112_170" " #f" -" s106_0" -" temp107_2" -" end108_0" -" radix109_0" -" exactness110_0" -" convert-mode111_0" -" v113_0" -" temp114_3)))" -" c4_0)" -"(let-values(((c5_0)" -"(if(not in-complex_0)" -"(if(>(- end_33 start_43) 7)" -"(if(char=? '#\\@(string-ref s_17(- end_33 7)))" +" s106_164" +" temp107_165" +" end108_166" +" radix109_167" +" exactness110_168" +" convert-mode111_169" +" v113_171" +" temp114_172)))" +" c4_161)" +"(let-values(((c5_175)" +"(if(not in-complex_100)" +"(if(>(- end_96 start_95) 7)" +"(if(char=? '#\\@(string-ref s_94(- end_96 7)))" "(read-special-number" -" s_17" -"(- end_33 6)" -" end_33" -" convert-mode_2)" +" s_94" +"(- end_96 6)" +" end_96" +" convert-mode_101)" " #f)" " #f)" " #f)))" -"(if c5_0" -"((lambda(v2_4)" -"(let-values(((s115_0) s_17)" -"((start116_0) start_43)" -"((temp117_1)(- end_33 7))" -"((radix118_0) radix_3)" -"((exactness119_0) exactness_0)" -"((convert-mode120_0) convert-mode_2)" -"((temp121_0) '@)" -"((temp122_0) #t)" -"((v2123_0) v2_4)" -"((temp124_2)" -"(lambda(v2_5 v_72)" -"(begin 'temp124(make-polar v_72 v2_5)))))" +"(if c5_175" +"((lambda(v2_0)" +"(let-values(((s115_178) s_94)" +"((start116_179) start_95)" +"((temp117_180)(- end_96 7))" +"((radix118_181) radix_97)" +"((exactness119_182) exactness_99)" +"((convert-mode120_183) convert-mode_101)" +"((temp121_184) '@)" +"((temp122_185) #t)" +"((v2123_186) v2_0)" +"((temp124_187)" +"(lambda(v2_1 v_0)" +"(begin 'temp124(make-polar v_0 v2_1)))))" "(read-for-special-compound62.1" -" temp121_0" -" temp122_0" -" s115_0" -" start116_0" -" temp117_1" -" radix118_0" -" exactness119_0" -" convert-mode120_0" -" v2123_0" -" temp124_2)))" -" c5_0)" +" temp121_184" +" temp122_185" +" s115_178" +" start116_179" +" temp117_180" +" radix118_181" +" exactness119_182" +" convert-mode120_183" +" v2123_186" +" temp124_187)))" +" c5_175)" "(let-values()" -"(let-values(((s125_0) s_17)" -"((start126_0) start_43)" -"((end127_0) end_33)" -"((radix128_0) radix_3)" -"((radix-set?129_0) radix-set?_0)" -"((exactness130_0) exactness_0)" -"((in-complex131_0) in-complex_0)" -"((convert-mode132_0) convert-mode_2))" +"(let-values(((s125_191) s_94)" +"((start126_192) start_95)" +"((end127_193) end_96)" +"((radix128_194) radix_97)" +"((radix-set?129_195) radix-set?_98)" +"((exactness130_196) exactness_99)" +"((in-complex131_197) in-complex_100)" +"((convert-mode132_198) convert-mode_101))" "(do-string->non-special-number30.1" -" in-complex131_0" -" radix-set?129_0" -" s125_0" -" start126_0" -" end127_0" -" radix128_0" -" exactness130_0" -" convert-mode132_0)))))))))))))))))))))))))))))" +" in-complex131_197" +" radix-set?129_195" +" s125_191" +" start126_192" +" end127_193" +" radix128_194" +" exactness130_196" +" convert-mode132_198)))))))))))))))))))))))))))))" "(define-values" "(do-string->non-special-number30.1)" -"(lambda(in-complex21_0 radix-set?20_0 s24_2 start25_0 end26_0 radix27_0 exactness28_0 convert-mode29_0)" +"(lambda(in-complex21_0 radix-set?20_0 s24_0 start25_0 end26_0 radix27_0 exactness28_0 convert-mode29_0)" "(begin" " 'do-string->non-special-number30" -"(let-values(((s_425) s24_2))" -"(let-values(((start_44) start25_0))" -"(let-values(((end_34) end26_0))" -"(let-values(((radix_5) radix27_0))" -"(let-values(((radix-set?_1) radix-set?20_0))" -"(let-values(((exactness_1) exactness28_0))" -"(let-values(((in-complex_1) in-complex21_0))" -"(let-values(((convert-mode_3) convert-mode29_0))" +"(let-values(((s_244) s24_0))" +"(let-values(((start_245) start25_0))" +"(let-values(((end_246) end26_0))" +"(let-values(((radix_247) radix27_0))" +"(let-values(((radix-set?_248) radix-set?20_0))" +"(let-values(((exactness_249) exactness28_0))" +"(let-values(((in-complex_250) in-complex21_0))" +"(let-values(((convert-mode_251) convert-mode29_0))" "(let-values()" -"((letrec-values(((loop_109)" -"(lambda(i_170" +"((letrec-values(((loop_252)" +"(lambda(i_0" " any-digits?_0" " any-hashes?_0" -" i-pos_3" +" i-pos_0" " @-pos_0" " sign-pos_0" -" dot-pos_1" +" dot-pos_0" " slash-pos_0" " exp-pos_0" " must-i?_0)" "(begin" " 'loop" -"(if(= i_170 end_34)" +"(if(= i_0 end_246)" "(let-values()" -"(if(if(not any-digits?_0)(not i-pos_3) #f)" +"(if(if(not any-digits?_0)(not i-pos_0) #f)" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" "(format" " \"no digits in `~.a`\"" -"(substring s_425 start_44 end_34)))" +"(substring s_244 start_245 end_246)))" "(let-values() #f)))" -"(if(if must-i?_0(not i-pos_3) #f)" +"(if(if must-i?_0(not i-pos_0) #f)" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_425 start_44 end_34)))" +"(substring s_244 start_245 end_246)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_314)" -"(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_314" -" or-part_314" +"(let-values(((or-part_263)" +"(if dot-pos_0(< dot-pos_0 sign-pos_0) #f)))" +"(if or-part_263" +" or-part_263" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" "(format" " \"misplaced sign in `~.a`\"" -"(substring s_425 start_44 end_34)))" +"(substring s_244 start_245 end_246)))" "(let-values() #f)))" -"(if i-pos_3" +"(if i-pos_0" "(let-values()" -"(let-values(((s133_0) s_425)" -"((start134_0) start_44)" -"((sign-pos135_0) sign-pos_0)" -"((sign-pos136_0) sign-pos_0)" -"((temp137_2)(sub1 end_34))" -"((i-pos138_0) i-pos_3)" -"((sign-pos139_0) sign-pos_0)" -"((radix140_0) radix_5)" -"((radix-set?141_0) radix-set?_1)" -"((exactness142_0) exactness_1)" -"((temp143_2) 'i)" -"((convert-mode144_0) convert-mode_3))" +"(let-values(((s133_265) s_244)" +"((start134_266) start_245)" +"((sign-pos135_267) sign-pos_0)" +"((sign-pos136_268) sign-pos_0)" +"((temp137_269)(sub1 end_246))" +"((i-pos138_270) i-pos_0)" +"((sign-pos139_271) sign-pos_0)" +"((radix140_272) radix_247)" +"((radix-set?141_273) radix-set?_248)" +"((exactness142_274) exactness_249)" +"((temp143_275) 'i)" +"((convert-mode144_276) convert-mode_251))" "(string->complex-number47.1" -" temp143_2" -" radix-set?141_0" -" s133_0" -" start134_0" -" sign-pos135_0" -" sign-pos136_0" -" temp137_2" -" i-pos138_0" -" sign-pos139_0" -" radix140_0" -" exactness142_0" -" convert-mode144_0)))" +" temp143_275" +" radix-set?141_273" +" s133_265" +" start134_266" +" sign-pos135_267" +" sign-pos136_268" +" temp137_269" +" i-pos138_270" +" sign-pos139_271" +" radix140_272" +" exactness142_274" +" convert-mode144_276)))" "(if @-pos_0" "(let-values()" -"(let-values(((s145_0) s_425)" -"((start146_0) start_44)" -"((@-pos147_0) @-pos_0)" -"((temp148_1)(add1 @-pos_0))" -"((end149_0) end_34)" -"((i-pos150_0) i-pos_3)" -"((sign-pos151_0) sign-pos_0)" -"((radix152_0) radix_5)" -"((radix-set?153_0) radix-set?_1)" -"((exactness154_0) exactness_1)" -"((temp155_1) '@)" -"((convert-mode156_0) convert-mode_3))" +"(let-values(((s145_278) s_244)" +"((start146_279) start_245)" +"((@-pos147_280) @-pos_0)" +"((temp148_281)(add1 @-pos_0))" +"((end149_282) end_246)" +"((i-pos150_283) i-pos_0)" +"((sign-pos151_284) sign-pos_0)" +"((radix152_285) radix_247)" +"((radix-set?153_286) radix-set?_248)" +"((exactness154_287) exactness_249)" +"((temp155_288) '@)" +"((convert-mode156_289) convert-mode_251))" "(string->complex-number47.1" -" temp155_1" -" radix-set?153_0" -" s145_0" -" start146_0" -" @-pos147_0" -" temp148_1" -" end149_0" -" i-pos150_0" -" sign-pos151_0" -" radix152_0" -" exactness154_0" -" convert-mode156_0)))" +" temp155_288" +" radix-set?153_286" +" s145_278" +" start146_279" +" @-pos147_280" +" temp148_281" +" end149_282" +" i-pos150_283" +" sign-pos151_284" +" radix152_285" +" exactness154_287" +" convert-mode156_289)))" "(let-values()" "(string->real-number" -" s_425" -" start_44" -" end_34" -" dot-pos_1" +" s_244" +" start_245" +" end_246" +" dot-pos_0" " slash-pos_0" " exp-pos_0" " any-hashes?_0" -" radix_5" -" exactness_1" -" convert-mode_3))))))))" +" radix_247" +" exactness_249" +" convert-mode_251))))))))" "(let-values()" -"(let-values(((c_78)(string-ref s_425 i_170)))" -"(if(digit? c_78 radix_5)" +"(let-values(((c_290)(string-ref s_244 i_0)))" +"(if(digit? c_290 radix_247)" "(let-values()" -"(loop_109" -"(add1 i_170)" +"(loop_252" +"(add1 i_0)" " #t" " any-hashes?_0" -" i-pos_3" +" i-pos_0" " @-pos_0" " sign-pos_0" -" dot-pos_1" +" dot-pos_0" " slash-pos_0" " exp-pos_0" " must-i?_0))" -"(if(char=? c_78 '#\\#)" +"(if(char=? c_290 '#\\#)" "(let-values()" -"(loop_109" -"(add1 i_170)" +"(loop_252" +"(add1 i_0)" " #t" " #t" -" i-pos_3" +" i-pos_0" " @-pos_0" " sign-pos_0" -" dot-pos_1" +" dot-pos_0" " slash-pos_0" " exp-pos_0" " must-i?_0))" -"(if(char-sign? c_78)" +"(if(char-sign? c_290)" "(let-values()" "(if(if sign-pos_0 must-i?_0 #f)" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_425 start_44 end_34)))" +"(substring s_244 start_245 end_246)))" "(let-values() #f)))" "(let-values()" -"(loop_109" -"(add1 i_170)" +"(loop_252" +"(add1 i_0)" " any-digits?_0" " any-hashes?_0" -" i-pos_3" +" i-pos_0" " @-pos_0" -" i_170" -" dot-pos_1" +" i_0" +" dot-pos_0" " slash-pos_0" " #f" -"(if(> i_170 start_44)" -"(let-values(((or-part_315)(not @-pos_0)))" -"(if or-part_315" -" or-part_315" -"(> i_170(add1 @-pos_0))))" +"(if(> i_0 start_245)" +"(let-values(((or-part_291)(not @-pos_0)))" +"(if or-part_291" +" or-part_291" +"(> i_0(add1 @-pos_0))))" " #f)))))" -"(if(char=? c_78 '#\\.)" +"(if(char=? c_290 '#\\.)" "(let-values()" -"(if(let-values(((or-part_316)" +"(if(let-values(((or-part_292)" "(if exp-pos_0" -"(let-values(((or-part_317)" +"(let-values(((or-part_293)" "(not sign-pos_0)))" -"(if or-part_317" -" or-part_317" +"(if or-part_293" +" or-part_293" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_316" -" or-part_316" -"(if dot-pos_1" -"(let-values(((or-part_208)(not sign-pos_0)))" -"(if or-part_208" -" or-part_208" -"(> dot-pos_1 sign-pos_0)))" +"(if or-part_292" +" or-part_292" +"(if dot-pos_0" +"(let-values(((or-part_294)(not sign-pos_0)))" +"(if or-part_294" +" or-part_294" +"(> dot-pos_0 sign-pos_0)))" " #f)))" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" "(format" " \"misplaced `.` in `~.a`\"" -"(substring s_425 start_44 end_34)))" +"(substring s_244 start_245 end_246)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_318)(not sign-pos_0)))" -"(if or-part_318" -" or-part_318" +"(let-values(((or-part_295)(not sign-pos_0)))" +"(if or-part_295" +" or-part_295" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_425 start_44 end_34)))" +"(substring s_244 start_245 end_246)))" "(let-values() #f)))" "(let-values()" -"(loop_109" -"(add1 i_170)" +"(loop_252" +"(add1 i_0)" " any-digits?_0" " any-hashes?_0" -" i-pos_3" +" i-pos_0" " @-pos_0" " sign-pos_0" -" i_170" +" i_0" " #f" " #f" " must-i?_0)))))" -"(if(char=? c_78 '#\\/)" +"(if(char=? c_290 '#\\/)" "(let-values()" -"(if(if dot-pos_1" -"(let-values(((or-part_319)(not sign-pos_0)))" -"(if or-part_319" -" or-part_319" -"(> dot-pos_1 sign-pos_0)))" +"(if(if dot-pos_0" +"(let-values(((or-part_296)(not sign-pos_0)))" +"(if or-part_296" +" or-part_296" +"(> dot-pos_0 sign-pos_0)))" " #f)" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_425 start_44 end_34)))" +"(substring s_244 start_245 end_246)))" "(let-values() #f)))" -"(if(let-values(((or-part_320)" +"(if(let-values(((or-part_297)" "(if exp-pos_0" -"(let-values(((or-part_321)" +"(let-values(((or-part_298)" "(not sign-pos_0)))" -"(if or-part_321" -" or-part_321" +"(if or-part_298" +" or-part_298" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_320" -" or-part_320" +"(if or-part_297" +" or-part_297" "(if slash-pos_0" -"(let-values(((or-part_280)" +"(let-values(((or-part_299)" "(not sign-pos_0)))" -"(if or-part_280" -" or-part_280" +"(if or-part_299" +" or-part_299" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" "(format" " \"misplaced `/` in `~.a`\"" -"(substring s_425 start_44 end_34)))" +"(substring s_244 start_245 end_246)))" "(let-values() #f)))" "(let-values()" -"(loop_109" -"(add1 i_170)" +"(loop_252" +"(add1 i_0)" " any-digits?_0" " any-hashes?_0" -" i-pos_3" +" i-pos_0" " @-pos_0" " sign-pos_0" " #f" -" i_170" +" i_0" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_322)(char=? c_78 '#\\e)))" -"(if or-part_322" -" or-part_322" -"(let-values(((or-part_323)(char=? c_78 '#\\E)))" -"(if or-part_323" -" or-part_323" -"(let-values(((or-part_324)" -"(char=? c_78 '#\\f)))" -"(if or-part_324" -" or-part_324" -"(let-values(((or-part_325)" -"(char=? c_78 '#\\F)))" -"(if or-part_325" -" or-part_325" -"(let-values(((or-part_326)" -"(char=? c_78 '#\\d)))" -"(if or-part_326" -" or-part_326" -"(let-values(((or-part_181)" -"(char=? c_78 '#\\D)))" -"(if or-part_181" -" or-part_181" -"(let-values(((or-part_327)" +"(if(let-values(((or-part_300)(char=? c_290 '#\\e)))" +"(if or-part_300" +" or-part_300" +"(let-values(((or-part_301)(char=? c_290 '#\\E)))" +"(if or-part_301" +" or-part_301" +"(let-values(((or-part_302)" +"(char=? c_290 '#\\f)))" +"(if or-part_302" +" or-part_302" +"(let-values(((or-part_303)" +"(char=? c_290 '#\\F)))" +"(if or-part_303" +" or-part_303" +"(let-values(((or-part_304)" +"(char=? c_290 '#\\d)))" +"(if or-part_304" +" or-part_304" +"(let-values(((or-part_305)" "(char=?" -" c_78" +" c_290" +" '#\\D)))" +"(if or-part_305" +" or-part_305" +"(let-values(((or-part_306)" +"(char=?" +" c_290" " '#\\s)))" -"(if or-part_327" -" or-part_327" -"(let-values(((or-part_328)" +"(if or-part_306" +" or-part_306" +"(let-values(((or-part_307)" "(char=?" -" c_78" +" c_290" " '#\\S)))" -"(if or-part_328" -" or-part_328" -"(let-values(((or-part_209)" +"(if or-part_307" +" or-part_307" +"(let-values(((or-part_308)" "(char=?" -" c_78" +" c_290" " '#\\l)))" -"(if or-part_209" -" or-part_209" -"(let-values(((or-part_329)" +"(if or-part_308" +" or-part_308" +"(let-values(((or-part_309)" "(char=?" -" c_78" +" c_290" " '#\\L)))" -"(if or-part_329" -" or-part_329" -"(let-values(((or-part_173)" +"(if or-part_309" +" or-part_309" +"(let-values(((or-part_310)" "(char=?" -" c_78" +" c_290" " '#\\t)))" -"(if or-part_173" -" or-part_173" +"(if or-part_310" +" or-part_310" "(char=?" -" c_78" +" c_290" " '#\\T)))))))))))))))))))))))" "(let-values()" "(if exp-pos_0" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" "(format" " \"misplaced `~a` in `~.a`\"" -" c_78" -"(substring s_425 start_44 end_34)))" +" c_290" +"(substring s_244 start_245 end_246)))" "(let-values() #f)))" -"(if(if(<(add1 i_170) end_34)" -"(char-sign?(string-ref s_425(add1 i_170)))" +"(if(if(<(add1 i_0) end_246)" +"(char-sign?(string-ref s_244(add1 i_0)))" " #f)" "(let-values()" -"(loop_109" -"(+ i_170 2)" +"(loop_252" +"(+ i_0 2)" " any-digits?_0" " any-hashes?_0" -" i-pos_3" +" i-pos_0" " @-pos_0" " sign-pos_0" -" dot-pos_1" +" dot-pos_0" " slash-pos_0" -"(let-values(((or-part_330) exp-pos_0))" -"(if or-part_330 or-part_330 i_170))" +"(let-values(((or-part_311) exp-pos_0))" +"(if or-part_311 or-part_311 i_0))" " must-i?_0))" "(let-values()" -"(loop_109" -"(+ i_170 1)" +"(loop_252" +"(+ i_0 1)" " any-digits?_0" " any-hashes?_0" -" i-pos_3" +" i-pos_0" " @-pos_0" " sign-pos_0" -" dot-pos_1" +" dot-pos_0" " slash-pos_0" -"(let-values(((or-part_331) exp-pos_0))" -"(if or-part_331 or-part_331 i_170))" +"(let-values(((or-part_312) exp-pos_0))" +"(if or-part_312 or-part_312 i_0))" " must-i?_0)))))" -"(if(char=? c_78 '#\\@)" +"(if(char=? c_290 '#\\@)" "(let-values()" -"(if(eq? in-complex_1 'i)" +"(if(eq? in-complex_250 'i)" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_425 start_44 end_34)))" +"(substring s_244 start_245 end_246)))" "(let-values() #f)))" -"(if(let-values(((or-part_161) @-pos_0))" -"(if or-part_161" -" or-part_161" -"(eq? in-complex_1 '@)))" +"(if(let-values(((or-part_313) @-pos_0))" +"(if or-part_313" +" or-part_313" +"(eq? in-complex_250 '@)))" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" "(format" " \"too many `@`s in `~.a`\"" -"(substring s_425 start_44 end_34)))" +"(substring s_244 start_245 end_246)))" "(let-values() #f)))" -"(if(= i_170 start_44)" +"(if(= i_0 start_245)" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" "(format" " \"`@` cannot be at start in `~.a`\"" -"(substring s_425 start_44 end_34)))" +"(substring s_244 start_245 end_246)))" "(let-values() #f)))" "(if must-i?_0" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_425 start_44 end_34)))" +"(substring s_244 start_245 end_246)))" "(let-values() #f)))" "(let-values()" -"(loop_109" -"(add1 i_170)" +"(loop_252" +"(add1 i_0)" " any-digits?_0" " any-hashes?_0" -" i-pos_3" -" i_170" +" i-pos_0" +" i_0" " #f" " #f" " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_332)" -"(char=? c_78 '#\\i)))" -"(if or-part_332" -" or-part_332" -"(char=? c_78 '#\\I)))" +"(if(if(let-values(((or-part_314)" +"(char=? c_290 '#\\i)))" +"(if or-part_314" +" or-part_314" +"(char=? c_290 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_333) @-pos_0))" -"(if or-part_333" -" or-part_333" -"(eq? in-complex_1 '@)))" +"(if(let-values(((or-part_315) @-pos_0))" +"(if or-part_315" +" or-part_315" +"(eq? in-complex_250 '@)))" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_425 start_44 end_34)))" +"(substring s_244 start_245 end_246)))" "(let-values() #f)))" -"(if(let-values(((or-part_334)" -"(<(add1 i_170) end_34)))" -"(if or-part_334" -" or-part_334" -"(eq? in-complex_1 'i)))" +"(if(let-values(((or-part_316)" +"(<(add1 i_0) end_246)))" +"(if or-part_316" +" or-part_316" +"(eq? in-complex_250 'i)))" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" "(format" " \"`i` must be at the end in `~.a`\"" -"(substring s_425 start_44 end_34)))" +"(substring s_244 start_245 end_246)))" "(let-values() #f)))" "(let-values()" -"(loop_109" -"(add1 i_170)" +"(loop_252" +"(add1 i_0)" " any-digits?_0" " any-hashes?_0" -" i_170" +" i_0" " @-pos_0" " sign-pos_0" " #f" @@ -50380,19 +50614,19 @@ static const char *startup_source = " #f" " #f)))))" "(let-values()" -"(if(char=? c_78 '#\\nul)" +"(if(char=? c_290 '#\\nul)" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" -" (format \"nul character in `~.a`\" s_425))" +" (format \"nul character in `~.a`\" s_244))" "(let-values() #f)))" "(let-values()" -"(if(eq? convert-mode_3 'must-read)" +"(if(eq? convert-mode_251 'must-read)" "(let-values()" -" (format \"bad digit `~a`\" c_78))" +" (format \"bad digit `~a`\" c_290))" "(let-values() #f))))))))))))))))))))" -" loop_109)" -" start_44" +" loop_252)" +" start_245" " #f" " #f" " #f" @@ -50406,7 +50640,7 @@ static const char *startup_source = "(string->complex-number47.1)" "(lambda(in-complex34_0" " radix-set?33_0" -" s37_1" +" s37_0" " start138_0" " end139_0" " start240_0" @@ -50418,457 +50652,449 @@ static const char *startup_source = " convert-mode46_0)" "(begin" " 'string->complex-number47" -"(let-values(((s_117) s37_1))" -"(let-values(((start1_0) start138_0))" -"(let-values(((end1_0) end139_0))" -"(let-values(((start2_0) start240_0))" -"(let-values(((end2_0) end241_0))" +"(let-values(((s_374) s37_0))" +"(let-values(((start1_375) start138_0))" +"(let-values(((end1_376) end139_0))" +"(let-values(((start2_377) start240_0))" +"(let-values(((end2_378) end241_0))" "(let-values()" "(let-values()" -"(let-values(((radix_6) radix44_0))" -"(let-values(((radix-set?_2) radix-set?33_0))" -"(let-values(((exactness_2) exactness45_0))" -"(let-values(((in-complex_2) in-complex34_0))" -"(let-values(((convert-mode_4) convert-mode46_0))" +"(let-values(((radix_381) radix44_0))" +"(let-values(((radix-set?_382) radix-set?33_0))" +"(let-values(((exactness_383) exactness45_0))" +"(let-values(((in-complex_384) in-complex34_0))" +"(let-values(((convert-mode_385) convert-mode46_0))" "(let-values()" -"(let-values(((v1_0)" -"(if(= start1_0 end1_0)" -"(let-values()(if(eq? exactness_2 'inexact) 0.0 0))" +"(let-values(((v1_386)" +"(if(= start1_375 end1_376)" +"(let-values()(if(eq? exactness_383 'inexact) 0.0 0))" "(let-values()" -"(let-values(((s157_0) s_117)" -"((start1158_0) start1_0)" -"((end1159_0) end1_0)" -"((radix160_0) radix_6)" -"((radix-set?161_0) radix-set?_2)" -"((exactness162_0) exactness_2)" -"((in-complex163_0) in-complex_2)" -"((convert-mode164_0) convert-mode_4))" +"(let-values(((s157_389) s_374)" +"((start1158_390) start1_375)" +"((end1159_391) end1_376)" +"((radix160_392) radix_381)" +"((radix-set?161_393) radix-set?_382)" +"((exactness162_394) exactness_383)" +"((in-complex163_395) in-complex_384)" +"((convert-mode164_396) convert-mode_385))" "(do-string->number17.1" -" in-complex163_0" -" radix-set?161_0" -" s157_0" -" start1158_0" -" end1159_0" -" radix160_0" -" exactness162_0" -" convert-mode164_0))))))" -"(let-values(((v2_6)" -"(if(if(eq? in-complex_2 'i)(=(- end2_0 start2_0) 1) #f)" +" in-complex163_395" +" radix-set?161_393" +" s157_389" +" start1158_390" +" end1159_391" +" radix160_392" +" exactness162_394" +" convert-mode164_396))))))" +"(let-values(((v2_387)" +"(if(if(eq? in-complex_384 'i)(=(- end2_378 start2_377) 1) #f)" "(let-values()" -"(let-values(((neg?_0)(char=?(string-ref s_117 start2_0) '#\\-)))" -"(if(eq? exactness_2 'inexact)" -"(let-values()(if neg?_0 -1.0 1.0))" -"(let-values()(if neg?_0 -1 1)))))" +"(let-values(((neg?_397)" +"(char=?(string-ref s_374 start2_377) '#\\-)))" +"(if(eq? exactness_383 'inexact)" +"(let-values()(if neg?_397 -1.0 1.0))" +"(let-values()(if neg?_397 -1 1)))))" "(let-values()" -"(let-values(((s165_0) s_117)" -"((start2166_0) start2_0)" -"((end2167_0) end2_0)" -"((radix168_0) radix_6)" -"((radix-set?169_0) radix-set?_2)" -"((exactness170_0) exactness_2)" -"((in-complex171_0) in-complex_2)" -"((convert-mode172_0) convert-mode_4))" +"(let-values(((s165_399) s_374)" +"((start2166_400) start2_377)" +"((end2167_401) end2_378)" +"((radix168_402) radix_381)" +"((radix-set?169_403) radix-set?_382)" +"((exactness170_404) exactness_383)" +"((in-complex171_405) in-complex_384)" +"((convert-mode172_406) convert-mode_385))" "(do-string->number17.1" -" in-complex171_0" -" radix-set?169_0" -" s165_0" -" start2166_0" -" end2167_0" -" radix168_0" -" exactness170_0" -" convert-mode172_0))))))" -"(if(let-values(((or-part_335)(not v1_0)))" -"(if or-part_335 or-part_335(not v2_6)))" +" in-complex171_405" +" radix-set?169_403" +" s165_399" +" start2166_400" +" end2167_401" +" radix168_402" +" exactness170_404" +" convert-mode172_406))))))" +"(if(let-values(((or-part_407)(not v1_386)))" +"(if or-part_407 or-part_407(not v2_387)))" "(let-values() #f)" -"(if(if(let-values(((or-part_336)(extflonum? v1_0)))" -"(if or-part_336 or-part_336(extflonum? v2_6)))" -"(not(eq? convert-mode_4 'must-read))" +"(if(if(let-values(((or-part_408)(extflonum? v1_386)))" +"(if or-part_408 or-part_408(extflonum? v2_387)))" +"(not(eq? convert-mode_385 'must-read))" " #f)" -"(let-values()(fail-extflonum convert-mode_4 v1_0))" -"(if(string? v1_0)" -"(let-values() v1_0)" -"(if(extflonum? v1_0)" -"(let-values()(fail-extflonum convert-mode_4 v1_0))" -"(if(string? v2_6)" -"(let-values() v2_6)" -"(if(extflonum? v2_6)" -"(let-values()(fail-extflonum convert-mode_4 v2_6))" -"(if(eq? in-complex_2 'i)" -"(let-values()(make-rectangular v1_0 v2_6))" +"(let-values()(fail-extflonum convert-mode_385 v1_386))" +"(if(string? v1_386)" +"(let-values() v1_386)" +"(if(extflonum? v1_386)" +"(let-values()(fail-extflonum convert-mode_385 v1_386))" +"(if(string? v2_387)" +"(let-values() v2_387)" +"(if(extflonum? v2_387)" +"(let-values()(fail-extflonum convert-mode_385 v2_387))" +"(if(eq? in-complex_384 'i)" +"(let-values()(make-rectangular v1_386 v2_387))" "(let-values()" -"(let-values(((p_66)(make-polar v1_0 v2_6)))" -"(if(eq? exactness_2 'exact)" -"(inexact->exact p_66)" -" p_66))))))))))))))))))))))))))))" +"(let-values(((p_409)(make-polar v1_386 v2_387)))" +"(if(eq? exactness_383 'exact)" +"(inexact->exact p_409)" +" p_409))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_333 start_45 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" +"(lambda(s_0 start_0 end_0 dot-pos_0 slash-pos_0 exp-pos_0 any-hashes?_0 radix_0 exactness_0 convert-mode_0)" "(begin" -"(let-values(((extfl-mark?_0)" -"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_333 exp-pos_1)) '#\\t)))))" -"(let-values(((simple?_0)" -"(if(not slash-pos_1)" -"(if(let-values(((or-part_337)(eq? exactness_3 'inexact)))" -"(if or-part_337" -" or-part_337" -"(let-values(((or-part_338)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_338 or-part_338(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_339)(not exp-pos_1)))" -"(if or-part_339" -" or-part_339" -"(let-values(((or-part_223)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_223 or-part_223(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_333 start_45 end_35) #f))" +"(let-values(((extfl-mark?_452)" +"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_0 exp-pos_0)) '#\\t)))))" +"(let-values(((simple?_453)" +"(if(not slash-pos_0)" +"(if(let-values(((or-part_455)(eq? exactness_0 'inexact)))" +"(if or-part_455" +" or-part_455" +"(let-values(((or-part_456)(eq? exactness_0 'decimal-as-inexact)))" +"(if or-part_456 or-part_456(if(not dot-pos_0)(not exp-pos_0) #f)))))" +"(if(let-values(((or-part_457)(not exp-pos_0)))" +"(if or-part_457" +" or-part_457" +"(let-values(((or-part_458)(not(eq? convert-mode_0 'number-or-false))))" +"(if or-part_458 or-part_458(not(extfl-mark?_452))))))" +"(not(if any-hashes?_0(hashes? s_0 start_0 end_0) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_35 start_45)(char-sign?(string-ref s_333 start_45)) #f)))" -"(if(=(- end_35 start_45)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))" +"(let-values(((has-sign?_454)(if(> end_0 start_0)(char-sign?(string-ref s_0 start_0)) #f)))" +"(if(=(- end_0 start_0)(+(if dot-pos_0 1 0)(if exp-pos_0 1 0)(if has-sign?_454 1 0)))" "(let-values()" -"(if(= end_35 start_45)" -" (if (eq? convert-mode_5 'must-read) (let-values () (format \"missing digits\")) (let-values () #f))" -"(if(eq? convert-mode_5 'must-read)" -" (let-values () (format \"missing digits in `~.a`\" (substring s_333 start_45 end_35)))" +"(if(= end_0 start_0)" +" (if (eq? convert-mode_0 'must-read) (let-values () (format \"missing digits\")) (let-values () #f))" +"(if(eq? convert-mode_0 'must-read)" +" (let-values () (format \"missing digits in `~.a`\" (substring s_0 start_0 end_0)))" "(let-values() #f))))" -"(if simple?_0" +"(if simple?_453" "(let-values()" -"(if(if exp-pos_1" +"(if(if exp-pos_0" "(=" -"(- exp-pos_1 start_45)" -"(+(if(if dot-pos_2(< dot-pos_2 exp-pos_1) #f) 1 0)(if has-sign?_0 1 0)))" +"(- exp-pos_0 start_0)" +"(+(if(if dot-pos_0(< dot-pos_0 exp-pos_0) #f) 1 0)(if has-sign?_454 1 0)))" " #f)" "(let-values()" -"(if(eq? convert-mode_5 'must-read)" +"(if(eq? convert-mode_0 'must-read)" "(let-values()" -" (format \"missing digits before exponent marker in `~.a`\" (substring s_333 start_45 end_35)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_0 start_0 end_0)))" "(let-values() #f)))" -"(if(if exp-pos_1" -"(let-values(((or-part_340)(= exp-pos_1(sub1 end_35))))" -"(if or-part_340" -" or-part_340" -"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_333(sub1 end_35))) #f)))" +"(if(if exp-pos_0" +"(let-values(((or-part_459)(= exp-pos_0(sub1 end_0))))" +"(if or-part_459" +" or-part_459" +"(if(= exp-pos_0(- end_0 2))(char-sign?(string-ref s_0(sub1 end_0))) #f)))" " #f)" "(let-values()" -"(if(eq? convert-mode_5 'must-read)" +"(if(eq? convert-mode_0 'must-read)" "(let-values()" -" (format \"missing digits after exponent marker in `~.a`\" (substring s_333 start_45 end_35)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_0 start_0 end_0)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_30)" +"(let-values(((n_460)" "(string->number$1" -"(maybe-substring s_333 start_45 end_35)" -" radix_7" -"(if(let-values(((or-part_341)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_341" -" or-part_341" -"(let-values(((or-part_147)(not exp-pos_1)))" -"(if or-part_147 or-part_147(not(extfl-mark?_0))))))" +"(maybe-substring s_0 start_0 end_0)" +" radix_0" +"(if(let-values(((or-part_461)(eq? convert-mode_0 'number-or-false)))" +"(if or-part_461" +" or-part_461" +"(let-values(((or-part_462)(not exp-pos_0)))" +"(if or-part_462 or-part_462(not(extfl-mark?_452))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_148)(not n_30)))(if or-part_148 or-part_148(string? n_30)))" +"(if(let-values(((or-part_463)(not n_460)))(if or-part_463 or-part_463(string? n_460)))" "(let-values()" "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_333 start_45 end_35)))" -"(if(eq? exactness_3 'inexact)" +"(substring s_0 start_0 end_0)))" +"(if(eq? exactness_0 'inexact)" "(let-values()" -"(if(extflonum? n_30)" +"(if(extflonum? n_460)" "(let-values()" -"(if(eq? convert-mode_5 'must-read)" +"(if(eq? convert-mode_0 'must-read)" "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_333 start_45 end_35)))" +"(substring s_0 start_0 end_0)))" "(let-values() #f)))" -"(if(if(eqv? n_30 0)(char=?(string-ref s_333 start_45) '#\\-) #f)" +"(if(if(eqv? n_460 0)(char=?(string-ref s_0 start_0) '#\\-) #f)" "(let-values() -0.0)" -"(let-values()(exact->inexact n_30)))))" -"(let-values() n_30))))))))" -"(if exp-pos_1" +"(let-values()(exact->inexact n_460)))))" +"(let-values() n_460))))))))" +"(if exp-pos_0" "(let-values()" -"(let-values(((m-v_0)" +"(let-values(((m-v_464)" "(string->real-number" -" s_333" -" start_45" -" exp-pos_1" -" dot-pos_2" -" slash-pos_1" +" s_0" +" start_0" +" exp-pos_0" +" dot-pos_0" +" slash-pos_0" " #f" -" any-hashes?_1" -" radix_7" +" any-hashes?_0" +" radix_0" " 'exact" -" convert-mode_5)))" -"(let-values(((e-v_0)" -"(string->exact-integer-number s_333(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" -"(let-values(((real->precision-inexact_0)" -"(lambda(r_43)" +" convert-mode_0)))" +"(let-values(((e-v_465)" +"(string->exact-integer-number s_0(+ exp-pos_0 1) end_0 radix_0 convert-mode_0)))" +"(let-values(((real->precision-inexact_466)" +"(lambda(r_0)" "(begin" " 'real->precision-inexact" -"(let-values(((tmp_40)(string-ref s_333 exp-pos_1)))" -"(if(if(equal? tmp_40 '#\\s)" +"(let-values(((tmp_469)(string-ref s_0 exp-pos_0)))" +"(if(if(equal? tmp_469 '#\\s)" " #t" -"(if(equal? tmp_40 '#\\S)" +"(if(equal? tmp_469 '#\\S)" " #t" -"(if(equal? tmp_40 '#\\f) #t(equal? tmp_40 '#\\F))))" -"(let-values()(real->single-flonum r_43))" -"(if(if(equal? tmp_40 '#\\t) #t(equal? tmp_40 '#\\T))" +"(if(equal? tmp_469 '#\\f) #t(equal? tmp_469 '#\\F))))" +"(let-values()(real->single-flonum r_0))" +"(if(if(equal? tmp_469 '#\\t) #t(equal? tmp_469 '#\\T))" "(let-values()" "(if(extflonum-available?)" -"(real->extfl r_43)" +"(real->extfl r_0)" "(string->number$1" -"(replace-hashes s_333 start_45 end_35)" -" radix_7" +"(replace-hashes s_0 start_0 end_0)" +" radix_0" " 'read)))" -"(let-values()(real->double-flonum r_43)))))))))" -"(let-values(((get-extfl?_0)(extfl-mark?_0)))" -"(if(let-values(((or-part_342)(not m-v_0)))(if or-part_342 or-part_342(not e-v_0)))" +"(let-values()(real->double-flonum r_0)))))))))" +"(let-values(((get-extfl?_467)(extfl-mark?_452)))" +"(if(let-values(((or-part_470)(not m-v_464)))(if or-part_470 or-part_470(not e-v_465)))" "(let-values() #f)" -"(if(string? m-v_0)" -"(let-values() m-v_0)" -"(if(string? e-v_0)" -"(let-values() e-v_0)" -"(if(if(eq? convert-mode_5 'number-or-false) get-extfl?_0 #f)" +"(if(string? m-v_464)" +"(let-values() m-v_464)" +"(if(string? e-v_465)" +"(let-values() e-v_465)" +"(if(if(eq? convert-mode_0 'number-or-false) get-extfl?_467 #f)" "(let-values() #f)" -"(if(if(let-values(((or-part_343)(eq? exactness_3 'inexact)))" -"(if or-part_343 or-part_343(eq? exactness_3 'decimal-as-inexact)))" -"(>(abs e-v_0)(if get-extfl?_0 6000 400))" +"(if(if(let-values(((or-part_471)(eq? exactness_0 'inexact)))" +"(if or-part_471 or-part_471(eq? exactness_0 'decimal-as-inexact)))" +"(>(abs e-v_465)(if get-extfl?_467 6000 400))" " #f)" "(let-values()" -"(real->precision-inexact_0" -"(if(eqv? m-v_0 0)" -"(let-values()(if(char=?(string-ref s_333 start_45) '#\\-) -0.0 0.0))" -"(if(positive? m-v_0)" -"(let-values()(if(positive? e-v_0) +inf.0 0.0))" -"(let-values()(if(positive? e-v_0) -inf.0 -0.0))))))" -"(if(if(exactness-set? exactness_3) get-extfl?_0 #f)" +"(real->precision-inexact_466" +"(if(eqv? m-v_464 0)" +"(let-values()(if(char=?(string-ref s_0 start_0) '#\\-) -0.0 0.0))" +"(if(positive? m-v_464)" +"(let-values()(if(positive? e-v_465) +inf.0 0.0))" +"(let-values()(if(positive? e-v_465) -inf.0 -0.0))))))" +"(if(if(exactness-set? exactness_0) get-extfl?_467 #f)" "(let-values()" -"(if(eq? convert-mode_5 'must-read)" +"(if(eq? convert-mode_0 'must-read)" "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_333 start_45 end_35)" -" exactness_3))" +"(substring s_0 start_0 end_0)" +" exactness_0))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_31)(* m-v_0(expt radix_7 e-v_0))))" -"(if(if(not get-extfl?_0)" -"(let-values(((or-part_344)(eq? exactness_3 'exact)))" -"(if or-part_344 or-part_344(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((n_472)(* m-v_464(expt radix_0 e-v_465))))" +"(if(if(not get-extfl?_467)" +"(let-values(((or-part_473)(eq? exactness_0 'exact)))" +"(if or-part_473 or-part_473(eq? exactness_0 'decimal-as-exact)))" " #f)" -"(let-values() n_31)" -"(if(if(eqv? n_31 0)(char=?(string-ref s_333 start_45) '#\\-) #f)" -"(let-values()(real->precision-inexact_0 -0.0))" -"(let-values()(real->precision-inexact_0 n_31)))))))))))))))))" -"(if slash-pos_1" +"(let-values() n_472)" +"(if(if(eqv? n_472 0)(char=?(string-ref s_0 start_0) '#\\-) #f)" +"(let-values()(real->precision-inexact_466 -0.0))" +"(let-values()(real->precision-inexact_466 n_472)))))))))))))))))" +"(if slash-pos_0" "(let-values()" -"(let-values(((n-v_0)" +"(let-values(((n-v_474)" "(string->real-number" -" s_333" -" start_45" -" slash-pos_1" +" s_0" +" start_0" +" slash-pos_0" " #f" " #f" " #f" -" any-hashes?_1" -" radix_7" +" any-hashes?_0" +" radix_0" " 'exact" -" convert-mode_5)))" -"(let-values(((d-v_0)" +" convert-mode_0)))" +"(let-values(((d-v_475)" "(string->real-number" -" s_333" -"(add1 slash-pos_1)" -" end_35" +" s_0" +"(add1 slash-pos_0)" +" end_0" " #f" " #f" " #f" -" any-hashes?_1" -" radix_7" +" any-hashes?_0" +" radix_0" " 'exact" -" convert-mode_5)))" -"(let-values(((get-inexact?_0)" +" convert-mode_0)))" +"(let-values(((get-inexact?_476)" "(lambda(from-pos_0)" "(begin" " 'get-inexact?" -"(let-values(((or-part_345)(eq? exactness_3 'inexact)))" -"(if or-part_345" -" or-part_345" -"(if(not(eq? exactness_3 'exact))" -"(hashes? s_333 from-pos_0 end_35)" +"(let-values(((or-part_478)(eq? exactness_0 'inexact)))" +"(if or-part_478" +" or-part_478" +"(if(not(eq? exactness_0 'exact))" +"(hashes? s_0 from-pos_0 end_0)" " #f)))))))" -"(if(let-values(((or-part_346)(not n-v_0)))(if or-part_346 or-part_346(not d-v_0)))" +"(if(let-values(((or-part_479)(not n-v_474)))(if or-part_479 or-part_479(not d-v_475)))" "(let-values() #f)" -"(if(string? n-v_0)" -"(let-values() n-v_0)" -"(if(string? d-v_0)" -"(let-values() d-v_0)" -"(if(eqv? d-v_0 0)" +"(if(string? n-v_474)" +"(let-values() n-v_474)" +"(if(string? d-v_475)" +"(let-values() d-v_475)" +"(if(eqv? d-v_475 0)" "(let-values()" -"(if(get-inexact?_0(add1 slash-pos_1))" -"(let-values()(if(negative? n-v_0) -inf.0 +inf.0))" +"(if(get-inexact?_476(add1 slash-pos_0))" +"(let-values()(if(negative? n-v_474) -inf.0 +inf.0))" "(let-values()" -"(if(eq?(read-complains convert-mode_5) 'must-read)" +"(if(eq?(read-complains convert-mode_0) 'must-read)" "(let-values()" -" (format \"division by zero in `~.a`\" (substring s_333 start_45 end_35)))" +" (format \"division by zero in `~.a`\" (substring s_0 start_0 end_0)))" "(let-values() #f)))))" "(let-values()" -"(let-values(((n_32)(/ n-v_0 d-v_0)))" -"(if(get-inexact?_0 start_45)(exact->inexact n_32) n_32)))))))))))" +"(let-values(((n_480)(/ n-v_474 d-v_475)))" +"(if(get-inexact?_476 start_0)(exact->inexact n_480) n_480)))))))))))" "(let-values()" -"(string->decimal-number" -" s_333" -" start_45" -" end_35" -" dot-pos_2" -" radix_7" -" exactness_3" -" convert-mode_5))))))))))))" +"(string->decimal-number s_0 start_0 end_0 dot-pos_0 radix_0 exactness_0 convert-mode_0))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_490 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_0 start_0 end_0 dot-pos_0 radix_0 exactness_0 convert-mode_0)" "(begin" -"(let-values(((get-exact?_0)" -"(let-values(((or-part_187)(eq? exactness_4 'exact)))" -"(if or-part_187 or-part_187(eq? exactness_4 'decimal-as-exact)))))" -"(let-values(((new-str_0)(make-string(- end_36 start_46(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" -"((letrec-values(((loop_110)" -"(lambda(i_171 j_3 hashes-pos_0)" +"(let-values(((get-exact?_488)" +"(let-values(((or-part_490)(eq? exactness_0 'exact)))" +"(if or-part_490 or-part_490(eq? exactness_0 'decimal-as-exact)))))" +"(let-values(((new-str_489)(make-string(- end_0 start_0(if(if dot-pos_0 get-exact?_488 #f) 1 0)))))" +"((letrec-values(((loop_491)" +"(lambda(i_0 j_0 hashes-pos_0)" "(begin" " 'loop" -"(if(< i_171 start_46)" +"(if(< i_0 start_0)" "(let-values()" -"(if(= hashes-pos_0 start_46)" +"(if(= hashes-pos_0 start_0)" "(let-values()" -"(if(eq? convert-mode_6 'must-read)" +"(if(eq? convert-mode_0 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_490 start_46 end_36)))" +" (format \"misplaced `#` in `~.a`\" (substring s_0 start_0 end_0)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_33)(string->number$1 new-str_0 radix_8)))" -"(if(not n_33)" -"(let-values()(fail-bad-number convert-mode_6 s_490 start_46 end_36))" -"(if(not get-exact?_0)" +"(let-values(((n_495)(string->number$1 new-str_489 radix_0)))" +"(if(not n_495)" +"(let-values()(fail-bad-number convert-mode_0 s_0 start_0 end_0))" +"(if(not get-exact?_488)" "(let-values()" -"(if(if(eqv? n_33 0)(char=?(string-ref s_490 start_46) '#\\-) #f)" +"(if(if(eqv? n_495 0)(char=?(string-ref s_0 start_0) '#\\-) #f)" " -0.0" -"(exact->inexact n_33)))" -"(if(if dot-pos_3 get-exact?_0 #f)" -"(let-values()(/ n_33(expt 10(- end_36 dot-pos_3 1))))" -"(let-values() n_33))))))))" +"(exact->inexact n_495)))" +"(if(if dot-pos_0 get-exact?_488 #f)" +"(let-values()(/ n_495(expt 10(- end_0 dot-pos_0 1))))" +"(let-values() n_495))))))))" "(let-values()" -"(let-values(((c_79)(string-ref s_490 i_171)))" -"(if(char=? c_79 '#\\.)" +"(let-values(((c_496)(string-ref s_0 i_0)))" +"(if(char=? c_496 '#\\.)" "(let-values()" -"(if get-exact?_0" +"(if get-exact?_488" "(let-values()" -"(loop_110" -"(sub1 i_171)" -" j_3" -"(if(= hashes-pos_0(add1 i_171)) i_171 hashes-pos_0)))" +"(loop_491" +"(sub1 i_0)" +" j_0" +"(if(= hashes-pos_0(add1 i_0)) i_0 hashes-pos_0)))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_79)" -"(loop_110" -"(sub1 i_171)" -"(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_171)) i_171 hashes-pos_0))))))" -"(if(let-values(((or-part_347)(char=? c_79 '#\\-)))" -"(if or-part_347 or-part_347(char=? c_79 '#\\+)))" +"(string-set! new-str_489 j_0 c_496)" +"(loop_491" +"(sub1 i_0)" +"(sub1 j_0)" +"(if(= hashes-pos_0(add1 i_0)) i_0 hashes-pos_0))))))" +"(if(let-values(((or-part_497)(char=? c_496 '#\\-)))" +"(if or-part_497 or-part_497(char=? c_496 '#\\+)))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_79)" -"(loop_110" -"(sub1 i_171)" -"(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_171)) i_171 hashes-pos_0))))" -"(if(char=? c_79 '#\\#)" +"(string-set! new-str_489 j_0 c_496)" +"(loop_491" +"(sub1 i_0)" +"(sub1 j_0)" +"(if(= hashes-pos_0(add1 i_0)) i_0 hashes-pos_0))))" +"(if(char=? c_496 '#\\#)" "(let-values()" -"(if(= hashes-pos_0(add1 i_171))" +"(if(= hashes-pos_0(add1 i_0))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 '#\\0)" -"(loop_110(sub1 i_171)(sub1 j_3) i_171)))" +"(string-set! new-str_489 j_0 '#\\0)" +"(loop_491(sub1 i_0)(sub1 j_0) i_0)))" "(let-values()" -"(if(eq? convert-mode_6 'must-read)" +"(if(eq? convert-mode_0 'must-read)" "(let-values()" -"(format" -" \"misplaced `#` in `~.a`\"" -"(substring s_490 start_46 end_36)))" +" (format \"misplaced `#` in `~.a`\" (substring s_0 start_0 end_0)))" "(let-values() #f)))))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_79)" -"(loop_110(sub1 i_171)(sub1 j_3) hashes-pos_0)))))))))))))" -" loop_110)" -"(sub1 end_36)" -"(sub1(string-length new-str_0))" -" end_36))))))" +"(string-set! new-str_489 j_0 c_496)" +"(loop_491(sub1 i_0)(sub1 j_0) hashes-pos_0)))))))))))))" +" loop_491)" +"(sub1 end_0)" +"(sub1(string-length new-str_489))" +" end_0))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_491 start_47 end_37 radix_9 convert-mode_7)" +"(lambda(s_0 start_0 end_0 radix_0 convert-mode_0)" "(begin" -"(if(hashes? s_491 start_47 end_37)" +"(if(hashes? s_0 start_0 end_0)" "(let-values()" -"(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_491 start_47 end_37)))" +"(if(eq? convert-mode_0 'must-read)" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_0 start_0 end_0)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_34)(string->number$1(maybe-substring s_491 start_47 end_37) radix_9)))" -"(if(not n_34)" +"(let-values(((n_503)(string->number$1(maybe-substring s_0 start_0 end_0) radix_0)))" +"(if(not n_503)" "(let-values()" -"(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_491 start_47 end_37)))" +"(if(eq? convert-mode_0 'must-read)" +" (let-values () (format \"bad exponent `~.a`\" (substring s_0 start_0 end_0)))" "(let-values() #f)))" -"(let-values() n_34))))))))" +"(let-values() n_503))))))))" "(define-values" "(read-special-number)" -"(lambda(s_473 start_48 end_38 convert-mode_8)" +"(lambda(s_0 start_0 end_0 convert-mode_0)" "(begin" -"(if(=(- end_38 start_48) 6)" -"(if(let-values(((or-part_348)(char=?(string-ref s_473 start_48) '#\\+)))" -"(if or-part_348 or-part_348(char=?(string-ref s_473 start_48) '#\\-)))" -"(let-values(((or-part_349)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 4))) '#\\.)" -"(let-values(((or-part_350)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\0)" -"(if(char=?(string-ref s_473 start_48) '#\\+) +inf.0 -inf.0)" +"(if(=(- end_0 start_0) 6)" +"(if(let-values(((or-part_508)(char=?(string-ref s_0 start_0) '#\\+)))" +"(if or-part_508 or-part_508(char=?(string-ref s_0 start_0) '#\\-)))" +"(let-values(((or-part_509)" +"(if(char=?(char-downcase(string-ref s_0(+ start_0 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_0(+ start_0 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_0(+ start_0 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_0(+ start_0 4))) '#\\.)" +"(let-values(((or-part_510)" +"(if(char=?(char-downcase(string-ref s_0(+ start_0 5))) '#\\0)" +"(if(char=?(string-ref s_0 start_0) '#\\+) +inf.0 -inf.0)" " #f)))" -"(if or-part_350" -" or-part_350" -"(let-values(((or-part_351)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\f)" -"(if(char=?(string-ref s_473 start_48) '#\\+) +inf.f -inf.f)" +"(if or-part_510" +" or-part_510" +"(let-values(((or-part_511)" +"(if(char=?(char-downcase(string-ref s_0(+ start_0 5))) '#\\f)" +"(if(char=?(string-ref s_0 start_0) '#\\+) +inf.f -inf.f)" " #f)))" -"(if or-part_351" -" or-part_351" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\t)" -"(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_473 start_48) '#\\+) '+inf.t '-inf.t)" +"(if or-part_511" +" or-part_511" +"(if(char=?(char-downcase(string-ref s_0(+ start_0 5))) '#\\t)" +"(if(not(eq? convert-mode_0 'number-or-false))" +"(if(char=?(string-ref s_0 start_0) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" " #f)" " #f)" " #f)))" -"(if or-part_349" -" or-part_349" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 4))) '#\\.)" -"(let-values(((or-part_352)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\0) +nan.0 #f)))" -"(if or-part_352" -" or-part_352" -"(let-values(((or-part_353)" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\f) +nan.f #f)))" -"(if or-part_353" -" or-part_353" -"(if(char=?(char-downcase(string-ref s_473(+ start_48 5))) '#\\t)" -"(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" +"(if or-part_509" +" or-part_509" +"(if(char=?(char-downcase(string-ref s_0(+ start_0 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_0(+ start_0 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_0(+ start_0 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_0(+ start_0 4))) '#\\.)" +"(let-values(((or-part_512)" +"(if(char=?(char-downcase(string-ref s_0(+ start_0 5))) '#\\0) +nan.0 #f)))" +"(if or-part_512" +" or-part_512" +"(let-values(((or-part_513)" +"(if(char=?(char-downcase(string-ref s_0(+ start_0 5))) '#\\f) +nan.f #f)))" +"(if or-part_513" +" or-part_513" +"(if(char=?(char-downcase(string-ref s_0(+ start_0 5))) '#\\t)" +"(if(not(eq? convert-mode_0 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" " #f)" @@ -50878,10 +51104,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_231)" +"(lambda(convert-mode_0 v_0)" "(begin" -"(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_231))" +"(if(eq? convert-mode_0 'must-read)" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_0))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound62.1)" @@ -50897,643 +51123,643 @@ static const char *startup_source = " combine61_0)" "(begin" " 'read-for-special-compound62" -"(let-values(((s_492) s54_0))" -"(let-values(((start_49) start55_0))" -"(let-values(((end_39) end56_0))" -"(let-values(((radix_10) radix57_0))" -"(let-values(((exactness_5) exactness58_0))" -"(let-values(((convert-mode_10) convert-mode59_0))" -"(let-values(((in-complex_3) in-complex50_0))" -"(let-values(((reading-first?_0) reading-first?51_0))" -"(let-values(((v_232) v60_0))" -"(let-values(((combine_1) combine61_0))" +"(let-values(((s_544) s54_0))" +"(let-values(((start_545) start55_0))" +"(let-values(((end_546) end56_0))" +"(let-values(((radix_547) radix57_0))" +"(let-values(((exactness_548) exactness58_0))" +"(let-values(((convert-mode_549) convert-mode59_0))" +"(let-values(((in-complex_550) in-complex50_0))" +"(let-values(((reading-first?_551) reading-first?51_0))" +"(let-values(((v_552) v60_0))" +"(let-values(((combine_553) combine61_0))" "(let-values()" -"(if(eq? exactness_5 'exact)" +"(if(eq? exactness_548 'exact)" "(let-values()" -"(if(eq? convert-mode_10 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_232))" +"(if(eq? convert-mode_549 'must-read)" +" (let-values () (format \"no exact representation for `~a`\" v_552))" "(let-values() #f)))" -"(if(if(extflonum? v_232)" -"(let-values(((or-part_190)(not reading-first?_0)))" -"(if or-part_190 or-part_190(not(eq? convert-mode_10 'must-read))))" +"(if(if(extflonum? v_552)" +"(let-values(((or-part_554)(not reading-first?_551)))" +"(if or-part_554 or-part_554(not(eq? convert-mode_549 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_232))" +"(let-values()(fail-extflonum convert-mode_549 v_552))" "(let-values()" -"(let-values(((v2_7)" -"(let-values(((s173_0) s_492)" -"((start174_0) start_49)" -"((end175_0) end_39)" -"((radix176_0) radix_10)" -"((temp177_1) #t)" -"((exactness178_0) exactness_5)" -"((in-complex179_0) in-complex_3)" -"((convert-mode180_0) convert-mode_10))" +"(let-values(((v2_555)" +"(let-values(((s173_557) s_544)" +"((start174_558) start_545)" +"((end175_559) end_546)" +"((radix176_560) radix_547)" +"((temp177_561) #t)" +"((exactness178_562) exactness_548)" +"((in-complex179_563) in-complex_550)" +"((convert-mode180_564) convert-mode_549))" "(do-string->number17.1" -" in-complex179_0" -" temp177_1" -" s173_0" -" start174_0" -" end175_0" -" radix176_0" -" exactness178_0" -" convert-mode180_0))))" -"(if(string? v2_7)" -"(let-values() v2_7)" -"(if(not v2_7)" -"(let-values() v2_7)" -"(if(extflonum? v_232)" -"(let-values()(fail-extflonum convert-mode_10 v_232))" -"(let-values()(combine_1 v_232 v2_7)))))))))))))))))))))))" +" in-complex179_563" +" temp177_561" +" s173_557" +" start174_558" +" end175_559" +" radix176_560" +" exactness178_562" +" convert-mode180_564))))" +"(if(string? v2_555)" +"(let-values() v2_555)" +"(if(not v2_555)" +"(let-values() v2_555)" +"(if(extflonum? v_552)" +"(let-values()(fail-extflonum convert-mode_549 v_552))" +"(let-values()(combine_553 v_552 v2_555)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_263 start_50 end_40)" +"(lambda(s_0 start_0 end_0)" "(begin" -"(let-values(((v*_5 start*_5 stop*_6 step*_5)" +"(let-values(((v*_595 start*_596 stop*_597 step*_598)" "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_85)(string? x_85))" -"(lambda(x_86)(unsafe-string-length x_86))" -" s_263" -" start_50" -" end_40" +"(lambda(x_0)(string? x_0))" +"(lambda(x_0)(unsafe-string-length x_0))" +" s_0" +" start_0" +" end_0" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_272)" -"(lambda(result_122 idx_5)" +"((letrec-values(((for-loop_601)" +"(lambda(result_0 idx_0)" "(begin" " 'for-loop" -"(if(unsafe-fx< idx_5 stop*_6)" -"(let-values(((c_80)(string-ref v*_5 idx_5)))" -"(let-values(((result_123)" +"(if(unsafe-fx< idx_0 stop*_597)" +"(let-values(((c_604)(string-ref v*_595 idx_0)))" +"(let-values(((result_605)" "(let-values()" -"(let-values(((result_124)" -"(let-values()(let-values()(char=? c_80 '#\\#)))))" -"(values result_124)))))" -"(if(if(not((lambda x_87 result_123) c_80))(not #f) #f)" -"(for-loop_272 result_123(unsafe-fx+ idx_5 1))" -" result_123)))" -" result_122)))))" -" for-loop_272)" +"(let-values(((result_607)" +"(let-values()(let-values()(char=? c_604 '#\\#)))))" +"(values result_607)))))" +"(if(if(not((lambda x_0 result_605) c_604))(not #f) #f)" +"(for-loop_601 result_605(unsafe-fx+ idx_0 1))" +" result_605)))" +" result_0)))))" +" for-loop_601)" " #f" -" start*_5))))))" +" start*_596))))))" "(define-values" "(replace-hashes)" -"(lambda(s_271 start_51 end_41)" +"(lambda(s_0 start_0 end_0)" "(begin" -"(let-values(((new-s_9)(make-string(- end_41 start_51))))" +"(let-values(((new-s_612)(make-string(- end_0 start_0))))" "(begin" -"(let-values(((v*_6 start*_6 stop*_7 step*_6)" +"(let-values(((v*_613 start*_614 stop*_615 step*_616)" "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_88)(string? x_88))" -"(lambda(x_89)(unsafe-string-length x_89))" -" s_271" -" start_51" -" end_41" +"(lambda(x_0)(string? x_0))" +"(lambda(x_0)(unsafe-string-length x_0))" +" s_0" +" start_0" +" end_0" " 1))" -"((start_52) 0))" +"((start_617) 0))" "(begin" " #t" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_52)))" -"((letrec-values(((for-loop_273)" -"(lambda(idx_6 pos_115)" +"(let-values()(check-naturals start_617)))" +"((letrec-values(((for-loop_620)" +"(lambda(idx_0 pos_0)" "(begin" " 'for-loop" -"(if(if(unsafe-fx< idx_6 stop*_7) #t #f)" -"(let-values(((c_81)(string-ref v*_6 idx_6))((i_121) pos_115))" +"(if(if(unsafe-fx< idx_0 stop*_615) #t #f)" +"(let-values(((c_623)(string-ref v*_613 idx_0))((i_624) pos_0))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(char=? c_81 '#\\#)" -"(string-set! new-s_9 i_121 '#\\0)" -"(string-set! new-s_9 i_121 c_81)))" +"(if(char=? c_623 '#\\#)" +"(string-set! new-s_612 i_624 '#\\0)" +"(string-set! new-s_612 i_624 c_623)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_273(unsafe-fx+ idx_6 1)(+ pos_115 1))(values))))" +"(if(not #f)(for-loop_620(unsafe-fx+ idx_0 1)(+ pos_0 1))(values))))" "(values))))))" -" for-loop_273)" -" start*_6" -" start_52)))" +" for-loop_620)" +" start*_614" +" start_617)))" "(void)" -" new-s_9)))))" +" new-s_612)))))" "(define-values" "(maybe-substring)" -"(lambda(s_381 start_3 end_3)" -"(begin(if(if(= 0 start_3)(= end_3(string-length s_381)) #f) s_381(substring s_381 start_3 end_3)))))" +"(lambda(s_0 start_0 end_0)" +"(begin(if(if(= 0 start_0)(= end_0(string-length s_0)) #f) s_0(substring s_0 start_0 end_0)))))" "(define-values" "(exactness-set?)" -"(lambda(exactness_6)" +"(lambda(exactness_0)" "(begin" -"(let-values(((or-part_354)(eq? exactness_6 'exact)))(if or-part_354 or-part_354(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_629)(eq? exactness_0 'exact)))(if or-part_629 or-part_629(eq? exactness_0 'inexact))))))" "(define-values" "(char-sign?)" -"(lambda(c_82)" -"(begin(let-values(((or-part_355)(char=? c_82 '#\\-)))(if or-part_355 or-part_355(char=? c_82 '#\\+))))))" +"(lambda(c_0)" +"(begin(let-values(((or-part_631)(char=? c_0 '#\\-)))(if or-part_631 or-part_631(char=? c_0 '#\\+))))))" "(define-values" "(digit?)" -"(lambda(c_83 radix_11)" +"(lambda(c_0 radix_0)" "(begin" -"(let-values(((v_233)(char->integer c_83)))" -"(let-values(((or-part_356)" -"(if(>= v_233(char->integer '#\\0))(<(- v_233(char->integer '#\\0)) radix_11) #f)))" -"(if or-part_356" -" or-part_356" -"(if(> radix_11 10)" -"(let-values(((or-part_357)" -"(if(>= v_233(char->integer '#\\a))(<(- v_233(-(char->integer '#\\a) 10)) radix_11) #f)))" -"(if or-part_357" -" or-part_357" -"(if(>= v_233(char->integer '#\\A))(<(- v_233(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(let-values(((v_634)(char->integer c_0)))" +"(let-values(((or-part_635)(if(>= v_634(char->integer '#\\0))(<(- v_634(char->integer '#\\0)) radix_0) #f)))" +"(if or-part_635" +" or-part_635" +"(if(> radix_0 10)" +"(let-values(((or-part_636)" +"(if(>= v_634(char->integer '#\\a))(<(- v_634(-(char->integer '#\\a) 10)) radix_0) #f)))" +"(if or-part_636" +" or-part_636" +"(if(>= v_634(char->integer '#\\A))(<(- v_634(-(char->integer '#\\A) 10)) radix_0) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_137 start_53 end_42)" +"(lambda(convert-mode_0 s_0 start_0 end_0)" "(begin" -"(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_137 start_53 end_42)))" +"(if(eq? convert-mode_0 'must-read)" +" (let-values () (format \"bad number `~.a`\" (substring s_0 start_0 end_0)))" "(let-values() #f)))))" "(define-values" "(read-complains)" -"(lambda(convert-mode_12)(begin(if(eq? convert-mode_12 'read) 'must-read convert-mode_12))))" +"(lambda(convert-mode_0)(begin(if(eq? convert-mode_0 'read) 'must-read convert-mode_0))))" "(define-values" "(read-symbol-or-number8.1)" -"(lambda(extra-prefix2_0 mode1_0 init-c5_0 in6_1 orig-config7_0)" +"(lambda(extra-prefix2_0 mode1_0 init-c5_0 in6_0 orig-config7_0)" "(begin" " 'read-symbol-or-number8" "(let-values(((init-c_6) init-c5_0))" -"(let-values(((in_26) in6_1))" -"(let-values(((orig-config_0) orig-config7_0))" -"(let-values(((mode_18) mode1_0))" -"(let-values(((extra-prefix_0) extra-prefix2_0))" +"(let-values(((in_7) in6_0))" +"(let-values(((orig-config_8) orig-config7_0))" +"(let-values(((mode_9) mode1_0))" +"(let-values(((extra-prefix_10) extra-prefix2_0))" "(let-values()" -"(let-values(((config_37)" -"(if(string? mode_18)(override-parameter 1/read-cdot orig-config_0 #f) orig-config_0)))" -"(let-values(((rt_10)(read-config-readtable config_37)))" -"(let-values(((c1_29)" -"(if rt_10" -"(if(let-values(((or-part_217)(eq? mode_18 'symbol-or-number)))" -"(if or-part_217 or-part_217(eq? mode_18 'symbol/indirect)))" -"(readtable-symbol-parser rt_10)" +"(let-values(((config_11)" +"(if(string? mode_9)(override-parameter 1/read-cdot orig-config_8 #f) orig-config_8)))" +"(let-values(((rt_12)(read-config-readtable config_11)))" +"(let-values(((c1_13)" +"(if rt_12" +"(if(let-values(((or-part_14)(eq? mode_9 'symbol-or-number)))" +"(if or-part_14 or-part_14(eq? mode_9 'symbol/indirect)))" +"(readtable-symbol-parser rt_12)" " #f)" " #f)))" -"(if c1_29" -"((lambda(handler_2)" +"(if c1_13" +"((lambda(handler_0)" "(readtable-apply" -" handler_2" +" handler_0" " init-c_6" -" in_26" -" config_37" -"(read-config-line config_37)" -"(read-config-col config_37)" -"(read-config-pos config_37)))" -" c1_29)" +" in_7" +" config_11" +"(read-config-line config_11)" +"(read-config-col config_11)" +"(read-config-pos config_11)))" +" c1_13)" "(let-values()" -"(let-values(((accum-str_1)(accum-string-init! config_37)))" -"(let-values(((quoted-ever?_0) #f))" -"(let-values(((case-sens?_0)(check-parameter read-case-sensitive config_37)))" +"(let-values(((accum-str_16)(accum-string-init! config_11)))" +"(let-values(((quoted-ever?_17) #f))" +"(let-values(((case-sens?_18)(check-parameter read-case-sensitive config_11)))" "(let-values((()" "(begin" -"(if extra-prefix_0" -"(let-values()(accum-string-add! accum-str_1 extra-prefix_0))" +"(if extra-prefix_10" +"(let-values()(accum-string-add! accum-str_16 extra-prefix_10))" "(void))" "(values))))" -"(let-values(((source_17)(read-config-source config_37)))" -"(let-values(((unexpected-quoted_0)" -"(lambda(c_48 after-c_0)" +"(let-values(((source_19)(read-config-source config_11)))" +"(let-values(((unexpected-quoted_20)" +"(lambda(c_0 after-c_0)" "(begin" " 'unexpected-quoted" -"(let-values(((in11_0) in_26)" -"((config12_1) config_37)" -"((c13_0) c_48)" -" ((temp14_2) \"~a following `~a` in ~a\")" -"((temp15_2)" -"(if(eof-object? c_48)" +"(let-values(((in11_26) in_7)" +"((config12_27) config_11)" +"((c13_28) c_0)" +" ((temp14_29) \"~a following `~a` in ~a\")" +"((temp15_30)" +"(if(eof-object? c_0)" " \"end-of-file\"" " \"non-character\"))" -"((after-c16_0) after-c_0)" -"((temp17_1)" -"(if(eq? mode_18 'keyword)" +"((after-c16_31) after-c_0)" +"((temp17_32)" +"(if(eq? mode_9 'keyword)" " (let-values () \"keyword\")" -"(if(string? mode_18)" +"(if(string? mode_9)" " (let-values () \"number\")" " (let-values () \"symbol\")))))" "(reader-error12.1" " unsafe-undefined" -" c13_0" +" c13_28" " #f" " unsafe-undefined" -" in11_0" -" config12_1" -" temp14_2" -"(list temp15_2 after-c16_0 temp17_1)))))))" +" in11_26" +" config12_27" +" temp14_29" +"(list temp15_30 after-c16_31 temp17_32)))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_100)" -"(lambda(init-c_7" +"((letrec-values(((loop_33)" +"(lambda(init-c_0" " pipe-quote-c_0" " foldcase-from_0)" "(begin" " 'loop" -"(let-values(((c_84)" -"(let-values(((or-part_82)" -" init-c_7))" -"(if or-part_82" -" or-part_82" -"(let-values(((in_27)" -" in_26)" -"((skip-count_8)" +"(let-values(((c_37)" +"(let-values(((or-part_39)" +" init-c_0))" +"(if or-part_39" +" or-part_39" +"(let-values(((in_40)" +" in_7)" +"((skip-count_42)" " 0)" -"((source_18)" -" source_17))" -"(let-values(((c_51)" +"((source_43)" +" source_19))" +"(let-values(((c_44)" "(peek-char-or-special" -" in_27" -" skip-count_8" +" in_40" +" skip-count_42" " 'special" -" source_18)))" +" source_43)))" "(if(eq?" -" c_51" +" c_44" " 'special)" "(special1.1" " 'special)" -" c_51)))))))" -"(let-values(((ec_4)" -"(let-values(((rt_11)" -" rt_10)" -"((c_69)" -" c_84))" -"(if(let-values(((or-part_358)" +" c_44)))))))" +"(let-values(((ec_38)" +"(let-values(((rt_45)" +" rt_12)" +"((c_46)" +" c_37))" +"(if(let-values(((or-part_47)" "(not" -" rt_11)))" -"(if or-part_358" -" or-part_358" +" rt_45)))" +"(if or-part_47" +" or-part_47" "(not" -"(char? c_69))))" -"(let-values() c_69)" +"(char? c_46))))" +"(let-values() c_46)" "(let-values()" "(*readtable-effective-char" -" rt_11" -" c_69))))))" +" rt_45" +" c_46))))))" "(if(if pipe-quote-c_0" -"(not(char? ec_4))" +"(not(char? ec_38))" " #f)" "(let-values()" "(begin" -"(if init-c_7" +"(if init-c_0" "(void)" "(let-values()" "(consume-char/special" -" in_26" -" config_37" -" c_84)))" -"(unexpected-quoted_0" -" c_84" +" in_7" +" config_11" +" c_37)))" +"(unexpected-quoted_20" +" c_37" " pipe-quote-c_0)))" "(if(if(not pipe-quote-c_0)" "(readtable-char-delimiter?" -" rt_10" -" c_84" -" config_37)" +" rt_12" +" c_37" +" config_11)" " #f)" "(let-values()" -"(if case-sens?_0" +"(if case-sens?_18" "(void)" "(let-values()" "(accum-string-convert!" -" accum-str_1" +" accum-str_16" " string-foldcase" " foldcase-from_0))))" "(if(if pipe-quote-c_0" -"(char=? c_84 pipe-quote-c_0)" +"(char=? c_37 pipe-quote-c_0)" " #f)" "(let-values()" "(begin" -"(if init-c_7" +"(if init-c_0" "(void)" "(let-values()" "(consume-char" -" in_26" -" c_84)))" -"(loop_100" +" in_7" +" c_37)))" +"(loop_33" " #f" " #f" "(accum-string-count" -" accum-str_1))))" -"(if(if(char=? ec_4 '#\\|)" +" accum-str_16))))" +"(if(if(char=? ec_38 '#\\|)" "(check-parameter" " read-accept-bar-quote" -" config_37)" +" config_11)" " #f)" "(let-values()" "(begin" -"(if init-c_7" +"(if init-c_0" "(void)" "(let-values()" "(consume-char" -" in_26" -" c_84)))" -"(set! quoted-ever?_0 #t)" -"(if case-sens?_0" +" in_7" +" c_37)))" +"(set! quoted-ever?_17 #t)" +"(if case-sens?_18" "(void)" "(let-values()" "(accum-string-convert!" -" accum-str_1" +" accum-str_16" " string-foldcase" " foldcase-from_0)))" -"(loop_100" +"(loop_33" " #f" -" c_84" +" c_37" "(accum-string-count" -" accum-str_1))))" -"(if(if(char=? ec_4 '#\\\\)" +" accum-str_16))))" +"(if(if(char=? ec_38 '#\\\\)" "(not pipe-quote-c_0)" " #f)" "(let-values()" "(let-values((()" "(begin" -"(if init-c_7" +"(if init-c_0" "(void)" "(let-values()" "(consume-char" -" in_26" -" c_84)))" +" in_7" +" c_37)))" "(values))))" -"(let-values(((next-c_0)" -"(let-values(((in_28)" -" in_26)" -"((source_19)" -" source_17))" +"(let-values(((next-c_48)" +"(let-values(((in_49)" +" in_7)" +"((source_51)" +" source_19))" "(read-char-or-special" -" in_28" +" in_49" " special1.1" -" source_19))))" +" source_51))))" "(begin" -"(if(char? next-c_0)" +"(if(char?" +" next-c_48)" "(void)" "(let-values()" -"(unexpected-quoted_0" -" next-c_0" -" c_84)))" -"(if(let-values(((or-part_54)" +"(unexpected-quoted_20" +" next-c_48" +" c_37)))" +"(if(let-values(((or-part_52)" " pipe-quote-c_0))" -"(if or-part_54" -" or-part_54" -" case-sens?_0))" +"(if or-part_52" +" or-part_52" +" case-sens?_18))" "(void)" "(let-values()" "(accum-string-convert!" -" accum-str_1" +" accum-str_16" " string-foldcase" " foldcase-from_0)))" "(accum-string-add!" -" accum-str_1" -" next-c_0)" -"(set! quoted-ever?_0" +" accum-str_16" +" next-c_48)" +"(set! quoted-ever?_17" " #t)" -"(loop_100" +"(loop_33" " #f" " #f" "(accum-string-count" -" accum-str_1))))))" +" accum-str_16))))))" "(let-values()" "(begin" -"(if init-c_7" +"(if init-c_0" "(void)" "(let-values()" "(consume-char" -" in_26" -" c_84)))" +" in_7" +" c_37)))" "(accum-string-add!" -" accum-str_1" -" c_84)" -"(loop_100" +" accum-str_16" +" c_37)" +"(loop_33" " #f" " pipe-quote-c_0" " foldcase-from_0))))))))))))))" -" loop_100)" +" loop_33)" " init-c_6" " #f" " 0)" "(values))))" -"(let-values(((str_29)" -"(let-values(((accum-str18_0) accum-str_1)" -"((config19_0) config_37))" -"(accum-string-get!6.1 0 accum-str18_0 config19_0))))" +"(let-values(((str_21)" +"(let-values(((accum-str18_53) accum-str_16)" +"((config19_54) config_11))" +"(accum-string-get!6.1 0 accum-str18_53 config19_54))))" "(let-values((()" "(begin" -"(if(if(= 1(string-length str_29))" -"(if(not quoted-ever?_0)" +"(if(if(= 1(string-length str_21))" +"(if(not quoted-ever?_17)" "(char=?" " '#\\." -"(effective-char(string-ref str_29 0) config_37))" +"(effective-char(string-ref str_21 0) config_11))" " #f)" " #f)" "(let-values()" -"(let-values(((in20_1) in_26)" -"((config21_0) config_37)" -" ((temp22_5) \"illegal use of `.`\"))" +"(let-values(((in20_55) in_7)" +"((config21_56) config_11)" +" ((temp22_57) \"illegal use of `.`\"))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in20_1" -" config21_0" -" temp22_5" +" in20_55" +" config21_56" +" temp22_57" "(list))))" "(void))" "(values))))" -"(let-values(((num_0)" -"(if(let-values(((or-part_32)" -"(eq? mode_18 'symbol-or-number)))" -"(if or-part_32 or-part_32(string? mode_18)))" -"(if(not quoted-ever?_0)" +"(let-values(((num_22)" +"(if(let-values(((or-part_58)" +"(eq? mode_9 'symbol-or-number)))" +"(if or-part_58 or-part_58(string? mode_9)))" +"(if(not quoted-ever?_17)" "(1/string->number" -"(if(string? mode_18)" -"(string-append mode_18 str_29)" -" str_29)" +"(if(string? mode_9)" +"(string-append mode_9 str_21)" +" str_21)" " 10" " 'read" "(if(check-parameter" " 1/read-decimal-as-inexact" -" config_37)" +" config_11)" " 'decimal-as-inexact" " 'decimal-as-exact))" " #f)" " #f)))" "(begin" -"(if(string? num_0)" +"(if(string? num_22)" "(let-values()" -"(let-values(((in23_1) in_26)" -"((config24_1) config_37)" -" ((temp25_6) \"~a\")" -"((num26_0) num_0))" +"(let-values(((in23_59) in_7)" +"((config24_60) config_11)" +" ((temp25_61) \"~a\")" +"((num26_62) num_22))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in23_1" -" config24_1" -" temp25_6" -"(list num26_0))))" +" in23_59" +" config24_60" +" temp25_61" +"(list num26_62))))" "(void))" -"(if(if(not num_0)(string? mode_18) #f)" +"(if(if(not num_22)(string? mode_9) #f)" "(let-values()" -"(let-values(((in27_0) in_26)" -"((config28_0) config_37)" -" ((temp29_4) \"bad number: `~a`\")" -"((temp30_4)(string-append mode_18 str_29)))" +"(let-values(((in27_63) in_7)" +"((config28_64) config_11)" +" ((temp29_65) \"bad number: `~a`\")" +"((temp30_66)(string-append mode_9 str_21)))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in27_0" -" config28_0" -" temp29_4" -"(list temp30_4))))" +" in27_63" +" config28_64" +" temp29_65" +"(list temp30_66))))" "(void))" "(wrap" -"(let-values(((or-part_295) num_0))" -"(if or-part_295" -" or-part_295" -"(let-values(((or-part_166)" -"(if(eq? mode_18 'keyword)" -"(string->keyword str_29)" +"(let-values(((or-part_67) num_22))" +"(if or-part_67" +" or-part_67" +"(let-values(((or-part_68)" +"(if(eq? mode_9 'keyword)" +"(string->keyword str_21)" " #f)))" -"(if or-part_166 or-part_166(string->symbol str_29)))))" -" in_26" -" config_37" -" str_29))))))))))))))))))))))))))" +"(if or-part_68 or-part_68(string->symbol str_21)))))" +" in_7" +" config_11" +" str_21))))))))))))))))))))))))))" "(define-values" "(read-fixnum)" -"(lambda(read-one_3 init-c_0 in_5 config_15)" +"(lambda(read-one_0 init-c_0 in_0 config_0)" "(begin" -"(let-values(((c_25)(read-char/skip-whitespace-and-comments init-c_0 read-one_3 in_5 config_15)))" -"(let-values(((line_8 col_7 pos_116)(port-next-location* in_5 c_25)))" -" (let-values (((v_224) (read-number-literal c_25 in_5 config_15 \"#e\")))" -"(if(fixnum? v_224)" -"(let-values() v_224)" -"(if(eof-object? v_224)" -"(let-values() v_224)" +"(let-values(((c_5)(read-char/skip-whitespace-and-comments init-c_0 read-one_0 in_0 config_0)))" +"(let-values(((line_6 col_7 pos_8)(port-next-location* in_0 c_5)))" +" (let-values (((v_9) (read-number-literal c_5 in_0 config_0 \"#e\")))" +"(if(fixnum? v_9)" +"(let-values() v_9)" +"(if(eof-object? v_9)" +"(let-values() v_9)" "(let-values()" -"(let-values(((in1_3) in_5)" -"((temp2_5)(reading-at config_15 line_8 col_7 pos_116))" -" ((temp3_6) \"expected a fixnum, found ~a\")" -"((v4_1) v_224))" +"(let-values(((in1_10) in_0)" +"((temp2_11)(reading-at config_0 line_6 col_7 pos_8))" +" ((temp3_12) \"expected a fixnum, found ~a\")" +"((v4_13) v_9))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in1_3" -" temp2_5" -" temp3_6" -"(list v4_1))))))))))))" +" in1_10" +" temp2_11" +" temp3_12" +"(list v4_13))))))))))))" "(define-values" "(read-flonum)" -"(lambda(read-one_4 init-c_8 in_20 config_38)" +"(lambda(read-one_0 init-c_0 in_0 config_0)" "(begin" -"(let-values(((c_14)(read-char/skip-whitespace-and-comments init-c_8 read-one_4 in_20 config_38)))" -"(let-values(((line_9 col_8 pos_94)(port-next-location* in_20 c_14)))" -" (let-values (((v_32) (read-number-literal c_14 in_20 config_38 \"#i\")))" -"(if(flonum? v_32)" -"(let-values() v_32)" -"(if(eof-object? v_32)" -"(let-values() v_32)" +"(let-values(((c_18)(read-char/skip-whitespace-and-comments init-c_0 read-one_0 in_0 config_0)))" +"(let-values(((line_19 col_20 pos_21)(port-next-location* in_0 c_18)))" +" (let-values (((v_22) (read-number-literal c_18 in_0 config_0 \"#i\")))" +"(if(flonum? v_22)" +"(let-values() v_22)" +"(if(eof-object? v_22)" +"(let-values() v_22)" "(let-values()" -"(let-values(((in5_0) in_20)" -"((temp6_1)(reading-at config_38 line_9 col_8 pos_94))" -" ((temp7_4) \"expected a flonum, found ~a\")" -"((v8_0) v_32))" +"(let-values(((in5_23) in_0)" +"((temp6_24)(reading-at config_0 line_19 col_20 pos_21))" +" ((temp7_25) \"expected a flonum, found ~a\")" +"((v8_26) v_22))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in5_0" -" temp6_1" -" temp7_4" -"(list v8_0))))))))))))" +" in5_23" +" temp6_24" +" temp7_25" +"(list v8_26))))))))))))" "(define-values" "(read-number-literal)" -"(lambda(c_49 in_29 config_39 mode_19)" +"(lambda(c_0 in_0 config_0 mode_0)" "(begin" -"(if(not(char? c_49))" -"(let-values() c_49)" +"(if(not(char? c_0))" +"(let-values() c_0)" "(let-values()" -"(let-values(((c9_0) c_49)((in10_2) in_29)((config11_1) config_39)((mode12_0) mode_19))" -"(read-symbol-or-number8.1 #f mode12_0 c9_0 in10_2 config11_1)))))))" +"(let-values(((c9_32) c_0)((in10_33) in_0)((config11_34) config_0)((mode12_35) mode_0))" +"(read-symbol-or-number8.1 #f mode12_35 c9_32 in10_33 config11_34)))))))" "(define-values" "(read-vector11.1)" -"(lambda(length2_0 mode1_0 read-one5_0 opener-c6_0 opener7_0 closer8_0 in9_1 config10_1)" +"(lambda(length2_0 mode1_0 read-one5_0 opener-c6_0 opener7_0 closer8_0 in9_0 config10_0)" "(begin" " 'read-vector11" -"(let-values(((read-one_5) read-one5_0))" -"(let-values(((opener-c_1) opener-c6_0))" -"(let-values(((opener_2) opener7_0))" -"(let-values(((closer_2) closer8_0))" -"(let-values(((in_30) in9_1))" -"(let-values(((config_10) config10_1))" -"(let-values(((vector-mode_0) mode1_0))" -"(let-values(((expected-len_0) length2_0))" +"(let-values(((read-one_9) read-one5_0))" +"(let-values(((opener-c_10) opener-c6_0))" +"(let-values(((opener_11) opener7_0))" +"(let-values(((closer_12) closer8_0))" +"(let-values(((in_13) in9_0))" +"(let-values(((config_14) config10_0))" +"(let-values(((vector-mode_15) mode1_0))" +"(let-values(((expected-len_16) length2_0))" "(let-values()" -"(let-values(((read-one-element_0)" -"(let-values(((tmp_41) vector-mode_0))" -"(if(equal? tmp_41 'any)" -"(let-values() read-one_5)" -"(if(equal? tmp_41 'fixnum)" +"(let-values(((read-one-element_17)" +"(let-values(((tmp_20) vector-mode_15))" +"(if(equal? tmp_20 'any)" +"(let-values() read-one_9)" +"(if(equal? tmp_20 'fixnum)" "(let-values()" -"(lambda(init-c_9 in_31 config_40)" +"(lambda(init-c_0 in_0 config_0)" "(begin" " 'read-one-element" -"(read-fixnum read-one_5 init-c_9 in_31 config_40))))" -"(if(equal? tmp_41 'flonum)" +"(read-fixnum read-one_9 init-c_0 in_0 config_0))))" +"(if(equal? tmp_20 'flonum)" "(let-values()" -"(lambda(init-c_10 in_11 config_26)" +"(lambda(init-c_0 in_0 config_0)" "(begin" " 'read-one-element" -"(read-flonum read-one_5 init-c_10 in_11 config_26))))" +"(read-flonum read-one_9 init-c_0 in_0 config_0))))" "(let-values()(void))))))))" -"(let-values(((seq_2)" -"(let-values(((read-one-element14_0) read-one-element_0)" -"((opener-c15_0) opener-c_1)" -"((opener16_0) opener_2)" -"((closer17_0) closer_2)" -"((in18_0) in_30)" -"((config19_1) config_10)" -"((read-one20_0) read-one_5)" -"((temp21_2) #f))" +"(let-values(((seq_18)" +"(let-values(((read-one-element14_28) read-one-element_17)" +"((opener-c15_29) opener-c_10)" +"((opener16_30) opener_11)" +"((closer17_31) closer_12)" +"((in18_32) in_13)" +"((config19_33) config_14)" +"((read-one20_34) read-one_9)" +"((temp21_35) #f))" "(read-unwrapped-sequence17.1" -" temp21_2" +" temp21_35" " unsafe-undefined" " unsafe-undefined" " #f" -" read-one20_0" -" read-one-element14_0" -" opener-c15_0" -" opener16_0" -" closer17_0" -" in18_0" -" config19_1))))" -"(let-values(((vec_61)" -"(if(not expected-len_0)" +" read-one20_34" +" read-one-element14_28" +" opener-c15_29" +" opener16_30" +" closer17_31" +" in18_32" +" config19_33))))" +"(let-values(((vec_19)" +"(if(not expected-len_16)" "(let-values()" -"(let-values(((tmp_42) vector-mode_0))" -"(if(equal? tmp_42 'any)" -"(let-values()(list->vector seq_2))" -"(if(equal? tmp_42 'fixnum)" +"(let-values(((tmp_36) vector-mode_15))" +"(if(equal? tmp_36 'any)" +"(let-values()(list->vector seq_18))" +"(if(equal? tmp_36 'fixnum)" "(let-values()" -"(let-values(((len_37)(length seq_2)))" +"(let-values(((len_37)(length seq_18)))" "(begin" "(if(exact-nonnegative-integer? len_37)" "(void)" @@ -51542,194 +51768,194 @@ static const char *startup_source = " 'for/fxvector" " \"exact-nonnegative-integer?\"" " len_37)))" -"(let-values(((fill_0) 0))" -"(let-values(((v_36)(make-fxvector len_37 fill_0)))" +"(let-values(((fill_38) 0))" +"(let-values(((v_39)(make-fxvector len_37 fill_38)))" "(begin" "(if(zero? len_37)" "(void)" "(let-values()" -"(let-values(((lst_264) seq_2))" +"(let-values(((lst_40) seq_18))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_264)))" -"((letrec-values(((for-loop_274)" -"(lambda(i_3 lst_104)" +"(let-values()(check-list lst_40)))" +"((letrec-values(((for-loop_41)" +"(lambda(i_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_104)" -"(let-values(((e_77)" +"(if(pair? lst_0)" +"(let-values(((e_44)" "(unsafe-car" -" lst_104))" -"((rest_145)" +" lst_0))" +"((rest_45)" "(unsafe-cdr" -" lst_104)))" -"(let-values(((i_172)" -"(let-values(((i_94)" -" i_3))" -"(let-values(((i_173)" +" lst_0)))" +"(let-values(((i_46)" +"(let-values(((i_47)" +" i_0))" +"(let-values(((i_48)" "(let-values()" "(begin" -"(let-values(((elem_0)" +"(let-values(((elem_49)" "(let-values()" -" e_77)))" +" e_44)))" "(if(fixnum?" -" elem_0)" +" elem_49)" "(unsafe-fxvector-set!" -" v_36" -" i_94" -" elem_0)" +" v_39" +" i_47" +" elem_49)" "(not-an-fX.1" " 'for*/vector" -" elem_0)))" +" elem_49)))" "(unsafe-fx+" " 1" -" i_94)))))" +" i_47)))))" "(values" -" i_173)))))" +" i_48)))))" "(if(if(not" -"((lambda x_90" +"((lambda x_0" "(unsafe-fx=" -" i_172" +" i_46" " len_37))" -" e_77))" +" e_44))" "(not #f)" " #f)" -"(for-loop_274" -" i_172" -" rest_145)" -" i_172)))" -" i_3)))))" -" for-loop_274)" +"(for-loop_41" +" i_46" +" rest_45)" +" i_46)))" +" i_0)))))" +" for-loop_41)" " 0" -" lst_264)))))" -" v_36))))))" -"(if(equal? tmp_42 'flonum)" +" lst_40)))))" +" v_39))))))" +"(if(equal? tmp_36 'flonum)" "(let-values()" -"(let-values(((len_38)(length seq_2)))" +"(let-values(((len_51)(length seq_18)))" "(begin" -"(if(exact-nonnegative-integer? len_38)" +"(if(exact-nonnegative-integer? len_51)" "(void)" "(let-values()" "(raise-argument-error" " 'for/flvector" " \"exact-nonnegative-integer?\"" -" len_38)))" -"(let-values(((fill_1) 0.0))" -"(let-values(((v_179)(make-flvector len_38 fill_1)))" +" len_51)))" +"(let-values(((fill_52) 0.0))" +"(let-values(((v_53)(make-flvector len_51 fill_52)))" "(begin" -"(if(zero? len_38)" +"(if(zero? len_51)" "(void)" "(let-values()" -"(let-values(((lst_24) seq_2))" +"(let-values(((lst_54) seq_18))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_21)" -"(lambda(i_40 lst_25)" +"(let-values()(check-list lst_54)))" +"((letrec-values(((for-loop_55)" +"(lambda(i_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_25)" -"(let-values(((e_10)" +"(if(pair? lst_0)" +"(let-values(((e_58)" "(unsafe-car" -" lst_25))" -"((rest_9)" +" lst_0))" +"((rest_59)" "(unsafe-cdr" -" lst_25)))" -"(let-values(((i_42)" -"(let-values(((i_43)" -" i_40))" -"(let-values(((i_153)" +" lst_0)))" +"(let-values(((i_60)" +"(let-values(((i_61)" +" i_0))" +"(let-values(((i_62)" "(let-values()" "(begin" -"(let-values(((elem_1)" +"(let-values(((elem_63)" "(let-values()" -" e_10)))" +" e_58)))" "(if(flonum?" -" elem_1)" +" elem_63)" "(unsafe-flvector-set!" -" v_179" -" i_43" -" elem_1)" +" v_53" +" i_61" +" elem_63)" "(not-an-fX.1$1" " 'for*/vector" -" elem_1)))" +" elem_63)))" "(unsafe-fx+" " 1" -" i_43)))))" +" i_61)))))" "(values" -" i_153)))))" +" i_62)))))" "(if(if(not" -"((lambda x_91" +"((lambda x_0" "(unsafe-fx=" -" i_42" -" len_38))" -" e_10))" +" i_60" +" len_51))" +" e_58))" "(not #f)" " #f)" -"(for-loop_21" -" i_42" -" rest_9)" -" i_42)))" -" i_40)))))" -" for-loop_21)" +"(for-loop_55" +" i_60" +" rest_59)" +" i_60)))" +" i_0)))))" +" for-loop_55)" " 0" -" lst_24)))))" -" v_179))))))" +" lst_54)))))" +" v_53))))))" "(let-values()(void)))))))" "(let-values()" -"(let-values(((len_39)(length seq_2)))" -"(if(= expected-len_0 len_39)" -"(let-values()(list->vector seq_2))" -"(if(< expected-len_0 len_39)" +"(let-values(((len_65)(length seq_18)))" +"(if(= expected-len_16 len_65)" +"(let-values()(list->vector seq_18))" +"(if(< expected-len_16 len_65)" "(let-values()" -"(let-values(((in22_1) in_30)" -"((config23_0) config_10)" -"((temp24_5)" +"(let-values(((in22_66) in_13)" +"((config23_67) config_14)" +"((temp24_68)" " \"~avector length ~a is too small, ~a values provided\")" -"((temp25_7)" -"(let-values(((tmp_43) vector-mode_0))" -"(if(equal? tmp_43 'any)" +"((temp25_69)" +"(let-values(((tmp_72) vector-mode_15))" +"(if(equal? tmp_72 'any)" " (let-values () \"\")" -"(if(equal? tmp_43 'fixnum)" +"(if(equal? tmp_72 'fixnum)" " (let-values () \"fx\")" -"(if(equal? tmp_43 'flonum)" +"(if(equal? tmp_72 'flonum)" " (let-values () \"fl\")" "(let-values()(void)))))))" -"((expected-len26_0) expected-len_0)" -"((len27_0) len_39))" +"((expected-len26_70) expected-len_16)" +"((len27_71) len_65))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in22_1" -" config23_0" -" temp24_5" -"(list temp25_7 expected-len26_0 len27_0))))" +" in22_66" +" config23_67" +" temp24_68" +"(list temp25_69 expected-len26_70 len27_71))))" "(let-values()" -"(let-values(((last-or_0)" -"(lambda(v_234)" +"(let-values(((last-or_73)" +"(lambda(v_0)" "(begin" " 'last-or" -"(if(null? seq_2)" -"(wrap v_234 in_30 config_10 #f)" -"((letrec-values(((loop_111)" -"(lambda(seq_3)" +"(if(null? seq_18)" +"(wrap v_0 in_13 config_14 #f)" +"((letrec-values(((loop_76)" +"(lambda(seq_0)" "(begin" " 'loop" -"(if(null?(cdr seq_3))" -"(car seq_3)" -"(loop_111" -"(cdr seq_3)))))))" -" loop_111)" -" seq_2))))))" +"(if(null?(cdr seq_0))" +"(car seq_0)" +"(loop_76" +"(cdr seq_0)))))))" +" loop_76)" +" seq_18))))))" "(let-values((()" "(begin" -"(if(>=(integer-length expected-len_0) 48)" +"(if(>=(integer-length expected-len_16) 48)" "(let-values()" "(raise" "(exn:fail:out-of-memory" @@ -51737,54 +51963,54 @@ static const char *startup_source = "(current-continuation-marks))))" "(void))" "(values))))" -"(let-values(((vec_69)" -"(let-values(((tmp_44) vector-mode_0))" -"(if(equal? tmp_44 'any)" +"(let-values(((vec_74)" +"(let-values(((tmp_78) vector-mode_15))" +"(if(equal? tmp_78 'any)" "(let-values()" "(make-vector" -" expected-len_0" -"(last-or_0 0)))" -"(if(equal? tmp_44 'fixnum)" +" expected-len_16" +"(last-or_73 0)))" +"(if(equal? tmp_78 'fixnum)" "(let-values()" "(make-fxvector" -" expected-len_0" -"(last-or_0 0)))" -"(if(equal? tmp_44 'flonum)" +" expected-len_16" +"(last-or_73 0)))" +"(if(equal? tmp_78 'flonum)" "(let-values()" "(make-flvector" -" expected-len_0" -"(last-or_0 0.0)))" +" expected-len_16" +"(last-or_73 0.0)))" "(let-values()(void))))))))" "(begin" -"(let-values(((tmp_45) vector-mode_0))" -"(if(equal? tmp_45 'any)" +"(let-values(((tmp_79) vector-mode_15))" +"(if(equal? tmp_79 'any)" "(let-values()" "(begin" -"(let-values(((lst_8) seq_2)((start_54) 0))" +"(let-values(((lst_80) seq_18)((start_81) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_8)))" +"(let-values()(check-list lst_80)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_54)))" -"((letrec-values(((for-loop_275)" -"(lambda(lst_298 pos_117)" +"(let-values()(check-naturals start_81)))" +"((letrec-values(((for-loop_82)" +"(lambda(lst_0 pos_0)" "(begin" " 'for-loop" -"(if(if(pair? lst_298)" +"(if(if(pair? lst_0)" " #t" " #f)" -"(let-values(((e_78)" +"(let-values(((e_85)" "(unsafe-car" -" lst_298))" -"((rest_173)" +" lst_0))" +"((rest_86)" "(unsafe-cdr" -" lst_298))" -"((i_174)" -" pos_117))" +" lst_0))" +"((i_87)" +" pos_0))" "(let-values((()" "(let-values()" "(let-values((()" @@ -51792,50 +52018,49 @@ static const char *startup_source = "(begin" "(let-values()" "(vector-set!" -" vec_69" -" i_174" -" e_78))" +" vec_74" +" i_87" +" e_85))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_275" -" rest_173" -"(+ pos_117 1))" +"(for-loop_82" +" rest_86" +"(+ pos_0 1))" "(values))))" "(values))))))" -" for-loop_275)" -" lst_8" -" start_54)))" +" for-loop_82)" +" lst_80" +" start_81)))" "(void)))" -"(if(equal? tmp_45 'fixnum)" +"(if(equal? tmp_79 'fixnum)" "(let-values()" "(begin" -"(let-values(((lst_178) seq_2)((start_55) 0))" +"(let-values(((lst_88) seq_18)((start_89) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_178)))" +"(let-values()(check-list lst_88)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_55)))" -"((letrec-values(((for-loop_28)" -"(lambda(lst_276 pos_17)" +"(let-values()(check-naturals start_89)))" +"((letrec-values(((for-loop_90)" +"(lambda(lst_0 pos_0)" "(begin" " 'for-loop" -"(if(if(pair?" -" lst_276)" +"(if(if(pair? lst_0)" " #t" " #f)" -"(let-values(((e_79)" +"(let-values(((e_93)" "(unsafe-car" -" lst_276))" -"((rest_123)" +" lst_0))" +"((rest_94)" "(unsafe-cdr" -" lst_276))" -"((i_99)" -" pos_17))" +" lst_0))" +"((i_95)" +" pos_0))" "(let-values((()" "(let-values()" "(let-values((()" @@ -51843,51 +52068,51 @@ static const char *startup_source = "(begin" "(let-values()" "(fxvector-set!" -" vec_69" -" i_99" -" e_79))" +" vec_74" +" i_95" +" e_93))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_28" -" rest_123" -"(+ pos_17 1))" +"(for-loop_90" +" rest_94" +"(+ pos_0 1))" "(values))))" "(values))))))" -" for-loop_28)" -" lst_178" -" start_55)))" +" for-loop_90)" +" lst_88" +" start_89)))" "(void)))" -"(if(equal? tmp_45 'flonum)" +"(if(equal? tmp_79 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_306) seq_2)((start_56) 0))" +"(let-values(((lst_96) seq_18)((start_97) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_306)))" +"(let-values()(check-list lst_96)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-naturals start_56)))" -"((letrec-values(((for-loop_276)" -"(lambda(lst_98 pos_118)" +"(check-naturals start_97)))" +"((letrec-values(((for-loop_98)" +"(lambda(lst_0 pos_0)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_98)" +" lst_0)" " #t" " #f)" -"(let-values(((e_80)" +"(let-values(((e_101)" "(unsafe-car" -" lst_98))" -"((rest_174)" +" lst_0))" +"((rest_102)" "(unsafe-cdr" -" lst_98))" -"((i_46)" -" pos_118))" +" lst_0))" +"((i_103)" +" pos_0))" "(let-values((()" "(let-values()" "(let-values((()" @@ -51895,443 +52120,458 @@ static const char *startup_source = "(begin" "(let-values()" "(flvector-set!" -" vec_69" -" i_46" -" e_80))" +" vec_74" +" i_103" +" e_101))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_276" -" rest_174" +"(for-loop_98" +" rest_102" "(+" -" pos_118" +" pos_0" " 1))" "(values))))" "(values))))))" -" for-loop_276)" -" lst_306" -" start_56)))" +" for-loop_98)" +" lst_96" +" start_97)))" "(void)))" "(let-values()(void))))))" -" vec_69))))))))))))" -"(wrap vec_61 in_30 config_10 opener_2))))))))))))))))" +" vec_74))))))))))))" +"(wrap vec_19 in_13 config_14 opener_11))))))))))))))))" "(define-values" "(read-fixnum-or-flonum-vector)" -"(lambda(read-one_6 dispatch-c_0 c_85 c2_4 in_32 config_41)" +"(lambda(read-one_0 dispatch-c_0 c_0 c2_0 in_0 config_0)" "(begin" -"(let-values(((vector-mode_1)(if(char=? c2_4 '#\\x) 'fixnum 'flonum)))" -"(let-values((()(begin(consume-char in_32 c2_4)(values))))" +"(let-values(((vector-mode_145)(if(char=? c2_0 '#\\x) 'fixnum 'flonum)))" +"(let-values((()(begin(consume-char in_0 c2_0)(values))))" "(let-values((()" "(begin" -"(if(read-config-for-syntax? config_41)" +"(if(read-config-for-syntax? config_0)" "(let-values()" -"(let-values(((in28_0) in_32)" -"((config29_0) config_41)" -" ((temp30_5) \"literal f~avectors not allowed\")" -"((c231_0) c2_4))" +"(let-values(((in28_169) in_0)" +"((config29_170) config_0)" +" ((temp30_171) \"literal f~avectors not allowed\")" +"((c231_172) c2_0))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in28_0" -" config29_0" -" temp30_5" -"(list c231_0))))" +" in28_169" +" config29_170" +" temp30_171" +"(list c231_172))))" "(void))" "(values))))" -"(let-values(((c3_3)" -"(let-values(((in_33) in_32)((source_20)(read-config-source config_41)))" -"(read-char-or-special in_33 special1.1 source_20))))" -"(let-values(((vector-len_0 len-str_0 c4_1)" -"(if(decimal-digit? c3_3)" -"(let-values()(read-simple-number in_32 config_41 c3_3))" -" (let-values () (values #f \"\" c3_3)))))" -"(let-values(((tmp_46) c4_1))" -"(if(equal? tmp_46 '#\\()" +"(let-values(((c3_146)" +"(let-values(((in_173) in_0)((source_175)(read-config-source config_0)))" +"(read-char-or-special in_173 special1.1 source_175))))" +"(let-values(((vector-len_147 len-str_148 c4_149)" +"(if(decimal-digit? c3_146)" +"(let-values()(read-simple-number in_0 config_0 c3_146))" +" (let-values () (values #f \"\" c3_146)))))" +"(let-values(((tmp_176) c4_149))" +"(if(equal? tmp_176 '#\\()" "(let-values()" -"(let-values(((read-one32_0) read-one_6)" -"((temp33_2) '#\\()" -"((temp34_6) '#\\()" -"((temp35_3) '#\\))" -"((in36_0) in_32)" -"((config37_0) config_41)" -"((vector-mode38_0) vector-mode_1)" -"((vector-len39_0) vector-len_0))" +"(let-values(((read-one32_178) read-one_0)" +"((temp33_179) '#\\()" +"((temp34_180) '#\\()" +"((temp35_181) '#\\))" +"((in36_182) in_0)" +"((config37_183) config_0)" +"((vector-mode38_184) vector-mode_145)" +"((vector-len39_185) vector-len_147))" "(read-vector11.1" -" vector-len39_0" -" vector-mode38_0" -" read-one32_0" -" temp33_2" -" temp34_6" -" temp35_3" -" in36_0" -" config37_0)))" -"(if(equal? tmp_46 '#\\[)" +" vector-len39_185" +" vector-mode38_184" +" read-one32_178" +" temp33_179" +" temp34_180" +" temp35_181" +" in36_182" +" config37_183)))" +"(if(equal? tmp_176 '#\\[)" "(let-values()" -"(if(check-parameter 1/read-square-bracket-as-paren config_41)" +"(if(check-parameter 1/read-square-bracket-as-paren config_0)" "(let-values()" -"(let-values(((read-one40_0) read-one_6)" -"((temp41_2) '#\\[)" -"((temp42_2) '#\\[)" -"((temp43_3) '#\\])" -"((in44_0) in_32)" -"((config45_0) config_41)" -"((vector-mode46_0) vector-mode_1)" -"((vector-len47_0) vector-len_0))" +"(let-values(((read-one40_187) read-one_0)" +"((temp41_188) '#\\[)" +"((temp42_189) '#\\[)" +"((temp43_190) '#\\])" +"((in44_191) in_0)" +"((config45_192) config_0)" +"((vector-mode46_193) vector-mode_145)" +"((vector-len47_194) vector-len_147))" "(read-vector11.1" -" vector-len47_0" -" vector-mode46_0" -" read-one40_0" -" temp41_2" -" temp42_2" -" temp43_3" -" in44_0" -" config45_0)))" +" vector-len47_194" +" vector-mode46_193" +" read-one40_187" +" temp41_188" +" temp42_189" +" temp43_190" +" in44_191" +" config45_192)))" "(let-values()" -"(let-values(((in48_0) in_32)" -"((config49_0) config_41)" -" ((temp50_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_85 c2_4))))" -"(bad-syntax-error20.1 '#\\x in48_0 config49_0 temp50_2)))))" -"(if(equal? tmp_46 '#\\{)" +"(let-values(((in48_195) in_0)" +"((config49_196) config_0)" +" ((temp50_197) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_0 c2_0))))" +"(bad-syntax-error20.1 '#\\x in48_195 config49_196 temp50_197)))))" +"(if(equal? tmp_176 '#\\{)" "(let-values()" -"(if(check-parameter 1/read-curly-brace-as-paren config_41)" +"(if(check-parameter 1/read-curly-brace-as-paren config_0)" "(let-values()" -"(let-values(((read-one51_0) read-one_6)" -"((temp52_1) '#\\{)" -"((temp53_2) '#\\{)" -"((temp54_0) '#\\})" -"((in55_1) in_32)" -"((config56_0) config_41)" -"((vector-mode57_0) vector-mode_1)" -"((vector-len58_0) vector-len_0))" +"(let-values(((read-one51_199) read-one_0)" +"((temp52_200) '#\\{)" +"((temp53_201) '#\\{)" +"((temp54_202) '#\\})" +"((in55_203) in_0)" +"((config56_204) config_0)" +"((vector-mode57_205) vector-mode_145)" +"((vector-len58_206) vector-len_147))" "(read-vector11.1" -" vector-len58_0" -" vector-mode57_0" -" read-one51_0" -" temp52_1" -" temp53_2" -" temp54_0" -" in55_1" -" config56_0)))" +" vector-len58_206" +" vector-mode57_205" +" read-one51_199" +" temp52_200" +" temp53_201" +" temp54_202" +" in55_203" +" config56_204)))" "(let-values()" -"(let-values(((in59_0) in_32)" -"((config60_0) config_41)" -" ((temp61_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_85 c2_4))))" -"(bad-syntax-error20.1 '#\\x in59_0 config60_0 temp61_2)))))" +"(let-values(((in59_207) in_0)" +"((config60_208) config_0)" +" ((temp61_209) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_0 c2_0))))" +"(bad-syntax-error20.1 '#\\x in59_207 config60_208 temp61_209)))))" "(let-values()" -"(let-values(((in62_0) in_32)" -"((config63_0) config_41)" -"((c464_0) c4_1)" -" ((temp65_2) \"expected `(`, `[`, or `{` after `#~a~a~a`\")" -"((c66_0) c_85)" -"((c267_0) c2_4)" -"((len-str68_0) len-str_0))" +"(let-values(((in62_211) in_0)" +"((config63_212) config_0)" +"((c464_213) c4_149)" +" ((temp65_214) \"expected `(`, `[`, or `{` after `#~a~a~a`\")" +"((c66_215) c_0)" +"((c267_216) c2_0)" +"((len-str68_217) len-str_148))" "(reader-error12.1" " unsafe-undefined" -" c464_0" +" c464_213" " #f" " unsafe-undefined" -" in62_0" -" config63_0" -" temp65_2" -"(list c66_0 c267_0 len-str68_0))))))))))))))))" +" in62_211" +" config63_212" +" temp65_214" +"(list c66_215 c267_216 len-str68_217))))))))))))))))" "(define-values" "(read-simple-number)" -"(lambda(in_34 config_42 init-c_11)" +"(lambda(in_0 config_0 init-c_0)" "(begin" -"(let-values(((accum-str_2)(accum-string-init! config_42)))" -"(let-values((()(begin(accum-string-add! accum-str_2 init-c_11)(values))))" -"(let-values(((init-v_1)(digit->number init-c_11)))" -"(let-values(((v_235)" -"(let-values(((in69_0) in_34)" -"((config70_0) config_42)" -"((accum-str71_0) accum-str_2)" -"((temp72_1) 10)" -"((temp73_0) +inf.0)" -"((init-v74_0) init-v_1)" -"((init-v75_0) init-v_1))" -"(read-digits12.1 temp72_1 init-v74_0 temp73_0 init-v75_0 in69_0 config70_0 accum-str71_0))))" +"(let-values(((accum-str_221)(accum-string-init! config_0)))" +"(let-values((()(begin(accum-string-add! accum-str_221 init-c_0)(values))))" +"(let-values(((init-v_222)(digit->number init-c_0)))" +"(let-values(((v_223)" +"(let-values(((in69_225) in_0)" +"((config70_226) config_0)" +"((accum-str71_227) accum-str_221)" +"((temp72_228) 10)" +"((temp73_229) +inf.0)" +"((init-v74_230) init-v_222)" +"((init-v75_231) init-v_222))" +"(read-digits12.1" +" temp72_228" +" init-v74_230" +" temp73_229" +" init-v75_231" +" in69_225" +" config70_226" +" accum-str71_227))))" "(values" -" v_235" -"(let-values(((accum-str76_0) accum-str_2)((config77_0) config_42))" -"(accum-string-get!6.1 0 accum-str76_0 config77_0))" -"(let-values(((in_35) in_34)((source_21)(read-config-source config_42)))" -"(read-char-or-special in_35 special1.1 source_21))))))))))" +" v_223" +"(let-values(((accum-str76_232) accum-str_221)((config77_233) config_0))" +"(accum-string-get!6.1 0 accum-str76_232 config77_233))" +"(let-values(((in_234) in_0)((source_236)(read-config-source config_0)))" +"(read-char-or-special in_234 special1.1 source_236))))))))))" "(define-values" "(read-struct)" -"(lambda(read-one_3 dispatch-c_1 in_5 config_15)" +"(lambda(read-one_0 dispatch-c_0 in_0 config_0)" "(begin" -"(let-values(((c_25)" -"(let-values(((in_11) in_5)((source_22)(read-config-source config_15)))" -"(read-char-or-special in_11 special1.1 source_22))))" -"(let-values(((ec_5)(effective-char c_25 config_15)))" -"(let-values(((seq_4)" -"(let-values(((tmp_47) ec_5))" -"(if(equal? tmp_47 '#\\()" -"(let-values()(read-struct-sequence read-one_3 c_25 '#\\( '#\\) in_5 config_15))" -"(if(equal? tmp_47 '#\\[)" +"(let-values(((c_5)" +"(let-values(((in_25) in_0)((source_27)(read-config-source config_0)))" +"(read-char-or-special in_25 special1.1 source_27))))" +"(let-values(((ec_22)(effective-char c_5 config_0)))" +"(let-values(((seq_23)" +"(let-values(((tmp_28) ec_22))" +"(if(equal? tmp_28 '#\\()" +"(let-values()(read-struct-sequence read-one_0 c_5 '#\\( '#\\) in_0 config_0))" +"(if(equal? tmp_28 '#\\[)" "(let-values()" -"(if(check-parameter 1/read-square-bracket-as-paren config_15)" -"(let-values()(read-struct-sequence read-one_3 c_25 '#\\[ '#\\] in_5 config_15))" +"(if(check-parameter 1/read-square-bracket-as-paren config_0)" +"(let-values()(read-struct-sequence read-one_0 c_5 '#\\[ '#\\] in_0 config_0))" "(let-values()" -"(let-values(((in1_4) in_5)" -"((config2_3) config_15)" -" ((temp3_7) (format \"~as~a\" dispatch-c_1 c_25)))" -"(bad-syntax-error20.1 '#\\x in1_4 config2_3 temp3_7)))))" -"(if(equal? tmp_47 '#\\{)" +"(let-values(((in1_29) in_0)" +"((config2_30) config_0)" +" ((temp3_31) (format \"~as~a\" dispatch-c_0 c_5)))" +"(bad-syntax-error20.1 '#\\x in1_29 config2_30 temp3_31)))))" +"(if(equal? tmp_28 '#\\{)" "(let-values()" -"(if(check-parameter 1/read-curly-brace-as-paren config_15)" -"(let-values()(read-struct-sequence read-one_3 c_25 '#\\{ '#\\} in_5 config_15))" +"(if(check-parameter 1/read-curly-brace-as-paren config_0)" +"(let-values()(read-struct-sequence read-one_0 c_5 '#\\{ '#\\} in_0 config_0))" "(let-values()" -"(let-values(((in4_1) in_5)" -"((config5_1) config_15)" -" ((temp6_2) (format \"~as~a\" dispatch-c_1 c_25)))" -"(bad-syntax-error20.1 '#\\x in4_1 config5_1 temp6_2)))))" +"(let-values(((in4_32) in_0)" +"((config5_33) config_0)" +" ((temp6_34) (format \"~as~a\" dispatch-c_0 c_5)))" +"(bad-syntax-error20.1 '#\\x in4_32 config5_33 temp6_34)))))" "(let-values()" -"(let-values(((in7_0) in_5)" -"((config8_0) config_15)" -" ((temp9_5) \"expected ~a after `~as`\")" -"((temp10_0)(all-openers-str config_15))" -"((dispatch-c11_0) dispatch-c_1))" +"(let-values(((in7_35) in_0)" +"((config8_36) config_0)" +" ((temp9_37) \"expected ~a after `~as`\")" +"((temp10_38)(all-openers-str config_0))" +"((dispatch-c11_39) dispatch-c_0))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in7_0" -" config8_0" -" temp9_5" -"(list temp10_0 dispatch-c11_0))))))))))" +" in7_35" +" config8_36" +" temp9_37" +"(list temp10_38 dispatch-c11_39))))))))))" "(let-values((()" "(begin" -"(if(null? seq_4)" +"(if(null? seq_23)" "(let-values()" -"(let-values(((in12_0) in_5)" -"((config13_0) config_15)" -" ((temp14_1) \"missing structure description in `~as` form\")" -"((dispatch-c15_0) dispatch-c_1))" +"(let-values(((in12_40) in_0)" +"((config13_41) config_0)" +" ((temp14_42) \"missing structure description in `~as` form\")" +"((dispatch-c15_43) dispatch-c_0))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in12_0" -" config13_0" -" temp14_1" -"(list dispatch-c15_0))))" +" in12_40" +" config13_41" +" temp14_42" +"(list dispatch-c15_43))))" "(void))" "(values))))" "(let-values((()" "(begin" -"(if(prefab-key?(car seq_4))" +"(if(prefab-key?(car seq_23))" "(void)" "(let-values()" -"(let-values(((in16_0) in_5)" -"((config17_0) config_15)" -" ((temp18_5) \"invalid structure description in `~as` form\")" -"((dispatch-c19_0) dispatch-c_1))" +"(let-values(((in16_44) in_0)" +"((config17_45) config_0)" +" ((temp18_46) \"invalid structure description in `~as` form\")" +"((dispatch-c19_47) dispatch-c_0))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in16_0" -" config17_0" -" temp18_5" -"(list dispatch-c19_0)))))" +" in16_44" +" config17_45" +" temp18_46" +"(list dispatch-c19_47)))))" "(values))))" -"(let-values(((st_2)" -"(let-values(((with-handlers-predicate20_0) exn:fail?)" -"((with-handlers-handler21_0)" -"(lambda(exn_4)(begin 'with-handlers-handler21 #f))))" -"(let-values(((bpz_4)(continuation-mark-set-first #f break-enabled-key)))" +"(let-values(((st_24)" +"(let-values(((with-handlers-predicate20_48) exn:fail?)" +"((with-handlers-handler21_49)" +"(lambda(exn_0)(begin 'with-handlers-handler21 #f))))" +"(let-values(((bpz_51)(continuation-mark-set-first #f break-enabled-key)))" "(call-handled-body" -" bpz_4" -"(lambda(e_81)" +" bpz_51" +"(lambda(e_0)" "(select-handler/no-breaks" -" e_81" -" bpz_4" -"(list(cons with-handlers-predicate20_0 with-handlers-handler21_0))))" -"(lambda()(prefab-key->struct-type(car seq_4)(length(cdr seq_4)))))))))" +" e_0" +" bpz_51" +"(list(cons with-handlers-predicate20_48 with-handlers-handler21_49))))" +"(lambda()(prefab-key->struct-type(car seq_23)(length(cdr seq_23)))))))))" "(begin" -"(if st_2" +"(if st_24" "(void)" "(let-values()" -"(let-values(((in22_2) in_5)" -"((config23_1) config_15)" -"((temp24_6)" +"(let-values(((in22_53) in_0)" +"((config23_54) config_0)" +"((temp24_55)" "(string-append" " \"mismatch between structure description\"" " \" and number of provided field values in `~as` form\"))" -"((dispatch-c25_0) dispatch-c_1))" +"((dispatch-c25_56) dispatch-c_0))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in22_2" -" config23_1" -" temp24_6" -"(list dispatch-c25_0)))))" -"(if(read-config-for-syntax? config_15)" +" in22_53" +" config23_54" +" temp24_55" +"(list dispatch-c25_56)))))" +"(if(read-config-for-syntax? config_0)" "(let-values()" -"(if(all-fields-immutable?(car seq_4))" +"(if(all-fields-immutable?(car seq_23))" "(void)" "(let-values()" -"(let-values(((in26_1) in_5)" -"((config27_1) config_15)" -" ((temp28_2) \"cannot read mutable `~as` form as syntax\")" -"((dispatch-c29_0) dispatch-c_1))" +"(let-values(((in26_57) in_0)" +"((config27_58) config_0)" +" ((temp28_59) \"cannot read mutable `~as` form as syntax\")" +"((dispatch-c29_60) dispatch-c_0))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in26_1" -" config27_1" -" temp28_2" -"(list dispatch-c29_0))))))" +" in26_57" +" config27_58" +" temp28_59" +"(list dispatch-c29_60))))))" "(void))" -"(wrap(apply make-prefab-struct seq_4) in_5 config_15 ec_5)))))))))))" +"(wrap(apply make-prefab-struct seq_23) in_0 config_0 ec_22)))))))))))" "(define-values" "(read-struct-sequence)" -"(lambda(read-one_7 opener-c_2 opener_3 closer_3 in_16 config_43)" +"(lambda(read-one_0 opener-c_0 opener_0 closer_0 in_0 config_0)" "(begin" -"(let-values(((read-one30_0) read-one_7)" -"((opener-c31_0) opener-c_2)" -"((opener32_0) opener_3)" -"((closer33_0) closer_3)" -"((in34_0) in_16)" -"((config35_0) config_43)" -"((temp36_5)" -"(lambda(init-c_12 in_36 config_11)(read-one_7 init-c_12 in_36(disable-wrapping config_11)))))" +"(let-values(((read-one30_68) read-one_0)" +"((opener-c31_69) opener-c_0)" +"((opener32_70) opener_0)" +"((closer33_71) closer_0)" +"((in34_72) in_0)" +"((config35_73) config_0)" +"((temp36_74)" +"(lambda(init-c_0 in_1 config_1)(read-one_0 init-c_0 in_1(disable-wrapping config_1)))))" "(read-unwrapped-sequence17.1" " 'all" " unsafe-undefined" -" temp36_5" +" temp36_74" " #f" " unsafe-undefined" -" read-one30_0" -" opener-c31_0" -" opener32_0" -" closer33_0" -" in34_0" -" config35_0)))))" +" read-one30_68" +" opener-c31_69" +" opener32_70" +" closer33_71" +" in34_72" +" config35_73)))))" "(define-values" "(read-vector-or-graph)" -"(lambda(read-one_3 dispatch-c_1 init-c_13 in_37 config_44)" +"(lambda(read-one_0 dispatch-c_0 init-c_0 in_0 config_0)" "(begin" -"(let-values(((accum-str_3)(accum-string-init! config_44)))" -"(let-values((()(begin(accum-string-add! accum-str_3 init-c_13)(values))))" -"(let-values(((init-v_2)(digit->number init-c_13)))" -"(let-values(((v_31)" -"(let-values(((in1_5) in_37)" -"((config2_4) config_44)" -"((accum-str3_0) accum-str_3)" -"((temp4_3) 10)" -"((temp5_6) +inf.0)" -"((init-v6_0) init-v_2)" -"((init-v7_0) init-v_2))" -"(read-digits12.1 temp4_3 init-v6_0 temp5_6 init-v7_0 in1_5 config2_4 accum-str3_0))))" -"(let-values(((post-line_0 post-col_0 post-pos_0)(port-next-location in_37)))" -"(let-values(((get-accum_0)" -"(lambda(c_52)" +"(let-values(((accum-str_6)(accum-string-init! config_0)))" +"(let-values((()(begin(accum-string-add! accum-str_6 init-c_0)(values))))" +"(let-values(((init-v_7)(digit->number init-c_0)))" +"(let-values(((v_8)" +"(let-values(((in1_35) in_0)" +"((config2_36) config_0)" +"((accum-str3_37) accum-str_6)" +"((temp4_38) 10)" +"((temp5_39) +inf.0)" +"((init-v6_40) init-v_7)" +"((init-v7_41) init-v_7))" +"(read-digits12.1 temp4_38 init-v6_40 temp5_39 init-v7_41 in1_35 config2_36 accum-str3_37))))" +"(let-values(((post-line_9 post-col_10 post-pos_11)(port-next-location in_0)))" +"(let-values(((get-accum_12)" +"(lambda(c_0)" "(begin" " 'get-accum" "(format" " \"~a~a~a\"" -" dispatch-c_1" -"(let-values(((accum-str8_0) accum-str_3)((config9_0) config_44))" -"(accum-string-get!6.1 0 accum-str8_0 config9_0))" -" c_52)))))" -"(let-values(((c_86)" -"(let-values(((in_38) in_37)((source_16)(read-config-source config_44)))" -"(read-char-or-special in_38 special1.1 source_16))))" -"(let-values(((ec_6)(effective-char c_86 config_44)))" -"(let-values(((tmp_48) ec_6))" +" dispatch-c_0" +"(let-values(((accum-str8_43) accum-str_6)((config9_44) config_0))" +"(accum-string-get!6.1 0 accum-str8_43 config9_44))" +" c_0)))))" +"(let-values(((c_32)" +"(let-values(((in_45) in_0)((source_47)(read-config-source config_0)))" +"(read-char-or-special in_45 special1.1 source_47))))" +"(let-values(((ec_33)(effective-char c_32 config_0)))" +"(let-values(((tmp_48) ec_33))" "(if(equal? tmp_48 '#\\()" "(let-values()" "(begin" -"(accum-string-abandon! accum-str_3 config_44)" -"(let-values(((read-one10_0) read-one_3)" -"((c11_0) c_86)" -"((temp12_4) '#\\()" -"((temp13_2) '#\\))" -"((in14_0) in_37)" -"((config15_0) config_44)" -"((v16_0) v_31))" -"(read-vector11.1 v16_0 'any read-one10_0 c11_0 temp12_4 temp13_2 in14_0 config15_0))))" +"(accum-string-abandon! accum-str_6 config_0)" +"(let-values(((read-one10_50) read-one_0)" +"((c11_51) c_32)" +"((temp12_52) '#\\()" +"((temp13_53) '#\\))" +"((in14_54) in_0)" +"((config15_55) config_0)" +"((v16_56) v_8))" +"(read-vector11.1" +" v16_56" +" 'any" +" read-one10_50" +" c11_51" +" temp12_52" +" temp13_53" +" in14_54" +" config15_55))))" "(if(equal? tmp_48 '#\\[)" "(let-values()" "(begin" -"(accum-string-abandon! accum-str_3 config_44)" -"(if(check-parameter 1/read-square-bracket-as-paren config_44)" +"(accum-string-abandon! accum-str_6 config_0)" +"(if(check-parameter 1/read-square-bracket-as-paren config_0)" "(let-values()" -"(let-values(((read-one17_0) read-one_3)" -"((c18_1) c_86)" -"((temp19_3) '#\\[)" -"((temp20_2) '#\\])" -"((in21_0) in_37)" -"((config22_0) config_44)" -"((v23_0) v_31))" +"(let-values(((read-one17_58) read-one_0)" +"((c18_59) c_32)" +"((temp19_60) '#\\[)" +"((temp20_61) '#\\])" +"((in21_62) in_0)" +"((config22_63) config_0)" +"((v23_64) v_8))" "(read-vector11.1" -" v23_0" +" v23_64" " 'any" -" read-one17_0" -" c18_1" -" temp19_3" -" temp20_2" -" in21_0" -" config22_0)))" +" read-one17_58" +" c18_59" +" temp19_60" +" temp20_61" +" in21_62" +" config22_63)))" "(let-values()" -"(let-values(((in24_0) in_37)" -"((config25_0) config_44)" -"((temp26_4)(get-accum_0(get-accum_0 c_86))))" -"(bad-syntax-error20.1 '#\\x in24_0 config25_0 temp26_4))))))" +"(let-values(((in24_65) in_0)" +"((config25_66) config_0)" +"((temp26_67)(get-accum_12(get-accum_12 c_32))))" +"(bad-syntax-error20.1 '#\\x in24_65 config25_66 temp26_67))))))" "(if(equal? tmp_48 '#\\{)" "(let-values()" "(begin" -"(accum-string-abandon! accum-str_3 config_44)" -"(if(check-parameter 1/read-curly-brace-as-paren config_44)" +"(accum-string-abandon! accum-str_6 config_0)" +"(if(check-parameter 1/read-curly-brace-as-paren config_0)" "(let-values()" -"(let-values(((read-one27_0) read-one_3)" -"((c28_0) c_86)" -"((temp29_5) '#\\{)" -"((temp30_6) '#\\})" -"((in31_1) in_37)" -"((config32_0) config_44)" -"((v33_0) v_31))" +"(let-values(((read-one27_69) read-one_0)" +"((c28_70) c_32)" +"((temp29_71) '#\\{)" +"((temp30_72) '#\\})" +"((in31_73) in_0)" +"((config32_74) config_0)" +"((v33_75) v_8))" "(read-vector11.1" -" v33_0" +" v33_75" " 'any" -" read-one27_0" -" c28_0" -" temp29_5" -" temp30_6" -" in31_1" -" config32_0)))" +" read-one27_69" +" c28_70" +" temp29_71" +" temp30_72" +" in31_73" +" config32_74)))" "(let-values()" -"(let-values(((in34_1) in_37)" -"((config35_1) config_44)" -"((temp36_6)(get-accum_0(get-accum_0 c_86))))" -"(bad-syntax-error20.1 '#\\x in34_1 config35_1 temp36_6))))))" +"(let-values(((in34_76) in_0)" +"((config35_77) config_0)" +"((temp36_78)(get-accum_12(get-accum_12 c_32))))" +"(bad-syntax-error20.1 '#\\x in34_76 config35_77 temp36_78))))))" "(let-values()" -"(let-values(((tmp_45) c_86))" -"(if(if(equal? tmp_45 '#\\=) #t(equal? tmp_45 '#\\#))" +"(let-values(((tmp_79) c_32))" +"(if(if(equal? tmp_79 '#\\=) #t(equal? tmp_79 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_309)(read-config-for-syntax? config_44)))" -"(if or-part_309" -" or-part_309" -"(not(check-parameter 1/read-accept-graph config_44))))" +"(if(let-values(((or-part_80)(read-config-for-syntax? config_0)))" +"(if or-part_80" +" or-part_80" +"(not(check-parameter 1/read-accept-graph config_0))))" "(let-values()" -"(let-values(((in37_1) in_37)" -"((config38_0) config_44)" -" ((temp39_4) \"`#...~a` forms not ~a\")" -"((c40_0) c_86)" -"((temp41_3)" -"(if(read-config-for-syntax? config_44)" +"(let-values(((in37_81) in_0)" +"((config38_82) config_0)" +" ((temp39_83) \"`#...~a` forms not ~a\")" +"((c40_84) c_32)" +"((temp41_85)" +"(if(read-config-for-syntax? config_0)" " \"enabled\"" " \"allowed in `read-syntax` mode\")))" "(reader-error12.1" @@ -52339,719 +52579,732 @@ static const char *startup_source = " '#\\x" " #f" " unsafe-undefined" -" in37_1" -" config38_0" -" temp39_4" -"(list c40_0 temp41_3))))" +" in37_81" +" config38_82" +" temp39_83" +"(list c40_84 temp41_85))))" "(void))" -"(if(<=(accum-string-count accum-str_3) 8)" +"(if(<=(accum-string-count accum-str_6) 8)" "(void)" "(let-values()" -"(let-values(((in42_0) in_37)" -"((config43_0) config_44)" -" ((temp44_2) \"graph ID too long in `~a~a~a`\")" -"((dispatch-c45_0) dispatch-c_1)" -"((temp46_1)" -"(let-values(((accum-str48_0) accum-str_3)" -"((config49_1) config_44))" -"(accum-string-get!6.1 0 accum-str48_0 config49_1)))" -"((c47_0) c_86))" +"(let-values(((in42_86) in_0)" +"((config43_87) config_0)" +" ((temp44_88) \"graph ID too long in `~a~a~a`\")" +"((dispatch-c45_89) dispatch-c_0)" +"((temp46_90)" +"(let-values(((accum-str48_92) accum-str_6)" +"((config49_93) config_0))" +"(accum-string-get!6.1 0 accum-str48_92 config49_93)))" +"((c47_91) c_32))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in42_0" -" config43_0" -" temp44_2" -"(list dispatch-c45_0 temp46_1 c47_0)))))" -"(let-values(((tmp_49) c_86))" -"(if(equal? tmp_49 '#\\=)" +" in42_86" +" config43_87" +" temp44_88" +"(list dispatch-c45_89 temp46_90 c47_91)))))" +"(let-values(((tmp_94) c_32))" +"(if(equal? tmp_94 '#\\=)" "(let-values()" -"(let-values(((ph_1)(make-placeholder 'placeholder)))" -"(let-values(((ht_154)(get-graph-hash config_44)))" +"(let-values(((ph_95)(make-placeholder 'placeholder)))" +"(let-values(((ht_96)(get-graph-hash config_0)))" "(let-values((()" "(begin" -"(if(hash-ref ht_154 v_31 #f)" +"(if(hash-ref ht_96 v_8 #f)" "(let-values()" -"(let-values(((in50_0) in_37)" -"((config51_0) config_44)" -" ((temp52_2) \"multiple `~a~a~a` tags\")" -"((dispatch-c53_0) dispatch-c_1)" -"((temp54_1)" -"(let-values(((accum-str56_0)" -" accum-str_3)" -"((config57_0)" -" config_44))" +"(let-values(((in50_98) in_0)" +"((config51_99) config_0)" +"((temp52_100)" +" \"multiple `~a~a~a` tags\")" +"((dispatch-c53_101) dispatch-c_0)" +"((temp54_102)" +"(let-values(((accum-str56_104)" +" accum-str_6)" +"((config57_105)" +" config_0))" "(accum-string-get!6.1" " 0" -" accum-str56_0" -" config57_0)))" -"((c55_0) c_86))" +" accum-str56_104" +" config57_105)))" +"((c55_103) c_32))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in50_0" -" config51_0" -" temp52_2" -"(list dispatch-c53_0 temp54_1 c55_0))))" +" in50_98" +" config51_99" +" temp52_100" +"(list dispatch-c53_101 temp54_102 c55_103))))" "(void))" "(values))))" -"(let-values((()(begin(hash-set! ht_154 v_31 ph_1)(values))))" -"(let-values(((result-v_0)" -"(read-one_3 #f in_37(next-readtable config_44))))" +"(let-values((()(begin(hash-set! ht_96 v_8 ph_95)(values))))" +"(let-values(((result-v_97)" +"(read-one_0 #f in_0(next-readtable config_0))))" "(begin" -"(if(eof-object? result-v_0)" +"(if(eof-object? result-v_97)" "(let-values()" -"(let-values(((in58_0) in_37)" -"((config59_0) config_44)" -"((result-v60_0) result-v_0)" -"((temp61_3)" +"(let-values(((in58_107) in_0)" +"((config59_108) config_0)" +"((result-v60_109) result-v_97)" +"((temp61_110)" " \"expected an element for graph after `~a~a~a`, found end-of-file\")" -"((dispatch-c62_0) dispatch-c_1)" -"((temp63_4)" -"(let-values(((accum-str65_0) accum-str_3)" -"((config66_0) config_44))" +"((dispatch-c62_111) dispatch-c_0)" +"((temp63_112)" +"(let-values(((accum-str65_114) accum-str_6)" +"((config66_115) config_0))" "(accum-string-get!6.1" " 0" -" accum-str65_0" -" config66_0)))" -"((c64_0) c_86))" +" accum-str65_114" +" config66_115)))" +"((c64_113) c_32))" "(reader-error12.1" " unsafe-undefined" -" result-v60_0" +" result-v60_109" " #f" " unsafe-undefined" -" in58_0" -" config59_0" -" temp61_3" -"(list dispatch-c62_0 temp63_4 c64_0))))" +" in58_107" +" config59_108" +" temp61_110" +"(list dispatch-c62_111 temp63_112 c64_113))))" "(void))" -"(accum-string-abandon! accum-str_3 config_44)" -"(placeholder-set! ph_1 result-v_0)" -" ph_1)))))))" -"(if(equal? tmp_49 '#\\#)" +"(accum-string-abandon! accum-str_6 config_0)" +"(placeholder-set! ph_95 result-v_97)" +" ph_95)))))))" +"(if(equal? tmp_94 '#\\#)" "(let-values()" "(begin0" "(hash-ref" -"(let-values(((or-part_210)" -"(read-config-state-graph(read-config-st config_44))))" -"(if or-part_210 or-part_210 '#hash()))" -" v_31" +"(let-values(((or-part_116)" +"(read-config-state-graph(read-config-st config_0))))" +"(if or-part_116 or-part_116 '#hash()))" +" v_8" "(lambda()" -"(let-values(((in67_0) in_37)" -"((config68_0) config_44)" -" ((temp69_2) \"no preceding `~a~a=` for `~a~a~a`\")" -"((dispatch-c70_0) dispatch-c_1)" -"((v71_0) v_31)" -"((dispatch-c72_0) dispatch-c_1)" -"((temp73_1)" -"(let-values(((accum-str75_0) accum-str_3)" -"((config76_0) config_44))" -"(accum-string-get!6.1 0 accum-str75_0 config76_0)))" -"((c74_0) c_86))" +"(let-values(((in67_117) in_0)" +"((config68_118) config_0)" +" ((temp69_119) \"no preceding `~a~a=` for `~a~a~a`\")" +"((dispatch-c70_120) dispatch-c_0)" +"((v71_121) v_8)" +"((dispatch-c72_122) dispatch-c_0)" +"((temp73_123)" +"(let-values(((accum-str75_125) accum-str_6)" +"((config76_126) config_0))" +"(accum-string-get!6.1" +" 0" +" accum-str75_125" +" config76_126)))" +"((c74_124) c_32))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in67_0" -" config68_0" -" temp69_2" -"(list dispatch-c70_0 v71_0 dispatch-c72_0 temp73_1 c74_0)))))" -"(accum-string-abandon! accum-str_3 config_44)))" +" in67_117" +" config68_118" +" temp69_119" +"(list" +" dispatch-c70_120" +" v71_121" +" dispatch-c72_122" +" temp73_123" +" c74_124)))))" +"(accum-string-abandon! accum-str_6 config_0)))" "(let-values()(void)))))))" "(let-values()" -"(let-values(((in77_0) in_37)" -"((config78_0) config_44)" -"((c79_0) c_86)" -" ((temp80_0) \"bad syntax `~a`\")" -"((temp81_2)(get-accum_0 c_86)))" +"(let-values(((in77_128) in_0)" +"((config78_129) config_0)" +"((c79_130) c_32)" +" ((temp80_131) \"bad syntax `~a`\")" +"((temp81_132)(get-accum_12 c_32)))" "(reader-error12.1" " unsafe-undefined" -" c79_0" +" c79_130" " #f" " unsafe-undefined" -" in77_0" -" config78_0" -" temp80_0" -"(list temp81_2))))))))))))))))))))))" +" in77_128" +" config78_129" +" temp80_131" +"(list temp81_132))))))))))))))))))))))" "(define-values" "(get-graph-hash)" -"(lambda(config_45)" +"(lambda(config_0)" "(begin" -"(let-values(((st_3)(read-config-st config_45)))" -"(let-values(((or-part_359)(read-config-state-graph st_3)))" -"(if or-part_359" -" or-part_359" -"(let-values(((ht_155)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_155) ht_155))))))))" +"(let-values(((st_134)(read-config-st config_0)))" +"(let-values(((or-part_135)(read-config-state-graph st_134)))" +"(if or-part_135" +" or-part_135" +"(let-values(((ht_136)(make-hasheqv)))(begin(set-read-config-state-graph! st_134 ht_136) ht_136))))))))" "(define-values" "(coerce-key)" -"(lambda(key_85 config_8)" +"(lambda(key_0 config_0)" "(begin" -"(let-values(((for-syntax?_7)(read-config-for-syntax? config_8)))" -"((read-config-coerce-key config_8) for-syntax?_7 key_85)))))" +"(let-values(((for-syntax?_3)(read-config-for-syntax? config_0)))" +"((read-config-coerce-key config_0) for-syntax?_3 key_0)))))" "(define-values" "(read-hash)" -"(lambda(read-one_3 dispatch-c_1 init-c_13 in_37 config_44)" +"(lambda(read-one_0 dispatch-c_0 init-c_0 in_0 config_0)" "(begin" -"(let-values(((accum-str_3)(accum-string-init! config_44)))" -"(let-values((()(begin(accum-string-add! accum-str_3 dispatch-c_1)(values))))" -"(let-values((()(begin(accum-string-add! accum-str_3 init-c_13)(values))))" -"(let-values(((get-next!_0)" +"(let-values(((accum-str_6)(accum-string-init! config_0)))" +"(let-values((()(begin(accum-string-add! accum-str_6 dispatch-c_0)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_6 init-c_0)(values))))" +"(let-values(((get-next!_7)" "(lambda(expect-c_0 expect-alt-c_0)" "(begin" " 'get-next!" -"(let-values(((c_46)" -"(let-values(((in_39) in_37)((source_23)(read-config-source config_44)))" -"(read-char-or-special in_39 special1.1 source_23))))" +"(let-values(((c_14)" +"(let-values(((in_15) in_0)((source_17)(read-config-source config_0)))" +"(read-char-or-special in_15 special1.1 source_17))))" "(begin" -"(if(let-values(((or-part_6)(eqv? c_46 expect-c_0)))" -"(if or-part_6 or-part_6(eqv? c_46 expect-alt-c_0)))" +"(if(let-values(((or-part_18)(eqv? c_14 expect-c_0)))" +"(if or-part_18 or-part_18(eqv? c_14 expect-alt-c_0)))" "(void)" "(let-values()" -"(let-values(((in1_6) in_37)" -"((config2_5) config_44)" -"((c3_4) c_46)" -" ((temp4_4) \"expected `~a` after `~a`\")" -"((expect-c5_0) expect-c_0)" -"((temp6_3)" -"(let-values(((accum-str7_0) accum-str_3)((config8_1) config_44))" -"(accum-string-get!6.1 0 accum-str7_0 config8_1))))" +"(let-values(((in1_20) in_0)" +"((config2_21) config_0)" +"((c3_22) c_14)" +" ((temp4_23) \"expected `~a` after `~a`\")" +"((expect-c5_24) expect-c_0)" +"((temp6_25)" +"(let-values(((accum-str7_26) accum-str_6)((config8_27) config_0))" +"(accum-string-get!6.1 0 accum-str7_26 config8_27))))" "(reader-error12.1" " unsafe-undefined" -" c3_4" +" c3_22" " #f" " unsafe-undefined" -" in1_6" -" config2_5" -" temp4_4" -"(list expect-c5_0 temp6_3)))))" -"(accum-string-add! accum-str_3 c_46)))))))" -"(let-values((()(begin(get-next!_0 '#\\a '#\\A)(values))))" -"(let-values((()(begin(get-next!_0 '#\\s '#\\S)(values))))" -"(let-values((()(begin(get-next!_0 '#\\h '#\\H)(values))))" -"(let-values(((content_11 opener_4 mode_20)" -"((letrec-values(((loop_112)" -"(lambda(mode_21)" +" in1_20" +" config2_21" +" temp4_23" +"(list expect-c5_24 temp6_25)))))" +"(accum-string-add! accum-str_6 c_14)))))))" +"(let-values((()(begin(get-next!_7 '#\\a '#\\A)(values))))" +"(let-values((()(begin(get-next!_7 '#\\s '#\\S)(values))))" +"(let-values((()(begin(get-next!_7 '#\\h '#\\H)(values))))" +"(let-values(((content_8 opener_9 mode_10)" +"((letrec-values(((loop_28)" +"(lambda(mode_0)" "(begin" " 'loop" -"(let-values(((c_50)" -"(let-values(((in_40) in_37)" -"((source_24)" -"(read-config-source config_44)))" +"(let-values(((c_30)" +"(let-values(((in_32) in_0)" +"((source_34)" +"(read-config-source config_0)))" "(read-char-or-special" -" in_40" +" in_32" " special1.1" -" source_24))))" -"(let-values(((ec_7)(effective-char c_50 config_44)))" -"(let-values(((tmp_50) ec_7))" -"(if(equal? tmp_50 '#\\()" +" source_34))))" +"(let-values(((ec_31)(effective-char c_30 config_0)))" +"(let-values(((tmp_35) ec_31))" +"(if(equal? tmp_35 '#\\()" "(let-values()" -"(let-values(((open-end-line_1" -" open-end-col_1" -" open-end-pos_1)" -"(port-next-location in_37)))" -"(let-values(((read-one-key+value_0)" +"(let-values(((open-end-line_36" +" open-end-col_37" +" open-end-pos_38)" +"(port-next-location in_0)))" +"(let-values(((read-one-key+value_39)" "(make-read-one-key+value" -" read-one_3" -" c_50" +" read-one_0" +" c_30" " '#\\)" -" open-end-pos_1)))" +" open-end-pos_38)))" "(values" -"(let-values(((read-one-key+value9_0)" -" read-one-key+value_0)" -"((c10_1) c_50)" -"((temp11_4) '#\\()" -"((temp12_5) '#\\))" -"((in13_0) in_37)" -"((config14_0) config_44)" -"((config15_1) config_44)" -"((temp16_5) #f))" +"(let-values(((read-one-key+value9_41)" +" read-one-key+value_39)" +"((c10_42) c_30)" +"((temp11_43) '#\\()" +"((temp12_44) '#\\))" +"((in13_45) in_0)" +"((config14_46) config_0)" +"((config15_47) config_0)" +"((temp16_48) #f))" "(read-unwrapped-sequence17.1" -" temp16_5" -" config15_1" +" temp16_48" +" config15_47" " unsafe-undefined" " #f" " unsafe-undefined" -" read-one-key+value9_0" -" c10_1" -" temp11_4" -" temp12_5" -" in13_0" -" config14_0))" -" ec_7" -" mode_21))))" -"(if(equal? tmp_50 '#\\[)" +" read-one-key+value9_41" +" c10_42" +" temp11_43" +" temp12_44" +" in13_45" +" config14_46))" +" ec_31" +" mode_0))))" +"(if(equal? tmp_35 '#\\[)" "(let-values()" "(if(check-parameter" " 1/read-square-bracket-as-paren" -" config_44)" +" config_0)" "(let-values()" -"(let-values(((open-end-line_2" -" open-end-col_2" -" open-end-pos_2)" -"(port-next-location in_37)))" -"(let-values(((read-one-key+value_1)" +"(let-values(((open-end-line_49" +" open-end-col_50" +" open-end-pos_51)" +"(port-next-location in_0)))" +"(let-values(((read-one-key+value_52)" "(make-read-one-key+value" -" read-one_3" -" c_50" +" read-one_0" +" c_30" " '#\\]" -" open-end-pos_2)))" +" open-end-pos_51)))" "(values" -"(let-values(((read-one-key+value17_0)" -" read-one-key+value_1)" -"((c18_2) c_50)" -"((temp19_4) '#\\[)" -"((temp20_3) '#\\])" -"((in21_1) in_37)" -"((config22_1) config_44)" -"((config23_2) config_44)" -"((temp24_7) #f))" +"(let-values(((read-one-key+value17_54)" +" read-one-key+value_52)" +"((c18_55) c_30)" +"((temp19_56) '#\\[)" +"((temp20_57) '#\\])" +"((in21_58) in_0)" +"((config22_59) config_0)" +"((config23_60) config_0)" +"((temp24_61) #f))" "(read-unwrapped-sequence17.1" -" temp24_7" -" config23_2" +" temp24_61" +" config23_60" " unsafe-undefined" " #f" " unsafe-undefined" -" read-one-key+value17_0" -" c18_2" -" temp19_4" -" temp20_3" -" in21_1" -" config22_1))" -" ec_7" -" mode_21))))" +" read-one-key+value17_54" +" c18_55" +" temp19_56" +" temp20_57" +" in21_58" +" config22_59))" +" ec_31" +" mode_0))))" "(let-values()" -"(let-values(((in25_0) in_37)" -"((config26_0) config_44)" -" ((temp27_6) \"illegal use of `~a`\")" -"((c28_1) c_50))" +"(let-values(((in25_62) in_0)" +"((config26_63) config_0)" +" ((temp27_64) \"illegal use of `~a`\")" +"((c28_65) c_30))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in25_0" -" config26_0" -" temp27_6" -"(list c28_1))))))" -"(if(equal? tmp_50 '#\\{)" +" in25_62" +" config26_63" +" temp27_64" +"(list c28_65))))))" +"(if(equal? tmp_35 '#\\{)" "(let-values()" "(if(check-parameter" " 1/read-curly-brace-as-paren" -" config_44)" +" config_0)" "(let-values()" -"(let-values(((open-end-line_3" -" open-end-col_3" -" open-end-pos_3)" -"(port-next-location in_37)))" -"(let-values(((read-one-key+value_2)" +"(let-values(((open-end-line_66" +" open-end-col_67" +" open-end-pos_68)" +"(port-next-location in_0)))" +"(let-values(((read-one-key+value_69)" "(make-read-one-key+value" -" read-one_3" -" c_50" +" read-one_0" +" c_30" " '#\\}" -" open-end-pos_3)))" +" open-end-pos_68)))" "(values" -"(let-values(((read-one-key+value29_0)" -" read-one-key+value_2)" -"((c30_0) c_50)" -"((temp31_4) '#\\{)" -"((temp32_2) '#\\})" -"((in33_2) in_37)" -"((config34_1) config_44)" -"((config35_1) config_44)" -"((temp36_6) #f))" +"(let-values(((read-one-key+value29_71)" +" read-one-key+value_69)" +"((c30_72) c_30)" +"((temp31_73) '#\\{)" +"((temp32_74) '#\\})" +"((in33_75) in_0)" +"((config34_76) config_0)" +"((config35_77) config_0)" +"((temp36_78) #f))" "(read-unwrapped-sequence17.1" -" temp36_6" -" config35_1" +" temp36_78" +" config35_77" " unsafe-undefined" " #f" " unsafe-undefined" -" read-one-key+value29_0" -" c30_0" -" temp31_4" -" temp32_2" -" in33_2" -" config34_1))" -" ec_7" -" mode_21))))" +" read-one-key+value29_71" +" c30_72" +" temp31_73" +" temp32_74" +" in33_75" +" config34_76))" +" ec_31" +" mode_0))))" "(let-values()" -"(let-values(((in37_2) in_37)" -"((config38_1) config_44)" -"((temp39_5)" +"(let-values(((in37_79) in_0)" +"((config38_80) config_0)" +"((temp39_81)" " \"illegal use of `~a`\")" -"((c40_1) c_50))" +"((c40_82) c_30))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in37_2" -" config38_1" -" temp39_5" -"(list c40_1))))))" -"(if(if(equal? tmp_50 '#\\e)" +" in37_79" +" config38_80" +" temp39_81" +"(list c40_82))))))" +"(if(if(equal? tmp_35 '#\\e)" " #t" -"(equal? tmp_50 '#\\E))" +"(equal? tmp_35 '#\\E))" "(let-values()" "(begin" -"(accum-string-add! accum-str_3 c_50)" -"(get-next!_0 '#\\q '#\\Q)" -"(loop_112 'eq)))" -"(if(if(equal? tmp_50 '#\\v)" +"(accum-string-add! accum-str_6 c_30)" +"(get-next!_7 '#\\q '#\\Q)" +"(loop_28 'eq)))" +"(if(if(equal? tmp_35 '#\\v)" " #t" -"(equal? tmp_50 '#\\V))" +"(equal? tmp_35 '#\\V))" "(let-values()" "(begin" -"(accum-string-add! accum-str_3 c_50)" -"(if(eq? mode_21 'eq)" -"(loop_112 'eqv)" -"(let-values(((in41_0) in_37)" -"((config42_0) config_44)" -"((temp43_4)" +"(accum-string-add! accum-str_6 c_30)" +"(if(eq? mode_0 'eq)" +"(loop_28 'eqv)" +"(let-values(((in41_83) in_0)" +"((config42_84) config_0)" +"((temp43_85)" " \"bad syntax `~a`\")" -"((temp44_3)" -"(let-values(((accum-str45_0)" -" accum-str_3)" -"((config46_0)" -" config_44))" +"((temp44_86)" +"(let-values(((accum-str45_87)" +" accum-str_6)" +"((config46_88)" +" config_0))" "(accum-string-get!6.1" " 0" -" accum-str45_0" -" config46_0))))" +" accum-str45_87" +" config46_88))))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in41_0" -" config42_0" -" temp43_4" -"(list temp44_3))))))" +" in41_83" +" config42_84" +" temp43_85" +"(list temp44_86))))))" "(let-values()" "(begin" -"(if(char? c_50)" +"(if(char? c_30)" "(let-values()" -"(accum-string-add! accum-str_3 c_50))" +"(accum-string-add! accum-str_6 c_30))" "(void))" -"(let-values(((in47_1) in_37)" -"((config48_1) config_44)" -"((c49_0) c_50)" -" ((temp50_3) \"bad syntax `~a`\")" -"((temp51_2)" -"(let-values(((accum-str52_0)" -" accum-str_3)" -"((config53_0)" -" config_44))" +"(let-values(((in47_90) in_0)" +"((config48_91) config_0)" +"((c49_92) c_30)" +" ((temp50_93) \"bad syntax `~a`\")" +"((temp51_94)" +"(let-values(((accum-str52_95)" +" accum-str_6)" +"((config53_96)" +" config_0))" "(accum-string-get!6.1" " 0" -" accum-str52_0" -" config53_0))))" +" accum-str52_95" +" config53_96))))" "(reader-error12.1" " unsafe-undefined" -" c49_0" +" c49_92" " #f" " unsafe-undefined" -" in47_1" -" config48_1" -" temp50_3" -"(list temp51_2)))))))))))))))))" -" loop_112)" +" in47_90" +" config48_91" +" temp50_93" +"(list temp51_94)))))))))))))))))" +" loop_28)" " 'equal)))" -"(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_44)) #t #f)))" +"(let-values(((graph?_11)(if(read-config-state-graph(read-config-st config_0)) #t #f)))" "(wrap" -"(let-values(((tmp_51) mode_20))" -"(if(equal? tmp_51 'equal)" +"(let-values(((tmp_97) mode_10))" +"(if(equal? tmp_97 'equal)" "(let-values()" -"(if graph?_0(make-hash-placeholder content_11)(make-immutable-hash content_11)))" -"(if(equal? tmp_51 'eq)" +"(if graph?_11(make-hash-placeholder content_8)(make-immutable-hash content_8)))" +"(if(equal? tmp_97 'eq)" "(let-values()" -"(if graph?_0(make-hasheq-placeholder content_11)(make-immutable-hasheq content_11)))" -"(if(equal? tmp_51 'eqv)" +"(if graph?_11(make-hasheq-placeholder content_8)(make-immutable-hasheq content_8)))" +"(if(equal? tmp_97 'eqv)" "(let-values()" -"(if graph?_0" -"(make-hasheqv-placeholder content_11)" -"(make-immutable-hasheqv content_11)))" +"(if graph?_11" +"(make-hasheqv-placeholder content_8)" +"(make-immutable-hasheqv content_8)))" "(let-values()(void))))))" -" in_37" -" config_44" -" opener_4)))))))))))))" +" in_0" +" config_0" +" opener_9)))))))))))))" "(define-values" "(make-read-one-key+value)" -"(lambda(read-one_8 overall-opener-c_0 overall-closer-ec_0 prefix-end-pos_0)" +"(lambda(read-one_0 overall-opener-c_0 overall-closer-ec_0 prefix-end-pos_0)" "(begin" -"(lambda(init-c_14 in_41 config_46)" -"(let-values(((c_87)(read-char/skip-whitespace-and-comments init-c_14 read-one_8 in_41 config_46)))" -"(let-values(((open-line_0 open-col_0 open-pos_0)(port-next-location* in_41 c_87)))" -"(let-values(((ec_8)(effective-char c_87 config_46)))" -"(let-values(((elem-config_1)(next-readtable config_46)))" -"(let-values(((closer_4)" -"(let-values(((tmp_52) ec_8))" -"(if(equal? tmp_52 '#\\()" +"(lambda(init-c_0 in_0 config_0)" +"(let-values(((c_105)(read-char/skip-whitespace-and-comments init-c_0 read-one_0 in_0 config_0)))" +"(let-values(((open-line_106 open-col_107 open-pos_108)(port-next-location* in_0 c_105)))" +"(let-values(((ec_109)(effective-char c_105 config_0)))" +"(let-values(((elem-config_110)(next-readtable config_0)))" +"(let-values(((closer_111)" +"(let-values(((tmp_112) ec_109))" +"(if(equal? tmp_112 '#\\()" "(let-values() '#\\))" -"(if(equal? tmp_52 '#\\[)" +"(if(equal? tmp_112 '#\\[)" "(let-values()" -"(if(check-parameter 1/read-square-bracket-as-paren config_46) '#\\] #f))" -"(if(equal? tmp_52 '#\\{)" +"(if(check-parameter 1/read-square-bracket-as-paren config_0) '#\\] #f))" +"(if(equal? tmp_112 '#\\{)" "(let-values()" -"(if(check-parameter 1/read-curly-brace-as-paren config_46) '#\\} #f))" +"(if(check-parameter 1/read-curly-brace-as-paren config_0) '#\\} #f))" "(let-values() #f)))))))" -"(if(not closer_4)" +"(if(not closer_111)" "(let-values()" -"(if(eof-object? c_87)" +"(if(eof-object? c_105)" "(let-values()" -"(let-values(((in54_0) in_41)" -"((config55_0) config_46)" -"((c56_0) c_87)" -"((prefix-end-pos57_0) prefix-end-pos_0)" -" ((temp58_3) \"expected ~a to close `~a`\")" -"((temp59_5)(closer-name overall-closer-ec_0 config_46))" -"((overall-opener-c60_0) overall-opener-c_0))" +"(let-values(((in54_114) in_0)" +"((config55_115) config_0)" +"((c56_116) c_105)" +"((prefix-end-pos57_117) prefix-end-pos_0)" +" ((temp58_118) \"expected ~a to close `~a`\")" +"((temp59_119)(closer-name overall-closer-ec_0 config_0))" +"((overall-opener-c60_120) overall-opener-c_0))" "(reader-error12.1" " unsafe-undefined" -" c56_0" -" prefix-end-pos57_0" +" c56_116" +" prefix-end-pos57_117" " unsafe-undefined" -" in54_0" -" config55_0" -" temp58_3" -"(list temp59_5 overall-opener-c60_0))))" -"(if(char-closer? ec_8 config_46)" +" in54_114" +" config55_115" +" temp58_118" +"(list temp59_119 overall-opener-c60_120))))" +"(if(char-closer? ec_109 config_0)" "(let-values()" -"(let-values(((in61_0) in_41)" -"((temp62_3)(reading-at config_46 open-line_0 open-col_0 open-pos_0))" -" ((temp63_5) \"~a\")" -"((temp64_4)(indentation-unexpected-closer-message ec_8 c_87 config_46)))" +"(let-values(((in61_121) in_0)" +"((temp62_122)(reading-at config_0 open-line_106 open-col_107 open-pos_108))" +" ((temp63_123) \"~a\")" +"((temp64_124)(indentation-unexpected-closer-message ec_109 c_105 config_0)))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in61_0" -" temp62_3" -" temp63_5" -"(list temp64_4))))" +" in61_121" +" temp62_122" +" temp63_123" +"(list temp64_124))))" "(let-values()" -"(let-values(((v_236)(read-one_8 c_87 in_41(keep-comment elem-config_1))))" -"(if(1/special-comment? v_236)" +"(let-values(((v_125)(read-one_0 c_105 in_0(keep-comment elem-config_110))))" +"(if(1/special-comment? v_125)" "(let-values()" "((make-read-one-key+value" -" read-one_8" +" read-one_0" " overall-opener-c_0" " overall-closer-ec_0" " prefix-end-pos_0)" " #f" -" in_41" -" config_46))" +" in_0" +" config_0))" "(let-values()" -"(let-values(((in65_0) in_41)" -"((temp66_3)(reading-at config_46 open-line_0 open-col_0 open-pos_0))" -" ((temp67_3) \"expected ~a to start a hash pair\")" -"((temp68_3)(all-openers-str config_46)))" +"(let-values(((in65_126) in_0)" +"((temp66_127)" +"(reading-at config_0 open-line_106 open-col_107 open-pos_108))" +" ((temp67_128) \"expected ~a to start a hash pair\")" +"((temp68_129)(all-openers-str config_0)))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in65_0" -" temp66_3" -" temp67_3" -"(list temp68_3))))))))))" +" in65_126" +" temp66_127" +" temp67_128" +"(list temp68_129))))))))))" "(let-values()" -"(let-values(((k_42)(read-one_8 #f in_41(disable-wrapping elem-config_1))))" -"(let-values(((dot-c_0)(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_46)))" -"(let-values(((dot-line_1 dot-col_1 dot-pos_4)(port-next-location* in_41 dot-c_0)))" -"(let-values(((dot-ec_0)(effective-char dot-c_0 config_46)))" +"(let-values(((k_130)(read-one_0 #f in_0(disable-wrapping elem-config_110))))" +"(let-values(((dot-c_131)(read-char/skip-whitespace-and-comments #f read-one_0 in_0 config_0)))" +"(let-values(((dot-line_132 dot-col_133 dot-pos_134)(port-next-location* in_0 dot-c_131)))" +"(let-values(((dot-ec_135)(effective-char dot-c_131 config_0)))" "(let-values((()" "(begin" -"(if(if(eqv? dot-ec_0 '#\\.)" +"(if(if(eqv? dot-ec_135 '#\\.)" "(char-delimiter?" -"(let-values(((in_42) in_41)" -"((skip-count_9) 0)" -"((source_25)(read-config-source config_46)))" -"(let-values(((c_88)" +"(let-values(((in_142) in_0)" +"((skip-count_144) 0)" +"((source_145)(read-config-source config_0)))" +"(let-values(((c_146)" "(peek-char-or-special" -" in_42" -" skip-count_9" +" in_142" +" skip-count_144" " 'special" -" source_25)))" -"(if(eq? c_88 'special)(special1.1 'special) c_88)))" -" config_46)" +" source_145)))" +"(if(eq? c_146 'special)(special1.1 'special) c_146)))" +" config_0)" " #f)" "(void)" "(let-values()" -"(let-values(((in69_1) in_41)" -"((temp70_3)" -"(reading-at config_46 dot-line_1 dot-col_1 dot-pos_4))" -"((dot-c71_0) dot-c_0)" -" ((temp72_2) \"expected ~a and value for hash\")" -"((temp73_2)(dot-name config_46)))" +"(let-values(((in69_148) in_0)" +"((temp70_149)" +"(reading-at" +" config_0" +" dot-line_132" +" dot-col_133" +" dot-pos_134))" +"((dot-c71_150) dot-c_131)" +" ((temp72_151) \"expected ~a and value for hash\")" +"((temp73_152)(dot-name config_0)))" "(reader-error12.1" " unsafe-undefined" -" dot-c71_0" +" dot-c71_150" " #f" " unsafe-undefined" -" in69_1" -" temp70_3" -" temp72_2" -"(list temp73_2)))))" +" in69_148" +" temp70_149" +" temp72_151" +"(list temp73_152)))))" "(values))))" -"(let-values(((v_237)(read-one_8 #f in_41 elem-config_1)))" -"(let-values(((closer-c_0)" -"(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_46)))" -"(let-values(((closer-line_0 closer-col_0 closer-pos_0)" -"(port-next-location* in_41 closer-c_0)))" -"(let-values(((closer-ec_0)(effective-char closer-c_0 config_46)))" +"(let-values(((v_136)(read-one_0 #f in_0 elem-config_110)))" +"(let-values(((closer-c_137)" +"(read-char/skip-whitespace-and-comments #f read-one_0 in_0 config_0)))" +"(let-values(((closer-line_138 closer-col_139 closer-pos_140)" +"(port-next-location* in_0 closer-c_137)))" +"(let-values(((closer-ec_141)(effective-char closer-c_137 config_0)))" "(begin" -"(if(eqv? closer-ec_0 closer_4)" +"(if(eqv? closer-ec_141 closer_111)" "(void)" "(let-values()" -"(let-values(((in74_0) in_41)" -"((temp75_2)" +"(let-values(((in74_154) in_0)" +"((temp75_155)" "(reading-at" -" config_46" -" closer-line_0" -" closer-col_0" -" closer-pos_0))" -"((closer-c76_0) closer-c_0)" -" ((temp77_1) \"expected ~a after value within a hash\")" -"((temp78_3)(closer-name closer_4 config_46)))" +" config_0" +" closer-line_138" +" closer-col_139" +" closer-pos_140))" +"((closer-c76_156) closer-c_137)" +" ((temp77_157) \"expected ~a after value within a hash\")" +"((temp78_158)(closer-name closer_111 config_0)))" "(reader-error12.1" " unsafe-undefined" -" closer-c76_0" +" closer-c76_156" " #f" " unsafe-undefined" -" in74_0" -" temp75_2" -" temp77_1" -"(list temp78_3)))))" -"(cons(coerce-key k_42 elem-config_1) v_237))))))))))))))))))))))" +" in74_154" +" temp75_155" +" temp77_157" +"(list temp78_158)))))" +"(cons(coerce-key k_130 elem-config_110) v_136))))))))))))))))))))))" "(define-values" "(read-string5.1)" -"(lambda(mode1_1 in3_0 config4_0)" +"(lambda(mode1_0 in3_0 config4_0)" "(begin" " 'read-string5" -"(let-values(((in_37) in3_0))" -"(let-values(((config_44) config4_0))" -"(let-values(((mode_11) mode1_1))" +"(let-values(((in_4) in3_0))" +"(let-values(((config_5) config4_0))" +"(let-values(((mode_6) mode1_0))" "(let-values()" -"(let-values(((source_26)(read-config-source config_44)))" -"(let-values(((open-end-line_4 open-end-col_4 open-end-pos_4)(port-next-location in_37)))" -"(let-values(((accum-str_4)(accum-string-init! config_44)))" -"(let-values(((bad-end_0)" -"(lambda(c_46)" +"(let-values(((source_7)(read-config-source config_5)))" +"(let-values(((open-end-line_8 open-end-col_9 open-end-pos_10)(port-next-location in_4)))" +"(let-values(((accum-str_11)(accum-string-init! config_5)))" +"(let-values(((bad-end_12)" +"(lambda(c_0)" "(begin" " 'bad-end" -"(if(eof-object? c_46)" +"(if(eof-object? c_0)" "(let-values()" -"(let-values(((in8_0) in_37)" -"((config9_1) config_44)" -"((c10_2) c_46)" -"((open-end-pos11_0) open-end-pos_4)" -" ((temp12_6) \"expected a closing `\\\"`\"))" +"(let-values(((in8_16) in_4)" +"((config9_17) config_5)" +"((c10_18) c_0)" +"((open-end-pos11_19) open-end-pos_10)" +" ((temp12_20) \"expected a closing `\\\"`\"))" "(reader-error12.1" " unsafe-undefined" -" c10_2" -" open-end-pos11_0" +" c10_18" +" open-end-pos11_19" " unsafe-undefined" -" in8_0" -" config9_1" -" temp12_6" +" in8_16" +" config9_17" +" temp12_20" "(list))))" "(let-values()" -"(let-values(((in13_1) in_37)" -"((config14_1) config_44)" -"((c15_1) c_46)" -" ((temp16_6) \"found non-character while reading a ~a\")" -"((mode17_0) mode_11))" +"(let-values(((in13_22) in_4)" +"((config14_23) config_5)" +"((c15_24) c_0)" +" ((temp16_25) \"found non-character while reading a ~a\")" +"((mode17_26) mode_6))" "(reader-error12.1" " unsafe-undefined" -" c15_1" +" c15_24" " #f" " unsafe-undefined" -" in13_1" -" config14_1" -" temp16_6" -"(list mode17_0)))))))))" +" in13_22" +" config14_23" +" temp16_25" +"(list mode17_26)))))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_113)" +"((letrec-values(((loop_27)" "(lambda()" "(begin" " 'loop" -"(let-values(((c_89)" -"(let-values(((in_43) in_37)" -"((source_27) source_26))" +"(let-values(((c_28)" +"(let-values(((in_29) in_4)" +"((source_31) source_7))" "(read-char-or-special" -" in_43" +" in_29" " special1.1" -" source_27))))" -"(if(not(char? c_89))" -"(let-values()(bad-end_0 c_89))" -"(if(char=? '#\\\\ c_89)" +" source_31))))" +"(if(not(char? c_28))" +"(let-values()(bad-end_12 c_28))" +"(if(char=? '#\\\\ c_28)" "(let-values()" -"(let-values(((escaping-c_0) c_89))" -"(let-values(((escaped-c_0)" -"(let-values(((in_24) in_37)" -"((source_28)" -" source_26))" +"(let-values(((escaping-c_32) c_28))" +"(let-values(((escaped-c_33)" +"(let-values(((in_35) in_4)" +"((source_37) source_7))" "(read-char-or-special" -" in_24" +" in_35" " special1.1" -" source_28))))" +" source_37))))" "(let-values((()" "(begin" -"(if(not(char? escaped-c_0))" +"(if(not(char? escaped-c_33))" "(let-values()" -"(bad-end_0 escaped-c_0))" +"(bad-end_12 escaped-c_33))" "(void))" "(values))))" -"(let-values(((unknown-error_0)" +"(let-values(((unknown-error_34)" "(lambda()" "(begin" " 'unknown-error" -"(let-values(((in18_1)" -" in_37)" -"((config19_2)" -" config_44)" -"((temp20_4)" +"(let-values(((in18_38)" +" in_4)" +"((config19_39)" +" config_5)" +"((temp20_40)" " \"unknown escape sequence `~a~a` in ~a\")" -"((escaping-c21_0)" -" escaping-c_0)" -"((escaped-c22_0)" -" escaped-c_0)" -"((mode23_0)" -" mode_11))" +"((escaping-c21_41)" +" escaping-c_32)" +"((escaped-c22_42)" +" escaped-c_33)" +"((mode23_43)" +" mode_6))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in18_1" -" config19_2" -" temp20_4" +" in18_38" +" config19_39" +" temp20_40" "(list" -" escaping-c21_0" -" escaped-c22_0" -" mode23_0)))))))" +" escaping-c21_41" +" escaped-c22_42" +" mode23_43)))))))" "(begin" -"(let-values(((tmp_53) escaped-c_0))" -"(let-values(((index_3)" -"(if(char? tmp_53)" -"(let-values(((codepoint_1)" +"(let-values(((tmp_44) escaped-c_33))" +"(let-values(((index_45)" +"(if(char? tmp_44)" +"(let-values(((codepoint_46)" "(char->integer" -" tmp_53)))" +" tmp_44)))" "(if(if(unsafe-fx>=" -" codepoint_1" +" codepoint_46" " 10)" "(unsafe-fx<" -" codepoint_1" +" codepoint_46" " 121)" " #f)" -"(let-values(((tbl_1)" +"(let-values(((tbl_47)" " '#(10" " 0" " 0" @@ -53164,680 +53417,684 @@ static const char *startup_source = " 0" " 13)))" "(unsafe-vector*-ref" -" tbl_1" +" tbl_47" "(unsafe-fx-" -" codepoint_1" +" codepoint_46" " 10)))" " 0))" " 0)))" -"(if(unsafe-fx< index_3 7)" -"(if(unsafe-fx< index_3 3)" -"(if(unsafe-fx< index_3 1)" +"(if(unsafe-fx< index_45 7)" +"(if(unsafe-fx< index_45 3)" +"(if(unsafe-fx< index_45 1)" "(let-values()" -"(unknown-error_0))" -"(if(unsafe-fx< index_3 2)" +"(unknown-error_34))" +"(if(unsafe-fx< index_45 2)" "(let-values()" "(accum-string-add!" -" accum-str_4" -" escaped-c_0))" +" accum-str_11" +" escaped-c_33))" "(let-values()" "(accum-string-add!" -" accum-str_4" +" accum-str_11" " '#\\u0007))))" -"(if(unsafe-fx< index_3 4)" +"(if(unsafe-fx< index_45 4)" "(let-values()" "(accum-string-add!" -" accum-str_4" +" accum-str_11" " '#\\backspace))" -"(if(unsafe-fx< index_3 5)" +"(if(unsafe-fx< index_45 5)" "(let-values()" "(accum-string-add!" -" accum-str_4" +" accum-str_11" " '#\\tab))" -"(if(unsafe-fx< index_3 6)" +"(if(unsafe-fx< index_45 6)" "(let-values()" "(accum-string-add!" -" accum-str_4" +" accum-str_11" " '#\\newline))" "(let-values()" "(accum-string-add!" -" accum-str_4" +" accum-str_11" " '#\\vtab))))))" -"(if(unsafe-fx< index_3 11)" -"(if(unsafe-fx< index_3 8)" +"(if(unsafe-fx< index_45 11)" +"(if(unsafe-fx< index_45 8)" "(let-values()" "(accum-string-add!" -" accum-str_4" +" accum-str_11" " '#\\page))" -"(if(unsafe-fx< index_3 9)" +"(if(unsafe-fx< index_45 9)" "(let-values()" "(accum-string-add!" -" accum-str_4" +" accum-str_11" " '#\\return))" -"(if(unsafe-fx< index_3 10)" +"(if(unsafe-fx< index_45 10)" "(let-values()" "(accum-string-add!" -" accum-str_4" +" accum-str_11" " '#\\u001B))" "(let-values()(void)))))" -"(if(unsafe-fx< index_3 13)" -"(if(unsafe-fx< index_3 12)" +"(if(unsafe-fx< index_45 13)" +"(if(unsafe-fx< index_45 12)" "(let-values()" -"(let-values(((maybe-newline-c_0)" -"(let-values(((in_28)" -" in_37)" -"((skip-count_10)" +"(let-values(((maybe-newline-c_48)" +"(let-values(((in_49)" +" in_4)" +"((skip-count_51)" " 0)" -"((source_29)" -" source_26))" -"(let-values(((c_90)" +"((source_52)" +" source_7))" +"(let-values(((c_53)" "(peek-char-or-special" -" in_28" -" skip-count_10" +" in_49" +" skip-count_51" " 'special" -" source_29)))" +" source_52)))" "(if(eq?" -" c_90" +" c_53" " 'special)" "(special1.1" " 'special)" -" c_90)))))" +" c_53)))))" "(begin" "(if(eqv?" -" maybe-newline-c_0" +" maybe-newline-c_48" " '#\\newline)" "(let-values()" "(consume-char" -" in_37" -" maybe-newline-c_0))" +" in_4" +" maybe-newline-c_48))" "(void))" "(void))))" "(let-values()" -"(let-values(((pos_98)" +"(let-values(((pos_54)" "(accum-string-count" -" accum-str_4)))" +" accum-str_11)))" "(let-values((()" "(begin" "(accum-string-add!" -" accum-str_4" -" escaped-c_0)" +" accum-str_11" +" escaped-c_33)" "(values))))" -"(let-values(((init-v_3)" +"(let-values(((init-v_55)" "(digit->number" -" escaped-c_0)))" -"(let-values(((v_193)" -"(let-values(((in24_1)" -" in_37)" -"((config25_1)" -" config_44)" -"((accum-str26_0)" -" accum-str_4)" -"((temp27_7)" +" escaped-c_33)))" +"(let-values(((v_56)" +"(let-values(((in24_58)" +" in_4)" +"((config25_59)" +" config_5)" +"((accum-str26_60)" +" accum-str_11)" +"((temp27_61)" " 8)" -"((temp28_3)" +"((temp28_62)" " 2)" -"((init-v29_0)" -" init-v_3)" -"((init-v30_0)" -" init-v_3))" +"((init-v29_63)" +" init-v_55)" +"((init-v30_64)" +" init-v_55))" "(read-digits12.1" -" temp27_7" -" init-v29_0" -" temp28_3" -" init-v30_0" -" in24_1" -" config25_1" -" accum-str26_0))))" +" temp27_61" +" init-v29_63" +" temp28_62" +" init-v30_64" +" in24_58" +" config25_59" +" accum-str26_60))))" "(begin" -"(if(<= v_193 255)" +"(if(<= v_56 255)" "(void)" "(let-values()" -"(let-values(((in31_2)" -" in_37)" -"((config32_1)" -" config_44)" -"((temp33_3)" +"(let-values(((in31_65)" +" in_4)" +"((config32_66)" +" config_5)" +"((temp33_67)" " \"escape sequence `~a~a` is out of range in ~a\")" -"((escaping-c34_0)" -" escaping-c_0)" -"((temp35_4)" -"(let-values(((accum-str37_0)" -" accum-str_4)" -"((config38_2)" -" config_44)" -"((pos39_0)" -" pos_98))" +"((escaping-c34_68)" +" escaping-c_32)" +"((temp35_69)" +"(let-values(((accum-str37_72)" +" accum-str_11)" +"((config38_73)" +" config_5)" +"((pos39_74)" +" pos_54))" "(accum-string-get!6.1" -" pos39_0" -" accum-str37_0" -" config38_2)))" -"((mode36_0)" -" mode_11))" +" pos39_74" +" accum-str37_72" +" config38_73)))" +"((mode36_70)" +" mode_6))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in31_2" -" config32_1" -" temp33_3" +" in31_65" +" config32_66" +" temp33_67" "(list" -" escaping-c34_0" -" temp35_4" -" mode36_0)))))" +" escaping-c34_68" +" temp35_69" +" mode36_70)))))" "(set-accum-string-count!" -" accum-str_4" -" pos_98)" +" accum-str_11" +" pos_54)" "(accum-string-add!" -" accum-str_4" +" accum-str_11" "(integer->char" -" v_193)))))))))" -"(if(unsafe-fx< index_3 14)" +" v_56)))))))))" +"(if(unsafe-fx< index_45 14)" "(let-values()" -"(let-values(((pos_13)" +"(let-values(((pos_75)" "(accum-string-count" -" accum-str_4)))" -"(let-values(((v_238)" -"(let-values(((in40_1)" -" in_37)" -"((config41_1)" -" config_44)" -"((accum-str42_0)" -" accum-str_4)" -"((temp43_5)" +" accum-str_11)))" +"(let-values(((v_76)" +"(let-values(((in40_78)" +" in_4)" +"((config41_79)" +" config_5)" +"((accum-str42_80)" +" accum-str_11)" +"((temp43_81)" " 16)" -"((temp44_4)" +"((temp44_82)" " 2))" "(read-digits12.1" -" temp43_5" +" temp43_81" " 0" -" temp44_4" +" temp44_82" " #f" -" in40_1" -" config41_1" -" accum-str42_0))))" +" in40_78" +" config41_79" +" accum-str42_80))))" "(begin" -"(if(integer? v_238)" +"(if(integer? v_76)" "(void)" "(let-values()" "(no-hex-digits" -" in_37" -" config_44" -" v_238" -" escaping-c_0" -" escaped-c_0)))" +" in_4" +" config_5" +" v_76" +" escaping-c_32" +" escaped-c_33)))" "(set-accum-string-count!" -" accum-str_4" -" pos_13)" +" accum-str_11" +" pos_75)" "(accum-string-add!" -" accum-str_4" +" accum-str_11" "(integer->char" -" v_238))))))" -"(if(unsafe-fx< index_3 15)" +" v_76))))))" +"(if(unsafe-fx< index_45 15)" "(let-values()" "(let-values((()" "(begin" "(if(eq?" -" mode_11" +" mode_6" " 'string)" "(void)" "(let-values()" -"(unknown-error_0)))" +"(unknown-error_34)))" "(values))))" -"(let-values(((pos_119)" +"(let-values(((pos_83)" "(accum-string-count" -" accum-str_4)))" -"(let-values(((v_239)" -"(let-values(((in45_0)" -" in_37)" -"((config46_1)" -" config_44)" -"((accum-str47_0)" -" accum-str_4)" -"((temp48_1)" +" accum-str_11)))" +"(let-values(((v_84)" +"(let-values(((in45_86)" +" in_4)" +"((config46_87)" +" config_5)" +"((accum-str47_88)" +" accum-str_11)" +"((temp48_89)" " 16)" -"((temp49_2)" +"((temp49_90)" " 4))" "(read-digits12.1" -" temp48_1" +" temp48_89" " 0" -" temp49_2" +" temp49_90" " #f" -" in45_0" -" config46_1" -" accum-str47_0))))" +" in45_86" +" config46_87" +" accum-str47_88))))" "(begin" "(if(integer?" -" v_239)" +" v_84)" "(void)" "(let-values()" "(no-hex-digits" -" in_37" -" config_44" -" v_239" -" escaping-c_0" -" escaped-c_0)))" -"(if(let-values(((or-part_63)" +" in_4" +" config_5" +" v_84" +" escaping-c_32" +" escaped-c_33)))" +"(if(let-values(((or-part_91)" "(<" -" v_239" +" v_84" " 55296)))" -"(if or-part_63" -" or-part_63" +"(if or-part_91" +" or-part_91" "(>" -" v_239" +" v_84" " 57343)))" "(let-values()" "(begin" "(set-accum-string-count!" -" accum-str_4" -" pos_119)" +" accum-str_11" +" pos_83)" "(accum-string-add!" -" accum-str_4" +" accum-str_11" "(integer->char" -" v_239))))" +" v_84))))" "(let-values()" -"(let-values(((next!_0)" +"(let-values(((next!_92)" "(lambda()" "(begin" " 'next!" -"(let-values(((next-c_1)" -"(let-values(((in_44)" -" in_37)" -"((source_30)" -" source_26))" +"(let-values(((next-c_94)" +"(let-values(((in_95)" +" in_4)" +"((source_97)" +" source_7))" "(read-char-or-special" -" in_44" +" in_95" " special1.1" -" source_30))))" +" source_97))))" "(begin" "(if(char?" -" next-c_1)" +" next-c_94)" "(let-values()" "(accum-string-add!" -" accum-str_4" -" next-c_1))" +" accum-str_11" +" next-c_94))" "(void))" -" next-c_1))))))" -"(let-values(((v2_8)" -"(let-values(((next-c_2)" -"(next!_0)))" +" next-c_94))))))" +"(let-values(((v2_93)" +"(let-values(((next-c_98)" +"(next!_92)))" "(if(char=?" -" next-c_2" +" next-c_98" " '#\\\\)" "(let-values()" -"(let-values(((next-c_3)" -"(next!_0)))" +"(let-values(((next-c_99)" +"(next!_92)))" "(if(char=?" -" next-c_3" +" next-c_99" " '#\\u)" "(let-values()" -"(let-values(((v2_9)" -"(let-values(((in50_1)" -" in_37)" -"((config51_1)" -" config_44)" -"((accum-str52_1)" -" accum-str_4)" -"((temp53_3)" +"(let-values(((v2_100)" +"(let-values(((in50_102)" +" in_4)" +"((config51_103)" +" config_5)" +"((accum-str52_104)" +" accum-str_11)" +"((temp53_105)" " 16)" -"((temp54_2)" +"((temp54_106)" " 4))" "(read-digits12.1" -" temp53_3" +" temp53_105" " 0" -" temp54_2" +" temp54_106" " #f" -" in50_1" -" config51_1" -" accum-str52_1))))" +" in50_102" +" config51_103" +" accum-str52_104))))" "(if(integer?" -" v2_9)" +" v2_100)" "(let-values()" "(if(>=" -" v2_9" +" v2_100" " 56320)" "(if(<=" -" v2_9" +" v2_100" " 57343)" -" v2_9" +" v2_100" " #f)" " #f))" "(let-values()" -" v2_9))))" +" v2_100))))" "(let-values()" -" next-c_3))))" +" next-c_99))))" "(let-values()" -" next-c_2)))))" +" next-c_98)))))" "(if(integer?" -" v2_8)" +" v2_93)" "(let-values()" -"(let-values(((combined-v_0)" +"(let-values(((combined-v_107)" "(+" "(arithmetic-shift" "(-" -" v_239" +" v_84" " 55296)" " 10)" "(-" -" v2_8" +" v2_93" " 56320)" " 65536)))" "(if(>" -" combined-v_0" +" combined-v_107" " 1114111)" "(let-values()" -"(let-values(((in55_2)" -" in_37)" -"((config56_1)" -" config_44)" -"((temp57_1)" +"(let-values(((in55_108)" +" in_4)" +"((config56_109)" +" config_5)" +"((temp57_110)" " \"escape sequence `~au~a` is out of range in string\")" -"((escaping-c58_0)" -" escaping-c_0)" -"((temp59_6)" -"(let-values(((accum-str60_0)" -" accum-str_4)" -"((config61_0)" -" config_44)" -"((pos62_0)" -" pos_119))" +"((escaping-c58_111)" +" escaping-c_32)" +"((temp59_112)" +"(let-values(((accum-str60_114)" +" accum-str_11)" +"((config61_115)" +" config_5)" +"((pos62_116)" +" pos_83))" "(accum-string-get!6.1" -" pos62_0" -" accum-str60_0" -" config61_0))))" +" pos62_116" +" accum-str60_114" +" config61_115))))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in55_2" -" config56_1" -" temp57_1" +" in55_108" +" config56_109" +" temp57_110" "(list" -" escaping-c58_0" -" temp59_6))))" +" escaping-c58_111" +" temp59_112))))" "(let-values()" "(begin" "(set-accum-string-count!" -" accum-str_4" -" pos_119)" +" accum-str_11" +" pos_83)" "(accum-string-add!" -" accum-str_4" +" accum-str_11" "(integer->char" -" combined-v_0)))))))" +" combined-v_107)))))))" "(let-values()" -"(let-values(((in63_0)" -" in_37)" -"((config64_0)" -" config_44)" -"((v265_0)" -" v2_8)" -"((temp66_4)" +"(let-values(((in63_118)" +" in_4)" +"((config64_119)" +" config_5)" +"((v265_120)" +" v2_93)" +"((temp66_121)" " \"bad or incomplete surrogate-style encoding at `~au~a`\")" -"((escaping-c67_0)" -" escaping-c_0)" -"((temp68_4)" -"(let-values(((accum-str69_0)" -" accum-str_4)" -"((config70_1)" -" config_44)" -"((pos71_0)" -" pos_119))" +"((escaping-c67_122)" +" escaping-c_32)" +"((temp68_123)" +"(let-values(((accum-str69_125)" +" accum-str_11)" +"((config70_126)" +" config_5)" +"((pos71_127)" +" pos_83))" "(accum-string-get!6.1" -" pos71_0" -" accum-str69_0" -" config70_1))))" +" pos71_127" +" accum-str69_125" +" config70_126))))" "(reader-error12.1" " unsafe-undefined" -" v265_0" +" v265_120" " #f" " unsafe-undefined" -" in63_0" -" config64_0" -" temp66_4" +" in63_118" +" config64_119" +" temp66_121" "(list" -" escaping-c67_0" -" temp68_4))))))))))))))" +" escaping-c67_122" +" temp68_123))))))))))))))" "(let-values()" "(let-values((()" "(begin" "(if(eq?" -" mode_11" +" mode_6" " 'string)" "(void)" "(let-values()" -"(unknown-error_0)))" +"(unknown-error_34)))" "(values))))" -"(let-values(((pos_20)" +"(let-values(((pos_128)" "(accum-string-count" -" accum-str_4)))" -"(let-values(((v_240)" -"(let-values(((in72_0)" -" in_37)" -"((config73_0)" -" config_44)" -"((accum-str74_0)" -" accum-str_4)" -"((temp75_3)" +" accum-str_11)))" +"(let-values(((v_129)" +"(let-values(((in72_131)" +" in_4)" +"((config73_132)" +" config_5)" +"((accum-str74_133)" +" accum-str_11)" +"((temp75_134)" " 16)" -"((temp76_1)" +"((temp76_135)" " 8))" "(read-digits12.1" -" temp75_3" +" temp75_134" " 0" -" temp76_1" +" temp76_135" " #f" -" in72_0" -" config73_0" -" accum-str74_0))))" +" in72_131" +" config73_132" +" accum-str74_133))))" "(begin" "(if(integer?" -" v_240)" +" v_129)" "(void)" "(let-values()" "(no-hex-digits" -" in_37" -" config_44" -" v_240" -" escaping-c_0" -" escaped-c_0)))" -"(if(if(let-values(((or-part_55)" +" in_4" +" config_5" +" v_129" +" escaping-c_32" +" escaped-c_33)))" +"(if(if(let-values(((or-part_136)" "(<" -" v_240" +" v_129" " 55296)))" -"(if or-part_55" -" or-part_55" +"(if or-part_136" +" or-part_136" "(>" -" v_240" +" v_129" " 57343)))" "(<=" -" v_240" +" v_129" " 1114111)" " #f)" "(let-values()" "(begin" "(set-accum-string-count!" -" accum-str_4" -" pos_20)" +" accum-str_11" +" pos_128)" "(accum-string-add!" -" accum-str_4" +" accum-str_11" "(integer->char" -" v_240))))" +" v_129))))" "(let-values()" -"(let-values(((in77_1)" -" in_37)" -"((config78_1)" -" config_44)" -"((temp79_1)" +"(let-values(((in77_137)" +" in_4)" +"((config78_138)" +" config_5)" +"((temp79_139)" " \"escape sequence `~aU~a` is out of range in string\")" -"((escaping-c80_0)" -" escaping-c_0)" -"((temp81_3)" -"(let-values(((accum-str82_0)" -" accum-str_4)" -"((config83_0)" -" config_44)" -"((pos84_0)" -" pos_20))" +"((escaping-c80_140)" +" escaping-c_32)" +"((temp81_141)" +"(let-values(((accum-str82_143)" +" accum-str_11)" +"((config83_144)" +" config_5)" +"((pos84_145)" +" pos_128))" "(accum-string-get!6.1" -" pos84_0" -" accum-str82_0" -" config83_0))))" +" pos84_145" +" accum-str82_143" +" config83_144))))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in77_1" -" config78_1" -" temp79_1" +" in77_137" +" config78_138" +" temp79_139" "(list" -" escaping-c80_0" -" temp81_3)))))))))))))))))" -"(loop_113)))))))" -" (if (char=? '#\\\" c_89)" +" escaping-c80_140" +" temp81_141)))))))))))))))))" +"(loop_27)))))))" +" (if (char=? '#\\\" c_28)" "(let-values() null)" "(let-values()" "(begin" -"(if(eq? mode_11 '|byte string|)" +"(if(eq? mode_6 '|byte string|)" "(let-values()" -"(if(byte?(char->integer c_89))" +"(if(byte?(char->integer c_28))" "(void)" "(let-values()" -"(let-values(((in85_0) in_37)" -"((config86_0) config_44)" -"((temp87_1)" +"(let-values(((in85_146) in_4)" +"((config86_147) config_5)" +"((temp87_148)" " \"character `~a` is out of range in byte string\")" -"((c88_0) c_89))" +"((c88_149) c_28))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in85_0" -" config86_0" -" temp87_1" -"(list c88_0))))))" +" in85_146" +" config86_147" +" temp87_148" +"(list c88_149))))))" "(void))" -"(accum-string-add! accum-str_4 c_89)" -"(loop_113)))))))))))" -" loop_113))" +"(accum-string-add! accum-str_11 c_28)" +"(loop_27)))))))))))" +" loop_27))" "(values))))" -"(let-values(((str_30)" -"(if(eq? mode_11 '|byte string|)" -"(let-values(((accum-str89_0) accum-str_4)((config90_0) config_44))" -"(accum-string-get-bytes!13.1 0 accum-str89_0 config90_0))" -"(let-values(((accum-str91_0) accum-str_4)((config92_0) config_44))" -"(accum-string-get!6.1 0 accum-str91_0 config92_0)))))" -"(wrap str_30 in_37 config_44 str_30))))))))))))))" +"(let-values(((str_13)" +"(if(eq? mode_6 '|byte string|)" +"(let-values(((accum-str89_150) accum-str_11)((config90_151) config_5))" +"(accum-string-get-bytes!13.1 0 accum-str89_150 config90_151))" +"(let-values(((accum-str91_152) accum-str_11)((config92_153) config_5))" +"(accum-string-get!6.1 0 accum-str91_152 config92_153)))))" +"(wrap str_13 in_4 config_5 str_13))))))))))))))" "(define-values" "(read-here-string)" -"(lambda(in_45 config_47)" +"(lambda(in_0 config_0)" "(begin" -"(let-values(((source_31)(read-config-source config_47)))" -"(let-values(((open-end-line_5 open-end-col_5 open-end-pos_5)(port-next-location in_45)))" -"(let-values(((accum-str_5)(accum-string-init! config_47)))" -"(let-values(((full-terminator_0)" +"(let-values(((source_173)(read-config-source config_0)))" +"(let-values(((open-end-line_174 open-end-col_175 open-end-pos_176)(port-next-location in_0)))" +"(let-values(((accum-str_177)(accum-string-init! config_0)))" +"(let-values(((full-terminator_178)" "(cons" " '#\\newline" -"((letrec-values(((loop_65)" +"((letrec-values(((loop_180)" "(lambda()" "(begin" " 'loop" -"(let-values(((c_91)" -"(let-values(((in_46) in_45)((source_32) source_31))" -"(read-char-or-special in_46 special1.1 source_32))))" -"(if(eof-object? c_91)" +"(let-values(((c_181)" +"(let-values(((in_182) in_0)((source_184) source_173))" +"(read-char-or-special in_182 special1.1 source_184))))" +"(if(eof-object? c_181)" "(let-values()" -"(let-values(((in93_0) in_45)" -"((config94_0) config_47)" -"((c95_0) c_91)" -"((temp96_3)" +"(let-values(((in93_186) in_0)" +"((config94_187) config_0)" +"((c95_188) c_181)" +"((temp96_189)" " \"found end-of-file after `#<<` and before a newline\"))" "(reader-error12.1" " unsafe-undefined" -" c95_0" +" c95_188" " #f" " unsafe-undefined" -" in93_0" -" config94_0" -" temp96_3" +" in93_186" +" config94_187" +" temp96_189" "(list))))" -"(if(not(char? c_91))" +"(if(not(char? c_181))" "(let-values()" -"(let-values(((in97_0) in_45)" -"((config98_0) config_47)" -"((c99_0) c_91)" -"((temp100_1)" +"(let-values(((in97_191) in_0)" +"((config98_192) config_0)" +"((c99_193) c_181)" +"((temp100_194)" " \"found non-character while reading `#<<`\"))" "(reader-error12.1" " unsafe-undefined" -" c99_0" +" c99_193" " #f" " unsafe-undefined" -" in97_0" -" config98_0" -" temp100_1" +" in97_191" +" config98_192" +" temp100_194" "(list))))" -"(if(char=? c_91 '#\\newline)" +"(if(char=? c_181 '#\\newline)" "(let-values() null)" -"(let-values()(cons c_91(loop_65)))))))))))" -" loop_65)))))" +"(let-values()(cons c_181(loop_180)))))))))))" +" loop_180)))))" "(let-values((()" "(begin" -"((letrec-values(((loop_53)" +"((letrec-values(((loop_195)" "(lambda(terminator_0 terminator-accum_0)" "(begin" " 'loop" -"(let-values(((c_92)" -"(let-values(((in_47) in_45)((source_33) source_31))" -"(read-char-or-special in_47 special1.1 source_33))))" -"(if(eof-object? c_92)" +"(let-values(((c_198)" +"(let-values(((in_199) in_0)" +"((source_201) source_173))" +"(read-char-or-special" +" in_199" +" special1.1" +" source_201))))" +"(if(eof-object? c_198)" "(let-values()" "(if(null? terminator_0)" "(void)" "(let-values()" -"(let-values(((in101_0) in_45)" -"((config102_0) config_47)" -"((c103_0) c_92)" -"((open-end-pos104_0) open-end-pos_5)" -"((temp105_2)" +"(let-values(((in101_203) in_0)" +"((config102_204) config_0)" +"((c103_205) c_198)" +"((open-end-pos104_206) open-end-pos_176)" +"((temp105_207)" " \"found end-of-file before terminating `~a`\")" -"((temp106_2)" -"(list->string(cdr full-terminator_0))))" +"((temp106_208)" +"(list->string(cdr full-terminator_178))))" "(reader-error12.1" " unsafe-undefined" -" c103_0" -" open-end-pos104_0" +" c103_205" +" open-end-pos104_206" " unsafe-undefined" -" in101_0" -" config102_0" -" temp105_2" -"(list temp106_2))))))" -"(if(not(char? c_92))" +" in101_203" +" config102_204" +" temp105_207" +"(list temp106_208))))))" +"(if(not(char? c_198))" "(let-values()" -"(let-values(((in107_0) in_45)" -"((config108_0) config_47)" -"((c109_0) c_92)" -"((temp110_2)" +"(let-values(((in107_210) in_0)" +"((config108_211) config_0)" +"((c109_212) c_198)" +"((temp110_213)" " \"found non-character while reading `#<<`\"))" "(reader-error12.1" " unsafe-undefined" -" c109_0" +" c109_212" " #f" " unsafe-undefined" -" in107_0" -" config108_0" -" temp110_2" +" in107_210" +" config108_211" +" temp110_213" "(list))))" "(if(if(pair? terminator_0)" -"(char=? c_92(car terminator_0))" +"(char=? c_198(car terminator_0))" " #f)" "(let-values()" -"(loop_53" +"(loop_195" "(cdr terminator_0)" "(cons(car terminator_0) terminator-accum_0)))" -"(if(if(null? terminator_0)(char=? c_92 '#\\newline) #f)" +"(if(if(null? terminator_0)(char=? c_198 '#\\newline) #f)" "(let-values()(void))" "(let-values()" "(begin" @@ -53845,24 +54102,24 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_307)" +"(let-values(((lst_214)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_307)))" -"((letrec-values(((for-loop_277)" -"(lambda(lst_28)" +"(let-values()(check-list lst_214)))" +"((letrec-values(((for-loop_215)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_28)" -"(let-values(((c_93)" +"(if(pair? lst_0)" +"(let-values(((c_217)" "(unsafe-car" -" lst_28))" -"((rest_175)" +" lst_0))" +"((rest_218)" "(unsafe-cdr" -" lst_28)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -53870,964 +54127,981 @@ static const char *startup_source = "(begin" "(let-values()" "(accum-string-add!" -" accum-str_5" -" c_93))" +" accum-str_177" +" c_217))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_277" -" rest_175)" +"(for-loop_215" +" rest_218)" "(values))))" "(values))))))" -" for-loop_277)" -" lst_307)))" +" for-loop_215)" +" lst_214)))" "(void))))" -"(if(char=? c_92 '#\\newline)" +"(if(char=? c_198 '#\\newline)" "(let-values()" -"(loop_53" -"(cdr full-terminator_0)" +"(loop_195" +"(cdr full-terminator_178)" "(list '#\\newline)))" "(let-values()" "(begin" -"(accum-string-add! accum-str_5 c_92)" -"(loop_53 full-terminator_0 null)))))))))))))))" -" loop_53)" -"(cdr full-terminator_0)" +"(accum-string-add! accum-str_177 c_198)" +"(loop_195" +" full-terminator_178" +" null)))))))))))))))" +" loop_195)" +"(cdr full-terminator_178)" " null)" "(values))))" -"(let-values(((str_31)" -"(let-values(((accum-str111_0) accum-str_5)((config112_0) config_47))" -"(accum-string-get!6.1 0 accum-str111_0 config112_0))))" -"(wrap str_31 in_45 config_47 str_31))))))))))" +"(let-values(((str_179)" +"(let-values(((accum-str111_219) accum-str_177)((config112_220) config_0))" +"(accum-string-get!6.1 0 accum-str111_219 config112_220))))" +"(wrap str_179 in_0 config_0 str_179))))))))))" "(define-values" "(no-hex-digits)" -"(lambda(in_48 config_48 c_94 escaping-c_1 escaped-c_1)" +"(lambda(in_0 config_0 c_0 escaping-c_0 escaped-c_0)" "(begin" -"(let-values(((in113_0) in_48)" -"((config114_0) config_48)" -"((c115_0) c_94)" -" ((temp116_1) \"no hex digit following `~a~a`\")" -"((escaping-c117_0) escaping-c_1)" -"((escaped-c118_0) escaped-c_1))" +"(let-values(((in113_227) in_0)" +"((config114_228) config_0)" +"((c115_229) c_0)" +" ((temp116_230) \"no hex digit following `~a~a`\")" +"((escaping-c117_231) escaping-c_0)" +"((escaped-c118_232) escaped-c_0))" "(reader-error12.1" " unsafe-undefined" -" c115_0" +" c115_229" " #f" " unsafe-undefined" -" in113_0" -" config114_0" -" temp116_1" -"(list escaping-c117_0 escaped-c118_0))))))" +" in113_227" +" config114_228" +" temp116_230" +"(list escaping-c117_231 escaped-c118_232))))))" "(define-values" "(read-character)" -"(lambda(in_4 config_8)" +"(lambda(in_0 config_0)" "(begin" -"(let-values(((c_95)" -"(let-values(((in_49) in_4)((source_26)(read-config-source config_8)))" -"(read-char-or-special in_49 special1.1 source_26))))" -"(let-values(((char_0)" -"(if(eof-object? c_95)" +"(let-values(((c_3)" +"(let-values(((in_5) in_0)((source_7)(read-config-source config_0)))" +"(read-char-or-special in_5 special1.1 source_7))))" +"(let-values(((char_4)" +"(if(eof-object? c_3)" "(let-values()" -"(let-values(((in1_7) in_4)" -"((config2_6) config_8)" -"((c3_5) c_95)" -" ((temp4_5) \"expected a character after `#\\\\`\"))" +"(let-values(((in1_9) in_0)" +"((config2_10) config_0)" +"((c3_11) c_3)" +" ((temp4_12) \"expected a character after `#\\\\`\"))" "(reader-error12.1" " unsafe-undefined" -" c3_5" +" c3_11" " #f" " unsafe-undefined" -" in1_7" -" config2_6" -" temp4_5" +" in1_9" +" config2_10" +" temp4_12" "(list))))" -"(if(not(char? c_95))" +"(if(not(char? c_3))" "(let-values()" -"(let-values(((in5_1) in_4)" -"((config6_0) config_8)" -"((c7_2) c_95)" -" ((temp8_3) \"found non-character after `#\\\\`\"))" +"(let-values(((in5_14) in_0)" +"((config6_15) config_0)" +"((c7_16) c_3)" +" ((temp8_17) \"found non-character after `#\\\\`\"))" "(reader-error12.1" " unsafe-undefined" -" c7_2" +" c7_16" " #f" " unsafe-undefined" -" in5_1" -" config6_0" -" temp8_3" +" in5_14" +" config6_15" +" temp8_17" "(list))))" -"(if(octal-digit? c_95)" +"(if(octal-digit? c_3)" "(let-values()" -"(let-values(((c2_5)" -"(let-values(((in_50) in_4)" -"((skip-count_11) 0)" -"((source_34)(read-config-source config_8)))" -"(let-values(((c_48)" +"(let-values(((c2_18)" +"(let-values(((in_19) in_0)" +"((skip-count_21) 0)" +"((source_22)(read-config-source config_0)))" +"(let-values(((c_23)" "(peek-char-or-special" -" in_50" -" skip-count_11" +" in_19" +" skip-count_21" " 'special" -" source_34)))" -"(if(eq? c_48 'special)(special1.1 'special) c_48)))))" -"(if(if(char? c2_5)(octal-digit? c2_5) #f)" +" source_22)))" +"(if(eq? c_23 'special)(special1.1 'special) c_23)))))" +"(if(if(char? c2_18)(octal-digit? c2_18) #f)" "(let-values()" -"(let-values((()(begin(consume-char in_4 c2_5)(values))))" -"(let-values(((c3_6)" -"(let-values(((in_51) in_4)" -"((source_6)(read-config-source config_8)))" -"(read-char-or-special in_51 special1.1 source_6))))" -"(let-values(((v_222)" -"(if(if(char? c3_6)(octal-digit? c3_6) #f)" +"(let-values((()(begin(consume-char in_0 c2_18)(values))))" +"(let-values(((c3_24)" +"(let-values(((in_26) in_0)" +"((source_28)(read-config-source config_0)))" +"(read-char-or-special in_26 special1.1 source_28))))" +"(let-values(((v_25)" +"(if(if(char? c3_24)(octal-digit? c3_24) #f)" "(let-values()" "(+" -"(arithmetic-shift(digit->number c_95) 6)" -"(arithmetic-shift(digit->number c2_5) 3)" -"(digit->number c3_6)))" +"(arithmetic-shift(digit->number c_3) 6)" +"(arithmetic-shift(digit->number c2_18) 3)" +"(digit->number c3_24)))" "(let-values() #f))))" "(begin" -"(if(if v_222(<= v_222 255) #f)" +"(if(if v_25(<= v_25 255) #f)" "(void)" "(let-values()" -"(let-values(((in9_2) in_4)" -"((config10_2) config_8)" -"((c311_0) c3_6)" -" ((temp12_7) \"bad character constant `#\\\\~a~a~a`\")" -"((c13_1) c_95)" -"((c214_0) c2_5)" -" ((temp15_5) (if (char? c3_6) c3_6 \"\")))" +"(let-values(((in9_30) in_0)" +"((config10_31) config_0)" +"((c311_32) c3_24)" +" ((temp12_33) \"bad character constant `#\\\\~a~a~a`\")" +"((c13_34) c_3)" +"((c214_35) c2_18)" +" ((temp15_36) (if (char? c3_24) c3_24 \"\")))" "(reader-error12.1" " unsafe-undefined" -" c311_0" +" c311_32" " #f" " unsafe-undefined" -" in9_2" -" config10_2" -" temp12_7" -"(list c13_1 c214_0 temp15_5)))))" -"(integer->char v_222))))))" -"(let-values() c_95))))" -"(if(let-values(((or-part_80)(char=? c_95 '#\\u)))" -"(if or-part_80 or-part_80(char=? c_95 '#\\U)))" +" in9_30" +" config10_31" +" temp12_33" +"(list c13_34 c214_35 temp15_36)))))" +"(integer->char v_25))))))" +"(let-values() c_3))))" +"(if(let-values(((or-part_37)(char=? c_3 '#\\u)))" +"(if or-part_37 or-part_37(char=? c_3 '#\\U)))" "(let-values()" -"(let-values(((accum-str_6)(accum-string-init! config_8)))" -"(let-values(((v_36)" -"(let-values(((in16_1) in_4)" -"((config17_1) config_8)" -"((accum-str18_1) accum-str_6)" -"((temp19_5) 16)" -"((temp20_5)(if(char=? c_95 '#\\u) 4 8)))" +"(let-values(((accum-str_38)(accum-string-init! config_0)))" +"(let-values(((v_39)" +"(let-values(((in16_41) in_0)" +"((config17_42) config_0)" +"((accum-str18_43) accum-str_38)" +"((temp19_44) 16)" +"((temp20_45)(if(char=? c_3 '#\\u) 4 8)))" "(read-digits12.1" -" temp19_5" +" temp19_44" " 0" -" temp20_5" +" temp20_45" " #f" -" in16_1" -" config17_1" -" accum-str18_1))))" -"(if(integer? v_36)" +" in16_41" +" config17_42" +" accum-str18_43))))" +"(if(integer? v_39)" "(let-values()" -"(if(if(let-values(((or-part_96)(< v_36 55296)))" -"(if or-part_96 or-part_96(> v_36 57343)))" -"(<= v_36 1114111)" +"(if(if(let-values(((or-part_46)(< v_39 55296)))" +"(if or-part_46 or-part_46(> v_39 57343)))" +"(<= v_39 1114111)" " #f)" "(let-values()" -"(begin(accum-string-abandon! accum-str_6 config_8)(integer->char v_36)))" +"(begin(accum-string-abandon! accum-str_38 config_0)(integer->char v_39)))" "(let-values()" -"(let-values(((in21_2) in_4)" -"((config22_2) config_8)" -" ((temp23_5) \"bad character constant `#\\\\u~a`\")" -"((temp24_8)" -"(let-values(((accum-str25_0) accum-str_6)" -"((config26_1) config_8))" -"(accum-string-get!6.1 0 accum-str25_0 config26_1))))" +"(let-values(((in21_47) in_0)" +"((config22_48) config_0)" +" ((temp23_49) \"bad character constant `#\\\\u~a`\")" +"((temp24_50)" +"(let-values(((accum-str25_51) accum-str_38)" +"((config26_52) config_0))" +"(accum-string-get!6.1 0 accum-str25_51 config26_52))))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in21_2" -" config22_2" -" temp23_5" -"(list temp24_8))))))" -"(let-values()(begin(accum-string-abandon! accum-str_6 config_8) c_95))))))" -"(if(char-alphabetic? c_95)" +" in21_47" +" config22_48" +" temp23_49" +"(list temp24_50))))))" +"(let-values()(begin(accum-string-abandon! accum-str_38 config_0) c_3))))))" +"(if(char-alphabetic? c_3)" "(let-values()" -"(let-values(((next-c_4)" -"(let-values(((in_52) in_4)" -"((skip-count_12) 0)" -"((source_10)(read-config-source config_8)))" -"(let-values(((c_15)" +"(let-values(((next-c_53)" +"(let-values(((in_54) in_0)" +"((skip-count_56) 0)" +"((source_57)(read-config-source config_0)))" +"(let-values(((c_58)" "(peek-char-or-special" -" in_52" -" skip-count_12" +" in_54" +" skip-count_56" " 'special" -" source_10)))" -"(if(eq? c_15 'special)(special1.1 'special) c_15)))))" -"(if(if(char? next-c_4)(char-alphabetic? next-c_4) #f)" +" source_57)))" +"(if(eq? c_58 'special)(special1.1 'special) c_58)))))" +"(if(if(char? next-c_53)(char-alphabetic? next-c_53) #f)" "(let-values()" -"(let-values(((accum-str_7)(accum-string-init! config_8)))" -"(let-values((()(begin(accum-string-add! accum-str_7 c_95)(values))))" -"(let-values((()(begin(accum-string-add! accum-str_7 next-c_4)(values))))" -"(let-values((()(begin(consume-char in_4 next-c_4)(values))))" +"(let-values(((accum-str_59)(accum-string-init! config_0)))" +"(let-values((()(begin(accum-string-add! accum-str_59 c_3)(values))))" +"(let-values((()" +"(begin(accum-string-add! accum-str_59 next-c_53)(values))))" +"(let-values((()(begin(consume-char in_0 next-c_53)(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_104)" +"((letrec-values(((loop_61)" "(lambda()" "(begin" " 'loop" -"(let-values(((next-c_5)" -"(let-values(((in_53)" -" in_4)" -"((skip-count_13)" +"(let-values(((next-c_62)" +"(let-values(((in_63)" +" in_0)" +"((skip-count_65)" " 0)" -"((source_35)" +"((source_66)" "(read-config-source" -" config_8)))" -"(let-values(((c_96)" +" config_0)))" +"(let-values(((c_67)" "(peek-char-or-special" -" in_53" -" skip-count_13" +" in_63" +" skip-count_65" " 'special" -" source_35)))" +" source_66)))" "(if(eq?" -" c_96" +" c_67" " 'special)" "(special1.1" " 'special)" -" c_96)))))" -"(if(if(char? next-c_5)" +" c_67)))))" +"(if(if(char? next-c_62)" "(char-alphabetic?" -" next-c_5)" +" next-c_62)" " #f)" "(let-values()" "(begin" "(accum-string-add!" -" accum-str_7" -" next-c_5)" +" accum-str_59" +" next-c_62)" "(consume-char" -" in_4" -" next-c_5)" -"(loop_104)))" +" in_0" +" next-c_62)" +"(loop_61)))" "(void)))))))" -" loop_104))" +" loop_61))" "(values))))" -"(let-values(((name_67)" +"(let-values(((name_60)" "(string-foldcase" -"(let-values(((accum-str27_0) accum-str_7)" -"((config28_1) config_8))" -"(accum-string-get!6.1 0 accum-str27_0 config28_1)))))" -"(let-values(((tmp_54) name_67))" -" (if (if (equal? tmp_54 \"nul\") #t (equal? tmp_54 \"null\"))" +"(let-values(((accum-str27_68) accum-str_59)" +"((config28_69) config_0))" +"(accum-string-get!6.1" +" 0" +" accum-str27_68" +" config28_69)))))" +"(let-values(((tmp_70) name_60))" +" (if (if (equal? tmp_70 \"nul\") #t (equal? tmp_70 \"null\"))" "(let-values() '#\\nul)" -" (if (equal? tmp_54 \"backspace\")" +" (if (equal? tmp_70 \"backspace\")" "(let-values() '#\\backspace)" -" (if (equal? tmp_54 \"tab\")" +" (if (equal? tmp_70 \"tab\")" "(let-values() '#\\tab)" -" (if (if (equal? tmp_54 \"newline\")" +" (if (if (equal? tmp_70 \"newline\")" " #t" -" (equal? tmp_54 \"linefeed\"))" +" (equal? tmp_70 \"linefeed\"))" "(let-values() '#\\newline)" -" (if (equal? tmp_54 \"vtab\")" +" (if (equal? tmp_70 \"vtab\")" "(let-values() '#\\vtab)" -" (if (equal? tmp_54 \"page\")" +" (if (equal? tmp_70 \"page\")" "(let-values() '#\\page)" -" (if (equal? tmp_54 \"return\")" +" (if (equal? tmp_70 \"return\")" "(let-values() '#\\return)" -" (if (equal? tmp_54 \"space\")" +" (if (equal? tmp_70 \"space\")" "(let-values() '#\\space)" -" (if (equal? tmp_54 \"rubout\")" +" (if (equal? tmp_70 \"rubout\")" "(let-values() '#\\rubout)" "(let-values()" -"(let-values(((in29_0) in_4)" -"((config30_0) config_8)" -"((temp31_4)" +"(let-values(((in29_71) in_0)" +"((config30_72) config_0)" +"((temp31_73)" " \"bad character constant `#\\\\~a`\")" -"((name32_0) name_67))" +"((name32_74) name_60))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in29_0" -" config30_0" -" temp31_4" -"(list name32_0)))))))))))))))))))))" -"(let-values() c_95))))" -"(let-values() c_95))))))))" -"(wrap char_0 in_4 config_8 char_0))))))" +" in29_71" +" config30_72" +" temp31_73" +"(list name32_74)))))))))))))))))))))" +"(let-values() c_3))))" +"(let-values() c_3))))))))" +"(wrap char_4 in_0 config_0 char_4))))))" "(define-values" "(read-quote)" -"(lambda(read-one_3 sym_31 desc_0 c_35 in_49 config_22)" +"(lambda(read-one_0 sym_0 desc_0 c_0 in_0 config_0)" "(begin" -"(let-values(((wrapped-sym_0)(wrap sym_31 in_49 config_22 c_35)))" -"(let-values(((end-line_1 end-col_1 end-pos_3)(port-next-location in_49)))" -"(let-values(((e_82)(read-one_3 #f in_49 config_22)))" +"(let-values(((wrapped-sym_7)(wrap sym_0 in_0 config_0 c_0)))" +"(let-values(((end-line_8 end-col_9 end-pos_10)(port-next-location in_0)))" +"(let-values(((e_11)(read-one_0 #f in_0 config_0)))" "(begin" -"(if(eof-object? e_82)" +"(if(eof-object? e_11)" "(let-values()" -"(let-values(((in1_8) in_49)" -"((config2_7) config_22)" -"((e3_0) e_82)" -"((end-pos4_1) end-pos_3)" -" ((temp5_7) \"expected an element for ~a, found end-of-file\")" -"((desc6_0) desc_0))" +"(let-values(((in1_13) in_0)" +"((config2_14) config_0)" +"((e3_15) e_11)" +"((end-pos4_16) end-pos_10)" +" ((temp5_17) \"expected an element for ~a, found end-of-file\")" +"((desc6_18) desc_0))" "(reader-error12.1" " unsafe-undefined" -" e3_0" -" end-pos4_1" +" e3_15" +" end-pos4_16" " unsafe-undefined" -" in1_8" -" config2_7" -" temp5_7" -"(list desc6_0))))" +" in1_13" +" config2_14" +" temp5_17" +"(list desc6_18))))" "(void))" -"(wrap(list wrapped-sym_0 e_82) in_49 config_22 #f))))))))" +"(wrap(list wrapped-sym_7 e_11) in_0 config_0 #f))))))))" "(define-values" "(read-delimited-constant)" -"(lambda(init-c_1 can-match?_0 chars_0 val_79 in_49 config_22)" +"(lambda(init-c_0 can-match?_0 chars_0 val_0 in_0 config_0)" "(begin" -"(let-values(((accum-str_8)(accum-string-init! config_22)))" +"(let-values(((accum-str_7)(accum-string-init! config_0)))" "(begin" -"(accum-string-add! accum-str_8 init-c_1)" -"((letrec-values(((loop_114)" +"(accum-string-add! accum-str_7 init-c_0)" +"((letrec-values(((loop_8)" "(lambda(chars_1)" "(begin" " 'loop" -"(let-values(((c_37)" -"(let-values(((in_54) in_49)" -"((skip-count_14) 0)" -"((source_4)(read-config-source config_22)))" -"(let-values(((c_97)" +"(let-values(((c_10)" +"(let-values(((in_11) in_0)" +"((skip-count_13) 0)" +"((source_14)(read-config-source config_0)))" +"(let-values(((c_15)" "(peek-char-or-special" -" in_54" -" skip-count_14" +" in_11" +" skip-count_13" " 'special" -" source_4)))" -"(if(eq? c_97 'special)(special1.1 'special) c_97)))))" -"(if(char-delimiter? c_37 config_22)" +" source_14)))" +"(if(eq? c_15 'special)(special1.1 'special) c_15)))))" +"(if(char-delimiter? c_10 config_0)" "(let-values()" "(if(null? chars_1)" "(void)" "(let-values()" -"(let-values(((in1_9) in_49)" -"((config2_8) config_22)" -"((c3_7) c_37)" -" ((temp4_6) \"bad syntax `#~a`\")" -"((temp5_8)" -"(let-values(((accum-str6_0) accum-str_8)" -"((config7_0) config_22))" -"(accum-string-get!6.1 0 accum-str6_0 config7_0))))" +"(let-values(((in1_17) in_0)" +"((config2_18) config_0)" +"((c3_19) c_10)" +" ((temp4_20) \"bad syntax `#~a`\")" +"((temp5_21)" +"(let-values(((accum-str6_22) accum-str_7)" +"((config7_23) config_0))" +"(accum-string-get!6.1 0 accum-str6_22 config7_23))))" "(reader-error12.1" " unsafe-undefined" -" c3_7" +" c3_19" +" #f" +" unsafe-undefined" +" in1_17" +" config2_18" +" temp4_20" +"(list temp5_21))))))" +"(if(null? chars_1)" +"(let-values()" +"(begin" +"(accum-string-add! accum-str_7 c_10)" +"(let-values(((in8_24) in_0)" +"((config9_25) config_0)" +" ((temp10_26) \"bad syntax `#~a`\")" +"((temp11_27)" +"(let-values(((accum-str12_28) accum-str_7)" +"((config13_29) config_0))" +"(accum-string-get!6.1 0 accum-str12_28 config13_29))))" +"(reader-error12.1" +" unsafe-undefined" +" '#\\x" +" #f" +" unsafe-undefined" +" in8_24" +" config9_25" +" temp10_26" +"(list temp11_27)))))" +"(if(if can-match?_0(char=? c_10(car chars_1)) #f)" +"(let-values()" +"(begin" +"(consume-char in_0 c_10)" +"(accum-string-add! accum-str_7 c_10)" +"(loop_8(cdr chars_1))))" +"(let-values()" +"(begin" +"(consume-char/special in_0 config_0 c_10)" +"(accum-string-add! accum-str_7 c_10)" +"(let-values(((in14_30) in_0)" +"((config15_31) config_0)" +" ((temp16_32) \"bad syntax `#~a`\")" +"((temp17_33)" +"(let-values(((accum-str18_34) accum-str_7)" +"((config19_35) config_0))" +"(accum-string-get!6.1 0 accum-str18_34 config19_35))))" +"(reader-error12.1" +" unsafe-undefined" +" '#\\x" +" #f" +" unsafe-undefined" +" in14_30" +" config15_31" +" temp16_32" +"(list temp17_33)))))))))))))" +" loop_8)" +" chars_0)" +"(wrap" +" val_0" +" in_0" +" config_0" +"(let-values(((accum-str20_36) accum-str_7)((config21_37) config_0))" +"(accum-string-get!6.1 0 accum-str20_36 config21_37))))))))" +"(define-values" +"(read-box)" +"(lambda(read-one_0 dispatch-c_0 in_0 config_0)" +"(begin" +"(let-values((()" +"(begin" +"(if(check-parameter 1/read-accept-box config_0)" +"(void)" +"(let-values()" +"(let-values(((in1_9) in_0)" +"((config2_10) config_0)" +" ((temp3_11) \"`~a&` forms not enabled\")" +"((dispatch-c4_12) dispatch-c_0))" +"(reader-error12.1" +" unsafe-undefined" +" '#\\x" " #f" " unsafe-undefined" " in1_9" -" config2_8" -" temp4_6" -"(list temp5_8))))))" -"(if(null? chars_1)" -"(let-values()" -"(begin" -"(accum-string-add! accum-str_8 c_37)" -"(let-values(((in8_1) in_49)" -"((config9_2) config_22)" -" ((temp10_5) \"bad syntax `#~a`\")" -"((temp11_5)" -"(let-values(((accum-str12_0) accum-str_8)" -"((config13_1) config_22))" -"(accum-string-get!6.1 0 accum-str12_0 config13_1))))" -"(reader-error12.1" -" unsafe-undefined" -" '#\\x" -" #f" -" unsafe-undefined" -" in8_1" -" config9_2" -" temp10_5" -"(list temp11_5)))))" -"(if(if can-match?_0(char=? c_37(car chars_1)) #f)" -"(let-values()" -"(begin" -"(consume-char in_49 c_37)" -"(accum-string-add! accum-str_8 c_37)" -"(loop_114(cdr chars_1))))" -"(let-values()" -"(begin" -"(consume-char/special in_49 config_22 c_37)" -"(accum-string-add! accum-str_8 c_37)" -"(let-values(((in14_1) in_49)" -"((config15_2) config_22)" -" ((temp16_4) \"bad syntax `#~a`\")" -"((temp17_4)" -"(let-values(((accum-str18_2) accum-str_8)" -"((config19_3) config_22))" -"(accum-string-get!6.1 0 accum-str18_2 config19_3))))" -"(reader-error12.1" -" unsafe-undefined" -" '#\\x" -" #f" -" unsafe-undefined" -" in14_1" -" config15_2" -" temp16_4" -"(list temp17_4)))))))))))))" -" loop_114)" -" chars_0)" -"(wrap" -" val_79" -" in_49" -" config_22" -"(let-values(((accum-str20_0) accum-str_8)((config21_1) config_22))" -"(accum-string-get!6.1 0 accum-str20_0 config21_1))))))))" -"(define-values" -"(read-box)" -"(lambda(read-one_3 dispatch-c_1 in_5 config_15)" -"(begin" -"(let-values((()" -"(begin" -"(if(check-parameter 1/read-accept-box config_15)" -"(void)" -"(let-values()" -"(let-values(((in1_7) in_5)" -"((config2_6) config_15)" -" ((temp3_8) \"`~a&` forms not enabled\")" -"((dispatch-c4_0) dispatch-c_1))" -"(reader-error12.1" -" unsafe-undefined" -" '#\\x" -" #f" -" unsafe-undefined" -" in1_7" -" config2_6" -" temp3_8" -"(list dispatch-c4_0)))))" +" config2_10" +" temp3_11" +"(list dispatch-c4_12)))))" "(values))))" -"(let-values(((open-end-line_6 open-end-col_6 open-end-pos_6)(port-next-location in_5)))" -"(let-values(((e_83)(read-one_3 #f in_5(next-readtable config_15))))" +"(let-values(((open-end-line_5 open-end-col_6 open-end-pos_7)(port-next-location in_0)))" +"(let-values(((e_8)(read-one_0 #f in_0(next-readtable config_0))))" "(begin" -"(if(eof-object? e_83)" +"(if(eof-object? e_8)" "(let-values()" -"(let-values(((in5_1) in_5)" -"((config6_0) config_15)" -"((e7_1) e_83)" -"((open-end-pos8_0) open-end-pos_6)" -" ((temp9_6) \"expected an element for `~a&` box, found end-of-file\")" -"((dispatch-c10_0) dispatch-c_1))" +"(let-values(((in5_14) in_0)" +"((config6_15) config_0)" +"((e7_16) e_8)" +"((open-end-pos8_17) open-end-pos_7)" +" ((temp9_18) \"expected an element for `~a&` box, found end-of-file\")" +"((dispatch-c10_19) dispatch-c_0))" "(reader-error12.1" " unsafe-undefined" -" e7_1" -" open-end-pos8_0" +" e7_16" +" open-end-pos8_17" " unsafe-undefined" -" in5_1" -" config6_0" -" temp9_6" -"(list dispatch-c10_0))))" +" in5_14" +" config6_15" +" temp9_18" +"(list dispatch-c10_19))))" "(void))" -"(wrap(box e_83) in_5 config_15 #f))))))))" +"(wrap(box e_8) in_0 config_0 #f))))))))" "(define-values" "(read-regexp)" -"(lambda(mode-c_0 accum-str_9 in_5 config_15)" +"(lambda(mode-c_0 accum-str_0 in_0 config_0)" "(begin" -"(let-values(((c3_8)" -"(let-values(((in_55) in_5)((source_36)(read-config-source config_15)))" -"(read-char-or-special in_55 special1.1 source_36))))" -"(let-values(((no-wrap-config_0)(disable-wrapping config_15)))" -"(let-values(((rx_0)" -"(let-values(((tmp_55) c3_8))" -" (if (equal? tmp_55 '#\\\")" +"(let-values(((c3_5)" +"(let-values(((in_8) in_0)((source_10)(read-config-source config_0)))" +"(read-char-or-special in_8 special1.1 source_10))))" +"(let-values(((no-wrap-config_6)(disable-wrapping config_0)))" +"(let-values(((rx_7)" +"(let-values(((tmp_11) c3_5))" +" (if (equal? tmp_11 '#\\\")" "(let-values()" -"(let-values((()(begin(accum-string-abandon! accum-str_9 config_15)(values))))" -"(let-values(((str_32)" -"(let-values(((in1_8) in_5)((no-wrap-config2_0) no-wrap-config_0))" -"(read-string5.1 'string in1_8 no-wrap-config2_0))))" +"(let-values((()(begin(accum-string-abandon! accum-str_0 config_0)(values))))" +"(let-values(((str_12)" +"(let-values(((in1_13) in_0)((no-wrap-config2_14) no-wrap-config_6))" +"(read-string5.1 'string in1_13 no-wrap-config2_14))))" "(catch-and-reraise-as-reader/proc" -" in_5" -" config_15" -"(lambda()((if(char=? mode-c_0 '#\\r) regexp pregexp) str_32))))))" -"(if(equal? tmp_55 '#\\#)" +" in_0" +" config_0" +"(lambda()((if(char=? mode-c_0 '#\\r) regexp pregexp) str_12))))))" +"(if(equal? tmp_11 '#\\#)" "(let-values()" -"(let-values((()(begin(accum-string-add! accum-str_9 c3_8)(values))))" -"(let-values(((c4_2)" -"(let-values(((in_20) in_5)" -"((source_37)(read-config-source config_15)))" -"(read-char-or-special in_20 special1.1 source_37))))" -"(let-values(((tmp_56) c4_2))" -" (if (equal? tmp_56 '#\\\")" +"(let-values((()(begin(accum-string-add! accum-str_0 c3_5)(values))))" +"(let-values(((c4_15)" +"(let-values(((in_16) in_0)((source_18)(read-config-source config_0)))" +"(read-char-or-special in_16 special1.1 source_18))))" +"(let-values(((tmp_19) c4_15))" +" (if (equal? tmp_19 '#\\\")" "(let-values()" "(let-values((()" -"(begin(accum-string-abandon! accum-str_9 config_15)(values))))" -"(let-values(((bstr_4)" -"(let-values(((in3_1) in_5)" -"((no-wrap-config4_0) no-wrap-config_0)" -"((temp5_9) '|byte string|))" -"(read-string5.1 temp5_9 in3_1 no-wrap-config4_0))))" +"(begin(accum-string-abandon! accum-str_0 config_0)(values))))" +"(let-values(((bstr_20)" +"(let-values(((in3_22) in_0)" +"((no-wrap-config4_23) no-wrap-config_6)" +"((temp5_24) '|byte string|))" +"(read-string5.1 temp5_24 in3_22 no-wrap-config4_23))))" "(catch-and-reraise-as-reader/proc" -" in_5" -" config_15" +" in_0" +" config_0" "(lambda()" -"((if(char=? mode-c_0 '#\\r) byte-regexp byte-pregexp) bstr_4))))))" +"((if(char=? mode-c_0 '#\\r) byte-regexp byte-pregexp) bstr_20))))))" "(let-values()" -"(let-values(((in6_2) in_5)" -"((config7_1) config_15)" -"((c48_0) c4_2)" -" ((temp9_0) \"expected `\\\"` after `~a`\")" -"((temp10_2)" -"(let-values(((accum-str11_0) accum-str_9)" -"((config12_2) config_15))" -"(accum-string-get!6.1 0 accum-str11_0 config12_2))))" +"(let-values(((in6_26) in_0)" +"((config7_27) config_0)" +"((c48_28) c4_15)" +" ((temp9_29) \"expected `\\\"` after `~a`\")" +"((temp10_30)" +"(let-values(((accum-str11_31) accum-str_0)" +"((config12_32) config_0))" +"(accum-string-get!6.1 0 accum-str11_31 config12_32))))" "(reader-error12.1" " unsafe-undefined" -" c48_0" +" c48_28" " #f" " unsafe-undefined" -" in6_2" -" config7_1" -" temp9_0" -"(list temp10_2)))))))))" +" in6_26" +" config7_27" +" temp9_29" +"(list temp10_30)))))))))" "(let-values()" -"(let-values(((in13_2) in_5)" -"((config14_2) config_15)" -"((c315_0) c3_8)" -" ((temp16_7) \"expected `\\\"` or `#` after `~a`\")" -"((temp17_5)" -"(let-values(((accum-str18_3) accum-str_9)((config19_4) config_15))" -"(accum-string-get!6.1 0 accum-str18_3 config19_4))))" +"(let-values(((in13_34) in_0)" +"((config14_35) config_0)" +"((c315_36) c3_5)" +" ((temp16_37) \"expected `\\\"` or `#` after `~a`\")" +"((temp17_38)" +"(let-values(((accum-str18_39) accum-str_0)((config19_40) config_0))" +"(accum-string-get!6.1 0 accum-str18_39 config19_40))))" "(reader-error12.1" " unsafe-undefined" -" c315_0" +" c315_36" " #f" " unsafe-undefined" -" in13_2" -" config14_2" -" temp16_7" -"(list temp17_5)))))))))" -"(wrap rx_0 in_5 config_15 #f)))))))" +" in13_34" +" config14_35" +" temp16_37" +"(list temp17_38)))))))))" +"(wrap rx_7 in_0 config_0 #f)))))))" "(define-values" "(read-extension-reader)" -"(lambda(read-one_9 read-recur_0 dispatch-c_2 in_56 config_24)" +"(lambda(read-one_0 read-recur_0 dispatch-c_0 in_0 config_0)" "(begin" -"(let-values(((extend-str_0)" -"(read-extension-prefix(cons dispatch-c_2 '(#\\r #\\e)) '(#\\a #\\d #\\e #\\r) in_56 config_24)))" +"(let-values(((extend-str_11)" +"(read-extension-prefix(cons dispatch-c_0 '(#\\r #\\e)) '(#\\a #\\d #\\e #\\r) in_0 config_0)))" "(let-values((()" "(begin" -"(if(check-parameter 1/read-accept-reader config_24)" +"(if(check-parameter 1/read-accept-reader config_0)" "(void)" "(let-values()" -"(let-values(((in52_0) in_56)" -"((config53_1) config_24)" -" ((temp54_3) \"`~a` not enabled\")" -"((extend-str55_0) extend-str_0))" +"(let-values(((in52_13) in_0)" +"((config53_14) config_0)" +" ((temp54_15) \"`~a` not enabled\")" +"((extend-str55_16) extend-str_11))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in52_0" -" config53_1" -" temp54_3" -"(list extend-str55_0)))))" +" in52_13" +" config53_14" +" temp54_15" +"(list extend-str55_16)))))" "(values))))" -"(let-values(((mod-path-wrapped_0)(read-one_9 #f in_56(next-readtable config_24))))" +"(let-values(((mod-path-wrapped_12)(read-one_0 #f in_0(next-readtable config_0))))" "(begin" -"(if(eof-object? mod-path-wrapped_0)" +"(if(eof-object? mod-path-wrapped_12)" "(let-values()" -"(let-values(((in56_0) in_56)" -"((config57_1) config_24)" -"((mod-path-wrapped58_0) mod-path-wrapped_0)" -" ((temp59_7) \"expected a datum after `~a`, found end-of-file\")" -"((extend-str60_0) extend-str_0))" +"(let-values(((in56_18) in_0)" +"((config57_19) config_0)" +"((mod-path-wrapped58_20) mod-path-wrapped_12)" +" ((temp59_21) \"expected a datum after `~a`, found end-of-file\")" +"((extend-str60_22) extend-str_11))" "(reader-error12.1" " unsafe-undefined" -" mod-path-wrapped58_0" +" mod-path-wrapped58_20" " #f" " unsafe-undefined" -" in56_0" -" config57_1" -" temp59_7" -"(list extend-str60_0))))" +" in56_18" +" config57_19" +" temp59_21" +"(list extend-str60_22))))" "(void))" -"(let-values(((temp47_0)((read-config-coerce config_24) #f mod-path-wrapped_0 #f))" -"((read-recur48_0) read-recur_0)" -"((in49_0) in_56)" -"((config50_0) config_24)" -"((mod-path-wrapped51_0) mod-path-wrapped_0))" +"(let-values(((temp47_24)((read-config-coerce config_0) #f mod-path-wrapped_12 #f))" +"((read-recur48_25) read-recur_0)" +"((in49_26) in_0)" +"((config50_27) config_0)" +"((mod-path-wrapped51_28) mod-path-wrapped_12))" "(read-extension44.1" " #f" -" mod-path-wrapped51_0" +" mod-path-wrapped51_28" " #f" " '|#reader|" -" temp47_0" -" read-recur48_0" -" in49_0" -" config50_0)))))))))" +" temp47_24" +" read-recur48_25" +" in49_26" +" config50_27)))))))))" "(define-values" "(read-extension-lang7.1)" -"(lambda(get-info?1_0 read-recur3_0 dispatch-c4_1 in5_2 config6_1)" +"(lambda(get-info?1_0 read-recur3_0 dispatch-c4_0 in5_0 config6_0)" "(begin" " 'read-extension-lang7" -"(let-values(((read-recur_1) read-recur3_0))" -"(let-values(((dispatch-c_3) dispatch-c4_1))" -"(let-values(((in_13) in5_2))" -"(let-values(((config_49) config6_1))" -"(let-values(((get-info?_0) get-info?1_0))" +"(let-values(((read-recur_34) read-recur3_0))" +"(let-values(((dispatch-c_35) dispatch-c4_0))" +"(let-values(((in_36) in5_0))" +"(let-values(((config_37) config6_0))" +"(let-values(((get-info?_38) get-info?1_0))" "(let-values()" -"(let-values(((extend-str_1)" -"(read-extension-prefix(cons dispatch-c_3 '(#\\l)) '(#\\a #\\n #\\g) in_13 config_49)))" -"(let-values(((c_68)" -"(let-values(((in_57) in_13)((source_18)(read-config-source config_49)))" -"(read-char-or-special in_57 special1.1 source_18))))" +"(let-values(((extend-str_39)" +"(read-extension-prefix(cons dispatch-c_35 '(#\\l)) '(#\\a #\\n #\\g) in_36 config_37)))" +"(let-values(((c_40)" +"(let-values(((in_41) in_36)((source_43)(read-config-source config_37)))" +"(read-char-or-special in_41 special1.1 source_43))))" "(begin" -"(if(char=? c_68 '#\\space)" +"(if(char=? c_40 '#\\space)" "(void)" "(let-values()" -"(let-values(((in67_1) in_13)" -"((config68_1) config_49)" -" ((temp69_3) \"expected a single space after `~a`\")" -"((extend-str70_0) extend-str_1))" +"(let-values(((in67_44) in_36)" +"((config68_45) config_37)" +" ((temp69_46) \"expected a single space after `~a`\")" +"((extend-str70_47) extend-str_39))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in67_1" -" config68_1" -" temp69_3" -"(list extend-str70_0)))))" -"(let-values(((extend-str61_0) extend-str_1)" -"((read-recur62_0) read-recur_1)" -"((in63_1) in_13)" -"((config64_1) config_49)" -"((temp65_3) '|#lang|)" -"((get-info?66_0) get-info?_0))" +" in67_44" +" config68_45" +" temp69_46" +"(list extend-str70_47)))))" +"(let-values(((extend-str61_49) extend-str_39)" +"((read-recur62_50) read-recur_34)" +"((in63_51) in_36)" +"((config64_52) config_37)" +"((temp65_53) '|#lang|)" +"((get-info?66_54) get-info?_38))" "(read-lang29.1" -" get-info?66_0" +" get-info?66_54" " #f" -" temp65_3" -" extend-str61_0" -" read-recur62_0" -" in63_1" -" config64_1))))))))))))))" +" temp65_53" +" extend-str61_49" +" read-recur62_50" +" in63_51" +" config64_52))))))))))))))" "(define-values" "(read-extension-#!16.1)" -"(lambda(get-info?10_0 read-recur12_0 dispatch-c13_0 in14_2 config15_3)" +"(lambda(get-info?10_0 read-recur12_0 dispatch-c13_0 in14_0 config15_0)" "(begin" " 'read-extension-#!16" -"(let-values(((read-recur_2) read-recur12_0))" -"(let-values(((dispatch-c_4) dispatch-c13_0))" -"(let-values(((in_58) in14_2))" -"(let-values(((config_50) config15_3))" -"(let-values(((get-info?_1) get-info?10_0))" +"(let-values(((read-recur_83) read-recur12_0))" +"(let-values(((dispatch-c_84) dispatch-c13_0))" +"(let-values(((in_85) in14_0))" +"(let-values(((config_86) config15_0))" +"(let-values(((get-info?_87) get-info?10_0))" "(let-values()" -"(let-values(((c_98)" -"(let-values(((in_59) in_58)((source_38)(read-config-source config_50)))" -"(read-char-or-special in_59 special1.1 source_38))))" +"(let-values(((c_88)" +"(let-values(((in_89) in_85)((source_91)(read-config-source config_86)))" +"(read-char-or-special in_89 special1.1 source_91))))" "(begin" -"(if(char-lang-nonsep? c_98)" +"(if(char-lang-nonsep? c_88)" "(void)" "(let-values()" -"(let-values(((in78_0) in_58)" -"((config79_0) config_50)" -"((temp80_1)" -"(if(char? c_98)(string dispatch-c_4 '#\\! c_98)(string dispatch-c_4 '#\\!))))" -"(bad-syntax-error20.1 '#\\x in78_0 config79_0 temp80_1))))" -"(let-values(((temp71_1)(string dispatch-c_4 '#\\!))" -"((read-recur72_0) read-recur_2)" -"((in73_0) in_58)" -"((config74_0) config_50)" -"((c75_0) c_98)" -"((temp76_2) '|#!|)" -"((get-info?77_0) get-info?_1))" +"(let-values(((in78_92) in_85)" +"((config79_93) config_86)" +"((temp80_94)" +"(if(char? c_88)(string dispatch-c_84 '#\\! c_88)(string dispatch-c_84 '#\\!))))" +"(bad-syntax-error20.1 '#\\x in78_92 config79_93 temp80_94))))" +"(let-values(((temp71_96)(string dispatch-c_84 '#\\!))" +"((read-recur72_97) read-recur_83)" +"((in73_98) in_85)" +"((config74_99) config_86)" +"((c75_100) c_88)" +"((temp76_101) '|#!|)" +"((get-info?77_102) get-info?_87))" "(read-lang29.1" -" get-info?77_0" -" c75_0" -" temp76_2" -" temp71_1" -" read-recur72_0" -" in73_0" -" config74_0)))))))))))))" +" get-info?77_102" +" c75_100" +" temp76_101" +" temp71_96" +" read-recur72_97" +" in73_98" +" config74_99)))))))))))))" "(define-values" "(read-lang29.1)" -"(lambda(get-info?20_0 init-c19_0 who21_1 extend-str25_0 read-recur26_0 in27_1 config28_2)" +"(lambda(get-info?20_0 init-c19_0 who21_0 extend-str25_0 read-recur26_0 in27_0 config28_0)" "(begin" " 'read-lang29" -"(let-values(((extend-str_2) extend-str25_0))" -"(let-values(((read-recur_3) read-recur26_0))" -"(let-values(((in_60) in27_1))" -"(let-values(((config_51) config28_2))" -"(let-values(((init-c_15) init-c19_0))" -"(let-values(((get-info?_2) get-info?20_0))" -"(let-values(((who_29) who21_1))" +"(let-values(((extend-str_143) extend-str25_0))" +"(let-values(((read-recur_144) read-recur26_0))" +"(let-values(((in_145) in27_0))" +"(let-values(((config_146) config28_0))" +"(let-values(((init-c_147) init-c19_0))" +"(let-values(((get-info?_148) get-info?20_0))" +"(let-values(((who_149) who21_0))" "(let-values()" "(let-values((()" "(begin" -"(if(if(check-parameter 1/read-accept-reader config_51)" -"(check-parameter 1/read-accept-lang config_51)" +"(if(if(check-parameter 1/read-accept-reader config_146)" +"(check-parameter 1/read-accept-lang config_146)" " #f)" "(void)" "(let-values()" -"(let-values(((in88_0) in_60)" -"((config89_0) config_51)" -" ((temp90_2) \"`~a` not enabled\")" -"((extend-str91_0) extend-str_2))" +"(let-values(((in88_157) in_145)" +"((config89_158) config_146)" +" ((temp90_159) \"`~a` not enabled\")" +"((extend-str91_160) extend-str_143))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in88_0" -" config89_0" -" temp90_2" -"(list extend-str91_0)))))" +" in88_157" +" config89_158" +" temp90_159" +"(list extend-str91_160)))))" "(values))))" -"(let-values(((line_10 col_9 pos_120)(port-next-location in_60)))" -"(let-values(((accum-str_10)(accum-string-init! config_51)))" +"(let-values(((line_150 col_151 pos_152)(port-next-location in_145)))" +"(let-values(((accum-str_153)(accum-string-init! config_146)))" "(let-values((()" "(begin" -"(if init-c_15" -"(let-values()(accum-string-add! accum-str_10 init-c_15))" +"(if init-c_147" +"(let-values()(accum-string-add! accum-str_153 init-c_147))" "(void))" "(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_115)" +"((letrec-values(((loop_161)" "(lambda()" "(begin" " 'loop" -"(let-values(((c_9)" -"(let-values(((in_61) in_60)" -"((skip-count_15) 0)" -"((source_39)" +"(let-values(((c_162)" +"(let-values(((in_163) in_145)" +"((skip-count_165) 0)" +"((source_166)" "(read-config-source" -" config_51)))" -"(let-values(((c_99)" +" config_146)))" +"(let-values(((c_167)" "(peek-char-or-special" -" in_61" -" skip-count_15" +" in_163" +" skip-count_165" " 'special" -" source_39)))" -"(if(eq? c_99 'special)" +" source_166)))" +"(if(eq? c_167 'special)" "(special1.1 'special)" -" c_99)))))" -"(if(eof-object? c_9)" +" c_167)))))" +"(if(eof-object? c_162)" "(let-values()(void))" -"(if(not(char? c_9))" +"(if(not(char? c_162))" "(let-values()" "(begin" -"(consume-char/special in_60 config_51 c_9)" -"(let-values(((in92_0) in_60)" -"((config93_0) config_51)" -"((c94_0) c_9)" -"((temp95_1)" +"(consume-char/special" +" in_145" +" config_146" +" c_162)" +"(let-values(((in92_169) in_145)" +"((config93_170) config_146)" +"((c94_171) c_162)" +"((temp95_172)" " \"found non-character while reading `#~a`\")" -"((extend-str96_0)" -" extend-str_2))" +"((extend-str96_173)" +" extend-str_143))" "(reader-error12.1" " unsafe-undefined" -" c94_0" +" c94_171" " #f" " unsafe-undefined" -" in92_0" -" config93_0" -" temp95_1" -"(list extend-str96_0)))))" -"(if(char-whitespace? c_9)" +" in92_169" +" config93_170" +" temp95_172" +"(list extend-str96_173)))))" +"(if(char-whitespace? c_162)" "(let-values()(void))" -"(if(let-values(((or-part_168)" -"(char-lang-nonsep? c_9)))" -"(if or-part_168" -" or-part_168" -"(char=? '#\\/ c_9)))" +"(if(let-values(((or-part_174)" +"(char-lang-nonsep?" +" c_162)))" +"(if or-part_174" +" or-part_174" +"(char=? '#\\/ c_162)))" "(let-values()" "(begin" -"(consume-char in_60 c_9)" -"(accum-string-add! accum-str_10 c_9)" -"(loop_115)))" +"(consume-char in_145 c_162)" +"(accum-string-add!" +" accum-str_153" +" c_162)" +"(loop_161)))" "(let-values()" "(begin" -"(consume-char in_60 c_9)" -"(let-values(((in97_1) in_60)" -"((config98_1) config_51)" -"((temp99_1)" +"(consume-char in_145 c_162)" +"(let-values(((in97_175) in_145)" +"((config98_176)" +" config_146)" +"((temp99_177)" "(string-append" " \"expected only alphanumeric, `-`, `+`, `_`, or `/`\"" " \" characters for `~a`, found `~a`\"))" -"((extend-str100_0)" -" extend-str_2)" -"((c101_0) c_9))" +"((extend-str100_178)" +" extend-str_143)" +"((c101_179) c_162))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in97_1" -" config98_1" -" temp99_1" +" in97_175" +" config98_176" +" temp99_177" "(list" -" extend-str100_0" -" c101_0))))))))))))))" -" loop_115))" +" extend-str100_178" +" c101_179))))))))))))))" +" loop_161))" "(values))))" -"(let-values(((lang-str_0)" -"(let-values(((accum-str102_0) accum-str_10)((config103_0) config_51))" -"(accum-string-get!6.1 0 accum-str102_0 config103_0))))" +"(let-values(((lang-str_154)" +"(let-values(((accum-str102_180) accum-str_153)" +"((config103_181) config_146))" +"(accum-string-get!6.1 0 accum-str102_180 config103_181))))" "(let-values((()" "(begin" -" (if (equal? lang-str_0 \"\")" +" (if (equal? lang-str_154 \"\")" "(let-values()" -"(let-values(((in104_0) in_60)" -"((config105_0) config_51)" -"((temp106_3)" +"(let-values(((in104_182) in_145)" +"((config105_183) config_146)" +"((temp106_184)" " \"expected a non-empty sequence of alphanumeric, `-`, `+`, `_`, or `/` after `~a`\")" -"((extend-str107_0) extend-str_2))" +"((extend-str107_185) extend-str_143))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in104_0" -" config105_0" -" temp106_3" -"(list extend-str107_0))))" +" in104_182" +" config105_183" +" temp106_184" +"(list extend-str107_185))))" "(void))" "(values))))" "(let-values((()" "(begin" -"(if(char=? '#\\/(string-ref lang-str_0 0))" +"(if(char=? '#\\/(string-ref lang-str_154 0))" "(let-values()" -"(let-values(((in108_0) in_60)" -"((config109_0) config_51)" -"((temp110_3)" +"(let-values(((in108_186) in_145)" +"((config109_187) config_146)" +"((temp110_188)" " \"expected a name that does not start `/` after `~a`\")" -"((extend-str111_0) extend-str_2))" +"((extend-str111_189) extend-str_143))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in108_0" -" config109_0" -" temp110_3" -"(list extend-str111_0))))" +" in108_186" +" config109_187" +" temp110_188" +"(list extend-str111_189))))" "(void))" "(values))))" "(let-values((()" "(begin" "(if(char=?" " '#\\/" -"(string-ref lang-str_0(sub1(string-length lang-str_0))))" +"(string-ref" +" lang-str_154" +"(sub1(string-length lang-str_154))))" "(let-values()" -"(let-values(((in112_0) in_60)" -"((config113_0) config_51)" -"((temp114_4)" +"(let-values(((in112_190) in_145)" +"((config113_191) config_146)" +"((temp114_192)" " \"expected a name that does not end `/` after `~a`\")" -"((extend-str115_0) extend-str_2))" +"((extend-str115_193) extend-str_143))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in112_0" -" config113_0" -" temp114_4" -"(list extend-str115_0))))" +" in112_190" +" config113_191" +" temp114_192" +"(list extend-str115_193))))" "(void))" "(values))))" -"(let-values(((submod-path_0)" -"(list* 'submod(string->symbol lang-str_0) '(reader))))" -"(let-values(((reader-path_0)" -" (string->symbol (string-append lang-str_0 \"/lang/reader\"))))" -"(let-values(((submod-path81_0) submod-path_0)" -"((reader-path82_0) reader-path_0)" -"((read-recur83_0) read-recur_3)" -"((in84_0) in_60)" -"((temp85_1)(reading-at config_51 line_10 col_9 pos_120))" -"((get-info?86_0) get-info?_2)" -"((who87_0) who_29))" +"(let-values(((submod-path_155)" +"(list* 'submod(string->symbol lang-str_154) '(reader))))" +"(let-values(((reader-path_156)" +" (string->symbol (string-append lang-str_154 \"/lang/reader\"))))" +"(let-values(((submod-path81_195) submod-path_155)" +"((reader-path82_196) reader-path_156)" +"((read-recur83_197) read-recur_144)" +"((in84_198) in_145)" +"((temp85_199)(reading-at config_146 line_150 col_151 pos_152))" +"((get-info?86_200) get-info?_148)" +"((who87_201) who_149))" "(read-extension44.1" -" get-info?86_0" +" get-info?86_200" " unsafe-undefined" -" submod-path81_0" -" who87_0" -" reader-path82_0" -" read-recur83_0" -" in84_0" -" temp85_1))))))))))))))))))))))))" +" submod-path81_195" +" who87_201" +" reader-path82_196" +" read-recur83_197" +" in84_198" +" temp85_199))))))))))))))))))))))))" "(define-values" "(char-lang-nonsep?)" -"(lambda(c_100)" +"(lambda(c_0)" "(begin" -"(if(<(char->integer c_100) 128)" -"(let-values(((or-part_89)(char-alphabetic? c_100)))" -"(if or-part_89" -" or-part_89" -"(let-values(((or-part_305)(char-numeric? c_100)))" -"(if or-part_305" -" or-part_305" -"(let-values(((or-part_360)(char=? '#\\- c_100)))" -"(if or-part_360" -" or-part_360" -"(let-values(((or-part_361)(char=? '#\\+ c_100)))" -"(if or-part_361 or-part_361(char=? '#\\_ c_100)))))))))" +"(if(<(char->integer c_0) 128)" +"(let-values(((or-part_226)(char-alphabetic? c_0)))" +"(if or-part_226" +" or-part_226" +"(let-values(((or-part_227)(char-numeric? c_0)))" +"(if or-part_227" +" or-part_227" +"(let-values(((or-part_228)(char=? '#\\- c_0)))" +"(if or-part_228" +" or-part_228" +"(let-values(((or-part_229)(char=? '#\\+ c_0)))" +"(if or-part_229 or-part_229(char=? '#\\_ c_0)))))))))" " #f))))" "(define-values" "(read-extension-prefix)" -"(lambda(already_0 wanted_0 in_62 config_52)" +"(lambda(already_0 wanted_0 in_0 config_0)" "(begin" -"(let-values(((accum-str_11)(accum-string-init! config_52)))" +"(let-values(((accum-str_234)(accum-string-init! config_0)))" "(begin" -"(let-values(((lst_201) already_0))" +"(let-values(((lst_235) already_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_201)))" -"((letrec-values(((for-loop_208)" -"(lambda(lst_308)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_235)))" +"((letrec-values(((for-loop_236)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_308)" -"(let-values(((c_101)(unsafe-car lst_308))((rest_176)(unsafe-cdr lst_308)))" +"(if(pair? lst_0)" +"(let-values(((c_238)(unsafe-car lst_0))((rest_239)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(accum-string-add! accum-str_11 c_101))" +"(accum-string-add! accum-str_234 c_238))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_208 rest_176)(values))))" +"(if(not #f)(for-loop_236 rest_239)(values))))" "(values))))))" -" for-loop_208)" -" lst_201)))" +" for-loop_236)" +" lst_235)))" "(void)" -"((letrec-values(((loop_12)" +"((letrec-values(((loop_240)" "(lambda(wanted_1)" "(begin" " 'loop" "(if(null? wanted_1)" "(void)" "(let-values()" -"(let-values(((c_102)" -"(let-values(((in_63) in_62)" -"((source_40)(read-config-source config_52)))" -"(read-char-or-special in_63 special1.1 source_40))))" +"(let-values(((c_242)" +"(let-values(((in_243) in_0)" +"((source_245)(read-config-source config_0)))" +"(read-char-or-special in_243 special1.1 source_245))))" "(begin" -"(if(char? c_102)(let-values()(accum-string-add! accum-str_11 c_102))(void))" -"(if(eqv? c_102(car wanted_1))" +"(if(char? c_242)" +"(let-values()(accum-string-add! accum-str_234 c_242))" +"(void))" +"(if(eqv? c_242(car wanted_1))" "(void)" "(let-values()" -"(let-values(((in118_0) in_62)" -"((config119_0) config_52)" -"((temp120_2)" -"(let-values(((accum-str122_0) accum-str_11)" -"((config123_0) config_52))" -"(accum-string-get!6.1 0 accum-str122_0 config123_0)))" -"((c121_0) c_102))" -"(bad-syntax-error20.1 c121_0 in118_0 config119_0 temp120_2))))" -"(loop_12(cdr wanted_1))))))))))" -" loop_12)" +"(let-values(((in118_247) in_0)" +"((config119_248) config_0)" +"((temp120_249)" +"(let-values(((accum-str122_251) accum-str_234)" +"((config123_252) config_0))" +"(accum-string-get!6.1 0 accum-str122_251 config123_252)))" +"((c121_250) c_242))" +"(bad-syntax-error20.1 c121_250 in118_247 config119_248 temp120_249))))" +"(loop_240(cdr wanted_1))))))))))" +" loop_240)" " wanted_0)" -"(let-values(((accum-str116_0) accum-str_11)((config117_0) config_52))" -"(accum-string-get!6.1 0 accum-str116_0 config117_0)))))))" +"(let-values(((accum-str116_253) accum-str_234)((config117_254) config_0))" +"(accum-string-get!6.1 0 accum-str116_253 config117_254)))))))" "(define-values" "(read-extension44.1)" "(lambda(get-info?34_0" @@ -54836,72 +55110,76 @@ static const char *startup_source = " who35_0" " mod-path-datum40_0" " read-recur41_0" -" in42_1" -" config43_1)" +" in42_0" +" config43_0)" "(begin" " 'read-extension44" -"(let-values(((try-first-mod-path_0) try-first-mod-path32_0))" -"(let-values(((mod-path-datum_0) mod-path-datum40_0))" -"(let-values(((read-recur_4) read-recur41_0))" -"(let-values(((in_64) in42_1))" -"(let-values(((config_53) config43_1))" -"(let-values(((mod-path-wrapped_1)" +"(let-values(((try-first-mod-path_263) try-first-mod-path32_0))" +"(let-values(((mod-path-datum_264) mod-path-datum40_0))" +"(let-values(((read-recur_265) read-recur41_0))" +"(let-values(((in_266) in42_0))" +"(let-values(((config_267) config43_0))" +"(let-values(((mod-path-wrapped_268)" "(if(eq? mod-path-wrapped33_0 unsafe-undefined)" -"((read-config-coerce config_53)" +"((read-config-coerce config_267)" " #t" -" mod-path-datum_0" -"(let-values(((in124_0) in_64)((config125_0) config_53))" -"(port+config->srcloc49.1 #f in124_0 config125_0)))" +" mod-path-datum_264" +"(let-values(((in124_269) in_266)((config125_270) config_267))" +"(port+config->srcloc49.1 #f in124_269 config125_270)))" " mod-path-wrapped33_0)))" -"(let-values(((get-info?_3) get-info?34_0))" -"(let-values(((who_30) who35_0))" +"(let-values(((get-info?_271) get-info?34_0))" +"(let-values(((who_272) who35_0))" "(let-values()" -"(let-values((()(begin(force-parameters! config_53)(values))))" -"(let-values(((guard_0)(1/current-reader-guard)))" -"(let-values(((mod-path_27)" -"(let-values(((or-part_362)" -"(if try-first-mod-path_0" -"(let-values(((mod-path_28)(guard_0 try-first-mod-path_0)))" -"(if((read-config-module-declared? config_53)" -" try-first-mod-path_0)" -" mod-path_28" +"(let-values((()(begin(force-parameters! config_267)(values))))" +"(let-values(((guard_273)(1/current-reader-guard)))" +"(let-values(((mod-path_274)" +"(let-values(((or-part_279)" +"(if try-first-mod-path_263" +"(let-values(((mod-path_280)" +"(guard_273 try-first-mod-path_263)))" +"(if((read-config-module-declared? config_267)" +" try-first-mod-path_263)" +" mod-path_280" " #f))" " #f)))" -"(if or-part_362 or-part_362(guard_0 mod-path-datum_0)))))" -"(let-values(((for-syntax?_8)(read-config-for-syntax? config_53)))" -"(let-values(((dynamic-require_2)(read-config-dynamic-require config_53)))" -"(let-values(((no-value_0)(gensym)))" -"(let-values(((extension_0)" -"(if get-info?_3" +"(if or-part_279 or-part_279(guard_273 mod-path-datum_264)))))" +"(let-values(((for-syntax?_275)(read-config-for-syntax? config_267)))" +"(let-values(((dynamic-require_276)(read-config-dynamic-require config_267)))" +"(let-values(((no-value_277)(gensym)))" +"(let-values(((extension_278)" +"(if get-info?_271" "(let-values()" -"(dynamic-require_2 mod-path_27 'get-info(lambda() no-value_0)))" +"(dynamic-require_276" +" mod-path_274" +" 'get-info" +"(lambda() no-value_277)))" "(let-values()" -"(dynamic-require_2" -" mod-path_27" -"(if for-syntax?_8 'read-syntax 'read))))))" -"(if(eq? extension_0 no-value_0)" +"(dynamic-require_276" +" mod-path_274" +"(if for-syntax?_275 'read-syntax 'read))))))" +"(if(eq? extension_278 no-value_277)" "(let-values() #f)" "(let-values()" -"(let-values(((result-v_1)" -"(if(if for-syntax?_8(not get-info?_3) #f)" +"(let-values(((result-v_281)" +"(if(if for-syntax?_275(not get-info?_271) #f)" "(let-values()" -"(if(procedure-arity-includes? extension_0 6)" +"(if(procedure-arity-includes? extension_278 6)" "(let-values()" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-read-config" -" config_53)" +" config_267)" "(let-values()" -"(extension_0" -"(read-config-source config_53)" -" in_64" -" mod-path-wrapped_1" -"(read-config-line config_53)" -"(read-config-col config_53)" -"(read-config-pos config_53)))))" -"(if(procedure-arity-includes? extension_0 2)" +"(extension_278" +"(read-config-source config_267)" +" in_266" +" mod-path-wrapped_268" +"(read-config-line config_267)" +"(read-config-col config_267)" +"(read-config-pos config_267)))))" +"(if(procedure-arity-includes? extension_278 2)" "(let-values()" "(with-continuation-mark" " parameterization-key" @@ -54910,39 +55188,39 @@ static const char *startup_source = " #f" " parameterization-key)" " current-read-config" -" config_53)" +" config_267)" "(let-values()" -"(extension_0" -"(read-config-source config_53)" -" in_64))))" +"(extension_278" +"(read-config-source config_267)" +" in_266))))" "(let-values()" "(raise-argument-error" -" who_30" +" who_272" " \"(or/c (procedure-arity-includes?/c 2) (procedure-arity-includes?/c 6))\"" -" extension_0)))))" +" extension_278)))))" "(let-values()" -"(if(procedure-arity-includes? extension_0 5)" +"(if(procedure-arity-includes? extension_278 5)" "(let-values()" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-read-config" -" config_53)" +" config_267)" "(let-values()" -"(extension_0" -" in_64" -" mod-path-wrapped_1" -"(read-config-line config_53)" -"(read-config-col config_53)" -"(read-config-pos config_53)))))" -"(if get-info?_3" +"(extension_278" +" in_266" +" mod-path-wrapped_268" +"(read-config-line config_267)" +"(read-config-col config_267)" +"(read-config-pos config_267)))))" +"(if get-info?_271" "(let-values()" "(raise-argument-error" -" who_30" +" who_272" " \"(procedure-arity-includes?/c 5)\"" -" extension_0))" -"(if(procedure-arity-includes? extension_0 1)" +" extension_278))" +"(if(procedure-arity-includes? extension_278 1)" "(let-values()" "(with-continuation-mark" " parameterization-key" @@ -54951,188 +55229,186 @@ static const char *startup_source = " #f" " parameterization-key)" " current-read-config" -" config_53)" -"(let-values()(extension_0 in_64))))" +" config_267)" +"(let-values()(extension_278 in_266))))" "(let-values()" "(raise-argument-error" -" who_30" +" who_272" " \"(or/c (procedure-arity-includes?/c 1) (procedure-arity-includes?/c 5))\"" -" extension_0)))))))))" -"(if get-info?_3" +" extension_278)))))))))" +"(if get-info?_271" "(let-values()" "(begin" -"(if(if(procedure? result-v_1)" -"(procedure-arity-includes? result-v_1 2)" +"(if(if(procedure? result-v_281)" +"(procedure-arity-includes? result-v_281 2)" " #f)" "(void)" "(let-values()" "(raise-result-error" " 'read-language" " \"(procedure-arity-includes?/c 2)\"" -" result-v_1)))" -" result-v_1))" -"(if(1/special-comment? result-v_1)" -"(let-values()(read-recur_4 #f in_64 config_53))" +" result-v_281)))" +" result-v_281))" +"(if(1/special-comment? result-v_281)" +"(let-values()(read-recur_265 #f in_266 config_267))" "(let-values()" -"(coerce result-v_1 in_64 config_53))))))))))))))))))))))))))" +"(coerce result-v_281 in_266 config_267))))))))))))))))))))))))))" "(define-values" "(read-language/get-info)" -"(lambda(read-one_3 in_2 config_7 fail-k_5)" +"(lambda(read-one_0 in_0 config_0 fail-k_0)" "(begin" -"(let-values(((c_25)(read-char/skip-whitespace-and-comments #f read-one_3 in_2 config_7)))" -"(let-values(((line_8 col_7 pos_116)(port-next-location* in_2 c_25)))" -"(let-values(((l-config_0)" -"(override-parameter 1/read-accept-reader(reading-at config_7 line_8 col_7 pos_116) #t)))" -"(if(not(eqv? c_25 '#\\#))" -" (let-values () (if fail-k_5 (fail-k_5) (lang-error in_2 l-config_0 \"\" c_25)))" +"(let-values(((c_5)(read-char/skip-whitespace-and-comments #f read-one_0 in_0 config_0)))" +"(let-values(((line_6 col_7 pos_8)(port-next-location* in_0 c_5)))" +"(let-values(((l-config_9)" +"(override-parameter 1/read-accept-reader(reading-at config_0 line_6 col_7 pos_8) #t)))" +"(if(not(eqv? c_5 '#\\#))" +" (let-values () (if fail-k_0 (fail-k_0) (lang-error in_0 l-config_9 \"\" c_5)))" "(let-values()" -"(let-values(((c2_6)" -"(let-values(((in_54) in_2)((source_41)(read-config-source l-config_0)))" -"(read-char-or-special in_54 special1.1 source_41))))" -"(if(eqv? c2_6 '#\\l)" +"(let-values(((c2_10)" +"(let-values(((in_11) in_0)((source_13)(read-config-source l-config_9)))" +"(read-char-or-special in_11 special1.1 source_13))))" +"(if(eqv? c2_10 '#\\l)" "(let-values()" -"(let-values(((read-one1_0) read-one_3)" -"((c2_7) c_25)" -"((in3_2) in_2)" -"((l-config4_0) l-config_0)" -"((temp5_3) #t))" -"(read-extension-lang7.1 temp5_3 read-one1_0 c2_7 in3_2 l-config4_0)))" -"(if(eqv? c2_6 '#\\!)" +"(let-values(((read-one1_15) read-one_0)" +"((c2_16) c_5)" +"((in3_17) in_0)" +"((l-config4_18) l-config_9)" +"((temp5_19) #t))" +"(read-extension-lang7.1 temp5_19 read-one1_15 c2_16 in3_17 l-config4_18)))" +"(if(eqv? c2_10 '#\\!)" "(let-values()" -"(let-values(((read-one6_0) read-one_3)" -"((c7_3) c_25)" -"((in8_2) in_2)" -"((l-config9_0) l-config_0)" -"((temp10_6) #t))" -"(read-extension-#!16.1 temp10_6 read-one6_0 c7_3 in8_2 l-config9_0)))" +"(let-values(((read-one6_21) read-one_0)" +"((c7_22) c_5)" +"((in8_23) in_0)" +"((l-config9_24) l-config_9)" +"((temp10_25) #t))" +"(read-extension-#!16.1 temp10_25 read-one6_21 c7_22 in8_23 l-config9_24)))" "(let-values()" -"(if fail-k_5(fail-k_5)(lang-error in_2 l-config_0(string c_25) c2_6))))))))))))))" +"(if fail-k_0(fail-k_0)(lang-error in_0 l-config_9(string c_5) c2_10))))))))))))))" "(define-values" "(lang-error)" -"(lambda(in_51 config_54 prefix_7 c_17)" +"(lambda(in_0 config_0 prefix_0 c_0)" "(begin" -"(let-values(((add-prefix_0)" -"(lambda(s_78)" -"(begin" -" 'add-prefix" -" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_78) s_78)))))" -"(let-values(((in11_1) in_51)" -"((config12_3) config_54)" -"((c13_2) c_17)" -"((temp14_5) 'read-language)" -"((temp15_6)" +"(let-values(((add-prefix_30)" +"(lambda(s_0)" +" (begin 'add-prefix (if (string=? prefix_0 \"\") (format \"`~a` followed by ~a\" prefix_0 s_0) s_0)))))" +"(let-values(((in11_33) in_0)" +"((config12_34) config_0)" +"((c13_35) c_0)" +"((temp14_36) 'read-language)" +"((temp15_37)" "(string-append" " \"expected (after whitespace and comments) `#lang ` or `#!` followed\"" " \" immediately by a language name, found ~a\"))" -"((temp16_8)" -"(if(eof-object? c_17)" -" (let-values () (add-prefix_0 \"end-of-file\"))" -"(if(not(char? c_17))" -" (let-values () (add-prefix_0 \"non-character\"))" -" (let-values () (format \"`~a~a`\" prefix_7 c_17))))))" -"(reader-error12.1 unsafe-undefined c13_2 #f temp14_5 in11_1 config12_3 temp15_6(list temp16_8)))))))" +"((temp16_38)" +"(if(eof-object? c_0)" +" (let-values () (add-prefix_30 \"end-of-file\"))" +"(if(not(char? c_0))" +" (let-values () (add-prefix_30 \"non-character\"))" +" (let-values () (format \"`~a~a`\" prefix_0 c_0))))))" +"(reader-error12.1 unsafe-undefined c13_35 #f temp14_36 in11_33 config12_34 temp15_37(list temp16_38)))))))" "(define-values" "(read30.1)" -"(lambda(coerce12_1" -" coerce-key13_1" -" dynamic-require10_2" +"(lambda(coerce12_0" +" coerce-key13_0" +" dynamic-require10_0" " for-syntax?8_0" " init-c2_0" -" keep-comment?14_1" +" keep-comment?14_0" " local-graph?6_0" -" module-declared?11_1" +" module-declared?11_0" " next-readtable3_0" -" read-compiled9_1" +" read-compiled9_0" " readtable4_0" " recursive?5_0" " source7_0" " wrap1_0" -" in29_1)" +" in29_0)" "(begin" " 'read30" -"(let-values(((in_20) in29_1))" -"(let-values(((wrap_7) wrap1_0))" -"(let-values(((init-c_16) init-c2_0))" -"(let-values(((next-readtable_3)" +"(let-values(((in_16) in29_0))" +"(let-values(((wrap_17) wrap1_0))" +"(let-values(((init-c_18) init-c2_0))" +"(let-values(((next-readtable_19)" "(if(eq? next-readtable3_0 unsafe-undefined)(1/current-readtable) next-readtable3_0)))" -"(let-values(((readtable_3)(if(eq? readtable4_0 unsafe-undefined) next-readtable_3 readtable4_0)))" -"(let-values(((recursive?_0) recursive?5_0))" -"(let-values(((local-graph?_1) local-graph?6_0))" -"(let-values(((source_5) source7_0))" -"(let-values(((for-syntax?_9) for-syntax?8_0))" -"(let-values(((read-compiled_2) read-compiled9_1))" -"(let-values(((dynamic-require_3) dynamic-require10_2))" -"(let-values(((module-declared?_2) module-declared?11_1))" -"(let-values(((coerce_2) coerce12_1))" -"(let-values(((coerce-key_2) coerce-key13_1))" -"(let-values(((keep-comment?_3)" -"(if(eq? keep-comment?14_1 unsafe-undefined)" -" recursive?_0" -" keep-comment?14_1)))" +"(let-values(((readtable_20)(if(eq? readtable4_0 unsafe-undefined) next-readtable_19 readtable4_0)))" +"(let-values(((recursive?_21) recursive?5_0))" +"(let-values(((local-graph?_22) local-graph?6_0))" +"(let-values(((source_23) source7_0))" +"(let-values(((for-syntax?_24) for-syntax?8_0))" +"(let-values(((read-compiled_25) read-compiled9_0))" +"(let-values(((dynamic-require_26) dynamic-require10_0))" +"(let-values(((module-declared?_27) module-declared?11_0))" +"(let-values(((coerce_28) coerce12_0))" +"(let-values(((coerce-key_29) coerce-key13_0))" +"(let-values(((keep-comment?_30)" +"(if(eq? keep-comment?14_0 unsafe-undefined)" +" recursive?_21" +" keep-comment?14_0)))" "(let-values()" -"(let-values(((config_55)" -"(let-values(((c1_30)(if recursive?_0(current-read-config) #f)))" -"(if c1_30" -"((lambda(config_56)" -"(let-values(((config52_0) config_56)" -"((for-syntax?53_0) for-syntax?_9)" -"((wrap54_0) wrap_7)" -"((readtable55_0) readtable_3)" -"((next-readtable56_0) next-readtable_3)" -"((local-graph?57_0) local-graph?_1)" -"((keep-comment?58_0) keep-comment?_3))" +"(let-values(((config_31)" +"(let-values(((c1_33)(if recursive?_21(current-read-config) #f)))" +"(if c1_33" +"((lambda(config_0)" +"(let-values(((config52_36) config_0)" +"((for-syntax?53_37) for-syntax?_24)" +"((wrap54_38) wrap_17)" +"((readtable55_39) readtable_20)" +"((next-readtable56_40) next-readtable_19)" +"((local-graph?57_41) local-graph?_22)" +"((keep-comment?58_42) keep-comment?_30))" "(read-config-update42.1" -" for-syntax?53_0" -" keep-comment?58_0" -" next-readtable56_0" -" readtable55_0" -" local-graph?57_0" -" wrap54_0" -" config52_0)))" -" c1_30)" +" for-syntax?53_37" +" keep-comment?58_42" +" next-readtable56_40" +" readtable55_39" +" local-graph?57_41" +" wrap54_38" +" config52_36)))" +" c1_33)" "(let-values()" -"(let-values(((readtable59_1) readtable_3)" -"((next-readtable60_1) next-readtable_3)" -"((source61_0) source_5)" -"((for-syntax?62_0) for-syntax?_9)" -"((wrap63_0) wrap_7)" -"((read-compiled64_0) read-compiled_2)" -"((dynamic-require65_0) dynamic-require_3)" -"((module-declared?66_0) module-declared?_2)" -"((coerce67_0) coerce_2)" -"((coerce-key68_0) coerce-key_2)" -"((keep-comment?69_0) keep-comment?_3))" +"(let-values(((readtable59_44) readtable_20)" +"((next-readtable60_45) next-readtable_19)" +"((source61_46) source_23)" +"((for-syntax?62_47) for-syntax?_24)" +"((wrap63_48) wrap_17)" +"((read-compiled64_49) read-compiled_25)" +"((dynamic-require65_50) dynamic-require_26)" +"((module-declared?66_51) module-declared?_27)" +"((coerce67_52) coerce_28)" +"((coerce-key68_53) coerce-key_29)" +"((keep-comment?69_54) keep-comment?_30))" "(make-read-config26.1" -" coerce67_0" -" coerce-key68_0" -" dynamic-require65_0" -" for-syntax?62_0" -" keep-comment?69_0" -" module-declared?66_0" -" next-readtable60_1" -" read-compiled64_0" -" readtable59_1" -" source61_0" -" wrap63_0)))))))" -"(let-values(((v_35)(read-one init-c_16 in_20 config_55)))" -"(if(if(let-values(((or-part_9)(not recursive?_0)))" -"(if or-part_9 or-part_9 local-graph?_1))" -"(read-config-state-graph(read-config-st config_55))" +" coerce67_52" +" coerce-key68_53" +" dynamic-require65_50" +" for-syntax?62_47" +" keep-comment?69_54" +" module-declared?66_51" +" next-readtable60_45" +" read-compiled64_49" +" readtable59_44" +" source61_46" +" wrap63_48)))))))" +"(let-values(((v_32)(read-one init-c_18 in_16 config_31)))" +"(if(if(let-values(((or-part_55)(not recursive?_21)))" +"(if or-part_55 or-part_55 local-graph?_22))" +"(read-config-state-graph(read-config-st config_31))" " #f)" "(let-values()" "(catch-and-reraise-as-reader/proc" " #f" -" config_55" -"(lambda()(make-reader-graph v_35))))" -"(if(if recursive?_0" -"(if(not local-graph?_1)" -"(if(not for-syntax?_9)" -"(if(not(eof-object? v_35))(not(1/special-comment? v_35)) #f)" +" config_31" +"(lambda()(make-reader-graph v_32))))" +"(if(if recursive?_21" +"(if(not local-graph?_22)" +"(if(not for-syntax?_24)" +"(if(not(eof-object? v_32))(not(1/special-comment? v_32)) #f)" " #f)" " #f)" " #f)" -"(let-values()(begin(get-graph-hash config_55) v_35))" -"(let-values() v_35))))))))))))))))))))))))" +"(let-values()(begin(get-graph-hash config_31) v_32))" +"(let-values() v_32))))))))))))))))))))))))" "(define-values" "(read-language49.1)" "(lambda(coerce38_0" @@ -55142,165 +55418,165 @@ static const char *startup_source = " module-declared?37_0" " read-compiled35_0" " wrap34_0" -" in47_2" +" in47_0" " fail-k48_0)" "(begin" " 'read-language49" -"(let-values(((in_65) in47_2))" -"(let-values(((fail-k_6) fail-k48_0))" -"(let-values(((for-syntax?_10) for-syntax?33_0))" -"(let-values(((wrap_8) wrap34_0))" -"(let-values(((read-compiled_3) read-compiled35_0))" -"(let-values(((dynamic-require_4) dynamic-require36_0))" -"(let-values(((module-declared?_3) module-declared?37_0))" -"(let-values(((coerce_3) coerce38_0))" -"(let-values(((coerce-key_3) coerce-key39_0))" +"(let-values(((in_157) in47_0))" +"(let-values(((fail-k_158) fail-k48_0))" +"(let-values(((for-syntax?_159) for-syntax?33_0))" +"(let-values(((wrap_160) wrap34_0))" +"(let-values(((read-compiled_161) read-compiled35_0))" +"(let-values(((dynamic-require_162) dynamic-require36_0))" +"(let-values(((module-declared?_163) module-declared?37_0))" +"(let-values(((coerce_164) coerce38_0))" +"(let-values(((coerce-key_165) coerce-key39_0))" "(let-values()" -"(let-values(((config_57)" -"(let-values(((temp70_4) #f)" -"((temp71_2) #f)" -"((for-syntax?72_0) for-syntax?_10)" -"((wrap73_0) wrap_8)" -"((read-compiled74_0) read-compiled_3)" -"((dynamic-require75_0) dynamic-require_4)" -"((module-declared?76_0) module-declared?_3)" -"((coerce77_0) coerce_3)" -"((coerce-key78_0) coerce-key_3))" +"(let-values(((config_166)" +"(let-values(((temp70_169) #f)" +"((temp71_170) #f)" +"((for-syntax?72_171) for-syntax?_159)" +"((wrap73_172) wrap_160)" +"((read-compiled74_173) read-compiled_161)" +"((dynamic-require75_174) dynamic-require_162)" +"((module-declared?76_175) module-declared?_163)" +"((coerce77_176) coerce_164)" +"((coerce-key78_177) coerce-key_165))" "(make-read-config26.1" -" coerce77_0" -" coerce-key78_0" -" dynamic-require75_0" -" for-syntax?72_0" +" coerce77_176" +" coerce-key78_177" +" dynamic-require75_174" +" for-syntax?72_171" " #f" -" module-declared?76_0" -" temp71_2" -" read-compiled74_0" -" temp70_4" +" module-declared?76_175" +" temp71_170" +" read-compiled74_173" +" temp70_169" " #f" -" wrap73_0))))" -"(let-values(((l-config_1)(override-parameter 1/read-accept-reader config_57 #f)))" -"(read-language/get-info read-undotted in_65 config_57 fail-k_6))))))))))))))))" +" wrap73_172))))" +"(let-values(((l-config_167)(override-parameter 1/read-accept-reader config_166 #f)))" +"(read-language/get-info read-undotted in_157 config_166 fail-k_158))))))))))))))))" "(define-values" "(read-one)" -"(lambda(init-c_17 in_62 config_52)" +"(lambda(init-c_0 in_0 config_0)" "(begin" -"(if(not(check-parameter 1/read-cdot config_52))" -"(let-values()(read-undotted init-c_17 in_62 config_52))" -"(if(check-parameter 1/read-cdot config_52)" +"(if(not(check-parameter 1/read-cdot config_0))" +"(let-values()(read-undotted init-c_0 in_0 config_0))" +"(if(check-parameter 1/read-cdot config_0)" "(let-values()" -"(let-values(((line_11 col_10 pos_92)(port-next-location in_62)))" -"(let-values(((v_101)(read-undotted init-c_17 in_62 config_52)))" -"(if(1/special-comment? v_101)" -"(let-values() v_101)" +"(let-values(((line_234 col_235 pos_236)(port-next-location in_0)))" +"(let-values(((v_237)(read-undotted init-c_0 in_0 config_0)))" +"(if(1/special-comment? v_237)" +"(let-values() v_237)" "(let-values()" -"((letrec-values(((loop_116)" -"(lambda(v_103)" +"((letrec-values(((loop_238)" +"(lambda(v_0)" "(begin" " 'loop" -"(let-values(((c_103)" -"(let-values(((in_66) in_62)" -"((skip-count_16) 0)" -"((source_40)(read-config-source config_52)))" -"(let-values(((c_104)" +"(let-values(((c_240)" +"(let-values(((in_242) in_0)" +"((skip-count_244) 0)" +"((source_245)(read-config-source config_0)))" +"(let-values(((c_246)" "(peek-char-or-special" -" in_66" -" skip-count_16" +" in_242" +" skip-count_244" " 'special" -" source_40)))" -"(if(eq? c_104 'special)(special1.1 'special) c_104)))))" -"(let-values(((ec_9)(effective-char c_103 config_52)))" -"(if(not(char? ec_9))" -"(let-values() v_103)" -"(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_62 c_103)(loop_116 v_103)))" -"(if(char=? ec_9 '#\\.)" +" source_245)))" +"(if(eq? c_246 'special)(special1.1 'special) c_246)))))" +"(let-values(((ec_241)(effective-char c_240 config_0)))" +"(if(not(char? ec_241))" +"(let-values() v_0)" +"(if(char-whitespace? ec_241)" +"(let-values()(begin(consume-char in_0 c_240)(loop_238 v_0)))" +"(if(char=? ec_241 '#\\.)" "(let-values()" -"(let-values(((dot-line_2 dot-col_2 dot-pos_5)" -"(port-next-location in_62)))" -"(let-values((()(begin(consume-char in_62 c_103)(values))))" -"(let-values(((pos-config_0)" +"(let-values(((dot-line_247 dot-col_248 dot-pos_249)" +"(port-next-location in_0)))" +"(let-values((()(begin(consume-char in_0 c_240)(values))))" +"(let-values(((pos-config_250)" "(reading-at" -" config_52" -" dot-line_2" -" dot-col_2" -" dot-pos_5)))" -"(let-values(((cdot_0)" -"(wrap '#%dot in_62 pos-config_0 '#\\.)))" -"(let-values(((post-v_0)" -"(read-undotted #f in_62 config_52)))" +" config_0" +" dot-line_247" +" dot-col_248" +" dot-pos_249)))" +"(let-values(((cdot_251)" +"(wrap '#%dot in_0 pos-config_250 '#\\.)))" +"(let-values(((post-v_252)" +"(read-undotted #f in_0 config_0)))" "(begin" -"(if(eof-object? post-v_0)" +"(if(eof-object? post-v_252)" "(let-values()" -"(let-values(((in79_0) in_62)" -"((pos-config80_0) pos-config_0)" -"((eof81_0) eof)" -"((temp82_2)" +"(let-values(((in79_254) in_0)" +"((pos-config80_255) pos-config_250)" +"((eof81_256) eof)" +"((temp82_257)" " \"expected a datum after cdot, found end-of-file\"))" "(reader-error12.1" " unsafe-undefined" -" eof81_0" +" eof81_256" " #f" " unsafe-undefined" -" in79_0" -" pos-config80_0" -" temp82_2" +" in79_254" +" pos-config80_255" +" temp82_257" "(list))))" "(void))" -"(loop_116" +"(loop_238" "(wrap" -"(list cdot_0 v_103 post-v_0)" -" in_62" -"(reading-at config_52 line_11 col_10 pos_92)" +"(list cdot_251 v_0 post-v_252)" +" in_0" +"(reading-at config_0 line_234 col_235 pos_236)" " '#\\.)))))))))" -"(let-values() v_103))))))))))" -" loop_116)" -" v_101))))))" +"(let-values() v_0))))))))))" +" loop_238)" +" v_237))))))" "(void))))))" "(define-values" "(read-undotted)" -"(lambda(init-c_18 in_67 config_58)" +"(lambda(init-c_0 in_0 config_0)" "(begin" -"(let-values(((c_31)(read-char/skip-whitespace-and-comments init-c_18 read-one in_67 config_58)))" -"(let-values(((line_12 col_11 pos_121)(port-next-location* in_67 c_31)))" -"(if(eof-object? c_31)" +"(let-values(((c_261)(read-char/skip-whitespace-and-comments init-c_0 read-one in_0 config_0)))" +"(let-values(((line_262 col_263 pos_264)(port-next-location* in_0 c_261)))" +"(if(eof-object? c_261)" "(let-values() eof)" -"(if(not(char? c_31))" +"(if(not(char? c_261))" "(let-values()" -"(let-values(((v_241)(special-value c_31)))" -"(if(1/special-comment? v_241)" -"(let-values()(if(read-config-keep-comment? config_58) v_241(read-undotted #f in_67 config_58)))" -"(let-values()(coerce v_241 in_67(reading-at config_58 line_12 col_11 pos_121))))))" -"(let-values(((c2_8)(readtable-handler config_58 c_31)))" -"(if c2_8" -"((lambda(handler_3)" -"(let-values(((v_242)(readtable-apply handler_3 c_31 in_67 config_58 line_12 col_11 pos_121)))" -"(retry-special-comment v_242 in_67 config_58)))" -" c2_8)" +"(let-values(((v_265)(special-value c_261)))" +"(if(1/special-comment? v_265)" +"(let-values()(if(read-config-keep-comment? config_0) v_265(read-undotted #f in_0 config_0)))" +"(let-values()(coerce v_265 in_0(reading-at config_0 line_262 col_263 pos_264))))))" +"(let-values(((c2_266)(readtable-handler config_0 c_261)))" +"(if c2_266" +"((lambda(handler_0)" +"(let-values(((v_268)(readtable-apply handler_0 c_261 in_0 config_0 line_262 col_263 pos_264)))" +"(retry-special-comment v_268 in_0 config_0)))" +" c2_266)" "(let-values()" -"(let-values(((ec_10)(effective-char c_31 config_58)))" +"(let-values(((ec_269)(effective-char c_261 config_0)))" "(let-values((()" "(begin" -"(if(not(char-closer? ec_10 config_58))" -"(let-values()(track-indentation! config_58 line_12 col_11))" +"(if(not(char-closer? ec_269 config_0))" +"(let-values()(track-indentation! config_0 line_262 col_263))" "(void))" "(values))))" -"(let-values(((r-config_0)(reading-at(discard-comment config_58) line_12 col_11 pos_121)))" -"(let-values(((tmp_57) ec_10))" -"(let-values(((index_4)" -"(if(char? tmp_57)" -"(let-values(((codepoint_2)(char->integer tmp_57)))" -"(if(if(unsafe-fx>= codepoint_2 34)(unsafe-fx< codepoint_2 126) #f)" -"(if(unsafe-fx< codepoint_2 91)" -"(if(unsafe-fx< codepoint_2 40)" -"(let-values(((tbl_2) '#(11 1 0 0 0 2)))" -"(unsafe-vector*-ref tbl_2(unsafe-fx- codepoint_2 34)))" -"(if(unsafe-fx< codepoint_2 42)" -"(let-values(((tbl_3) '#(5 6)))" -"(unsafe-vector*-ref tbl_3(unsafe-fx- codepoint_2 40)))" -"(if(unsafe-fx< codepoint_2 44)" +"(let-values(((r-config_270)(reading-at(discard-comment config_0) line_262 col_263 pos_264)))" +"(let-values(((tmp_287) ec_269))" +"(let-values(((index_288)" +"(if(char? tmp_287)" +"(let-values(((codepoint_289)(char->integer tmp_287)))" +"(if(if(unsafe-fx>= codepoint_289 34)(unsafe-fx< codepoint_289 126) #f)" +"(if(unsafe-fx< codepoint_289 91)" +"(if(unsafe-fx< codepoint_289 40)" +"(let-values(((tbl_290) '#(11 1 0 0 0 2)))" +"(unsafe-vector*-ref tbl_290(unsafe-fx- codepoint_289 34)))" +"(if(unsafe-fx< codepoint_289 42)" +"(let-values(((tbl_291) '#(5 6)))" +"(unsafe-vector*-ref tbl_291(unsafe-fx- codepoint_289 40)))" +"(if(unsafe-fx< codepoint_289 44)" " 0" -"(if(unsafe-fx< codepoint_2 45) 4 0))))" -"(let-values(((tbl_4)" +"(if(unsafe-fx< codepoint_289 45) 4 0))))" +"(let-values(((tbl_292)" " '#(7" " 0" " 8" @@ -55336,389 +55612,389 @@ static const char *startup_source = " 9" " 12" " 10)))" -"(unsafe-vector*-ref tbl_4(unsafe-fx- codepoint_2 91))))" +"(unsafe-vector*-ref tbl_292(unsafe-fx- codepoint_289 91))))" " 0))" " 0)))" -"(if(unsafe-fx< index_4 6)" -"(if(unsafe-fx< index_4 2)" -"(if(unsafe-fx< index_4 1)" +"(if(unsafe-fx< index_288 6)" +"(if(unsafe-fx< index_288 2)" +"(if(unsafe-fx< index_288 1)" "(let-values()" -"(let-values(((v_243)" -"(let-values(((c83_0) c_31)" -"((in84_1) in_67)" -"((r-config85_0) r-config_0)" -"((temp86_3)" -"(if(let-values(((or-part_280)(eq? c_31 ec_10)))" -"(if or-part_280" -" or-part_280" -"(if(<(char->integer ec_10) 128)" -"(char-numeric? ec_10)" +"(let-values(((v_293)" +"(let-values(((c83_295) c_261)" +"((in84_296) in_0)" +"((r-config85_297) r-config_270)" +"((temp86_298)" +"(if(let-values(((or-part_299)(eq? c_261 ec_269)))" +"(if or-part_299" +" or-part_299" +"(if(<(char->integer ec_269) 128)" +"(char-numeric? ec_269)" " #f)))" " 'symbol-or-number" " 'symbol/indirect)))" "(read-symbol-or-number8.1" " #f" -" temp86_3" -" c83_0" -" in84_1" -" r-config85_0))))" -"(retry-special-comment v_243 in_67 config_58)))" -"(let-values()(read-dispatch c_31 in_67 r-config_0 config_58)))" -"(if(unsafe-fx< index_4 3)" -" (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_31 in_67 r-config_0))" -"(if(unsafe-fx< index_4 4)" +" temp86_298" +" c83_295" +" in84_296" +" r-config85_297))))" +"(retry-special-comment v_293 in_0 config_0)))" +"(let-values()(read-dispatch c_261 in_0 r-config_270 config_0)))" +"(if(unsafe-fx< index_288 3)" +" (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_261 in_0 r-config_270))" +"(if(unsafe-fx< index_288 4)" "(let-values()" -"(if(check-parameter 1/read-accept-quasiquote config_58)" +"(if(check-parameter 1/read-accept-quasiquote config_0)" "(let-values()" "(read-quote" " read-one" " 'quasiquote" " \"quasiquoting \\\"`\\\"\"" -" c_31" -" in_67" -" r-config_0))" +" c_261" +" in_0" +" r-config_270))" "(let-values()" -"(let-values(((in87_0) in_67)" -"((r-config88_0) r-config_0)" -" ((temp89_3) \"illegal use of `~a`\")" -"((c90_0) c_31))" +"(let-values(((in87_300) in_0)" +"((r-config88_301) r-config_270)" +" ((temp89_302) \"illegal use of `~a`\")" +"((c90_303) c_261))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in87_0" -" r-config88_0" -" temp89_3" -"(list c90_0))))))" -"(if(unsafe-fx< index_4 5)" +" in87_300" +" r-config88_301" +" temp89_302" +"(list c90_303))))))" +"(if(unsafe-fx< index_288 5)" "(let-values()" -"(if(check-parameter 1/read-accept-quasiquote config_58)" +"(if(check-parameter 1/read-accept-quasiquote config_0)" "(let-values()" -"(let-values(((c2_9)" -"(let-values(((in_68) in_67)" -"((skip-count_17) 0)" -"((source_42)(read-config-source config_58)))" -"(let-values(((c_105)" +"(let-values(((c2_304)" +"(let-values(((in_305) in_0)" +"((skip-count_307) 0)" +"((source_308)(read-config-source config_0)))" +"(let-values(((c_309)" "(peek-char-or-special" -" in_68" -" skip-count_17" +" in_305" +" skip-count_307" " 'special" -" source_42)))" -"(if(eq? c_105 'special)" +" source_308)))" +"(if(eq? c_309 'special)" "(special1.1 'special)" -" c_105)))))" -"(if(eqv? c2_9 '#\\@)" +" c_309)))))" +"(if(eqv? c2_304 '#\\@)" "(begin" -"(consume-char in_67 c2_9)" +"(consume-char in_0 c2_304)" "(read-quote" " read-one" " 'unquote-splicing" " \"unquoting `,@`\"" -" c_31" -" in_67" -" r-config_0))" +" c_261" +" in_0" +" r-config_270))" "(read-quote" " read-one" " 'unquote" " \"unquoting `,`\"" -" c_31" -" in_67" -" r-config_0))))" +" c_261" +" in_0" +" r-config_270))))" "(let-values()" -"(let-values(((in91_0) in_67)" -"((r-config92_0) r-config_0)" -" ((temp93_2) \"illegal use of `~a`\")" -"((c94_1) c_31))" +"(let-values(((in91_310) in_0)" +"((r-config92_311) r-config_270)" +" ((temp93_312) \"illegal use of `~a`\")" +"((c94_313) c_261))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in91_0" -" r-config92_0" -" temp93_2" -"(list c94_1))))))" +" in91_310" +" r-config92_311" +" temp93_312" +"(list c94_313))))))" "(let-values()" "(wrap" -"(let-values(((read-one95_0) read-one)" -"((ec96_0) ec_10)" -"((temp97_2) '#\\()" -"((temp98_3) '#\\))" -"((in99_0) in_67)" -"((r-config100_0) r-config_0)" -"((temp101_0) #t))" +"(let-values(((read-one95_315) read-one)" +"((ec96_316) ec_269)" +"((temp97_317) '#\\()" +"((temp98_318) '#\\))" +"((in99_319) in_0)" +"((r-config100_320) r-config_270)" +"((temp101_321) #t))" "(read-unwrapped-sequence17.1" " 'all" " unsafe-undefined" " unsafe-undefined" -" temp101_0" +" temp101_321" " unsafe-undefined" -" read-one95_0" -" ec96_0" -" temp97_2" -" temp98_3" -" in99_0" -" r-config100_0))" -" in_67" -" r-config_0" -" ec_10))))))" -"(if(unsafe-fx< index_4 9)" -"(if(unsafe-fx< index_4 7)" +" read-one95_315" +" ec96_316" +" temp97_317" +" temp98_318" +" in99_319" +" r-config100_320))" +" in_0" +" r-config_270" +" ec_269))))))" +"(if(unsafe-fx< index_288 9)" +"(if(unsafe-fx< index_288 7)" "(let-values()" -"(let-values(((in102_0) in_67)" -"((r-config103_0) r-config_0)" -" ((temp104_2) \"~a\")" -"((temp105_3)" -"(indentation-unexpected-closer-message ec_10 c_31 r-config_0)))" +"(let-values(((in102_322) in_0)" +"((r-config103_323) r-config_270)" +" ((temp104_324) \"~a\")" +"((temp105_325)" +"(indentation-unexpected-closer-message ec_269 c_261 r-config_270)))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in102_0" -" r-config103_0" -" temp104_2" -"(list temp105_3))))" -"(if(unsafe-fx< index_4 8)" +" in102_322" +" r-config103_323" +" temp104_324" +"(list temp105_325))))" +"(if(unsafe-fx< index_288 8)" "(let-values()" -"(if(let-values(((or-part_363)" -"(check-parameter 1/read-square-bracket-as-paren config_58)))" -"(if or-part_363" -" or-part_363" -"(check-parameter 1/read-square-bracket-with-tag config_58)))" +"(if(let-values(((or-part_326)" +"(check-parameter 1/read-square-bracket-as-paren config_0)))" +"(if or-part_326" +" or-part_326" +"(check-parameter 1/read-square-bracket-with-tag config_0)))" "(let-values()" "(wrap" -"(let-values(((read-one106_0) read-one)" -"((ec107_0) ec_10)" -"((temp108_2) '#\\[)" -"((temp109_1) '#\\])" -"((in110_0) in_67)" -"((r-config111_0) r-config_0)" -"((temp112_2) #t))" +"(let-values(((read-one106_328) read-one)" +"((ec107_329) ec_269)" +"((temp108_330) '#\\[)" +"((temp109_331) '#\\])" +"((in110_332) in_0)" +"((r-config111_333) r-config_270)" +"((temp112_334) #t))" "(read-unwrapped-sequence17.1" " 'all" " unsafe-undefined" " unsafe-undefined" -" temp112_2" +" temp112_334" " unsafe-undefined" -" read-one106_0" -" ec107_0" -" temp108_2" -" temp109_1" -" in110_0" -" r-config111_0))" -" in_67" -" r-config_0" -" ec_10))" +" read-one106_328" +" ec107_329" +" temp108_330" +" temp109_331" +" in110_332" +" r-config111_333))" +" in_0" +" r-config_270" +" ec_269))" "(let-values()" -"(let-values(((in113_1) in_67)" -"((r-config114_0) r-config_0)" -" ((temp115_0) \"illegal use of `~a`\")" -"((c116_0) c_31))" +"(let-values(((in113_335) in_0)" +"((r-config114_336) r-config_270)" +" ((temp115_337) \"illegal use of `~a`\")" +"((c116_338) c_261))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in113_1" -" r-config114_0" -" temp115_0" -"(list c116_0))))))" +" in113_335" +" r-config114_336" +" temp115_337" +"(list c116_338))))))" "(let-values()" -"(if(let-values(((or-part_94)" -"(check-parameter 1/read-square-bracket-as-paren config_58)))" -"(if or-part_94" -" or-part_94" -"(check-parameter 1/read-square-bracket-with-tag config_58)))" +"(if(let-values(((or-part_339)" +"(check-parameter 1/read-square-bracket-as-paren config_0)))" +"(if or-part_339" +" or-part_339" +"(check-parameter 1/read-square-bracket-with-tag config_0)))" "(let-values()" -"(let-values(((in117_0) in_67)" -"((r-config118_0) r-config_0)" -" ((temp119_2) \"~a\")" -"((temp120_3)" +"(let-values(((in117_340) in_0)" +"((r-config118_341) r-config_270)" +" ((temp119_342) \"~a\")" +"((temp120_343)" "(indentation-unexpected-closer-message" -" ec_10" -" c_31" -" r-config_0)))" +" ec_269" +" c_261" +" r-config_270)))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in117_0" -" r-config118_0" -" temp119_2" -"(list temp120_3))))" +" in117_340" +" r-config118_341" +" temp119_342" +"(list temp120_343))))" "(let-values()" -"(let-values(((in121_0) in_67)" -"((r-config122_0) r-config_0)" -" ((temp123_2) \"illegal use of `~a`\")" -"((c124_0) c_31))" +"(let-values(((in121_344) in_0)" +"((r-config122_345) r-config_270)" +" ((temp123_346) \"illegal use of `~a`\")" +"((c124_347) c_261))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in121_0" -" r-config122_0" -" temp123_2" -"(list c124_0))))))))" -"(if(unsafe-fx< index_4 10)" +" in121_344" +" r-config122_345" +" temp123_346" +"(list c124_347))))))))" +"(if(unsafe-fx< index_288 10)" "(let-values()" -"(if(let-values(((or-part_364)" -"(check-parameter 1/read-curly-brace-as-paren config_58)))" -"(if or-part_364" -" or-part_364" -"(check-parameter 1/read-curly-brace-with-tag config_58)))" +"(if(let-values(((or-part_348)" +"(check-parameter 1/read-curly-brace-as-paren config_0)))" +"(if or-part_348" +" or-part_348" +"(check-parameter 1/read-curly-brace-with-tag config_0)))" "(let-values()" "(wrap" -"(let-values(((read-one125_0) read-one)" -"((ec126_0) ec_10)" -"((temp127_4) '#\\{)" -"((temp128_3) '#\\})" -"((in129_0) in_67)" -"((r-config130_0) r-config_0)" -"((temp131_1) #t))" +"(let-values(((read-one125_350) read-one)" +"((ec126_351) ec_269)" +"((temp127_352) '#\\{)" +"((temp128_353) '#\\})" +"((in129_354) in_0)" +"((r-config130_355) r-config_270)" +"((temp131_356) #t))" "(read-unwrapped-sequence17.1" " 'all" " unsafe-undefined" " unsafe-undefined" -" temp131_1" +" temp131_356" " unsafe-undefined" -" read-one125_0" -" ec126_0" -" temp127_4" -" temp128_3" -" in129_0" -" r-config130_0))" -" in_67" -" r-config_0" -" ec_10))" +" read-one125_350" +" ec126_351" +" temp127_352" +" temp128_353" +" in129_354" +" r-config130_355))" +" in_0" +" r-config_270" +" ec_269))" "(let-values()" -"(let-values(((in132_0) in_67)" -"((r-config133_0) r-config_0)" -" ((temp134_2) \"illegal use of `~a`\")" -"((c135_0) c_31))" +"(let-values(((in132_357) in_0)" +"((r-config133_358) r-config_270)" +" ((temp134_359) \"illegal use of `~a`\")" +"((c135_360) c_261))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in132_0" -" r-config133_0" -" temp134_2" -"(list c135_0))))))" -"(if(unsafe-fx< index_4 11)" +" in132_357" +" r-config133_358" +" temp134_359" +"(list c135_360))))))" +"(if(unsafe-fx< index_288 11)" "(let-values()" -"(if(let-values(((or-part_306)" -"(check-parameter 1/read-curly-brace-as-paren config_58)))" -"(if or-part_306" -" or-part_306" -"(check-parameter 1/read-curly-brace-with-tag config_58)))" +"(if(let-values(((or-part_361)" +"(check-parameter 1/read-curly-brace-as-paren config_0)))" +"(if or-part_361" +" or-part_361" +"(check-parameter 1/read-curly-brace-with-tag config_0)))" "(let-values()" -"(let-values(((in136_0) in_67)" -"((r-config137_0) r-config_0)" -" ((temp138_1) \"~a\")" -"((temp139_1)" +"(let-values(((in136_362) in_0)" +"((r-config137_363) r-config_270)" +" ((temp138_364) \"~a\")" +"((temp139_365)" "(indentation-unexpected-closer-message" -" ec_10" -" c_31" -" r-config_0)))" +" ec_269" +" c_261" +" r-config_270)))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in136_0" -" r-config137_0" -" temp138_1" -"(list temp139_1))))" +" in136_362" +" r-config137_363" +" temp138_364" +"(list temp139_365))))" "(let-values()" -"(let-values(((in140_0) in_67)" -"((r-config141_0) r-config_0)" -" ((temp142_1) \"illegal use of `~a`\")" -"((c143_0) c_31))" +"(let-values(((in140_366) in_0)" +"((r-config141_367) r-config_270)" +" ((temp142_368) \"illegal use of `~a`\")" +"((c143_369) c_261))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in140_0" -" r-config141_0" -" temp142_1" -"(list c143_0))))))" -"(if(unsafe-fx< index_4 12)" +" in140_366" +" r-config141_367" +" temp142_368" +"(list c143_369))))))" +"(if(unsafe-fx< index_288 12)" "(let-values()" -"(let-values(((in144_0) in_67)((r-config145_0) r-config_0))" -"(read-string5.1 'string in144_0 r-config145_0)))" +"(let-values(((in144_370) in_0)((r-config145_371) r-config_270))" +"(read-string5.1 'string in144_370 r-config145_371)))" "(let-values()" -"(let-values(((c146_0) c_31)" -"((in147_0) in_67)" -"((r-config148_0) r-config_0)" -"((temp149_1) 'symbol))" +"(let-values(((c146_373) c_261)" +"((in147_374) in_0)" +"((r-config148_375) r-config_270)" +"((temp149_376) 'symbol))" "(read-symbol-or-number8.1" " #f" -" temp149_1" -" c146_0" -" in147_0" -" r-config148_0)))))))))))))))))))))))" +" temp149_376" +" c146_373" +" in147_374" +" r-config148_375)))))))))))))))))))))))" "(define-values" "(read-dispatch)" -"(lambda(dispatch-c_5 in_69 config_59 orig-config_1)" +"(lambda(dispatch-c_0 in_0 config_0 orig-config_0)" "(begin" -"(let-values(((c_106)" -"(let-values(((in_70) in_69)((source_43)(read-config-source config_59)))" -"(read-char-or-special in_70 special1.1 source_43))))" -"(if(eof-object? c_106)" +"(let-values(((c_381)" +"(let-values(((in_382) in_0)((source_384)(read-config-source config_0)))" +"(read-char-or-special in_382 special1.1 source_384))))" +"(if(eof-object? c_381)" "(let-values()" -"(let-values(((in150_0) in_69)" -"((config151_0) config_59)" -"((c152_0) c_106)" -" ((temp153_1) \"bad syntax `~a`\")" -"((dispatch-c154_0) dispatch-c_5))" +"(let-values(((in150_386) in_0)" +"((config151_387) config_0)" +"((c152_388) c_381)" +" ((temp153_389) \"bad syntax `~a`\")" +"((dispatch-c154_390) dispatch-c_0))" "(reader-error12.1" " unsafe-undefined" -" c152_0" +" c152_388" " #f" " unsafe-undefined" -" in150_0" -" config151_0" -" temp153_1" -"(list dispatch-c154_0))))" -"(if(not(char? c_106))" +" in150_386" +" config151_387" +" temp153_389" +"(list dispatch-c154_390))))" +"(if(not(char? c_381))" "(let-values()" -"(let-values(((in155_0) in_69)" -"((config156_0) config_59)" -"((c157_0) c_106)" -" ((temp158_0) \"bad syntax `~a`\")" -"((dispatch-c159_0) dispatch-c_5))" +"(let-values(((in155_392) in_0)" +"((config156_393) config_0)" +"((c157_394) c_381)" +" ((temp158_395) \"bad syntax `~a`\")" +"((dispatch-c159_396) dispatch-c_0))" "(reader-error12.1" " unsafe-undefined" -" c157_0" +" c157_394" " #f" " unsafe-undefined" -" in155_0" -" config156_0" -" temp158_0" -"(list dispatch-c159_0))))" -"(let-values(((c3_9)(readtable-dispatch-handler orig-config_1 c_106)))" -"(if c3_9" -"((lambda(handler_4)" -"(let-values(((line_13)(read-config-line config_59)))" -"(let-values(((col_12)(read-config-col config_59)))" -"(let-values(((pos_122)(read-config-pos config_59)))" -"(let-values(((v_244)" -"(readtable-apply handler_4 c_106 in_69 config_59 line_13 col_12 pos_122)))" -"(retry-special-comment v_244 in_69 orig-config_1))))))" -" c3_9)" +" in155_392" +" config156_393" +" temp158_395" +"(list dispatch-c159_396))))" +"(let-values(((c3_397)(readtable-dispatch-handler orig-config_0 c_381)))" +"(if c3_397" +"((lambda(handler_0)" +"(let-values(((line_399)(read-config-line config_0)))" +"(let-values(((col_400)(read-config-col config_0)))" +"(let-values(((pos_401)(read-config-pos config_0)))" +"(let-values(((v_402)" +"(readtable-apply handler_0 c_381 in_0 config_0 line_399 col_400 pos_401)))" +"(retry-special-comment v_402 in_0 orig-config_0))))))" +" c3_397)" "(let-values()" "(let-values()" -"(let-values(((tmp_58) c_106))" -"(let-values(((index_5)" -"(if(char? tmp_58)" -"(let-values(((codepoint_3)(char->integer tmp_58)))" -"(if(if(unsafe-fx>= codepoint_3 33)(unsafe-fx< codepoint_3 127) #f)" -"(let-values(((tbl_5)" +"(let-values(((tmp_422) c_381))" +"(let-values(((index_423)" +"(if(char? tmp_422)" +"(let-values(((codepoint_424)(char->integer tmp_422)))" +"(if(if(unsafe-fx>= codepoint_424 33)(unsafe-fx< codepoint_424 127) #f)" +"(let-values(((tbl_425)" " '#(34" " 11" " 0" @@ -55813,933 +56089,938 @@ static const char *startup_source = " 0" " 0" " 35)))" -"(unsafe-vector*-ref tbl_5(unsafe-fx- codepoint_3 33)))" +"(unsafe-vector*-ref tbl_425(unsafe-fx- codepoint_424 33)))" " 0))" " 0)))" -"(if(unsafe-fx< index_5 17)" -"(if(unsafe-fx< index_5 8)" -"(if(unsafe-fx< index_5 3)" -"(if(unsafe-fx< index_5 1)" +"(if(unsafe-fx< index_423 17)" +"(if(unsafe-fx< index_423 8)" +"(if(unsafe-fx< index_423 3)" +"(if(unsafe-fx< index_423 1)" "(let-values()" -"(let-values(((in160_0) in_69)" -"((config161_0) config_59)" -" ((temp162_2) \"bad syntax `~a~a`\")" -"((dispatch-c163_0) dispatch-c_5)" -"((c164_0) c_106))" +"(let-values(((in160_426) in_0)" +"((config161_427) config_0)" +" ((temp162_428) \"bad syntax `~a~a`\")" +"((dispatch-c163_429) dispatch-c_0)" +"((c164_430) c_381))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in160_0" -" config161_0" -" temp162_2" -"(list dispatch-c163_0 c164_0))))" -"(if(unsafe-fx< index_5 2)" -"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_106 in_69 config_59))" +" in160_426" +" config161_427" +" temp162_428" +"(list dispatch-c163_429 c164_430))))" +"(if(unsafe-fx< index_423 2)" +"(let-values()(read-vector-or-graph read-one dispatch-c_0 c_381 in_0 config_0))" "(let-values()" -"(let-values(((read-one165_0) read-one)" -"((temp166_1) '#\\()" -"((temp167_0) '#\\()" -"((temp168_2) '#\\))" -"((in169_0) in_69)" -"((config170_0) config_59))" +"(let-values(((read-one165_431) read-one)" +"((temp166_432) '#\\()" +"((temp167_433) '#\\()" +"((temp168_434) '#\\))" +"((in169_435) in_0)" +"((config170_436) config_0))" "(read-vector11.1" " #f" " 'any" -" read-one165_0" -" temp166_1" -" temp167_0" -" temp168_2" -" in169_0" -" config170_0)))))" -"(if(unsafe-fx< index_5 5)" -"(if(unsafe-fx< index_5 4)" +" read-one165_431" +" temp166_432" +" temp167_433" +" temp168_434" +" in169_435" +" config170_436)))))" +"(if(unsafe-fx< index_423 5)" +"(if(unsafe-fx< index_423 4)" "(let-values()" -"(if(check-parameter 1/read-square-bracket-as-paren config_59)" +"(if(check-parameter 1/read-square-bracket-as-paren config_0)" "(let-values()" -"(let-values(((read-one171_0) read-one)" -"((temp172_1) '#\\[)" -"((temp173_1) '#\\[)" -"((temp174_0) '#\\])" -"((in175_0) in_69)" -"((config176_0) config_59))" +"(let-values(((read-one171_437) read-one)" +"((temp172_438) '#\\[)" +"((temp173_439) '#\\[)" +"((temp174_440) '#\\])" +"((in175_441) in_0)" +"((config176_442) config_0))" "(read-vector11.1" " #f" " 'any" -" read-one171_0" -" temp172_1" -" temp173_1" -" temp174_0" -" in175_0" -" config176_0)))" +" read-one171_437" +" temp172_438" +" temp173_439" +" temp174_440" +" in175_441" +" config176_442)))" "(let-values()" -"(let-values(((in177_0) in_69)" -"((config178_0) config_59)" -" ((temp179_0) (format \"~a~a\" dispatch-c_5 c_106)))" -"(bad-syntax-error20.1 '#\\x in177_0 config178_0 temp179_0)))))" +"(let-values(((in177_443) in_0)" +"((config178_444) config_0)" +" ((temp179_445) (format \"~a~a\" dispatch-c_0 c_381)))" +"(bad-syntax-error20.1 '#\\x in177_443 config178_444 temp179_445)))))" "(let-values()" -"(if(check-parameter 1/read-curly-brace-as-paren config_59)" +"(if(check-parameter 1/read-curly-brace-as-paren config_0)" "(let-values()" -"(let-values(((read-one180_0) read-one)" -"((temp181_0) '#\\{)" -"((temp182_0) '#\\{)" -"((temp183_0) '#\\})" -"((in184_0) in_69)" -"((config185_0) config_59))" +"(let-values(((read-one180_446) read-one)" +"((temp181_447) '#\\{)" +"((temp182_448) '#\\{)" +"((temp183_449) '#\\})" +"((in184_450) in_0)" +"((config185_451) config_0))" "(read-vector11.1" " #f" " 'any" -" read-one180_0" -" temp181_0" -" temp182_0" -" temp183_0" -" in184_0" -" config185_0)))" +" read-one180_446" +" temp181_447" +" temp182_448" +" temp183_449" +" in184_450" +" config185_451)))" "(let-values()" -"(let-values(((in186_0) in_69)" -"((config187_0) config_59)" -" ((temp188_0) (format \"~a~a\" dispatch-c_5 c_106)))" -"(bad-syntax-error20.1 '#\\x in186_0 config187_0 temp188_0))))))" -"(if(unsafe-fx< index_5 6)" -"(let-values()(read-struct read-one dispatch-c_5 in_69 config_59))" -"(if(unsafe-fx< index_5 7)" -"(let-values()(read-box read-one dispatch-c_5 in_69 config_59))" -" (let-values () (read-quote read-one 'syntax \"quoting #'\" c_106 in_69 config_59))))))" -"(if(unsafe-fx< index_5 12)" -"(if(unsafe-fx< index_5 9)" +"(let-values(((in186_452) in_0)" +"((config187_453) config_0)" +" ((temp188_454) (format \"~a~a\" dispatch-c_0 c_381)))" +"(bad-syntax-error20.1 '#\\x in186_452 config187_453 temp188_454))))))" +"(if(unsafe-fx< index_423 6)" +"(let-values()(read-struct read-one dispatch-c_0 in_0 config_0))" +"(if(unsafe-fx< index_423 7)" +"(let-values()(read-box read-one dispatch-c_0 in_0 config_0))" +" (let-values () (read-quote read-one 'syntax \"quoting #'\" c_381 in_0 config_0))))))" +"(if(unsafe-fx< index_423 12)" +"(if(unsafe-fx< index_423 9)" +" (let-values () (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_381 in_0 config_0))" +"(if(unsafe-fx< index_423 10)" "(let-values()" -" (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_106 in_69 config_59))" -"(if(unsafe-fx< index_5 10)" -"(let-values()" -"(let-values(((c2_10)" -"(let-values(((in_71) in_69)" -"((skip-count_18) 0)" -"((source_44)(read-config-source config_59)))" -"(let-values(((c_107)" +"(let-values(((c2_455)" +"(let-values(((in_456) in_0)" +"((skip-count_458) 0)" +"((source_459)(read-config-source config_0)))" +"(let-values(((c_460)" "(peek-char-or-special" -" in_71" -" skip-count_18" +" in_456" +" skip-count_458" " 'special" -" source_44)))" -"(if(eq? c_107 'special)(special1.1 'special) c_107)))))" -"(if(eqv? c2_10 '#\\@)" +" source_459)))" +"(if(eq? c_460 'special)(special1.1 'special) c_460)))))" +"(if(eqv? c2_455 '#\\@)" "(begin" -"(consume-char in_69 c2_10)" -"(read-quote" -" read-one" -" 'unsyntax-splicing" -" \"unquoting #,@\"" -" c_106" -" in_69" -" config_59))" -" (read-quote read-one 'unsyntax \"unquoting #,\" c_106 in_69 config_59))))" -"(if(unsafe-fx< index_5 11)" -"(let-values()(read-character in_69 config_59))" +"(consume-char in_0 c2_455)" +" (read-quote read-one 'unsyntax-splicing \"unquoting #,@\" c_381 in_0 config_0))" +" (read-quote read-one 'unsyntax \"unquoting #,\" c_381 in_0 config_0))))" +"(if(unsafe-fx< index_423 11)" +"(let-values()(read-character in_0 config_0))" "(let-values()" -"(let-values(((in189_0) in_69)" -"((config190_0) config_59)" -"((temp191_0) '|byte string|))" -"(read-string5.1 temp191_0 in189_0 config190_0))))))" -"(if(unsafe-fx< index_5 14)" -"(if(unsafe-fx< index_5 13)" +"(let-values(((in189_462) in_0)" +"((config190_463) config_0)" +"((temp191_464) '|byte string|))" +"(read-string5.1 temp191_464 in189_462 config190_463))))))" +"(if(unsafe-fx< index_423 14)" +"(if(unsafe-fx< index_423 13)" "(let-values()" -"(let-values(((c2_11)" -"(let-values(((in_72) in_69)" -"((skip-count_19) 0)" -"((source_45)(read-config-source config_59)))" -"(let-values(((c_108)" +"(let-values(((c2_465)" +"(let-values(((in_466) in_0)" +"((skip-count_468) 0)" +"((source_469)(read-config-source config_0)))" +"(let-values(((c_470)" "(peek-char-or-special" -" in_72" -" skip-count_19" +" in_466" +" skip-count_468" " 'special" -" source_45)))" -"(if(eq? c_108 'special)(special1.1 'special) c_108)))))" -"(if(eqv? '#\\< c2_11)" +" source_469)))" +"(if(eq? c_470 'special)(special1.1 'special) c_470)))))" +"(if(eqv? '#\\< c2_465)" "(let-values()" -"(begin(consume-char in_69 '#\\<)(read-here-string in_69 config_59)))" +"(begin(consume-char in_0 '#\\<)(read-here-string in_0 config_0)))" "(let-values()" -"(let-values(((in192_0) in_69)" -"((config193_0) config_59)" -"((c2194_0) c2_11)" -" ((temp195_0) \"bad syntax `~a<`\")" -"((dispatch-c196_0) dispatch-c_5))" +"(let-values(((in192_472) in_0)" +"((config193_473) config_0)" +"((c2194_474) c2_465)" +" ((temp195_475) \"bad syntax `~a<`\")" +"((dispatch-c196_476) dispatch-c_0))" "(reader-error12.1" " unsafe-undefined" -" c2194_0" +" c2194_474" " #f" " unsafe-undefined" -" in192_0" -" config193_0" -" temp195_0" -"(list dispatch-c196_0)))))))" +" in192_472" +" config193_473" +" temp195_475" +"(list dispatch-c196_476)))))))" "(let-values()" -"(let-values(((c197_0) c_106)" -"((in198_0) in_69)" -"((config199_0) config_59)" -"((dispatch-c200_0) dispatch-c_5)" -"((temp201_1) 'symbol))" -"(read-symbol-or-number8.1 dispatch-c200_0 temp201_1 c197_0 in198_0 config199_0))))" -"(if(unsafe-fx< index_5 15)" +"(let-values(((c197_478) c_381)" +"((in198_479) in_0)" +"((config199_480) config_0)" +"((dispatch-c200_481) dispatch-c_0)" +"((temp201_482) 'symbol))" +"(read-symbol-or-number8.1" +" dispatch-c200_481" +" temp201_482" +" c197_478" +" in198_479" +" config199_480))))" +"(if(unsafe-fx< index_423 15)" "(let-values()" -"(let-values(((temp202_0) #f)" -"((in203_0) in_69)" -"((config204_0) config_59)" -"((temp205_0) 'keyword))" -"(read-symbol-or-number8.1 #f temp205_0 temp202_0 in203_0 config204_0)))" -"(if(unsafe-fx< index_5 16)" +"(let-values(((temp202_484) #f)" +"((in203_485) in_0)" +"((config204_486) config_0)" +"((temp205_487) 'keyword))" +"(read-symbol-or-number8.1 #f temp205_487 temp202_484 in203_485 config204_486)))" +"(if(unsafe-fx< index_423 16)" "(let-values()" -"(let-values(((c2_12)" -"(let-values(((in_73) in_69)" -"((skip-count_20) 0)" -"((source_46)(read-config-source config_59)))" -"(let-values(((c_109)" +"(let-values(((c2_488)" +"(let-values(((in_489) in_0)" +"((skip-count_491) 0)" +"((source_492)(read-config-source config_0)))" +"(let-values(((c_493)" "(peek-char-or-special" -" in_73" -" skip-count_20" +" in_489" +" skip-count_491" " 'special" -" source_46)))" -"(if(eq? c_109 'special)(special1.1 'special) c_109)))))" -"(if(char-delimiter? c2_12 config_59)" -"(let-values()(wrap #t in_69 config_59 c_106))" +" source_492)))" +"(if(eq? c_493 'special)(special1.1 'special) c_493)))))" +"(if(char-delimiter? c2_488 config_0)" +"(let-values()(wrap #t in_0 config_0 c_381))" "(let-values()" "(read-delimited-constant" -" c_106" -"(char=? c_106 '#\\t)" +" c_381" +"(char=? c_381 '#\\t)" " '(#\\r #\\u #\\e)" " #t" -" in_69" -" config_59)))))" +" in_0" +" config_0)))))" "(let-values()" -"(let-values(((c2_13)" -"(let-values(((in_74) in_69)" -"((skip-count_21) 0)" -"((source_47)(read-config-source config_59)))" -"(let-values(((c_110)" +"(let-values(((c2_494)" +"(let-values(((in_495) in_0)" +"((skip-count_497) 0)" +"((source_498)(read-config-source config_0)))" +"(let-values(((c_499)" "(peek-char-or-special" -" in_74" -" skip-count_21" +" in_495" +" skip-count_497" " 'special" -" source_47)))" -"(if(eq? c_110 'special)(special1.1 'special) c_110)))))" -"(if(char-delimiter? c2_13 config_59)" -"(let-values()(wrap #f in_69 config_59 c_106))" -"(if(let-values(((or-part_365)(char=? c2_13 '#\\x)))" -"(if or-part_365 or-part_365(char=? c2_13 '#\\l)))" +" source_498)))" +"(if(eq? c_499 'special)(special1.1 'special) c_499)))))" +"(if(char-delimiter? c2_494 config_0)" +"(let-values()(wrap #f in_0 config_0 c_381))" +"(if(let-values(((or-part_500)(char=? c2_494 '#\\x)))" +"(if or-part_500 or-part_500(char=? c2_494 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" -" dispatch-c_5" -" c_106" -" c2_13" -" in_69" -" config_59))" +" dispatch-c_0" +" c_381" +" c2_494" +" in_0" +" config_0))" "(let-values()" "(read-delimited-constant" -" c_106" -"(char=? c_106 '#\\f)" +" c_381" +"(char=? c_381 '#\\f)" " '(#\\a #\\l #\\s #\\e)" " #f" -" in_69" -" config_59)))))))))))" -"(if(unsafe-fx< index_5 26)" -"(if(unsafe-fx< index_5 21)" -"(if(unsafe-fx< index_5 18)" +" in_0" +" config_0)))))))))))" +"(if(unsafe-fx< index_423 26)" +"(if(unsafe-fx< index_423 21)" +"(if(unsafe-fx< index_423 18)" "(let-values()" -"(let-values(((temp206_0) #f)" -"((in207_0) in_69)" -"((config208_0) config_59)" -" ((temp209_2) \"#e\"))" -"(read-symbol-or-number8.1 #f temp209_2 temp206_0 in207_0 config208_0)))" -"(if(unsafe-fx< index_5 19)" +"(let-values(((temp206_502) #f)" +"((in207_503) in_0)" +"((config208_504) config_0)" +" ((temp209_505) \"#e\"))" +"(read-symbol-or-number8.1 #f temp209_505 temp206_502 in207_503 config208_504)))" +"(if(unsafe-fx< index_423 19)" "(let-values()" -"(let-values(((temp210_1) #f)" -"((in211_0) in_69)" -"((config212_0) config_59)" -" ((temp213_1) \"#E\"))" -"(read-symbol-or-number8.1 #f temp213_1 temp210_1 in211_0 config212_0)))" -"(if(unsafe-fx< index_5 20)" +"(let-values(((temp210_507) #f)" +"((in211_508) in_0)" +"((config212_509) config_0)" +" ((temp213_510) \"#E\"))" +"(read-symbol-or-number8.1 #f temp213_510 temp210_507 in211_508 config212_509)))" +"(if(unsafe-fx< index_423 20)" "(let-values()" -"(let-values(((temp214_1) #f)" -"((in215_0) in_69)" -"((config216_0) config_59)" -" ((temp217_2) \"#i\"))" -"(read-symbol-or-number8.1 #f temp217_2 temp214_1 in215_0 config216_0)))" +"(let-values(((temp214_512) #f)" +"((in215_513) in_0)" +"((config216_514) config_0)" +" ((temp217_515) \"#i\"))" +"(read-symbol-or-number8.1 #f temp217_515 temp214_512 in215_513 config216_514)))" "(let-values()" -"(let-values(((temp218_0) #f)" -"((in219_0) in_69)" -"((config220_0) config_59)" -" ((temp221_2) \"#I\"))" -"(read-symbol-or-number8.1 #f temp221_2 temp218_0 in219_0 config220_0))))))" -"(if(unsafe-fx< index_5 23)" -"(if(unsafe-fx< index_5 22)" -"(let-values()" -"(let-values(((temp222_1) #f)" -"((in223_0) in_69)" -"((config224_0) config_59)" -" ((temp225_1) \"#d\"))" -"(read-symbol-or-number8.1 #f temp225_1 temp222_1 in223_0 config224_0)))" -"(let-values()" -"(let-values(((temp226_2) #f)" -"((in227_0) in_69)" -"((config228_0) config_59)" -" ((temp229_2) \"#B\"))" -"(read-symbol-or-number8.1 #f temp229_2 temp226_2 in227_0 config228_0))))" -"(if(unsafe-fx< index_5 24)" -"(let-values()" -"(let-values(((temp230_2) #f)" -"((in231_0) in_69)" -"((config232_0) config_59)" -" ((temp233_1) \"#o\"))" -"(read-symbol-or-number8.1 #f temp233_1 temp230_2 in231_0 config232_0)))" -"(if(unsafe-fx< index_5 25)" -"(let-values()" -"(let-values(((temp234_0) #f)" -"((in235_0) in_69)" -"((config236_0) config_59)" -" ((temp237_0) \"#O\"))" -"(read-symbol-or-number8.1 #f temp237_0 temp234_0 in235_0 config236_0)))" -"(let-values()" -"(let-values(((temp238_0) #f)" -"((in239_0) in_69)" -"((config240_0) config_59)" -" ((temp241_0) \"#D\"))" -"(read-symbol-or-number8.1 #f temp241_0 temp238_0 in239_0 config240_0)))))))" -"(if(unsafe-fx< index_5 30)" -"(if(unsafe-fx< index_5 27)" -"(let-values()" -"(let-values(((temp242_1) #f)" -"((in243_0) in_69)" -"((config244_0) config_59)" -" ((temp245_0) \"#b\"))" -"(read-symbol-or-number8.1 #f temp245_0 temp242_1 in243_0 config244_0)))" -"(if(unsafe-fx< index_5 28)" -"(let-values()" -"(let-values(((temp246_0) #f)" -"((in247_0) in_69)" -"((config248_0) config_59)" -" ((temp249_1) \"#x\"))" -"(read-symbol-or-number8.1 #f temp249_1 temp246_0 in247_0 config248_0)))" -"(if(unsafe-fx< index_5 29)" -"(let-values()" -"(let-values(((temp250_2) #f)" -"((in251_0) in_69)" -"((config252_0) config_59)" -" ((temp253_0) \"#X\"))" -"(read-symbol-or-number8.1 #f temp253_0 temp250_2 in251_0 config252_0)))" -"(let-values()" -"(let-values(((c2_14)" -"(let-values(((in_75) in_69)" -"((source_48)(read-config-source config_59)))" -"(read-char-or-special in_75 special1.1 source_48))))" -"(let-values(((tmp_1) c2_14))" -"(if(if(equal? tmp_1 '#\\s) #t(equal? tmp_1 '#\\S))" -"(let-values()" -"(read-one #f in_69(override-parameter read-case-sensitive config_59 #t)))" -"(if(if(equal? tmp_1 '#\\i) #t(equal? tmp_1 '#\\I))" -"(let-values()" -"(read-one" +"(let-values(((temp218_517) #f)" +"((in219_518) in_0)" +"((config220_519) config_0)" +" ((temp221_520) \"#I\"))" +"(read-symbol-or-number8.1" " #f" -" in_69" -"(override-parameter read-case-sensitive config_59 #f)))" +" temp221_520" +" temp218_517" +" in219_518" +" config220_519))))))" +"(if(unsafe-fx< index_423 23)" +"(if(unsafe-fx< index_423 22)" "(let-values()" -"(let-values(((in254_0) in_69)" -"((config255_0) config_59)" -"((c2256_0) c2_14)" -" ((temp257_0) \"expected `s', `S`, `i`, or `I` after `~a~a`\")" -"((dispatch-c258_0) dispatch-c_5)" -"((c259_0) c_106))" +"(let-values(((temp222_522) #f)" +"((in223_523) in_0)" +"((config224_524) config_0)" +" ((temp225_525) \"#d\"))" +"(read-symbol-or-number8.1 #f temp225_525 temp222_522 in223_523 config224_524)))" +"(let-values()" +"(let-values(((temp226_527) #f)" +"((in227_528) in_0)" +"((config228_529) config_0)" +" ((temp229_530) \"#B\"))" +"(read-symbol-or-number8.1 #f temp229_530 temp226_527 in227_528 config228_529))))" +"(if(unsafe-fx< index_423 24)" +"(let-values()" +"(let-values(((temp230_532) #f)" +"((in231_533) in_0)" +"((config232_534) config_0)" +" ((temp233_535) \"#o\"))" +"(read-symbol-or-number8.1 #f temp233_535 temp230_532 in231_533 config232_534)))" +"(if(unsafe-fx< index_423 25)" +"(let-values()" +"(let-values(((temp234_537) #f)" +"((in235_538) in_0)" +"((config236_539) config_0)" +" ((temp237_540) \"#O\"))" +"(read-symbol-or-number8.1 #f temp237_540 temp234_537 in235_538 config236_539)))" +"(let-values()" +"(let-values(((temp238_542) #f)" +"((in239_543) in_0)" +"((config240_544) config_0)" +" ((temp241_545) \"#D\"))" +"(read-symbol-or-number8.1" +" #f" +" temp241_545" +" temp238_542" +" in239_543" +" config240_544)))))))" +"(if(unsafe-fx< index_423 30)" +"(if(unsafe-fx< index_423 27)" +"(let-values()" +"(let-values(((temp242_547) #f)" +"((in243_548) in_0)" +"((config244_549) config_0)" +" ((temp245_550) \"#b\"))" +"(read-symbol-or-number8.1 #f temp245_550 temp242_547 in243_548 config244_549)))" +"(if(unsafe-fx< index_423 28)" +"(let-values()" +"(let-values(((temp246_552) #f)" +"((in247_553) in_0)" +"((config248_554) config_0)" +" ((temp249_555) \"#x\"))" +"(read-symbol-or-number8.1 #f temp249_555 temp246_552 in247_553 config248_554)))" +"(if(unsafe-fx< index_423 29)" +"(let-values()" +"(let-values(((temp250_557) #f)" +"((in251_558) in_0)" +"((config252_559) config_0)" +" ((temp253_560) \"#X\"))" +"(read-symbol-or-number8.1 #f temp253_560 temp250_557 in251_558 config252_559)))" +"(let-values()" +"(let-values(((c2_561)" +"(let-values(((in_562) in_0)" +"((source_564)(read-config-source config_0)))" +"(read-char-or-special in_562 special1.1 source_564))))" +"(let-values(((tmp_565) c2_561))" +"(if(if(equal? tmp_565 '#\\s) #t(equal? tmp_565 '#\\S))" +"(let-values()" +"(read-one #f in_0(override-parameter read-case-sensitive config_0 #t)))" +"(if(if(equal? tmp_565 '#\\i) #t(equal? tmp_565 '#\\I))" +"(let-values()" +"(read-one #f in_0(override-parameter read-case-sensitive config_0 #f)))" +"(let-values()" +"(let-values(((in254_567) in_0)" +"((config255_568) config_0)" +"((c2256_569) c2_561)" +"((temp257_570)" +" \"expected `s', `S`, `i`, or `I` after `~a~a`\")" +"((dispatch-c258_571) dispatch-c_0)" +"((c259_572) c_381))" "(reader-error12.1" " unsafe-undefined" -" c2256_0" +" c2256_569" " #f" " unsafe-undefined" -" in254_0" -" config255_0" -" temp257_0" -"(list dispatch-c258_0 c259_0))))))))))))" -"(if(unsafe-fx< index_5 32)" -"(if(unsafe-fx< index_5 31)" -"(let-values()(read-hash read-one dispatch-c_5 c_106 in_69 config_59))" +" in254_567" +" config255_568" +" temp257_570" +"(list dispatch-c258_571 c259_572))))))))))))" +"(if(unsafe-fx< index_423 32)" +"(if(unsafe-fx< index_423 31)" +"(let-values()(read-hash read-one dispatch-c_0 c_381 in_0 config_0))" "(let-values()" -"(let-values(((accum-str_12)(accum-string-init! config_59)))" -"(let-values((()(begin(accum-string-add! accum-str_12 dispatch-c_5)(values))))" -"(let-values((()(begin(accum-string-add! accum-str_12 c_106)(values))))" -"(let-values(((c2_15)" -"(let-values(((in_76) in_69)" -"((source_49)(read-config-source config_59)))" -"(read-char-or-special in_76 special1.1 source_49))))" +"(let-values(((accum-str_573)(accum-string-init! config_0)))" +"(let-values((()(begin(accum-string-add! accum-str_573 dispatch-c_0)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_573 c_381)(values))))" +"(let-values(((c2_574)" +"(let-values(((in_575) in_0)" +"((source_577)(read-config-source config_0)))" +"(read-char-or-special in_575 special1.1 source_577))))" "(begin" -"(if(char? c2_15)" -"(let-values()(accum-string-add! accum-str_12 c2_15))" +"(if(char? c2_574)" +"(let-values()(accum-string-add! accum-str_573 c2_574))" "(void))" -"(let-values(((tmp_59) c2_15))" -"(if(equal? tmp_59 '#\\x)" -"(let-values()(read-regexp c_106 accum-str_12 in_69 config_59))" -"(if(equal? tmp_59 '#\\e)" +"(let-values(((tmp_578) c2_574))" +"(if(equal? tmp_578 '#\\x)" +"(let-values()(read-regexp c_381 accum-str_573 in_0 config_0))" +"(if(equal? tmp_578 '#\\e)" "(let-values()" "(read-extension-reader" " read-one" " read-undotted" -" dispatch-c_5" -" in_69" -" config_59))" +" dispatch-c_0" +" in_0" +" config_0))" "(let-values()" -"(let-values(((in260_0) in_69)" -"((config261_0) config_59)" -"((c2262_0) c2_15)" -"((temp263_0)" -"(let-values(((accum-str264_0) accum-str_12)" -"((config265_0) config_59))" +"(let-values(((in260_580) in_0)" +"((config261_581) config_0)" +"((c2262_582) c2_574)" +"((temp263_583)" +"(let-values(((accum-str264_584) accum-str_573)" +"((config265_585) config_0))" "(accum-string-get!6.1" " 0" -" accum-str264_0" -" config265_0))))" +" accum-str264_584" +" config265_585))))" "(bad-syntax-error20.1" -" c2262_0" -" in260_0" -" config261_0" -" temp263_0)))))))))))))" -"(if(unsafe-fx< index_5 33)" +" c2262_582" +" in260_580" +" config261_581" +" temp263_583)))))))))))))" +"(if(unsafe-fx< index_423 33)" "(let-values()" -"(let-values(((accum-str_13)(accum-string-init! config_59)))" -"(let-values((()(begin(accum-string-add! accum-str_13 dispatch-c_5)(values))))" -"(let-values((()(begin(accum-string-add! accum-str_13 c_106)(values))))" -"(let-values(((c2_16)" -"(let-values(((in_77) in_69)" -"((source_50)(read-config-source config_59)))" -"(read-char-or-special in_77 special1.1 source_50))))" +"(let-values(((accum-str_586)(accum-string-init! config_0)))" +"(let-values((()(begin(accum-string-add! accum-str_586 dispatch-c_0)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_586 c_381)(values))))" +"(let-values(((c2_587)" +"(let-values(((in_588) in_0)" +"((source_590)(read-config-source config_0)))" +"(read-char-or-special in_588 special1.1 source_590))))" "(begin" -"(if(char? c2_16)" -"(let-values()(accum-string-add! accum-str_13 c2_16))" +"(if(char? c2_587)" +"(let-values()(accum-string-add! accum-str_586 c2_587))" "(void))" -"(let-values(((tmp_60) c2_16))" -"(if(equal? tmp_60 '#\\x)" -"(let-values()(read-regexp c_106 accum-str_13 in_69 config_59))" +"(let-values(((tmp_591) c2_587))" +"(if(equal? tmp_591 '#\\x)" +"(let-values()(read-regexp c_381 accum-str_586 in_0 config_0))" "(let-values()" -"(let-values(((in266_0) in_69)" -"((config267_0) config_59)" -"((c2268_0) c2_16)" -"((temp269_0)" -"(let-values(((accum-str270_0) accum-str_13)" -"((config271_0) config_59))" +"(let-values(((in266_593) in_0)" +"((config267_594) config_0)" +"((c2268_595) c2_587)" +"((temp269_596)" +"(let-values(((accum-str270_597) accum-str_586)" +"((config271_598) config_0))" "(accum-string-get!6.1" " 0" -" accum-str270_0" -" config271_0))))" +" accum-str270_597" +" config271_598))))" "(bad-syntax-error20.1" -" c2268_0" -" in266_0" -" config267_0" -" temp269_0)))))))))))" -"(if(unsafe-fx< index_5 34)" +" c2268_595" +" in266_593" +" config267_594" +" temp269_596)))))))))))" +"(if(unsafe-fx< index_423 34)" "(let-values()" -"(let-values(((read-undotted272_0) read-undotted)" -"((dispatch-c273_0) dispatch-c_5)" -"((in274_0) in_69)" -"((config275_0) config_59))" +"(let-values(((read-undotted272_599) read-undotted)" +"((dispatch-c273_600) dispatch-c_0)" +"((in274_601) in_0)" +"((config275_602) config_0))" "(read-extension-lang7.1" " #f" -" read-undotted272_0" -" dispatch-c273_0" -" in274_0" -" config275_0)))" -"(if(unsafe-fx< index_5 35)" +" read-undotted272_599" +" dispatch-c273_600" +" in274_601" +" config275_602)))" +"(if(unsafe-fx< index_423 35)" "(let-values()" -"(let-values(((read-undotted276_0) read-undotted)" -"((dispatch-c277_0) dispatch-c_5)" -"((in278_0) in_69)" -"((config279_0) config_59))" +"(let-values(((read-undotted276_603) read-undotted)" +"((dispatch-c277_604) dispatch-c_0)" +"((in278_605) in_0)" +"((config279_606) config_0))" "(read-extension-#!16.1" " #f" -" read-undotted276_0" -" dispatch-c277_0" -" in278_0" -" config279_0)))" +" read-undotted276_603" +" dispatch-c277_604" +" in278_605" +" config279_606)))" "(let-values()" -"(if(check-parameter 1/read-accept-compiled config_59)" +"(if(check-parameter 1/read-accept-compiled config_0)" "(let-values()" -"(wrap((read-config-read-compiled config_59) in_69) in_69 config_59 c_106))" +"(wrap((read-config-read-compiled config_0) in_0) in_0 config_0 c_381))" "(let-values()" -"(let-values(((in280_0) in_69)" -"((config281_0) config_59)" -" ((temp282_0) \"`~a~~` compiled expressions not enabled\")" -"((dispatch-c283_0) dispatch-c_5))" +"(let-values(((in280_607) in_0)" +"((config281_608) config_0)" +" ((temp282_609) \"`~a~~` compiled expressions not enabled\")" +"((dispatch-c283_610) dispatch-c_0))" "(reader-error12.1" " unsafe-undefined" " '#\\x" " #f" " unsafe-undefined" -" in280_0" -" config281_0" -" temp282_0" -"(list dispatch-c283_0)))))))))))))))))))))))))" +" in280_607" +" config281_608" +" temp282_609" +"(list dispatch-c283_610)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_245 in_78 config_60)" +"(lambda(v_0 in_0 config_0)" "(begin" -"(if(1/special-comment? v_245)" -"(let-values()(if(read-config-keep-comment? config_60) v_245(read-undotted #f in_78 config_60)))" -"(let-values() v_245)))))" +"(if(1/special-comment? v_0)" +"(let-values()(if(read-config-keep-comment? config_0) v_0(read-undotted #f in_0 config_0)))" +"(let-values() v_0)))))" "(define-values" "(1/module-declared?)" -"(let-values(((module-declared?3_0)" +"(let-values(((module-declared?3_6)" "(lambda(mod2_0 load?1_0)" "(begin" " 'module-declared?3" -"(let-values(((mod_4) mod2_0))" -"(let-values(((load?_3) load?1_0))" +"(let-values(((mod_9) mod2_0))" +"(let-values(((load?_10) load?1_0))" "(let-values()" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(module-reference? mod_4)" +"(if(module-reference? mod_9)" "(void)" "(let-values()" -"(raise-argument-error 'module-declared? module-reference-str mod_4)))" +"(raise-argument-error 'module-declared? module-reference-str mod_9)))" "(values))))" -"(let-values(((ns_116)(1/current-namespace)))" -"(let-values(((name_39)" -"(let-values(((mod31_0) mod_4)((load?32_0) load?_3))" -"(reference->resolved-module-path27.1 load?32_0 mod31_0))))" -"(if(namespace->module ns_116 name_39) #t #f)))))))))))))" +"(let-values(((ns_12)(1/current-namespace)))" +"(let-values(((name_13)" +"(let-values(((mod31_15) mod_9)((load?32_16) load?_10))" +"(reference->resolved-module-path27.1 load?32_16 mod31_15))))" +"(if(namespace->module ns_12 name_13) #t #f)))))))))))))" "(case-lambda" -"((mod_5)(begin 'module-declared?(module-declared?3_0 mod_5 #f)))" -"((mod_6 load?1_1)(module-declared?3_0 mod_6 load?1_1)))))" +"((mod_0)(begin 'module-declared?(module-declared?3_6 mod_0 #f)))" +"((mod_0 load?1_0)(module-declared?3_6 mod_0 load?1_0)))))" "(define-values" "(1/module-predefined?)" -"(lambda(mod_7)" +"(lambda(mod_0)" "(begin" " 'module-predefined?" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(module-reference? mod_7)" +"(if(module-reference? mod_0)" "(void)" -"(let-values()(raise-argument-error 'module-predefined? module-reference-str mod_7)))" +"(let-values()(raise-argument-error 'module-predefined? module-reference-str mod_0)))" "(values))))" -"(let-values(((ns_68)(1/current-namespace)))" -"(let-values(((name_68)" -"(let-values(((mod34_0) mod_7)((temp35_5) #f))" -"(reference->resolved-module-path27.1 temp35_5 mod34_0))))" -"(let-values(((m_24)(namespace->module ns_68 name_68)))" +"(let-values(((ns_22)(1/current-namespace)))" +"(let-values(((name_23)" +"(let-values(((mod34_26) mod_0)((temp35_27) #f))" +"(reference->resolved-module-path27.1 temp35_27 mod34_26))))" +"(let-values(((m_24)(namespace->module ns_22 name_23)))" "(if m_24(module-is-predefined? m_24) #f))))))))))" "(define-values" "(module->)" -"(let-values(((module->9_0)" +"(let-values(((module->9_28)" "(lambda(extract6_0 who7_0 mod8_0 load?5_0)" "(begin" " 'module->9" -"(let-values(((extract_1) extract6_0))" -"(let-values(((who_31) who7_0))" -"(let-values(((mod_8) mod8_0))" -"(let-values(((load?_4) load?5_0))" +"(let-values(((extract_33) extract6_0))" +"(let-values(((who_34) who7_0))" +"(let-values(((mod_35) mod8_0))" +"(let-values(((load?_36) load?5_0))" "(let-values()" "(let-values((()" "(begin" -"(if(module-reference? mod_8)" +"(if(module-reference? mod_35)" "(void)" "(let-values()" -"(raise-argument-error who_31 module-reference-str mod_8)))" +"(raise-argument-error who_34 module-reference-str mod_35)))" "(values))))" -"(let-values(((m_25)" +"(let-values(((m_37)" "(namespace->module/complain" -" who_31" +" who_34" "(1/current-namespace)" -"(let-values(((mod36_0) mod_8)((load?37_0) load?_4))" -"(reference->resolved-module-path27.1 load?37_0 mod36_0)))))" -"(extract_1 m_25))))))))))))" +"(let-values(((mod36_39) mod_35)((load?37_40) load?_36))" +"(reference->resolved-module-path27.1 load?37_40 mod36_39)))))" +"(extract_33 m_37))))))))))))" "(case-lambda" -"((extract_2 who_32 mod_9)(begin(module->9_0 extract_2 who_32 mod_9 #f)))" -"((extract_3 who_33 mod_10 load?5_1)(module->9_0 extract_3 who_33 mod_10 load?5_1)))))" +"((extract_0 who_0 mod_0)(begin(module->9_28 extract_0 who_0 mod_0 #f)))" +"((extract_0 who_0 mod_0 load?5_0)(module->9_28 extract_0 who_0 mod_0 load?5_0)))))" "(define-values" "(1/module->language-info)" -"(let-values(((module->language-info13_0)" +"(let-values(((module->language-info13_48)" "(lambda(mod12_0 load?11_0)" "(begin" " 'module->language-info13" -"(let-values(((mod_11) mod12_0))" -"(let-values(((load?_5) load?11_0))" +"(let-values(((mod_51) mod12_0))" +"(let-values(((load?_52) load?11_0))" "(let-values()" "(let-values()" "(let-values()" -"(module-> module-language-info 'module->language-info mod_11 load?_5))))))))))" +"(module-> module-language-info 'module->language-info mod_51 load?_52))))))))))" "(case-lambda" -"((mod_12)(begin 'module->language-info(module->language-info13_0 mod_12 #f)))" -"((mod_13 load?11_1)(module->language-info13_0 mod_13 load?11_1)))))" +"((mod_0)(begin 'module->language-info(module->language-info13_48 mod_0 #f)))" +"((mod_0 load?11_0)(module->language-info13_48 mod_0 load?11_0)))))" "(define-values" "(1/module->imports)" -"(lambda(mod_14)" -"(begin 'module->imports(let-values()(let-values()(module-> module-requires 'module->imports mod_14))))))" +"(lambda(mod_0)" +"(begin 'module->imports(let-values()(let-values()(module-> module-requires 'module->imports mod_0))))))" "(define-values" "(1/module->exports)" -"(lambda(mod_15)" +"(lambda(mod_0)" "(begin" " 'module->exports" -"(let-values(((provides_12 self_27)" -"(module->" -"(lambda(m_26)(values(module-provides m_26)(module-self m_26)))" -" 'module->exports" -" mod_15)))" -"(provides->api-provides provides_12 self_27)))))" +"(let-values(((provides_60 self_61)" +"(module->(lambda(m_0)(values(module-provides m_0)(module-self m_0))) 'module->exports mod_0)))" +"(provides->api-provides provides_60 self_61)))))" "(define-values" "(1/module->indirect-exports)" -"(lambda(mod_16)" +"(lambda(mod_0)" "(begin" " 'module->indirect-exports" "(module->" -"(lambda(m_27)(variables->api-nonprovides(module-provides m_27)((module-get-all-variables m_27))))" +"(lambda(m_0)(variables->api-nonprovides(module-provides m_0)((module-get-all-variables m_0))))" " 'module->indirect-exports" -" mod_16))))" +" mod_0))))" "(define-values" "(1/module-provide-protected?)" -"(lambda(mod_17 sym_98)" +"(lambda(mod_0 sym_0)" "(begin" " 'module-provide-protected?" "(module->" -"(lambda(m_28)" -"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_98 #f)))" -"(let-values(((or-part_287)(not b/p_3)))(if or-part_287 or-part_287(provided-as-protected? b/p_3)))))" +"(lambda(m_0)" +"(let-values(((b/p_68)(hash-ref(module-provides m_0) sym_0 #f)))" +"(let-values(((or-part_69)(not b/p_68)))(if or-part_69 or-part_69(provided-as-protected? b/p_68)))))" " 'module-provide-protected?" -" mod_17))))" +" mod_0))))" "(define-values" "(1/module->namespace)" -"(let-values(((module->namespace17_0)" +"(let-values(((module->namespace17_70)" "(lambda(mod16_0 ns15_0)" "(begin" " 'module->namespace17" -"(let-values(((mod_18) mod16_0))" -"(let-values(((ns_47)(if(eq? ns15_0 unsafe-undefined)(1/current-namespace) ns15_0)))" +"(let-values(((mod_73) mod16_0))" +"(let-values(((ns_74)(if(eq? ns15_0 unsafe-undefined)(1/current-namespace) ns15_0)))" "(let-values()" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(module-reference? mod_18)" +"(if(module-reference? mod_73)" "(void)" "(let-values()" "(raise-argument-error" " 'module->namespace" " module-reference-str" -" mod_18)))" +" mod_73)))" "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? ns_47)" +"(if(1/namespace? ns_74)" "(void)" "(let-values()" -" (raise-argument-error 'module->namespace \"namespace?\" ns_47)))" +" (raise-argument-error 'module->namespace \"namespace?\" ns_74)))" "(values))))" -"(let-values(((name_40)" -"(let-values(((mod44_0) mod_18)((temp45_1) #t))" -"(reference->resolved-module-path27.1 temp45_1 mod44_0))))" -"(let-values(((phase_135)(namespace-phase ns_47)))" -"(let-values(((m-ns_17)" -"(let-values(((ns46_0) ns_47)" -"((name47_1) name_40)" -"((phase48_1) phase_135))" +"(let-values(((name_76)" +"(let-values(((mod44_80) mod_73)((temp45_81) #t))" +"(reference->resolved-module-path27.1 temp45_81 mod44_80))))" +"(let-values(((phase_77)(namespace-phase ns_74)))" +"(let-values(((m-ns_78)" +"(let-values(((ns46_82) ns_74)" +"((name47_83) name_76)" +"((phase48_84) phase_77))" "(namespace->module-namespace82.1" " #f" " #f" " unsafe-undefined" -" ns46_0" -" name47_1" -" phase48_1))))" +" ns46_82" +" name47_83" +" phase48_84))))" "(begin" -"(if m-ns_17" +"(if m-ns_78" "(void)" "(let-values()" "(begin" -"(namespace->module/complain 'module->namespace ns_47 name_40)" +"(namespace->module/complain 'module->namespace ns_74 name_76)" "(raise-arguments-error" " 'module->namespace" " \"module not instantiated in the current namespace\"" " \"name\"" -" name_40))))" +" name_76))))" "(if(inspector-superior?" "(current-code-inspector)" -"(namespace-inspector m-ns_17))" +"(namespace-inspector m-ns_78))" "(void)" "(let-values()" "(raise-arguments-error" " 'module->namespace" " \"current code inspector cannot access namespace of module\"" " \"module name\"" -" name_40)))" -"(if(namespace-get-root-expand-ctx m-ns_17)" +" name_76)))" +"(if(namespace-get-root-expand-ctx m-ns_78)" "(void)" "(let-values()" "(namespace-set-root-expand-ctx!" -" m-ns_17" -"(let-values(((temp49_3)(namespace-mpi m-ns_17)))" +" m-ns_78" +"(let-values(((temp49_86)(namespace-mpi m-ns_78)))" "(make-root-expand-context13.1" " #f" " null" " unsafe-undefined" " unsafe-undefined" -" temp49_3)))))" -"(let-values(((ns41_0) ns_47)" -"((temp42_3)(namespace-mpi m-ns_17))" -"((phase43_2) phase_135))" +" temp49_86)))))" +"(let-values(((ns41_87) ns_74)" +"((temp42_88)(namespace-mpi m-ns_78))" +"((phase43_89) phase_77))" "(namespace-module-make-available!112.1" " unsafe-undefined" -" ns41_0" -" temp42_3" -" phase43_2))" -" m-ns_17)))))))))))))))" +" ns41_87" +" temp42_88" +" phase43_89))" +" m-ns_78)))))))))))))))" "(case-lambda" -"((mod_19)(begin 'module->namespace(module->namespace17_0 mod_19 unsafe-undefined)))" -"((mod_20 ns15_1)(module->namespace17_0 mod_20 ns15_1)))))" +"((mod_0)(begin 'module->namespace(module->namespace17_70 mod_0 unsafe-undefined)))" +"((mod_0 ns15_0)(module->namespace17_70 mod_0 ns15_0)))))" "(define-values" "(1/namespace-unprotect-module)" -"(let-values(((namespace-unprotect-module22_0)" -"(lambda(insp20_0 mod21_0 ns19_1)" +"(let-values(((namespace-unprotect-module22_93)" +"(lambda(insp20_0 mod21_0 ns19_0)" "(begin" " 'namespace-unprotect-module22" -"(let-values(((insp_18) insp20_0))" -"(let-values(((mod_21) mod21_0))" -"(let-values(((ns_117)(if(eq? ns19_1 unsafe-undefined)(1/current-namespace) ns19_1)))" +"(let-values(((insp_97) insp20_0))" +"(let-values(((mod_98) mod21_0))" +"(let-values(((ns_99)(if(eq? ns19_0 unsafe-undefined)(1/current-namespace) ns19_0)))" "(let-values()" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(inspector? insp_18)" +"(if(inspector? insp_97)" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-unprotect-module" " \"inspector?\"" -" insp_18)))" +" insp_97)))" "(values))))" "(let-values((()" "(begin" -"(if(1/module-path? mod_21)" +"(if(1/module-path? mod_98)" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-unprotect-module" " \"module-path?\"" -" mod_21)))" +" mod_98)))" "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? ns_117)" +"(if(1/namespace? ns_99)" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-unprotect-module" " \"namespace?\"" -" ns_117)))" +" ns_99)))" "(values))))" -"(let-values(((name_69)" -"(let-values(((mod51_0) mod_21)((temp52_3) #f))" -"(reference->resolved-module-path27.1 temp52_3 mod51_0))))" -"(let-values(((phase_6)(namespace-phase ns_117)))" -"(let-values(((m-ns_18)" -"(let-values(((ns53_3) ns_117)" -"((name54_0) name_69)" -"((phase55_0) phase_6))" +"(let-values(((name_101)" +"(let-values(((mod51_105) mod_98)((temp52_106) #f))" +"(reference->resolved-module-path27.1 temp52_106 mod51_105))))" +"(let-values(((phase_102)(namespace-phase ns_99)))" +"(let-values(((m-ns_103)" +"(let-values(((ns53_107) ns_99)" +"((name54_108) name_101)" +"((phase55_109) phase_102))" "(namespace->module-namespace82.1" " #f" " #f" " unsafe-undefined" -" ns53_3" -" name54_0" -" phase55_0))))" +" ns53_107" +" name54_108" +" phase55_109))))" "(begin" -"(if m-ns_18" +"(if m-ns_103" "(void)" "(let-values()" "(raise-arguments-error" " 'namespace-unprotect-module" " \"module not instantiated\"" " \"module name\"" -" name_69)))" -"(if(inspector-superior? insp_18(namespace-inspector m-ns_18))" +" name_101)))" +"(if(inspector-superior? insp_97(namespace-inspector m-ns_103))" "(let-values()" "(set-namespace-inspector!" -" m-ns_18" +" m-ns_103" "(make-inspector(current-code-inspector))))" "(void)))))))))))))))))))" "(case-lambda" -"((insp_19 mod_22)" -"(begin 'namespace-unprotect-module(namespace-unprotect-module22_0 insp_19 mod_22 unsafe-undefined)))" -"((insp_9 mod_23 ns19_2)(namespace-unprotect-module22_0 insp_9 mod_23 ns19_2)))))" +"((insp_0 mod_0)" +"(begin 'namespace-unprotect-module(namespace-unprotect-module22_93 insp_0 mod_0 unsafe-undefined)))" +"((insp_0 mod_0 ns19_0)(namespace-unprotect-module22_93 insp_0 mod_0 ns19_0)))))" "(define-values" "(namespace->module/complain)" -"(lambda(who_34 ns_118 name_70)" +"(lambda(who_0 ns_0 name_0)" "(begin" -"(let-values(((or-part_211)(namespace->module ns_118 name_70)))" -"(if or-part_211" -" or-part_211" -" (raise-arguments-error who_34 \"unknown module in the current namespace\" \"name\" name_70))))))" +"(let-values(((or-part_118)(namespace->module ns_0 name_0)))" +"(if or-part_118" +" or-part_118" +" (raise-arguments-error who_0 \"unknown module in the current namespace\" \"name\" name_0))))))" "(define-values" "(module-reference?)" -"(lambda(mod_24)" +"(lambda(mod_0)" "(begin" -"(let-values(((or-part_134)(1/module-path? mod_24)))" -"(if or-part_134" -" or-part_134" -"(let-values(((or-part_258)(1/module-path-index? mod_24)))" -"(if or-part_258 or-part_258(1/resolved-module-path? mod_24))))))))" +"(let-values(((or-part_120)(1/module-path? mod_0)))" +"(if or-part_120" +" or-part_120" +"(let-values(((or-part_121)(1/module-path-index? mod_0)))" +"(if or-part_121 or-part_121(1/resolved-module-path? mod_0))))))))" " (define-values (module-reference-str) \"(or/c module-path? module-path-index? resolved-module-path?)\")" "(define-values" "(reference->resolved-module-path27.1)" "(lambda(load?24_0 mod26_0)" "(begin" " 'reference->resolved-module-path27" -"(let-values(((mod_25) mod26_0))" -"(let-values(((load?_6) load?24_0))" +"(let-values(((mod_128) mod26_0))" +"(let-values(((load?_129) load?24_0))" "(let-values()" -"(if(1/resolved-module-path? mod_25)" -"(let-values() mod_25)" +"(if(1/resolved-module-path? mod_128)" +"(let-values() mod_128)" "(let-values()" -"(let-values(((mpi_47)(if(1/module-path-index? mod_25) mod_25(1/module-path-index-join mod_25 #f))))" -"(1/module-path-index-resolve mpi_47 load?_6))))))))))" +"(let-values(((mpi_130)" +"(if(1/module-path-index? mod_128) mod_128(1/module-path-index-join mod_128 #f))))" +"(1/module-path-index-resolve mpi_130 load?_129))))))))))" "(define-values" "(read-syntax$1)" -"(lambda(src_0 in_26)" +"(lambda(src_0 in_0)" "(begin" " 'read-syntax" -"(if(default-read-handler? in_26)" +"(if(default-read-handler? in_0)" "(let-values()" "(begin" -"(maybe-flush-stdout in_26)" -"(let-values(((in22_3) in_26)((temp23_6) #t)((src24_0) src_0))" -"(read*14.1 temp23_6 #f #f unsafe-undefined #f src24_0 in22_3))))" -"(let-values()(values((port-read-handler in_26) in_26 src_0)))))))" +"(maybe-flush-stdout in_0)" +"(let-values(((in22_9) in_0)((temp23_10) #t)((src24_11) src_0))" +"(read*14.1 temp23_10 #f #f unsafe-undefined #f src24_11 in22_9))))" +"(let-values()(values((port-read-handler in_0) in_0 src_0)))))))" "(define-values" "(read-syntax/recursive$1)" -"(lambda(src_1 in_30 start_57 readtable_4 graph?_1)" +"(lambda(src_0 in_0 start_0 readtable_0 graph?_0)" "(begin" " 'read-syntax/recursive" -"(let-values(((in25_1) in_30)" -"((temp26_5) #t)" -"((temp27_8) #t)" -"((src28_0) src_1)" -"((start29_0) start_57)" -"((readtable30_0) readtable_4)" -"((temp31_5)(not graph?_1)))" -"(read*14.1 temp26_5 start29_0 temp31_5 readtable30_0 temp27_8 src28_0 in25_1)))))" +"(let-values(((in25_18) in_0)" +"((temp26_19) #t)" +"((temp27_20) #t)" +"((src28_21) src_0)" +"((start29_22) start_0)" +"((readtable30_23) readtable_0)" +"((temp31_24)(not graph?_0)))" +"(read*14.1 temp26_19 start29_22 temp31_24 readtable30_23 temp27_20 src28_21 in25_18)))))" "(define-values" "(read$1)" -"(lambda(in_11)" +"(lambda(in_0)" "(begin" " 'read" -"(if(default-read-handler? in_11)" +"(if(default-read-handler? in_0)" "(let-values()" "(begin" -"(maybe-flush-stdout in_11)" -"(let-values(((in32_0) in_11)((temp33_4) #f))(read*14.1 temp33_4 #f #f unsafe-undefined #f #f in32_0))))" -"(let-values()(values((port-read-handler in_11) in_11)))))))" +"(maybe-flush-stdout in_0)" +"(let-values(((in32_27) in_0)((temp33_28) #f))" +"(read*14.1 temp33_28 #f #f unsafe-undefined #f #f in32_27))))" +"(let-values()(values((port-read-handler in_0) in_0)))))))" "(define-values" "(read/recursive$1)" -"(lambda(in_43 start_58 readtable_5 graph?_2)" +"(lambda(in_0 start_0 readtable_0 graph?_0)" "(begin" " 'read/recursive" -"(let-values(((in34_2) in_43)" -"((temp35_6) #f)" -"((temp36_7) #t)" -"((start37_0) start_58)" -"((readtable38_0) readtable_5)" -"((temp39_6)(not graph?_2)))" -"(read*14.1 temp35_6 start37_0 temp39_6 readtable38_0 temp36_7 #f in34_2)))))" +"(let-values(((in34_34) in_0)" +"((temp35_35) #f)" +"((temp36_36) #t)" +"((start37_37) start_0)" +"((readtable38_38) readtable_0)" +"((temp39_39)(not graph?_0)))" +"(read*14.1 temp35_35 start37_37 temp39_39 readtable38_38 temp36_36 #f in34_34)))))" "(define-values" "(read*14.1)" -"(lambda(for-syntax?1_0 init-c4_0 local-graph?6_1 readtable5_0 recursive?2_0 source3_0 in13_3)" +"(lambda(for-syntax?1_0 init-c4_0 local-graph?6_0 readtable5_0 recursive?2_0 source3_0 in13_0)" "(begin" " 'read*14" -"(let-values(((in_79) in13_3))" -"(let-values(((for-syntax?_11) for-syntax?1_0))" -"(let-values(((recursive?_1) recursive?2_0))" -"(let-values(((source_51) source3_0))" -"(let-values(((init-c_19) init-c4_0))" -"(let-values(((readtable_6)" +"(let-values(((in_51) in13_0))" +"(let-values(((for-syntax?_52) for-syntax?1_0))" +"(let-values(((recursive?_53) recursive?2_0))" +"(let-values(((source_54) source3_0))" +"(let-values(((init-c_55) init-c4_0))" +"(let-values(((readtable_56)" "(if(eq? readtable5_0 unsafe-undefined)(1/current-readtable) readtable5_0)))" -"(let-values(((local-graph?_2) local-graph?6_1))" +"(let-values(((local-graph?_57) local-graph?6_0))" "(let-values()" "(let-values()" -"(let-values(((in40_2) in_79)" -"((for-syntax?41_0) for-syntax?_11)" -"((recursive?42_0) recursive?_1)" -"((source43_0) source_51)" -"((temp44_5)(if for-syntax?_11 read-to-syntax #f))" -"((init-c45_0) init-c_19)" -"((readtable46_0) readtable_6)" -"((local-graph?47_0) local-graph?_2)" -"((read-compiled-linklet48_0) 1/read-compiled-linklet)" -"((dynamic-require-reader49_0) dynamic-require-reader)" -"((read-module-declared?50_0) read-module-declared?)" -"((read-coerce51_0) read-coerce)" -"((read-coerce-key52_0) read-coerce-key))" +"(let-values(((in40_59) in_51)" +"((for-syntax?41_60) for-syntax?_52)" +"((recursive?42_61) recursive?_53)" +"((source43_62) source_54)" +"((temp44_63)(if for-syntax?_52 read-to-syntax #f))" +"((init-c45_64) init-c_55)" +"((readtable46_65) readtable_56)" +"((local-graph?47_66) local-graph?_57)" +"((read-compiled-linklet48_67) 1/read-compiled-linklet)" +"((dynamic-require-reader49_68) dynamic-require-reader)" +"((read-module-declared?50_69) read-module-declared?)" +"((read-coerce51_70) read-coerce)" +"((read-coerce-key52_71) read-coerce-key))" "(read30.1" -" read-coerce51_0" -" read-coerce-key52_0" -" dynamic-require-reader49_0" -" for-syntax?41_0" -" init-c45_0" +" read-coerce51_70" +" read-coerce-key52_71" +" dynamic-require-reader49_68" +" for-syntax?41_60" +" init-c45_64" " unsafe-undefined" -" local-graph?47_0" -" read-module-declared?50_0" +" local-graph?47_66" +" read-module-declared?50_69" " unsafe-undefined" -" read-compiled-linklet48_0" -" readtable46_0" -" recursive?42_0" -" source43_0" -" temp44_5" -" in40_2))))))))))))))" +" read-compiled-linklet48_67" +" readtable46_65" +" recursive?42_61" +" source43_62" +" temp44_63" +" in40_59))))))))))))))" "(define-values" "(read-language$1)" -"(lambda(in_80 fail-thunk_0)" +"(lambda(in_0 fail-thunk_0)" "(begin" " 'read-language" -"(let-values(((in53_0) in_80)" -"((fail-thunk54_0) fail-thunk_0)" -"((temp55_3) #t)" -"((read-to-syntax56_0) read-to-syntax)" -"((read-compiled-linklet57_0) 1/read-compiled-linklet)" -"((dynamic-require-reader58_0) dynamic-require-reader)" -"((read-module-declared?59_0) read-module-declared?)" -"((read-coerce60_0) read-coerce)" -"((read-coerce-key61_0) read-coerce-key))" +"(let-values(((in53_104) in_0)" +"((fail-thunk54_105) fail-thunk_0)" +"((temp55_106) #t)" +"((read-to-syntax56_107) read-to-syntax)" +"((read-compiled-linklet57_108) 1/read-compiled-linklet)" +"((dynamic-require-reader58_109) dynamic-require-reader)" +"((read-module-declared?59_110) read-module-declared?)" +"((read-coerce60_111) read-coerce)" +"((read-coerce-key61_112) read-coerce-key))" "(read-language49.1" -" read-coerce60_0" -" read-coerce-key61_0" -" dynamic-require-reader58_0" -" temp55_3" -" read-module-declared?59_0" -" read-compiled-linklet57_0" -" read-to-syntax56_0" -" in53_0" -" fail-thunk54_0)))))" +" read-coerce60_111" +" read-coerce-key61_112" +" dynamic-require-reader58_109" +" temp55_106" +" read-module-declared?59_110" +" read-compiled-linklet57_108" +" read-to-syntax56_107" +" in53_104" +" fail-thunk54_105)))))" "(define-values" "(read-to-syntax)" -"(lambda(s-exp_4 srcloc_11 rep_1)" +"(lambda(s-exp_0 srcloc_0 rep_0)" "(begin" -"(let-values(((the-struct_89) empty-syntax))" -"(if(syntax?$1 the-struct_89)" -"(let-values(((content62_0)(datum-intern-literal s-exp_4))" -"((srcloc63_0) srcloc_11)" -"((props64_0)" -"(let-values(((tmp_61) rep_1))" -"(if(equal? tmp_61 '#\\[)" +"(let-values(((the-struct_116) empty-syntax))" +"(if(syntax?$1 the-struct_116)" +"(let-values(((content62_117)(datum-intern-literal s-exp_0))" +"((srcloc63_118) srcloc_0)" +"((props64_119)" +"(let-values(((tmp_120) rep_0))" +"(if(equal? tmp_120 '#\\[)" "(let-values() original-square-props)" -"(if(equal? tmp_61 '#\\{)" +"(if(equal? tmp_120 '#\\{)" "(let-values() original-curly-props)" "(let-values() original-props))))))" "(syntax1.1" -" content62_0" -"(syntax-scopes the-struct_89)" -"(syntax-shifted-multi-scopes the-struct_89)" -"(syntax-scope-propagations+tamper the-struct_89)" -"(syntax-mpi-shifts the-struct_89)" -" srcloc63_0" -" props64_0" -"(syntax-inspector the-struct_89)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_89))))))" +" content62_117" +"(syntax-scopes the-struct_116)" +"(syntax-shifted-multi-scopes the-struct_116)" +"(syntax-scope-propagations+tamper the-struct_116)" +"(syntax-mpi-shifts the-struct_116)" +" srcloc63_118" +" props64_119" +"(syntax-inspector the-struct_116)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_116))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -56747,296 +57028,301 @@ static const char *startup_source = "(define-values" "(original-curly-props)" "(syntax-props(syntax-property$1(syntax-property$1 empty-syntax original-property-sym #t) 'paren-shape '#\\{)))" -"(define-values(read-module-declared?)(lambda(mod-path_29)(begin(1/module-declared? mod-path_29 #t))))" +"(define-values(read-module-declared?)(lambda(mod-path_0)(begin(1/module-declared? mod-path_0 #t))))" "(define-values" "(read-coerce)" -"(lambda(for-syntax?_12 v_246 srcloc_12)" +"(lambda(for-syntax?_0 v_0 srcloc_0)" "(begin" -"(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_246)(let-values()(syntax->datum$1 v_246))(let-values() v_246)))" -"(if(syntax?$1 v_246)" -"(let-values() v_246)" -"(if(list? v_246)" +"(if(not for-syntax?_0)" +"(let-values()(if(syntax?$1 v_0)(let-values()(syntax->datum$1 v_0))(let-values() v_0)))" +"(if(syntax?$1 v_0)" +"(let-values() v_0)" +"(if(list? v_0)" "(let-values()" "(read-to-syntax" "(reverse$1" -"(let-values(((lst_188) v_246))" +"(let-values(((lst_125) v_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_188)))" -"((letrec-values(((for-loop_121)" -"(lambda(fold-var_235 lst_287)" +"(let-values()(check-list lst_125)))" +"((letrec-values(((for-loop_126)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_287)" -"(let-values(((e_84)(unsafe-car lst_287))" -"((rest_162)(unsafe-cdr lst_287)))" -"(let-values(((fold-var_240)" -"(let-values(((fold-var_241) fold-var_235))" -"(let-values(((fold-var_242)" +"(if(pair? lst_0)" +"(let-values(((e_129)(unsafe-car lst_0))((rest_130)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_131)" +"(let-values(((fold-var_132) fold-var_0))" +"(let-values(((fold-var_133)" "(let-values()" "(cons" "(let-values()" -"(read-coerce #t e_84 srcloc_12))" -" fold-var_241))))" -"(values fold-var_242)))))" -"(if(not #f)(for-loop_121 fold-var_240 rest_162) fold-var_240)))" -" fold-var_235)))))" -" for-loop_121)" +"(read-coerce #t e_129 srcloc_0))" +" fold-var_132))))" +"(values fold-var_133)))))" +"(if(not #f)(for-loop_126 fold-var_131 rest_130) fold-var_131)))" +" fold-var_0)))))" +" for-loop_126)" " null" -" lst_188))))" -" srcloc_12" +" lst_125))))" +" srcloc_0" " #f))" -"(if(pair? v_246)" +"(if(pair? v_0)" "(let-values()" "(read-to-syntax" -"(cons(read-coerce #t(car v_246) srcloc_12)(read-coerce #t(cdr v_246) srcloc_12))" -" srcloc_12" +"(cons(read-coerce #t(car v_0) srcloc_0)(read-coerce #t(cdr v_0) srcloc_0))" +" srcloc_0" " #f))" -"(let-values()(read-to-syntax v_246 srcloc_12 #f)))))))))" +"(let-values()(read-to-syntax v_0 srcloc_0 #f)))))))))" "(define-values" "(read-coerce-key)" -"(lambda(for-syntax?_0 k_43)" -"(begin(if for-syntax?_0(let-values()(datum-intern-literal k_43))(let-values() k_43)))))" +"(lambda(for-syntax?_0 k_0)" +"(begin(if for-syntax?_0(let-values()(datum-intern-literal k_0))(let-values() k_0)))))" "(define-values(default-read-handler) #f)" "(define-values" "(default-read-handler?)" -"(lambda(in_81)" +"(lambda(in_0)" "(begin" "(if(not default-read-handler)" -"(let-values()(begin(set! default-read-handler(port-read-handler in_81)) #t))" -"(let-values()(eq? default-read-handler(port-read-handler in_81)))))))" +"(let-values()(begin(set! default-read-handler(port-read-handler in_0)) #t))" +"(let-values()(eq? default-read-handler(port-read-handler in_0)))))))" "(define-values(orig-input-port)(current-input-port))" "(define-values(orig-output-port)(current-output-port))" "(define-values(orig-error-port)(current-error-port))" "(define-values" "(maybe-flush-stdout)" -"(lambda(in_82)" +"(lambda(in_0)" "(begin" -"(if(eq? in_82 orig-input-port)" +"(if(eq? in_0 orig-input-port)" "(let-values()(begin(flush-output orig-output-port)(flush-output orig-error-port)))" "(void)))))" "(define-values" "(dynamic-require-reader)" -"(let-values(((dynamic-require-reader20_0)" -"(lambda(mod-path18_0 sym19_1 fail-thunk17_0)" +"(let-values(((dynamic-require-reader20_138)" +"(lambda(mod-path18_0 sym19_0 fail-thunk17_0)" "(begin" " 'dynamic-require-reader20" -"(let-values(((mod-path_30) mod-path18_0))" -"(let-values(((sym_99) sym19_1))" -"(let-values(((fail-thunk_1)" +"(let-values(((mod-path_142) mod-path18_0))" +"(let-values(((sym_143) sym19_0))" +"(let-values(((fail-thunk_144)" "(if(eq? fail-thunk17_0 unsafe-undefined)" " default-dynamic-require-fail-thunk" " fail-thunk17_0)))" "(let-values()" -"(let-values(((root-ns_0)(namespace-root-namespace(1/current-namespace))))" -"(if root-ns_0" +"(let-values(((root-ns_145)(namespace-root-namespace(1/current-namespace))))" +"(if root-ns_145" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -" root-ns_0)" -"(let-values()(1/dynamic-require mod-path_30 sym_99 fail-thunk_1)))" -"(1/dynamic-require mod-path_30 sym_99 fail-thunk_1)))))))))))" +" root-ns_145)" +"(let-values()(1/dynamic-require mod-path_142 sym_143 fail-thunk_144)))" +"(1/dynamic-require mod-path_142 sym_143 fail-thunk_144)))))))))))" "(case-lambda" -"((mod-path_31 sym_100)(begin(dynamic-require-reader20_0 mod-path_31 sym_100 unsafe-undefined)))" -"((mod-path_0 sym_101 fail-thunk17_1)(dynamic-require-reader20_0 mod-path_0 sym_101 fail-thunk17_1)))))" +"((mod-path_0 sym_0)(begin(dynamic-require-reader20_138 mod-path_0 sym_0 unsafe-undefined)))" +"((mod-path_0 sym_0 fail-thunk17_0)(dynamic-require-reader20_138 mod-path_0 sym_0 fail-thunk17_0)))))" "(define-values" "(1/read-syntax)" -"(let-values(((read-syntax3_0)" +"(let-values(((read-syntax3_1)" "(lambda(src1_0 in2_0)" "(begin" " 'read-syntax3" -"(let-values(((src_2)(if(eq? src1_0 unsafe-undefined)(object-name(current-input-port)) src1_0)))" -"(let-values(((in_49)(if(eq? in2_0 unsafe-undefined)(current-input-port) in2_0)))" +"(let-values(((src_4)(if(eq? src1_0 unsafe-undefined)(object-name(current-input-port)) src1_0)))" +"(let-values(((in_5)(if(eq? in2_0 unsafe-undefined)(current-input-port) in2_0)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(input-port? in_49)" +"(if(input-port? in_5)" "(void)" -" (let-values () (raise-argument-error 'read-syntax \"input-port?\" in_49)))" -"(read-syntax$1 src_2 in_49)))))))))))" +" (let-values () (raise-argument-error 'read-syntax \"input-port?\" in_5)))" +"(read-syntax$1 src_4 in_5)))))))))))" "(case-lambda" -"(()(begin 'read-syntax(read-syntax3_0 unsafe-undefined unsafe-undefined)))" -"((src_3 in2_1)(read-syntax3_0 src_3 in2_1))" -"((src1_1)(read-syntax3_0 src1_1 unsafe-undefined)))))" +"(()(begin 'read-syntax(read-syntax3_1 unsafe-undefined unsafe-undefined)))" +"((src_0 in2_0)(read-syntax3_1 src_0 in2_0))" +"((src1_0)(read-syntax3_1 src1_0 unsafe-undefined)))))" "(define-values" "(1/read-syntax/recursive)" -"(let-values(((read-syntax/recursive10_0)" -"(lambda(src5_0 in6_3 start7_0 readtable8_0 graph?9_0)" +"(let-values(((read-syntax/recursive10_10)" +"(lambda(src5_0 in6_0 start7_0 readtable8_0 graph?9_0)" "(begin" " 'read-syntax/recursive10" -"(let-values(((src_4)(if(eq? src5_0 unsafe-undefined)(object-name(current-input-port)) src5_0)))" -"(let-values(((in_83)(if(eq? in6_3 unsafe-undefined)(current-input-port) in6_3)))" -"(let-values(((start_59) start7_0))" -"(let-values(((readtable_7)" +"(let-values(((src_16)" +"(if(eq? src5_0 unsafe-undefined)(object-name(current-input-port)) src5_0)))" +"(let-values(((in_17)(if(eq? in6_0 unsafe-undefined)(current-input-port) in6_0)))" +"(let-values(((start_18) start7_0))" +"(let-values(((readtable_19)" "(if(eq? readtable8_0 unsafe-undefined)(1/current-readtable) readtable8_0)))" -"(let-values(((graph?_3) graph?9_0))" -"(let-values()" -"(let-values()" -"(let-values()" -"(begin" -"(if(input-port? in_83)" -"(void)" -"(let-values()" -" (raise-argument-error 'read-syntax/recursive \"input-port?\" in_83)))" -"(if((lambda(x_92)" -"(let-values(((or-part_298)(not x_92)))" -"(if or-part_298 or-part_298(char? x_92))))" -" start_59)" -"(void)" -"(let-values()" -" (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_59)))" -"(if((lambda(x_93)" -"(let-values(((or-part_90)(not x_93)))" -"(if or-part_90 or-part_90(1/readtable? x_93))))" -" readtable_7)" -"(void)" -"(let-values()" -"(raise-argument-error" -" 'read-syntax/recursive" -" \"(or/c readtable? #f)\"" -" readtable_7)))" -"(read-syntax/recursive$1 src_4 in_83 start_59 readtable_7 graph?_3))))))))))))))" -"(case-lambda" -"(()" -"(begin" -" 'read-syntax/recursive" -"(read-syntax/recursive10_0 unsafe-undefined unsafe-undefined #f unsafe-undefined #t)))" -"((src_5 in_6 start_60 readtable_8 graph?9_1)(read-syntax/recursive10_0 src_5 in_6 start_60 readtable_8 graph?9_1))" -"((src_6 in_40 start_14 readtable8_1)(read-syntax/recursive10_0 src_6 in_40 start_14 readtable8_1 #t))" -"((src_7 in_13 start7_1)(read-syntax/recursive10_0 src_7 in_13 start7_1 unsafe-undefined #t))" -"((src_8 in6_4)(read-syntax/recursive10_0 src_8 in6_4 #f unsafe-undefined #t))" -"((src5_1)(read-syntax/recursive10_0 src5_1 unsafe-undefined #f unsafe-undefined #t)))))" -"(define-values" -"(1/read)" -"(let-values(((read13_0)" -"(lambda(in12_1)" -"(begin" -" 'read13" -"(let-values(((in_84)(if(eq? in12_1 unsafe-undefined)(current-input-port) in12_1)))" -"(let-values()" -"(let-values()" -"(let-values()" -"(begin" -"(if(input-port? in_84)" -"(void)" -" (let-values () (raise-argument-error 'read \"input-port?\" in_84)))" -"(read$1 in_84))))))))))" -"(case-lambda(()(begin 'read(read13_0 unsafe-undefined)))((in12_2)(read13_0 in12_2)))))" -"(define-values" -"(1/read/recursive)" -"(let-values(((read/recursive19_0)" -"(lambda(in15_1 start16_0 readtable17_0 graph?18_0)" -"(begin" -" 'read/recursive19" -"(let-values(((in_79)(if(eq? in15_1 unsafe-undefined)(current-input-port) in15_1)))" -"(let-values(((start_61) start16_0))" -"(let-values(((readtable_9)" -"(if(eq? readtable17_0 unsafe-undefined)(1/current-readtable) readtable17_0)))" -"(let-values(((graph?_4) graph?18_0))" -"(let-values()" -"(let-values()" -"(let-values()" -"(begin" -"(if(input-port? in_79)" -"(void)" -" (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_79)))" -"(if((lambda(x_94)" -"(let-values(((or-part_31)(not x_94)))" -"(if or-part_31 or-part_31(char? x_94))))" -" start_61)" -"(void)" -" (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_61)))" -"(if((lambda(x_95)" -"(let-values(((or-part_159)(not x_95)))" -"(if or-part_159 or-part_159(1/readtable? x_95))))" -" readtable_9)" -"(void)" -"(let-values()" -" (raise-argument-error 'read/recursive \"(or/c readtable? #f)\" readtable_9)))" -"(read/recursive$1 in_79 start_61 readtable_9 graph?_4)))))))))))))" -"(case-lambda" -"(()(begin 'read/recursive(read/recursive19_0 unsafe-undefined #f unsafe-undefined #t)))" -"((in_85 start_62 readtable_10 graph?18_1)(read/recursive19_0 in_85 start_62 readtable_10 graph?18_1))" -"((in_86 start_63 readtable17_1)(read/recursive19_0 in_86 start_63 readtable17_1 #t))" -"((in_87 start16_1)(read/recursive19_0 in_87 start16_1 unsafe-undefined #t))" -"((in15_2)(read/recursive19_0 in15_2 #f unsafe-undefined #t)))))" -"(define-values" -"(1/read-language)" -"(let-values(((read-language23_0)" -"(lambda(in21_3 fail-thunk22_0)" -"(begin" -" 'read-language23" -"(let-values(((in_17)(if(eq? in21_3 unsafe-undefined)(current-input-port) in21_3)))" -"(let-values(((fail-thunk_2)" -"(if(eq? fail-thunk22_0 unsafe-undefined) read-language-fail-thunk fail-thunk22_0)))" +"(let-values(((graph?_20) graph?9_0))" "(let-values()" "(let-values()" "(let-values()" "(begin" "(if(input-port? in_17)" "(void)" -" (let-values () (raise-argument-error 'read-language \"input-port?\" in_17)))" -"(if((lambda(p_67)(if(procedure? p_67)(procedure-arity-includes? p_67 0) #f))" -" fail-thunk_2)" +"(let-values()" +" (raise-argument-error 'read-syntax/recursive \"input-port?\" in_17)))" +"(if((lambda(x_0)" +"(let-values(((or-part_23)(not x_0)))" +"(if or-part_23 or-part_23(char? x_0))))" +" start_18)" +"(void)" +"(let-values()" +" (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_18)))" +"(if((lambda(x_0)" +"(let-values(((or-part_25)(not x_0)))" +"(if or-part_25 or-part_25(1/readtable? x_0))))" +" readtable_19)" +"(void)" +"(let-values()" +"(raise-argument-error" +" 'read-syntax/recursive" +" \"(or/c readtable? #f)\"" +" readtable_19)))" +"(read-syntax/recursive$1" +" src_16" +" in_17" +" start_18" +" readtable_19" +" graph?_20))))))))))))))" +"(case-lambda" +"(()" +"(begin" +" 'read-syntax/recursive" +"(read-syntax/recursive10_10 unsafe-undefined unsafe-undefined #f unsafe-undefined #t)))" +"((src_0 in_0 start_0 readtable_0 graph?9_0)(read-syntax/recursive10_10 src_0 in_0 start_0 readtable_0 graph?9_0))" +"((src_0 in_0 start_0 readtable8_0)(read-syntax/recursive10_10 src_0 in_0 start_0 readtable8_0 #t))" +"((src_0 in_0 start7_0)(read-syntax/recursive10_10 src_0 in_0 start7_0 unsafe-undefined #t))" +"((src_0 in6_0)(read-syntax/recursive10_10 src_0 in6_0 #f unsafe-undefined #t))" +"((src5_0)(read-syntax/recursive10_10 src5_0 unsafe-undefined #f unsafe-undefined #t)))))" +"(define-values" +"(1/read)" +"(let-values(((read13_41)" +"(lambda(in12_0)" +"(begin" +" 'read13" +"(let-values(((in_43)(if(eq? in12_0 unsafe-undefined)(current-input-port) in12_0)))" +"(let-values()" +"(let-values()" +"(let-values()" +"(begin" +"(if(input-port? in_43)" +"(void)" +" (let-values () (raise-argument-error 'read \"input-port?\" in_43)))" +"(read$1 in_43))))))))))" +"(case-lambda(()(begin 'read(read13_41 unsafe-undefined)))((in12_0)(read13_41 in12_0)))))" +"(define-values" +"(1/read/recursive)" +"(let-values(((read/recursive19_46)" +"(lambda(in15_0 start16_0 readtable17_0 graph?18_0)" +"(begin" +" 'read/recursive19" +"(let-values(((in_51)(if(eq? in15_0 unsafe-undefined)(current-input-port) in15_0)))" +"(let-values(((start_52) start16_0))" +"(let-values(((readtable_53)" +"(if(eq? readtable17_0 unsafe-undefined)(1/current-readtable) readtable17_0)))" +"(let-values(((graph?_54) graph?18_0))" +"(let-values()" +"(let-values()" +"(let-values()" +"(begin" +"(if(input-port? in_51)" +"(void)" +" (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_51)))" +"(if((lambda(x_0)" +"(let-values(((or-part_57)(not x_0)))" +"(if or-part_57 or-part_57(char? x_0))))" +" start_52)" +"(void)" +" (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_52)))" +"(if((lambda(x_0)" +"(let-values(((or-part_59)(not x_0)))" +"(if or-part_59 or-part_59(1/readtable? x_0))))" +" readtable_53)" +"(void)" +"(let-values()" +" (raise-argument-error 'read/recursive \"(or/c readtable? #f)\" readtable_53)))" +"(read/recursive$1 in_51 start_52 readtable_53 graph?_54)))))))))))))" +"(case-lambda" +"(()(begin 'read/recursive(read/recursive19_46 unsafe-undefined #f unsafe-undefined #t)))" +"((in_0 start_0 readtable_0 graph?18_0)(read/recursive19_46 in_0 start_0 readtable_0 graph?18_0))" +"((in_0 start_0 readtable17_0)(read/recursive19_46 in_0 start_0 readtable17_0 #t))" +"((in_0 start16_0)(read/recursive19_46 in_0 start16_0 unsafe-undefined #t))" +"((in15_0)(read/recursive19_46 in15_0 #f unsafe-undefined #t)))))" +"(define-values" +"(1/read-language)" +"(let-values(((read-language23_70)" +"(lambda(in21_0 fail-thunk22_0)" +"(begin" +" 'read-language23" +"(let-values(((in_73)(if(eq? in21_0 unsafe-undefined)(current-input-port) in21_0)))" +"(let-values(((fail-thunk_74)" +"(if(eq? fail-thunk22_0 unsafe-undefined) read-language-fail-thunk fail-thunk22_0)))" +"(let-values()" +"(let-values()" +"(let-values()" +"(begin" +"(if(input-port? in_73)" +"(void)" +" (let-values () (raise-argument-error 'read-language \"input-port?\" in_73)))" +"(if((lambda(p_0)(if(procedure? p_0)(procedure-arity-includes? p_0 0) #f))" +" fail-thunk_74)" "(void)" "(let-values()" "(raise-argument-error" " 'read-language" " \"(procedure-arity-includes/c 0)\"" -" fail-thunk_2)))" +" fail-thunk_74)))" "(read-language$1" -" in_17" -"(if(eq? fail-thunk_2 read-language-fail-thunk) #f fail-thunk_2))))))))))))" +" in_73" +"(if(eq? fail-thunk_74 read-language-fail-thunk) #f fail-thunk_74))))))))))))" "(case-lambda" -"(()(begin 'read-language(read-language23_0 unsafe-undefined unsafe-undefined)))" -"((in_88 fail-thunk22_1)(read-language23_0 in_88 fail-thunk22_1))" -"((in21_4)(read-language23_0 in21_4 unsafe-undefined)))))" +"(()(begin 'read-language(read-language23_70 unsafe-undefined unsafe-undefined)))" +"((in_0 fail-thunk22_0)(read-language23_70 in_0 fail-thunk22_0))" +"((in21_0)(read-language23_70 in21_0 unsafe-undefined)))))" " (define-values (read-language-fail-thunk) (lambda () (begin (error \"fail\"))))" "(define-values" "(declare-primitive-module!)" -"(lambda(name_71 inst_6 in-ns_0 protected_0 cross-phase-persistent?_3)" +"(lambda(name_0 inst_0 in-ns_0 protected_0 cross-phase-persistent?_0)" "(begin" -"(let-values(((mpi_48)(1/module-path-index-join(list 'quote name_71) #f)))" -"(let-values(((in-ns1_0) in-ns_0)" -"((temp2_6)" -"(let-values(((temp4_0)(1/current-module-declare-source))" -"((cross-phase-persistent?5_0) cross-phase-persistent?_3)" -"((temp6_4)(zero?(hash-count protected_0)))" -"((mpi7_0) mpi_48)" -"((temp8_4)" +"(let-values(((mpi_6)(1/module-path-index-join(list 'quote name_0) #f)))" +"(let-values(((in-ns1_7) in-ns_0)" +"((temp2_8)" +"(let-values(((temp4_11)(1/current-module-declare-source))" +"((cross-phase-persistent?5_12) cross-phase-persistent?_0)" +"((temp6_13)(zero?(hash-count protected_0)))" +"((mpi7_14) mpi_6)" +"((temp8_15)" "(hasheqv" " 0" -"(let-values(((lst_81)(1/instance-variable-names inst_6)))" +"(let-values(((lst_17)(1/instance-variable-names inst_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_102)" -"(lambda(table_206 lst_82)" +"(let-values()(check-list lst_17)))" +"((letrec-values(((for-loop_18)" +"(lambda(table_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_82)" -"(let-values(((sym_68)(unsafe-car lst_82))" -"((rest_38)(unsafe-cdr lst_82)))" -"(let-values(((table_171)" -"(let-values(((table_211) table_206))" -"(let-values(((table_212)" +"(if(pair? lst_0)" +"(let-values(((sym_21)(unsafe-car lst_0))" +"((rest_22)(unsafe-cdr lst_0)))" +"(let-values(((table_23)" +"(let-values(((table_24) table_0))" +"(let-values(((table_25)" "(let-values()" -"(let-values(((key_33" -" val_80)" +"(let-values(((key_26" +" val_27)" "(let-values()" -"(let-values(((binding_26)" -"(let-values(((mpi10_0)" -" mpi_48)" -"((temp11_6)" +"(let-values(((binding_28)" +"(let-values(((mpi10_29)" +" mpi_6)" +"((temp11_30)" " 0)" -"((sym12_0)" -" sym_68))" +"((sym12_31)" +" sym_21))" "(make-module-binding22.1" " #f" " null" @@ -57047,118 +57333,117 @@ static const char *startup_source = " 0" " unsafe-undefined" " unsafe-undefined" -" mpi10_0" -" temp11_6" -" sym12_0))))" +" mpi10_29" +" temp11_30" +" sym12_31))))" "(values" -" sym_68" +" sym_21" "(if(hash-ref" " protected_0" -" sym_68" +" sym_21" " #f)" "(provided1.1" -" binding_26" +" binding_28" " #t" " #f)" -" binding_26))))))" +" binding_28))))))" "(hash-set" -" table_211" -" key_33" -" val_80)))))" -"(values table_212)))))" +" table_24" +" key_26" +" val_27)))))" +"(values table_25)))))" "(if(not #f)" -"(for-loop_102 table_171 rest_38)" -" table_171)))" -" table_206)))))" -" for-loop_102)" +"(for-loop_18 table_23 rest_22)" +" table_23)))" +" table_0)))))" +" for-loop_18)" " '#hash()" -" lst_81)))))" -"((temp9_7)" -"(lambda(data-box_5" -" ns_45" -" phase-shift_19" -" phase-level_22" -" self_28" -" bulk-binding-registry_18" -" insp_20)" -"(if(= 0 phase-level_22)" +" lst_17)))))" +"((temp9_16)" +"(lambda(data-box_0" +" ns_0" +" phase-shift_0" +" phase-level_0" +" self_0" +" bulk-binding-registry_0" +" insp_0)" +"(if(= 0 phase-level_0)" "(let-values()" "(begin" -"(let-values(((lst_22)(1/instance-variable-names inst_6)))" +"(let-values(((lst_39)(1/instance-variable-names inst_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_22)))" -"((letrec-values(((for-loop_20)" -"(lambda(lst_261)" +"(let-values()(check-list lst_39)))" +"((letrec-values(((for-loop_40)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_261)" -"(let-values(((sym_102)(unsafe-car lst_261))" -"((rest_177)(unsafe-cdr lst_261)))" +"(if(pair? lst_0)" +"(let-values(((sym_42)(unsafe-car lst_0))" +"((rest_43)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((val_81)" +"(let-values(((val_44)" "(1/instance-variable-value" -" inst_6" -" sym_102)))" +" inst_0" +" sym_42)))" "(namespace-set-variable!" -" ns_45" +" ns_0" " 0" -" sym_102" -" val_81)))" +" sym_42" +" val_44)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_20 rest_177)" +"(for-loop_40 rest_43)" "(values))))" "(values))))))" -" for-loop_20)" -" lst_22)))" +" for-loop_40)" +" lst_39)))" "(void)))" "(void)))))" "(make-module39.1" -" cross-phase-persistent?5_0" +" cross-phase-persistent?5_12" " unsafe-undefined" " unsafe-undefined" -" temp9_7" +" temp9_16" " #f" " 0" " 0" -" temp6_4" +" temp6_13" " unsafe-undefined" " #f" " unsafe-undefined" " #f" -" temp8_4" +" temp8_15" " null" -" mpi7_0" -" temp4_0" +" mpi7_14" +" temp4_11" " null" " #f)))" -"((temp3_9)(substitute-module-declare-name name_71)))" -"(declare-module!58.1 #t in-ns1_0 temp2_6 temp3_9))))))" +"((temp3_9)(substitute-module-declare-name name_0)))" +"(declare-module!58.1 #t in-ns1_7 temp2_8 temp3_9))))))" "(define-values" "(1/prop:exn:missing-module 1/exn:missing-module? 1/exn:missing-module-accessor)" "(make-struct-type-property" " 'missing-module" -"(lambda(v_30 info_5)" +"(lambda(v_0 info_0)" "(begin" -"(if(if(procedure? v_30)(procedure-arity-includes? v_30 1) #f)" +"(if(if(procedure? v_0)(procedure-arity-includes? v_0 1) #f)" "(void)" -"(let-values()" -" (raise-argument-error 'guard-for-prop:exn:missing-module \"(procedure-arity-includes/c 1)\" v_30)))" -" v_30))))" +" (let-values () (raise-argument-error 'guard-for-prop:exn:missing-module \"(procedure-arity-includes/c 1)\" v_0)))" +" v_0))))" "(define-values" "(1/struct:exn:fail:filesystem:missing-module" " 1/make-exn:fail:filesystem:missing-module" " 1/exn:fail:filesystem:missing-module?" " 1/exn:fail:filesystem:missing-module-path)" -"(let-values(((struct:_77 make-_77 ?_77 -ref_77 -set!_77)" +"(let-values(((struct:_5 make-_6 ?_7 -ref_8 -set!_9)" "(let-values()" "(let-values()" "(make-struct-type" @@ -57168,19 +57453,19 @@ static const char *startup_source = " 0" " #f" "(list" -"(cons 1/prop:exn:missing-module(lambda(e_85)(1/exn:fail:filesystem:missing-module-path e_85))))" +"(cons 1/prop:exn:missing-module(lambda(e_0)(1/exn:fail:filesystem:missing-module-path e_0))))" " #f" " #f" " '(0)" " #f" " 'exn:fail:filesystem:missing-module)))))" -"(values struct:_77 make-_77 ?_77(make-struct-field-accessor -ref_77 0 'path))))" +"(values struct:_5 make-_6 ?_7(make-struct-field-accessor -ref_8 0 'path))))" "(define-values" "(1/struct:exn:fail:syntax:missing-module" " 1/make-exn:fail:syntax:missing-module" " 1/exn:fail:syntax:missing-module?" " 1/exn:fail:syntax:missing-module-path)" -"(let-values(((struct:_61 make-_61 ?_61 -ref_61 -set!_61)" +"(let-values(((struct:_26 make-_27 ?_28 -ref_29 -set!_30)" "(let-values()" "(let-values()" "(make-struct-type" @@ -57189,25 +57474,24 @@ static const char *startup_source = " 1" " 0" " #f" -"(list" -"(cons 1/prop:exn:missing-module(lambda(e_32)(1/exn:fail:syntax:missing-module-path e_32))))" +"(list(cons 1/prop:exn:missing-module(lambda(e_0)(1/exn:fail:syntax:missing-module-path e_0))))" " #f" " #f" " '(0)" " #f" " 'exn:fail:syntax:missing-module)))))" -"(values struct:_61 make-_61 ?_61(make-struct-field-accessor -ref_61 0 'path))))" +"(values struct:_26 make-_27 ?_28(make-struct-field-accessor -ref_29 0 'path))))" "(define-values" "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_226)" +"(lambda(v_0)" "(begin" -"(if(let-values(((or-part_67)(not v_226)))" -"(if or-part_67" -" or-part_67" -"(let-values(((or-part_68)(1/module-path? v_226)))" -"(if or-part_68 or-part_68(if(syntax?$1 v_226)(1/module-path?(syntax->datum$1 v_226)) #f)))))" +"(if(let-values(((or-part_48)(not v_0)))" +"(if or-part_48" +" or-part_48" +"(let-values(((or-part_49)(1/module-path? v_0)))" +"(if or-part_49 or-part_49(if(syntax?$1 v_0)(1/module-path?(syntax->datum$1 v_0)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -57216,17 +57500,17 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_226)))" -" v_226))))" +" v_0)))" +" v_0))))" "(define-values" "(maybe-raise-missing-module)" -"(lambda(name_72 filename_0 pre_0 rel_0 post_0 errstr_0)" +"(lambda(name_0 filename_0 pre_0 rel_0 post_0 errstr_0)" "(begin" -"(let-values(((path_11)(1/current-module-path-for-load)))" -"(if path_11" +"(let-values(((path_56)(1/current-module-path-for-load)))" +"(if path_56" "(let-values()" "(begin" -"(if(syntax?$1 path_11)" +"(if(syntax?$1 path_56)" "(let-values()" "(raise" "(1/make-exn:fail:syntax:missing-module" @@ -57236,16 +57520,16 @@ static const char *startup_source = " \" module path: ~a\\n\"" " \" path: ~a~a~a~a\\n\"" " \" system error: ~a\")" -"(if(syntax-srcloc path_11)(srcloc->string(syntax-srcloc path_11)) name_72)" -"(syntax->datum$1 path_11)" +"(if(syntax-srcloc path_56)(srcloc->string(syntax-srcloc path_56)) name_0)" +"(syntax->datum$1 path_56)" " filename_0" " pre_0" " rel_0" " post_0" " errstr_0)" "(current-continuation-marks)" -"(list path_11)" -"(syntax->datum$1 path_11))))" +"(list path_56)" +"(syntax->datum$1 path_56))))" "(void))" "(raise" "(1/make-exn:fail:filesystem:missing-module" @@ -57255,248 +57539,248 @@ static const char *startup_source = " \" module path: ~a\\n\"" " \" path: ~a~a~a~a\\n\"" " \" system error: ~a\")" -" name_72" -" path_11" +" name_0" +" path_56" " filename_0" " pre_0" " rel_0" " post_0" " errstr_0)" "(current-continuation-marks)" -" path_11))))" +" path_56))))" "(void))))))" "(define-values" "(1/local-expand)" -"(let-values(((local-expand6_0)" -"(lambda(s3_2 context4_0 stop-ids5_0 intdefs1_0 extend-stops?2_0)" +"(let-values(((local-expand6_1)" +"(lambda(s3_0 context4_0 stop-ids5_0 intdefs1_0 extend-stops?2_0)" "(begin" " 'local-expand6" -"(let-values(((s_2) s3_2))" -"(let-values(((context_10) context4_0))" -"(let-values(((stop-ids_2) stop-ids5_0))" -"(let-values(((intdefs_4) intdefs1_0))" -"(let-values(((extend-stops?_1) extend-stops?2_0))" +"(let-values(((s_7) s3_0))" +"(let-values(((context_8) context4_0))" +"(let-values(((stop-ids_9) stop-ids5_0))" +"(let-values(((intdefs_10) intdefs1_0))" +"(let-values(((extend-stops?_11) extend-stops?2_0))" "(let-values()" -"(let-values(((temp59_8) 'local-expand)" -"((s60_1) s_2)" -"((context61_0) context_10)" -"((stop-ids62_0) stop-ids_2)" -"((intdefs63_0) intdefs_4)" -"((extend-stops?64_0) extend-stops?_1))" +"(let-values(((temp59_13) 'local-expand)" +"((s60_14) s_7)" +"((context61_15) context_8)" +"((stop-ids62_16) stop-ids_9)" +"((intdefs63_17) intdefs_10)" +"((extend-stops?64_18) extend-stops?_11))" "(do-local-expand56.1" " #f" " #f" -" extend-stops?64_0" +" extend-stops?64_18" " #t" " unsafe-undefined" " #f" " #f" " #f" -" temp59_8" -" s60_1" -" context61_0" -" stop-ids62_0" -" intdefs63_0))))))))))))" +" temp59_13" +" s60_14" +" context61_15" +" stop-ids62_16" +" intdefs63_17))))))))))))" "(case-lambda" -"((s_170 context_11 stop-ids_3)(begin 'local-expand(local-expand6_0 s_170 context_11 stop-ids_3 '() #t)))" -"((s_493 context_12 stop-ids_4 intdefs_5 extend-stops?2_1)" -"(local-expand6_0 s_493 context_12 stop-ids_4 intdefs_5 extend-stops?2_1))" -"((s_494 context_13 stop-ids_5 intdefs1_1)(local-expand6_0 s_494 context_13 stop-ids_5 intdefs1_1 #t)))))" +"((s_0 context_0 stop-ids_0)(begin 'local-expand(local-expand6_1 s_0 context_0 stop-ids_0 '() #t)))" +"((s_0 context_0 stop-ids_0 intdefs_0 extend-stops?2_0)" +"(local-expand6_1 s_0 context_0 stop-ids_0 intdefs_0 extend-stops?2_0))" +"((s_0 context_0 stop-ids_0 intdefs1_0)(local-expand6_1 s_0 context_0 stop-ids_0 intdefs1_0 #t)))))" "(define-values" "(1/local-expand/capture-lifts)" -"(let-values(((local-expand/capture-lifts14_0)" -"(lambda(s11_2 context12_0 stop-ids13_0 intdefs8_0 lift-key9_0 extend-stops?10_0)" +"(let-values(((local-expand/capture-lifts14_31)" +"(lambda(s11_0 context12_0 stop-ids13_0 intdefs8_0 lift-key9_0 extend-stops?10_0)" "(begin" " 'local-expand/capture-lifts14" -"(let-values(((s_167) s11_2))" -"(let-values(((context_14) context12_0))" -"(let-values(((stop-ids_6) stop-ids13_0))" -"(let-values(((intdefs_6) intdefs8_0))" -"(let-values(((lift-key_4)" +"(let-values(((s_38) s11_0))" +"(let-values(((context_39) context12_0))" +"(let-values(((stop-ids_40) stop-ids13_0))" +"(let-values(((intdefs_41) intdefs8_0))" +"(let-values(((lift-key_42)" "(if(eq? lift-key9_0 unsafe-undefined)(generate-lift-key) lift-key9_0)))" -"(let-values(((extend-stops?_2) extend-stops?10_0))" +"(let-values(((extend-stops?_43) extend-stops?10_0))" "(let-values()" -"(let-values(((temp65_4) 'local-expand)" -"((s66_2) s_167)" -"((context67_0) context_14)" -"((stop-ids68_0) stop-ids_6)" -"((intdefs69_0) intdefs_6)" -"((temp70_5) #t)" -"((extend-stops?71_0) extend-stops?_2)" -"((lift-key72_0) lift-key_4))" +"(let-values(((temp65_45) 'local-expand)" +"((s66_46) s_38)" +"((context67_47) context_39)" +"((stop-ids68_48) stop-ids_40)" +"((intdefs69_49) intdefs_41)" +"((temp70_50) #t)" +"((extend-stops?71_51) extend-stops?_43)" +"((lift-key72_52) lift-key_42))" "(do-local-expand56.1" " #f" -" temp70_5" -" extend-stops?71_0" +" temp70_50" +" extend-stops?71_51" " #t" -" lift-key72_0" +" lift-key72_52" " #f" " #f" " #f" -" temp65_4" -" s66_2" -" context67_0" -" stop-ids68_0" -" intdefs69_0)))))))))))))" +" temp65_45" +" s66_46" +" context67_47" +" stop-ids68_48" +" intdefs69_49)))))))))))))" "(case-lambda" -"((s_90 context_15 stop-ids_7)" +"((s_0 context_0 stop-ids_0)" "(begin" " 'local-expand/capture-lifts" -"(local-expand/capture-lifts14_0 s_90 context_15 stop-ids_7 '() unsafe-undefined #t)))" -"((s_44 context_16 stop-ids_8 intdefs_7 lift-key_5 extend-stops?10_1)" -"(local-expand/capture-lifts14_0 s_44 context_16 stop-ids_8 intdefs_7 lift-key_5 extend-stops?10_1))" -"((s_308 context_17 stop-ids_9 intdefs_8 lift-key9_1)" -"(local-expand/capture-lifts14_0 s_308 context_17 stop-ids_9 intdefs_8 lift-key9_1 #t))" -"((s_186 context_18 stop-ids_10 intdefs8_1)" -"(local-expand/capture-lifts14_0 s_186 context_18 stop-ids_10 intdefs8_1 unsafe-undefined #t)))))" +"(local-expand/capture-lifts14_31 s_0 context_0 stop-ids_0 '() unsafe-undefined #t)))" +"((s_0 context_0 stop-ids_0 intdefs_0 lift-key_0 extend-stops?10_0)" +"(local-expand/capture-lifts14_31 s_0 context_0 stop-ids_0 intdefs_0 lift-key_0 extend-stops?10_0))" +"((s_0 context_0 stop-ids_0 intdefs_0 lift-key9_0)" +"(local-expand/capture-lifts14_31 s_0 context_0 stop-ids_0 intdefs_0 lift-key9_0 #t))" +"((s_0 context_0 stop-ids_0 intdefs8_0)" +"(local-expand/capture-lifts14_31 s_0 context_0 stop-ids_0 intdefs8_0 unsafe-undefined #t)))))" "(define-values" "(1/local-transformer-expand)" -"(let-values(((local-transformer-expand21_0)" +"(let-values(((local-transformer-expand21_71)" "(lambda(s18_0 context19_0 stop-ids20_0 intdefs16_0 extend-stops?17_0)" "(begin" " 'local-transformer-expand21" -"(let-values(((s_81) s18_0))" -"(let-values(((context_19) context19_0))" -"(let-values(((stop-ids_11) stop-ids20_0))" -"(let-values(((intdefs_9) intdefs16_0))" -"(let-values(((extend-stops?_3) extend-stops?17_0))" +"(let-values(((s_77) s18_0))" +"(let-values(((context_78) context19_0))" +"(let-values(((stop-ids_79) stop-ids20_0))" +"(let-values(((intdefs_80) intdefs16_0))" +"(let-values(((extend-stops?_81) extend-stops?17_0))" "(let-values()" -"(let-values(((temp73_3) 'local-expand)" -"((s74_0) s_81)" -"((context75_0) context_19)" -"((stop-ids76_0) stop-ids_11)" -"((intdefs77_0) intdefs_9)" -"((temp78_4) #t)" -"((extend-stops?79_0) extend-stops?_3))" +"(let-values(((temp73_83) 'local-expand)" +"((s74_84) s_77)" +"((context75_85) context_78)" +"((stop-ids76_86) stop-ids_79)" +"((intdefs77_87) intdefs_80)" +"((temp78_88) #t)" +"((extend-stops?79_89) extend-stops?_81))" "(do-local-expand56.1" -" temp78_4" +" temp78_88" " #f" -" extend-stops?79_0" +" extend-stops?79_89" " #t" " unsafe-undefined" " #f" " #f" " #f" -" temp73_3" -" s74_0" -" context75_0" -" stop-ids76_0" -" intdefs77_0))))))))))))" +" temp73_83" +" s74_84" +" context75_85" +" stop-ids76_86" +" intdefs77_87))))))))))))" "(case-lambda" -"((s_156 context_20 stop-ids_12)" -"(begin 'local-transformer-expand(local-transformer-expand21_0 s_156 context_20 stop-ids_12 '() #t)))" -"((s_16 context_21 stop-ids_13 intdefs_10 extend-stops?17_1)" -"(local-transformer-expand21_0 s_16 context_21 stop-ids_13 intdefs_10 extend-stops?17_1))" -"((s_21 context_22 stop-ids_14 intdefs16_1)" -"(local-transformer-expand21_0 s_21 context_22 stop-ids_14 intdefs16_1 #t)))))" +"((s_0 context_0 stop-ids_0)" +"(begin 'local-transformer-expand(local-transformer-expand21_71 s_0 context_0 stop-ids_0 '() #t)))" +"((s_0 context_0 stop-ids_0 intdefs_0 extend-stops?17_0)" +"(local-transformer-expand21_71 s_0 context_0 stop-ids_0 intdefs_0 extend-stops?17_0))" +"((s_0 context_0 stop-ids_0 intdefs16_0)(local-transformer-expand21_71 s_0 context_0 stop-ids_0 intdefs16_0 #t)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" -"(let-values(((local-transformer-expand/capture-lifts29_0)" -"(lambda(s26_1 context27_1 stop-ids28_0 intdefs23_1 lift-key24_0 extend-stops?25_0)" +"(let-values(((local-transformer-expand/capture-lifts29_102)" +"(lambda(s26_0 context27_0 stop-ids28_0 intdefs23_0 lift-key24_0 extend-stops?25_0)" "(begin" " 'local-transformer-expand/capture-lifts29" -"(let-values(((s_495) s26_1))" -"(let-values(((context_23) context27_1))" -"(let-values(((stop-ids_15) stop-ids28_0))" -"(let-values(((intdefs_11) intdefs23_1))" -"(let-values(((lift-key_6)" +"(let-values(((s_109) s26_0))" +"(let-values(((context_110) context27_0))" +"(let-values(((stop-ids_111) stop-ids28_0))" +"(let-values(((intdefs_112) intdefs23_0))" +"(let-values(((lift-key_113)" "(if(eq? lift-key24_0 unsafe-undefined)(generate-lift-key) lift-key24_0)))" -"(let-values(((extend-stops?_4) extend-stops?25_0))" +"(let-values(((extend-stops?_114) extend-stops?25_0))" "(let-values()" -"(let-values(((temp80_2) 'local-expand)" -"((s81_0) s_495)" -"((context82_0) context_23)" -"((stop-ids83_0) stop-ids_15)" -"((intdefs84_0) intdefs_11)" -"((temp85_2) #t)" -"((temp86_4) #t)" -"((extend-stops?87_0) extend-stops?_4)" -"((lift-key88_0) lift-key_6))" +"(let-values(((temp80_116) 'local-expand)" +"((s81_117) s_109)" +"((context82_118) context_110)" +"((stop-ids83_119) stop-ids_111)" +"((intdefs84_120) intdefs_112)" +"((temp85_121) #t)" +"((temp86_122) #t)" +"((extend-stops?87_123) extend-stops?_114)" +"((lift-key88_124) lift-key_113))" "(do-local-expand56.1" -" temp85_2" -" temp86_4" -" extend-stops?87_0" +" temp85_121" +" temp86_122" +" extend-stops?87_123" " #t" -" lift-key88_0" +" lift-key88_124" " #f" " #f" " #f" -" temp80_2" -" s81_0" -" context82_0" -" stop-ids83_0" -" intdefs84_0)))))))))))))" +" temp80_116" +" s81_117" +" context82_118" +" stop-ids83_119" +" intdefs84_120)))))))))))))" "(case-lambda" -"((s_175 context_24 stop-ids_16)" +"((s_0 context_0 stop-ids_0)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts29_0 s_175 context_24 stop-ids_16 '() unsafe-undefined #t)))" -"((s_46 context_25 stop-ids_17 intdefs_12 lift-key_7 extend-stops?25_1)" -"(local-transformer-expand/capture-lifts29_0 s_46 context_25 stop-ids_17 intdefs_12 lift-key_7 extend-stops?25_1))" -"((s_309 context_26 stop-ids_18 intdefs_13 lift-key24_1)" -"(local-transformer-expand/capture-lifts29_0 s_309 context_26 stop-ids_18 intdefs_13 lift-key24_1 #t))" -"((s_28 context_27 stop-ids_19 intdefs23_2)" -"(local-transformer-expand/capture-lifts29_0 s_28 context_27 stop-ids_19 intdefs23_2 unsafe-undefined #t)))))" +"(local-transformer-expand/capture-lifts29_102 s_0 context_0 stop-ids_0 '() unsafe-undefined #t)))" +"((s_0 context_0 stop-ids_0 intdefs_0 lift-key_0 extend-stops?25_0)" +"(local-transformer-expand/capture-lifts29_102 s_0 context_0 stop-ids_0 intdefs_0 lift-key_0 extend-stops?25_0))" +"((s_0 context_0 stop-ids_0 intdefs_0 lift-key24_0)" +"(local-transformer-expand/capture-lifts29_102 s_0 context_0 stop-ids_0 intdefs_0 lift-key24_0 #t))" +"((s_0 context_0 stop-ids_0 intdefs23_0)" +"(local-transformer-expand/capture-lifts29_102 s_0 context_0 stop-ids_0 intdefs23_0 unsafe-undefined #t)))))" "(define-values" "(1/syntax-local-expand-expression)" -"(let-values(((syntax-local-expand-expression33_0)" +"(let-values(((syntax-local-expand-expression33_143)" "(lambda(s32_0 opaque-only?31_0)" "(begin" " 'syntax-local-expand-expression33" -"(let-values(((s_311) s32_0))" -"(let-values(((opaque-only?_0) opaque-only?31_0))" +"(let-values(((s_146) s32_0))" +"(let-values(((opaque-only?_147) opaque-only?31_0))" "(let-values()" -"(let-values(((exp-s_11)" -"(let-values(((temp89_4) 'syntax-local-expand-expression)" -"((s90_1) s_311)" -"((temp91_2) 'expression)" -"((null92_0) null)" -"((temp93_3) #f)" -"((opaque-only?94_0) opaque-only?_0)" -"((temp95_2) #t)" -"((temp96_4) #t)" -"((temp97_3) #f))" +"(let-values(((exp-s_148)" +"(let-values(((temp89_152) 'syntax-local-expand-expression)" +"((s90_153) s_146)" +"((temp91_154) 'expression)" +"((null92_155) null)" +"((temp93_156) #f)" +"((opaque-only?94_157) opaque-only?_147)" +"((temp95_158) #t)" +"((temp96_159) #t)" +"((temp97_160) #f))" "(do-local-expand56.1" " #f" " #f" " #t" -" temp97_3" +" temp97_160" " unsafe-undefined" -" temp95_2" -" opaque-only?94_0" -" temp96_4" -" temp89_4" -" s90_1" -" temp91_2" -" null92_0" -" temp93_3))))" -"(let-values(((ctx_74)(let-values()(get-current-expand-context16.1 #f 'unexpected))))" -"(let-values(((ae_1)" +" temp95_158" +" opaque-only?94_157" +" temp96_159" +" temp89_152" +" s90_153" +" temp91_154" +" null92_155" +" temp93_156))))" +"(let-values(((ctx_149)(let-values()(get-current-expand-context16.1 #f 'unexpected))))" +"(let-values(((ae_150)" "(flip-introduction-scopes" "(datum->syntax$1" " #f" "(already-expanded1.1" -"(if(parsed? exp-s_11)" -" exp-s_11" -"(flip-introduction-scopes exp-s_11 ctx_74))" -"(expand-context-binding-layer ctx_74)))" -" ctx_74)))" +"(if(parsed? exp-s_148)" +" exp-s_148" +"(flip-introduction-scopes exp-s_148 ctx_149))" +"(expand-context-binding-layer ctx_149)))" +" ctx_149)))" "(begin" -"(let-values(((obs_60)(expand-context-observer ctx_74)))" -"(if obs_60" -"(let-values()(let-values()(call-expand-observe obs_60 'opaque-expr ae_1)))" +"(let-values(((obs_161)(expand-context-observer ctx_149)))" +"(if obs_161" +"(let-values()(let-values()(call-expand-observe obs_161 'opaque-expr ae_150)))" "(void)))" -"(let-values(((obs_61)(expand-context-observer ctx_74)))" -"(if obs_61" -"(let-values()(let-values()(call-expand-observe obs_61 'exit-local exp-s_11)))" +"(let-values(((obs_162)(expand-context-observer ctx_149)))" +"(if obs_162" +"(let-values()" +"(let-values()(call-expand-observe obs_162 'exit-local exp-s_148)))" "(void)))" -"(values(if(not opaque-only?_0) exp-s_11 #f) ae_1))))))))))))" +"(values(if(not opaque-only?_147) exp-s_148 #f) ae_150))))))))))))" "(case-lambda" -"((s_51)(begin 'syntax-local-expand-expression(syntax-local-expand-expression33_0 s_51 #f)))" -"((s_496 opaque-only?31_1)(syntax-local-expand-expression33_0 s_496 opaque-only?31_1)))))" +"((s_0)(begin 'syntax-local-expand-expression(syntax-local-expand-expression33_143 s_0 #f)))" +"((s_0 opaque-only?31_0)(syntax-local-expand-expression33_143 s_0 opaque-only?31_0)))))" "(define-values" "(do-local-expand56.1)" -"(lambda(as-transformer?36_1" +"(lambda(as-transformer?36_0" " capture-lifts?35_0" " extend-stops?37_0" " keep-#%expression?39_0" @@ -57511,299 +57795,301 @@ static const char *startup_source = " intdefs51_0)" "(begin" " 'do-local-expand56" -"(let-values(((who_35) who52_0))" -"(let-values(((s-or-s-exp_0) s-or-s-exp53_0))" -"(let-values(((context_28) context54_0))" -"(let-values(((stop-ids_20) stop-ids55_0))" -"(let-values(((intdefs_14) intdefs51_0))" -"(let-values(((capture-lifts?_0) capture-lifts?35_0))" -"(let-values(((as-transformer?_6) as-transformer?36_1))" -"(let-values(((extend-stops?_5) extend-stops?37_0))" -"(let-values(((to-parsed-ok?_1) to-parsed-ok?38_0))" -"(let-values(((keep-#%expression?_2) keep-#%expression?39_0))" -"(let-values(((lift-key_8)" +"(let-values(((who_179) who52_0))" +"(let-values(((s-or-s-exp_180) s-or-s-exp53_0))" +"(let-values(((context_181) context54_0))" +"(let-values(((stop-ids_182) stop-ids55_0))" +"(let-values(((intdefs_183) intdefs51_0))" +"(let-values(((capture-lifts?_184) capture-lifts?35_0))" +"(let-values(((as-transformer?_185) as-transformer?36_0))" +"(let-values(((extend-stops?_186) extend-stops?37_0))" +"(let-values(((to-parsed-ok?_187) to-parsed-ok?38_0))" +"(let-values(((keep-#%expression?_188) keep-#%expression?39_0))" +"(let-values(((lift-key_189)" "(if(eq? lift-key40_0 unsafe-undefined)" -"(if(let-values(((or-part_205) capture-lifts?_0))" -"(if or-part_205 or-part_205 as-transformer?_6))" +"(if(let-values(((or-part_190) capture-lifts?_184))" +"(if or-part_190 or-part_190 as-transformer?_185))" "(generate-lift-key)" " #f)" " lift-key40_0)))" -"(let-values(((track-to-be-defined?_1) track-to-be-defined?41_0))" -"(let-values(((skip-log-exit?_0) skip-log-exit?42_0))" +"(let-values(((track-to-be-defined?_191) track-to-be-defined?41_0))" +"(let-values(((skip-log-exit?_192) skip-log-exit?42_0))" "(let-values()" "(let-values()" -"(let-values(((s_305)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_193)(datum->syntax$1 #f s-or-s-exp_180)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_366)(list? context_28)))" -"(if or-part_366" -" or-part_366" +"(if(let-values(((or-part_200)(list? context_181)))" +"(if or-part_200" +" or-part_200" "(memq" -" context_28" -"(if as-transformer?_6" +" context_181" +"(if as-transformer?_185" " '(expression top-level)" " '(expression top-level module module-begin)))))" "(void)" "(let-values()" "(raise-argument-error" -" who_35" -"(if as-transformer?_6" +" who_179" +"(if as-transformer?_185" " \"(or/c 'expression 'top-level list?)\"" " \"(or/c 'expression 'top-level 'module 'module-begin list?)\")" -" context_28)))" +" context_181)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_367)(not stop-ids_20)))" -"(if or-part_367" -" or-part_367" -"(if(list? stop-ids_20)" -"(andmap2 identifier? stop-ids_20)" +"(if(let-values(((or-part_201)(not stop-ids_182)))" +"(if or-part_201" +" or-part_201" +"(if(list? stop-ids_182)" +"(andmap2 identifier? stop-ids_182)" " #f)))" "(void)" "(let-values()" "(raise-argument-error" -" who_35" +" who_179" " \"(or/c (listof identifier?) #f)\"" -" stop-ids_20)))" +" stop-ids_182)))" "(values))))" "(let-values((()" "(begin" -"(if(intdefs-or-false? intdefs_14)" +"(if(intdefs-or-false? intdefs_183)" "(void)" "(let-values()" "(raise-argument-error" -" who_35" +" who_179" " intdefs-or-false?-string" -" intdefs_14)))" +" intdefs_183)))" "(values))))" -"(let-values(((ctx_75)" -"(let-values(((who98_0) who_35))" -"(get-current-expand-context16.1 #f who98_0))))" -"(let-values(((phase_136)" -"(if as-transformer?_6" -"(add1(expand-context-phase ctx_75))" -"(expand-context-phase ctx_75))))" -"(let-values(((local-ctx_0)" -"(let-values(((ctx99_0) ctx_75)" -"((context100_0) context_28)" -"((phase101_0) phase_136)" -"((intdefs102_0) intdefs_14)" -"((stop-ids103_0) stop-ids_20)" -"((extend-stops?104_0) extend-stops?_5)" -"((to-parsed-ok?105_0) to-parsed-ok?_1)" -"((temp106_4)" -"(let-values(((or-part_368)" -" keep-#%expression?_2))" -"(if or-part_368" -" or-part_368" +"(let-values(((ctx_194)" +"(let-values(((who98_202) who_179))" +"(get-current-expand-context16.1 #f who98_202))))" +"(let-values(((phase_195)" +"(if as-transformer?_185" +"(add1(expand-context-phase ctx_194))" +"(expand-context-phase ctx_194))))" +"(let-values(((local-ctx_196)" +"(let-values(((ctx99_204) ctx_194)" +"((context100_205) context_181)" +"((phase101_206) phase_195)" +"((intdefs102_207) intdefs_183)" +"((stop-ids103_208) stop-ids_182)" +"((extend-stops?104_209) extend-stops?_186)" +"((to-parsed-ok?105_210) to-parsed-ok?_187)" +"((temp106_211)" +"(let-values(((or-part_213)" +" keep-#%expression?_188))" +"(if or-part_213" +" or-part_213" "(if(expand-context-in-local-expand?" -" ctx_75)" +" ctx_194)" "(expand-context-keep-#%expression?" -" ctx_75)" +" ctx_194)" " #f))))" -"((track-to-be-defined?107_0)" -" track-to-be-defined?_1))" +"((track-to-be-defined?107_212)" +" track-to-be-defined?_191))" "(make-local-expand-context44.1" -" context100_0" -" extend-stops?104_0" -" intdefs102_0" -" temp106_4" -" phase101_0" -" stop-ids103_0" -" to-parsed-ok?105_0" -" track-to-be-defined?107_0" -" ctx99_0))))" +" context100_205" +" extend-stops?104_209" +" intdefs102_207" +" temp106_211" +" phase101_206" +" stop-ids103_208" +" to-parsed-ok?105_210" +" track-to-be-defined?107_212" +" ctx99_204))))" "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_75)" -" phase_136)" +"(expand-context-namespace ctx_194)" +" phase_195)" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_62)" +"(let-values(((obs_214)" "(expand-context-observer" -" local-ctx_0)))" -"(if obs_62" +" local-ctx_196)))" +"(if obs_214" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_62" +" obs_214" " 'enter-local" -" s_305)))" +" s_193)))" "(void)))" "(values))))" -"(let-values(((input-s_1)" -"(let-values(((temp108_3)" +"(let-values(((input-s_197)" +"(let-values(((temp108_215)" "(flip-introduction-scopes" -" s_305" -" ctx_75))" -"((intdefs109_0) intdefs_14))" +" s_193" +" ctx_194))" +"((intdefs109_216) intdefs_183))" "(add-intdef-scopes24.1" " unsafe-undefined" " #f" -" temp108_3" -" intdefs109_0))))" +" temp108_215" +" intdefs109_216))))" "(let-values((()" "(begin" -"(if as-transformer?_6" +"(if as-transformer?_185" "(let-values()" -"(let-values(((obs_63)" +"(let-values(((obs_217)" "(expand-context-observer" -" local-ctx_0)))" -"(if obs_63" +" local-ctx_196)))" +"(if obs_217" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_63" +" obs_217" " 'phase-up)))" "(void))))" "(void))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_39)" +"(let-values(((obs_218)" "(expand-context-observer" -" local-ctx_0)))" -"(if obs_39" +" local-ctx_196)))" +"(if obs_218" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_39" +" obs_218" " 'local-pre" -" input-s_1)))" +" input-s_197)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(if stop-ids_20" +"(if stop-ids_182" "(let-values()" -"(let-values(((obs_10)" +"(let-values(((obs_219)" "(expand-context-observer" -" local-ctx_0)))" -"(if obs_10" +" local-ctx_196)))" +"(if obs_219" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_10" +" obs_219" " 'start)))" "(void))))" "(void))" "(values))))" -"(let-values(((output-s_0)" -"(if(if as-transformer?_6" -" capture-lifts?_0" +"(let-values(((output-s_198)" +"(if(if as-transformer?_185" +" capture-lifts?_184" " #f)" "(let-values()" -"(let-values(((input-s110_0) input-s_1)" -"((local-ctx111_0)" -" local-ctx_0)" -"((context112_0) context_28)" -"((temp113_3) #f)" -"((temp114_5) #t)" -"((lift-key115_0)" -" lift-key_8)" -"((temp116_2) #t)" -"((temp117_2) #t))" +"(let-values(((input-s110_221)" +" input-s_197)" +"((local-ctx111_222)" +" local-ctx_196)" +"((context112_223)" +" context_181)" +"((temp113_224) #f)" +"((temp114_225) #t)" +"((lift-key115_226)" +" lift-key_189)" +"((temp116_227) #t)" +"((temp117_228) #t))" "(expand-transformer92.1" -" temp116_2" -" temp114_5" -" context112_0" -" temp113_3" -" temp117_2" -" lift-key115_0" -" input-s110_0" -" local-ctx111_0)))" -"(if as-transformer?_6" +" temp116_227" +" temp114_225" +" context112_223" +" temp113_224" +" temp117_228" +" lift-key115_226" +" input-s110_221" +" local-ctx111_222)))" +"(if as-transformer?_185" "(let-values()" -"(let-values(((input-s118_0)" -" input-s_1)" -"((local-ctx119_0)" -" local-ctx_0)" -"((context120_0)" -" context_28)" -"((temp121_1) #f)" -"((temp122_1)" +"(let-values(((input-s118_230)" +" input-s_197)" +"((local-ctx119_231)" +" local-ctx_196)" +"((context120_232)" +" context_181)" +"((temp121_233) #f)" +"((temp122_234)" "(eq?" " 'top-level" -" context_28))" -"((lift-key123_0)" -" lift-key_8)" -"((temp124_3) #t))" +" context_181))" +"((lift-key123_235)" +" lift-key_189)" +"((temp124_236) #t))" "(expand-transformer92.1" " #f" -" temp122_1" -" context120_0" -" temp121_1" -" temp124_3" -" lift-key123_0" -" input-s118_0" -" local-ctx119_0)))" -"(if capture-lifts?_0" +" temp122_234" +" context120_232" +" temp121_233" +" temp124_236" +" lift-key123_235" +" input-s118_230" +" local-ctx119_231)))" +"(if capture-lifts?_184" "(let-values()" -"(let-values(((input-s125_0)" -" input-s_1)" -"((local-ctx126_0)" -" local-ctx_0)" -"((temp127_5) #t)" -"((lift-key128_0)" -" lift-key_8)" -"((temp129_2) #t))" +"(let-values(((input-s125_238)" +" input-s_197)" +"((local-ctx126_239)" +" local-ctx_196)" +"((temp127_240) #t)" +"((lift-key128_241)" +" lift-key_189)" +"((temp129_242) #t))" "(expand/capture-lifts75.1" -" temp129_2" -" temp127_5" +" temp129_242" +" temp127_240" " #f" -" lift-key128_0" -" input-s125_0" -" local-ctx126_0)))" +" lift-key128_241" +" input-s125_238" +" local-ctx126_239)))" "(let-values()" -"(let-values(((input-s130_0)" -" input-s_1)" -"((local-ctx131_0)" -" local-ctx_0))" +"(let-values(((input-s130_243)" +" input-s_197)" +"((local-ctx131_244)" +" local-ctx_196))" "(expand9.1" " #f" " #f" " #f" -" input-s130_0" -" local-ctx131_0))))))))" +" input-s130_243" +" local-ctx131_244))))))))" "(let-values((()" "(begin" -"(let-values(((obs_64)" +"(let-values(((obs_245)" "(expand-context-observer" -" local-ctx_0)))" -"(if obs_64" +" local-ctx_196)))" +"(if obs_245" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_64" +" obs_245" " 'local-post" -" output-s_0)))" +" output-s_198)))" "(void)))" "(values))))" -"(let-values(((result-s_8)" -"(if(parsed? output-s_0)" -" output-s_0" +"(let-values(((result-s_199)" +"(if(parsed? output-s_198)" +" output-s_198" "(flip-introduction-scopes" -" output-s_0" -" ctx_75))))" +" output-s_198" +" ctx_194))))" "(begin" -"(if skip-log-exit?_0" +"(if skip-log-exit?_192" "(void)" "(let-values()" -"(let-values(((obs_65)" +"(let-values(((obs_246)" "(expand-context-observer" -" local-ctx_0)))" -"(if obs_65" +" local-ctx_196)))" +"(if obs_246" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_65" +" obs_246" " 'exit-local" -" result-s_8)))" +" result-s_199)))" "(void)))))" -" result-s_8)))))))))))))))))))))))))))))))))))" +" result-s_199)))))))))))))))))))))))))))))))))))" "(define-values" "(1/syntax-tainted?)" "(lambda(s_0)" @@ -57816,114 +58102,114 @@ static const char *startup_source = "(syntax-tainted?$1 s_0)))))))" "(define-values" "(1/syntax-arm)" -"(let-values(((syntax-arm4_0)" -"(lambda(s3_3 maybe-insp1_0 use-mode?2_0)" +"(let-values(((syntax-arm4_3)" +"(lambda(s3_0 maybe-insp1_0 use-mode?2_0)" "(begin" " 'syntax-arm4" -"(let-values(((s_2) s3_3))" -"(let-values(((maybe-insp_0) maybe-insp1_0))" -"(let-values(((use-mode?_0) use-mode?2_0))" +"(let-values(((s_7) s3_0))" +"(let-values(((maybe-insp_8) maybe-insp1_0))" +"(let-values(((use-mode?_9) use-mode?2_0))" "(let-values()" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_2)" +"(if(syntax?$1 s_7)" "(void)" -" (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_2)))" +" (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_7)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_12)(not maybe-insp_0)))" -"(if or-part_12 or-part_12(inspector? maybe-insp_0)))" +"(if(let-values(((or-part_12)(not maybe-insp_8)))" +"(if or-part_12 or-part_12(inspector? maybe-insp_8)))" "(void)" "(let-values()" "(raise-argument-error" " 'syntax-arm" " \"(or/c inspector? #f)\"" -" maybe-insp_0)))" +" maybe-insp_8)))" "(values))))" -"(let-values(((insp_21)(inspector-for-taint maybe-insp_0)))" -"(if use-mode?_0" +"(let-values(((insp_11)(inspector-for-taint maybe-insp_8)))" +"(if use-mode?_9" "(let-values()" "(taint-dispatch" -" s_2" -"(lambda(s_441)(syntax-arm$1 s_441 insp_21))" +" s_7" +"(lambda(s_0)(syntax-arm$1 s_0 insp_11))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-arm$1 s_2 insp_21))))))))))))))))" +"(let-values()(syntax-arm$1 s_7 insp_11))))))))))))))))" "(case-lambda" -"((s_497)(begin 'syntax-arm(syntax-arm4_0 s_497 #f #f)))" -"((s_448 maybe-insp_1 use-mode?2_1)(syntax-arm4_0 s_448 maybe-insp_1 use-mode?2_1))" -"((s_75 maybe-insp1_1)(syntax-arm4_0 s_75 maybe-insp1_1 #f)))))" +"((s_0)(begin 'syntax-arm(syntax-arm4_3 s_0 #f #f)))" +"((s_0 maybe-insp_0 use-mode?2_0)(syntax-arm4_3 s_0 maybe-insp_0 use-mode?2_0))" +"((s_0 maybe-insp1_0)(syntax-arm4_3 s_0 maybe-insp1_0 #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_498 maybe-insp_2)" +"(lambda(s_0 maybe-insp_0)" "(begin" " 'syntax-disarm" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_498)" +"(if(syntax?$1 s_0)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_498)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_0)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_310)(not maybe-insp_2)))" -"(if or-part_310 or-part_310(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_24)(not maybe-insp_0)))" +"(if or-part_24 or-part_24(inspector? maybe-insp_0)))" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))" +" (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_0)))" "(values))))" -"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_498 insp_22)))))))))" +"(let-values(((insp_23)(inspector-for-taint maybe-insp_0)))(syntax-disarm$1 s_0 insp_23)))))))))" "(define-values" "(1/syntax-rearm)" -"(let-values(((syntax-rearm9_0)" -"(lambda(s7_1 from-s8_0 use-mode?6_0)" +"(let-values(((syntax-rearm9_25)" +"(lambda(s7_0 from-s8_0 use-mode?6_0)" "(begin" " 'syntax-rearm9" -"(let-values(((s_180) s7_1))" -"(let-values(((from-s_2) from-s8_0))" -"(let-values(((use-mode?_1) use-mode?6_0))" +"(let-values(((s_29) s7_0))" +"(let-values(((from-s_30) from-s8_0))" +"(let-values(((use-mode?_31) use-mode?6_0))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_180)" +"(if(syntax?$1 s_29)" "(void)" -" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_180)))" -"(if(syntax?$1 from-s_2)" +" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_29)))" +"(if(syntax?$1 from-s_30)" "(void)" -" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" from-s_2)))" -"(if use-mode?_1" +" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" from-s_30)))" +"(if use-mode?_31" "(let-values()" "(taint-dispatch" -" s_180" -"(lambda(s_76)(syntax-rearm$1 s_76 from-s_2))" +" s_29" +"(lambda(s_0)(syntax-rearm$1 s_0 from-s_30))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-rearm$1 s_180 from-s_2))))))))))))))" +"(let-values()(syntax-rearm$1 s_29 from-s_30))))))))))))))" "(case-lambda" -"((s_181 from-s_3)(begin 'syntax-rearm(syntax-rearm9_0 s_181 from-s_3 #f)))" -"((s_443 from-s_4 use-mode?6_1)(syntax-rearm9_0 s_443 from-s_4 use-mode?6_1)))))" +"((s_0 from-s_0)(begin 'syntax-rearm(syntax-rearm9_25 s_0 from-s_0 #f)))" +"((s_0 from-s_0 use-mode?6_0)(syntax-rearm9_25 s_0 from-s_0 use-mode?6_0)))))" "(define-values" "(1/syntax-taint)" -"(lambda(s_5)" +"(lambda(s_0)" "(begin" " 'syntax-taint" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_5) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_5)))" -"(syntax-taint$1 s_5)))))))" +" (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_0)))" +"(syntax-taint$1 s_0)))))))" "(define-values" "(inspector-for-taint)" -"(lambda(maybe-insp_3)" +"(lambda(maybe-insp_0)" "(begin" -"(let-values(((or-part_369) maybe-insp_3))" -"(if or-part_369" -" or-part_369" -"(let-values(((or-part_163)(current-module-code-inspector)))" -"(if or-part_163 or-part_163(current-code-inspector))))))))" +"(let-values(((or-part_42) maybe-insp_0))" +"(if or-part_42" +" or-part_42" +"(let-values(((or-part_43)(current-module-code-inspector)))" +"(if or-part_43 or-part_43(current-code-inspector))))))))" "(define-values" "(1/variable-reference->empty-namespace)" "(lambda(vr_0)" @@ -57935,146 +58221,146 @@ static const char *startup_source = "(if(1/variable-reference? vr_0)" "(void)" " (let-values () (raise-argument-error 'variable-reference->empty-namespace \"variable-reference?\" vr_0)))" -"(let-values(((temp2_7)(1/variable-reference->namespace vr_0)))" -"(new-namespace8.1 #t unsafe-undefined temp2_7))))))))" +"(let-values(((temp2_3)(1/variable-reference->namespace vr_0)))" +"(new-namespace8.1 #t unsafe-undefined temp2_3))))))))" "(define-values" "(1/variable-reference->namespace)" -"(lambda(vr_1)" +"(lambda(vr_0)" "(begin" " 'variable-reference->namespace" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(1/variable-reference? vr_1)" +"(if(1/variable-reference? vr_0)" "(void)" "(let-values()" -" (raise-argument-error 'variable-reference->namespace \"variable-reference?\" vr_1)))" +" (raise-argument-error 'variable-reference->namespace \"variable-reference?\" vr_0)))" "(values))))" -"(let-values(((ns_60)(variable-reference->namespace* vr_1)))" -"(let-values(((mpi_49)(namespace-mpi ns_60)))" +"(let-values(((ns_6)(variable-reference->namespace* vr_0)))" +"(let-values(((mpi_7)(namespace-mpi ns_6)))" "(begin" -"(if(non-self-module-path-index? mpi_49)" +"(if(non-self-module-path-index? mpi_7)" "(let-values()" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -" ns_60)" +" ns_6)" "(let-values()" -"(let-values(((ns4_1) ns_60)((mpi5_0) mpi_49)((temp6_5)(namespace-0-phase ns_60)))" -"(namespace-module-make-available!112.1 unsafe-undefined ns4_1 mpi5_0 temp6_5)))))" +"(let-values(((ns4_8) ns_6)((mpi5_9) mpi_7)((temp6_10)(namespace-0-phase ns_6)))" +"(namespace-module-make-available!112.1 unsafe-undefined ns4_8 mpi5_9 temp6_10)))))" "(void))" -" ns_60)))))))))" +" ns_6)))))))))" "(define-values" "(variable-reference->namespace*)" -"(lambda(vr_2)" +"(lambda(vr_0)" "(begin" -"(let-values(((inst_7)(1/variable-reference->instance vr_2)))" -"(if(symbol? inst_7)" +"(let-values(((inst_12)(1/variable-reference->instance vr_0)))" +"(if(symbol? inst_12)" "(let-values()" -"(1/module->namespace(list 'quote inst_7)(1/instance-data(1/variable-reference->instance vr_2 #t))))" -"(if(not inst_7)" -"(let-values()(1/instance-data(1/variable-reference->instance vr_2 #t)))" -"(let-values()(1/instance-data inst_7))))))))" +"(1/module->namespace(list 'quote inst_12)(1/instance-data(1/variable-reference->instance vr_0 #t))))" +"(if(not inst_12)" +"(let-values()(1/instance-data(1/variable-reference->instance vr_0 #t)))" +"(let-values()(1/instance-data inst_12))))))))" "(define-values" "(1/variable-reference->module-path-index)" -"(lambda(vr_3)" +"(lambda(vr_0)" "(begin" " 'variable-reference->module-path-index" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(1/variable-reference? vr_3)" +"(if(1/variable-reference? vr_0)" "(void)" "(let-values()" -" (raise-argument-error 'variable-reference->module-path-index \"variable-reference?\" vr_3)))" +" (raise-argument-error 'variable-reference->module-path-index \"variable-reference?\" vr_0)))" "(values))))" -"(let-values(((mpi_50)(namespace-mpi(variable-reference->namespace* vr_3))))" -"(if(top-level-module-path-index? mpi_50) #f mpi_50))))))))" +"(let-values(((mpi_15)(namespace-mpi(variable-reference->namespace* vr_0))))" +"(if(top-level-module-path-index? mpi_15) #f mpi_15))))))))" "(define-values" "(1/variable-reference->resolved-module-path)" -"(lambda(vr_4)" +"(lambda(vr_0)" "(begin" " 'variable-reference->resolved-module-path" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(1/variable-reference? vr_4)" +"(if(1/variable-reference? vr_0)" "(void)" "(let-values()" "(raise-argument-error" " 'variable-reference->resolved-module-path" " \"variable-reference?\"" -" vr_4)))" +" vr_0)))" "(values))))" -"(let-values(((mpi_51)(1/variable-reference->module-path-index vr_4)))" -"(if mpi_51(1/module-path-index-resolve mpi_51) #f))))))))" +"(let-values(((mpi_18)(1/variable-reference->module-path-index vr_0)))" +"(if mpi_18(1/module-path-index-resolve mpi_18) #f))))))))" "(define-values" "(1/variable-reference->module-source)" -"(lambda(vr_5)" +"(lambda(vr_0)" "(begin" " 'variable-reference->module-source" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(1/variable-reference? vr_5)" +"(if(1/variable-reference? vr_0)" "(void)" "(let-values()" -" (raise-argument-error 'variable-reference->module-source \"variable-reference?\" vr_5)))" +" (raise-argument-error 'variable-reference->module-source \"variable-reference?\" vr_0)))" "(values))))" -"(let-values(((ns_119)(variable-reference->namespace* vr_5)))(namespace-source-name ns_119))))))))" +"(let-values(((ns_21)(variable-reference->namespace* vr_0)))(namespace-source-name ns_21))))))))" "(define-values" "(1/variable-reference->phase)" -"(lambda(vr_6)" +"(lambda(vr_0)" "(begin" " 'variable-reference->phase" "(let-values()" "(let-values()" "(begin" -"(if(1/variable-reference? vr_6)" +"(if(1/variable-reference? vr_0)" "(void)" -" (let-values () (raise-argument-error 'variable-reference->phase \"variable-reference?\" vr_6)))" -"(namespace-phase(variable-reference->namespace* vr_6))))))))" +" (let-values () (raise-argument-error 'variable-reference->phase \"variable-reference?\" vr_0)))" +"(namespace-phase(variable-reference->namespace* vr_0))))))))" "(define-values" "(1/variable-reference->module-base-phase)" -"(lambda(vr_7)" +"(lambda(vr_0)" "(begin" " 'variable-reference->module-base-phase" "(let-values()" "(let-values()" "(begin" -"(if(1/variable-reference? vr_7)" +"(if(1/variable-reference? vr_0)" "(void)" -" (let-values () (raise-argument-error 'variable-reference->module-base-phase \"variable-reference?\" vr_7)))" -"(namespace-0-phase(variable-reference->namespace* vr_7))))))))" +" (let-values () (raise-argument-error 'variable-reference->module-base-phase \"variable-reference?\" vr_0)))" +"(namespace-0-phase(variable-reference->namespace* vr_0))))))))" "(define-values" "(1/variable-reference->module-declaration-inspector)" -"(lambda(vr_8)" +"(lambda(vr_0)" "(begin" " 'variable-reference->module-declaration-inspector" "(let-values()" "(let-values()" "(begin" -"(if(1/variable-reference? vr_8)" +"(if(1/variable-reference? vr_0)" "(void)" "(let-values()" -" (raise-argument-error 'variable-reference->module-declaration-inspector \"variable-reference?\" vr_8)))" -"(if(1/variable-reference->instance vr_8)" +" (raise-argument-error 'variable-reference->module-declaration-inspector \"variable-reference?\" vr_0)))" +"(if(1/variable-reference->instance vr_0)" "(let-values()" "(raise-arguments-error" " 'variable-reference->module-declaration-inspector" " \"variable reference does not refer to an anonymous module variable\"" " \"variable reference\"" -" vr_8))" +" vr_0))" "(void))" -"(let-values(((or-part_72)(namespace-declaration-inspector(variable-reference->namespace* vr_8))))" -"(if or-part_72" -" or-part_72" +"(let-values(((or-part_28)(namespace-declaration-inspector(variable-reference->namespace* vr_0))))" +"(if or-part_28" +" or-part_28" "(raise-arguments-error" " 'variable-reference->module-declaration-inspector" " \"given variable reference is not from a module\")))))))))" @@ -58359,19 +58645,19 @@ static const char *startup_source = "(add-core-primitive! 'read-syntax/recursive 1/read-syntax/recursive)))" "(define-values" "(declare-kernel-module!8.1)" -"(lambda(eval1_0 main-ids2_0 read-ids3_0 ns7_1)" +"(lambda(eval1_0 main-ids2_0 read-ids3_0 ns7_0)" "(begin" " 'declare-kernel-module!8" -"(let-values(((ns_120) ns7_1))" +"(let-values(((ns_29) ns7_0))" "(let-values()" -"(let-values(((main-ids_0) main-ids2_0))" -"(let-values(((read-ids_0) read-ids3_0))" +"(let-values(((main-ids_31) main-ids2_0))" +"(let-values(((read-ids_32) read-ids3_0))" "(let-values()" "(begin" -"(let-values(((temp53_4) '#%kernel)" -"((temp54_4) '#%runtime)" -"((temp55_4)(set-union primitive-ids(set-union main-ids_0 read-ids_0)))" -"((temp56_3)" +"(let-values(((temp53_34) '#%kernel)" +"((temp54_35) '#%runtime)" +"((temp55_36)(set-union primitive-ids(set-union main-ids_31 read-ids_32)))" +"((temp56_37)" "(hasheq" " 'variable-reference?" " 1/variable-reference?" @@ -58379,39 +58665,41 @@ static const char *startup_source = " 1/variable-reference-constant?" " 'variable-reference-from-unsafe?" " 1/variable-reference-from-unsafe?))" -"((ns57_2) ns_120))" -"(copy-runtime-module!26.1 unsafe-undefined temp56_3 ns57_2 #t #f temp55_4 temp54_4 temp53_4))" -"(let-values(((temp58_4) '#%kernel)((temp59_9) '(#%core #%runtime #%main #%read))((ns60_2) ns_120))" -"(declare-reexporting-module!50.1 ns60_2 #t temp58_4 temp59_9)))))))))))" +"((ns57_38) ns_29))" +"(copy-runtime-module!26.1 unsafe-undefined temp56_37 ns57_38 #t #f temp55_36 temp54_35 temp53_34))" +"(let-values(((temp58_40) '#%kernel)" +"((temp59_41) '(#%core #%runtime #%main #%read))" +"((ns60_42) ns_29))" +"(declare-reexporting-module!50.1 ns60_42 #t temp58_40 temp59_41)))))))))))" "(define-values" "(copy-runtime-module!26.1)" -"(lambda(alts14_0 extras15_0 namespace12_0 primitive?16_0 protected?17_0 skip13_0 to11_0 name25_1)" +"(lambda(alts14_0 extras15_0 namespace12_0 primitive?16_0 protected?17_0 skip13_0 to11_0 name25_0)" "(begin" " 'copy-runtime-module!26" -"(let-values(((name_73) name25_1))" -"(let-values(((to-name_0)(if(eq? to11_0 unsafe-undefined) name_73 to11_0)))" -"(let-values(((ns_121) namespace12_0))" -"(let-values(((skip-syms_0)(if(eq? skip13_0 unsafe-undefined)(seteq) skip13_0)))" -"(let-values(((alts_0)(if(eq? alts14_0 unsafe-undefined) '#hasheq() alts14_0)))" -"(let-values(((extras_0)(if(eq? extras15_0 unsafe-undefined) '#hasheq() extras15_0)))" -"(let-values(((primitive?_9) primitive?16_0))" -"(let-values(((protected?_10) protected?17_0))" +"(let-values(((name_73) name25_0))" +"(let-values(((to-name_74)(if(eq? to11_0 unsafe-undefined) name_73 to11_0)))" +"(let-values(((ns_75) namespace12_0))" +"(let-values(((skip-syms_76)(if(eq? skip13_0 unsafe-undefined)(seteq) skip13_0)))" +"(let-values(((alts_77)(if(eq? alts14_0 unsafe-undefined) '#hasheq() alts14_0)))" +"(let-values(((extras_78)(if(eq? extras15_0 unsafe-undefined) '#hasheq() extras15_0)))" +"(let-values(((primitive?_79) primitive?16_0))" +"(let-values(((protected?_80) protected?17_0))" "(let-values()" -"(let-values(((prims_0)(1/primitive-table name_73)))" +"(let-values(((prims_81)(1/primitive-table name_73)))" "(let-values((()" "(begin" -"(let-values(((ht_156) prims_0))" +"(let-values(((ht_84) prims_81))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_156)))" -"((letrec-values(((for-loop_17)" -"(lambda(i_175)" +"(let-values()(check-in-hash-keys ht_84)))" +"((letrec-values(((for-loop_85)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_175" -"(let-values(((sym_65)" -"(hash-iterate-key ht_156 i_175)))" +"(if i_0" +"(let-values(((sym_87)" +"(hash-iterate-key ht_84 i_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -58419,179 +58707,177 @@ static const char *startup_source = "(begin" "(let-values()" "(register-built-in-symbol!" -" sym_65))" +" sym_87))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_17" -"(hash-iterate-next ht_156 i_175))" +"(for-loop_85(hash-iterate-next ht_84 i_0))" "(values))))" "(values))))))" -" for-loop_17)" -"(hash-iterate-first ht_156))))" +" for-loop_85)" +"(hash-iterate-first ht_84))))" "(values))))" "(let-values()" -"(let-values(((ht_144)" -"(let-values(((ht_157) prims_0))" +"(let-values(((ht_82)" +"(let-values(((ht_88) prims_81))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_157)))" -"((letrec-values(((for-loop_249)" -"(lambda(table_213 i_97)" +"(let-values()(check-in-hash ht_88)))" +"((letrec-values(((for-loop_89)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_97" -"(let-values(((sym_93 val_82)" +"(if i_0" +"(let-values(((sym_92 val_93)" "(hash-iterate-key+value" -" ht_157" -" i_97)))" -"(let-values(((table_214)" -"(let-values(((table_11)" -" table_213))" +" ht_88" +" i_0)))" +"(let-values(((table_94)" +"(let-values(((table_95)" +" table_0))" "(if(set-member?" -" skip-syms_0" -" sym_93)" -" table_11" -"(let-values(((table_12)" -" table_11))" -"(let-values(((table_13)" +" skip-syms_76" +" sym_92)" +" table_95" +"(let-values(((table_96)" +" table_95))" +"(let-values(((table_97)" "(let-values()" -"(let-values(((key_14" -" val_5)" +"(let-values(((key_98" +" val_99)" "(let-values()" "(values" -" sym_93" -"(let-values(((or-part_167)" +" sym_92" +"(let-values(((or-part_100)" "(hash-ref" -" alts_0" -" sym_93" +" alts_77" +" sym_92" " #f)))" -"(if or-part_167" -" or-part_167" -" val_82))))))" +"(if or-part_100" +" or-part_100" +" val_93))))))" "(hash-set" -" table_12" -" key_14" -" val_5)))))" -"(values table_13)))))))" +" table_96" +" key_98" +" val_99)))))" +"(values table_97)))))))" "(if(not #f)" -"(for-loop_249" -" table_214" -"(hash-iterate-next ht_157 i_97))" -" table_214)))" -" table_213)))))" -" for-loop_249)" +"(for-loop_89" +" table_94" +"(hash-iterate-next ht_88 i_0))" +" table_94)))" +" table_0)))))" +" for-loop_89)" " '#hasheq()" -"(hash-iterate-first ht_157))))))" -"(let-values(((ht+extras_0)" -"(let-values(((ht_158) extras_0))" +"(hash-iterate-first ht_88))))))" +"(let-values(((ht+extras_83)" +"(let-values(((ht_101) extras_78))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_158)))" -"((letrec-values(((for-loop_253)" -"(lambda(ht_146 i_169)" +"(let-values()(check-in-hash ht_101)))" +"((letrec-values(((for-loop_102)" +"(lambda(ht_0 i_0)" "(begin" " 'for-loop" -"(if i_169" -"(let-values(((k_44 v_83)" +"(if i_0" +"(let-values(((k_105 v_106)" "(hash-iterate-key+value" -" ht_158" -" i_169)))" -"(let-values(((ht_159)" -"(let-values(((ht_160)" -" ht_146))" -"(let-values(((ht_161)" +" ht_101" +" i_0)))" +"(let-values(((ht_107)" +"(let-values(((ht_108) ht_0))" +"(let-values(((ht_109)" "(let-values()" "(hash-set" -" ht_160" -" k_44" -" v_83))))" -"(values ht_161)))))" +" ht_108" +" k_105" +" v_106))))" +"(values ht_109)))))" "(if(not #f)" -"(for-loop_253" -" ht_159" -"(hash-iterate-next ht_158 i_169))" -" ht_159)))" -" ht_146)))))" -" for-loop_253)" -" ht_144" -"(hash-iterate-first ht_158))))))" -"(let-values(((to-name61_0) to-name_0)" -"((ht+extras62_0) ht+extras_0)" -"((ns63_0) ns_121)" -"((primitive?64_0) primitive?_9)" -"((protected?65_0) protected?_10))" +"(for-loop_102" +" ht_107" +"(hash-iterate-next ht_101 i_0))" +" ht_107)))" +" ht_0)))))" +" for-loop_102)" +" ht_82" +"(hash-iterate-first ht_101))))))" +"(let-values(((to-name61_111) to-name_74)" +"((ht+extras62_112) ht+extras_83)" +"((ns63_113) ns_75)" +"((primitive?64_114) primitive?_79)" +"((protected?65_115) protected?_80))" "(declare-hash-based-module!41.1" -" ns63_0" -" primitive?64_0" +" ns63_113" +" primitive?64_114" " null" -" protected?65_0" +" protected?65_115" " #f" -" to-name61_0" -" ht+extras62_0)))))))))))))))))))" +" to-name61_111" +" ht+extras62_112)))))))))))))))))))" "(define-values" "(declare-hash-based-module!41.1)" "(lambda(namespace29_0 primitive?30_0 protected32_0 protected?31_0 register-builtin?33_0 name39_0 ht40_0)" "(begin" " 'declare-hash-based-module!41" -"(let-values(((name_74) name39_0))" -"(let-values(((ht_162) ht40_0))" -"(let-values(((ns_122) namespace29_0))" -"(let-values(((primitive?_10) primitive?30_0))" -"(let-values(((protected?_11) protected?31_0))" -"(let-values(((protected-syms_0) protected32_0))" -"(let-values(((register-builtin?_0) register-builtin?33_0))" +"(let-values(((name_162) name39_0))" +"(let-values(((ht_163) ht40_0))" +"(let-values(((ns_164) namespace29_0))" +"(let-values(((primitive?_165) primitive?30_0))" +"(let-values(((protected?_166) protected?31_0))" +"(let-values(((protected-syms_167) protected32_0))" +"(let-values(((register-builtin?_168) register-builtin?33_0))" "(let-values()" -"(let-values(((mpi_5)(1/module-path-index-join(list 'quote name_74) #f)))" -"(let-values(((ns66_0) ns_122)" -"((temp67_4)" -"(let-values(((temp69_4) #t)" -"((primitive?70_0) primitive?_10)" -"((temp71_3) #t)" -"((temp72_3)(not protected?_11))" -"((mpi73_1) mpi_5)" -"((temp74_2)" +"(let-values(((mpi_169)(1/module-path-index-join(list 'quote name_162) #f)))" +"(let-values(((ns66_170) ns_164)" +"((temp67_171)" +"(let-values(((temp69_174) #t)" +"((primitive?70_175) primitive?_165)" +"((temp71_176) #t)" +"((temp72_177)(not protected?_166))" +"((mpi73_178) mpi_169)" +"((temp74_179)" "(hasheqv" " 0" -"(let-values(((ht_163) ht_162))" +"(let-values(((ht_181) ht_163))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_163)))" -"((letrec-values(((for-loop_278)" -"(lambda(table_215 i_176)" +"(let-values()(check-in-hash-keys ht_181)))" +"((letrec-values(((for-loop_182)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_176" -"(let-values(((sym_103)" +"(if i_0" +"(let-values(((sym_185)" "(hash-iterate-key" -" ht_163" -" i_176)))" -"(let-values(((table_7)" -"(let-values(((table_8)" -" table_215))" -"(let-values(((table_216)" +" ht_181" +" i_0)))" +"(let-values(((table_186)" +"(let-values(((table_187)" +" table_0))" +"(let-values(((table_188)" "(let-values()" -"(let-values(((key_86" -" val_83)" +"(let-values(((key_189" +" val_190)" "(let-values()" "(let-values((()" "(begin" -"(if register-builtin?_0" +"(if register-builtin?_168" "(let-values()" "(register-built-in-symbol!" -" sym_103))" +" sym_185))" "(void))" "(values))))" -"(let-values(((binding_27)" -"(let-values(((mpi76_0)" -" mpi_5)" -"((temp77_2)" +"(let-values(((binding_191)" +"(let-values(((mpi76_192)" +" mpi_169)" +"((temp77_193)" " 0)" -"((sym78_0)" -" sym_103))" +"((sym78_194)" +" sym_185))" "(make-module-binding22.1" " #f" " null" @@ -58602,66 +58888,64 @@ static const char *startup_source = " 0" " unsafe-undefined" " unsafe-undefined" -" mpi76_0" -" temp77_2" -" sym78_0))))" +" mpi76_192" +" temp77_193" +" sym78_194))))" "(values" -" sym_103" -"(if(let-values(((or-part_56)" -" protected?_11))" -"(if or-part_56" -" or-part_56" +" sym_185" +"(if(let-values(((or-part_195)" +" protected?_166))" +"(if or-part_195" +" or-part_195" "(member" -" sym_103" -" protected-syms_0)))" +" sym_185" +" protected-syms_167)))" "(provided1.1" -" binding_27" +" binding_191" " #t" " #f)" -" binding_27)))))))" +" binding_191)))))))" "(hash-set" -" table_8" -" key_86" -" val_83)))))" +" table_187" +" key_189" +" val_190)))))" "(values" -" table_216)))))" +" table_188)))))" "(if(not #f)" -"(for-loop_278" -" table_7" -"(hash-iterate-next" -" ht_163" -" i_176))" -" table_7)))" -" table_215)))))" -" for-loop_278)" +"(for-loop_182" +" table_186" +"(hash-iterate-next ht_181 i_0))" +" table_186)))" +" table_0)))))" +" for-loop_182)" " '#hash()" -"(hash-iterate-first ht_163))))))" -"((temp75_4)" -"(lambda(data-box_6" -" ns_123" -" phase-shift_20" -" phase-level_23" -" self_29" -" bulk-binding-registry_19" -" insp_23)" -"(if(= 0 phase-level_23)" +"(hash-iterate-first ht_181))))))" +"((temp75_180)" +"(lambda(data-box_0" +" ns_0" +" phase-shift_0" +" phase-level_0" +" self_0" +" bulk-binding-registry_0" +" insp_0)" +"(if(= 0 phase-level_0)" "(let-values()" "(begin" -"(let-values(((ht_164) ht_162))" +"(let-values(((ht_203) ht_163))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_164)))" -"((letrec-values(((for-loop_279)" -"(lambda(i_177)" +"(let-values()(check-in-hash ht_203)))" +"((letrec-values(((for-loop_204)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_177" -"(let-values(((sym_104 val_84)" +"(if i_0" +"(let-values(((sym_206 val_207)" "(hash-iterate-key+value" -" ht_164" -" i_177)))" +" ht_203" +" i_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -58669,136 +58953,136 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-variable!" -" ns_123" +" ns_0" " 0" -" sym_104" -" val_84" +" sym_206" +" val_207" " #t))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_279" +"(for-loop_204" "(hash-iterate-next" -" ht_164" -" i_177))" +" ht_203" +" i_0))" "(values))))" "(values))))))" -" for-loop_279)" -"(hash-iterate-first ht_164))))" +" for-loop_204)" +"(hash-iterate-first ht_203))))" "(void)))" "(void)))))" "(make-module39.1" -" temp69_4" +" temp69_174" " unsafe-undefined" " unsafe-undefined" -" temp75_4" +" temp75_180" " #f" " 0" " 0" -" temp72_3" +" temp72_177" " unsafe-undefined" -" temp71_3" +" temp71_176" " unsafe-undefined" -" primitive?70_0" -" temp74_2" +" primitive?70_175" +" temp74_179" " null" -" mpi73_1" +" mpi73_178" " #f" " null" " #f)))" -"((temp68_5)(1/module-path-index-resolve mpi_5)))" -"(declare-module!58.1 #t ns66_0 temp67_4 temp68_5))))))))))))))" +"((temp68_172)(1/module-path-index-resolve mpi_169)))" +"(declare-module!58.1 #t ns66_170 temp67_171 temp68_172))))))))))))))" "(define-values" "(declare-reexporting-module!50.1)" "(lambda(namespace45_0 reexport?44_0 name48_0 require-names49_0)" "(begin" " 'declare-reexporting-module!50" -"(let-values(((name_75) name48_0))" -"(let-values(((require-names_0) require-names49_0))" -"(let-values(((reexport?_0) reexport?44_0))" -"(let-values(((ns_124) namespace45_0))" +"(let-values(((name_245) name48_0))" +"(let-values(((require-names_246) require-names49_0))" +"(let-values(((reexport?_247) reexport?44_0))" +"(let-values(((ns_248) namespace45_0))" "(let-values()" -"(let-values(((mpi_52)(1/module-path-index-join(list 'quote name_75) #f)))" -"(let-values(((require-mpis_0)" +"(let-values(((mpi_249)(1/module-path-index-join(list 'quote name_245) #f)))" +"(let-values(((require-mpis_250)" "(reverse$1" -"(let-values(((lst_108) require-names_0))" +"(let-values(((lst_251) require-names_246))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_108)))" -"((letrec-values(((for-loop_209)" -"(lambda(fold-var_143 lst_109)" +"(let-values()(check-list lst_251)))" +"((letrec-values(((for-loop_252)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_109)" -"(let-values(((require-name_0)(unsafe-car lst_109))" -"((rest_110)(unsafe-cdr lst_109)))" -"(let-values(((fold-var_145)" -"(let-values(((fold-var_285) fold-var_143))" -"(let-values(((fold-var_39)" +"(if(pair? lst_0)" +"(let-values(((require-name_255)(unsafe-car lst_0))" +"((rest_256)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_257)" +"(let-values(((fold-var_258) fold-var_0))" +"(let-values(((fold-var_259)" "(let-values()" "(cons" "(let-values()" "(1/module-path-index-join" "(list" " 'quote" -" require-name_0)" +" require-name_255)" " #f))" -" fold-var_285))))" -"(values fold-var_39)))))" +" fold-var_258))))" +"(values fold-var_259)))))" "(if(not #f)" -"(for-loop_209 fold-var_145 rest_110)" -" fold-var_145)))" -" fold-var_143)))))" -" for-loop_209)" +"(for-loop_252 fold-var_257 rest_256)" +" fold-var_257)))" +" fold-var_0)))))" +" for-loop_252)" " null" -" lst_108))))))" -"(let-values(((ns79_1) ns_124)" -"((temp80_3)" -"(let-values(((temp82_3) #t)" -"((temp83_2) #t)" -"((mpi84_0) mpi_52)" -"((temp85_3)(list(cons 0 require-mpis_0)))" -"((temp86_5)" -"(if reexport?_0" +" lst_251))))))" +"(let-values(((ns79_260) ns_248)" +"((temp80_261)" +"(let-values(((temp82_264) #t)" +"((temp83_265) #t)" +"((mpi84_266) mpi_249)" +"((temp85_267)(list(cons 0 require-mpis_250)))" +"((temp86_268)" +"(if reexport?_247" "(hasheqv" " 0" -"(let-values(((lst_159) require-mpis_0))" +"(let-values(((lst_270) require-mpis_250))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_159)))" -"((letrec-values(((for-loop_280)" -"(lambda(table_217 lst_309)" +"(let-values()(check-list lst_270)))" +"((letrec-values(((for-loop_271)" +"(lambda(table_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_309)" -"(let-values(((require-mpi_0)" -"(unsafe-car lst_309))" -"((rest_178)" -"(unsafe-cdr lst_309)))" -"(let-values(((table_218)" -"(let-values(((m_29)" +"(if(pair? lst_0)" +"(let-values(((require-mpi_274)" +"(unsafe-car lst_0))" +"((rest_275)" +"(unsafe-cdr lst_0)))" +"(let-values(((table_276)" +"(let-values(((m_277)" "(namespace->module" -" ns_124" +" ns_248" "(1/module-path-index-resolve" -" require-mpi_0))))" +" require-mpi_274))))" "(begin" " #t" -"((letrec-values(((for-loop_187)" -"(lambda(table_141)" +"((letrec-values(((for-loop_278)" +"(lambda(table_1)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_219)" -"(let-values(((ht_165)" +"(let-values(((table_280)" +"(let-values(((ht_281)" "(hash-ref" "(shift-provides-module-path-index" "(module-provides" -" m_29)" +" m_277)" "(module-self" -" m_29)" -" require-mpi_0)" +" m_277)" +" require-mpi_274)" " 0)))" "(begin" "(if(variable-reference-from-unsafe?" @@ -58806,81 +59090,81 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_165)))" -"((letrec-values(((for-loop_281)" -"(lambda(table_142" -" i_178)" +" ht_281)))" +"((letrec-values(((for-loop_282)" +"(lambda(table_2" +" i_0)" "(begin" " 'for-loop" -"(if i_178" -"(let-values(((sym_105" -" binding_28)" +"(if i_0" +"(let-values(((sym_285" +" binding_286)" "(hash-iterate-key+value" -" ht_165" -" i_178)))" -"(let-values(((table_32)" -"(let-values(((table_33)" -" table_142))" -"(let-values(((table_220)" +" ht_281" +" i_0)))" +"(let-values(((table_287)" +"(let-values(((table_288)" +" table_2))" +"(let-values(((table_289)" "(let-values()" -"(let-values(((key_87" -" val_85)" +"(let-values(((key_290" +" val_291)" "(let-values()" "(values" -" sym_105" -" binding_28))))" +" sym_285" +" binding_286))))" "(hash-set" -" table_33" -" key_87" -" val_85)))))" +" table_288" +" key_290" +" val_291)))))" "(values" -" table_220)))))" +" table_289)))))" "(if(not" " #f)" -"(for-loop_281" -" table_32" +"(for-loop_282" +" table_287" "(hash-iterate-next" -" ht_165" -" i_178))" -" table_32)))" -" table_142)))))" -" for-loop_281)" -" table_141" +" ht_281" +" i_0))" +" table_287)))" +" table_2)))))" +" for-loop_282)" +" table_1" "(hash-iterate-first" -" ht_165))))))" -" table_219))))))" -" for-loop_187)" -" table_217)))))" +" ht_281))))))" +" table_280))))))" +" for-loop_278)" +" table_0)))))" "(if(not #f)" -"(for-loop_280 table_218 rest_178)" -" table_218)))" -" table_217)))))" -" for-loop_280)" +"(for-loop_271 table_276 rest_275)" +" table_276)))" +" table_0)))))" +" for-loop_271)" " '#hash()" -" lst_159))))" +" lst_270))))" " '#hasheqv()))" -"((void87_0) void))" +"((void87_269) void))" "(make-module39.1" -" temp82_3" +" temp82_264" " unsafe-undefined" " unsafe-undefined" -" void87_0" +" void87_269" " #f" " 0" " 0" " #f" " unsafe-undefined" -" temp83_2" +" temp83_265" " unsafe-undefined" " #f" -" temp86_5" -" temp85_3" -" mpi84_0" +" temp86_268" +" temp85_267" +" mpi84_266" " #f" " null" " #f)))" -"((temp81_4)(1/module-path-index-resolve mpi_52)))" -"(declare-module!58.1 #t ns79_1 temp80_3 temp81_4))))))))))))" +"((temp81_262)(1/module-path-index-resolve mpi_249)))" +"(declare-module!58.1 #t ns79_260 temp80_261 temp81_262))))))))))))" "(define-values" "(read-primitives)" "(hasheq" @@ -59103,10 +59387,10 @@ static const char *startup_source = "(define-values(expobs-primitives)(hasheq 'current-expand-observe current-expand-observe))" "(define-values" "(struct:TH-place-channel TH-place-channel TH-place-channel? TH-place-channel-ref TH-place-channel-set!)" -"(make-struct-type 'TH-place-channel #f 2 0 #f(list(cons prop:evt(lambda(x_96)(TH-place-channel-ref x_96 0))))))" +"(make-struct-type 'TH-place-channel #f 2 0 #f(list(cons prop:evt(lambda(x_0)(TH-place-channel-ref x_0 0))))))" "(define-values" "(TH-place-channel-in TH-place-channel-out)" -"(values(lambda(x_97)(TH-place-channel-ref x_97 0))(lambda(x_83)(TH-place-channel-ref x_83 1))))" +"(values(lambda(x_0)(TH-place-channel-ref x_0 0))(lambda(x_0)(TH-place-channel-ref x_0 1))))" "(define-values" "(place-struct-primitives)" "(hasheq" @@ -59185,7 +59469,7 @@ static const char *startup_source = " 1/variable-reference-from-unsafe?))" "(define-values" "(with-module-reading-parameterization)" -"(lambda(thunk_3)" +"(lambda(thunk_0)" "(begin" "(with-continuation-mark" " parameterization-key" @@ -59225,62 +59509,61 @@ static const char *startup_source = " #t" " 1/current-readtable" " #f)" -"(let-values()(thunk_3))))))" +"(let-values()(thunk_0))))))" "(define-values" "(check-module-form)" -"(lambda(exp_0 filename_1)" +"(lambda(exp_0 filename_0)" "(begin" -"(if(let-values(((or-part_312)(eof-object? exp_0)))" -"(if or-part_312 or-part_312(eof-object?(1/syntax-e exp_0))))" +"(if(let-values(((or-part_7)(eof-object? exp_0)))(if or-part_7 or-part_7(eof-object?(1/syntax-e exp_0))))" "(let-values()" -"(if filename_1" +"(if filename_0" "(error" " 'load-handler" " (string-append \"expected a `module' declaration, but found end-of-file\\n\" \" file: ~a\")" -" filename_1)" +" filename_0)" " #f))" "(if(1/compiled-module-expression?(1/syntax-e exp_0))" "(let-values() exp_0)" "(if(if(syntax?$1 exp_0)" "(if(pair?(1/syntax-e exp_0))" "(if(eq? 'module(1/syntax-e(car(1/syntax-e exp_0))))" -"(let-values(((r_39)(cdr(1/syntax-e exp_0))))" -"(let-values(((r_4)(if(syntax?$1 r_39)(1/syntax-e r_39) r_39)))" -"(if(pair? r_4)(identifier?(car r_4)) #f)))" +"(let-values(((r_8)(cdr(1/syntax-e exp_0))))" +"(let-values(((r_9)(if(syntax?$1 r_8)(1/syntax-e r_8) r_8)))" +"(if(pair? r_9)(identifier?(car r_9)) #f)))" " #f)" " #f)" " #f)" "(let-values()" "(1/datum->syntax exp_0(cons(1/namespace-module-identifier)(cdr(1/syntax-e exp_0))) exp_0 exp_0))" "(let-values()" -"(if filename_1" +"(if filename_0" "(error" " 'default-load-handler" " (string-append \"expected a `module' declaration, but found something else\\n\" \" file: ~a\")" -" filename_1)" +" filename_0)" " #f))))))))" "(define-values" "(default-load-handler)" -"(lambda(path_12 expected-mod_0)" +"(lambda(path_0 expected-mod_0)" "(begin" "(let-values((()" "(begin" -"(if(path-string? path_12)" +"(if(path-string? path_0)" "(void)" -" (let-values () (raise-argument-error 'default-load-handler \"path-string?\" path_12)))" +" (let-values () (raise-argument-error 'default-load-handler \"path-string?\" path_0)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_11)(not expected-mod_0)))" -"(if or-part_11" -" or-part_11" -"(let-values(((or-part_2)(symbol? expected-mod_0)))" -"(if or-part_2" -" or-part_2" +"(if(let-values(((or-part_4)(not expected-mod_0)))" +"(if or-part_4" +" or-part_4" +"(let-values(((or-part_5)(symbol? expected-mod_0)))" +"(if or-part_5" +" or-part_5" "(if(pair? expected-mod_0)" "(if(list? expected-mod_0)" -"(if(let-values(((or-part_26)(not(car expected-mod_0))))" -"(if or-part_26 or-part_26(symbol?(car expected-mod_0))))" +"(if(let-values(((or-part_6)(not(car expected-mod_0))))" +"(if or-part_6 or-part_6(symbol?(car expected-mod_0))))" "(andmap2 symbol?(cdr expected-mod_0))" " #f)" " #f)" @@ -59292,64 +59575,61 @@ static const char *startup_source = " \"(or/c #f symbol? (cons/c (or/c #f symbol?) (non-empty-listof symbol?)))\"" " expected-mod_0)))" "(values))))" -"(let-values(((maybe-count-lines!_0)" -"(lambda(i_126)" +"(let-values(((maybe-count-lines!_3)" +"(lambda(i_0)" "(begin" " 'maybe-count-lines!" -" (if (regexp-match? '#rx\"[.]zo$\" path_12)" -"(void)" -"(let-values()(port-count-lines! i_126)))))))" +" (if (regexp-match? '#rx\"[.]zo$\" path_0) (void) (let-values () (port-count-lines! i_0)))))))" "(if expected-mod_0" "(let-values()" "((call-with-input-module-file" -" path_12" -"(lambda(i_179)" +" path_0" +"(lambda(i_0)" "(begin" -"(maybe-count-lines!_0 i_179)" +"(maybe-count-lines!_3 i_0)" "(with-module-reading-parameterization+delay-source" -" path_12" +" path_0" "(lambda()" -"(let-values(((c1_31)(linklet-directory-start i_179)))" -"(if c1_31" -"((lambda(pos_123)" -"(let-values(((b-pos_0)" -"(search-directory i_179 pos_123(encode-symbols expected-mod_0))))" -"(if b-pos_0" +"(let-values(((c1_9)(linklet-directory-start i_0)))" +"(if c1_9" +"((lambda(pos_0)" +"(let-values(((b-pos_11)(search-directory i_0 pos_0(encode-symbols expected-mod_0))))" +"(if b-pos_11" "(let-values()" "(begin" -"(file-position i_179 b-pos_0)" -"(let-values(((or-part_12)(cached-bundle i_179)))" +"(file-position i_0 b-pos_11)" +"(let-values(((or-part_12)(cached-bundle i_0)))" "(if or-part_12" " or-part_12" -"(let-values(((v_0)(1/read i_179)))" -"(if(1/compiled-module-expression? v_0)" -"(lambda()((1/current-eval) v_0))" +"(let-values(((v_13)(1/read i_0)))" +"(if(1/compiled-module-expression? v_13)" +"(lambda()((1/current-eval) v_13))" "(error" " 'default-load-handler" "(string-append" " \"expected a compiled module\\n\"" " \" in: ~e\\n\"" " \" found: ~e\")" -"(object-name i_179)" -" v_0)))))))" +"(object-name i_0)" +" v_13)))))))" "(if(pair? expected-mod_0)" "(let-values() void)" "(let-values()" "(error" " 'default-load-handler" " (string-append \"could not find main module\\n\" \" in: ~e\")" -"(object-name i_179)))))))" -" c1_31)" +"(object-name i_0)))))))" +" c1_9)" "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)" "(let-values() void)" -"(let-values(((c2_17)(cached-bundle i_179)))" -"(if c2_17" -"((lambda(thunk_7) thunk_7) c2_17)" +"(let-values(((c2_14)(cached-bundle i_0)))" +"(if c2_14" +"((lambda(thunk_0) thunk_0) c2_14)" "(let-values()" -"(let-values(((s_178)(1/read-syntax(object-name i_179) i_179)))" +"(let-values(((s_16)(1/read-syntax(object-name i_0) i_0)))" "(let-values((()" "(begin" -"(if(eof-object? s_178)" +"(if(eof-object? s_16)" "(let-values()" "(error" " 'default-load-handler" @@ -59357,13 +59637,13 @@ static const char *startup_source = " \"expected a `module' declaration;\\n\"" " \" found end-of-file\\n\"" " \" in: ~e\")" -"(object-name i_179)))" +"(object-name i_0)))" "(void))" "(values))))" -"(let-values(((m-s_0)(check-module-form s_178 path_12)))" -"(let-values(((s2_9)(1/read-syntax(object-name i_179) i_179)))" +"(let-values(((m-s_17)(check-module-form s_16 path_0)))" +"(let-values(((s2_18)(1/read-syntax(object-name i_0) i_0)))" "(begin" -"(if(eof-object? s2_9)" +"(if(eof-object? s2_18)" "(void)" "(let-values()" "(error" @@ -59373,28 +59653,28 @@ static const char *startup_source = " \" found an extra form\\n\"" " \" in: ~e\\n\"" " \" found: ~.s\")" -"(object-name i_179)" -" s2_9)))" -"(lambda()((1/current-eval) m-s_0))))))))))))))))))))" +"(object-name i_0)" +" s2_18)))" +"(lambda()((1/current-eval) m-s_17))))))))))))))))))))" "(let-values()" -"(let-values(((add-top-interaction_0)" -"(lambda(s_498)" +"(let-values(((add-top-interaction_19)" +"(lambda(s_0)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax #f(cons '#%top-interaction s_498) s_498))))))" -"(let-values(((path1_0) path_12)" -"((temp2_8)" -"(lambda(i_180)" +"(1/datum->syntax #f(cons '#%top-interaction s_0) s_0))))))" +"(let-values(((path1_21) path_0)" +"((temp2_22)" +"(lambda(i_0)" "(begin" " 'temp2" "(begin" -"(maybe-count-lines!_0 i_180)" -"((letrec-values(((loop_35)" -"(lambda(vals_7)" +"(maybe-count-lines!_3 i_0)" +"((letrec-values(((loop_24)" +"(lambda(vals_0)" "(begin" " 'loop" -"(let-values(((s_304)" +"(let-values(((s_26)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -59416,120 +59696,120 @@ static const char *startup_source = " #f" " parameterization-key)" " read-on-demand-source" -"(path->complete-path path_12))" +"(path->complete-path path_0))" "(let-values()" "(1/read-syntax" -"(object-name i_180)" -" i_180)))" +"(object-name i_0)" +" i_0)))" "(1/read-syntax" -"(object-name i_180)" -" i_180))))))" -"(if(eof-object? s_304)" -"(apply values vals_7)" -"(loop_35" +"(object-name i_0)" +" i_0))))))" +"(if(eof-object? s_26)" +"(apply values vals_0)" +"(loop_24" "(call-with-continuation-prompt" "(lambda()" "(call-with-values" "(lambda()" -"((1/current-eval)(add-top-interaction_0 s_304)))" +"((1/current-eval)(add-top-interaction_19 s_26)))" " list))" "(default-continuation-prompt-tag)" -"(lambda args_10" +"(lambda args_0" "(apply" " abort-current-continuation" "(default-continuation-prompt-tag)" -" args_10))))))))))" -" loop_35)" +" args_0))))))))))" +" loop_24)" "(list(void))))))))" -"(call-with-input-file*61.1 'binary path1_0 temp2_8)))))))))))" +"(call-with-input-file*61.1 'binary path1_21 temp2_22)))))))))))" "(define-values" "(linklet-bundle-or-directory-start)" -"(lambda(i_144 tag_1)" +"(lambda(i_0 tag_0)" "(begin" -"(let-values(((version-length_0)(string-length(version))))" -"(if(equal?(peek-byte i_144)(char->integer '#\\#))" -"(if(equal?(peek-byte i_144 1)(char->integer '#\\~))" -"(if(equal?(peek-byte i_144 2) version-length_0)" -"(if(equal?(peek-bytes version-length_0 3 i_144)(string->bytes/utf-8(version)))" -"(if(equal?(peek-byte i_144(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" +"(let-values(((version-length_30)(string-length(version))))" +"(if(equal?(peek-byte i_0)(char->integer '#\\#))" +"(if(equal?(peek-byte i_0 1)(char->integer '#\\~))" +"(if(equal?(peek-byte i_0 2) version-length_30)" +"(if(equal?(peek-bytes version-length_30 3 i_0)(string->bytes/utf-8(version)))" +"(if(equal?(peek-byte i_0(+ 3 version-length_30))(char->integer tag_0))(+ version-length_30 4) #f)" " #f)" " #f)" " #f)" " #f)))))" "(define-values" "(linklet-directory-start)" -"(lambda(i_92)" -"(begin(let-values(((pos_95)(linklet-bundle-or-directory-start i_92 '#\\D)))(if pos_95(+ pos_95 4) #f)))))" +"(lambda(i_0)" +"(begin(let-values(((pos_32)(linklet-bundle-or-directory-start i_0 '#\\D)))(if pos_32(+ pos_32 4) #f)))))" "(define-values" "(linklet-bundle-hash-code)" -"(lambda(i_181)" +"(lambda(i_0)" "(begin" -"(let-values(((pos_15)(linklet-bundle-or-directory-start i_181 '#\\B)))" -"(let-values(((hash-code_7)(if pos_15(peek-bytes 20 pos_15 i_181) #f)))" -"(if(bytes? hash-code_7)" -"(if(= 20(bytes-length hash-code_7))" -"(if(let-values(((vec_70 len_37)" -"(let-values(((vec_71) hash-code_7))" -"(begin(check-bytes vec_71)(values vec_71(unsafe-bytes-length vec_71))))))" +"(let-values(((pos_34)(linklet-bundle-or-directory-start i_0 '#\\B)))" +"(let-values(((hash-code_35)(if pos_34(peek-bytes 20 pos_34 i_0) #f)))" +"(if(bytes? hash-code_35)" +"(if(= 20(bytes-length hash-code_35))" +"(if(let-values(((vec_36 len_37)" +"(let-values(((vec_38) hash-code_35))" +"(begin(check-bytes vec_38)(values vec_38(unsafe-bytes-length vec_38))))))" "(begin" " #f" -"((letrec-values(((for-loop_237)" -"(lambda(result_28 pos_99)" +"((letrec-values(((for-loop_39)" +"(lambda(result_0 pos_0)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_99 len_37)" -"(let-values(((c_52)(unsafe-bytes-ref vec_70 pos_99)))" -"(let-values(((result_125)" +"(if(unsafe-fx< pos_0 len_37)" +"(let-values(((c_42)(unsafe-bytes-ref vec_36 pos_0)))" +"(let-values(((result_43)" "(let-values()" -"(let-values(((result_126)" +"(let-values(((result_45)" "(let-values()" -"(let-values()(not(eq? c_52 0))))))" -"(values result_126)))))" -"(if(if(not((lambda x_98 result_125) c_52))(not #f) #f)" -"(for-loop_237 result_125(unsafe-fx+ 1 pos_99))" -" result_125)))" -" result_28)))))" -" for-loop_237)" +"(let-values()(not(eq? c_42 0))))))" +"(values result_45)))))" +"(if(if(not((lambda x_0 result_43) c_42))(not #f) #f)" +"(for-loop_39 result_43(unsafe-fx+ 1 pos_0))" +" result_43)))" +" result_0)))))" +" for-loop_39)" " #f" " 0)))" -" hash-code_7" +" hash-code_35" " #f)" " #f)" " #f))))))" "(define-values" "(cached-bundle)" -"(lambda(i_94)" +"(lambda(i_0)" "(begin" -"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_94)))))" -"(if c3_10" -"((lambda(declare-module_0)(lambda()(declare-module_0(1/current-namespace)))) c3_10)" +"(let-values(((c3_48)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_0)))))" +"(if c3_48" +"((lambda(declare-module_0)(lambda()(declare-module_0(1/current-namespace)))) c3_48)" "(let-values() #f))))))" "(define-values" "(read-number)" -"(lambda(i_62)" +"(lambda(i_0)" "(begin" -"(let-values(((read-byte/not-eof_0)" -"(lambda(i_182)" +"(let-values(((read-byte/not-eof_51)" +"(lambda(i_1)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_179)(read-byte i_182)))(if(eof-object? v_179) 0 v_179))))))" +"(let-values(((v_53)(read-byte i_1)))(if(eof-object? v_53) 0 v_53))))))" "(bitwise-ior" -"(read-byte/not-eof_0 i_62)" -"(arithmetic-shift(read-byte/not-eof_0 i_62) 8)" -"(arithmetic-shift(read-byte/not-eof_0 i_62) 16)" -"(arithmetic-shift(read-byte/not-eof_0 i_62) 24))))))" +"(read-byte/not-eof_51 i_0)" +"(arithmetic-shift(read-byte/not-eof_51 i_0) 8)" +"(arithmetic-shift(read-byte/not-eof_51 i_0) 16)" +"(arithmetic-shift(read-byte/not-eof_51 i_0) 24))))))" "(define-values" "(search-directory)" -"(lambda(i_183 pos_124 bstr_5)" +"(lambda(i_0 pos_0 bstr_0)" "(begin" -"(if(zero? pos_124)" +"(if(zero? pos_0)" "(let-values() #f)" "(let-values()" -"(let-values((()(begin(file-position i_183 pos_124)(values))))" -"(let-values(((name-len_0)(read-number i_183)))" -"(let-values(((v_247)(read-bytes name-len_0 i_183)))" +"(let-values((()(begin(file-position i_0 pos_0)(values))))" +"(let-values(((name-len_57)(read-number i_0)))" +"(let-values(((v_58)(read-bytes name-len_57 i_0)))" "(begin" -"(if(if(bytes? v_247)(=(bytes-length v_247) name-len_0) #f)" +"(if(if(bytes? v_58)(=(bytes-length v_58) name-len_57) #f)" "(void)" "(let-values()" "(error" @@ -59540,80 +59820,75 @@ static const char *startup_source = " \" at position: ~a\\n\"" " \" expected bytes: ~a\\n\"" " \" read bytes: ~e\")" -"(object-name i_183)" -" pos_124" -" name-len_0" -" v_247)))" -"(if(bytes=? bstr_5 v_247)" -"(let-values()(read-number i_183))" -"(if(bytesbytes/utf-8" -"(symbol->string s_185))))" -"(let-values(((len_40)" -"(bytes-length bstr_6)))" -"(if(< len_40 255)" +"(symbol->string s_64))))" +"(let-values(((len_70)" +"(bytes-length bstr_69)))" +"(if(< len_70 255)" "(let-values()" "(bytes-append" -"(bytes len_40)" -" bstr_6))" +"(bytes len_70)" +" bstr_69))" "(let-values()" "(bytes-append" " 255" "(integer->integer-bytes" -" len_40" +" len_70" " 4" " #f" " #f)" -" bstr_6))))))" -" fold-var_65))))" -"(values fold-var_76)))))" -"(if(not #f)(for-loop_111 fold-var_75 rest_44) fold-var_75)))" -" fold-var_74)))))" -" for-loop_111)" +" bstr_69))))))" +" fold-var_67))))" +"(values fold-var_68)))))" +"(if(not #f)(for-loop_61 fold-var_66 rest_65) fold-var_66)))" +" fold-var_0)))))" +" for-loop_61)" " null" -" lst_267))))))))))" +" lst_60))))))))))" "(define-values" "(with-module-reading-parameterization+delay-source)" -"(lambda(path_13 thunk_8)" +"(lambda(path_0 thunk_0)" "(begin" "(if(load-on-demand-enabled)" "(with-continuation-mark" @@ -59621,60 +59896,61 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " read-on-demand-source" -"(path->complete-path path_13))" -"(let-values()(with-module-reading-parameterization thunk_8)))" -"(with-module-reading-parameterization thunk_8)))))" +"(path->complete-path path_0))" +"(let-values()(with-module-reading-parameterization thunk_0)))" +"(with-module-reading-parameterization thunk_0)))))" "(define-values" "(call-with-input-module-file)" -"(lambda(path_14 proc_10)" +"(lambda(path_0 proc_0)" "(begin" -"(let-values(((i_156) #f))" +"(let-values(((i_75) #f))" "(dynamic-wind" "(lambda()" -"(set! i_156(let-values(((path3_0) path_14)((temp4_7) #t))(open-input-file6.1 temp4_7 'binary path3_0))))" -"(lambda()(proc_10 i_156))" -"(lambda()(close-input-port i_156)))))))" +"(set! i_75" +"(let-values(((path3_77) path_0)((temp4_78) #t))(open-input-file6.1 temp4_78 'binary path3_77))))" +"(lambda()(proc_0 i_75))" +"(lambda()(close-input-port i_75)))))))" "(define-values(dll-suffix)(system-type 'so-suffix))" "(define-values" "(default-load/use-compiled)" -"(let-values(((resolve_0)" -"(lambda(s_72)" +"(let-values(((resolve_1)" +"(lambda(s_0)" "(begin" " 'resolve" -"(if(complete-path? s_72)" -" s_72" -"(let-values(((d_36)(current-load-relative-directory)))" -"(if d_36(path->complete-path s_72 d_36) s_72)))))))" -"(let-values(((date-of-1_0)" -"(lambda(a_29)" +"(if(complete-path? s_0)" +" s_0" +"(let-values(((d_3)(current-load-relative-directory)))" +"(if d_3(path->complete-path s_0 d_3) s_0)))))))" +"(let-values(((date-of-1_4)" +"(lambda(a_0)" "(begin" " 'date-of-1" -"(let-values(((v_27)(file-or-directory-modify-seconds a_29 #f(lambda() #f))))" -"(if v_27(cons a_29 v_27) #f))))))" -"(let-values(((date-of_0)" -"(lambda(a_39 modes_1 roots_1)" +"(let-values(((v_6)(file-or-directory-modify-seconds a_0 #f(lambda() #f))))" +"(if v_6(cons a_0 v_6) #f))))))" +"(let-values(((date-of_7)" +"(lambda(a_0 modes_0 roots_0)" "(begin" " 'date-of" "(ormap2" "(lambda(root-dir_0)" "(ormap2" "(lambda(compiled-dir_0)" -"(let-values(((a_75)(a_39 root-dir_0 compiled-dir_0)))(date-of-1_0 a_75)))" -" modes_1))" -" roots_1)))))" -"(let-values(((date>=?_0)" -"(lambda(modes_2 roots_2 a_76 bm_0)" +"(let-values(((a_13)(a_0 root-dir_0 compiled-dir_0)))(date-of-1_4 a_13)))" +" modes_0))" +" roots_0)))))" +"(let-values(((date>=?_14)" +"(lambda(modes_0 roots_0 a_0 bm_0)" "(begin" " 'date>=?" -"(if a_76" -"(let-values(((am_0)(date-of_0 a_76 modes_2 roots_2)))" -"(let-values(((or-part_28)(if(not bm_0) am_0 #f)))" -"(if or-part_28" -" or-part_28" -"(if am_0(if bm_0(if(>=(cdr am_0)(cdr bm_0)) am_0 #f) #f) #f))))" +"(if a_0" +"(let-values(((am_19)(date-of_7 a_0 modes_0 roots_0)))" +"(let-values(((or-part_20)(if(not bm_0) am_19 #f)))" +"(if or-part_20" +" or-part_20" +"(if am_19(if bm_0(if(>=(cdr am_19)(cdr bm_0)) am_19 #f) #f) #f))))" " #f)))))" -"(let-values(((with-dir*_0)" -"(lambda(base_23 t_59)" +"(let-values(((with-dir*_21)" +"(lambda(base_0 t_0)" "(begin" " 'with-dir*" "(with-continuation-mark" @@ -59682,28 +59958,28 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-load-relative-directory" -"(if(path? base_23) base_23(current-directory)))" -"(let-values()(t_59)))))))" -"(lambda(path_15 expect-module_0)" +"(if(path? base_0) base_0(current-directory)))" +"(let-values()(t_0)))))))" +"(lambda(path_0 expect-module_0)" "(begin" "(let-values((()" "(begin" -"(if(path-string? path_15)" +"(if(path-string? path_0)" "(void)" -" (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" path_15)))" +" (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" path_0)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_73)(not expect-module_0)))" -"(if or-part_73" -" or-part_73" -"(let-values(((or-part_74)(symbol? expect-module_0)))" -"(if or-part_74" -" or-part_74" +"(if(let-values(((or-part_29)(not expect-module_0)))" +"(if or-part_29" +" or-part_29" +"(let-values(((or-part_30)(symbol? expect-module_0)))" +"(if or-part_30" +" or-part_30" "(if(list? expect-module_0)" "(if(>(length expect-module_0) 1)" -"(if(let-values(((or-part_75)(symbol?(car expect-module_0))))" -"(if or-part_75 or-part_75(not(car expect-module_0))))" +"(if(let-values(((or-part_31)(symbol?(car expect-module_0))))" +"(if or-part_31 or-part_31(not(car expect-module_0))))" "(andmap2 symbol?(cdr expect-module_0))" " #f)" " #f)" @@ -59713,127 +59989,129 @@ static const char *startup_source = "(raise-argument-error" " 'load/use-compiled" " \"(or/c #f symbol? (cons/c (or/c #f symbol?) (non-empty-listof symbol?)))\"" -" path_15)))" +" path_0)))" "(values))))" -"(let-values(((name_54)(if expect-module_0(1/current-module-declare-name) #f)))" -"(let-values(((ns-hts_0)" -"(if name_54" +"(let-values(((name_26)(if expect-module_0(1/current-module-declare-name) #f)))" +"(let-values(((ns-hts_27)" +"(if name_26" "(registry-table-ref(namespace-module-registry$1(1/current-namespace)))" " #f)))" -"(let-values(((use-path/src_0)(if ns-hts_0(hash-ref(cdr ns-hts_0) name_54 #f) #f)))" -"(if use-path/src_0" +"(let-values(((use-path/src_28)(if ns-hts_27(hash-ref(cdr ns-hts_27) name_26 #f) #f)))" +"(if use-path/src_28" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-module-declare-source" -"(cadr use-path/src_0))" +"(cadr use-path/src_28))" "(let-values()" -"(with-dir*_0" -"(caddr use-path/src_0)" -"(lambda()((1/current-load)(car use-path/src_0) expect-module_0)))))" -"(let-values(((orig-path_0)(resolve_0 path_15)))" -"(let-values(((base_24 orig-file_0 dir?_7)(split-path path_15)))" -"(let-values(((file_1 alt-file_0)" +"(with-dir*_21" +"(caddr use-path/src_28)" +"(lambda()((1/current-load)(car use-path/src_28) expect-module_0)))))" +"(let-values(((orig-path_32)(resolve_1 path_0)))" +"(let-values(((base_33 orig-file_34 dir?_35)(split-path path_0)))" +"(let-values(((file_36 alt-file_37)" "(if expect-module_0" -"(let-values(((b_92)(path->bytes orig-file_0)))" -"(let-values(((len_41)(bytes-length b_92)))" -"(if(if(>= len_41 4)" -" (bytes=? #\".rkt\" (subbytes b_92 (- len_41 4)))" +"(let-values(((b_38)(path->bytes orig-file_34)))" +"(let-values(((len_39)(bytes-length b_38)))" +"(if(if(>= len_39 4)" +" (bytes=? #\".rkt\" (subbytes b_38 (- len_39 4)))" " #f)" "(let-values()" "(values" -" orig-file_0" +" orig-file_34" "(bytes->path" -" (bytes-append (subbytes b_92 0 (- len_41 4)) #\".ss\"))))" -"(let-values()(values orig-file_0 #f)))))" -"(values orig-file_0 #f))))" -"(let-values(((path_16)" -"(if(eq? file_1 orig-file_0) orig-path_0(build-path base_24 file_1))))" -"(let-values(((alt-path_0)" -"(if alt-file_0" -"(if(eq? alt-file_0 orig-file_0)" -" orig-path_0" -"(build-path base_24 alt-file_0))" +" (bytes-append (subbytes b_38 0 (- len_39 4)) #\".ss\"))))" +"(let-values()(values orig-file_34 #f)))))" +"(values orig-file_34 #f))))" +"(let-values(((path_40)" +"(if(eq? file_36 orig-file_34)" +" orig-path_32" +"(build-path base_33 file_36))))" +"(let-values(((alt-path_41)" +"(if alt-file_37" +"(if(eq? alt-file_37 orig-file_34)" +" orig-path_32" +"(build-path base_33 alt-file_37))" " #f)))" -"(let-values(((base_25)(if(eq? base_24 'relative) 'same base_24)))" -"(let-values(((modes_3)(1/use-compiled-file-paths)))" -"(let-values(((roots_3)(1/current-compiled-file-roots)))" -"(let-values(((reroot_0)" -"(lambda(p_68 d_37)" +"(let-values(((base_42)(if(eq? base_33 'relative) 'same base_33)))" +"(let-values(((modes_43)(1/use-compiled-file-paths)))" +"(let-values(((roots_44)(1/current-compiled-file-roots)))" +"(let-values(((reroot_45)" +"(lambda(p_0 d_0)" "(begin" " 'reroot" -"(if(eq? d_37 'same)" -"(let-values() p_68)" -"(if(relative-path? d_37)" -"(let-values()(build-path p_68 d_37))" -"(let-values()(reroot-path p_68 d_37))))))))" -"(let-values(((main-path-d_0)(date-of-1_0 path_16)))" -"(let-values(((alt-path-d_0)" -"(if alt-path_0" -"(if(not main-path-d_0)(date-of-1_0 alt-path_0) #f)" +"(if(eq? d_0 'same)" +"(let-values() p_0)" +"(if(relative-path? d_0)" +"(let-values()(build-path p_0 d_0))" +"(let-values()(reroot-path p_0 d_0))))))))" +"(let-values(((main-path-d_48)(date-of-1_4 path_40)))" +"(let-values(((alt-path-d_49)" +"(if alt-path_41" +"(if(not main-path-d_48)(date-of-1_4 alt-path_41) #f)" " #f)))" -"(let-values(((path-d_0)" -"(let-values(((or-part_53) main-path-d_0))" -"(if or-part_53 or-part_53 alt-path-d_0))))" -"(let-values(((get-so_0)" -"(lambda(file_2 rep-sfx?_0)" +"(let-values(((path-d_50)" +"(let-values(((or-part_51) main-path-d_48))" +"(if or-part_51 or-part_51 alt-path-d_49))))" +"(let-values(((get-so_52)" +"(lambda(file_0 rep-sfx?_0)" "(begin" " 'get-so" -"(lambda(root-dir_1 compiled-dir_1)" +"(lambda(root-dir_0 compiled-dir_0)" "(build-path" -"(reroot_0 base_25 root-dir_1)" -" compiled-dir_1" +"(reroot_45 base_42 root-dir_0)" +" compiled-dir_0" " \"native\"" "(system-library-subpath)" "(if rep-sfx?_0" -"(path-add-extension file_2 dll-suffix)" -" file_2)))))))" -"(let-values(((zo_0)" -"(lambda(root-dir_2 compiled-dir_2)" +"(path-add-extension file_0 dll-suffix)" +" file_0)))))))" +"(let-values(((zo_57)" +"(lambda(root-dir_0 compiled-dir_0)" "(begin" " 'zo" "(build-path" -"(reroot_0 base_25 root-dir_2)" -" compiled-dir_2" -" (path-add-extension file_1 #\".zo\"))))))" -"(let-values(((alt-zo_0)" -"(lambda(root-dir_3 compiled-dir_3)" +"(reroot_45 base_42 root-dir_0)" +" compiled-dir_0" +" (path-add-extension file_36 #\".zo\"))))))" +"(let-values(((alt-zo_60)" +"(lambda(root-dir_0 compiled-dir_0)" "(begin" " 'alt-zo" "(build-path" -"(reroot_0 base_25 root-dir_3)" -" compiled-dir_3" -" (path-add-extension alt-file_0 #\".zo\"))))))" -"(let-values(((so_0)(get-so_0 file_1 #t)))" -"(let-values(((alt-so_0)(get-so_0 alt-file_0 #t)))" -"(let-values(((try-main?_0)" -"(let-values(((or-part_370) main-path-d_0))" -"(if or-part_370" -" or-part_370" -"(not alt-path-d_0)))))" -"(let-values(((try-alt?_0)" -"(if alt-file_0" -"(let-values(((or-part_166)" -" alt-path-d_0))" -"(if or-part_166" -" or-part_166" -"(not main-path-d_0)))" +"(reroot_45 base_42 root-dir_0)" +" compiled-dir_0" +" (path-add-extension alt-file_37 #\".zo\"))))))" +"(let-values(((so_63)(get-so_52 file_36 #t)))" +"(let-values(((alt-so_64)(get-so_52 alt-file_37 #t)))" +"(let-values(((try-main?_65)" +"(let-values(((or-part_66) main-path-d_48))" +"(if or-part_66" +" or-part_66" +"(not alt-path-d_49)))))" +"(let-values(((try-alt?_67)" +"(if alt-file_37" +"(let-values(((or-part_68)" +" alt-path-d_49))" +"(if or-part_68" +" or-part_68" +"(not main-path-d_48)))" " #f)))" -"(let-values(((with-dir_0)" -"(lambda(t_60)" +"(let-values(((with-dir_69)" +"(lambda(t_0)" "(begin" " 'with-dir" -"(with-dir*_0 base_25 t_60)))))" -"(let-values(((c1_32)" -"(if try-main?_0" -"(date>=?_0" -" modes_3" -" roots_3" -" so_0" -" path-d_0)" +"(with-dir*_21 base_42 t_0)))))" +"(let-values(((c1_71)" +"(if try-main?_65" +"(date>=?_14" +" modes_43" +" roots_44" +" so_63" +" path-d_50)" " #f)))" -"(if c1_32" +"(if c1_71" "((lambda(so-d_0)" "(with-continuation-mark" " parameterization-key" @@ -59844,22 +60122,22 @@ static const char *startup_source = " 1/current-module-declare-source" " #f)" "(let-values()" -"(with-dir_0" +"(with-dir_69" "(lambda()" "((current-load-extension)" "(car so-d_0)" " expect-module_0))))))" -" c1_32)" -"(let-values(((c2_18)" -"(if try-alt?_0" -"(date>=?_0" -" modes_3" -" roots_3" -" alt-so_0" -" alt-path-d_0)" +" c1_71)" +"(let-values(((c2_73)" +"(if try-alt?_67" +"(date>=?_14" +" modes_43" +" roots_44" +" alt-so_64" +" alt-path-d_49)" " #f)))" -"(if c2_18" -"((lambda(so-d_1)" +"(if c2_73" +"((lambda(so-d_0)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -59867,31 +60145,31 @@ static const char *startup_source = " #f" " parameterization-key)" " 1/current-module-declare-source" -" alt-path_0)" +" alt-path_41)" "(let-values()" -"(with-dir_0" +"(with-dir_69" "(lambda()" "((current-load-extension)" -"(car so-d_1)" +"(car so-d_0)" " expect-module_0))))))" -" c2_18)" -"(let-values(((c3_11)" -"(if try-main?_0" -"(date>=?_0" -" modes_3" -" roots_3" -" zo_0" -" path-d_0)" +" c2_73)" +"(let-values(((c3_75)" +"(if try-main?_65" +"(date>=?_14" +" modes_43" +" roots_44" +" zo_57" +" path-d_50)" " #f)))" -"(if c3_11" +"(if c3_75" "((lambda(zo-d_0)" "(begin" "(register-zo-path" -" name_54" -" ns-hts_0" +" name_26" +" ns-hts_27" "(car zo-d_0)" " #f" -" base_25)" +" base_42)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -59901,29 +60179,29 @@ static const char *startup_source = " 1/current-module-declare-source" " #f)" "(let-values()" -"(with-dir_0" +"(with-dir_69" "(lambda()" "((1/current-load)" "(car zo-d_0)" " expect-module_0)))))))" -" c3_11)" -"(let-values(((c4_3)" -"(if try-alt?_0" -"(date>=?_0" -" modes_3" -" roots_3" -" alt-zo_0" -" path-d_0)" +" c3_75)" +"(let-values(((c4_77)" +"(if try-alt?_67" +"(date>=?_14" +" modes_43" +" roots_44" +" alt-zo_60" +" path-d_50)" " #f)))" -"(if c4_3" -"((lambda(zo-d_1)" +"(if c4_77" +"((lambda(zo-d_0)" "(begin" "(register-zo-path" -" name_54" -" ns-hts_0" -"(car zo-d_1)" -" alt-path_0" -" base_25)" +" name_26" +" ns-hts_27" +"(car zo-d_0)" +" alt-path_41" +" base_42)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -59931,30 +60209,30 @@ static const char *startup_source = " #f" " parameterization-key)" " 1/current-module-declare-source" -" alt-path_0)" +" alt-path_41)" "(let-values()" -"(with-dir_0" +"(with-dir_69" "(lambda()" "((1/current-load)" -"(car zo-d_1)" +"(car zo-d_0)" " expect-module_0)))))))" -" c4_3)" -"(if(let-values(((or-part_371)" +" c4_77)" +"(if(let-values(((or-part_79)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_371" -" or-part_371" +"(if or-part_79" +" or-part_79" "(car expect-module_0)))" "(let-values()" -"(let-values(((p_69)" -"(if try-main?_0" -" path_16" -" alt-path_0)))" +"(let-values(((p_80)" +"(if try-main?_65" +" path_40" +" alt-path_41)))" "(if(if(pair?" " expect-module_0)" "(not" -"(file-exists? p_69))" +"(file-exists? p_80))" " #f)" "(void)" "(let-values()" @@ -59966,657 +60244,667 @@ static const char *startup_source = " parameterization-key)" " 1/current-module-declare-source" "(if expect-module_0" -"(if(not try-main?_0)" -" p_69" +"(if(not try-main?_65)" +" p_80" " #f)" " #f))" "(let-values()" -"(with-dir_0" +"(with-dir_69" "(lambda()" "((1/current-load)" -" p_69" +" p_80" " expect-module_0)))))))))" "(void))))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(register-zo-path)" -"(lambda(name_76 ns-hts_1 path_17 src-path_0 base_26)" -"(begin(if ns-hts_1(let-values()(hash-set!(cdr ns-hts_1) name_76(list path_17 src-path_0 base_26)))(void)))))" -"(define-values(default-reader-guard)(lambda(path_18)(begin path_18)))" +"(lambda(name_0 ns-hts_0 path_0 src-path_0 base_0)" +"(begin(if ns-hts_0(let-values()(hash-set!(cdr ns-hts_0) name_0(list path_0 src-path_0 base_0)))(void)))))" +"(define-values(default-reader-guard)(lambda(path_0)(begin path_0)))" "(define-values(-module-hash-table-table)(make-weak-hasheq))" "(define-values" "(registry-table-ref)" "(lambda(reg_0)" -"(begin(let-values(((e_86)(hash-ref -module-hash-table-table reg_0 #f)))(if e_86(ephemeron-value e_86) #f)))))" +"(begin(let-values(((e_88)(hash-ref -module-hash-table-table reg_0 #f)))(if e_88(ephemeron-value e_88) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_197)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_197)))))" +"(lambda(reg_0 v_0)(begin(hash-set! -module-hash-table-table reg_0(make-ephemeron reg_0 v_0)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" "(path-cache-get)" -"(lambda(p_38)" +"(lambda(p_0)" "(begin" -"(let-values(((i_45)(modulo(abs(equal-hash-code p_38)) CACHE-N)))" -"(let-values(((w_1)(vector-ref -path-cache i_45)))" -"(let-values(((l_84)(if w_1(weak-box-value w_1) #f)))" -"(if l_84(let-values(((a_77)(1/assoc p_38 l_84)))(if a_77(cdr a_77) #f)) #f)))))))" +"(let-values(((i_92)(modulo(abs(equal-hash-code p_0)) CACHE-N)))" +"(let-values(((w_93)(vector-ref -path-cache i_92)))" +"(let-values(((l_94)(if w_93(weak-box-value w_93) #f)))" +"(if l_94(let-values(((a_95)(1/assoc p_0 l_94)))(if a_95(cdr a_95) #f)) #f)))))))" "(define-values" "(path-cache-set!)" -"(lambda(p_70 v_248)" +"(lambda(p_0 v_0)" "(begin" -"(let-values(((i_184)(modulo(abs(equal-hash-code p_70)) CACHE-N)))" -"(let-values(((w_2)(vector-ref -path-cache i_184)))" -"(let-values(((l_19)(if w_2(weak-box-value w_2) #f)))" +"(let-values(((i_98)(modulo(abs(equal-hash-code p_0)) CACHE-N)))" +"(let-values(((w_99)(vector-ref -path-cache i_98)))" +"(let-values(((l_100)(if w_99(weak-box-value w_99) #f)))" "(vector-set!" " -path-cache" -" i_184" +" i_98" "(make-weak-box" -"(cons(cons p_70 v_248)(let-values(((or-part_65) l_19))(if or-part_65 or-part_65 null)))))))))))" +"(cons(cons p_0 v_0)(let-values(((or-part_101) l_100))(if or-part_101 or-part_101 null)))))))))))" "(define-values(-loading-filename)(gensym))" "(define-values(-loading-prompt-tag)(make-continuation-prompt-tag 'module-loading))" "(define-values(-prev-relto) #f)" "(define-values(-prev-relto-dir) #f)" "(define-values" "(split-relative-string)" -"(lambda(s_499 coll-mode?_0)" +"(lambda(s_0 coll-mode?_0)" "(begin" -"(let-values(((l_85)" -"((letrec-values(((loop_46)" -"(lambda(s_306)" +"(let-values(((l_104)" +"((letrec-values(((loop_105)" +"(lambda(s_1)" "(begin" " 'loop" -"(let-values(((len_42)(string-length s_306)))" -"((letrec-values(((iloop_2)" -"(lambda(i_100)" +"(let-values(((len_107)(string-length s_1)))" +"((letrec-values(((iloop_108)" +"(lambda(i_0)" "(begin" " 'iloop" -"(if(= i_100 len_42)" -"(let-values()(list s_306))" -"(if(char=? '#\\/(string-ref s_306 i_100))" +"(if(= i_0 len_107)" +"(let-values()(list s_1))" +"(if(char=? '#\\/(string-ref s_1 i_0))" "(let-values()" "(cons" -"(substring s_306 0 i_100)" -"(loop_46(substring s_306(add1 i_100)))))" -"(let-values()(iloop_2(add1 i_100)))))))))" -" iloop_2)" +"(substring s_1 0 i_0)" +"(loop_105(substring s_1(add1 i_0)))))" +"(let-values()(iloop_108(add1 i_0)))))))))" +" iloop_108)" " 0))))))" -" loop_46)" -" s_499)))" +" loop_105)" +" s_0)))" "(if coll-mode?_0" -" l_85" -"((letrec-values(((loop_47)" -"(lambda(l_81)" +" l_104" +"((letrec-values(((loop_110)" +"(lambda(l_0)" "(begin" " 'loop" -"(if(null?(cdr l_81))" -"(values null(car l_81))" -"(let-values(((c_111 f_42)(loop_47(cdr l_81))))" -"(values(cons(car l_81) c_111) f_42)))))))" -" loop_47)" -" l_85))))))" +"(if(null?(cdr l_0))" +"(values null(car l_0))" +"(let-values(((c_112 f_113)(loop_110(cdr l_0))))" +"(values(cons(car l_0) c_112) f_113)))))))" +" loop_110)" +" l_104))))))" "(define-values" "(format-source-location)" -"(lambda(stx_18)" +"(lambda(stx_0)" "(begin" "(srcloc->string" "(srcloc" -"(1/syntax-source stx_18)" -"(1/syntax-line stx_18)" -"(1/syntax-column stx_18)" -"(1/syntax-position stx_18)" -"(1/syntax-span stx_18))))))" +"(1/syntax-source stx_0)" +"(1/syntax-line stx_0)" +"(1/syntax-column stx_0)" +"(1/syntax-position stx_0)" +"(1/syntax-span stx_0))))))" "(define-values(orig-paramz) #f)" "(define-values" "(standard-module-name-resolver)" "(let-values()" -"(let-values(((planet-resolver_0) #f))" -"(let-values(((prep-planet-resolver!_0)" +"(let-values(((planet-resolver_115) #f))" +"(let-values(((prep-planet-resolver!_116)" "(lambda()" "(begin" " 'prep-planet-resolver!" -"(if planet-resolver_0" +"(if planet-resolver_115" "(void)" "(let-values()" "(with-continuation-mark" " parameterization-key" " orig-paramz" -"(set! planet-resolver_0" +"(set! planet-resolver_115" " (1/dynamic-require '(lib \"planet/resolver.rkt\") 'planet-module-name-resolver)))))))))" -"(letrec-values(((standard-module-name-resolver_0)" +"(letrec-values(((standard-module-name-resolver_117)" "(case-lambda" -"((s_173 from-namespace_1)" +"((s_0 from-namespace_0)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_173)" +"(if(1/resolved-module-path? s_0)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_173)))" -"(if(let-values(((or-part_134)(not from-namespace_1)))" -"(if or-part_134 or-part_134(1/namespace? from-namespace_1)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_0)))" +"(if(let-values(((or-part_120)(not from-namespace_0)))" +"(if or-part_120 or-part_120(1/namespace? from-namespace_0)))" "(void)" "(let-values()" "(raise-argument-error" " 'standard-module-name-resolver" " \"(or/c #f namespace?)\"" -" from-namespace_1)))" -"(if planet-resolver_0(let-values()(planet-resolver_0 s_173))(void))" -"(let-values(((hts_1)" -"(let-values(((or-part_98)" +" from-namespace_0)))" +"(if planet-resolver_115(let-values()(planet-resolver_115 s_0))(void))" +"(let-values(((hts_121)" +"(let-values(((or-part_122)" "(registry-table-ref" "(namespace-module-registry$1(1/current-namespace)))))" -"(if or-part_98" -" or-part_98" -"(let-values(((hts_2)(cons(make-hasheq)(make-hasheq))))" +"(if or-part_122" +" or-part_122" +"(let-values(((hts_123)(cons(make-hasheq)(make-hasheq))))" "(begin" "(registry-table-set!" "(namespace-module-registry$1(1/current-namespace))" -" hts_2)" -" hts_2))))))" +" hts_123)" +" hts_123))))))" "(begin" -"(hash-set!(car hts_1) s_173 'declared)" -"(if from-namespace_1" +"(hash-set!(car hts_121) s_0 'declared)" +"(if from-namespace_0" "(let-values()" -"(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_173))" +"(let-values(((root-name_124)" +"(if(pair?(1/resolved-module-path-name s_0))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_173)))" -" s_173))" -"((from-hts_0)" +"(car(1/resolved-module-path-name s_0)))" +" s_0))" +"((from-hts_125)" "(registry-table-ref" -"(namespace-module-registry$1 from-namespace_1))))" -"(if from-hts_0" +"(namespace-module-registry$1 from-namespace_0))))" +"(if from-hts_125" "(let-values()" -"(let-values(((use-path/src_1)(hash-ref(cdr from-hts_0) root-name_2 #f)))" -"(if use-path/src_1" -"(let-values()(hash-set!(cdr hts_1) root-name_2 use-path/src_1))" +"(let-values(((use-path/src_126)" +"(hash-ref(cdr from-hts_125) root-name_124 #f)))" +"(if use-path/src_126" +"(let-values()" +"(hash-set!(cdr hts_121) root-name_124 use-path/src_126))" "(void))))" "(void))))" "(void)))))))" -"((s_452 relto_0 stx_19)" +"((s_0 relto_0 stx_0)" "(begin" "(log-message" "(current-logger)" " 'error" " \"default module name resolver called with three arguments (deprecated)\"" " #f)" -"(standard-module-name-resolver_0 s_452 relto_0 stx_19 #t)))" -"((s_500 relto_1 stx_20 load?_7)" +"(standard-module-name-resolver_117 s_0 relto_0 stx_0 #t)))" +"((s_0 relto_0 stx_0 load?_0)" "(let-values((()" "(begin" -"(if(1/module-path? s_500)" +"(if(1/module-path? s_0)" "(void)" "(let-values()" -"(if(syntax?$1 stx_20)" -" (raise-syntax-error$1 #f \"bad module path\" stx_20)" +"(if(syntax?$1 stx_0)" +" (raise-syntax-error$1 #f \"bad module path\" stx_0)" "(raise-argument-error" " 'standard-module-name-resolver" " \"module-path?\"" -" s_500))))" +" s_0))))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_359)(not relto_1)))" -"(if or-part_359 or-part_359(1/resolved-module-path? relto_1)))" +"(if(let-values(((or-part_135)(not relto_0)))" +"(if or-part_135 or-part_135(1/resolved-module-path? relto_0)))" "(void)" "(let-values()" "(raise-argument-error" " 'standard-module-name-resolver" " \"(or/c #f resolved-module-path?)\"" -" relto_1)))" +" relto_0)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_55)(not stx_20)))" -"(if or-part_55 or-part_55(syntax?$1 stx_20)))" +"(if(let-values(((or-part_136)(not stx_0)))" +"(if or-part_136 or-part_136(syntax?$1 stx_0)))" "(void)" "(let-values()" "(raise-argument-error" " 'standard-module-name-resolver" " \"(or/c #f syntax?)\"" -" stx_20)))" +" stx_0)))" "(values))))" -"(let-values(((flatten-sub-path_0)" -"(lambda(base_27 orig-l_10)" +"(let-values(((flatten-sub-path_134)" +"(lambda(base_0 orig-l_0)" "(begin" " 'flatten-sub-path" -"((letrec-values(((loop_117)" -"(lambda(a_78 l_35)" +"((letrec-values(((loop_139)" +"(lambda(a_0 l_0)" "(begin" " 'loop" -"(if(null? l_35)" +"(if(null? l_0)" "(let-values()" -"(if(null? a_78)" -" base_27" -"(cons base_27(reverse$1 a_78))))" -" (if (equal? (car l_35) \"..\")" +"(if(null? a_0)" +" base_0" +"(cons base_0(reverse$1 a_0))))" +" (if (equal? (car l_0) \"..\")" "(let-values()" -"(if(null? a_78)" +"(if(null? a_0)" "(error" " 'standard-module-name-resolver" " \"too many \\\"..\\\"s in submodule path: ~.s\"" "(list*" " 'submod" -" (if (equal? base_27 \".\")" -" base_27" -"(if(path? base_27)" -" base_27" +" (if (equal? base_0 \".\")" +" base_0" +"(if(path? base_0)" +" base_0" "(list" -"(if(symbol? base_27)" +"(if(symbol? base_0)" " 'quote" " 'file)" -" base_27)))" -" orig-l_10))" -"(loop_117(cdr a_78)(cdr l_35))))" +" base_0)))" +" orig-l_0))" +"(loop_139(cdr a_0)(cdr l_0))))" "(let-values()" -"(loop_117" -"(cons(car l_35) a_78)" -"(cdr l_35)))))))))" -" loop_117)" +"(loop_139" +"(cons(car l_0) a_0)" +"(cdr l_0)))))))))" +" loop_139)" " null" -" orig-l_10)))))" -"(if(if(pair? s_500)(eq?(car s_500) 'quote) #f)" -"(let-values()(1/make-resolved-module-path(cadr s_500)))" -"(if(if(pair? s_500)" -"(if(eq?(car s_500) 'submod)" -"(if(pair?(cadr s_500))(eq?(caadr s_500) 'quote) #f)" +" orig-l_0)))))" +"(if(if(pair? s_0)(eq?(car s_0) 'quote) #f)" +"(let-values()(1/make-resolved-module-path(cadr s_0)))" +"(if(if(pair? s_0)" +"(if(eq?(car s_0) 'submod)" +"(if(pair?(cadr s_0))(eq?(caadr s_0) 'quote) #f)" " #f)" " #f)" "(let-values()" -"(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_500)(cddr s_500))))" -"(if(if(pair? s_500)" -"(if(eq?(car s_500) 'submod)" -" (if (let-values (((or-part_101) (equal? (cadr s_500) \".\")))" -" (if or-part_101 or-part_101 (equal? (cadr s_500) \"..\")))" -"(if relto_1" -"(let-values(((p_71)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_372)(symbol? p_71)))" -"(if or-part_372" -" or-part_372" -"(if(pair? p_71)(symbol?(car p_71)) #f))))" +"(1/make-resolved-module-path(flatten-sub-path_134(cadadr s_0)(cddr s_0))))" +"(if(if(pair? s_0)" +"(if(eq?(car s_0) 'submod)" +" (if (let-values (((or-part_142) (equal? (cadr s_0) \".\")))" +" (if or-part_142 or-part_142 (equal? (cadr s_0) \"..\")))" +"(if relto_0" +"(let-values(((p_143)(1/resolved-module-path-name relto_0)))" +"(let-values(((or-part_144)(symbol? p_143)))" +"(if or-part_144" +" or-part_144" +"(if(pair? p_143)(symbol?(car p_143)) #f))))" " #f)" " #f)" " #f)" " #f)" "(let-values()" -"(let-values(((rp_0)(1/resolved-module-path-name relto_1)))" +"(let-values(((rp_145)(1/resolved-module-path-name relto_0)))" "(1/make-resolved-module-path" -"(flatten-sub-path_0" -"(if(pair? rp_0)(car rp_0) rp_0)" -"(let-values(((r_44)" -" (if (equal? (cadr s_500) \"..\") (cdr s_500) (cddr s_500))))" -"(if(pair? rp_0)(append(cdr rp_0) r_44) r_44))))))" -"(if(if(pair? s_500)(eq?(car s_500) 'planet) #f)" +"(flatten-sub-path_134" +"(if(pair? rp_145)(car rp_145) rp_145)" +"(let-values(((r_146)" +" (if (equal? (cadr s_0) \"..\") (cdr s_0) (cddr s_0))))" +"(if(pair? rp_145)(append(cdr rp_145) r_146) r_146))))))" +"(if(if(pair? s_0)(eq?(car s_0) 'planet) #f)" "(let-values()" "(begin" -"(prep-planet-resolver!_0)" -"(planet-resolver_0 s_500 relto_1 stx_20 load?_7 #f orig-paramz)))" -"(if(if(pair? s_500)" -"(if(eq?(car s_500) 'submod)" -"(if(pair?(cadr s_500))(eq?(caadr s_500) 'planet) #f)" +"(prep-planet-resolver!_116)" +"(planet-resolver_115 s_0 relto_0 stx_0 load?_0 #f orig-paramz)))" +"(if(if(pair? s_0)" +"(if(eq?(car s_0) 'submod)" +"(if(pair?(cadr s_0))(eq?(caadr s_0) 'planet) #f)" " #f)" " #f)" "(let-values()" "(begin" -"(prep-planet-resolver!_0)" -"(planet-resolver_0" -"(cadr s_500)" -" relto_1" -" stx_20" -" load?_7" -"(cddr s_500)" +"(prep-planet-resolver!_116)" +"(planet-resolver_115" +"(cadr s_0)" +" relto_0" +" stx_0" +" load?_0" +"(cddr s_0)" " orig-paramz)))" "(let-values()" -"(let-values(((get-dir_0)" +"(let-values(((get-dir_147)" "(lambda()" "(begin" " 'get-dir" -"(let-values(((or-part_41)" -"(if relto_1" -"(if(eq? relto_1 -prev-relto)" +"(let-values(((or-part_154)" +"(if relto_0" +"(if(eq? relto_0 -prev-relto)" " -prev-relto-dir" -"(let-values(((p_72)" +"(let-values(((p_155)" "(1/resolved-module-path-name" -" relto_1)))" -"(let-values(((p_73)" -"(if(pair? p_72)" -"(car p_72)" -" p_72)))" -"(if(path? p_73)" -"(let-values(((base_28" -" n_35" -" d?_0)" +" relto_0)))" +"(let-values(((p_156)" +"(if(pair? p_155)" +"(car p_155)" +" p_155)))" +"(if(path? p_156)" +"(let-values(((base_157" +" n_158" +" d?_159)" "(split-path" -" p_73)))" +" p_156)))" "(begin" -"(set! -prev-relto relto_1)" +"(set! -prev-relto relto_0)" "(set! -prev-relto-dir" -" base_28)" -" base_28))" +" base_157)" +" base_157))" " #f))))" " #f)))" -"(if or-part_41" -" or-part_41" -"(let-values(((or-part_373)" +"(if or-part_154" +" or-part_154" +"(let-values(((or-part_160)" "(current-load-relative-directory)))" -"(if or-part_373" -" or-part_373" +"(if or-part_160" +" or-part_160" "(current-directory))))))))" -"((get-reg_0)" +"((get-reg_148)" "(lambda()" "(begin" " 'get-reg" "(namespace-module-registry$1(1/current-namespace)))))" -"((show-collection-err_0)" -"(lambda(msg_1)" +"((show-collection-err_149)" +"(lambda(msg_0)" "(begin" " 'show-collection-err" -"(let-values(((msg_2)" +"(let-values(((msg_162)" "(string-append" -"(let-values(((or-part_374)" -"(if stx_20" +"(let-values(((or-part_163)" +"(if stx_0" "(if(error-print-source-location)" "(format-source-location" -" stx_20)" +" stx_0)" " #f)" " #f)))" -"(if or-part_374" -" or-part_374" +"(if or-part_163" +" or-part_163" " \"standard-module-name-resolver\"))" " \": \"" "(regexp-replace" " '#rx\"\\n\"" -" msg_1" +" msg_0" "(format" " \"\\n for module path: ~s\\n\"" -" s_500)))))" +" s_0)))))" "(raise" -"(if stx_20" +"(if stx_0" "(1/make-exn:fail:syntax:missing-module" -" msg_2" +" msg_162" "(current-continuation-marks)" -"(list stx_20)" -" s_500)" +"(list stx_0)" +" s_0)" "(1/make-exn:fail:filesystem:missing-module" -" msg_2" +" msg_162" "(current-continuation-marks)" -" s_500)))))))" -"((ss->rkt_0)" -"(lambda(s_496)" +" s_0)))))))" +"((ss->rkt_150)" +"(lambda(s_1)" "(begin" " 'ss->rkt" -"(let-values(((len_43)(string-length s_496)))" -"(if(if(>= len_43 3)" +"(let-values(((len_165)(string-length s_1)))" +"(if(if(>= len_165 3)" "(if(equal?" " '#\\." -"(string-ref s_496(- len_43 3)))" +"(string-ref s_1(- len_165 3)))" "(if(equal?" " '#\\s" -"(string-ref s_496(- len_43 2)))" +"(string-ref s_1(- len_165 2)))" "(equal?" " '#\\s" -"(string-ref s_496(- len_43 1)))" +"(string-ref s_1(- len_165 1)))" " #f)" " #f)" " #f)" "(string-append" -"(substring s_496 0(- len_43 3))" +"(substring s_1 0(- len_165 3))" " \".rkt\")" -" s_496)))))" -"((path-ss->rkt_0)" -"(lambda(p_74)" +" s_1)))))" +"((path-ss->rkt_151)" +"(lambda(p_0)" "(begin" " 'path-ss->rkt" -"(let-values(((base_29 name_77 dir?_8)" -"(split-path p_74)))" -" (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_77))" -" (path-replace-extension p_74 #\".rkt\")" -" p_74)))))" -"((s_501)" -"(if(if(pair? s_500)(eq? 'submod(car s_500)) #f)" -"(let-values(((v_249)(cadr s_500)))" -" (if (let-values (((or-part_375) (equal? v_249 \".\")))" -" (if or-part_375 or-part_375 (equal? v_249 \"..\")))" -"(if relto_1" -"(let-values(((p_7)" +"(let-values(((base_167 name_168 dir?_169)" +"(split-path p_0)))" +"(if(regexp-match" +" '#rx\"[.]ss$\"" +"(path->bytes name_168))" +" (path-replace-extension p_0 #\".rkt\")" +" p_0)))))" +"((s_152)" +"(if(if(pair? s_0)(eq? 'submod(car s_0)) #f)" +"(let-values(((v_170)(cadr s_0)))" +" (if (let-values (((or-part_171) (equal? v_170 \".\")))" +" (if or-part_171 or-part_171 (equal? v_170 \"..\")))" +"(if relto_0" +"(let-values(((p_172)" "(1/resolved-module-path-name" -" relto_1)))" -"(if(pair? p_7)(car p_7) p_7))" +" relto_0)))" +"(if(pair? p_172)(car p_172) p_172))" "(error" " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" -" s_500))" -" v_249))" -" s_500))" -"((subm-path_0)" -"(if(if(pair? s_500)(eq? 'submod(car s_500)) #f)" -"(let-values(((p_75)" -"(if(if(let-values(((or-part_168)" +" s_0))" +" v_170))" +" s_0))" +"((subm-path_153)" +"(if(if(pair? s_0)(eq? 'submod(car s_0)) #f)" +"(let-values(((p_173)" +"(if(if(let-values(((or-part_174)" "(equal?" -"(cadr s_500)" +"(cadr s_0)" " \".\")))" -"(if or-part_168" -" or-part_168" -" (equal? (cadr s_500) \"..\")))" -" relto_1" +"(if or-part_174" +" or-part_174" +" (equal? (cadr s_0) \"..\")))" +" relto_0" " #f)" -"(let-values(((p_76)" +"(let-values(((p_175)" "(1/resolved-module-path-name" -" relto_1))" -"((r_45)" +" relto_0))" +"((r_176)" "(if(equal?" -"(cadr s_500)" +"(cadr s_0)" " \"..\")" -"(cdr s_500)" -"(cddr s_500))))" -"(if(pair? p_76)" -"(flatten-sub-path_0" -"(car p_76)" -"(append(cdr p_76) r_45))" -"(flatten-sub-path_0 p_76 r_45)))" -"(flatten-sub-path_0" +"(cdr s_0)" +"(cddr s_0))))" +"(if(pair? p_175)" +"(flatten-sub-path_134" +"(car p_175)" +"(append(cdr p_175) r_176))" +"(flatten-sub-path_134 p_175 r_176)))" +"(flatten-sub-path_134" " \".\"" -" (if (equal? (cadr s_500) \"..\")" -"(cdr s_500)" -"(cddr s_500))))))" -"(if(pair? p_75)(cdr p_75) #f))" +" (if (equal? (cadr s_0) \"..\")" +"(cdr s_0)" +"(cddr s_0))))))" +"(if(pair? p_173)(cdr p_173) #f))" " #f)))" -"(let-values(((s-parsed_0)" -"(if(symbol? s_501)" +"(let-values(((s-parsed_177)" +"(if(symbol? s_152)" "(let-values()" -"(let-values(((or-part_46)" +"(let-values(((or-part_178)" "(path-cache-get" -"(cons s_501(get-reg_0)))))" -"(if or-part_46" -" or-part_46" -"(let-values(((cols_0 file_3)" +"(cons s_152(get-reg_148)))))" +"(if or-part_178" +" or-part_178" +"(let-values(((cols_179 file_180)" "(split-relative-string" -"(symbol->string s_501)" +"(symbol->string s_152)" " #f)))" -"(let-values(((f-file_0)" -"(if(null? cols_0)" +"(let-values(((f-file_181)" +"(if(null? cols_179)" " \"main.rkt\"" "(string-append" -" file_3" +" file_180" " \".rkt\"))))" "(find-col-file" -" show-collection-err_0" -"(if(null? cols_0) file_3(car cols_0))" -"(if(null? cols_0) null(cdr cols_0))" -" f-file_0" +" show-collection-err_149" +"(if(null? cols_179)" +" file_180" +"(car cols_179))" +"(if(null? cols_179) null(cdr cols_179))" +" f-file_181" " #t))))))" -"(if(string? s_501)" +"(if(string? s_152)" "(let-values()" -"(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_376)" +"(let-values(((dir_182)(get-dir_147)))" +"(let-values(((or-part_183)" "(path-cache-get" -"(cons s_501 dir_4))))" -"(if or-part_376" -" or-part_376" -"(let-values(((cols_1 file_4)" +"(cons s_152 dir_182))))" +"(if or-part_183" +" or-part_183" +"(let-values(((cols_184 file_185)" "(split-relative-string" -" s_501" +" s_152" " #f)))" -"(if(null? cols_1)" -"(build-path dir_4(ss->rkt_0 file_4))" +"(if(null? cols_184)" +"(build-path" +" dir_182" +"(ss->rkt_150 file_185))" "(apply" " build-path" -" dir_4" +" dir_182" "(append" "(map2" -"(lambda(s_56)" -" (if (string=? s_56 \".\")" +"(lambda(s_1)" +" (if (string=? s_1 \".\")" "(let-values() 'same)" -" (if (string=? s_56 \"..\")" +" (if (string=? s_1 \"..\")" "(let-values() 'up)" -"(let-values() s_56))))" -" cols_1)" -"(list(ss->rkt_0 file_4))))))))))" -"(if(path? s_501)" +"(let-values() s_1))))" +" cols_184)" +"(list(ss->rkt_150 file_185))))))))))" +"(if(path? s_152)" "(let-values()" -"(path-ss->rkt_0" +"(path-ss->rkt_151" "(simplify-path" -"(if(complete-path? s_501)" -" s_501" -"(path->complete-path s_501(get-dir_0))))))" -"(if(eq?(car s_501) 'lib)" +"(if(complete-path? s_152)" +" s_152" +"(path->complete-path s_152(get-dir_147))))))" +"(if(eq?(car s_152) 'lib)" "(let-values()" -"(let-values(((or-part_84)" +"(let-values(((or-part_187)" "(path-cache-get" -"(cons s_501(get-reg_0)))))" -"(if or-part_84" -" or-part_84" -"(let-values(((cols_2 file_5)" +"(cons s_152(get-reg_148)))))" +"(if or-part_187" +" or-part_187" +"(let-values(((cols_188 file_189)" "(split-relative-string" -"(cadr s_501)" +"(cadr s_152)" " #f)))" -"(let-values(((old-style?_0)" -"(if(null?(cddr s_501))" -"(if(null? cols_2)" +"(let-values(((old-style?_190)" +"(if(null?(cddr s_152))" +"(if(null? cols_188)" "(regexp-match?" " '#rx\"[.]\"" -" file_5)" +" file_189)" " #f)" " #t)))" -"(let-values(((f-file_1)" -"(if old-style?_0" -"(ss->rkt_0 file_5)" -"(if(null? cols_2)" +"(let-values(((f-file_191)" +"(if old-style?_190" +"(ss->rkt_150 file_189)" +"(if(null? cols_188)" " \"main.rkt\"" "(if(regexp-match?" " '#rx\"[.]\"" -" file_5)" -"(ss->rkt_0 file_5)" +" file_189)" +"(ss->rkt_150" +" file_189)" "(string-append" -" file_5" +" file_189" " \".rkt\"))))))" -"(let-values(((cols_3)" -"(if old-style?_0" +"(let-values(((cols_192)" +"(if old-style?_190" "(append" "(if(null?" -"(cddr s_501))" +"(cddr s_152))" " '(\"mzlib\")" "(apply" " append" "(map2" -"(lambda(p_3)" +"(lambda(p_0)" "(split-relative-string" -" p_3" +" p_0" " #t))" -"(cddr s_501))))" -" cols_2)" -"(if(null? cols_2)" -"(list file_5)" -" cols_2))))" +"(cddr s_152))))" +" cols_188)" +"(if(null? cols_188)" +"(list file_189)" +" cols_188))))" "(find-col-file" -" show-collection-err_0" -"(car cols_3)" -"(cdr cols_3)" -" f-file_1" +" show-collection-err_149" +"(car cols_192)" +"(cdr cols_192)" +" f-file_191" " #t))))))))" -"(if(eq?(car s_501) 'file)" +"(if(eq?(car s_152) 'file)" "(let-values()" -"(path-ss->rkt_0" +"(path-ss->rkt_151" "(simplify-path" "(path->complete-path" -"(expand-user-path(cadr s_501))" -"(get-dir_0)))))" +"(expand-user-path(cadr s_152))" +"(get-dir_147)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_377)(path? s-parsed_0)))" -"(if or-part_377 or-part_377(vector? s-parsed_0)))" +"(if(let-values(((or-part_194)(path? s-parsed_177)))" +"(if or-part_194 or-part_194(vector? s-parsed_177)))" "(void)" "(let-values()" -"(if stx_20" +"(if stx_0" "(raise-syntax-error$1" " 'require" "(format" " \"bad module path~a\"" -" (if s-parsed_0 (car s-parsed_0) \"\"))" -" stx_20)" +" (if s-parsed_177 (car s-parsed_177) \"\"))" +" stx_0)" "(raise-argument-error" " 'standard-module-name-resolver" " \"module-path?\"" -" s_501))))" -"(let-values(((filename_2)" -"(if(vector? s-parsed_0)" -"(vector-ref s-parsed_0 0)" -"(simplify-path(cleanse-path s-parsed_0) #f))))" -"(let-values(((normal-filename_0)" -"(if(vector? s-parsed_0)" -"(vector-ref s-parsed_0 1)" -"(normal-case-path filename_2))))" -"(let-values(((base_30 name_78 dir?_9)" -"(if(vector? s-parsed_0)" +" s_152))))" +"(let-values(((filename_195)" +"(if(vector? s-parsed_177)" +"(vector-ref s-parsed_177 0)" +"(simplify-path(cleanse-path s-parsed_177) #f))))" +"(let-values(((normal-filename_196)" +"(if(vector? s-parsed_177)" +"(vector-ref s-parsed_177 1)" +"(normal-case-path filename_195))))" +"(let-values(((base_197 name_198 dir?_199)" +"(if(vector? s-parsed_177)" "(values" " 'ignored" -"(vector-ref s-parsed_0 2)" +"(vector-ref s-parsed_177 2)" " 'ignored)" -"(split-path filename_2))))" -"(let-values(((no-sfx_0)" -"(if(vector? s-parsed_0)" -"(vector-ref s-parsed_0 3)" -" (path-replace-extension name_78 #\"\"))))" -"(let-values(((root-modname_0)" -"(if(vector? s-parsed_0)" -"(vector-ref s-parsed_0 4)" -"(1/make-resolved-module-path filename_2))))" -"(let-values(((hts_3)" -"(let-values(((or-part_378)" +"(split-path filename_195))))" +"(let-values(((no-sfx_200)" +"(if(vector? s-parsed_177)" +"(vector-ref s-parsed_177 3)" +" (path-replace-extension name_198 #\"\"))))" +"(let-values(((root-modname_201)" +"(if(vector? s-parsed_177)" +"(vector-ref s-parsed_177 4)" +"(1/make-resolved-module-path" +" filename_195))))" +"(let-values(((hts_202)" +"(let-values(((or-part_203)" "(registry-table-ref" -"(get-reg_0))))" -"(if or-part_378" -" or-part_378" -"(let-values(((hts_4)" +"(get-reg_148))))" +"(if or-part_203" +" or-part_203" +"(let-values(((hts_204)" "(cons" "(make-hasheq)" "(make-hasheq))))" "(begin" "(registry-table-set!" -"(get-reg_0)" -" hts_4)" -" hts_4))))))" -"(let-values(((modname_0)" -"(if subm-path_0" +"(get-reg_148)" +" hts_204)" +" hts_204))))))" +"(let-values(((modname_205)" +"(if subm-path_153" "(1/make-resolved-module-path" "(cons" "(1/resolved-module-path-name" -" root-modname_0)" -" subm-path_0))" -" root-modname_0)))" +" root-modname_201)" +" subm-path_153))" +" root-modname_201)))" "(begin" -"(if load?_7" +"(if load?_0" "(let-values()" -"(let-values(((got_0)" +"(let-values(((got_206)" "(hash-ref" -"(car hts_3)" -" modname_0" +"(car hts_202)" +" modname_205" " #f)))" -"(if got_0" +"(if got_206" "(void)" "(let-values()" -"(let-values(((loading_0)" -"(let-values(((tag_2)" +"(let-values(((loading_207)" +"(let-values(((tag_209)" "(if(continuation-prompt-available?" " -loading-prompt-tag)" " -loading-prompt-tag" @@ -60625,55 +60913,57 @@ static const char *startup_source = " #f" " -loading-filename" " null" -" tag_2)))" -"((nsr_0)(get-reg_0)))" +" tag_209)))" +"((nsr_208)(get-reg_148)))" "(begin" "(for-each2" -"(lambda(s_60)" +"(lambda(s_1)" "(if(if(equal?" -"(cdr s_60)" -" normal-filename_0)" -"(eq?(car s_60) nsr_0)" +"(cdr s_1)" +" normal-filename_196)" +"(eq?(car s_1) nsr_208)" " #f)" "(let-values()" "(error" " 'standard-module-name-resolver" " \"cycle in loading\\n at path: ~a\\n paths:~a\"" -" filename_2" +" filename_195" "(apply" " string-append" -"((letrec-values(((loop_9)" -"(lambda(l_86)" +"((letrec-values(((loop_211)" +"(lambda(l_0)" "(begin" " 'loop" "(if(null?" -" l_86)" +" l_0)" " '()" "(list*" " \"\\n \"" "(path->string" "(cdar" -" l_86))" -"(loop_9" +" l_0))" +"(loop_211" "(cdr" -" l_86))))))))" -" loop_9)" -"(reverse$1 loading_0)))))" +" l_0))))))))" +" loop_211)" +"(reverse$1 loading_207)))))" "(void)))" -" loading_0)" +" loading_207)" "((if(continuation-prompt-available?" " -loading-prompt-tag)" -"(lambda(f_43)(f_43))" -"(lambda(f_44)" +"(lambda(f_0)(f_0))" +"(lambda(f_0)" "(call-with-continuation-prompt" -" f_44" +" f_0" " -loading-prompt-tag)))" "(lambda()" "(with-continuation-mark" " -loading-filename" "(cons" -"(cons nsr_0 normal-filename_0)" -" loading_0)" +"(cons" +" nsr_208" +" normal-filename_196)" +" loading_207)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -60681,106 +60971,107 @@ static const char *startup_source = " #f" " parameterization-key)" " 1/current-module-declare-name" -" root-modname_0" +" root-modname_201" " 1/current-module-path-for-load" -"((if stx_20" -"(lambda(p_77)" +"((if stx_0" +"(lambda(p_0)" "(1/datum->syntax" " #f" -" p_77" -" stx_20))" +" p_0" +" stx_0))" " values)" -"(if(symbol? s_501)" -"(let-values() s_501)" -"(if(if(pair? s_501)" -"(eq?(car s_501) 'lib)" +"(if(symbol? s_152)" +"(let-values() s_152)" +"(if(if(pair? s_152)" +"(eq?(car s_152) 'lib)" " #f)" -"(let-values() s_501)" +"(let-values() s_152)" "(let-values()" "(if(1/resolved-module-path?" -" root-modname_0)" -"(let-values(((src_9)" +" root-modname_201)" +"(let-values(((src_216)" "(1/resolved-module-path-name" -" root-modname_0)))" -"(if(symbol? src_9)" +" root-modname_201)))" +"(if(symbol?" +" src_216)" "(list" " 'quote" -" src_9)" -" src_9))" -" root-modname_0))))))" +" src_216)" +" src_216))" +" root-modname_201))))))" "(let-values()" "((1/current-load/use-compiled)" -" filename_2" -"(let-values(((sym_77)" +" filename_195" +"(let-values(((sym_217)" "(string->symbol" "(path->string" -" no-sfx_0))))" -"(if subm-path_0" +" no-sfx_200))))" +"(if subm-path_153" "(if(hash-ref" -"(car hts_3)" -" root-modname_0" +"(car hts_202)" +" root-modname_201" " #f)" -"(cons #f subm-path_0)" +"(cons #f subm-path_153)" "(cons" -" sym_77" -" subm-path_0))" -" sym_77))))))))))))))" +" sym_217" +" subm-path_153))" +" sym_217))))))))))))))" "(void))" -"(if(if(not(vector? s-parsed_0))" -"(if load?_7" -"(let-values(((or-part_379)" -"(string? s_501)))" -"(if or-part_379" -" or-part_379" -"(let-values(((or-part_380)" -"(symbol? s_501)))" -"(if or-part_380" -" or-part_380" -"(if(pair? s_501)" -"(eq?(car s_501) 'lib)" +"(if(if(not(vector? s-parsed_177))" +"(if load?_0" +"(let-values(((or-part_218)" +"(string? s_152)))" +"(if or-part_218" +" or-part_218" +"(let-values(((or-part_219)" +"(symbol? s_152)))" +"(if or-part_219" +" or-part_219" +"(if(pair? s_152)" +"(eq?(car s_152) 'lib)" " #f)))))" " #f)" " #f)" "(let-values()" "(path-cache-set!" -"(if(string? s_501)" -"(cons s_501(get-dir_0))" -"(cons s_501(get-reg_0)))" +"(if(string? s_152)" +"(cons s_152(get-dir_147))" +"(cons s_152(get-reg_148)))" "(vector" -" filename_2" -" normal-filename_0" -" name_78" -" no-sfx_0" -" root-modname_0)))" +" filename_195" +" normal-filename_196" +" name_198" +" no-sfx_200" +" root-modname_201)))" "(void))" -" modname_0)))))))))))))))))))))))))" -" standard-module-name-resolver_0)))))" +" modname_205)))))))))))))))))))))))))" +" standard-module-name-resolver_117)))))" "(define-values" "(default-eval-handler)" -"(lambda(s_36)" +"(lambda(s_0)" "(begin" "(1/eval" -" s_36" +" s_0" "(1/current-namespace)" -"(let-values(((c_112)(1/current-compile)))" -"(lambda(e_87 ns_17)" -"(if(eq? ns_17(1/current-namespace))" -"(c_112 e_87 #t)" +"(let-values(((c_221)(1/current-compile)))" +"(lambda(e_0 ns_0)" +"(if(eq? ns_0(1/current-namespace))" +"(c_221 e_0 #t)" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_17)" -"(let-values()(c_112 e_87 #t))))))))))" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_0)" +"(let-values()(c_221 e_0 #t))))))))))" "(define-values" "(default-compile-handler)" -"(lambda(s_502 immediate-eval?_0)(begin(1/compile s_502(1/current-namespace)(not immediate-eval?_0)))))" +"(lambda(s_0 immediate-eval?_0)(begin(1/compile s_0(1/current-namespace)(not immediate-eval?_0)))))" "(define-values" "(default-read-interaction)" -"(lambda(src_10 in_89)" +"(lambda(src_0 in_0)" "(begin" "(begin" -"(if(input-port? in_89)" +"(if(input-port? in_0)" "(void)" -" (let-values () (raise-argument-error 'default-read-interaction \"input-port?\" in_89)))" +" (let-values () (raise-argument-error 'default-read-interaction \"input-port?\" in_0)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -60789,7 +61080,7 @@ static const char *startup_source = " #t" " 1/read-accept-lang" " #f)" -"(let-values()(1/read-syntax src_10 in_89)))))))" +"(let-values()(1/read-syntax src_0 in_0)))))))" "(define-values" "(boot)" "(lambda()" @@ -60812,772 +61103,776 @@ static const char *startup_source = "(hash 'boot boot 'seal seal 'get-original-parameterization get-original-parameterization))" "(define-values" "(prepare-next-phase-namespace)" -"(lambda(ctx_76)" +"(lambda(ctx_0)" "(begin" -"(let-values(((phase_45)(add1(expand-context-phase ctx_76))))" -"(let-values(((ns_59)(namespace->namespace-at-phase(expand-context-namespace ctx_76) phase_45)))" -"(namespace-visit-available-modules! ns_59 phase_45))))))" +"(let-values(((phase_2)(add1(expand-context-phase ctx_0))))" +"(let-values(((ns_3)(namespace->namespace-at-phase(expand-context-namespace ctx_0) phase_2)))" +"(namespace-visit-available-modules! ns_3 phase_2))))))" "(define-values" "(expand-body7.1)" "(lambda(source1_0 stratified?2_0 bodys5_0 ctx6_0)" "(begin" " 'expand-body7" -"(let-values(((bodys_7) bodys5_0))" -"(let-values(((ctx_77) ctx6_0))" -"(let-values(((s_503) source1_0))" -"(let-values(((stratified?_0) stratified?2_0))" +"(let-values(((bodys_26) bodys5_0))" +"(let-values(((ctx_27) ctx6_0))" +"(let-values(((s_28) source1_0))" +"(let-values(((stratified?_29) stratified?2_0))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_66)(expand-context-observer ctx_77)))" -"(if obs_66" +"(let-values(((obs_38)(expand-context-observer ctx_27)))" +"(if obs_38" "(let-values()" "(let-values()" -"(call-expand-observe obs_66 'enter-block(datum->syntax$1 #f bodys_7))))" +"(call-expand-observe obs_38 'enter-block(datum->syntax$1 #f bodys_26))))" "(void)))" "(values))))" -"(let-values(((inside-sc_0)(new-scope 'intdef)))" -"(let-values(((init-bodys_0)" +"(let-values(((inside-sc_30)(new-scope 'intdef)))" +"(let-values(((init-bodys_31)" "(reverse$1" -"(let-values(((lst_22) bodys_7))" +"(let-values(((lst_39) bodys_26))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_22)))" -"((letrec-values(((for-loop_20)" -"(lambda(fold-var_9 lst_23)" +"(let-values()(check-list lst_39)))" +"((letrec-values(((for-loop_40)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_23)" -"(let-values(((body_9)(unsafe-car lst_23))" -"((rest_8)(unsafe-cdr lst_23)))" -"(let-values(((fold-var_10)" -"(let-values(((fold-var_11) fold-var_9))" -"(let-values(((fold-var_12)" +"(if(pair? lst_0)" +"(let-values(((body_43)(unsafe-car lst_0))" +"((rest_44)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_45)" +"(let-values(((fold-var_46) fold-var_0))" +"(let-values(((fold-var_47)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" body_9" -" inside-sc_0))" -" fold-var_11))))" -"(values fold-var_12)))))" +" body_43" +" inside-sc_30))" +" fold-var_46))))" +"(values fold-var_47)))))" "(if(not #f)" -"(for-loop_20 fold-var_10 rest_8)" -" fold-var_10)))" -" fold-var_9)))))" -" for-loop_20)" +"(for-loop_40 fold-var_45 rest_44)" +" fold-var_45)))" +" fold-var_0)))))" +" for-loop_40)" " null" -" lst_22))))))" +" lst_39))))))" "(let-values((()" "(begin" -"(let-values(((obs_67)(expand-context-observer ctx_77)))" -"(if obs_67" +"(let-values(((obs_48)(expand-context-observer ctx_27)))" +"(if obs_48" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_67" +" obs_48" " 'block-renames" -"(datum->syntax$1 #f init-bodys_0)" -"(datum->syntax$1 #f bodys_7))))" +"(datum->syntax$1 #f init-bodys_31)" +"(datum->syntax$1 #f bodys_26))))" "(void)))" "(values))))" -"(let-values(((phase_137)(expand-context-phase ctx_77)))" -"(let-values(((frame-id_7)(make-reference-record)))" -"(let-values(((def-ctx-scopes_6)(box null)))" -"(let-values(((body-ctx_0)" -"(let-values(((v_250) ctx_77))" -"(let-values(((the-struct_90) v_250))" -"(if(expand-context/outer? the-struct_90)" -"(let-values(((context51_0)(list(make-liberal-define-context)))" -"((name52_0) #f)" -"((only-immediate?53_0) #t)" -"((def-ctx-scopes54_0) def-ctx-scopes_6)" -"((post-expansion55_0)" -"(lambda(s_168)" +"(let-values(((phase_32)(expand-context-phase ctx_27)))" +"(let-values(((frame-id_33)(make-reference-record)))" +"(let-values(((def-ctx-scopes_34)(box null)))" +"(let-values(((body-ctx_35)" +"(let-values(((v_49) ctx_27))" +"(let-values(((the-struct_50) v_49))" +"(if(expand-context/outer? the-struct_50)" +"(let-values(((context51_51)(list(make-liberal-define-context)))" +"((name52_52) #f)" +"((only-immediate?53_53) #t)" +"((def-ctx-scopes54_54) def-ctx-scopes_34)" +"((post-expansion55_55)" +"(lambda(s_0)" "(begin" " 'post-expansion55" -"(add-scope s_168 inside-sc_0))))" -"((scopes56_0)" -"(cons inside-sc_0(expand-context-scopes ctx_77)))" -"((use-site-scopes57_0)(box null))" -"((frame-id58_0) frame-id_7)" -"((reference-records59_0)" +"(add-scope s_0 inside-sc_30))))" +"((scopes56_56)" +"(cons inside-sc_30(expand-context-scopes ctx_27)))" +"((use-site-scopes57_57)(box null))" +"((frame-id58_58) frame-id_33)" +"((reference-records59_59)" "(cons" -" frame-id_7" -"(expand-context-reference-records ctx_77)))" -"((inner60_0)(root-expand-context/outer-inner v_250)))" +" frame-id_33" +"(expand-context-reference-records ctx_27)))" +"((inner60_60)(root-expand-context/outer-inner v_49)))" "(expand-context/outer1.1" -" inner60_0" -" post-expansion55_0" -" use-site-scopes57_0" -" frame-id58_0" -" context51_0" -"(expand-context/outer-env the-struct_90)" -" scopes56_0" -" def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_90)" -" reference-records59_0" -" only-immediate?53_0" -"(expand-context/outer-need-eventually-defined the-struct_90)" -"(expand-context/outer-current-introduction-scopes the-struct_90)" -"(expand-context/outer-current-use-scopes the-struct_90)" -" name52_0))" +" inner60_60" +" post-expansion55_55" +" use-site-scopes57_57" +" frame-id58_58" +" context51_51" +"(expand-context/outer-env the-struct_50)" +" scopes56_56" +" def-ctx-scopes54_54" +"(expand-context/outer-binding-layer the-struct_50)" +" reference-records59_59" +" only-immediate?53_53" +"(expand-context/outer-need-eventually-defined the-struct_50)" +"(expand-context/outer-current-introduction-scopes the-struct_50)" +"(expand-context/outer-current-use-scopes the-struct_50)" +" name52_52))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_90))))))" -"(let-values(((maybe-increment-binding-layer_0)" -"(lambda(ids_29 body-ctx_1)" +" the-struct_50))))))" +"(let-values(((maybe-increment-binding-layer_36)" +"(lambda(ids_0 body-ctx_0)" "(begin" " 'maybe-increment-binding-layer" "(if(eq?" -"(expand-context-binding-layer body-ctx_1)" -"(expand-context-binding-layer ctx_77))" -"(increment-binding-layer ids_29 body-ctx_1 inside-sc_0)" -"(expand-context-binding-layer body-ctx_1))))))" -"(let-values(((name_79)(expand-context-name ctx_77)))" -"((letrec-values(((loop_118)" -"(lambda(body-ctx_2" -" bodys_8" +"(expand-context-binding-layer body-ctx_0)" +"(expand-context-binding-layer ctx_27))" +"(increment-binding-layer ids_0 body-ctx_0 inside-sc_30)" +"(expand-context-binding-layer body-ctx_0))))))" +"(let-values(((name_37)(expand-context-name ctx_27)))" +"((letrec-values(((loop_64)" +"(lambda(body-ctx_0" +" bodys_0" " done-bodys_0" " val-idss_0" " val-keyss_0" " val-rhss_0" " track-stxs_0" -" trans-idss_1" +" trans-idss_0" " stx-clauses_0" " dups_0)" "(begin" " 'loop" -"(if(null? bodys_8)" +"(if(null? bodys_0)" "(let-values()" -"(let-values(((body-ctx61_0) body-ctx_2)" -"((frame-id62_0) frame-id_7)" -"((def-ctx-scopes63_0) def-ctx-scopes_6)" -"((temp64_5)(reverse$1 val-idss_0))" -"((temp65_5)(reverse$1 val-keyss_0))" -"((temp66_5)(reverse$1 val-rhss_0))" -"((temp67_5)(reverse$1 track-stxs_0))" -"((temp68_6)(reverse$1 stx-clauses_0))" -"((temp69_5)(reverse$1 done-bodys_0))" -"((s70_0) s_503)" -"((stratified?71_0) stratified?_0)" -"((name72_0) name_79)" -"((temp73_4)(reverse$1 trans-idss_1)))" +"(let-values(((body-ctx61_76) body-ctx_0)" +"((frame-id62_77) frame-id_33)" +"((def-ctx-scopes63_78) def-ctx-scopes_34)" +"((temp64_79)(reverse$1 val-idss_0))" +"((temp65_80)(reverse$1 val-keyss_0))" +"((temp66_81)(reverse$1 val-rhss_0))" +"((temp67_82)(reverse$1 track-stxs_0))" +"((temp68_83)(reverse$1 stx-clauses_0))" +"((temp69_84)(reverse$1 done-bodys_0))" +"((s70_85) s_28)" +"((stratified?71_86) stratified?_29)" +"((name72_87) name_37)" +"((temp73_88)(reverse$1 trans-idss_0)))" "(finish-expanding-body27.1" -" temp73_4" -" name72_0" -" s70_0" -" stratified?71_0" -" body-ctx61_0" -" frame-id62_0" -" def-ctx-scopes63_0" -" temp64_5" -" temp65_5" -" temp66_5" -" temp67_5" -" temp68_6" -" temp69_5)))" +" temp73_88" +" name72_87" +" s70_85" +" stratified?71_86" +" body-ctx61_76" +" frame-id62_77" +" def-ctx-scopes63_78" +" temp64_79" +" temp65_80" +" temp66_81" +" temp67_82" +" temp68_83" +" temp69_84)))" "(let-values()" -"(let-values(((rest-bodys_0)(cdr bodys_8)))" +"(let-values(((rest-bodys_89)(cdr bodys_0)))" "(let-values((()" "(begin" -"(let-values(((obs_68)" +"(let-values(((obs_92)" "(expand-context-observer" -" body-ctx_2)))" -"(if obs_68" +" body-ctx_0)))" +"(if obs_92" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_68" +" obs_92" " 'next)))" "(void)))" "(values))))" -"(let-values(((exp-body_0)" -"(let-values(((temp74_3)(car bodys_8))" -"((temp75_5)" -"(if(if name_79" +"(let-values(((exp-body_90)" +"(let-values(((temp74_93)(car bodys_0))" +"((temp75_94)" +"(if(if name_37" "(null?" -"(cdr bodys_8))" +"(cdr bodys_0))" " #f)" -"(let-values(((v_251)" -" body-ctx_2))" -"(let-values(((the-struct_91)" -" v_251))" +"(let-values(((v_95)" +" body-ctx_0))" +"(let-values(((the-struct_96)" +" v_95))" "(if(expand-context/outer?" -" the-struct_91)" -"(let-values(((name76_0)" -" name_79)" -"((inner77_0)" +" the-struct_96)" +"(let-values(((name76_97)" +" name_37)" +"((inner77_98)" "(root-expand-context/outer-inner" -" v_251)))" +" v_95)))" "(expand-context/outer1.1" -" inner77_0" +" inner77_98" "(root-expand-context/outer-post-expansion" -" the-struct_91)" +" the-struct_96)" "(root-expand-context/outer-use-site-scopes" -" the-struct_91)" +" the-struct_96)" "(root-expand-context/outer-frame-id" -" the-struct_91)" +" the-struct_96)" "(expand-context/outer-context" -" the-struct_91)" +" the-struct_96)" "(expand-context/outer-env" -" the-struct_91)" +" the-struct_96)" "(expand-context/outer-scopes" -" the-struct_91)" +" the-struct_96)" "(expand-context/outer-def-ctx-scopes" -" the-struct_91)" +" the-struct_96)" "(expand-context/outer-binding-layer" -" the-struct_91)" +" the-struct_96)" "(expand-context/outer-reference-records" -" the-struct_91)" +" the-struct_96)" "(expand-context/outer-only-immediate?" -" the-struct_91)" +" the-struct_96)" "(expand-context/outer-need-eventually-defined" -" the-struct_91)" +" the-struct_96)" "(expand-context/outer-current-introduction-scopes" -" the-struct_91)" +" the-struct_96)" "(expand-context/outer-current-use-scopes" -" the-struct_91)" -" name76_0))" +" the-struct_96)" +" name76_97))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))" -" body-ctx_2)))" +" the-struct_96))))" +" body-ctx_0)))" "(expand9.1" " #f" " #f" " #f" -" temp74_3" -" temp75_5))))" -"(let-values(((disarmed-exp-body_0)" -"(syntax-disarm$1 exp-body_0)))" -"(let-values(((tmp_62)" +" temp74_93" +" temp75_94))))" +"(let-values(((disarmed-exp-body_91)" +"(syntax-disarm$1 exp-body_90)))" +"(let-values(((tmp_99)" "(core-form-sym" -" disarmed-exp-body_0" -" phase_137)))" -"(if(equal? tmp_62 'begin)" +" disarmed-exp-body_91" +" phase_32)))" +"(if(equal? tmp_99 'begin)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_69)" +"(let-values(((obs_118)" "(expand-context-observer" -" body-ctx_2)))" -"(if obs_69" +" body-ctx_0)))" +"(if obs_118" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_69" +" obs_118" " 'prim-begin)))" "(void)))" "(values))))" -"(let-values(((ok?_34 begin78_0 e79_0)" -"(let-values(((s_504)" -" disarmed-exp-body_0))" -"(let-values(((orig-s_38)" -" s_504))" -"(let-values(((begin78_1" -" e79_1)" -"(let-values(((s_505)" +"(let-values(((ok?_100" +" begin78_101" +" e79_102)" +"(let-values(((s_119)" +" disarmed-exp-body_91))" +"(let-values(((orig-s_120)" +" s_119))" +"(let-values(((begin78_121" +" e79_122)" +"(let-values(((s_123)" "(if(syntax?$1" -" s_504)" +" s_119)" "(syntax-e$1" -" s_504)" -" s_504)))" +" s_119)" +" s_119)))" "(if(pair?" -" s_505)" -"(let-values(((begin80_0)" -"(let-values(((s_176)" +" s_123)" +"(let-values(((begin80_124)" +"(let-values(((s_126)" "(car" -" s_505)))" -" s_176))" -"((e81_0)" -"(let-values(((s_452)" +" s_123)))" +" s_126))" +"((e81_125)" +"(let-values(((s_127)" "(cdr" -" s_505)))" -"(let-values(((s_46)" +" s_123)))" +"(let-values(((s_128)" "(if(syntax?$1" -" s_452)" +" s_127)" "(syntax-e$1" -" s_452)" -" s_452)))" -"(let-values(((flat-s_25)" +" s_127)" +" s_127)))" +"(let-values(((flat-s_129)" "(to-syntax-list.1" -" s_46)))" +" s_128)))" "(if(not" -" flat-s_25)" +" flat-s_129)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_38))" +" orig-s_120))" "(let-values()" -" flat-s_25)))))))" +" flat-s_129)))))))" "(values" -" begin80_0" -" e81_0))" +" begin80_124" +" e81_125))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_38)))))" +" orig-s_120)))))" "(values" " #t" -" begin78_1" -" e79_1))))))" -"(let-values(((track_0)" -"(lambda(e_88)" +" begin78_121" +" e79_122))))))" +"(let-values(((track_116)" +"(lambda(e_0)" "(begin" " 'track" "(syntax-track-origin$1" -" e_88" -" exp-body_0)))))" -"(let-values(((splice-bodys_0)" +" e_0" +" exp-body_90)))))" +"(let-values(((splice-bodys_117)" "(append" -"(map2 track_0 e79_0)" -" rest-bodys_0)))" +"(map2" +" track_116" +" e79_102)" +" rest-bodys_89)))" "(begin" -"(let-values(((obs_35)" +"(let-values(((obs_131)" "(expand-context-observer" -" body-ctx_2)))" -"(if obs_35" +" body-ctx_0)))" +"(if obs_131" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_35" +" obs_131" " 'splice" -" splice-bodys_0)))" +" splice-bodys_117)))" "(void)))" -"(loop_118" -" body-ctx_2" -" splice-bodys_0" +"(loop_64" +" body-ctx_0" +" splice-bodys_117" " done-bodys_0" " val-idss_0" " val-keyss_0" " val-rhss_0" " track-stxs_0" -" trans-idss_1" +" trans-idss_0" " stx-clauses_0" " dups_0)))))))" -"(if(equal? tmp_62 'define-values)" +"(if(equal? tmp_99 'define-values)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_70)" +"(let-values(((obs_157)" "(expand-context-observer" -" body-ctx_2)))" -"(if obs_70" +" body-ctx_0)))" +"(if obs_157" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_70" +" obs_157" " 'prim-define-values)))" "(void)))" "(values))))" -"(let-values(((ok?_35" -" define-values82_0" -" id83_0" -" rhs84_0)" -"(let-values(((s_32)" -" disarmed-exp-body_0))" -"(let-values(((orig-s_39)" -" s_32))" -"(let-values(((define-values82_1" -" id83_1" -" rhs84_1)" -"(let-values(((s_51)" +"(let-values(((ok?_132" +" define-values82_133" +" id83_134" +" rhs84_135)" +"(let-values(((s_158)" +" disarmed-exp-body_91))" +"(let-values(((orig-s_159)" +" s_158))" +"(let-values(((define-values82_160" +" id83_161" +" rhs84_162)" +"(let-values(((s_163)" "(if(syntax?$1" -" s_32)" +" s_158)" "(syntax-e$1" -" s_32)" -" s_32)))" +" s_158)" +" s_158)))" "(if(pair?" -" s_51)" -"(let-values(((define-values85_0)" -"(let-values(((s_453)" +" s_163)" +"(let-values(((define-values85_164)" +"(let-values(((s_167)" "(car" -" s_51)))" -" s_453))" -"((id86_0" -" rhs87_0)" -"(let-values(((s_506)" +" s_163)))" +" s_167))" +"((id86_165" +" rhs87_166)" +"(let-values(((s_168)" "(cdr" -" s_51)))" -"(let-values(((s_507)" +" s_163)))" +"(let-values(((s_169)" "(if(syntax?$1" -" s_506)" +" s_168)" "(syntax-e$1" -" s_506)" -" s_506)))" +" s_168)" +" s_168)))" "(if(pair?" -" s_507)" -"(let-values(((id88_0)" -"(let-values(((s_508)" +" s_169)" +"(let-values(((id88_170)" +"(let-values(((s_172)" "(car" -" s_507)))" -"(let-values(((s_53)" +" s_169)))" +"(let-values(((s_173)" "(if(syntax?$1" -" s_508)" +" s_172)" "(syntax-e$1" -" s_508)" -" s_508)))" -"(let-values(((flat-s_26)" +" s_172)" +" s_172)))" +"(let-values(((flat-s_174)" "(to-syntax-list.1" -" s_53)))" +" s_173)))" "(if(not" -" flat-s_26)" +" flat-s_174)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39))" +" orig-s_159))" "(let-values()" -"(let-values(((id_63)" -"(let-values(((lst_194)" -" flat-s_26))" +"(let-values(((id_175)" +"(let-values(((lst_176)" +" flat-s_174))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_194)))" -"((letrec-values(((for-loop_205)" -"(lambda(id_81" -" lst_13)" +" lst_176)))" +"((letrec-values(((for-loop_177)" +"(lambda(id_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_13)" -"(let-values(((s_314)" +" lst_0)" +"(let-values(((s_180)" "(unsafe-car" -" lst_13))" -"((rest_105)" +" lst_0))" +"((rest_181)" "(unsafe-cdr" -" lst_13)))" -"(let-values(((id_104)" -"(let-values(((id_105)" -" id_81))" -"(let-values(((id_82)" +" lst_0)))" +"(let-values(((id_182)" +"(let-values(((id_183)" +" id_0))" +"(let-values(((id_184)" "(let-values()" -"(let-values(((id91_0)" +"(let-values(((id91_185)" "(let-values()" -"(if(let-values(((or-part_213)" +"(if(let-values(((or-part_186)" "(if(syntax?$1" -" s_314)" +" s_180)" "(symbol?" "(syntax-e$1" -" s_314))" +" s_180))" " #f)))" -"(if or-part_213" -" or-part_213" +"(if or-part_186" +" or-part_186" "(symbol?" -" s_314)))" -" s_314" +" s_180)))" +" s_180" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_39" -" s_314)))))" +" orig-s_159" +" s_180)))))" "(cons" -" id91_0" -" id_105)))))" +" id91_185" +" id_183)))))" "(values" -" id_82)))))" +" id_184)))))" "(if(not" " #f)" -"(for-loop_205" -" id_104" -" rest_105)" -" id_104)))" -" id_81)))))" -" for-loop_205)" +"(for-loop_177" +" id_182" +" rest_181)" +" id_182)))" +" id_0)))))" +" for-loop_177)" " null" -" lst_194)))))" +" lst_176)))))" "(reverse$1" -" id_63))))))))" -"((rhs89_0)" -"(let-values(((s_33)" +" id_175))))))))" +"((rhs89_171)" +"(let-values(((s_187)" "(cdr" -" s_507)))" -"(let-values(((s_509)" +" s_169)))" +"(let-values(((s_188)" "(if(syntax?$1" -" s_33)" +" s_187)" "(syntax-e$1" -" s_33)" -" s_33)))" +" s_187)" +" s_187)))" "(if(pair?" -" s_509)" -"(let-values(((rhs90_0)" -"(let-values(((s_96)" +" s_188)" +"(let-values(((rhs90_189)" +"(let-values(((s_190)" "(car" -" s_509)))" -" s_96))" +" s_188)))" +" s_190))" "(()" -"(let-values(((s_57)" +"(let-values(((s_191)" "(cdr" -" s_509)))" -"(let-values(((s_510)" +" s_188)))" +"(let-values(((s_192)" "(if(syntax?$1" -" s_57)" +" s_191)" "(syntax-e$1" -" s_57)" -" s_57)))" +" s_191)" +" s_191)))" "(if(null?" -" s_510)" +" s_192)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39))))))" +" orig-s_159))))))" "(values" -" rhs90_0))" +" rhs90_189))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39))))))" +" orig-s_159))))))" "(values" -" id88_0" -" rhs89_0))" +" id88_170" +" rhs89_171))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39))))))" +" orig-s_159))))))" "(values" -" define-values85_0" -" id86_0" -" rhs87_0))" +" define-values85_164" +" id86_165" +" rhs87_166))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39)))))" +" orig-s_159)))))" "(values" " #t" -" define-values82_1" -" id83_1" -" rhs84_1))))))" -"(let-values(((ids_30)" +" define-values82_160" +" id83_161" +" rhs84_162))))))" +"(let-values(((ids_152)" "(remove-use-site-scopes" -" id83_0" -" body-ctx_2)))" +" id83_134" +" body-ctx_0)))" "(let-values((()" "(begin" -"(let-values(((obs_71)" +"(let-values(((obs_193)" "(expand-context-observer" -" body-ctx_2)))" -"(if obs_71" +" body-ctx_0)))" +"(if obs_193" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_71" +" obs_193" " 'rename-one" "(datum->syntax$1" " #f" "(list" -" ids_30" -" rhs84_0)))))" +" ids_152" +" rhs84_135)))))" "(void)))" "(values))))" -"(let-values(((new-dups_0)" -"(let-values(((ids92_0)" -" ids_30)" -"((phase93_0)" -" phase_137)" -"((exp-body94_0)" -" exp-body_0)" -"((dups95_0)" +"(let-values(((new-dups_153)" +"(let-values(((ids92_194)" +" ids_152)" +"((phase93_195)" +" phase_32)" +"((exp-body94_196)" +" exp-body_90)" +"((dups95_197)" " dups_0))" "(check-no-duplicate-ids7.1" " unsafe-undefined" -" ids92_0" -" phase93_0" -" exp-body94_0" -" dups95_0))))" -"(let-values(((counter_5)" +" ids92_194" +" phase93_195" +" exp-body94_196" +" dups95_197))))" +"(let-values(((counter_154)" "(root-expand-context-counter" -" ctx_77)))" -"(let-values(((keys_5)" +" ctx_27)))" +"(let-values(((keys_155)" "(reverse$1" -"(let-values(((lst_292)" -" ids_30))" +"(let-values(((lst_198)" +" ids_152))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_292)))" -"((letrec-values(((for-loop_282)" -"(lambda(fold-var_189" -" lst_310)" +" lst_198)))" +"((letrec-values(((for-loop_199)" +"(lambda(fold-var_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_310)" -"(let-values(((id_106)" +" lst_0)" +"(let-values(((id_202)" "(unsafe-car" -" lst_310))" -"((rest_179)" +" lst_0))" +"((rest_203)" "(unsafe-cdr" -" lst_310)))" -"(let-values(((fold-var_286)" -"(let-values(((fold-var_287)" -" fold-var_189))" -"(let-values(((fold-var_288)" +" lst_0)))" +"(let-values(((fold-var_204)" +"(let-values(((fold-var_205)" +" fold-var_0))" +"(let-values(((fold-var_206)" "(let-values()" "(cons" "(let-values()" -"(let-values(((id96_0)" -" id_106)" -"((phase97_0)" -" phase_137)" -"((counter98_0)" -" counter_5)" -"((frame-id99_0)" -" frame-id_7)" -"((exp-body100_0)" -" exp-body_0))" +"(let-values(((id96_208)" +" id_202)" +"((phase97_209)" +" phase_32)" +"((counter98_210)" +" counter_154)" +"((frame-id99_211)" +" frame-id_33)" +"((exp-body100_212)" +" exp-body_90))" "(add-local-binding!37.1" -" frame-id99_0" -" exp-body100_0" -" id96_0" -" phase97_0" -" counter98_0)))" -" fold-var_287))))" +" frame-id99_211" +" exp-body100_212" +" id96_208" +" phase97_209" +" counter98_210)))" +" fold-var_205))))" "(values" -" fold-var_288)))))" +" fold-var_206)))))" "(if(not" " #f)" -"(for-loop_282" -" fold-var_286" -" rest_179)" -" fold-var_286)))" -" fold-var_189)))))" -" for-loop_282)" +"(for-loop_199" +" fold-var_204" +" rest_203)" +" fold-var_204)))" +" fold-var_0)))))" +" for-loop_199)" " null" -" lst_292))))))" -"(let-values(((extended-env_0)" -"(let-values(((lst_228)" -" keys_5)" -"((lst_307)" -" ids_30))" +" lst_198))))))" +"(let-values(((extended-env_156)" +"(let-values(((lst_213)" +" keys_155)" +"((lst_214)" +" ids_152))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_228)))" +" lst_213)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_307)))" -"((letrec-values(((for-loop_277)" -"(lambda(env_17" -" lst_311" -" lst_312)" +" lst_214)))" +"((letrec-values(((for-loop_215)" +"(lambda(env_0" +" lst_0" +" lst_1)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_311)" +" lst_0)" "(pair?" -" lst_312)" +" lst_1)" " #f)" -"(let-values(((key_88)" +"(let-values(((key_219)" "(unsafe-car" -" lst_311))" -"((rest_180)" +" lst_0))" +"((rest_220)" "(unsafe-cdr" -" lst_311))" -"((id_107)" +" lst_0))" +"((id_221)" "(unsafe-car" -" lst_312))" -"((rest_181)" +" lst_1))" +"((rest_222)" "(unsafe-cdr" -" lst_312)))" -"(let-values(((env_18)" -"(let-values(((env_19)" -" env_17))" -"(let-values(((env_20)" +" lst_1)))" +"(let-values(((env_223)" +"(let-values(((env_224)" +" env_0))" +"(let-values(((env_225)" "(let-values()" "(env-extend" -" env_19" -" key_88" +" env_224" +" key_219" "(local-variable1.1" -" id_107)))))" +" id_221)))))" "(values" -" env_20)))))" +" env_225)))))" "(if(not" " #f)" -"(for-loop_277" -" env_18" -" rest_180" -" rest_181)" -" env_18)))" -" env_17)))))" -" for-loop_277)" +"(for-loop_215" +" env_223" +" rest_220" +" rest_222)" +" env_223)))" +" env_0)))))" +" for-loop_215)" "(expand-context-env" -" body-ctx_2)" -" lst_228" -" lst_307)))))" -"(loop_118" -"(let-values(((v_252)" -" body-ctx_2))" -"(let-values(((the-struct_92)" -" v_252))" +" body-ctx_0)" +" lst_213" +" lst_214)))))" +"(loop_64" +"(let-values(((v_226)" +" body-ctx_0))" +"(let-values(((the-struct_227)" +" v_226))" "(if(expand-context/outer?" -" the-struct_92)" -"(let-values(((env101_0)" -" extended-env_0)" -"((binding-layer102_0)" -"(maybe-increment-binding-layer_0" -" ids_30" -" body-ctx_2))" -"((inner103_0)" +" the-struct_227)" +"(let-values(((env101_228)" +" extended-env_156)" +"((binding-layer102_229)" +"(maybe-increment-binding-layer_36" +" ids_152" +" body-ctx_0))" +"((inner103_230)" "(root-expand-context/outer-inner" -" v_252)))" +" v_226)))" "(expand-context/outer1.1" -" inner103_0" +" inner103_230" "(root-expand-context/outer-post-expansion" -" the-struct_92)" +" the-struct_227)" "(root-expand-context/outer-use-site-scopes" -" the-struct_92)" +" the-struct_227)" "(root-expand-context/outer-frame-id" -" the-struct_92)" +" the-struct_227)" "(expand-context/outer-context" -" the-struct_92)" -" env101_0" +" the-struct_227)" +" env101_228" "(expand-context/outer-scopes" -" the-struct_92)" +" the-struct_227)" "(expand-context/outer-def-ctx-scopes" -" the-struct_92)" -" binding-layer102_0" +" the-struct_227)" +" binding-layer102_229" "(expand-context/outer-reference-records" -" the-struct_92)" +" the-struct_227)" "(expand-context/outer-only-immediate?" -" the-struct_92)" +" the-struct_227)" "(expand-context/outer-need-eventually-defined" -" the-struct_92)" +" the-struct_227)" "(expand-context/outer-current-introduction-scopes" -" the-struct_92)" +" the-struct_227)" "(expand-context/outer-current-use-scopes" -" the-struct_92)" +" the-struct_227)" "(expand-context/outer-name" -" the-struct_92)))" +" the-struct_227)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))" -" rest-bodys_0" +" the-struct_227))))" +" rest-bodys_89" " null" "(cons" -" ids_30" +" ids_152" "(append" "(reverse$1" -"(let-values(((lst_313)" +"(let-values(((lst_231)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61585,47 +61880,47 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_313)))" -"((letrec-values(((for-loop_283)" -"(lambda(fold-var_289" -" lst_155)" +" lst_231)))" +"((letrec-values(((for-loop_232)" +"(lambda(fold-var_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_155)" -"(let-values(((done-body_0)" +" lst_0)" +"(let-values(((done-body_235)" "(unsafe-car" -" lst_155))" -"((rest_79)" +" lst_0))" +"((rest_236)" "(unsafe-cdr" -" lst_155)))" -"(let-values(((fold-var_290)" -"(let-values(((fold-var_291)" -" fold-var_289))" -"(let-values(((fold-var_292)" +" lst_0)))" +"(let-values(((fold-var_237)" +"(let-values(((fold-var_238)" +" fold-var_0))" +"(let-values(((fold-var_239)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_291))))" +" fold-var_238))))" "(values" -" fold-var_292)))))" +" fold-var_239)))))" "(if(not" " #f)" -"(for-loop_283" -" fold-var_290" -" rest_79)" -" fold-var_290)))" -" fold-var_289)))))" -" for-loop_283)" +"(for-loop_232" +" fold-var_237" +" rest_236)" +" fold-var_237)))" +" fold-var_0)))))" +" for-loop_232)" " null" -" lst_313))))" +" lst_231))))" " val-idss_0))" "(cons" -" keys_5" +" keys_155" "(append" "(reverse$1" -"(let-values(((lst_314)" +"(let-values(((lst_240)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61633,47 +61928,47 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_314)))" -"((letrec-values(((for-loop_284)" -"(lambda(fold-var_293" -" lst_32)" +" lst_240)))" +"((letrec-values(((for-loop_241)" +"(lambda(fold-var_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_32)" -"(let-values(((done-body_1)" +" lst_0)" +"(let-values(((done-body_244)" "(unsafe-car" -" lst_32))" -"((rest_182)" +" lst_0))" +"((rest_245)" "(unsafe-cdr" -" lst_32)))" -"(let-values(((fold-var_294)" -"(let-values(((fold-var_295)" -" fold-var_293))" -"(let-values(((fold-var_141)" +" lst_0)))" +"(let-values(((fold-var_246)" +"(let-values(((fold-var_247)" +" fold-var_0))" +"(let-values(((fold-var_248)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_295))))" +" fold-var_247))))" "(values" -" fold-var_141)))))" +" fold-var_248)))))" "(if(not" " #f)" -"(for-loop_284" -" fold-var_294" -" rest_182)" -" fold-var_294)))" -" fold-var_293)))))" -" for-loop_284)" +"(for-loop_241" +" fold-var_246" +" rest_245)" +" fold-var_246)))" +" fold-var_0)))))" +" for-loop_241)" " null" -" lst_314))))" +" lst_240))))" " val-keyss_0))" "(cons" -" rhs84_0" +" rhs84_135" "(append" "(reverse$1" -"(let-values(((lst_107)" +"(let-values(((lst_249)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61681,50 +61976,50 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_107)))" -"((letrec-values(((for-loop_126)" -"(lambda(fold-var_296" -" lst_315)" +" lst_249)))" +"((letrec-values(((for-loop_250)" +"(lambda(fold-var_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_315)" -"(let-values(((done-body_2)" +" lst_0)" +"(let-values(((done-body_253)" "(unsafe-car" -" lst_315))" -"((rest_183)" +" lst_0))" +"((rest_254)" "(unsafe-cdr" -" lst_315)))" -"(let-values(((fold-var_297)" -"(let-values(((fold-var_298)" -" fold-var_296))" -"(let-values(((fold-var_145)" +" lst_0)))" +"(let-values(((fold-var_255)" +"(let-values(((fold-var_256)" +" fold-var_0))" +"(let-values(((fold-var_257)" "(let-values()" "(cons" "(let-values()" "(no-binds" -" done-body_2" -" s_503" -" phase_137))" -" fold-var_298))))" +" done-body_253" +" s_28" +" phase_32))" +" fold-var_256))))" "(values" -" fold-var_145)))))" +" fold-var_257)))))" "(if(not" " #f)" -"(for-loop_126" -" fold-var_297" -" rest_183)" -" fold-var_297)))" -" fold-var_296)))))" -" for-loop_126)" +"(for-loop_250" +" fold-var_255" +" rest_254)" +" fold-var_255)))" +" fold-var_0)))))" +" for-loop_250)" " null" -" lst_107))))" +" lst_249))))" " val-rhss_0))" "(cons" -" exp-body_0" +" exp-body_90" "(append" "(reverse$1" -"(let-values(((lst_157)" +"(let-values(((lst_258)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -61732,549 +62027,549 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_157)))" -"((letrec-values(((for-loop_285)" -"(lambda(fold-var_299" -" lst_316)" +" lst_258)))" +"((letrec-values(((for-loop_259)" +"(lambda(fold-var_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_316)" -"(let-values(((done-body_3)" +" lst_0)" +"(let-values(((done-body_262)" "(unsafe-car" -" lst_316))" -"((rest_184)" +" lst_0))" +"((rest_263)" "(unsafe-cdr" -" lst_316)))" -"(let-values(((fold-var_41)" -"(let-values(((fold-var_42)" -" fold-var_299))" -"(let-values(((fold-var_300)" +" lst_0)))" +"(let-values(((fold-var_264)" +"(let-values(((fold-var_265)" +" fold-var_0))" +"(let-values(((fold-var_266)" "(let-values()" "(cons" "(let-values()" " #f)" -" fold-var_42))))" +" fold-var_265))))" "(values" -" fold-var_300)))))" +" fold-var_266)))))" "(if(not" " #f)" -"(for-loop_285" -" fold-var_41" -" rest_184)" -" fold-var_41)))" -" fold-var_299)))))" -" for-loop_285)" +"(for-loop_259" +" fold-var_264" +" rest_263)" +" fold-var_264)))" +" fold-var_0)))))" +" for-loop_259)" " null" -" lst_157))))" +" lst_258))))" " track-stxs_0))" -" trans-idss_1" +" trans-idss_0" " stx-clauses_0" -" new-dups_0))))))))))" -"(if(equal? tmp_62 'define-syntaxes)" +" new-dups_153))))))))))" +"(if(equal? tmp_99 'define-syntaxes)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_15)" +"(let-values(((obs_293)" "(expand-context-observer" -" body-ctx_2)))" -"(if obs_15" +" body-ctx_0)))" +"(if obs_293" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_15" +" obs_293" " 'prim-define-syntaxes)))" "(void)))" "(values))))" -"(let-values(((ok?_36" -" define-syntaxes104_0" -" id105_0" -" rhs106_0)" -"(let-values(((s_71)" -" disarmed-exp-body_0))" -"(let-values(((orig-s_7)" -" s_71))" -"(let-values(((define-syntaxes104_1" -" id105_1" -" rhs106_1)" -"(let-values(((s_511)" +"(let-values(((ok?_267" +" define-syntaxes104_268" +" id105_269" +" rhs106_270)" +"(let-values(((s_294)" +" disarmed-exp-body_91))" +"(let-values(((orig-s_295)" +" s_294))" +"(let-values(((define-syntaxes104_296" +" id105_297" +" rhs106_298)" +"(let-values(((s_299)" "(if(syntax?$1" -" s_71)" +" s_294)" "(syntax-e$1" -" s_71)" -" s_71)))" +" s_294)" +" s_294)))" "(if(pair?" -" s_511)" -"(let-values(((define-syntaxes107_0)" -"(let-values(((s_216)" +" s_299)" +"(let-values(((define-syntaxes107_300)" +"(let-values(((s_303)" "(car" -" s_511)))" -" s_216))" -"((id108_0" -" rhs109_0)" -"(let-values(((s_512)" +" s_299)))" +" s_303))" +"((id108_301" +" rhs109_302)" +"(let-values(((s_304)" "(cdr" -" s_511)))" -"(let-values(((s_513)" +" s_299)))" +"(let-values(((s_305)" "(if(syntax?$1" -" s_512)" +" s_304)" "(syntax-e$1" -" s_512)" -" s_512)))" +" s_304)" +" s_304)))" "(if(pair?" -" s_513)" -"(let-values(((id110_0)" -"(let-values(((s_514)" +" s_305)" +"(let-values(((id110_306)" +"(let-values(((s_308)" "(car" -" s_513)))" -"(let-values(((s_515)" +" s_305)))" +"(let-values(((s_309)" "(if(syntax?$1" -" s_514)" +" s_308)" "(syntax-e$1" -" s_514)" -" s_514)))" -"(let-values(((flat-s_27)" +" s_308)" +" s_308)))" +"(let-values(((flat-s_310)" "(to-syntax-list.1" -" s_515)))" +" s_309)))" "(if(not" -" flat-s_27)" +" flat-s_310)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_7))" +" orig-s_295))" "(let-values()" -"(let-values(((id_108)" -"(let-values(((lst_317)" -" flat-s_27))" +"(let-values(((id_311)" +"(let-values(((lst_312)" +" flat-s_310))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_317)))" -"((letrec-values(((for-loop_286)" -"(lambda(id_109" -" lst_318)" +" lst_312)))" +"((letrec-values(((for-loop_313)" +"(lambda(id_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_318)" -"(let-values(((s_159)" +" lst_0)" +"(let-values(((s_316)" "(unsafe-car" -" lst_318))" -"((rest_185)" +" lst_0))" +"((rest_317)" "(unsafe-cdr" -" lst_318)))" -"(let-values(((id_65)" -"(let-values(((id_110)" -" id_109))" -"(let-values(((id_111)" +" lst_0)))" +"(let-values(((id_318)" +"(let-values(((id_319)" +" id_0))" +"(let-values(((id_320)" "(let-values()" -"(let-values(((id113_0)" +"(let-values(((id113_321)" "(let-values()" -"(if(let-values(((or-part_381)" +"(if(let-values(((or-part_322)" "(if(syntax?$1" -" s_159)" +" s_316)" "(symbol?" "(syntax-e$1" -" s_159))" +" s_316))" " #f)))" -"(if or-part_381" -" or-part_381" +"(if or-part_322" +" or-part_322" "(symbol?" -" s_159)))" -" s_159" +" s_316)))" +" s_316" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_7" -" s_159)))))" +" orig-s_295" +" s_316)))))" "(cons" -" id113_0" -" id_110)))))" +" id113_321" +" id_319)))))" "(values" -" id_111)))))" +" id_320)))))" "(if(not" " #f)" -"(for-loop_286" -" id_65" -" rest_185)" -" id_65)))" -" id_109)))))" -" for-loop_286)" +"(for-loop_313" +" id_318" +" rest_317)" +" id_318)))" +" id_0)))))" +" for-loop_313)" " null" -" lst_317)))))" +" lst_312)))))" "(reverse$1" -" id_108))))))))" -"((rhs111_0)" -"(let-values(((s_103)" +" id_311))))))))" +"((rhs111_307)" +"(let-values(((s_323)" "(cdr" -" s_513)))" -"(let-values(((s_104)" +" s_305)))" +"(let-values(((s_324)" "(if(syntax?$1" -" s_103)" +" s_323)" "(syntax-e$1" -" s_103)" -" s_103)))" +" s_323)" +" s_323)))" "(if(pair?" -" s_104)" -"(let-values(((rhs112_0)" -"(let-values(((s_516)" +" s_324)" +"(let-values(((rhs112_325)" +"(let-values(((s_326)" "(car" -" s_104)))" -" s_516))" +" s_324)))" +" s_326))" "(()" -"(let-values(((s_217)" +"(let-values(((s_327)" "(cdr" -" s_104)))" -"(let-values(((s_105)" +" s_324)))" +"(let-values(((s_328)" "(if(syntax?$1" -" s_217)" +" s_327)" "(syntax-e$1" -" s_217)" -" s_217)))" +" s_327)" +" s_327)))" "(if(null?" -" s_105)" +" s_328)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_7))))))" +" orig-s_295))))))" "(values" -" rhs112_0))" +" rhs112_325))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_7))))))" +" orig-s_295))))))" "(values" -" id110_0" -" rhs111_0))" +" id110_306" +" rhs111_307))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_7))))))" +" orig-s_295))))))" "(values" -" define-syntaxes107_0" -" id108_0" -" rhs109_0))" +" define-syntaxes107_300" +" id108_301" +" rhs109_302))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_7)))))" +" orig-s_295)))))" "(values" " #t" -" define-syntaxes104_1" -" id105_1" -" rhs106_1))))))" -"(let-values(((ids_31)" +" define-syntaxes104_296" +" id105_297" +" rhs106_298))))))" +"(let-values(((ids_287)" "(remove-use-site-scopes" -" id105_0" -" body-ctx_2)))" +" id105_269" +" body-ctx_0)))" "(let-values((()" "(begin" -"(let-values(((obs_18)" +"(let-values(((obs_329)" "(expand-context-observer" -" body-ctx_2)))" -"(if obs_18" +" body-ctx_0)))" +"(if obs_329" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_18" +" obs_329" " 'rename-one" "(datum->syntax$1" " #f" "(list" -" ids_31" -" rhs106_0)))))" +" ids_287" +" rhs106_270)))))" "(void)))" "(values))))" -"(let-values(((new-dups_1)" -"(let-values(((ids114_0)" -" ids_31)" -"((phase115_0)" -" phase_137)" -"((exp-body116_0)" -" exp-body_0)" -"((dups117_0)" +"(let-values(((new-dups_288)" +"(let-values(((ids114_330)" +" ids_287)" +"((phase115_331)" +" phase_32)" +"((exp-body116_332)" +" exp-body_90)" +"((dups117_333)" " dups_0))" "(check-no-duplicate-ids7.1" " unsafe-undefined" -" ids114_0" -" phase115_0" -" exp-body116_0" -" dups117_0))))" -"(let-values(((counter_6)" +" ids114_330" +" phase115_331" +" exp-body116_332" +" dups117_333))))" +"(let-values(((counter_289)" "(root-expand-context-counter" -" ctx_77)))" -"(let-values(((keys_6)" +" ctx_27)))" +"(let-values(((keys_290)" "(reverse$1" -"(let-values(((lst_319)" -" ids_31))" +"(let-values(((lst_334)" +" ids_287))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_319)))" -"((letrec-values(((for-loop_287)" -"(lambda(fold-var_301" -" lst_320)" +" lst_334)))" +"((letrec-values(((for-loop_335)" +"(lambda(fold-var_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_320)" -"(let-values(((id_112)" +" lst_0)" +"(let-values(((id_338)" "(unsafe-car" -" lst_320))" -"((rest_186)" +" lst_0))" +"((rest_339)" "(unsafe-cdr" -" lst_320)))" -"(let-values(((fold-var_302)" -"(let-values(((fold-var_303)" -" fold-var_301))" -"(let-values(((fold-var_304)" +" lst_0)))" +"(let-values(((fold-var_340)" +"(let-values(((fold-var_341)" +" fold-var_0))" +"(let-values(((fold-var_342)" "(let-values()" "(cons" "(let-values()" -"(let-values(((id118_0)" -" id_112)" -"((phase119_0)" -" phase_137)" -"((counter120_0)" -" counter_6)" -"((frame-id121_0)" -" frame-id_7)" -"((exp-body122_0)" -" exp-body_0))" +"(let-values(((id118_344)" +" id_338)" +"((phase119_345)" +" phase_32)" +"((counter120_346)" +" counter_289)" +"((frame-id121_347)" +" frame-id_33)" +"((exp-body122_348)" +" exp-body_90))" "(add-local-binding!37.1" -" frame-id121_0" -" exp-body122_0" -" id118_0" -" phase119_0" -" counter120_0)))" -" fold-var_303))))" +" frame-id121_347" +" exp-body122_348" +" id118_344" +" phase119_345" +" counter120_346)))" +" fold-var_341))))" "(values" -" fold-var_304)))))" +" fold-var_342)))))" "(if(not" " #f)" -"(for-loop_287" -" fold-var_302" -" rest_186)" -" fold-var_302)))" -" fold-var_301)))))" -" for-loop_287)" +"(for-loop_335" +" fold-var_340" +" rest_339)" +" fold-var_340)))" +" fold-var_0)))))" +" for-loop_335)" " null" -" lst_319))))))" +" lst_334))))))" "(let-values((()" "(begin" -"(let-values(((obs_72)" +"(let-values(((obs_349)" "(expand-context-observer" -" body-ctx_2)))" -"(if obs_72" +" body-ctx_0)))" +"(if obs_349" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_72" +" obs_349" " 'prepare-env)))" "(void)))" "(values))))" "(let-values((()" "(begin" "(prepare-next-phase-namespace" -" ctx_77)" +" ctx_27)" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_73)" +"(let-values(((obs_350)" "(expand-context-observer" -" body-ctx_2)))" -"(if obs_73" +" body-ctx_0)))" +"(if obs_350" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_73" +" obs_350" " 'enter-bind)))" "(void)))" "(values))))" -"(let-values(((vals_8)" +"(let-values(((vals_291)" "(eval-for-syntaxes-binding" " 'define-syntaxes" -" rhs106_0" -" ids_31" -" body-ctx_2)))" -"(let-values(((extended-env_1)" -"(let-values(((lst_321)" -" keys_6)" -"((lst_322)" -" vals_8)" -"((lst_323)" -" ids_31))" +" rhs106_270" +" ids_287" +" body-ctx_0)))" +"(let-values(((extended-env_292)" +"(let-values(((lst_351)" +" keys_290)" +"((lst_352)" +" vals_291)" +"((lst_353)" +" ids_287))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_321)))" +" lst_351)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_322)))" +" lst_352)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_323)))" -"((letrec-values(((for-loop_288)" -"(lambda(env_21" -" lst_324" -" lst_325" -" lst_326)" +" lst_353)))" +"((letrec-values(((for-loop_354)" +"(lambda(env_0" +" lst_0" +" lst_1" +" lst_2)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_324)" +" lst_0)" "(if(pair?" -" lst_325)" +" lst_1)" "(pair?" -" lst_326)" +" lst_2)" " #f)" " #f)" -"(let-values(((key_89)" +"(let-values(((key_359)" "(unsafe-car" -" lst_324))" -"((rest_187)" +" lst_0))" +"((rest_360)" "(unsafe-cdr" -" lst_324))" -"((val_41)" +" lst_0))" +"((val_361)" "(unsafe-car" -" lst_325))" -"((rest_188)" +" lst_1))" +"((rest_362)" "(unsafe-cdr" -" lst_325))" -"((id_113)" +" lst_1))" +"((id_363)" "(unsafe-car" -" lst_326))" -"((rest_189)" +" lst_2))" +"((rest_364)" "(unsafe-cdr" -" lst_326)))" -"(let-values(((env_22)" -"(let-values(((env_23)" -" env_21))" -"(let-values(((env_24)" +" lst_2)))" +"(let-values(((env_365)" +"(let-values(((env_366)" +" env_0))" +"(let-values(((env_367)" "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_41" -" id_113" -" phase_137" -" body-ctx_2)" +" val_361" +" id_363" +" phase_32" +" body-ctx_0)" "(env-extend" -" env_23" -" key_89" -" val_41)))))" +" env_366" +" key_359" +" val_361)))))" "(values" -" env_24)))))" +" env_367)))))" "(if(not" " #f)" -"(for-loop_288" -" env_22" -" rest_187" -" rest_188" -" rest_189)" -" env_22)))" -" env_21)))))" -" for-loop_288)" +"(for-loop_354" +" env_365" +" rest_360" +" rest_362" +" rest_364)" +" env_365)))" +" env_0)))))" +" for-loop_354)" "(expand-context-env" -" body-ctx_2)" -" lst_321" -" lst_322" -" lst_323)))))" +" body-ctx_0)" +" lst_351" +" lst_352" +" lst_353)))))" "(begin" -"(let-values(((obs_74)" +"(let-values(((obs_368)" "(expand-context-observer" -" body-ctx_2)))" -"(if obs_74" +" body-ctx_0)))" +"(if obs_368" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_74" +" obs_368" " 'exit-bind)))" "(void)))" -"(loop_118" -"(let-values(((v_253)" -" body-ctx_2))" -"(let-values(((the-struct_93)" -" v_253))" +"(loop_64" +"(let-values(((v_369)" +" body-ctx_0))" +"(let-values(((the-struct_370)" +" v_369))" "(if(expand-context/outer?" -" the-struct_93)" -"(let-values(((env123_0)" -" extended-env_1)" -"((binding-layer124_0)" -"(maybe-increment-binding-layer_0" -" ids_31" -" body-ctx_2))" -"((inner125_0)" +" the-struct_370)" +"(let-values(((env123_371)" +" extended-env_292)" +"((binding-layer124_372)" +"(maybe-increment-binding-layer_36" +" ids_287" +" body-ctx_0))" +"((inner125_373)" "(root-expand-context/outer-inner" -" v_253)))" +" v_369)))" "(expand-context/outer1.1" -" inner125_0" +" inner125_373" "(root-expand-context/outer-post-expansion" -" the-struct_93)" +" the-struct_370)" "(root-expand-context/outer-use-site-scopes" -" the-struct_93)" +" the-struct_370)" "(root-expand-context/outer-frame-id" -" the-struct_93)" +" the-struct_370)" "(expand-context/outer-context" -" the-struct_93)" -" env123_0" +" the-struct_370)" +" env123_371" "(expand-context/outer-scopes" -" the-struct_93)" +" the-struct_370)" "(expand-context/outer-def-ctx-scopes" -" the-struct_93)" -" binding-layer124_0" +" the-struct_370)" +" binding-layer124_372" "(expand-context/outer-reference-records" -" the-struct_93)" +" the-struct_370)" "(expand-context/outer-only-immediate?" -" the-struct_93)" +" the-struct_370)" "(expand-context/outer-need-eventually-defined" -" the-struct_93)" +" the-struct_370)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" +" the-struct_370)" "(expand-context/outer-current-use-scopes" -" the-struct_93)" +" the-struct_370)" "(expand-context/outer-name" -" the-struct_93)))" +" the-struct_370)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))" -" rest-bodys_0" +" the-struct_370))))" +" rest-bodys_89" " done-bodys_0" " val-idss_0" " val-keyss_0" " val-rhss_0" " track-stxs_0" "(cons" -" ids_31" -" trans-idss_1)" +" ids_287" +" trans-idss_0)" "(cons" "(datum->syntax$1" " #f" "(list" -" ids_31" -" rhs106_0)" -" exp-body_0)" +" ids_287" +" rhs106_270)" +" exp-body_90)" " stx-clauses_0)" -" new-dups_1)))))))))))))))" +" new-dups_288)))))))))))))))" "(let-values()" -"(if stratified?_0" +"(if stratified?_29" "(let-values()" "(begin" "(if(null? done-bodys_0)" @@ -62282,48 +62577,48 @@ static const char *startup_source = "(let-values()" "(error" " \"internal error: accumulated expressions not empty\")))" -"(loop_118" -" body-ctx_2" +"(loop_64" +" body-ctx_0" " null" "(if(if(null? val-idss_0)" -"(null? trans-idss_1)" +"(null? trans-idss_0)" " #f)" "(reverse$1" "(cons" -" exp-body_0" -" rest-bodys_0))" +" exp-body_90" +" rest-bodys_89))" "(list" "(datum->syntax$1" " #f" "(cons" "(core-id" " '#%stratified-body" -" phase_137)" +" phase_32)" "(cons" -" exp-body_0" -" rest-bodys_0)))))" +" exp-body_90" +" rest-bodys_89)))))" " val-idss_0" " val-keyss_0" " val-rhss_0" " track-stxs_0" -" trans-idss_1" +" trans-idss_0" " stx-clauses_0" " dups_0)))" "(let-values()" -"(loop_118" -" body-ctx_2" -" rest-bodys_0" -"(cons exp-body_0 done-bodys_0)" +"(loop_64" +" body-ctx_0" +" rest-bodys_89" +"(cons exp-body_90 done-bodys_0)" " val-idss_0" " val-keyss_0" " val-rhss_0" " track-stxs_0" -" trans-idss_1" +" trans-idss_0" " stx-clauses_0" " dups_0))))))))))))))))))" -" loop_118)" -" body-ctx_0" -" init-bodys_0" +" loop_64)" +" body-ctx_35" +" init-bodys_31" " null" " null" " null" @@ -62349,319 +62644,321 @@ static const char *startup_source = " done-bodys26_0)" "(begin" " 'finish-expanding-body27" -"(let-values(((body-ctx_3) body-ctx18_0))" -"(let-values(((frame-id_13) frame-id19_0))" -"(let-values(((def-ctx-scopes_7) def-ctx-scopes20_0))" -"(let-values(((val-idss_1) val-idss21_0))" -"(let-values(((val-keyss_1) val-keyss22_0))" -"(let-values(((val-rhss_1) val-rhss23_0))" -"(let-values(((track-stxs_1) track-stxs24_0))" -"(let-values(((stx-clauses_1) stx-clauses25_0))" -"(let-values(((done-bodys_1) done-bodys26_0))" -"(let-values(((s_233) source10_0))" -"(let-values(((stratified?_1) stratified?11_0))" -"(let-values(((name_80) name12_0))" -"(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" +"(let-values(((body-ctx_422) body-ctx18_0))" +"(let-values(((frame-id_423) frame-id19_0))" +"(let-values(((def-ctx-scopes_424) def-ctx-scopes20_0))" +"(let-values(((val-idss_425) val-idss21_0))" +"(let-values(((val-keyss_426) val-keyss22_0))" +"(let-values(((val-rhss_427) val-rhss23_0))" +"(let-values(((track-stxs_428) track-stxs24_0))" +"(let-values(((stx-clauses_429) stx-clauses25_0))" +"(let-values(((done-bodys_430) done-bodys26_0))" +"(let-values(((s_431) source10_0))" +"(let-values(((stratified?_432) stratified?11_0))" +"(let-values(((name_433) name12_0))" +"(let-values(((disappeared-transformer-bindings_434)" +" disappeared-transformer-bindings13_0))" "(let-values()" "(let-values((()" "(begin" -"(if(null? done-bodys_1)" +"(if(null? done-bodys_430)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no expression after a sequence of internal definitions\"" -" s_233))" +" s_431))" "(void))" "(values))))" -"(let-values(((finish-ctx_0)" -"(let-values(((v_254)" +"(let-values(((finish-ctx_435)" +"(let-values(((v_437)" "(accumulate-def-ctx-scopes" -" body-ctx_3" -" def-ctx-scopes_7)))" -"(let-values(((the-struct_94) v_254))" -"(if(expand-context/outer? the-struct_94)" -"(let-values(((context126_0) 'expression)" -"((use-site-scopes127_0)(box null))" -"((scopes128_0)" +" body-ctx_422" +" def-ctx-scopes_424)))" +"(let-values(((the-struct_438) v_437))" +"(if(expand-context/outer? the-struct_438)" +"(let-values(((context126_439) 'expression)" +"((use-site-scopes127_440)(box null))" +"((scopes128_441)" "(append" "(unbox" "(root-expand-context-use-site-scopes" -" body-ctx_3))" -"(expand-context-scopes body-ctx_3)))" -"((only-immediate?129_0) #f)" -"((def-ctx-scopes130_0) #f)" -"((post-expansion131_0) #f)" -"((inner132_0)" -"(root-expand-context/outer-inner v_254)))" +" body-ctx_422))" +"(expand-context-scopes body-ctx_422)))" +"((only-immediate?129_442) #f)" +"((def-ctx-scopes130_443) #f)" +"((post-expansion131_444) #f)" +"((inner132_445)" +"(root-expand-context/outer-inner v_437)))" "(expand-context/outer1.1" -" inner132_0" -" post-expansion131_0" -" use-site-scopes127_0" -"(root-expand-context/outer-frame-id the-struct_94)" -" context126_0" -"(expand-context/outer-env the-struct_94)" -" scopes128_0" -" def-ctx-scopes130_0" -"(expand-context/outer-binding-layer the-struct_94)" -"(expand-context/outer-reference-records the-struct_94)" -" only-immediate?129_0" -"(expand-context/outer-need-eventually-defined the-struct_94)" +" inner132_445" +" post-expansion131_444" +" use-site-scopes127_440" +"(root-expand-context/outer-frame-id the-struct_438)" +" context126_439" +"(expand-context/outer-env the-struct_438)" +" scopes128_441" +" def-ctx-scopes130_443" +"(expand-context/outer-binding-layer the-struct_438)" +"(expand-context/outer-reference-records the-struct_438)" +" only-immediate?129_442" +"(expand-context/outer-need-eventually-defined the-struct_438)" "(expand-context/outer-current-introduction-scopes" -" the-struct_94)" -"(expand-context/outer-current-use-scopes the-struct_94)" -"(expand-context/outer-name the-struct_94)))" +" the-struct_438)" +"(expand-context/outer-current-use-scopes the-struct_438)" +"(expand-context/outer-name the-struct_438)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_94))))))" -"(let-values(((finish-bodys_0)" +" the-struct_438))))))" +"(let-values(((finish-bodys_436)" "(lambda()" "(begin" " 'finish-bodys" -"(let-values(((block->list?_0)(null? val-idss_1)))" +"(let-values(((block->list?_446)(null? val-idss_425)))" "(let-values((()" "(begin" -"(if block->list?_0" +"(if block->list?_446" "(void)" "(let-values()" -"(let-values(((obs_75)" +"(let-values(((obs_449)" "(expand-context-observer" -" body-ctx_3)))" -"(if obs_75" +" body-ctx_422)))" +"(if obs_449" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_75" +" obs_449" " 'next-group)))" "(void)))))" "(values))))" -"(let-values(((last-i_1)(sub1(length done-bodys_1))))" +"(let-values(((last-i_447)(sub1(length done-bodys_430))))" "(let-values((()" "(begin" -"(let-values(((obs_76)" +"(let-values(((obs_450)" "(expand-context-observer" -" body-ctx_3)))" -"(if obs_76" +" body-ctx_422)))" +"(if obs_450" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_76" +" obs_450" " 'enter-list" "(datum->syntax$1" " #f" -" done-bodys_1))))" +" done-bodys_430))))" "(void)))" "(values))))" -"(let-values(((exp-bodys_0)" +"(let-values(((exp-bodys_448)" "(reverse$1" -"(let-values(((lst_213) done-bodys_1)" -"((start_64) 0))" +"(let-values(((lst_451) done-bodys_430)" +"((start_452) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_213)))" +"(check-list lst_451)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-naturals start_64)))" -"((letrec-values(((for-loop_289)" -"(lambda(fold-var_305" -" lst_5" -" pos_125)" +"(check-naturals start_452)))" +"((letrec-values(((for-loop_453)" +"(lambda(fold-var_0" +" lst_0" +" pos_0)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_5)" +" lst_0)" " #t" " #f)" -"(let-values(((done-body_4)" +"(let-values(((done-body_457)" "(unsafe-car" -" lst_5))" -"((rest_190)" +" lst_0))" +"((rest_458)" "(unsafe-cdr" -" lst_5))" -"((i_14)" -" pos_125))" -"(let-values(((fold-var_306)" -"(let-values(((fold-var_307)" -" fold-var_305))" -"(let-values(((fold-var_308)" +" lst_0))" +"((i_459)" +" pos_0))" +"(let-values(((fold-var_460)" +"(let-values(((fold-var_461)" +" fold-var_0))" +"(let-values(((fold-var_462)" "(let-values()" "(cons" "(let-values()" "(begin" -"(let-values(((obs_77)" +"(let-values(((obs_463)" "(expand-context-observer" -" body-ctx_3)))" -"(if obs_77" +" body-ctx_422)))" +"(if obs_463" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_77" +" obs_463" " 'next)))" "(void)))" -"(let-values(((done-body133_0)" -" done-body_4)" -"((temp134_3)" -"(if(if name_80" +"(let-values(((done-body133_464)" +" done-body_457)" +"((temp134_465)" +"(if(if name_433" "(=" -" i_14" -" last-i_1)" +" i_459" +" last-i_447)" " #f)" -"(let-values(((v_255)" -" finish-ctx_0))" -"(let-values(((the-struct_95)" -" v_255))" +"(let-values(((v_466)" +" finish-ctx_435))" +"(let-values(((the-struct_467)" +" v_466))" "(if(expand-context/outer?" -" the-struct_95)" -"(let-values(((name135_0)" -" name_80)" -"((inner136_0)" +" the-struct_467)" +"(let-values(((name135_468)" +" name_433)" +"((inner136_469)" "(root-expand-context/outer-inner" -" v_255)))" +" v_466)))" "(expand-context/outer1.1" -" inner136_0" +" inner136_469" "(root-expand-context/outer-post-expansion" -" the-struct_95)" +" the-struct_467)" "(root-expand-context/outer-use-site-scopes" -" the-struct_95)" +" the-struct_467)" "(root-expand-context/outer-frame-id" -" the-struct_95)" +" the-struct_467)" "(expand-context/outer-context" -" the-struct_95)" +" the-struct_467)" "(expand-context/outer-env" -" the-struct_95)" +" the-struct_467)" "(expand-context/outer-scopes" -" the-struct_95)" +" the-struct_467)" "(expand-context/outer-def-ctx-scopes" -" the-struct_95)" +" the-struct_467)" "(expand-context/outer-binding-layer" -" the-struct_95)" +" the-struct_467)" "(expand-context/outer-reference-records" -" the-struct_95)" +" the-struct_467)" "(expand-context/outer-only-immediate?" -" the-struct_95)" +" the-struct_467)" "(expand-context/outer-need-eventually-defined" -" the-struct_95)" +" the-struct_467)" "(expand-context/outer-current-introduction-scopes" -" the-struct_95)" +" the-struct_467)" "(expand-context/outer-current-use-scopes" -" the-struct_95)" -" name135_0))" +" the-struct_467)" +" name135_468))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_95))))" -" finish-ctx_0)))" +" the-struct_467))))" +" finish-ctx_435)))" "(expand9.1" " #f" " #f" " #f" -" done-body133_0" -" temp134_3))))" -" fold-var_307))))" +" done-body133_464" +" temp134_465))))" +" fold-var_461))))" "(values" -" fold-var_308)))))" +" fold-var_462)))))" "(if(not" " #f)" -"(for-loop_289" -" fold-var_306" -" rest_190" +"(for-loop_453" +" fold-var_460" +" rest_458" "(+" -" pos_125" +" pos_0" " 1))" -" fold-var_306)))" -" fold-var_305)))))" -" for-loop_289)" +" fold-var_460)))" +" fold-var_0)))))" +" for-loop_453)" " null" -" lst_213" -" start_64))))))" +" lst_451" +" start_452))))))" "(begin" -"(let-values(((obs_78)" -"(expand-context-observer body-ctx_3)))" -"(if obs_78" +"(let-values(((obs_470)" +"(expand-context-observer" +" body-ctx_422)))" +"(if obs_470" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_78" +" obs_470" " 'exit-list" -"(datum->syntax$1 #f exp-bodys_0))))" +"(datum->syntax$1 #f exp-bodys_448))))" "(void)))" -"(reference-record-clear! frame-id_13)" -" exp-bodys_0))))))))))" -"(if(if(null? val-idss_1)(null? disappeared-transformer-bindings_0) #f)" +"(reference-record-clear! frame-id_423)" +" exp-bodys_448))))))))))" +"(if(if(null? val-idss_425)(null? disappeared-transformer-bindings_434) #f)" "(let-values()" "(begin" -"(let-values(((obs_79)(expand-context-observer finish-ctx_0)))" -"(if obs_79" +"(let-values(((obs_471)(expand-context-observer finish-ctx_435)))" +"(if obs_471" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_79" +" obs_471" " 'block->list" -"(datum->syntax$1 s_233 done-bodys_1))))" +"(datum->syntax$1 s_431 done-bodys_430))))" "(void)))" -"(finish-bodys_0)))" +"(finish-bodys_436)))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_80)" -"(expand-context-observer finish-ctx_0)))" -"(if obs_80" +"(let-values(((obs_473)" +"(expand-context-observer finish-ctx_435)))" +"(if obs_473" "(let-values()" "(log-letrec-values$1" -" obs_80" -" finish-ctx_0" -" s_233" -" val-idss_1" -" val-rhss_1" -" track-stxs_1" -" stx-clauses_1" -" done-bodys_1))" +" obs_473" +" finish-ctx_435" +" s_431" +" val-idss_425" +" val-rhss_427" +" track-stxs_428" +" stx-clauses_429" +" done-bodys_430))" "(void)))" "(values))))" -"(let-values(((exp-s_12)" -"(let-values(((val-idss137_0) val-idss_1)" -"((val-keyss138_0) val-keyss_1)" -"((val-rhss139_0) val-rhss_1)" -"((track-stxs140_0) track-stxs_1)" -"((temp141_2)(not stratified?_1))" -"((frame-id142_0) frame-id_13)" -"((finish-ctx143_0) finish-ctx_0)" -"((s144_0) s_233)" -"((temp145_1)(pair? stx-clauses_1))" -"((finish-bodys146_0) finish-bodys_0)" -"((temp147_0) #f))" +"(let-values(((exp-s_472)" +"(let-values(((val-idss137_475) val-idss_425)" +"((val-keyss138_476) val-keyss_426)" +"((val-rhss139_477) val-rhss_427)" +"((track-stxs140_478) track-stxs_428)" +"((temp141_479)(not stratified?_432))" +"((frame-id142_480) frame-id_423)" +"((finish-ctx143_481) finish-ctx_435)" +"((s144_482) s_431)" +"((temp145_483)(pair? stx-clauses_429))" +"((finish-bodys146_484) finish-bodys_436)" +"((temp147_485) #f))" "(expand-and-split-bindings-by-reference48.1" -" finish-ctx143_0" -" frame-id142_0" -" finish-bodys146_0" -" temp145_1" -" s144_0" -" temp141_2" -" temp147_0" -" val-idss137_0" -" val-keyss138_0" -" val-rhss139_0" -" track-stxs140_0))))" +" finish-ctx143_481" +" frame-id142_480" +" finish-bodys146_484" +" temp145_483" +" s144_482" +" temp141_479" +" temp147_485" +" val-idss137_475" +" val-keyss138_476" +" val-rhss139_477" +" track-stxs140_478))))" "(begin" -"(let-values(((obs_81)(expand-context-observer body-ctx_3)))" -"(if obs_81" +"(let-values(((obs_486)(expand-context-observer body-ctx_422)))" +"(if obs_486" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_81 'exit-prim exp-s_12)" -"(call-expand-observe obs_81 'return exp-s_12))))" +"(call-expand-observe obs_486 'exit-prim exp-s_472)" +"(call-expand-observe obs_486 'return exp-s_472))))" "(void)))" -"(if(expand-context-to-parsed? body-ctx_3)" -"(list exp-s_12)" +"(if(expand-context-to-parsed? body-ctx_422)" +"(list exp-s_472)" "(list" "(attach-disappeared-transformer-bindings" -" exp-s_12" -" disappeared-transformer-bindings_0))))))))))))))))))))))))))))" +" exp-s_472" +" disappeared-transformer-bindings_434))))))))))))))))))))))))))))" "(define-values" "(expand-and-split-bindings-by-reference48.1)" "(lambda(ctx32_0" @@ -62677,132 +62974,134 @@ static const char *startup_source = " track-stxs47_0)" "(begin" " 'expand-and-split-bindings-by-reference48" -"(let-values(((idss_1) idss44_0))" -"(let-values(((keyss_0) keyss45_0))" -"(let-values(((rhss_1) rhss46_0))" -"(let-values(((track-stxs_2) track-stxs47_0))" -"(let-values(((split?_0) split?30_0))" -"(let-values(((frame-id_14) frame-id31_0))" -"(let-values(((ctx_78) ctx32_0))" -"(let-values(((s_366) source33_0))" -"(let-values(((had-stxes?_0) had-stxes?34_0))" -"(let-values(((get-body_0) get-body35_0))" -"(let-values(((track?_1) track?36_0))" +"(let-values(((idss_546) idss44_0))" +"(let-values(((keyss_547) keyss45_0))" +"(let-values(((rhss_548) rhss46_0))" +"(let-values(((track-stxs_549) track-stxs47_0))" +"(let-values(((split?_550) split?30_0))" +"(let-values(((frame-id_551) frame-id31_0))" +"(let-values(((ctx_552) ctx32_0))" +"(let-values(((s_553) source33_0))" +"(let-values(((had-stxes?_554) had-stxes?34_0))" +"(let-values(((get-body_555) get-body35_0))" +"(let-values(((track?_556) track?36_0))" "(let-values()" -"(let-values(((phase_138)(expand-context-phase ctx_78)))" -"((letrec-values(((loop_27)" -"(lambda(idss_2" -" keyss_1" -" rhss_2" -" track-stxs_3" +"(let-values(((phase_557)(expand-context-phase ctx_552)))" +"((letrec-values(((loop_558)" +"(lambda(idss_0" +" keyss_0" +" rhss_0" +" track-stxs_0" " accum-idss_0" " accum-keyss_0" " accum-rhss_0" " accum-track-stxs_0" -" track?_2" +" track?_0" " get-list?_0" " can-log?_0)" "(begin" " 'loop" -"(if(null? idss_2)" +"(if(null? idss_0)" "(let-values()" "(if(if(null? accum-idss_0) get-list?_0 #f)" -"(let-values()(get-body_0))" +"(let-values()(get-body_555))" "(let-values()" -"(let-values(((exp-body_1)(get-body_0)))" -"(let-values(((result-s_9)" -"(if(expand-context-to-parsed? ctx_78)" +"(let-values(((exp-body_570)(get-body_555)))" +"(let-values(((result-s_571)" +"(if(expand-context-to-parsed? ctx_552)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" -"(keep-properties-only s_366)" +"(keep-properties-only s_553)" " null" " null" -" exp-body_1)" +" exp-body_570)" "(parsed-letrec-values18.1" -"(keep-properties-only s_366)" +"(keep-properties-only s_553)" "(reverse$1 accum-idss_0)" "(reverse$1" "(map2" " list" " accum-keyss_0" " accum-rhss_0))" -" exp-body_1))" -"(let-values(((track?148_0) track?_2)" -"((s149_0) s_366)" -"((temp150_1)" +" exp-body_570))" +"(let-values(((track?148_573) track?_0)" +"((s149_574) s_553)" +"((temp150_575)" "(list*" "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_138)" +" phase_557)" "(core-id" " 'letrec-values" -" phase_138))" +" phase_557))" "(build-clauses" " accum-idss_0" " accum-rhss_0" " accum-track-stxs_0)" -" exp-body_1)))" +" exp-body_570)))" "(rebuild5.1" -" track?148_0" -" s149_0" -" temp150_1)))))" +" track?148_573" +" s149_574" +" temp150_575)))))" "(begin" -"(let-values(((obs_82)" -"(expand-context-observer ctx_78)))" -"(if obs_82" +"(let-values(((obs_576)" +"(expand-context-observer ctx_552)))" +"(if obs_576" "(let-values()" "(if(if can-log?_0" -"(log-tag? had-stxes?_0 ctx_78)" +"(log-tag? had-stxes?_554 ctx_552)" " #f)" "(let-values()" "(call-expand-observe" -" obs_82" +" obs_576" " 'tag" -" result-s_9))" +" result-s_571))" "(void)))" "(void)))" -"(if get-list?_0(list result-s_9) result-s_9)))))))" +"(if get-list?_0" +"(list result-s_571)" +" result-s_571)))))))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_83)" +"(let-values(((obs_582)" "(expand-context-observer" -" ctx_78)))" -"(if obs_83" +" ctx_552)))" +"(if obs_582" "(let-values()" "(let-values()" -"(call-expand-observe obs_83 'next)))" +"(call-expand-observe obs_582 'next)))" "(void)))" "(values))))" -"(let-values(((ids_32)(car idss_2)))" -"(let-values(((expanded-rhs_0)" -"(let-values(((temp151_1)(car rhss_2))" -"((temp152_1)" +"(let-values(((ids_577)(car idss_0)))" +"(let-values(((expanded-rhs_578)" +"(let-values(((temp151_583)(car rhss_0))" +"((temp152_584)" "(as-named-context" -" ctx_78" -" ids_32)))" +" ctx_552" +" ids_577)))" "(expand9.1" " #f" " #f" " #f" -" temp151_1" -" temp152_1))))" -"(let-values(((track-stx_0)(car track-stxs_3)))" -"(let-values(((local-or-forward-references?_0)" +" temp151_583" +" temp152_584))))" +"(let-values(((track-stx_579)(car track-stxs_0)))" +"(let-values(((local-or-forward-references?_580)" "(reference-record-forward-references?" -" frame-id_14)))" +" frame-id_551)))" "(let-values((()" "(begin" "(reference-record-bound!" -" frame-id_14" -"(car keyss_1))" +" frame-id_551" +"(car keyss_0))" "(values))))" -"(let-values(((forward-references?_0)" +"(let-values(((forward-references?_581)" "(reference-record-forward-references?" -" frame-id_14)))" -"(if(if(not local-or-forward-references?_0)" -" split?_0" +" frame-id_551)))" +"(if(if(not local-or-forward-references?_580)" +" split?_550" " #f)" "(let-values()" "(let-values((()" @@ -62813,12 +63112,12 @@ static const char *startup_source = "(error" " \"internal error: accumulated ids not empty\")))" "(values))))" -"(let-values(((exp-rest_0)" -"(loop_27" -"(cdr idss_2)" -"(cdr keyss_1)" -"(cdr rhss_2)" -"(cdr track-stxs_3)" +"(let-values(((exp-rest_585)" +"(loop_558" +"(cdr idss_0)" +"(cdr keyss_0)" +"(cdr rhss_0)" +"(cdr track-stxs_0)" " null" " null" " null" @@ -62826,71 +63125,71 @@ static const char *startup_source = " #f" " #t" " #f)))" -"(let-values(((result-s_10)" +"(let-values(((result-s_586)" "(if(expand-context-to-parsed?" -" ctx_78)" +" ctx_552)" "(parsed-let-values17.1" "(keep-properties-only" -" s_366)" -"(list ids_32)" +" s_553)" +"(list ids_577)" "(list" "(list" -"(car keyss_1)" -" expanded-rhs_0))" -" exp-rest_0)" -"(let-values(((track?153_0)" -" track?_2)" -"((s154_1)" -" s_366)" -"((temp155_2)" +"(car keyss_0)" +" expanded-rhs_578))" +" exp-rest_585)" +"(let-values(((track?153_588)" +" track?_0)" +"((s154_589)" +" s_553)" +"((temp155_590)" "(list*" "(core-id" " 'let-values" -" phase_138)" +" phase_557)" "(list" "(build-clause" -" ids_32" -" expanded-rhs_0" -" track-stx_0))" -" exp-rest_0)))" +" ids_577" +" expanded-rhs_578" +" track-stx_579))" +" exp-rest_585)))" "(rebuild5.1" -" track?153_0" -" s154_1" -" temp155_2)))))" +" track?153_588" +" s154_589" +" temp155_590)))))" "(begin" -"(let-values(((obs_84)" +"(let-values(((obs_591)" "(expand-context-observer" -" ctx_78)))" -"(if obs_84" +" ctx_552)))" +"(if obs_591" "(let-values()" "(if(if can-log?_0" "(log-tag?" -" had-stxes?_0" -" ctx_78)" +" had-stxes?_554" +" ctx_552)" " #f)" "(let-values()" "(call-expand-observe" -" obs_84" +" obs_591" " 'tag" -" result-s_10))" +" result-s_586))" "(void)))" "(void)))" "(if get-list?_0" -"(list result-s_10)" -" result-s_10))))))" -"(if(if(not forward-references?_0)" -"(let-values(((or-part_382) split?_0))" -"(if or-part_382" -" or-part_382" -"(null?(cdr idss_2))))" +"(list result-s_586)" +" result-s_586))))))" +"(if(if(not forward-references?_581)" +"(let-values(((or-part_592) split?_550))" +"(if or-part_592" +" or-part_592" +"(null?(cdr idss_0))))" " #f)" "(let-values()" -"(let-values(((exp-rest_1)" -"(loop_27" -"(cdr idss_2)" -"(cdr keyss_1)" -"(cdr rhss_2)" -"(cdr track-stxs_3)" +"(let-values(((exp-rest_593)" +"(loop_558" +"(cdr idss_0)" +"(cdr keyss_0)" +"(cdr rhss_0)" +"(cdr track-stxs_0)" " null" " null" " null" @@ -62898,3698 +63197,3738 @@ static const char *startup_source = " #f" " #t" " #f)))" -"(let-values(((result-s_11)" +"(let-values(((result-s_594)" "(if(expand-context-to-parsed?" -" ctx_78)" +" ctx_552)" "(parsed-letrec-values18.1" "(keep-properties-only" -" s_366)" +" s_553)" "(reverse$1" "(cons" -" ids_32" +" ids_577" " accum-idss_0))" "(reverse$1" "(cons" "(list" -"(car keyss_1)" -" expanded-rhs_0)" +"(car keyss_0)" +" expanded-rhs_578)" "(map2" " list" " accum-keyss_0" " accum-rhss_0)))" -" exp-rest_1)" -"(let-values(((track?156_0)" -" track?_2)" -"((s157_1)" -" s_366)" -"((temp158_1)" +" exp-rest_593)" +"(let-values(((track?156_596)" +" track?_0)" +"((s157_597)" +" s_553)" +"((temp158_598)" "(list*" "(core-id" " 'letrec-values" -" phase_138)" +" phase_557)" "(build-clauses" "(cons" -" ids_32" +" ids_577" " accum-idss_0)" "(cons" -" expanded-rhs_0" +" expanded-rhs_578" " accum-rhss_0)" "(cons" -" track-stx_0" +" track-stx_579" " accum-track-stxs_0))" -" exp-rest_1)))" +" exp-rest_593)))" "(rebuild5.1" -" track?156_0" -" s157_1" -" temp158_1)))))" +" track?156_596" +" s157_597" +" temp158_598)))))" "(begin" -"(let-values(((obs_85)" +"(let-values(((obs_599)" "(expand-context-observer" -" ctx_78)))" -"(if obs_85" +" ctx_552)))" +"(if obs_599" "(let-values()" "(if(if can-log?_0" "(log-tag?" -" had-stxes?_0" -" ctx_78)" +" had-stxes?_554" +" ctx_552)" " #f)" "(let-values()" "(call-expand-observe" -" obs_85" +" obs_599" " 'tag" -" result-s_11))" +" result-s_594))" "(void)))" "(void)))" "(if get-list?_0" -"(list result-s_11)" -" result-s_11)))))" +"(list result-s_594)" +" result-s_594)))))" "(let-values()" -"(loop_27" -"(cdr idss_2)" -"(cdr keyss_1)" -"(cdr rhss_2)" -"(cdr track-stxs_3)" -"(cons ids_32 accum-idss_0)" -"(cons(car keyss_1) accum-keyss_0)" -"(cons expanded-rhs_0 accum-rhss_0)" -"(cons track-stx_0 accum-track-stxs_0)" -" track?_2" +"(loop_558" +"(cdr idss_0)" +"(cdr keyss_0)" +"(cdr rhss_0)" +"(cdr track-stxs_0)" +"(cons ids_577 accum-idss_0)" +"(cons(car keyss_0) accum-keyss_0)" +"(cons expanded-rhs_578 accum-rhss_0)" +"(cons track-stx_579 accum-track-stxs_0)" +" track?_0" " get-list?_0" " can-log?_0)))))))))))))))))" -" loop_27)" -" idss_1" -" keyss_0" -" rhss_1" -" track-stxs_2" +" loop_558)" +" idss_546" +" keyss_547" +" rhss_548" +" track-stxs_549" " null" " null" " null" " null" -" track?_1" +" track?_556" " #f" " #t)))))))))))))))))" "(define-values" "(build-clauses)" -"(lambda(accum-idss_1 accum-rhss_1 accum-track-stxs_1)" -"(begin(map2 build-clause(reverse$1 accum-idss_1)(reverse$1 accum-rhss_1)(reverse$1 accum-track-stxs_1)))))" +"(lambda(accum-idss_0 accum-rhss_0 accum-track-stxs_0)" +"(begin(map2 build-clause(reverse$1 accum-idss_0)(reverse$1 accum-rhss_0)(reverse$1 accum-track-stxs_0)))))" "(define-values" "(build-clause)" -"(lambda(ids_33 rhs_19 track-stx_1)" +"(lambda(ids_0 rhs_0 track-stx_0)" "(begin" -"(let-values(((clause_2)(datum->syntax$1 #f(list ids_33 rhs_19))))" -"(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))" +"(let-values(((clause_646)(datum->syntax$1 #f(list ids_0 rhs_0))))" +"(if track-stx_0(syntax-track-origin$1 clause_646 track-stx_0) clause_646)))))" "(define-values" "(no-binds)" -"(lambda(expr_10 s_517 phase_139)" +"(lambda(expr_0 s_0 phase_0)" "(begin" -"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_139)))" +"(let-values(((s-runtime-stx_650)(syntax-shift-phase-level$1 runtime-stx phase_0)))" "(datum->syntax$1" -"(core-id '#%app phase_139)" -"(list(core-id 'begin phase_139) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_517)))))" +"(core-id '#%app phase_0)" +"(list(core-id 'begin phase_0) expr_0(list(datum->syntax$1 s-runtime-stx_650 'values)))" +" s_0)))))" "(define-values" "(log-tag?)" -"(lambda(had-stxes?_1 ctx_79)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_79)) #f))))" +"(lambda(had-stxes?_0 ctx_0)(begin(if had-stxes?_0(not(expand-context-only-immediate? ctx_0)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_86 ctx_80 s_396 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_0 ctx_0 s_0 val-idss_0 val-rhss_0 track-stxs_0 stx-clauses_0 done-bodys_0)" "(begin" " 'log-letrec-values" -"(let-values(((phase_140)(expand-context-phase ctx_80)))" -"(let-values(((clauses_0)" +"(let-values(((phase_661)(expand-context-phase ctx_0)))" +"(let-values(((clauses_662)" "(reverse$1" -"(let-values(((lst_327) val-idss_2)((lst_328) val-rhss_2)((lst_329) track-stxs_4))" +"(let-values(((lst_666) val-idss_0)((lst_667) val-rhss_0)((lst_668) track-stxs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_327)))" +"(let-values()(check-list lst_666)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_328)))" +"(let-values()(check-list lst_667)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_329)))" -"((letrec-values(((for-loop_290)" -"(lambda(fold-var_309 lst_330 lst_331 lst_332)" +"(let-values()(check-list lst_668)))" +"((letrec-values(((for-loop_669)" +"(lambda(fold-var_0 lst_0 lst_1 lst_2)" "(begin" " 'for-loop" -"(if(if(pair? lst_330)(if(pair? lst_331)(pair? lst_332) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_330))" -"((rest_191)(unsafe-cdr lst_330))" -"((val-rhs_0)(unsafe-car lst_331))" -"((rest_192)(unsafe-cdr lst_331))" -"((track-stx_2)(unsafe-car lst_332))" -"((rest_193)(unsafe-cdr lst_332)))" -"(let-values(((fold-var_310)" -"(let-values(((fold-var_311) fold-var_309))" -"(let-values(((fold-var_312)" +"(if(if(pair? lst_0)(if(pair? lst_1)(pair? lst_2) #f) #f)" +"(let-values(((val-ids_674)(unsafe-car lst_0))" +"((rest_675)(unsafe-cdr lst_0))" +"((val-rhs_676)(unsafe-car lst_1))" +"((rest_677)(unsafe-cdr lst_1))" +"((track-stx_678)(unsafe-car lst_2))" +"((rest_679)(unsafe-cdr lst_2)))" +"(let-values(((fold-var_680)" +"(let-values(((fold-var_681) fold-var_0))" +"(let-values(((fold-var_682)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1" " #f" -"(list val-ids_0 val-rhs_0)" -" track-stx_2))" -" fold-var_311))))" -"(values fold-var_312)))))" +"(list val-ids_674 val-rhs_676)" +" track-stx_678))" +" fold-var_681))))" +"(values fold-var_682)))))" "(if(not #f)" -"(for-loop_290 fold-var_310 rest_191 rest_192 rest_193)" -" fold-var_310)))" -" fold-var_309)))))" -" for-loop_290)" +"(for-loop_669 fold-var_680 rest_675 rest_677 rest_679)" +" fold-var_680)))" +" fold-var_0)))))" +" for-loop_669)" " null" -" lst_327" -" lst_328" -" lst_329))))))" -"(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_140)))" -"(let-values(((lv-s_0)" +" lst_666" +" lst_667" +" lst_668))))))" +"(let-values(((had-stxes?_663)(not(null? stx-clauses_0))))" +"(let-values(((lv-id_664)(core-id(if had-stxes?_663 'letrec-syntaxes+values 'letrec-values) phase_661)))" +"(let-values(((lv-s_665)" "(datum->syntax$1" " #f" -"(if had-stxes?_2" -"(list* lv-id_0 stx-clauses_2 clauses_0 done-bodys_2)" -"(list* lv-id_0 clauses_0 done-bodys_2))" -" s_396)))" +"(if had-stxes?_663" +"(list* lv-id_664 stx-clauses_0 clauses_662 done-bodys_0)" +"(list* lv-id_664 clauses_662 done-bodys_0))" +" s_0)))" "(begin" -"(call-expand-observe obs_86 'block->letrec(list lv-s_0))" -"(call-expand-observe obs_86 'visit lv-s_0)" -"(call-expand-observe obs_86 'resolve lv-id_0)" -"(call-expand-observe obs_86 'enter-prim lv-s_0)" -"(if had-stxes?_2" +"(call-expand-observe obs_0 'block->letrec(list lv-s_665))" +"(call-expand-observe obs_0 'visit lv-s_665)" +"(call-expand-observe obs_0 'resolve lv-id_664)" +"(call-expand-observe obs_0 'enter-prim lv-s_665)" +"(if had-stxes?_663" "(let-values()" "(begin" -"(call-expand-observe obs_86 'prim-letrec-syntaxes+values)" +"(call-expand-observe obs_0 'prim-letrec-syntaxes+values)" "(call-expand-observe" -" obs_86" +" obs_0" " 'letrec-syntaxes-renames" -" stx-clauses_2" -" clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_396))" -"(call-expand-observe obs_86 'prepare-env)" -"(call-expand-observe obs_86 'next-group)" -"(if(null? val-idss_2)" +" stx-clauses_0" +" clauses_662" +"(datum->syntax$1 #f done-bodys_0 s_0))" +"(call-expand-observe obs_0 'prepare-env)" +"(call-expand-observe obs_0 'next-group)" +"(if(null? val-idss_0)" "(void)" "(let-values()" "(begin" -"(call-expand-observe obs_86 'prim-letrec-values)" +"(call-expand-observe obs_0 'prim-letrec-values)" "(call-expand-observe" -" obs_86" +" obs_0" " 'let-renames" -" clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_396)))))))" +" clauses_662" +"(datum->syntax$1 #f done-bodys_0 s_0)))))))" "(let-values()" "(begin" -"(call-expand-observe obs_86 'prim-letrec-values)" +"(call-expand-observe obs_0 'prim-letrec-values)" "(call-expand-observe" -" obs_86" +" obs_0" " 'let-renames" -" clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_396))))))))))))))" +" clauses_662" +"(datum->syntax$1 #f done-bodys_0 s_0))))))))))))))" "(define-values" "(lambda-clause-expander)" -"(lambda(s_74 disarmed-s_5 formals_1 bodys_9 ctx_81 log-renames-tag_0)" +"(lambda(s_0 disarmed-s_0 formals_0 bodys_0 ctx_0 log-renames-tag_0)" "(begin" -"(let-values(((sc_37)(new-scope 'local)))" -"(let-values(((phase_85)(expand-context-phase ctx_81)))" -"(let-values(((ids_34)(parse-and-flatten-formals formals_1 sc_37 disarmed-s_5)))" +"(let-values(((sc_17)(new-scope 'local)))" +"(let-values(((phase_18)(expand-context-phase ctx_0)))" +"(let-values(((ids_19)(parse-and-flatten-formals formals_0 sc_17 disarmed-s_0)))" "(let-values((()" "(begin" -"(let-values(((ids33_0) ids_34)" -"((phase34_2) phase_85)" -"((s35_1) s_74)" -" ((temp36_8) \"argument name\"))" -"(check-no-duplicate-ids7.1 temp36_8 ids33_0 phase34_2 s35_1 unsafe-undefined))" +"(let-values(((ids33_28) ids_19)" +"((phase34_29) phase_18)" +"((s35_30) s_0)" +" ((temp36_31) \"argument name\"))" +"(check-no-duplicate-ids7.1 temp36_31 ids33_28 phase34_29 s35_30 unsafe-undefined))" "(values))))" -"(let-values(((counter_7)(root-expand-context-counter ctx_81)))" -"(let-values(((keys_7)" +"(let-values(((counter_20)(root-expand-context-counter ctx_0)))" +"(let-values(((keys_21)" "(reverse$1" -"(let-values(((lst_88) ids_34))" +"(let-values(((lst_32) ids_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_88)))" -"((letrec-values(((for-loop_191)" -"(lambda(fold-var_157 lst_163)" +"(let-values()(check-list lst_32)))" +"((letrec-values(((for-loop_33)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_163)" -"(let-values(((id_114)(unsafe-car lst_163))" -"((rest_84)(unsafe-cdr lst_163)))" -"(let-values(((fold-var_33)" -"(let-values(((fold-var_34) fold-var_157))" -"(let-values(((fold-var_158)" +"(if(pair? lst_0)" +"(let-values(((id_36)(unsafe-car lst_0))" +"((rest_37)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_38)" +"(let-values(((fold-var_39) fold-var_0))" +"(let-values(((fold-var_40)" "(let-values()" "(cons" "(let-values()" -"(let-values(((id37_0)" -" id_114)" -"((phase38_0)" -" phase_85)" -"((counter39_0)" -" counter_7)" -"((s40_0)" -" s_74))" +"(let-values(((id37_42)" +" id_36)" +"((phase38_43)" +" phase_18)" +"((counter39_44)" +" counter_20)" +"((s40_45)" +" s_0))" "(add-local-binding!37.1" " #f" -" s40_0" -" id37_0" -" phase38_0" -" counter39_0)))" -" fold-var_34))))" -"(values fold-var_158)))))" +" s40_45" +" id37_42" +" phase38_43" +" counter39_44)))" +" fold-var_39))))" +"(values fold-var_40)))))" "(if(not #f)" -"(for-loop_191 fold-var_33 rest_84)" -" fold-var_33)))" -" fold-var_157)))))" -" for-loop_191)" +"(for-loop_33 fold-var_38 rest_37)" +" fold-var_38)))" +" fold-var_0)))))" +" for-loop_33)" " null" -" lst_88))))))" -"(let-values(((body-env_0)" -"(let-values(((lst_76) keys_7)((lst_91) ids_34))" +" lst_32))))))" +"(let-values(((body-env_22)" +"(let-values(((lst_46) keys_21)((lst_47) ids_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_76)))" +"(let-values()(check-list lst_46)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_91)))" -"((letrec-values(((for-loop_49)" -"(lambda(env_25 lst_78 lst_58)" +"(let-values()(check-list lst_47)))" +"((letrec-values(((for-loop_48)" +"(lambda(env_0 lst_0 lst_1)" "(begin" " 'for-loop" -"(if(if(pair? lst_78)(pair? lst_58) #f)" -"(let-values(((key_90)(unsafe-car lst_78))" -"((rest_194)(unsafe-cdr lst_78))" -"((id_115)(unsafe-car lst_58))" -"((rest_195)(unsafe-cdr lst_58)))" -"(let-values(((env_26)" -"(let-values(((env_27) env_25))" -"(let-values(((env_28)" +"(if(if(pair? lst_0)(pair? lst_1) #f)" +"(let-values(((key_52)(unsafe-car lst_0))" +"((rest_53)(unsafe-cdr lst_0))" +"((id_54)(unsafe-car lst_1))" +"((rest_55)(unsafe-cdr lst_1)))" +"(let-values(((env_56)" +"(let-values(((env_57) env_0))" +"(let-values(((env_58)" "(let-values()" "(env-extend" -" env_27" -" key_90" +" env_57" +" key_52" "(local-variable1.1" -" id_115)))))" -"(values env_28)))))" +" id_54)))))" +"(values env_58)))))" "(if(not #f)" -"(for-loop_49 env_26 rest_194 rest_195)" -" env_26)))" -" env_25)))))" -" for-loop_49)" -"(expand-context-env ctx_81)" -" lst_76" -" lst_91)))))" -"(let-values(((sc-formals_0)(add-scope formals_1 sc_37)))" -"(let-values(((sc-bodys_0)" +"(for-loop_48 env_56 rest_53 rest_55)" +" env_56)))" +" env_0)))))" +" for-loop_48)" +"(expand-context-env ctx_0)" +" lst_46" +" lst_47)))))" +"(let-values(((sc-formals_23)(add-scope formals_0 sc_17)))" +"(let-values(((sc-bodys_24)" "(reverse$1" -"(let-values(((lst_17) bodys_9))" +"(let-values(((lst_59) bodys_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_17)))" -"((letrec-values(((for-loop_10)" -"(lambda(fold-var_217 lst_18)" +"(let-values()(check-list lst_59)))" +"((letrec-values(((for-loop_60)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_18)" -"(let-values(((body_10)(unsafe-car lst_18))" -"((rest_5)(unsafe-cdr lst_18)))" -"(let-values(((fold-var_218)" -"(let-values(((fold-var_75)" -" fold-var_217))" +"(if(pair? lst_0)" +"(let-values(((body_63)(unsafe-car lst_0))" +"((rest_64)(unsafe-cdr lst_0)))" "(let-values(((fold-var_65)" +"(let-values(((fold-var_66)" +" fold-var_0))" +"(let-values(((fold-var_67)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" body_10" -" sc_37))" -" fold-var_75))))" -"(values fold-var_65)))))" +" body_63" +" sc_17))" +" fold-var_66))))" +"(values fold-var_67)))))" "(if(not #f)" -"(for-loop_10 fold-var_218 rest_5)" -" fold-var_218)))" -" fold-var_217)))))" -" for-loop_10)" +"(for-loop_60 fold-var_65 rest_64)" +" fold-var_65)))" +" fold-var_0)))))" +" for-loop_60)" " null" -" lst_17))))))" +" lst_59))))))" "(let-values((()" "(begin" -"(let-values(((obs_87)(expand-context-observer ctx_81)))" -"(if obs_87" +"(let-values(((obs_68)(expand-context-observer ctx_0)))" +"(if obs_68" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_87" +" obs_68" " log-renames-tag_0" -" sc-formals_0" -"(datum->syntax$1 #f sc-bodys_0))))" +" sc-formals_23" +"(datum->syntax$1 #f sc-bodys_24))))" "(void)))" "(values))))" -"(let-values(((body-ctx_4)" -"(let-values(((v_256) ctx_81))" -"(let-values(((the-struct_96) v_256))" -"(if(expand-context/outer? the-struct_96)" -"(let-values(((env41_0) body-env_0)" -"((scopes42_0)(cons sc_37(expand-context-scopes ctx_81)))" -"((binding-layer43_0)" -"(increment-binding-layer ids_34 ctx_81 sc_37))" -"((frame-id44_0) #f)" -"((inner45_0)(root-expand-context/outer-inner v_256)))" +"(let-values(((body-ctx_25)" +"(let-values(((v_69) ctx_0))" +"(let-values(((the-struct_70) v_69))" +"(if(expand-context/outer? the-struct_70)" +"(let-values(((env41_71) body-env_22)" +"((scopes42_72)(cons sc_17(expand-context-scopes ctx_0)))" +"((binding-layer43_73)" +"(increment-binding-layer ids_19 ctx_0 sc_17))" +"((frame-id44_74) #f)" +"((inner45_75)(root-expand-context/outer-inner v_69)))" "(expand-context/outer1.1" -" inner45_0" -"(root-expand-context/outer-post-expansion the-struct_96)" -"(root-expand-context/outer-use-site-scopes the-struct_96)" -" frame-id44_0" -"(expand-context/outer-context the-struct_96)" -" env41_0" -" scopes42_0" -"(expand-context/outer-def-ctx-scopes the-struct_96)" -" binding-layer43_0" -"(expand-context/outer-reference-records the-struct_96)" -"(expand-context/outer-only-immediate? the-struct_96)" -"(expand-context/outer-need-eventually-defined the-struct_96)" -"(expand-context/outer-current-introduction-scopes the-struct_96)" -"(expand-context/outer-current-use-scopes the-struct_96)" -"(expand-context/outer-name the-struct_96)))" +" inner45_75" +"(root-expand-context/outer-post-expansion the-struct_70)" +"(root-expand-context/outer-use-site-scopes the-struct_70)" +" frame-id44_74" +"(expand-context/outer-context the-struct_70)" +" env41_71" +" scopes42_72" +"(expand-context/outer-def-ctx-scopes the-struct_70)" +" binding-layer43_73" +"(expand-context/outer-reference-records the-struct_70)" +"(expand-context/outer-only-immediate? the-struct_70)" +"(expand-context/outer-need-eventually-defined the-struct_70)" +"(expand-context/outer-current-introduction-scopes the-struct_70)" +"(expand-context/outer-current-use-scopes the-struct_70)" +"(expand-context/outer-name the-struct_70)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_96))))))" -"(let-values(((exp-body_2)" -"(let-values(((sc-bodys46_0) sc-bodys_0)" -"((body-ctx47_0) body-ctx_4)" -"((temp48_2)" -"(let-values(((ctx49_0) ctx_81)((s50_0) s_74)((temp51_3) #t))" -"(keep-as-needed119.1 #f temp51_3 #f ctx49_0 s50_0))))" -"(expand-body7.1 temp48_2 #f sc-bodys46_0 body-ctx47_0))))" +" the-struct_70))))))" +"(let-values(((exp-body_26)" +"(let-values(((sc-bodys46_77) sc-bodys_24)" +"((body-ctx47_78) body-ctx_25)" +"((temp48_79)" +"(let-values(((ctx49_81) ctx_0)((s50_82) s_0)((temp51_83) #t))" +"(keep-as-needed119.1 #f temp51_83 #f ctx49_81 s50_82))))" +"(expand-body7.1 temp48_79 #f sc-bodys46_77 body-ctx47_78))))" "(values" -"(if(expand-context-to-parsed? ctx_81)" -"(unflatten-like-formals keys_7 formals_1)" -" sc-formals_0)" -" exp-body_2))))))))))))))))" +"(if(expand-context-to-parsed? ctx_0)" +"(unflatten-like-formals keys_21 formals_0)" +" sc-formals_23)" +" exp-body_26))))))))))))))))" "(void" "(add-core-form!*" " 'lambda" -"(lambda(s_13 ctx_82)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(let-values(((obs_88)(expand-context-observer ctx_82)))" -"(if obs_88(let-values()(let-values()(call-expand-observe obs_88 'prim-lambda)))(void)))" +"(let-values(((obs_110)(expand-context-observer ctx_0)))" +"(if obs_110(let-values()(let-values()(call-expand-observe obs_110 'prim-lambda)))(void)))" "(values))))" -"(let-values(((disarmed-s_6)(syntax-disarm$1 s_13)))" -"(let-values(((ok?_37 lambda52_0 formals53_0 body54_0)" -"(let-values(((s_518) disarmed-s_6))" -"(let-values(((orig-s_40) s_518))" -"(let-values(((lambda52_1 formals53_1 body54_1)" -"(let-values(((s_172)(if(syntax?$1 s_518)(syntax-e$1 s_518) s_518)))" -"(if(pair? s_172)" -"(let-values(((lambda55_0)(let-values(((s_45)(car s_172))) s_45))" -"((formals56_0 body57_0)" -"(let-values(((s_84)(cdr s_172)))" -"(let-values(((s_174)" -"(if(syntax?$1 s_84)" -"(syntax-e$1 s_84)" -" s_84)))" -"(if(pair? s_174)" -"(let-values(((formals58_0)" -"(let-values(((s_175)(car s_174)))" -" s_175))" -"((body59_0)" -"(let-values(((s_176)(cdr s_174)))" -"(let-values(((s_452)" -"(if(syntax?$1 s_176)" -"(syntax-e$1 s_176)" -" s_176)))" -"(let-values(((flat-s_28)" +"(let-values(((disarmed-s_86)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_87 lambda52_88 formals53_89 body54_90)" +"(let-values(((s_111) disarmed-s_86))" +"(let-values(((orig-s_112) s_111))" +"(let-values(((lambda52_113 formals53_114 body54_115)" +"(let-values(((s_116)(if(syntax?$1 s_111)(syntax-e$1 s_111) s_111)))" +"(if(pair? s_116)" +"(let-values(((lambda55_117)(let-values(((s_120)(car s_116))) s_120))" +"((formals56_118 body57_119)" +"(let-values(((s_121)(cdr s_116)))" +"(let-values(((s_122)" +"(if(syntax?$1 s_121)" +"(syntax-e$1 s_121)" +" s_121)))" +"(if(pair? s_122)" +"(let-values(((formals58_123)" +"(let-values(((s_125)(car s_122)))" +" s_125))" +"((body59_124)" +"(let-values(((s_126)(cdr s_122)))" +"(let-values(((s_127)" +"(if(syntax?$1 s_126)" +"(syntax-e$1 s_126)" +" s_126)))" +"(let-values(((flat-s_128)" "(to-syntax-list.1" -" s_452)))" -"(if(not flat-s_28)" +" s_127)))" +"(if(not flat-s_128)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_40))" -"(if(null? flat-s_28)" +" orig-s_112))" +"(if(null? flat-s_128)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_40))" +" orig-s_112))" "(let-values()" -" flat-s_28))))))))" -"(values formals58_0 body59_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_40))))))" -"(values lambda55_0 formals56_0 body57_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_40)))))" -"(values #t lambda52_1 formals53_1 body54_1))))))" -"(let-values(((rebuild-s_4)" -"(let-values(((ctx60_1) ctx_82)((s61_0) s_13)((temp62_4) #t))" -"(keep-as-needed119.1 #f #f temp62_4 ctx60_1 s61_0))))" -"(let-values(((formals_2 body_11)" -"(lambda-clause-expander s_13 disarmed-s_6 formals53_0 body54_0 ctx_82 'lambda-renames)))" -"(if(expand-context-to-parsed? ctx_82)" -"(parsed-lambda5.1 rebuild-s_4 formals_2 body_11)" -"(let-values(((rebuild-s63_0) rebuild-s_4)((temp64_6)(list* lambda52_0 formals_2 body_11)))" -"(rebuild5.1 #t rebuild-s63_0 temp64_6)))))))))))" +" flat-s_128))))))))" +"(values formals58_123 body59_124))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_112))))))" +"(values lambda55_117 formals56_118 body57_119))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_112)))))" +"(values #t lambda52_113 formals53_114 body54_115))))))" +"(let-values(((rebuild-s_107)" +"(let-values(((ctx60_130) ctx_0)((s61_131) s_0)((temp62_132) #t))" +"(keep-as-needed119.1 #f #f temp62_132 ctx60_130 s61_131))))" +"(let-values(((formals_108 body_109)" +"(lambda-clause-expander s_0 disarmed-s_86 formals53_89 body54_90 ctx_0 'lambda-renames)))" +"(if(expand-context-to-parsed? ctx_0)" +"(parsed-lambda5.1 rebuild-s_107 formals_108 body_109)" +"(let-values(((rebuild-s63_133) rebuild-s_107)((temp64_134)(list* lambda52_88 formals_108 body_109)))" +"(rebuild5.1 #t rebuild-s63_133 temp64_134)))))))))))" "(void" "(add-core-form!*" " 'λ" -"(lambda(s_26)" -"(let-values(((ok?_38 lam-id65_0 formals66_0 _67_0)" -"(let-values(((s_519) s_26))" -"(let-values(((orig-s_41) s_519))" -"(let-values(((lam-id65_1 formals66_1 _67_1)" -"(let-values(((s_496)(if(syntax?$1 s_519)(syntax-e$1 s_519) s_519)))" -"(if(pair? s_496)" -"(let-values(((lam-id68_0)(let-values(((s_506)(car s_496))) s_506))" -"((formals69_0 _70_0)" -"(let-values(((s_507)(cdr s_496)))" -"(let-values(((s_52)" -"(if(syntax?$1 s_507)(syntax-e$1 s_507) s_507)))" -"(if(pair? s_52)" -"(let-values(((formals71_0)" -"(let-values(((s_53)(car s_52))) s_53))" -"((_72_0)" -"(let-values(((s_54)(cdr s_52)))" -"(let-values(((s_312)" -"(if(syntax?$1 s_54)" -"(syntax-e$1 s_54)" -" s_54)))" -"(let-values(((flat-s_29)" -"(to-syntax-list.1 s_312)))" -"(if(not flat-s_29)" +"(lambda(s_0)" +"(let-values(((ok?_136 lam-id65_137 formals66_138 _67_139)" +"(let-values(((s_159) s_0))" +"(let-values(((orig-s_160) s_159))" +"(let-values(((lam-id65_161 formals66_162 _67_163)" +"(let-values(((s_164)(if(syntax?$1 s_159)(syntax-e$1 s_159) s_159)))" +"(if(pair? s_164)" +"(let-values(((lam-id68_165)(let-values(((s_168)(car s_164))) s_168))" +"((formals69_166 _70_167)" +"(let-values(((s_169)(cdr s_164)))" +"(let-values(((s_170)" +"(if(syntax?$1 s_169)(syntax-e$1 s_169) s_169)))" +"(if(pair? s_170)" +"(let-values(((formals71_171)" +"(let-values(((s_173)(car s_170))) s_173))" +"((_72_172)" +"(let-values(((s_174)(cdr s_170)))" +"(let-values(((s_175)" +"(if(syntax?$1 s_174)" +"(syntax-e$1 s_174)" +" s_174)))" +"(let-values(((flat-s_176)" +"(to-syntax-list.1 s_175)))" +"(if(not flat-s_176)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_41))" -"(if(null? flat-s_29)" +" orig-s_160))" +"(if(null? flat-s_176)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_41))" -"(let-values() flat-s_29))))))))" -"(values formals71_0 _72_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_41))))))" -"(values lam-id68_0 formals69_0 _70_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))" -"(values #t lam-id65_1 formals66_1 _67_1))))))" -"(let-values(((ids_35)(parse-and-flatten-formals formals66_0 #f s_26)))" -"(let-values(((ctx_83)(let-values(((temp77_3) #t))(get-current-expand-context16.1 temp77_3 'unexpected))))" -"(let-values(((phase_94)(if ctx_83(expand-context-phase ctx_83) 0)))" +" orig-s_160))" +"(let-values() flat-s_176))))))))" +"(values formals71_171 _72_172))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_160))))))" +"(values lam-id68_165 formals69_166 _70_167))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_160)))))" +"(values #t lam-id65_161 formals66_162 _67_163))))))" +"(let-values(((ids_156)(parse-and-flatten-formals formals66_138 #f s_0)))" +"(let-values(((ctx_157)" +"(let-values(((temp77_178) #t))(get-current-expand-context16.1 temp77_178 'unexpected))))" +"(let-values(((phase_158)(if ctx_157(expand-context-phase ctx_157) 0)))" "(begin" -" (let-values (((ids73_0) ids_35) ((phase74_2) phase_94) ((s75_0) s_26) ((temp76_3) \"argument name\"))" -"(check-no-duplicate-ids7.1 temp76_3 ids73_0 phase74_2 s75_0 unsafe-undefined))" +"(let-values(((ids73_180) ids_156)" +"((phase74_181) phase_158)" +"((s75_182) s_0)" +" ((temp76_183) \"argument name\"))" +"(check-no-duplicate-ids7.1 temp76_183 ids73_180 phase74_181 s75_182 unsafe-undefined))" "(datum->syntax$1" -" s_26" +" s_0" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_94) 'lambda lam-id65_0 lam-id65_0)" -"(cdr(syntax-e$1 s_26)))" -" s_26" -" s_26)))))))))" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_158) 'lambda lam-id65_137 lam-id65_137)" +"(cdr(syntax-e$1 s_0)))" +" s_0" +" s_0)))))))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_455 ctx_84)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(let-values(((obs_89)(expand-context-observer ctx_84)))" -"(if obs_89" -"(let-values()(let-values()(call-expand-observe obs_89 'prim-case-lambda)))" +"(let-values(((obs_225)(expand-context-observer ctx_0)))" +"(if obs_225" +"(let-values()(let-values()(call-expand-observe obs_225 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_455)))" -"(let-values(((ok?_39 case-lambda78_0 formals79_0 body80_0)" -"(let-values(((s_520) disarmed-s_7))" -"(let-values(((orig-s_42) s_520))" -"(let-values(((case-lambda78_1 formals79_1 body80_1)" -"(let-values(((s_415)(if(syntax?$1 s_520)(syntax-e$1 s_520) s_520)))" -"(if(pair? s_415)" -"(let-values(((case-lambda81_0)(let-values(((s_521)(car s_415))) s_521))" -"((formals82_0 body83_0)" -"(let-values(((s_407)(cdr s_415)))" -"(let-values(((s_522)" -"(if(syntax?$1 s_407)" -"(syntax-e$1 s_407)" -" s_407)))" -"(let-values(((flat-s_30)(to-syntax-list.1 s_522)))" -"(if(not flat-s_30)" +"(let-values(((disarmed-s_186)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_187 case-lambda78_188 formals79_189 body80_190)" +"(let-values(((s_226) disarmed-s_186))" +"(let-values(((orig-s_227) s_226))" +"(let-values(((case-lambda78_228 formals79_229 body80_230)" +"(let-values(((s_231)(if(syntax?$1 s_226)(syntax-e$1 s_226) s_226)))" +"(if(pair? s_231)" +"(let-values(((case-lambda81_232)" +"(let-values(((s_235)(car s_231))) s_235))" +"((formals82_233 body83_234)" +"(let-values(((s_236)(cdr s_231)))" +"(let-values(((s_237)" +"(if(syntax?$1 s_236)" +"(syntax-e$1 s_236)" +" s_236)))" +"(let-values(((flat-s_238)(to-syntax-list.1 s_237)))" +"(if(not flat-s_238)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_227))" "(let-values()" -"(let-values(((formals_3 body_12)" -"(let-values(((lst_333) flat-s_30))" +"(let-values(((formals_239 body_240)" +"(let-values(((lst_241) flat-s_238))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_333)))" -"((letrec-values(((for-loop_291)" -"(lambda(formals_4" -" body_13" -" lst_334)" +"(check-list lst_241)))" +"((letrec-values(((for-loop_242)" +"(lambda(formals_0" +" body_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_334)" -"(let-values(((s_209)" +" lst_0)" +"(let-values(((s_246)" "(unsafe-car" -" lst_334))" -"((rest_196)" +" lst_0))" +"((rest_247)" "(unsafe-cdr" -" lst_334)))" -"(let-values(((formals_5" -" body_14)" -"(let-values(((formals_6)" -" formals_4)" -"((body_15)" -" body_13))" -"(let-values(((formals_7" -" body_16)" +" lst_0)))" +"(let-values(((formals_248" +" body_249)" +"(let-values(((formals_250)" +" formals_0)" +"((body_251)" +" body_0))" +"(let-values(((formals_252" +" body_253)" "(let-values()" -"(let-values(((formals90_0" -" body91_0)" +"(let-values(((formals90_254" +" body91_255)" "(let-values()" -"(let-values(((s_523)" +"(let-values(((s_256)" "(if(syntax?$1" -" s_209)" +" s_246)" "(syntax-e$1" -" s_209)" -" s_209)))" +" s_246)" +" s_246)))" "(if(pair?" -" s_523)" -"(let-values(((formals84_0)" -"(let-values(((s_524)" +" s_256)" +"(let-values(((formals84_257)" +"(let-values(((s_259)" "(car" -" s_523)))" -" s_524))" -"((body85_0)" -"(let-values(((s_525)" +" s_256)))" +" s_259))" +"((body85_258)" +"(let-values(((s_260)" "(cdr" -" s_523)))" -"(let-values(((s_526)" +" s_256)))" +"(let-values(((s_261)" "(if(syntax?$1" -" s_525)" +" s_260)" "(syntax-e$1" -" s_525)" -" s_525)))" -"(let-values(((flat-s_31)" +" s_260)" +" s_260)))" +"(let-values(((flat-s_262)" "(to-syntax-list.1" -" s_526)))" +" s_261)))" "(if(not" -" flat-s_31)" +" flat-s_262)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_42))" +" orig-s_227))" "(if(null?" -" flat-s_31)" +" flat-s_262)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_42))" +" orig-s_227))" "(let-values()" -" flat-s_31))))))))" +" flat-s_262))))))))" "(values" -" formals84_0" -" body85_0))" +" formals84_257" +" body85_258))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_42))))))" +" orig-s_227))))))" "(values" "(cons" -" formals90_0" -" formals_6)" +" formals90_254" +" formals_250)" "(cons" -" body91_0" -" body_15))))))" +" body91_255" +" body_251))))))" "(values" -" formals_7" -" body_16)))))" +" formals_252" +" body_253)))))" "(if(not" " #f)" -"(for-loop_291" -" formals_5" -" body_14" -" rest_196)" +"(for-loop_242" +" formals_248" +" body_249" +" rest_247)" "(values" -" formals_5" -" body_14))))" +" formals_248" +" body_249))))" "(values" -" formals_4" -" body_13))))))" -" for-loop_291)" +" formals_0" +" body_0))))))" +" for-loop_242)" " null" " null" -" lst_333)))))" +" lst_241)))))" "(values" -"(reverse$1 formals_3)" -"(reverse$1 body_12))))))))))" -"(values case-lambda81_0 formals82_0 body83_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" -"(values #t case-lambda78_1 formals79_1 body80_1))))))" -"(let-values(((ok?_40 case-lambda86_0 clause87_0)" -"(let-values(((s_527) disarmed-s_7))" -"(let-values(((orig-s_43) s_527))" -"(let-values(((case-lambda86_1 clause87_1)" -"(let-values(((s_459)(if(syntax?$1 s_527)(syntax-e$1 s_527) s_527)))" -"(if(pair? s_459)" -"(let-values(((case-lambda88_0)" -"(let-values(((s_211)(car s_459))) s_211))" -"((clause89_0)" -"(let-values(((s_528)(cdr s_459)))" -"(let-values(((s_529)" -"(if(syntax?$1 s_528)" -"(syntax-e$1 s_528)" -" s_528)))" -"(let-values(((flat-s_32)(to-syntax-list.1 s_529)))" -"(if(not flat-s_32)" +"(reverse$1 formals_239)" +"(reverse$1 body_240))))))))))" +"(values case-lambda81_232 formals82_233 body83_234))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_227)))))" +"(values #t case-lambda78_228 formals79_229 body80_230))))))" +"(let-values(((ok?_207 case-lambda86_208 clause87_209)" +"(let-values(((s_263) disarmed-s_186))" +"(let-values(((orig-s_264) s_263))" +"(let-values(((case-lambda86_265 clause87_266)" +"(let-values(((s_267)(if(syntax?$1 s_263)(syntax-e$1 s_263) s_263)))" +"(if(pair? s_267)" +"(let-values(((case-lambda88_268)" +"(let-values(((s_270)(car s_267))) s_270))" +"((clause89_269)" +"(let-values(((s_271)(cdr s_267)))" +"(let-values(((s_272)" +"(if(syntax?$1 s_271)" +"(syntax-e$1 s_271)" +" s_271)))" +"(let-values(((flat-s_273)(to-syntax-list.1 s_272)))" +"(if(not flat-s_273)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" -"(let-values() flat-s_32)))))))" -"(values case-lambda88_0 clause89_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" -"(values #t case-lambda86_1 clause87_1))))))" -"(let-values(((rebuild-s_5)" -"(let-values(((ctx92_0) ctx_84)((s93_0) s_455)((temp94_0) #t))" -"(keep-as-needed119.1 #f #f temp94_0 ctx92_0 s93_0))))" -"(let-values(((clauses_1)" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_264))" +"(let-values() flat-s_273)))))))" +"(values case-lambda88_268 clause89_269))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_264)))))" +"(values #t case-lambda86_265 clause87_266))))))" +"(let-values(((rebuild-s_223)" +"(let-values(((ctx92_275) ctx_0)((s93_276) s_0)((temp94_277) #t))" +"(keep-as-needed119.1 #f #f temp94_277 ctx92_275 s93_276))))" +"(let-values(((clauses_224)" "(reverse$1" -"(let-values(((lst_111) formals79_0)((lst_204) body80_0)((lst_112) clause87_0))" +"(let-values(((lst_278) formals79_189)((lst_279) body80_190)((lst_280) clause87_209))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_111)))" +"(let-values()(check-list lst_278)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_204)))" +"(let-values()(check-list lst_279)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_112)))" -"((letrec-values(((for-loop_31)" -"(lambda(fold-var_197 lst_335 lst_336 lst_337)" +"(let-values()(check-list lst_280)))" +"((letrec-values(((for-loop_281)" +"(lambda(fold-var_0 lst_0 lst_1 lst_2)" "(begin" " 'for-loop" -"(if(if(pair? lst_335)" -"(if(pair? lst_336)(pair? lst_337) #f)" -" #f)" -"(let-values(((formals_8)(unsafe-car lst_335))" -"((rest_197)(unsafe-cdr lst_335))" -"((body_17)(unsafe-car lst_336))" -"((rest_198)(unsafe-cdr lst_336))" -"((clause_3)(unsafe-car lst_337))" -"((rest_199)(unsafe-cdr lst_337)))" -"(let-values(((fold-var_313)" -"(let-values(((fold-var_314) fold-var_197))" -"(let-values(((fold-var_315)" +"(if(if(pair? lst_0)(if(pair? lst_1)(pair? lst_2) #f) #f)" +"(let-values(((formals_286)(unsafe-car lst_0))" +"((rest_287)(unsafe-cdr lst_0))" +"((body_288)(unsafe-car lst_1))" +"((rest_289)(unsafe-cdr lst_1))" +"((clause_290)(unsafe-car lst_2))" +"((rest_291)(unsafe-cdr lst_2)))" +"(let-values(((fold-var_292)" +"(let-values(((fold-var_293) fold-var_0))" +"(let-values(((fold-var_294)" "(let-values()" "(cons" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_90)" +"(let-values(((obs_298)" "(expand-context-observer" -" ctx_84)))" -"(if obs_90" +" ctx_0)))" +"(if obs_298" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_90" +" obs_298" " 'next)))" "(void)))" "(values))))" -"(let-values(((rebuild-clause_0)" -"(let-values(((ctx95_0)" -" ctx_84)" -"((clause96_0)" -" clause_3))" +"(let-values(((rebuild-clause_295)" +"(let-values(((ctx95_299)" +" ctx_0)" +"((clause96_300)" +" clause_290))" "(keep-as-needed119.1" " #f" " #f" " #f" -" ctx95_0" -" clause96_0))))" -"(let-values(((exp-formals_0" -" exp-body_3)" +" ctx95_299" +" clause96_300))))" +"(let-values(((exp-formals_296" +" exp-body_297)" "(lambda-clause-expander" -" s_455" -" disarmed-s_7" -" formals_8" -" body_17" -" ctx_84" +" s_0" +" disarmed-s_186" +" formals_286" +" body_288" +" ctx_0" " 'lambda-renames)))" "(if(expand-context-to-parsed?" -" ctx_84)" +" ctx_0)" "(list" -" exp-formals_0" -" exp-body_3)" -"(let-values(((rebuild-clause97_0)" -" rebuild-clause_0)" -"((temp98_4)" +" exp-formals_296" +" exp-body_297)" +"(let-values(((rebuild-clause97_301)" +" rebuild-clause_295)" +"((temp98_302)" "(list*" -" exp-formals_0" -" exp-body_3)))" +" exp-formals_296" +" exp-body_297)))" "(rebuild5.1" " #t" -" rebuild-clause97_0" -" temp98_4)))))))" -" fold-var_314))))" -"(values fold-var_315)))))" +" rebuild-clause97_301" +" temp98_302)))))))" +" fold-var_293))))" +"(values fold-var_294)))))" "(if(not #f)" -"(for-loop_31 fold-var_313 rest_197 rest_198 rest_199)" -" fold-var_313)))" -" fold-var_197)))))" -" for-loop_31)" +"(for-loop_281 fold-var_292 rest_287 rest_289 rest_291)" +" fold-var_292)))" +" fold-var_0)))))" +" for-loop_281)" " null" -" lst_111" -" lst_204" -" lst_112))))))" -"(if(expand-context-to-parsed? ctx_84)" -"(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" -"(let-values(((rebuild-s99_0) rebuild-s_5)((temp100_2)(list* case-lambda78_0 clauses_1)))" -"(rebuild5.1 #t rebuild-s99_0 temp100_2))))))))))))" +" lst_278" +" lst_279" +" lst_280))))))" +"(if(expand-context-to-parsed? ctx_0)" +"(parsed-case-lambda6.1 rebuild-s_223 clauses_224)" +"(let-values(((rebuild-s99_303) rebuild-s_223)((temp100_304)(list* case-lambda78_188 clauses_224)))" +"(rebuild5.1 #t rebuild-s99_303 temp100_304))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_38 s_530)" +"(lambda(all-formals_0 sc_0 s_0)" "(begin" -"((letrec-values(((loop_119)" -"(lambda(formals_9)" +"((letrec-values(((loop_308)" +"(lambda(formals_0)" "(begin" " 'loop" -"(if(identifier? formals_9)" -"(let-values()(list(add-scope formals_9 sc_38)))" -"(if(syntax?$1 formals_9)" +"(if(identifier? formals_0)" +"(let-values()(list(add-scope formals_0 sc_0)))" +"(if(syntax?$1 formals_0)" "(let-values()" -"(let-values(((p_78)(syntax-e$1 formals_9)))" -"(if(pair? p_78)" -"(let-values()(loop_119 p_78))" -"(if(null? p_78)" +"(let-values(((p_310)(syntax-e$1 formals_0)))" +"(if(pair? p_310)" +"(let-values()(loop_308 p_310))" +"(if(null? p_310)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_530 p_78))))))" -"(if(pair? formals_9)" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_0 p_310))))))" +"(if(pair? formals_0)" "(let-values()" "(begin" -"(if(identifier?(car formals_9))" +"(if(identifier?(car formals_0))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_530 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_0 (car formals_0))))" "(cons" -"(if sc_38(add-scope(car formals_9) sc_38)(car formals_9))" -"(loop_119(cdr formals_9)))))" -"(if(null? formals_9)" +"(if sc_0(add-scope(car formals_0) sc_0)(car formals_0))" +"(loop_308(cdr formals_0)))))" +"(if(null? formals_0)" "(let-values() null)" "(let-values()" -" (raise-syntax-error$1 \"bad argument sequence\" s_530 all-formals_0))))))))))" -" loop_119)" +" (raise-syntax-error$1 \"bad argument sequence\" s_0 all-formals_0))))))))))" +" loop_308)" " all-formals_0))))" "(define-values" "(unflatten-like-formals)" -"(lambda(keys_8 formals_10)" +"(lambda(keys_0 formals_0)" "(begin" -"((letrec-values(((loop_120)" -"(lambda(keys_9 formals_11)" +"((letrec-values(((loop_313)" +"(lambda(keys_1 formals_1)" "(begin" " 'loop" -"(if(null? formals_11)" +"(if(null? formals_1)" "(let-values() null)" -"(if(pair? formals_11)" -"(let-values()(cons(car keys_9)(loop_120(cdr keys_9)(cdr formals_11))))" -"(if(syntax?$1 formals_11)" -"(let-values()(loop_120 keys_9(syntax-e$1 formals_11)))" -"(let-values()(car keys_9)))))))))" -" loop_120)" -" keys_8" -" formals_10))))" +"(if(pair? formals_1)" +"(let-values()(cons(car keys_1)(loop_313(cdr keys_1)(cdr formals_1))))" +"(if(syntax?$1 formals_1)" +"(let-values()(loop_313 keys_1(syntax-e$1 formals_1)))" +"(let-values()(car keys_1)))))))))" +" loop_313)" +" keys_0" +" formals_0))))" "(define-values" "(make-let-values-form11.1)" "(lambda(log-tag1_0 rec?3_0 renames-log-tag5_0 split-by-reference?4_0 syntaxes?2_0)" "(begin" " 'make-let-values-form11" -"(let-values(((log-tag_0) log-tag1_0))" -"(let-values(((syntaxes?_0) syntaxes?2_0))" -"(let-values(((rec?_1) rec?3_0))" -"(let-values(((split-by-reference?_0) split-by-reference?4_0))" -"(let-values(((renames-log-tag_0) renames-log-tag5_0))" +"(let-values(((log-tag_323) log-tag1_0))" +"(let-values(((syntaxes?_324) syntaxes?2_0))" +"(let-values(((rec?_325) rec?3_0))" +"(let-values(((split-by-reference?_326) split-by-reference?4_0))" +"(let-values(((renames-log-tag_327) renames-log-tag5_0))" "(let-values()" -"(lambda(s_105 ctx_85)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(let-values(((obs_53)(expand-context-observer ctx_85)))" -"(if obs_53" -"(let-values()(let-values()(call-expand-observe obs_53 log-tag_0)))" +"(let-values(((obs_409)(expand-context-observer ctx_0)))" +"(if obs_409" +"(let-values()(let-values()(call-expand-observe obs_409 log-tag_323)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_8)(syntax-disarm$1 s_105)))" -"(let-values(((ok?_41" -" letrec-syntaxes+values101_0" -" id:trans102_0" -" trans-rhs103_0" -" id:val104_0" -" val-rhs105_0" -" body106_0)" -"(let-values(((s_128) disarmed-s_8))" -"(if(if syntaxes?_0 #t #f)" -"(let-values(((orig-s_44) s_128))" -"(let-values(((letrec-syntaxes+values101_1" -" id:trans102_1" -" trans-rhs103_1" -" id:val104_1" -" val-rhs105_1" -" body106_1)" -"(let-values(((s_531)" -"(if(syntax?$1 s_128)" -"(syntax-e$1 s_128)" -" s_128)))" -"(if(pair? s_531)" -"(let-values(((letrec-syntaxes+values107_0)" -"(let-values(((s_430)(car s_531))) s_430))" -"((id:trans108_0" -" trans-rhs109_0" -" id:val110_0" -" val-rhs111_0" -" body112_0)" -"(let-values(((s_230)(cdr s_531)))" -"(let-values(((s_231)" -"(if(syntax?$1 s_230)" -"(syntax-e$1 s_230)" -" s_230)))" -"(if(pair? s_231)" -"(let-values(((id:trans113_0" -" trans-rhs114_0)" -"(let-values(((s_234)" +"(let-values(((disarmed-s_330)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_331" +" letrec-syntaxes+values101_332" +" id:trans102_333" +" trans-rhs103_334" +" id:val104_335" +" val-rhs105_336" +" body106_337)" +"(let-values(((s_410) disarmed-s_330))" +"(if(if syntaxes?_324 #t #f)" +"(let-values(((orig-s_411) s_410))" +"(let-values(((letrec-syntaxes+values101_412" +" id:trans102_413" +" trans-rhs103_414" +" id:val104_415" +" val-rhs105_416" +" body106_417)" +"(let-values(((s_418)" +"(if(syntax?$1 s_410)" +"(syntax-e$1 s_410)" +" s_410)))" +"(if(pair? s_418)" +"(let-values(((letrec-syntaxes+values107_419)" +"(let-values(((s_425)(car s_418))) s_425))" +"((id:trans108_420" +" trans-rhs109_421" +" id:val110_422" +" val-rhs111_423" +" body112_424)" +"(let-values(((s_426)(cdr s_418)))" +"(let-values(((s_427)" +"(if(syntax?$1 s_426)" +"(syntax-e$1 s_426)" +" s_426)))" +"(if(pair? s_427)" +"(let-values(((id:trans113_428" +" trans-rhs114_429)" +"(let-values(((s_433)" "(car" -" s_231)))" -"(let-values(((s_235)" +" s_427)))" +"(let-values(((s_434)" "(if(syntax?$1" -" s_234)" +" s_433)" "(syntax-e$1" -" s_234)" -" s_234)))" -"(let-values(((flat-s_33)" +" s_433)" +" s_433)))" +"(let-values(((flat-s_435)" "(to-syntax-list.1" -" s_235)))" +" s_434)))" "(if(not" -" flat-s_33)" +" flat-s_435)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_411))" "(let-values()" -"(let-values(((id:trans_0" -" trans-rhs_0)" -"(let-values(((lst_338)" -" flat-s_33))" +"(let-values(((id:trans_436" +" trans-rhs_437)" +"(let-values(((lst_438)" +" flat-s_435))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_338)))" -"((letrec-values(((for-loop_292)" -"(lambda(id:trans_1" -" trans-rhs_1" -" lst_339)" +" lst_438)))" +"((letrec-values(((for-loop_439)" +"(lambda(id:trans_0" +" trans-rhs_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_339)" -"(let-values(((s_334)" +" lst_0)" +"(let-values(((s_443)" "(unsafe-car" -" lst_339))" -"((rest_200)" +" lst_0))" +"((rest_444)" "(unsafe-cdr" -" lst_339)))" -"(let-values(((id:trans_2" -" trans-rhs_2)" -"(let-values(((id:trans_3)" -" id:trans_1)" -"((trans-rhs_3)" -" trans-rhs_1))" -"(let-values(((id:trans_4" -" trans-rhs_4)" +" lst_0)))" +"(let-values(((id:trans_445" +" trans-rhs_446)" +"(let-values(((id:trans_447)" +" id:trans_0)" +"((trans-rhs_448)" +" trans-rhs_0))" +"(let-values(((id:trans_449" +" trans-rhs_450)" "(let-values()" -"(let-values(((id:trans144_0" -" trans-rhs145_0)" +"(let-values(((id:trans144_451" +" trans-rhs145_452)" "(let-values()" -"(let-values(((s_532)" +"(let-values(((s_453)" "(if(syntax?$1" -" s_334)" +" s_443)" "(syntax-e$1" -" s_334)" -" s_334)))" +" s_443)" +" s_443)))" "(if(pair?" -" s_532)" -"(let-values(((id:trans118_0)" -"(let-values(((s_340)" +" s_453)" +"(let-values(((id:trans118_454)" +"(let-values(((s_456)" "(car" -" s_532)))" -"(let-values(((s_341)" +" s_453)))" +"(let-values(((s_457)" "(if(syntax?$1" -" s_340)" +" s_456)" "(syntax-e$1" -" s_340)" -" s_340)))" -"(let-values(((flat-s_34)" +" s_456)" +" s_456)))" +"(let-values(((flat-s_458)" "(to-syntax-list.1" -" s_341)))" +" s_457)))" "(if(not" -" flat-s_34)" +" flat-s_458)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_411))" "(let-values()" -"(let-values(((id:trans_5)" -"(let-values(((lst_340)" -" flat-s_34))" +"(let-values(((id:trans_459)" +"(let-values(((lst_460)" +" flat-s_458))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_340)))" -"((letrec-values(((for-loop_293)" -"(lambda(id:trans_6" -" lst_216)" +" lst_460)))" +"((letrec-values(((for-loop_461)" +"(lambda(id:trans_1" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_216)" -"(let-values(((s_533)" +" lst_1)" +"(let-values(((s_464)" "(unsafe-car" -" lst_216))" -"((rest_201)" +" lst_1))" +"((rest_465)" "(unsafe-cdr" -" lst_216)))" -"(let-values(((id:trans_7)" -"(let-values(((id:trans_8)" -" id:trans_6))" -"(let-values(((id:trans_9)" +" lst_1)))" +"(let-values(((id:trans_466)" +"(let-values(((id:trans_467)" +" id:trans_1))" +"(let-values(((id:trans_468)" "(let-values()" -"(let-values(((id:trans146_0)" +"(let-values(((id:trans146_469)" "(let-values()" -"(if(let-values(((or-part_342)" +"(if(let-values(((or-part_470)" "(if(syntax?$1" -" s_533)" +" s_464)" "(symbol?" "(syntax-e$1" -" s_533))" +" s_464))" " #f)))" -"(if or-part_342" -" or-part_342" +"(if or-part_470" +" or-part_470" "(symbol?" -" s_533)))" -" s_533" +" s_464)))" +" s_464" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_44" -" s_533)))))" +" orig-s_411" +" s_464)))))" "(cons" -" id:trans146_0" -" id:trans_8)))))" +" id:trans146_469" +" id:trans_467)))))" "(values" -" id:trans_9)))))" +" id:trans_468)))))" "(if(not" " #f)" -"(for-loop_293" -" id:trans_7" -" rest_201)" -" id:trans_7)))" -" id:trans_6)))))" -" for-loop_293)" +"(for-loop_461" +" id:trans_466" +" rest_465)" +" id:trans_466)))" +" id:trans_1)))))" +" for-loop_461)" " null" -" lst_340)))))" +" lst_460)))))" "(reverse$1" -" id:trans_5))))))))" -"((trans-rhs119_0)" -"(let-values(((s_242)" +" id:trans_459))))))))" +"((trans-rhs119_455)" +"(let-values(((s_471)" "(cdr" -" s_532)))" -"(let-values(((s_534)" +" s_453)))" +"(let-values(((s_472)" "(if(syntax?$1" -" s_242)" +" s_471)" "(syntax-e$1" -" s_242)" -" s_242)))" +" s_471)" +" s_471)))" "(if(pair?" -" s_534)" -"(let-values(((trans-rhs120_0)" -"(let-values(((s_243)" +" s_472)" +"(let-values(((trans-rhs120_473)" +"(let-values(((s_474)" "(car" -" s_534)))" -" s_243))" +" s_472)))" +" s_474))" "(()" -"(let-values(((s_244)" +"(let-values(((s_475)" "(cdr" -" s_534)))" -"(let-values(((s_245)" +" s_472)))" +"(let-values(((s_476)" "(if(syntax?$1" -" s_244)" +" s_475)" "(syntax-e$1" -" s_244)" -" s_244)))" +" s_475)" +" s_475)))" "(if(null?" -" s_245)" +" s_476)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_411))))))" "(values" -" trans-rhs120_0))" +" trans-rhs120_473))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_411))))))" "(values" -" id:trans118_0" -" trans-rhs119_0))" +" id:trans118_454" +" trans-rhs119_455))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_411))))))" "(values" "(cons" -" id:trans144_0" -" id:trans_3)" +" id:trans144_451" +" id:trans_447)" "(cons" -" trans-rhs145_0" -" trans-rhs_3))))))" +" trans-rhs145_452" +" trans-rhs_448))))))" "(values" -" id:trans_4" -" trans-rhs_4)))))" +" id:trans_449" +" trans-rhs_450)))))" "(if(not" " #f)" -"(for-loop_292" -" id:trans_2" -" trans-rhs_2" -" rest_200)" +"(for-loop_439" +" id:trans_445" +" trans-rhs_446" +" rest_444)" "(values" -" id:trans_2" -" trans-rhs_2))))" +" id:trans_445" +" trans-rhs_446))))" "(values" -" id:trans_1" -" trans-rhs_1))))))" -" for-loop_292)" +" id:trans_0" +" trans-rhs_0))))))" +" for-loop_439)" " null" " null" -" lst_338)))))" +" lst_438)))))" "(values" "(reverse$1" -" id:trans_0)" +" id:trans_436)" "(reverse$1" -" trans-rhs_0)))))))))" -"((id:val115_0" -" val-rhs116_0" -" body117_0)" -"(let-values(((s_535)" +" trans-rhs_437)))))))))" +"((id:val115_430" +" val-rhs116_431" +" body117_432)" +"(let-values(((s_477)" "(cdr" -" s_231)))" -"(let-values(((s_347)" +" s_427)))" +"(let-values(((s_478)" "(if(syntax?$1" -" s_535)" +" s_477)" "(syntax-e$1" -" s_535)" -" s_535)))" -"(if(pair? s_347)" -"(let-values(((id:val121_0" -" val-rhs122_0)" -"(let-values(((s_536)" +" s_477)" +" s_477)))" +"(if(pair? s_478)" +"(let-values(((id:val121_479" +" val-rhs122_480)" +"(let-values(((s_482)" "(car" -" s_347)))" -"(let-values(((s_246)" +" s_478)))" +"(let-values(((s_483)" "(if(syntax?$1" -" s_536)" +" s_482)" "(syntax-e$1" -" s_536)" -" s_536)))" -"(let-values(((flat-s_35)" +" s_482)" +" s_482)))" +"(let-values(((flat-s_484)" "(to-syntax-list.1" -" s_246)))" +" s_483)))" "(if(not" -" flat-s_35)" +" flat-s_484)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_411))" "(let-values()" -"(let-values(((id:val_0" -" val-rhs_1)" -"(let-values(((lst_341)" -" flat-s_35))" +"(let-values(((id:val_485" +" val-rhs_486)" +"(let-values(((lst_487)" +" flat-s_484))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_341)))" -"((letrec-values(((for-loop_294)" -"(lambda(id:val_1" -" val-rhs_2" -" lst_342)" +" lst_487)))" +"((letrec-values(((for-loop_488)" +"(lambda(id:val_0" +" val-rhs_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_342)" -"(let-values(((s_537)" +" lst_0)" +"(let-values(((s_492)" "(unsafe-car" -" lst_342))" -"((rest_202)" +" lst_0))" +"((rest_493)" "(unsafe-cdr" -" lst_342)))" -"(let-values(((id:val_2" -" val-rhs_3)" -"(let-values(((id:val_3)" -" id:val_1)" -"((val-rhs_4)" -" val-rhs_2))" -"(let-values(((id:val_4" -" val-rhs_5)" +" lst_0)))" +"(let-values(((id:val_494" +" val-rhs_495)" +"(let-values(((id:val_496)" +" id:val_0)" +"((val-rhs_497)" +" val-rhs_0))" +"(let-values(((id:val_498" +" val-rhs_499)" "(let-values()" -"(let-values(((id:val147_0" -" val-rhs148_0)" +"(let-values(((id:val147_500" +" val-rhs148_501)" "(let-values()" -"(let-values(((s_538)" +"(let-values(((s_502)" "(if(syntax?$1" -" s_537)" +" s_492)" "(syntax-e$1" -" s_537)" -" s_537)))" +" s_492)" +" s_492)))" "(if(pair?" -" s_538)" -"(let-values(((id:val124_0)" -"(let-values(((s_474)" +" s_502)" +"(let-values(((id:val124_503)" +"(let-values(((s_505)" "(car" -" s_538)))" -"(let-values(((s_539)" +" s_502)))" +"(let-values(((s_506)" "(if(syntax?$1" -" s_474)" +" s_505)" "(syntax-e$1" -" s_474)" -" s_474)))" -"(let-values(((flat-s_36)" +" s_505)" +" s_505)))" +"(let-values(((flat-s_507)" "(to-syntax-list.1" -" s_539)))" +" s_506)))" "(if(not" -" flat-s_36)" +" flat-s_507)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_411))" "(let-values()" -"(let-values(((id:val_5)" -"(let-values(((lst_343)" -" flat-s_36))" +"(let-values(((id:val_508)" +"(let-values(((lst_509)" +" flat-s_507))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_343)))" -"((letrec-values(((for-loop_295)" -"(lambda(id:val_6" -" lst_123)" +" lst_509)))" +"((letrec-values(((for-loop_510)" +"(lambda(id:val_1" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_123)" -"(let-values(((s_540)" +" lst_1)" +"(let-values(((s_513)" "(unsafe-car" -" lst_123))" -"((rest_62)" +" lst_1))" +"((rest_514)" "(unsafe-cdr" -" lst_123)))" -"(let-values(((id:val_7)" -"(let-values(((id:val_8)" -" id:val_6))" -"(let-values(((id:val_9)" +" lst_1)))" +"(let-values(((id:val_515)" +"(let-values(((id:val_516)" +" id:val_1))" +"(let-values(((id:val_517)" "(let-values()" -"(let-values(((id:val149_0)" +"(let-values(((id:val149_518)" "(let-values()" -"(if(let-values(((or-part_383)" +"(if(let-values(((or-part_519)" "(if(syntax?$1" -" s_540)" +" s_513)" "(symbol?" "(syntax-e$1" -" s_540))" +" s_513))" " #f)))" -"(if or-part_383" -" or-part_383" +"(if or-part_519" +" or-part_519" "(symbol?" -" s_540)))" -" s_540" +" s_513)))" +" s_513" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_44" -" s_540)))))" +" orig-s_411" +" s_513)))))" "(cons" -" id:val149_0" -" id:val_8)))))" +" id:val149_518" +" id:val_516)))))" "(values" -" id:val_9)))))" +" id:val_517)))))" "(if(not" " #f)" -"(for-loop_295" -" id:val_7" -" rest_62)" -" id:val_7)))" -" id:val_6)))))" -" for-loop_295)" +"(for-loop_510" +" id:val_515" +" rest_514)" +" id:val_515)))" +" id:val_1)))))" +" for-loop_510)" " null" -" lst_343)))))" +" lst_509)))))" "(reverse$1" -" id:val_5))))))))" -"((val-rhs125_0)" -"(let-values(((s_353)" +" id:val_508))))))))" +"((val-rhs125_504)" +"(let-values(((s_520)" "(cdr" -" s_538)))" -"(let-values(((s_248)" +" s_502)))" +"(let-values(((s_521)" "(if(syntax?$1" -" s_353)" +" s_520)" "(syntax-e$1" -" s_353)" -" s_353)))" +" s_520)" +" s_520)))" "(if(pair?" -" s_248)" -"(let-values(((val-rhs126_0)" -"(let-values(((s_355)" +" s_521)" +"(let-values(((val-rhs126_522)" +"(let-values(((s_523)" "(car" -" s_248)))" -" s_355))" +" s_521)))" +" s_523))" "(()" -"(let-values(((s_541)" +"(let-values(((s_524)" "(cdr" -" s_248)))" -"(let-values(((s_356)" +" s_521)))" +"(let-values(((s_525)" "(if(syntax?$1" -" s_541)" +" s_524)" "(syntax-e$1" -" s_541)" -" s_541)))" +" s_524)" +" s_524)))" "(if(null?" -" s_356)" +" s_525)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_411))))))" "(values" -" val-rhs126_0))" +" val-rhs126_522))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_411))))))" "(values" -" id:val124_0" -" val-rhs125_0))" +" id:val124_503" +" val-rhs125_504))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_411))))))" "(values" "(cons" -" id:val147_0" -" id:val_3)" +" id:val147_500" +" id:val_496)" "(cons" -" val-rhs148_0" -" val-rhs_4))))))" +" val-rhs148_501" +" val-rhs_497))))))" "(values" -" id:val_4" -" val-rhs_5)))))" +" id:val_498" +" val-rhs_499)))))" "(if(not" " #f)" -"(for-loop_294" -" id:val_2" -" val-rhs_3" -" rest_202)" +"(for-loop_488" +" id:val_494" +" val-rhs_495" +" rest_493)" "(values" -" id:val_2" -" val-rhs_3))))" +" id:val_494" +" val-rhs_495))))" "(values" -" id:val_1" -" val-rhs_2))))))" -" for-loop_294)" +" id:val_0" +" val-rhs_0))))))" +" for-loop_488)" " null" " null" -" lst_341)))))" +" lst_487)))))" "(values" "(reverse$1" -" id:val_0)" +" id:val_485)" "(reverse$1" -" val-rhs_1)))))))))" -"((body123_0)" -"(let-values(((s_249)" +" val-rhs_486)))))))))" +"((body123_481)" +"(let-values(((s_526)" "(cdr" -" s_347)))" -"(let-values(((s_250)" +" s_478)))" +"(let-values(((s_527)" "(if(syntax?$1" -" s_249)" +" s_526)" "(syntax-e$1" -" s_249)" -" s_249)))" -"(let-values(((flat-s_37)" +" s_526)" +" s_526)))" +"(let-values(((flat-s_528)" "(to-syntax-list.1" -" s_250)))" +" s_527)))" "(if(not" -" flat-s_37)" +" flat-s_528)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_411))" "(if(null?" -" flat-s_37)" +" flat-s_528)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))" +" orig-s_411))" "(let-values()" -" flat-s_37))))))))" +" flat-s_528))))))))" "(values" -" id:val121_0" -" val-rhs122_0" -" body123_0))" +" id:val121_479" +" val-rhs122_480" +" body123_481))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_411))))))" "(values" -" id:trans113_0" -" trans-rhs114_0" -" id:val115_0" -" val-rhs116_0" -" body117_0))" +" id:trans113_428" +" trans-rhs114_429" +" id:val115_430" +" val-rhs116_431" +" body117_432))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_44))))))" +" orig-s_411))))))" "(values" -" letrec-syntaxes+values107_0" -" id:trans108_0" -" trans-rhs109_0" -" id:val110_0" -" val-rhs111_0" -" body112_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))" +" letrec-syntaxes+values107_419" +" id:trans108_420" +" trans-rhs109_421" +" id:val110_422" +" val-rhs111_423" +" body112_424))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_411)))))" "(values" " #t" -" letrec-syntaxes+values101_1" -" id:trans102_1" -" trans-rhs103_1" -" id:val104_1" -" val-rhs105_1" -" body106_1)))" +" letrec-syntaxes+values101_412" +" id:trans102_413" +" trans-rhs103_414" +" id:val104_415" +" val-rhs105_416" +" body106_417)))" "(values #f #f #f #f #f #f #f)))))" -"(let-values(((ok?_42 let-values127_0 id:val128_0 val-rhs129_0 body130_0)" -"(let-values(((s_357) disarmed-s_8))" -"(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_45) s_357))" -"(let-values(((let-values127_1 id:val128_1 val-rhs129_1 body130_1)" -"(let-values(((s_254)" -"(if(syntax?$1 s_357)" -"(syntax-e$1 s_357)" -" s_357)))" -"(if(pair? s_254)" -"(let-values(((let-values131_0)" -"(let-values(((s_257)(car s_254)))" -" s_257))" -"((id:val132_0 val-rhs133_0 body134_0)" -"(let-values(((s_542)(cdr s_254)))" -"(let-values(((s_543)" -"(if(syntax?$1 s_542)" -"(syntax-e$1 s_542)" -" s_542)))" -"(if(pair? s_543)" -"(let-values(((id:val135_0" -" val-rhs136_0)" -"(let-values(((s_544)" -"(car" -" s_543)))" -"(let-values(((s_258)" -"(if(syntax?$1" -" s_544)" -"(syntax-e$1" -" s_544)" -" s_544)))" -"(let-values(((flat-s_38)" -"(to-syntax-list.1" -" s_258)))" -"(if(not" -" flat-s_38)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_45))" -"(let-values()" -"(let-values(((id:val_10" -" val-rhs_6)" -"(let-values(((lst_305)" -" flat-s_38))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_305)))" -"((letrec-values(((for-loop_296)" -"(lambda(id:val_11" -" val-rhs_7" -" lst_344)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_344)" -"(let-values(((s_545)" -"(unsafe-car" -" lst_344))" -"((rest_203)" -"(unsafe-cdr" -" lst_344)))" -"(let-values(((id:val_12" -" val-rhs_8)" -"(let-values(((id:val_13)" -" id:val_11)" -"((val-rhs_9)" -" val-rhs_7))" -"(let-values(((id:val_14" -" val-rhs_10)" -"(let-values()" -"(let-values(((id:val150_0" -" val-rhs151_0)" -"(let-values()" -"(let-values(((s_372)" -"(if(syntax?$1" -" s_545)" -"(syntax-e$1" -" s_545)" -" s_545)))" -"(if(pair?" -" s_372)" -"(let-values(((id:val138_0)" +"(let-values(((ok?_363 let-values127_364 id:val128_365 val-rhs129_366 body130_367)" +"(let-values(((s_529) disarmed-s_330))" +"(if(if(not syntaxes?_324) #t #f)" +"(let-values(((orig-s_530) s_529))" +"(let-values(((let-values127_531 id:val128_532 val-rhs129_533 body130_534)" +"(let-values(((s_535)" +"(if(syntax?$1 s_529)" +"(syntax-e$1 s_529)" +" s_529)))" +"(if(pair? s_535)" +"(let-values(((let-values131_536)" +"(let-values(((s_540)(car s_535)))" +" s_540))" +"((id:val132_537 val-rhs133_538 body134_539)" +"(let-values(((s_541)(cdr s_535)))" +"(let-values(((s_542)" +"(if(syntax?$1 s_541)" +"(syntax-e$1 s_541)" +" s_541)))" +"(if(pair? s_542)" +"(let-values(((id:val135_543" +" val-rhs136_544)" "(let-values(((s_546)" "(car" -" s_372)))" +" s_542)))" "(let-values(((s_547)" "(if(syntax?$1" " s_546)" "(syntax-e$1" " s_546)" " s_546)))" -"(let-values(((flat-s_39)" +"(let-values(((flat-s_548)" "(to-syntax-list.1" " s_547)))" "(if(not" -" flat-s_39)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_45))" -"(let-values()" -"(let-values(((id:val_15)" -"(let-values(((lst_345)" -" flat-s_39))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_345)))" -"((letrec-values(((for-loop_297)" -"(lambda(id:val_16" -" lst_346)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_346)" -"(let-values(((s_548)" -"(unsafe-car" -" lst_346))" -"((rest_204)" -"(unsafe-cdr" -" lst_346)))" -"(let-values(((id:val_17)" -"(let-values(((id:val_18)" -" id:val_16))" -"(let-values(((id:val_19)" -"(let-values()" -"(let-values(((id:val152_0)" -"(let-values()" -"(if(let-values(((or-part_384)" -"(if(syntax?$1" -" s_548)" -"(symbol?" -"(syntax-e$1" -" s_548))" -" #f)))" -"(if or-part_384" -" or-part_384" -"(symbol?" -" s_548)))" -" s_548" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_45" -" s_548)))))" -"(cons" -" id:val152_0" -" id:val_18)))))" -"(values" -" id:val_19)))))" -"(if(not" -" #f)" -"(for-loop_297" -" id:val_17" -" rest_204)" -" id:val_17)))" -" id:val_16)))))" -" for-loop_297)" -" null" -" lst_345)))))" -"(reverse$1" -" id:val_15))))))))" -"((val-rhs139_0)" -"(let-values(((s_380)" -"(cdr" -" s_372)))" -"(let-values(((s_260)" -"(if(syntax?$1" -" s_380)" -"(syntax-e$1" -" s_380)" -" s_380)))" -"(if(pair?" -" s_260)" -"(let-values(((val-rhs140_0)" -"(let-values(((s_549)" -"(car" -" s_260)))" -" s_549))" -"(()" -"(let-values(((s_550)" -"(cdr" -" s_260)))" -"(let-values(((s_551)" -"(if(syntax?$1" -" s_550)" -"(syntax-e$1" -" s_550)" -" s_550)))" -"(if(null?" -" s_551)" -"(values)" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_45))))))" -"(values" -" val-rhs140_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_45))))))" -"(values" -" id:val138_0" -" val-rhs139_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_45))))))" -"(values" -"(cons" -" id:val150_0" -" id:val_13)" -"(cons" -" val-rhs151_0" -" val-rhs_9))))))" -"(values" -" id:val_14" -" val-rhs_10)))))" -"(if(not" -" #f)" -"(for-loop_296" -" id:val_12" -" val-rhs_8" -" rest_203)" -"(values" -" id:val_12" -" val-rhs_8))))" -"(values" -" id:val_11" -" val-rhs_7))))))" -" for-loop_296)" -" null" -" null" -" lst_305)))))" -"(values" -"(reverse$1" -" id:val_10)" -"(reverse$1" -" val-rhs_6)))))))))" -"((body137_0)" -"(let-values(((s_261)" -"(cdr" -" s_543)))" -"(let-values(((s_262)" -"(if(syntax?$1" -" s_261)" -"(syntax-e$1" -" s_261)" -" s_261)))" -"(let-values(((flat-s_40)" -"(to-syntax-list.1" -" s_262)))" -"(if(not" -" flat-s_40)" +" flat-s_548)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))" +" orig-s_530))" +"(let-values()" +"(let-values(((id:val_549" +" val-rhs_550)" +"(let-values(((lst_551)" +" flat-s_548))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_551)))" +"((letrec-values(((for-loop_552)" +"(lambda(id:val_0" +" val-rhs_0" +" lst_0)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_0)" +"(let-values(((s_556)" +"(unsafe-car" +" lst_0))" +"((rest_557)" +"(unsafe-cdr" +" lst_0)))" +"(let-values(((id:val_558" +" val-rhs_559)" +"(let-values(((id:val_560)" +" id:val_0)" +"((val-rhs_561)" +" val-rhs_0))" +"(let-values(((id:val_562" +" val-rhs_563)" +"(let-values()" +"(let-values(((id:val150_564" +" val-rhs151_565)" +"(let-values()" +"(let-values(((s_566)" +"(if(syntax?$1" +" s_556)" +"(syntax-e$1" +" s_556)" +" s_556)))" +"(if(pair?" +" s_566)" +"(let-values(((id:val138_567)" +"(let-values(((s_569)" +"(car" +" s_566)))" +"(let-values(((s_570)" +"(if(syntax?$1" +" s_569)" +"(syntax-e$1" +" s_569)" +" s_569)))" +"(let-values(((flat-s_571)" +"(to-syntax-list.1" +" s_570)))" +"(if(not" +" flat-s_571)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_530))" +"(let-values()" +"(let-values(((id:val_572)" +"(let-values(((lst_573)" +" flat-s_571))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_573)))" +"((letrec-values(((for-loop_574)" +"(lambda(id:val_1" +" lst_1)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_1)" +"(let-values(((s_577)" +"(unsafe-car" +" lst_1))" +"((rest_578)" +"(unsafe-cdr" +" lst_1)))" +"(let-values(((id:val_579)" +"(let-values(((id:val_580)" +" id:val_1))" +"(let-values(((id:val_581)" +"(let-values()" +"(let-values(((id:val152_582)" +"(let-values()" +"(if(let-values(((or-part_583)" +"(if(syntax?$1" +" s_577)" +"(symbol?" +"(syntax-e$1" +" s_577))" +" #f)))" +"(if or-part_583" +" or-part_583" +"(symbol?" +" s_577)))" +" s_577" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_530" +" s_577)))))" +"(cons" +" id:val152_582" +" id:val_580)))))" +"(values" +" id:val_581)))))" +"(if(not" +" #f)" +"(for-loop_574" +" id:val_579" +" rest_578)" +" id:val_579)))" +" id:val_1)))))" +" for-loop_574)" +" null" +" lst_573)))))" +"(reverse$1" +" id:val_572))))))))" +"((val-rhs139_568)" +"(let-values(((s_584)" +"(cdr" +" s_566)))" +"(let-values(((s_585)" +"(if(syntax?$1" +" s_584)" +"(syntax-e$1" +" s_584)" +" s_584)))" +"(if(pair?" +" s_585)" +"(let-values(((val-rhs140_586)" +"(let-values(((s_587)" +"(car" +" s_585)))" +" s_587))" +"(()" +"(let-values(((s_588)" +"(cdr" +" s_585)))" +"(let-values(((s_589)" +"(if(syntax?$1" +" s_588)" +"(syntax-e$1" +" s_588)" +" s_588)))" "(if(null?" -" flat-s_40)" +" s_589)" +"(values)" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_530))))))" +"(values" +" val-rhs140_586))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_530))))))" +"(values" +" id:val138_567" +" val-rhs139_568))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_530))))))" +"(values" +"(cons" +" id:val150_564" +" id:val_560)" +"(cons" +" val-rhs151_565" +" val-rhs_561))))))" +"(values" +" id:val_562" +" val-rhs_563)))))" +"(if(not" +" #f)" +"(for-loop_552" +" id:val_558" +" val-rhs_559" +" rest_557)" +"(values" +" id:val_558" +" val-rhs_559))))" +"(values" +" id:val_0" +" val-rhs_0))))))" +" for-loop_552)" +" null" +" null" +" lst_551)))))" +"(values" +"(reverse$1" +" id:val_549)" +"(reverse$1" +" val-rhs_550)))))))))" +"((body137_545)" +"(let-values(((s_590)" +"(cdr" +" s_542)))" +"(let-values(((s_591)" +"(if(syntax?$1" +" s_590)" +"(syntax-e$1" +" s_590)" +" s_590)))" +"(let-values(((flat-s_592)" +"(to-syntax-list.1" +" s_591)))" +"(if(not" +" flat-s_592)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_530))" +"(if(null?" +" flat-s_592)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))" +" orig-s_530))" "(let-values()" -" flat-s_40))))))))" +" flat-s_592))))))))" "(values" -" id:val135_0" -" val-rhs136_0" -" body137_0))" +" id:val135_543" +" val-rhs136_544" +" body137_545))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_530))))))" "(values" -" let-values131_0" -" id:val132_0" -" val-rhs133_0" -" body134_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_45)))))" -"(values #t let-values127_1 id:val128_1 val-rhs129_1 body130_1)))" +" let-values131_536" +" id:val132_537" +" val-rhs133_538" +" body134_539))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_530)))))" +"(values #t let-values127_531 id:val128_532 val-rhs129_533 body130_534)))" "(values #f #f #f #f #f)))))" -"(let-values(((sc_39)(new-scope 'local)))" -"(let-values(((phase_84)(expand-context-phase ctx_85)))" -"(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" -"(let-values(((trans-idss_2)" +"(let-values(((sc_387)(new-scope 'local)))" +"(let-values(((phase_388)(expand-context-phase ctx_0)))" +"(let-values(((frame-id_389)(if syntaxes?_324(make-reference-record) #f)))" +"(let-values(((trans-idss_390)" "(reverse$1" -"(let-values(((lst_347)(if syntaxes?_0 id:trans102_0 null)))" +"(let-values(((lst_593)(if syntaxes?_324 id:trans102_333 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_347)))" -"((letrec-values(((for-loop_298)" -"(lambda(fold-var_316 lst_348)" +"(let-values()(check-list lst_593)))" +"((letrec-values(((for-loop_594)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_348)" -"(let-values(((ids_36)" -"(unsafe-car lst_348))" -"((rest_205)" -"(unsafe-cdr lst_348)))" -"(let-values(((fold-var_113)" -"(let-values(((fold-var_114)" -" fold-var_316))" -"(let-values(((fold-var_115)" +"(if(pair? lst_0)" +"(let-values(((ids_597)(unsafe-car lst_0))" +"((rest_598)" +"(unsafe-cdr lst_0)))" +"(let-values(((fold-var_599)" +"(let-values(((fold-var_600)" +" fold-var_0))" +"(let-values(((fold-var_601)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_349)" -" ids_36))" +"(let-values(((lst_602)" +" ids_597))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_349)))" -"((letrec-values(((for-loop_299)" -"(lambda(fold-var_317" -" lst_350)" +" lst_602)))" +"((letrec-values(((for-loop_603)" +"(lambda(fold-var_1" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_350)" -"(let-values(((id_116)" +" lst_1)" +"(let-values(((id_606)" "(unsafe-car" -" lst_350))" -"((rest_206)" +" lst_1))" +"((rest_607)" "(unsafe-cdr" -" lst_350)))" -"(let-values(((fold-var_318)" -"(let-values(((fold-var_319)" -" fold-var_317))" -"(let-values(((fold-var_320)" +" lst_1)))" +"(let-values(((fold-var_608)" +"(let-values(((fold-var_609)" +" fold-var_1))" +"(let-values(((fold-var_610)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_116" -" sc_39))" -" fold-var_319))))" +" id_606" +" sc_387))" +" fold-var_609))))" "(values" -" fold-var_320)))))" +" fold-var_610)))))" "(if(not" " #f)" -"(for-loop_299" -" fold-var_318" -" rest_206)" -" fold-var_318)))" -" fold-var_317)))))" -" for-loop_299)" +"(for-loop_603" +" fold-var_608" +" rest_607)" +" fold-var_608)))" +" fold-var_1)))))" +" for-loop_603)" " null" -" lst_349)))))" -" fold-var_114))))" +" lst_602)))))" +" fold-var_600))))" "(values" -" fold-var_115)))))" +" fold-var_601)))))" "(if(not #f)" -"(for-loop_298 fold-var_113 rest_205)" -" fold-var_113)))" -" fold-var_316)))))" -" for-loop_298)" +"(for-loop_594 fold-var_599 rest_598)" +" fold-var_599)))" +" fold-var_0)))))" +" for-loop_594)" " null" -" lst_347))))))" -"(let-values(((val-idss_3)" +" lst_593))))))" +"(let-values(((val-idss_391)" "(reverse$1" -"(let-values(((lst_351)(if syntaxes?_0 id:val104_0 id:val128_0)))" +"(let-values(((lst_611)" +"(if syntaxes?_324 id:val104_335 id:val128_365)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_351)))" -"((letrec-values(((for-loop_300)" -"(lambda(fold-var_321 lst_352)" +"(let-values()(check-list lst_611)))" +"((letrec-values(((for-loop_612)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_352)" -"(let-values(((ids_37)" -"(unsafe-car lst_352))" -"((rest_207)" -"(unsafe-cdr lst_352)))" -"(let-values(((fold-var_322)" -"(let-values(((fold-var_323)" -" fold-var_321))" -"(let-values(((fold-var_324)" +"(if(pair? lst_0)" +"(let-values(((ids_615)" +"(unsafe-car lst_0))" +"((rest_616)" +"(unsafe-cdr lst_0)))" +"(let-values(((fold-var_617)" +"(let-values(((fold-var_618)" +" fold-var_0))" +"(let-values(((fold-var_619)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_353)" -" ids_37))" +"(let-values(((lst_620)" +" ids_615))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_353)))" -"((letrec-values(((for-loop_301)" -"(lambda(fold-var_325" -" lst_354)" +" lst_620)))" +"((letrec-values(((for-loop_621)" +"(lambda(fold-var_1" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_354)" -"(let-values(((id_117)" +" lst_1)" +"(let-values(((id_624)" "(unsafe-car" -" lst_354))" -"((rest_208)" +" lst_1))" +"((rest_625)" "(unsafe-cdr" -" lst_354)))" -"(let-values(((fold-var_326)" -"(let-values(((fold-var_327)" -" fold-var_325))" -"(let-values(((fold-var_328)" +" lst_1)))" +"(let-values(((fold-var_626)" +"(let-values(((fold-var_627)" +" fold-var_1))" +"(let-values(((fold-var_628)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_117" -" sc_39))" -" fold-var_327))))" +" id_624" +" sc_387))" +" fold-var_627))))" "(values" -" fold-var_328)))))" +" fold-var_628)))))" "(if(not" " #f)" -"(for-loop_301" -" fold-var_326" -" rest_208)" -" fold-var_326)))" -" fold-var_325)))))" -" for-loop_301)" +"(for-loop_621" +" fold-var_626" +" rest_625)" +" fold-var_626)))" +" fold-var_1)))))" +" for-loop_621)" " null" -" lst_353)))))" -" fold-var_323))))" +" lst_620)))))" +" fold-var_618))))" "(values" -" fold-var_324)))))" +" fold-var_619)))))" "(if(not #f)" -"(for-loop_300" -" fold-var_322" -" rest_207)" -" fold-var_322)))" -" fold-var_321)))))" -" for-loop_300)" +"(for-loop_612" +" fold-var_617" +" rest_616)" +" fold-var_617)))" +" fold-var_0)))))" +" for-loop_612)" " null" -" lst_351))))))" -"(let-values(((val-rhss_3)" -"(if rec?_1" +" lst_611))))))" +"(let-values(((val-rhss_392)" +"(if rec?_325" "(reverse$1" -"(let-values(((lst_355)" -"(if syntaxes?_0 val-rhs105_0 val-rhs129_0)))" +"(let-values(((lst_629)" +"(if syntaxes?_324 val-rhs105_336 val-rhs129_366)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_355)))" -"((letrec-values(((for-loop_302)" -"(lambda(fold-var_329 lst_356)" +"(let-values()(check-list lst_629)))" +"((letrec-values(((for-loop_630)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_356)" -"(let-values(((rhs_20)" -"(unsafe-car lst_356))" -"((rest_209)" -"(unsafe-cdr lst_356)))" -"(let-values(((fold-var_330)" -"(let-values(((fold-var_331)" -" fold-var_329))" -"(let-values(((fold-var_332)" +"(if(pair? lst_0)" +"(let-values(((rhs_633)" +"(unsafe-car lst_0))" +"((rest_634)" +"(unsafe-cdr lst_0)))" +"(let-values(((fold-var_635)" +"(let-values(((fold-var_636)" +" fold-var_0))" +"(let-values(((fold-var_637)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" rhs_20" -" sc_39))" -" fold-var_331))))" +" rhs_633" +" sc_387))" +" fold-var_636))))" "(values" -" fold-var_332)))))" +" fold-var_637)))))" "(if(not #f)" -"(for-loop_302" -" fold-var_330" -" rest_209)" -" fold-var_330)))" -" fold-var_329)))))" -" for-loop_302)" +"(for-loop_630" +" fold-var_635" +" rest_634)" +" fold-var_635)))" +" fold-var_0)))))" +" for-loop_630)" " null" -" lst_355))))" -"(if syntaxes?_0 val-rhs105_0 val-rhs129_0))))" -"(let-values(((val-clauses_0)" -"(if syntaxes?_0" +" lst_629))))" +"(if syntaxes?_324 val-rhs105_336 val-rhs129_366))))" +"(let-values(((val-clauses_393)" +"(if syntaxes?_324" "(let-values()" -"(let-values(((ok?_43 _153_0 _154_0 clause155_0 _156_0)" -"(let-values(((s_142) disarmed-s_8))" -"(let-values(((orig-s_46) s_142))" -"(let-values(((_153_1" -" _154_1" -" clause155_1" -" _156_1)" -"(let-values(((s_552)" +"(let-values(((ok?_638" +" _153_639" +" _154_640" +" clause155_641" +" _156_642)" +"(let-values(((s_662) disarmed-s_330))" +"(let-values(((orig-s_663) s_662))" +"(let-values(((_153_664" +" _154_665" +" clause155_666" +" _156_667)" +"(let-values(((s_668)" "(if(syntax?$1" -" s_142)" +" s_662)" "(syntax-e$1" -" s_142)" -" s_142)))" -"(if(pair? s_552)" -"(let-values(((_157_0)" -"(let-values(((s_553)" +" s_662)" +" s_662)))" +"(if(pair? s_668)" +"(let-values(((_157_669)" +"(let-values(((s_673)" "(car" -" s_552)))" -" s_553))" -"((_158_0" -" clause159_0" -" _160_0)" -"(let-values(((s_554)" +" s_668)))" +" s_673))" +"((_158_670" +" clause159_671" +" _160_672)" +"(let-values(((s_674)" "(cdr" -" s_552)))" -"(let-values(((s_555)" +" s_668)))" +"(let-values(((s_675)" "(if(syntax?$1" -" s_554)" +" s_674)" "(syntax-e$1" -" s_554)" -" s_554)))" +" s_674)" +" s_674)))" "(if(pair?" -" s_555)" -"(let-values(((_161_0)" -"(let-values(((s_556)" +" s_675)" +"(let-values(((_161_676)" +"(let-values(((s_679)" "(car" -" s_555)))" -" s_556))" -"((clause162_0" -" _163_0)" -"(let-values(((s_557)" +" s_675)))" +" s_679))" +"((clause162_677" +" _163_678)" +"(let-values(((s_680)" "(cdr" -" s_555)))" -"(let-values(((s_558)" +" s_675)))" +"(let-values(((s_681)" "(if(syntax?$1" -" s_557)" +" s_680)" "(syntax-e$1" -" s_557)" -" s_557)))" +" s_680)" +" s_680)))" "(if(pair?" -" s_558)" -"(let-values(((clause164_0)" -"(let-values(((s_559)" +" s_681)" +"(let-values(((clause164_682)" +"(let-values(((s_684)" "(car" -" s_558)))" -"(let-values(((s_560)" +" s_681)))" +"(let-values(((s_685)" "(if(syntax?$1" -" s_559)" +" s_684)" "(syntax-e$1" -" s_559)" -" s_559)))" -"(let-values(((flat-s_41)" +" s_684)" +" s_684)))" +"(let-values(((flat-s_686)" "(to-syntax-list.1" -" s_560)))" +" s_685)))" "(if(not" -" flat-s_41)" +" flat-s_686)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_46))" +" orig-s_663))" "(let-values()" -" flat-s_41))))))" -"((_165_0)" -"(let-values(((s_561)" +" flat-s_686))))))" +"((_165_683)" +"(let-values(((s_687)" "(cdr" -" s_558)))" -" s_561)))" +" s_681)))" +" s_687)))" "(values" -" clause164_0" -" _165_0))" +" clause164_682" +" _165_683))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_46))))))" +" orig-s_663))))))" "(values" -" _161_0" -" clause162_0" -" _163_0))" +" _161_676" +" clause162_677" +" _163_678))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_46))))))" +" orig-s_663))))))" "(values" -" _157_0" -" _158_0" -" clause159_0" -" _160_0))" +" _157_669" +" _158_670" +" clause159_671" +" _160_672))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_46)))))" +" orig-s_663)))))" "(values" " #t" -" _153_1" -" _154_1" -" clause155_1" -" _156_1))))))" -" clause155_0))" +" _153_664" +" _154_665" +" clause155_666" +" _156_667))))))" +" clause155_641))" "(let-values()" -"(let-values(((ok?_44 _166_0 clause167_0 _168_0)" -"(let-values(((s_145) disarmed-s_8))" -"(let-values(((orig-s_47) s_145))" -"(let-values(((_166_1 clause167_1 _168_1)" -"(let-values(((s_562)" +"(let-values(((ok?_688 _166_689 clause167_690 _168_691)" +"(let-values(((s_708) disarmed-s_330))" +"(let-values(((orig-s_709) s_708))" +"(let-values(((_166_710" +" clause167_711" +" _168_712)" +"(let-values(((s_713)" "(if(syntax?$1" -" s_145)" +" s_708)" "(syntax-e$1" -" s_145)" -" s_145)))" -"(if(pair? s_562)" -"(let-values(((_169_0)" -"(let-values(((s_563)" +" s_708)" +" s_708)))" +"(if(pair? s_713)" +"(let-values(((_169_714)" +"(let-values(((s_717)" "(car" -" s_562)))" -" s_563))" -"((clause170_0" -" _171_0)" -"(let-values(((s_564)" +" s_713)))" +" s_717))" +"((clause170_715" +" _171_716)" +"(let-values(((s_718)" "(cdr" -" s_562)))" -"(let-values(((s_565)" +" s_713)))" +"(let-values(((s_719)" "(if(syntax?$1" -" s_564)" +" s_718)" "(syntax-e$1" -" s_564)" -" s_564)))" +" s_718)" +" s_718)))" "(if(pair?" -" s_565)" -"(let-values(((clause172_0)" -"(let-values(((s_566)" +" s_719)" +"(let-values(((clause172_720)" +"(let-values(((s_722)" "(car" -" s_565)))" -"(let-values(((s_567)" +" s_719)))" +"(let-values(((s_723)" "(if(syntax?$1" -" s_566)" +" s_722)" "(syntax-e$1" -" s_566)" -" s_566)))" -"(let-values(((flat-s_42)" +" s_722)" +" s_722)))" +"(let-values(((flat-s_724)" "(to-syntax-list.1" -" s_567)))" +" s_723)))" "(if(not" -" flat-s_42)" +" flat-s_724)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_47))" +" orig-s_709))" "(let-values()" -" flat-s_42))))))" -"((_173_0)" -"(let-values(((s_568)" +" flat-s_724))))))" +"((_173_721)" +"(let-values(((s_725)" "(cdr" -" s_565)))" -" s_568)))" +" s_719)))" +" s_725)))" "(values" -" clause172_0" -" _173_0))" +" clause172_720" +" _173_721))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_47))))))" +" orig-s_709))))))" "(values" -" _169_0" -" clause170_0" -" _171_0))" +" _169_714" +" clause170_715" +" _171_716))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_47)))))" -"(values #t _166_1 clause167_1 _168_1))))))" -" clause167_0)))))" +" orig-s_709)))))" +"(values" +" #t" +" _166_710" +" clause167_711" +" _168_712))))))" +" clause167_690)))))" "(let-values((()" "(begin" -"(let-values(((temp141_3)(list trans-idss_2 val-idss_3))" -"((phase142_0) phase_84)" -"((s143_0) s_105))" +"(let-values(((temp141_726)" +"(list trans-idss_390 val-idss_391))" +"((phase142_727) phase_388)" +"((s143_728) s_0))" "(check-no-duplicate-ids7.1" " unsafe-undefined" -" temp141_3" -" phase142_0" -" s143_0" +" temp141_726" +" phase142_727" +" s143_728" " unsafe-undefined))" "(values))))" -"(let-values(((counter_8)(root-expand-context-counter ctx_85)))" -"(let-values(((trans-keyss_0)" +"(let-values(((counter_394)(root-expand-context-counter ctx_0)))" +"(let-values(((trans-keyss_395)" "(reverse$1" -"(let-values(((lst_357) trans-idss_2))" +"(let-values(((lst_729) trans-idss_390))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_357)))" -"((letrec-values(((for-loop_303)" -"(lambda(fold-var_333 lst_358)" +"(let-values()(check-list lst_729)))" +"((letrec-values(((for-loop_730)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_358)" -"(let-values(((ids_38)" +"(if(pair? lst_0)" +"(let-values(((ids_733)" "(unsafe-car" -" lst_358))" -"((rest_210)" +" lst_0))" +"((rest_734)" "(unsafe-cdr" -" lst_358)))" -"(let-values(((fold-var_334)" -"(let-values(((fold-var_335)" -" fold-var_333))" -"(let-values(((fold-var_336)" +" lst_0)))" +"(let-values(((fold-var_735)" +"(let-values(((fold-var_736)" +" fold-var_0))" +"(let-values(((fold-var_737)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_359)" -" ids_38))" +"(let-values(((lst_738)" +" ids_733))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_359)))" -"((letrec-values(((for-loop_304)" -"(lambda(fold-var_337" -" lst_360)" +" lst_738)))" +"((letrec-values(((for-loop_739)" +"(lambda(fold-var_1" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_360)" -"(let-values(((id_118)" +" lst_1)" +"(let-values(((id_742)" "(unsafe-car" -" lst_360))" -"((rest_211)" +" lst_1))" +"((rest_743)" "(unsafe-cdr" -" lst_360)))" -"(let-values(((fold-var_338)" -"(let-values(((fold-var_339)" -" fold-var_337))" -"(let-values(((fold-var_340)" +" lst_1)))" +"(let-values(((fold-var_744)" +"(let-values(((fold-var_745)" +" fold-var_1))" +"(let-values(((fold-var_746)" "(let-values()" "(cons" "(let-values()" -"(let-values(((id174_0)" -" id_118)" -"((phase175_0)" -" phase_84)" -"((counter176_0)" -" counter_8)" -"((frame-id177_0)" -" frame-id_15)" -"((s178_0)" -" s_105))" +"(let-values(((id174_748)" +" id_742)" +"((phase175_749)" +" phase_388)" +"((counter176_750)" +" counter_394)" +"((frame-id177_751)" +" frame-id_389)" +"((s178_752)" +" s_0))" "(add-local-binding!37.1" -" frame-id177_0" -" s178_0" -" id174_0" -" phase175_0" -" counter176_0)))" -" fold-var_339))))" +" frame-id177_751" +" s178_752" +" id174_748" +" phase175_749" +" counter176_750)))" +" fold-var_745))))" "(values" -" fold-var_340)))))" +" fold-var_746)))))" "(if(not" " #f)" -"(for-loop_304" -" fold-var_338" -" rest_211)" -" fold-var_338)))" -" fold-var_337)))))" -" for-loop_304)" +"(for-loop_739" +" fold-var_744" +" rest_743)" +" fold-var_744)))" +" fold-var_1)))))" +" for-loop_739)" " null" -" lst_359)))))" -" fold-var_335))))" +" lst_738)))))" +" fold-var_736))))" "(values" -" fold-var_336)))))" +" fold-var_737)))))" "(if(not #f)" -"(for-loop_303" -" fold-var_334" -" rest_210)" -" fold-var_334)))" -" fold-var_333)))))" -" for-loop_303)" +"(for-loop_730" +" fold-var_735" +" rest_734)" +" fold-var_735)))" +" fold-var_0)))))" +" for-loop_730)" " null" -" lst_357))))))" -"(let-values(((val-keyss_2)" +" lst_729))))))" +"(let-values(((val-keyss_396)" "(reverse$1" -"(let-values(((lst_361) val-idss_3))" +"(let-values(((lst_753) val-idss_391))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_361)))" -"((letrec-values(((for-loop_305)" -"(lambda(fold-var_341 lst_362)" +"(let-values()(check-list lst_753)))" +"((letrec-values(((for-loop_754)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_362)" -"(let-values(((ids_39)" +"(if(pair? lst_0)" +"(let-values(((ids_757)" "(unsafe-car" -" lst_362))" -"((rest_212)" +" lst_0))" +"((rest_758)" "(unsafe-cdr" -" lst_362)))" -"(let-values(((fold-var_342)" -"(let-values(((fold-var_343)" -" fold-var_341))" -"(let-values(((fold-var_118)" +" lst_0)))" +"(let-values(((fold-var_759)" +"(let-values(((fold-var_760)" +" fold-var_0))" +"(let-values(((fold-var_761)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_131)" -" ids_39))" +"(let-values(((lst_762)" +" ids_757))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_131)))" -"((letrec-values(((for-loop_306)" -"(lambda(fold-var_344" -" lst_363)" +" lst_762)))" +"((letrec-values(((for-loop_763)" +"(lambda(fold-var_1" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_363)" -"(let-values(((id_119)" +" lst_1)" +"(let-values(((id_766)" "(unsafe-car" -" lst_363))" -"((rest_213)" +" lst_1))" +"((rest_767)" "(unsafe-cdr" -" lst_363)))" -"(let-values(((fold-var_345)" -"(let-values(((fold-var_346)" -" fold-var_344))" -"(let-values(((fold-var_347)" +" lst_1)))" +"(let-values(((fold-var_768)" +"(let-values(((fold-var_769)" +" fold-var_1))" +"(let-values(((fold-var_770)" "(let-values()" "(cons" "(let-values()" -"(let-values(((id179_0)" -" id_119)" -"((phase180_0)" -" phase_84)" -"((counter181_0)" -" counter_8)" -"((frame-id182_0)" -" frame-id_15)" -"((s183_0)" -" s_105))" +"(let-values(((id179_772)" +" id_766)" +"((phase180_773)" +" phase_388)" +"((counter181_774)" +" counter_394)" +"((frame-id182_775)" +" frame-id_389)" +"((s183_776)" +" s_0))" "(add-local-binding!37.1" -" frame-id182_0" -" s183_0" -" id179_0" -" phase180_0" -" counter181_0)))" -" fold-var_346))))" +" frame-id182_775" +" s183_776" +" id179_772" +" phase180_773" +" counter181_774)))" +" fold-var_769))))" "(values" -" fold-var_347)))))" +" fold-var_770)))))" "(if(not" " #f)" -"(for-loop_306" -" fold-var_345" -" rest_213)" -" fold-var_345)))" -" fold-var_344)))))" -" for-loop_306)" +"(for-loop_763" +" fold-var_768" +" rest_767)" +" fold-var_768)))" +" fold-var_1)))))" +" for-loop_763)" " null" -" lst_131)))))" -" fold-var_343))))" +" lst_762)))))" +" fold-var_760))))" "(values" -" fold-var_118)))))" +" fold-var_761)))))" "(if(not #f)" -"(for-loop_305" -" fold-var_342" -" rest_212)" -" fold-var_342)))" -" fold-var_341)))))" -" for-loop_305)" +"(for-loop_754" +" fold-var_759" +" rest_758)" +" fold-var_759)))" +" fold-var_0)))))" +" for-loop_754)" " null" -" lst_361))))))" -"(let-values(((bodys_10)" +" lst_753))))))" +"(let-values(((bodys_397)" "(reverse$1" -"(let-values(((lst_364)" -"(if syntaxes?_0 body106_0 body130_0)))" +"(let-values(((lst_777)" +"(if syntaxes?_324" +" body106_337" +" body130_367)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_364)))" -"((letrec-values(((for-loop_307)" -"(lambda(fold-var_348 lst_365)" +"(let-values()(check-list lst_777)))" +"((letrec-values(((for-loop_778)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_365)" -"(let-values(((body_18)" +"(if(pair? lst_0)" +"(let-values(((body_781)" "(unsafe-car" -" lst_365))" -"((rest_214)" +" lst_0))" +"((rest_782)" "(unsafe-cdr" -" lst_365)))" -"(let-values(((fold-var_123)" -"(let-values(((fold-var_349)" -" fold-var_348))" -"(let-values(((fold-var_48)" +" lst_0)))" +"(let-values(((fold-var_783)" +"(let-values(((fold-var_784)" +" fold-var_0))" +"(let-values(((fold-var_785)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" body_18" -" sc_39))" -" fold-var_349))))" +" body_781" +" sc_387))" +" fold-var_784))))" "(values" -" fold-var_48)))))" +" fold-var_785)))))" "(if(not #f)" -"(for-loop_307" -" fold-var_123" -" rest_214)" -" fold-var_123)))" -" fold-var_348)))))" -" for-loop_307)" +"(for-loop_778" +" fold-var_783" +" rest_782)" +" fold-var_783)))" +" fold-var_0)))))" +" for-loop_778)" " null" -" lst_364))))))" +" lst_777))))))" "(let-values((()" "(begin" -"(let-values(((obs_91)" -"(expand-context-observer ctx_85)))" -"(if obs_91" +"(let-values(((obs_786)" +"(expand-context-observer ctx_0)))" +"(if obs_786" "(let-values()" "(log-let-renames" -" obs_91" -" renames-log-tag_0" -" val-idss_3" -" val-rhss_3" -" bodys_10" -" trans-idss_2" -"(if syntaxes?_0 trans-rhs103_0 #f)" -" sc_39))" +" obs_786" +" renames-log-tag_327" +" val-idss_391" +" val-rhss_392" +" bodys_397" +" trans-idss_390" +"(if syntaxes?_324 trans-rhs103_334 #f)" +" sc_387))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(if syntaxes?_0" +"(if syntaxes?_324" "(let-values()" "(begin" -"(let-values(((obs_92)" +"(let-values(((obs_787)" "(expand-context-observer" -" ctx_85)))" -"(if obs_92" +" ctx_0)))" +"(if obs_787" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_92" +" obs_787" " 'prepare-env)))" "(void)))" -"(prepare-next-phase-namespace ctx_85)))" +"(prepare-next-phase-namespace ctx_0)))" "(void))" "(values))))" -"(let-values(((trans-valss_0)" +"(let-values(((trans-valss_398)" "(reverse$1" -"(let-values(((lst_63)" -"(if syntaxes?_0" -" trans-rhs103_0" +"(let-values(((lst_788)" +"(if syntaxes?_324" +" trans-rhs103_334" " '()))" -"((lst_366) trans-idss_2))" +"((lst_789) trans-idss_390))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_63)))" +"(let-values()(check-list lst_788)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_366)))" -"((letrec-values(((for-loop_308)" -"(lambda(fold-var_350" -" lst_367" -" lst_368)" +"(let-values()(check-list lst_789)))" +"((letrec-values(((for-loop_790)" +"(lambda(fold-var_0" +" lst_0" +" lst_1)" "(begin" " 'for-loop" -"(if(if(pair? lst_367)" -"(pair? lst_368)" +"(if(if(pair? lst_0)" +"(pair? lst_1)" " #f)" -"(let-values(((rhs_21)" +"(let-values(((rhs_794)" "(unsafe-car" -" lst_367))" -"((rest_215)" +" lst_0))" +"((rest_795)" "(unsafe-cdr" -" lst_367))" -"((ids_40)" +" lst_0))" +"((ids_796)" "(unsafe-car" -" lst_368))" -"((rest_216)" +" lst_1))" +"((rest_797)" "(unsafe-cdr" -" lst_368)))" -"(let-values(((fold-var_351)" -"(let-values(((fold-var_352)" -" fold-var_350))" -"(let-values(((fold-var_353)" +" lst_1)))" +"(let-values(((fold-var_798)" +"(let-values(((fold-var_799)" +" fold-var_0))" +"(let-values(((fold-var_800)" "(let-values()" "(cons" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_93)" +"(let-values(((obs_802)" "(expand-context-observer" -" ctx_85)))" -"(if obs_93" +" ctx_0)))" +"(if obs_802" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_93" +" obs_802" " 'next)" "(call-expand-observe" -" obs_93" +" obs_802" " 'enter-bind))))" "(void)))" "(values))))" -"(let-values(((trans-val_1)" +"(let-values(((trans-val_801)" "(eval-for-syntaxes-binding" " 'letrec-syntaxes+values" "(add-scope" -" rhs_21" -" sc_39)" -" ids_40" -" ctx_85)))" +" rhs_794" +" sc_387)" +" ids_796" +" ctx_0)))" "(begin" -"(let-values(((obs_94)" +"(let-values(((obs_803)" "(expand-context-observer" -" ctx_85)))" -"(if obs_94" +" ctx_0)))" +"(if obs_803" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_94" +" obs_803" " 'exit-bind)))" "(void)))" -" trans-val_1))))" -" fold-var_352))))" +" trans-val_801))))" +" fold-var_799))))" "(values" -" fold-var_353)))))" +" fold-var_800)))))" "(if(not #f)" -"(for-loop_308" -" fold-var_351" -" rest_215" -" rest_216)" -" fold-var_351)))" -" fold-var_350)))))" -" for-loop_308)" +"(for-loop_790" +" fold-var_798" +" rest_795" +" rest_797)" +" fold-var_798)))" +" fold-var_0)))))" +" for-loop_790)" " null" -" lst_63" -" lst_366))))))" -"(let-values(((rec-val-env_0)" -"(let-values(((lst_369) val-keyss_2)" -"((lst_135) val-idss_3))" +" lst_788" +" lst_789))))))" +"(let-values(((rec-val-env_399)" +"(let-values(((lst_804) val-keyss_396)" +"((lst_805) val-idss_391))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_369)))" +"(let-values()(check-list lst_804)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_135)))" -"((letrec-values(((for-loop_309)" -"(lambda(env_29" -" lst_370" -" lst_371)" +"(let-values()(check-list lst_805)))" +"((letrec-values(((for-loop_806)" +"(lambda(env_0" +" lst_0" +" lst_1)" "(begin" " 'for-loop" -"(if(if(pair?" -" lst_370)" -"(pair? lst_371)" +"(if(if(pair? lst_0)" +"(pair? lst_1)" " #f)" -"(let-values(((keys_10)" +"(let-values(((keys_810)" "(unsafe-car" -" lst_370))" -"((rest_217)" +" lst_0))" +"((rest_811)" "(unsafe-cdr" -" lst_370))" -"((ids_41)" +" lst_0))" +"((ids_812)" "(unsafe-car" -" lst_371))" -"((rest_218)" +" lst_1))" +"((rest_813)" "(unsafe-cdr" -" lst_371)))" -"(let-values(((env_30)" -"(let-values(((env_31)" -" env_29))" -"(let-values(((lst_372)" -" keys_10)" -"((lst_373)" -" ids_41))" +" lst_1)))" +"(let-values(((env_814)" +"(let-values(((env_815)" +" env_0))" +"(let-values(((lst_816)" +" keys_810)" +"((lst_817)" +" ids_812))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_372)))" +" lst_816)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_373)))" -"((letrec-values(((for-loop_310)" -"(lambda(env_32" -" lst_374" -" lst_375)" +" lst_817)))" +"((letrec-values(((for-loop_818)" +"(lambda(env_1" +" lst_2" +" lst_3)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_374)" +" lst_2)" "(pair?" -" lst_375)" +" lst_3)" " #f)" -"(let-values(((key_91)" +"(let-values(((key_822)" "(unsafe-car" -" lst_374))" -"((rest_219)" +" lst_2))" +"((rest_823)" "(unsafe-cdr" -" lst_374))" -"((id_120)" +" lst_2))" +"((id_824)" "(unsafe-car" -" lst_375))" -"((rest_220)" +" lst_3))" +"((rest_825)" "(unsafe-cdr" -" lst_375)))" -"(let-values(((env_33)" -"(let-values(((env_34)" -" env_32))" -"(let-values(((env_35)" +" lst_3)))" +"(let-values(((env_826)" +"(let-values(((env_827)" +" env_1))" +"(let-values(((env_828)" "(let-values()" "(env-extend" -" env_34" -" key_91" +" env_827" +" key_822" "(local-variable1.1" -" id_120)))))" +" id_824)))))" "(values" -" env_35)))))" +" env_828)))))" "(if(not" " #f)" -"(for-loop_310" -" env_33" -" rest_219" -" rest_220)" -" env_33)))" -" env_32)))))" -" for-loop_310)" -" env_31" -" lst_372" -" lst_373))))))" +"(for-loop_818" +" env_826" +" rest_823" +" rest_825)" +" env_826)))" +" env_1)))))" +" for-loop_818)" +" env_815" +" lst_816" +" lst_817))))))" "(if(not #f)" -"(for-loop_309" -" env_30" -" rest_217" -" rest_218)" -" env_30)))" -" env_29)))))" -" for-loop_309)" -"(expand-context-env ctx_85)" -" lst_369" -" lst_135)))))" -"(let-values(((rec-env_0)" -"(let-values(((lst_376) trans-keyss_0)" -"((lst_377) trans-valss_0)" -"((lst_378) trans-idss_2))" +"(for-loop_806" +" env_814" +" rest_811" +" rest_813)" +" env_814)))" +" env_0)))))" +" for-loop_806)" +"(expand-context-env ctx_0)" +" lst_804" +" lst_805)))))" +"(let-values(((rec-env_400)" +"(let-values(((lst_829) trans-keyss_395)" +"((lst_830) trans-valss_398)" +"((lst_831) trans-idss_390))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_376)))" +"(let-values()(check-list lst_829)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_377)))" +"(let-values()(check-list lst_830)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_378)))" -"((letrec-values(((for-loop_311)" -"(lambda(env_36" -" lst_379" -" lst_380" -" lst_381)" +"(let-values()(check-list lst_831)))" +"((letrec-values(((for-loop_832)" +"(lambda(env_0" +" lst_0" +" lst_1" +" lst_2)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_379)" +" lst_0)" "(if(pair?" -" lst_380)" +" lst_1)" "(pair?" -" lst_381)" +" lst_2)" " #f)" " #f)" -"(let-values(((keys_11)" +"(let-values(((keys_837)" "(unsafe-car" -" lst_379))" -"((rest_221)" +" lst_0))" +"((rest_838)" "(unsafe-cdr" -" lst_379))" -"((vals_9)" +" lst_0))" +"((vals_839)" "(unsafe-car" -" lst_380))" -"((rest_222)" +" lst_1))" +"((rest_840)" "(unsafe-cdr" -" lst_380))" -"((ids_42)" +" lst_1))" +"((ids_841)" "(unsafe-car" -" lst_381))" -"((rest_223)" +" lst_2))" +"((rest_842)" "(unsafe-cdr" -" lst_381)))" -"(let-values(((env_37)" -"(let-values(((env_38)" -" env_36))" -"(let-values(((env_39)" +" lst_2)))" +"(let-values(((env_843)" +"(let-values(((env_844)" +" env_0))" +"(let-values(((env_845)" "(let-values()" -"(let-values(((lst_382)" -" keys_11)" -"((lst_383)" -" vals_9)" -"((lst_384)" -" ids_42))" +"(let-values(((lst_846)" +" keys_837)" +"((lst_847)" +" vals_839)" +"((lst_848)" +" ids_841))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_382)))" +" lst_846)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_383)))" +" lst_847)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_384)))" -"((letrec-values(((for-loop_312)" -"(lambda(env_40" -" lst_385" -" lst_386" -" lst_387)" +" lst_848)))" +"((letrec-values(((for-loop_849)" +"(lambda(env_1" +" lst_3" +" lst_4" +" lst_5)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_385)" +" lst_3)" "(if(pair?" -" lst_386)" +" lst_4)" "(pair?" -" lst_387)" +" lst_5)" " #f)" " #f)" -"(let-values(((key_92)" +"(let-values(((key_854)" "(unsafe-car" -" lst_385))" -"((rest_224)" +" lst_3))" +"((rest_855)" "(unsafe-cdr" -" lst_385))" -"((val_86)" +" lst_3))" +"((val_856)" "(unsafe-car" -" lst_386))" -"((rest_225)" +" lst_4))" +"((rest_857)" "(unsafe-cdr" -" lst_386))" -"((id_121)" +" lst_4))" +"((id_858)" "(unsafe-car" -" lst_387))" -"((rest_226)" +" lst_5))" +"((rest_859)" "(unsafe-cdr" -" lst_387)))" -"(let-values(((env_41)" -"(let-values(((env_42)" -" env_40))" -"(let-values(((env_43)" +" lst_5)))" +"(let-values(((env_860)" +"(let-values(((env_861)" +" env_1))" +"(let-values(((env_862)" "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_86" -" id_121" -" phase_84" -" ctx_85)" +" val_856" +" id_858" +" phase_388" +" ctx_0)" "(env-extend" -" env_42" -" key_92" -" val_86)))))" +" env_861" +" key_854" +" val_856)))))" "(values" -" env_43)))))" +" env_862)))))" "(if(not" " #f)" -"(for-loop_312" -" env_41" -" rest_224" -" rest_225" -" rest_226)" -" env_41)))" -" env_40)))))" -" for-loop_312)" -" env_38" -" lst_382" -" lst_383" -" lst_384))))))" +"(for-loop_849" +" env_860" +" rest_855" +" rest_857" +" rest_859)" +" env_860)))" +" env_1)))))" +" for-loop_849)" +" env_844" +" lst_846" +" lst_847" +" lst_848))))))" "(values" -" env_39)))))" +" env_845)))))" "(if(not #f)" -"(for-loop_311" -" env_37" -" rest_221" -" rest_222" -" rest_223)" -" env_37)))" -" env_36)))))" -" for-loop_311)" -" rec-val-env_0" -" lst_376" -" lst_377" -" lst_378)))))" -"(let-values(((expr-ctx_0)" -"(as-expression-context ctx_85)))" -"(let-values(((orig-rrs_0)" +"(for-loop_832" +" env_843" +" rest_838" +" rest_840" +" rest_842)" +" env_843)))" +" env_0)))))" +" for-loop_832)" +" rec-val-env_399" +" lst_829" +" lst_830" +" lst_831)))))" +"(let-values(((expr-ctx_401)" +"(as-expression-context ctx_0)))" +"(let-values(((orig-rrs_402)" "(expand-context-reference-records" -" expr-ctx_0)))" -"(let-values(((rec-ctx_0)" -"(let-values(((v_174) expr-ctx_0))" -"(let-values(((the-struct_97) v_174))" +" expr-ctx_401)))" +"(let-values(((rec-ctx_403)" +"(let-values(((v_863) expr-ctx_401))" +"(let-values(((the-struct_864) v_863))" "(if(expand-context/outer?" -" the-struct_97)" -"(let-values(((env184_0)" -" rec-env_0)" -"((scopes185_0)" +" the-struct_864)" +"(let-values(((env184_865)" +" rec-env_400)" +"((scopes185_866)" "(cons" -" sc_39" +" sc_387" "(expand-context-scopes" -" ctx_85)))" -"((reference-records186_0)" -"(if split-by-reference?_0" +" ctx_0)))" +"((reference-records186_867)" +"(if split-by-reference?_326" "(cons" -" frame-id_15" -" orig-rrs_0)" -" orig-rrs_0))" -"((binding-layer187_0)" +" frame-id_389" +" orig-rrs_402)" +" orig-rrs_402))" +"((binding-layer187_868)" "(increment-binding-layer" "(cons" -" trans-idss_2" -" val-idss_3)" -" ctx_85" -" sc_39))" -"((inner188_0)" +" trans-idss_390" +" val-idss_391)" +" ctx_0" +" sc_387))" +"((inner188_869)" "(root-expand-context/outer-inner" -" v_174)))" +" v_863)))" "(expand-context/outer1.1" -" inner188_0" +" inner188_869" "(root-expand-context/outer-post-expansion" -" the-struct_97)" +" the-struct_864)" "(root-expand-context/outer-use-site-scopes" -" the-struct_97)" +" the-struct_864)" "(root-expand-context/outer-frame-id" -" the-struct_97)" +" the-struct_864)" "(expand-context/outer-context" -" the-struct_97)" -" env184_0" -" scopes185_0" +" the-struct_864)" +" env184_865" +" scopes185_866" "(expand-context/outer-def-ctx-scopes" -" the-struct_97)" -" binding-layer187_0" -" reference-records186_0" +" the-struct_864)" +" binding-layer187_868" +" reference-records186_867" "(expand-context/outer-only-immediate?" -" the-struct_97)" +" the-struct_864)" "(expand-context/outer-need-eventually-defined" -" the-struct_97)" +" the-struct_864)" "(expand-context/outer-current-introduction-scopes" -" the-struct_97)" +" the-struct_864)" "(expand-context/outer-current-use-scopes" -" the-struct_97)" +" the-struct_864)" "(expand-context/outer-name" -" the-struct_97)))" +" the-struct_864)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_97))))))" -"(let-values(((letrec-values-id_0)" +" the-struct_864))))))" +"(let-values(((letrec-values-id_404)" "(if(not" "(expand-context-to-parsed?" -" ctx_85))" -"(if syntaxes?_0" -"(core-id 'letrec-values phase_84)" -" let-values127_0)" +" ctx_0))" +"(if syntaxes?_324" +"(core-id 'letrec-values phase_388)" +" let-values127_364)" " #f)))" -"(let-values(((rebuild-s_6)" -"(let-values(((ctx189_0) ctx_85)" -"((s190_1) s_105)" -"((temp191_1) #t))" +"(let-values(((rebuild-s_405)" +"(let-values(((ctx189_871) ctx_0)" +"((s190_872) s_0)" +"((temp191_873) #t))" "(keep-as-needed119.1" " #f" -" temp191_1" +" temp191_873" " #f" -" ctx189_0" -" s190_1))))" -"(let-values(((val-name-idss_0)" +" ctx189_871" +" s190_872))))" +"(let-values(((val-name-idss_406)" "(if(expand-context-to-parsed?" -" ctx_85)" +" ctx_0)" "(reverse$1" -"(let-values(((lst_254)" -" val-idss_3))" +"(let-values(((lst_874)" +" val-idss_391))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_254)))" -"((letrec-values(((for-loop_231)" -"(lambda(fold-var_354" -" lst_255)" +"(check-list lst_874)))" +"((letrec-values(((for-loop_875)" +"(lambda(fold-var_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_255)" -"(let-values(((val-ids_1)" +" lst_0)" +"(let-values(((val-ids_878)" "(unsafe-car" -" lst_255))" -"((rest_139)" +" lst_0))" +"((rest_879)" "(unsafe-cdr" -" lst_255)))" -"(let-values(((fold-var_355)" -"(let-values(((fold-var_356)" -" fold-var_354))" -"(let-values(((fold-var_357)" +" lst_0)))" +"(let-values(((fold-var_880)" +"(let-values(((fold-var_881)" +" fold-var_0))" +"(let-values(((fold-var_882)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_388)" -" val-ids_1))" +"(let-values(((lst_883)" +" val-ids_878))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_388)))" -"((letrec-values(((for-loop_313)" -"(lambda(fold-var_358" -" lst_389)" +" lst_883)))" +"((letrec-values(((for-loop_884)" +"(lambda(fold-var_1" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_389)" -"(let-values(((val-id_0)" +" lst_1)" +"(let-values(((val-id_887)" "(unsafe-car" -" lst_389))" -"((rest_227)" +" lst_1))" +"((rest_888)" "(unsafe-cdr" -" lst_389)))" -"(let-values(((fold-var_359)" -"(let-values(((fold-var_132)" -" fold-var_358))" -"(let-values(((fold-var_360)" +" lst_1)))" +"(let-values(((fold-var_889)" +"(let-values(((fold-var_890)" +" fold-var_1))" +"(let-values(((fold-var_891)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1" " #f" "(syntax-e$1" -" val-id_0)" -" val-id_0" -" val-id_0))" -" fold-var_132))))" +" val-id_887)" +" val-id_887" +" val-id_887))" +" fold-var_890))))" "(values" -" fold-var_360)))))" +" fold-var_891)))))" "(if(not" " #f)" -"(for-loop_313" -" fold-var_359" -" rest_227)" -" fold-var_359)))" -" fold-var_358)))))" -" for-loop_313)" +"(for-loop_884" +" fold-var_889" +" rest_888)" +" fold-var_889)))" +" fold-var_1)))))" +" for-loop_884)" " null" -" lst_388)))))" -" fold-var_356))))" +" lst_883)))))" +" fold-var_881))))" "(values" -" fold-var_357)))))" +" fold-var_882)))))" "(if(not" " #f)" -"(for-loop_231" -" fold-var_355" -" rest_139)" -" fold-var_355)))" -" fold-var_354)))))" -" for-loop_231)" +"(for-loop_875" +" fold-var_880" +" rest_879)" +" fold-var_880)))" +" fold-var_0)))))" +" for-loop_875)" " null" -" lst_254))))" -" val-idss_3)))" +" lst_874))))" +" val-idss_391)))" "(let-values((()" "(begin" -"(if syntaxes?_0" +"(if syntaxes?_324" "(let-values()" -"(let-values(((obs_95)" +"(let-values(((obs_892)" "(expand-context-observer" -" ctx_85)))" -"(if obs_95" +" ctx_0)))" +"(if obs_892" "(let-values()" "(log-letrec-values" -" obs_95" -" val-idss_3" -" val-rhss_3" -" bodys_10))" +" obs_892" +" val-idss_391" +" val-rhss_392" +" bodys_397))" "(void))))" "(void))" "(values))))" -"(let-values(((get-body_1)" +"(let-values(((get-body_407)" "(lambda()" "(begin" " 'get-body" "(let-values((()" "(begin" -"(let-values(((obs_96)" +"(let-values(((obs_894)" "(expand-context-observer" -" ctx_85)))" -"(if obs_96" +" ctx_0)))" +"(if obs_894" "(let-values()" "(if(not" -"(if syntaxes?_0" +"(if syntaxes?_324" "(null?" -" val-idss_3)" +" val-idss_391)" " #f))" "(let-values()" "(call-expand-observe" -" obs_96" +" obs_894" " 'next-group))" "(void)))" "(void)))" "(values))))" -"(let-values(((body-ctx_5)" -"(let-values(((v_257)" -" rec-ctx_0))" -"(let-values(((the-struct_98)" -" v_257))" +"(let-values(((body-ctx_893)" +"(let-values(((v_895)" +" rec-ctx_403))" +"(let-values(((the-struct_896)" +" v_895))" "(if(expand-context/outer?" -" the-struct_98)" -"(let-values(((reference-records195_0)" -" orig-rrs_0)" -"((inner196_0)" +" the-struct_896)" +"(let-values(((reference-records195_897)" +" orig-rrs_402)" +"((inner196_898)" "(root-expand-context/outer-inner" -" v_257)))" +" v_895)))" "(expand-context/outer1.1" -" inner196_0" +" inner196_898" "(root-expand-context/outer-post-expansion" -" the-struct_98)" +" the-struct_896)" "(root-expand-context/outer-use-site-scopes" -" the-struct_98)" +" the-struct_896)" "(root-expand-context/outer-frame-id" -" the-struct_98)" +" the-struct_896)" "(expand-context/outer-context" -" the-struct_98)" +" the-struct_896)" "(expand-context/outer-env" -" the-struct_98)" +" the-struct_896)" "(expand-context/outer-scopes" -" the-struct_98)" +" the-struct_896)" "(expand-context/outer-def-ctx-scopes" -" the-struct_98)" +" the-struct_896)" "(expand-context/outer-binding-layer" -" the-struct_98)" -" reference-records195_0" +" the-struct_896)" +" reference-records195_897" "(expand-context/outer-only-immediate?" -" the-struct_98)" +" the-struct_896)" "(expand-context/outer-need-eventually-defined" -" the-struct_98)" +" the-struct_896)" "(expand-context/outer-current-introduction-scopes" -" the-struct_98)" +" the-struct_896)" "(expand-context/outer-current-use-scopes" -" the-struct_98)" +" the-struct_896)" "(expand-context/outer-name" -" the-struct_98)))" +" the-struct_896)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_98))))))" -"(let-values(((bodys192_0)" -" bodys_10)" -"((temp193_0)" -"(let-values(((body-ctx197_0)" -" body-ctx_5)" -"((ctx198_0)" -" ctx_85))" +" the-struct_896))))))" +"(let-values(((bodys192_900)" +" bodys_397)" +"((temp193_901)" +"(let-values(((body-ctx197_904)" +" body-ctx_893)" +"((ctx198_905)" +" ctx_0))" "(as-tail-context22.1" -" ctx198_0" -" body-ctx197_0)))" -"((rebuild-s194_0)" -" rebuild-s_6))" +" ctx198_905" +" body-ctx197_904)))" +"((rebuild-s194_902)" +" rebuild-s_405))" "(expand-body7.1" -" rebuild-s194_0" +" rebuild-s194_902" " #f" -" bodys192_0" -" temp193_0))))))))" -"(let-values(((result-s_12)" +" bodys192_900" +" temp193_901))))))))" +"(let-values(((result-s_408)" "(if(not" -" split-by-reference?_0)" +" split-by-reference?_326)" "(let-values()" -"(let-values(((clauses_2)" +"(let-values(((clauses_906)" "(reverse$1" -"(let-values(((lst_150)" -" val-name-idss_0)" -"((lst_390)" -" val-keyss_2)" -"((lst_151)" -" val-rhss_3)" -"((lst_391)" -" val-clauses_0))" +"(let-values(((lst_908)" +" val-name-idss_406)" +"((lst_909)" +" val-keyss_396)" +"((lst_910)" +" val-rhss_392)" +"((lst_911)" +" val-clauses_393))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_150)))" +" lst_908)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_390)))" +" lst_909)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_151)))" +" lst_910)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_391)))" -"((letrec-values(((for-loop_314)" -"(lambda(fold-var_361" -" lst_392" -" lst_393" -" lst_394" -" lst_395)" +" lst_911)))" +"((letrec-values(((for-loop_912)" +"(lambda(fold-var_0" +" lst_0" +" lst_1" +" lst_2" +" lst_3)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_392)" +" lst_0)" "(if(pair?" -" lst_393)" +" lst_1)" "(if(pair?" -" lst_394)" +" lst_2)" "(pair?" -" lst_395)" +" lst_3)" " #f)" " #f)" " #f)" -"(let-values(((ids_43)" +"(let-values(((ids_918)" "(unsafe-car" -" lst_392))" -"((rest_228)" +" lst_0))" +"((rest_919)" "(unsafe-cdr" -" lst_392))" -"((keys_12)" +" lst_0))" +"((keys_920)" "(unsafe-car" -" lst_393))" -"((rest_229)" +" lst_1))" +"((rest_921)" "(unsafe-cdr" -" lst_393))" -"((rhs_22)" +" lst_1))" +"((rhs_922)" "(unsafe-car" -" lst_394))" -"((rest_230)" +" lst_2))" +"((rest_923)" "(unsafe-cdr" -" lst_394))" -"((clause_4)" +" lst_2))" +"((clause_924)" "(unsafe-car" -" lst_395))" -"((rest_231)" +" lst_3))" +"((rest_925)" "(unsafe-cdr" -" lst_395)))" -"(let-values(((fold-var_51)" -"(let-values(((fold-var_362)" -" fold-var_361))" -"(let-values(((fold-var_363)" +" lst_3)))" +"(let-values(((fold-var_926)" +"(let-values(((fold-var_927)" +" fold-var_0))" +"(let-values(((fold-var_928)" "(let-values()" "(cons" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_97)" +"(let-values(((obs_930)" "(expand-context-observer" -" ctx_85)))" -"(if obs_97" +" ctx_0)))" +"(if obs_930" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_97" +" obs_930" " 'next)))" "(void)))" "(values))))" -"(let-values(((exp-rhs_4)" -"(let-values(((rhs199_0)" -" rhs_22)" -"((temp200_0)" -"(if rec?_1" +"(let-values(((exp-rhs_929)" +"(let-values(((rhs199_931)" +" rhs_922)" +"((temp200_932)" +"(if rec?_325" "(as-named-context" -" rec-ctx_0" -" ids_43)" +" rec-ctx_403" +" ids_918)" "(as-named-context" -" expr-ctx_0" -" ids_43))))" +" expr-ctx_401" +" ids_918))))" "(expand9.1" " #f" " #f" " #f" -" rhs199_0" -" temp200_0))))" +" rhs199_931" +" temp200_932))))" "(if(expand-context-to-parsed?" -" ctx_85)" +" ctx_0)" "(list" -" keys_12" -" exp-rhs_4)" +" keys_920" +" exp-rhs_929)" "(datum->syntax$1" " #f" "(list" -" ids_43" -" exp-rhs_4)" -" clause_4" -" clause_4)))))" -" fold-var_362))))" +" ids_918" +" exp-rhs_929)" +" clause_924" +" clause_924)))))" +" fold-var_927))))" "(values" -" fold-var_363)))))" +" fold-var_928)))))" "(if(not" " #f)" -"(for-loop_314" -" fold-var_51" -" rest_228" -" rest_229" -" rest_230" -" rest_231)" -" fold-var_51)))" -" fold-var_361)))))" -" for-loop_314)" +"(for-loop_912" +" fold-var_926" +" rest_919" +" rest_921" +" rest_923" +" rest_925)" +" fold-var_926)))" +" fold-var_0)))))" +" for-loop_912)" " null" -" lst_150" -" lst_390" -" lst_151" -" lst_391))))))" -"(let-values(((exp-body_4)" -"(get-body_1)))" +" lst_908" +" lst_909" +" lst_910" +" lst_911))))))" +"(let-values(((exp-body_907)" +"(get-body_407)))" "(begin" -"(if frame-id_15" +"(if frame-id_389" "(let-values()" "(reference-record-clear!" -" frame-id_15))" +" frame-id_389))" "(void))" "(if(expand-context-to-parsed?" -" ctx_85)" -"(if rec?_1" +" ctx_0)" +"(if rec?_325" "(parsed-letrec-values18.1" -" rebuild-s_6" -" val-name-idss_0" -" clauses_2" -" exp-body_4)" +" rebuild-s_405" +" val-name-idss_406" +" clauses_906" +" exp-body_907)" "(parsed-let-values17.1" -" rebuild-s_6" -" val-name-idss_0" -" clauses_2" -" exp-body_4))" -"(let-values(((rebuild-s201_0)" -" rebuild-s_6)" -"((temp202_1)" +" rebuild-s_405" +" val-name-idss_406" +" clauses_906" +" exp-body_907))" +"(let-values(((rebuild-s201_933)" +" rebuild-s_405)" +"((temp202_934)" "(list*" -" letrec-values-id_0" -" clauses_2" -" exp-body_4)))" +" letrec-values-id_404" +" clauses_906" +" exp-body_907)))" "(rebuild5.1" " #t" -" rebuild-s201_0" -" temp202_1)))))))" +" rebuild-s201_933" +" temp202_934)))))))" "(let-values()" -"(let-values(((val-idss203_0)" -" val-idss_3)" -"((val-keyss204_0)" -" val-keyss_2)" -"((val-rhss205_0)" -" val-rhss_3)" -"((val-clauses206_0)" -" val-clauses_0)" -"((temp207_0)" +"(let-values(((val-idss203_936)" +" val-idss_391)" +"((val-keyss204_937)" +" val-keyss_396)" +"((val-rhss205_938)" +" val-rhss_392)" +"((val-clauses206_939)" +" val-clauses_393)" +"((temp207_940)" " #t)" -"((frame-id208_0)" -" frame-id_15)" -"((rec-ctx209_0)" -" rec-ctx_0)" -"((rebuild-s210_0)" -" rebuild-s_6)" -"((syntaxes?211_0)" -" syntaxes?_0)" -"((get-body212_0)" -" get-body_1)" -"((temp213_2)" +"((frame-id208_941)" +" frame-id_389)" +"((rec-ctx209_942)" +" rec-ctx_403)" +"((rebuild-s210_943)" +" rebuild-s_405)" +"((syntaxes?211_944)" +" syntaxes?_324)" +"((get-body212_945)" +" get-body_407)" +"((temp213_946)" " #t))" "(expand-and-split-bindings-by-reference48.1" -" rec-ctx209_0" -" frame-id208_0" -" get-body212_0" -" syntaxes?211_0" -" rebuild-s210_0" -" temp207_0" -" temp213_2" -" val-idss203_0" -" val-keyss204_0" -" val-rhss205_0" -" val-clauses206_0))))))" -"(if(expand-context-to-parsed? ctx_85)" -" result-s_12" +" rec-ctx209_942" +" frame-id208_941" +" get-body212_945" +" syntaxes?211_944" +" rebuild-s210_943" +" temp207_940" +" temp213_946" +" val-idss203_936" +" val-keyss204_937" +" val-rhss205_938" +" val-clauses206_939))))))" +"(if(expand-context-to-parsed? ctx_0)" +" result-s_408" "(attach-disappeared-transformer-bindings" -" result-s_12" -" trans-idss_2))))))))))))))))))))))))))))))))))))))))))" +" result-s_408" +" trans-idss_390))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(log-let-renames)" -"(lambda(obs_98 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_40)" +"(lambda(obs_0 renames-log-tag_0 val-idss_0 val-rhss_0 bodys_0 trans-idss_0 trans-rhss_0 sc_0)" "(begin" -"(let-values(((vals+body_0)" +"(let-values(((vals+body_978)" "(cons" "(reverse$1" -"(let-values(((lst_396) val-idss_4)((lst_397) val-rhss_4))" +"(let-values(((lst_979) val-idss_0)((lst_980) val-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_396)))" +"(let-values()(check-list lst_979)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_397)))" -"((letrec-values(((for-loop_315)" -"(lambda(fold-var_364 lst_398 lst_399)" +"(let-values()(check-list lst_980)))" +"((letrec-values(((for-loop_981)" +"(lambda(fold-var_0 lst_0 lst_1)" "(begin" " 'for-loop" -"(if(if(pair? lst_398)(pair? lst_399) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_398))" -"((rest_232)(unsafe-cdr lst_398))" -"((val-rhs_11)(unsafe-car lst_399))" -"((rest_233)(unsafe-cdr lst_399)))" -"(let-values(((fold-var_365)" -"(let-values(((fold-var_366) fold-var_364))" -"(let-values(((fold-var_367)" +"(if(if(pair? lst_0)(pair? lst_1) #f)" +"(let-values(((val-ids_985)(unsafe-car lst_0))" +"((rest_986)(unsafe-cdr lst_0))" +"((val-rhs_987)(unsafe-car lst_1))" +"((rest_988)(unsafe-cdr lst_1)))" +"(let-values(((fold-var_989)" +"(let-values(((fold-var_990) fold-var_0))" +"(let-values(((fold-var_991)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1" " #f" -"(list val-ids_2 val-rhs_11)))" -" fold-var_366))))" -"(values fold-var_367)))))" +"(list val-ids_985 val-rhs_987)))" +" fold-var_990))))" +"(values fold-var_991)))))" "(if(not #f)" -"(for-loop_315 fold-var_365 rest_232 rest_233)" -" fold-var_365)))" -" fold-var_364)))))" -" for-loop_315)" +"(for-loop_981 fold-var_989 rest_986 rest_988)" +" fold-var_989)))" +" fold-var_0)))))" +" for-loop_981)" " null" -" lst_396" -" lst_397))))" -"(datum->syntax$1 #f bodys_11))))" +" lst_979" +" lst_980))))" +"(datum->syntax$1 #f bodys_0))))" "(call-expand-observe" -" obs_98" -" renames-log-tag_1" +" obs_0" +" renames-log-tag_0" "(if(not trans-rhss_0)" -" vals+body_0" +" vals+body_978" "(cons" "(reverse$1" -"(let-values(((lst_400) trans-idss_3)((lst_401) trans-rhss_0))" +"(let-values(((lst_992) trans-idss_0)((lst_993) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_400)))" +"(let-values()(check-list lst_992)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_401)))" -"((letrec-values(((for-loop_316)" -"(lambda(fold-var_368 lst_402 lst_403)" +"(let-values()(check-list lst_993)))" +"((letrec-values(((for-loop_994)" +"(lambda(fold-var_0 lst_0 lst_1)" "(begin" " 'for-loop" -"(if(if(pair? lst_402)(pair? lst_403) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_402))" -"((rest_234)(unsafe-cdr lst_402))" -"((trans-rhs_5)(unsafe-car lst_403))" -"((rest_235)(unsafe-cdr lst_403)))" -"(let-values(((fold-var_369)" -"(let-values(((fold-var_370) fold-var_368))" -"(let-values(((fold-var_371)" +"(if(if(pair? lst_0)(pair? lst_1) #f)" +"(let-values(((trans-ids_998)(unsafe-car lst_0))" +"((rest_999)(unsafe-cdr lst_0))" +"((trans-rhs_1000)(unsafe-car lst_1))" +"((rest_1001)(unsafe-cdr lst_1)))" +"(let-values(((fold-var_1002)" +"(let-values(((fold-var_1003) fold-var_0))" +"(let-values(((fold-var_1004)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1" " #f" "(list" -" trans-ids_0" -"(add-scope trans-rhs_5 sc_40))))" -" fold-var_370))))" -"(values fold-var_371)))))" -"(if(not #f)(for-loop_316 fold-var_369 rest_234 rest_235) fold-var_369)))" -" fold-var_368)))))" -" for-loop_316)" +" trans-ids_998" +"(add-scope trans-rhs_1000 sc_0))))" +" fold-var_1003))))" +"(values fold-var_1004)))))" +"(if(not #f)" +"(for-loop_994 fold-var_1002 rest_999 rest_1001)" +" fold-var_1002)))" +" fold-var_0)))))" +" for-loop_994)" " null" -" lst_400" -" lst_401))))" -" vals+body_0)))))))" +" lst_992" +" lst_993))))" +" vals+body_978)))))))" "(define-values" "(log-letrec-values)" -"(lambda(obs_99 val-idss_5 val-rhss_5 bodys_12)" +"(lambda(obs_0 val-idss_0 val-rhss_0 bodys_0)" "(begin" "(begin" -"(call-expand-observe obs_99 'next-group)" -"(if(null? val-idss_5)" +"(call-expand-observe obs_0 'next-group)" +"(if(null? val-idss_0)" "(void)" "(let-values()" "(begin" -"(call-expand-observe obs_99 'prim-letrec-values)" -"(log-let-renames obs_99 'let-renames val-idss_5 val-rhss_5 bodys_12 #f #f #f))))))))" +"(call-expand-observe obs_0 'prim-letrec-values)" +"(log-let-renames obs_0 'let-renames val-idss_0 val-rhss_0 bodys_0 #f #f #f))))))))" "(void" "(add-core-form!*" " 'let-values" -"(let-values(((temp214_2) 'prim-let-values))(make-let-values-form11.1 temp214_2 #f 'let-renames #f #f))))" +"(let-values(((temp214_1010) 'prim-let-values))(make-let-values-form11.1 temp214_1010 #f 'let-renames #f #f))))" "(void" "(add-core-form!*" " 'letrec-values" -"(let-values(((temp215_0) #t)((temp216_1) 'prim-letrec-values))" -"(make-let-values-form11.1 temp216_1 temp215_0 'let-renames #f #f))))" +"(let-values(((temp215_1012) #t)((temp216_1013) 'prim-letrec-values))" +"(make-let-values-form11.1 temp216_1013 temp215_1012 'let-renames #f #f))))" "(void" "(add-core-form!*" " 'letrec-syntaxes+values" -"(let-values(((temp217_3) #t)" -"((temp218_1) #t)" -"((temp219_0) #t)" -"((temp220_0) 'prim-letrec-syntaxes+values)" -"((temp221_3) 'letrec-syntaxes-renames))" -"(make-let-values-form11.1 temp220_0 temp218_1 temp221_3 temp219_0 temp217_3))))" +"(let-values(((temp217_1015) #t)" +"((temp218_1016) #t)" +"((temp219_1017) #t)" +"((temp220_1018) 'prim-letrec-syntaxes+values)" +"((temp221_1019) 'letrec-syntaxes-renames))" +"(make-let-values-form11.1 temp220_1018 temp218_1016 temp221_1019 temp219_1017 temp217_1015))))" "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_569 ctx_86)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(let-values(((obs_100)(expand-context-observer ctx_86)))" -"(if obs_100" -"(let-values()(let-values()(call-expand-observe obs_100 'prim-#%stratified)))" +"(let-values(((obs_1041)(expand-context-observer ctx_0)))" +"(if obs_1041" +"(let-values()(let-values()(call-expand-observe obs_1041 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_569)))" -"(let-values(((ok?_45 #%stratified-body222_0 body223_0)" -"(let-values(((s_570) disarmed-s_9))" -"(let-values(((orig-s_48) s_570))" -"(let-values(((#%stratified-body222_1 body223_1)" -"(let-values(((s_571)(if(syntax?$1 s_570)(syntax-e$1 s_570) s_570)))" -"(if(pair? s_571)" -"(let-values(((#%stratified-body224_0)" -"(let-values(((s_572)(car s_571))) s_572))" -"((body225_0)" -"(let-values(((s_573)(cdr s_571)))" -"(let-values(((s_574)" -"(if(syntax?$1 s_573)" -"(syntax-e$1 s_573)" -" s_573)))" -"(let-values(((flat-s_43)(to-syntax-list.1 s_574)))" -"(if(not flat-s_43)" +"(let-values(((disarmed-s_1022)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_1023 #%stratified-body222_1024 body223_1025)" +"(let-values(((s_1042) disarmed-s_1022))" +"(let-values(((orig-s_1043) s_1042))" +"(let-values(((#%stratified-body222_1044 body223_1045)" +"(let-values(((s_1046)(if(syntax?$1 s_1042)(syntax-e$1 s_1042) s_1042)))" +"(if(pair? s_1046)" +"(let-values(((#%stratified-body224_1047)" +"(let-values(((s_1049)(car s_1046))) s_1049))" +"((body225_1048)" +"(let-values(((s_1050)(cdr s_1046)))" +"(let-values(((s_1051)" +"(if(syntax?$1 s_1050)" +"(syntax-e$1 s_1050)" +" s_1050)))" +"(let-values(((flat-s_1052)(to-syntax-list.1 s_1051)))" +"(if(not flat-s_1052)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))" -"(if(null? flat-s_43)" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1043))" +"(if(null? flat-s_1052)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))" -"(let-values() flat-s_43))))))))" -"(values #%stratified-body224_0 body225_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" -"(values #t #%stratified-body222_1 body223_1))))))" -"(let-values(((rebuild-s_7)" -"(let-values(((ctx226_0) ctx_86)((s227_0) s_569)((temp228_0) #t))" -"(keep-as-needed119.1 #f temp228_0 #f ctx226_0 s227_0))))" -"(let-values(((exp-body_5)" -"(let-values(((temp229_3) body223_0)" -"((ctx230_0) ctx_86)" -"((temp231_1) #t)" -"((rebuild-s232_0) rebuild-s_7))" -"(expand-body7.1 rebuild-s232_0 temp231_1 temp229_3 ctx230_0))))" -"(if(expand-context-to-parsed? ctx_86)" -"(parsed-begin12.1 rebuild-s_7 exp-body_5)" -"(let-values(((rebuild-s233_0) rebuild-s_7)" -"((temp234_1)" -"(if(null?(cdr exp-body_5))" -"(car exp-body_5)" -"(list*(core-id 'begin(expand-context-phase ctx_86)) exp-body_5))))" -"(rebuild5.1 #t rebuild-s233_0 temp234_1)))))))))))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_1043))" +"(let-values() flat-s_1052))))))))" +"(values #%stratified-body224_1047 body225_1048))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1043)))))" +"(values #t #%stratified-body222_1044 body223_1045))))))" +"(let-values(((rebuild-s_1039)" +"(let-values(((ctx226_1054) ctx_0)((s227_1055) s_0)((temp228_1056) #t))" +"(keep-as-needed119.1 #f temp228_1056 #f ctx226_1054 s227_1055))))" +"(let-values(((exp-body_1040)" +"(let-values(((temp229_1058) body223_1025)" +"((ctx230_1059) ctx_0)" +"((temp231_1060) #t)" +"((rebuild-s232_1061) rebuild-s_1039))" +"(expand-body7.1 rebuild-s232_1061 temp231_1060 temp229_1058 ctx230_1059))))" +"(if(expand-context-to-parsed? ctx_0)" +"(parsed-begin12.1 rebuild-s_1039 exp-body_1040)" +"(let-values(((rebuild-s233_1062) rebuild-s_1039)" +"((temp234_1063)" +"(if(null?(cdr exp-body_1040))" +"(car exp-body_1040)" +"(list*(core-id 'begin(expand-context-phase ctx_0)) exp-body_1040))))" +"(rebuild5.1 #t rebuild-s233_1062 temp234_1063)))))))))))" "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_575 ctx_87)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(let-values(((obs_101)(expand-context-observer ctx_87)))" -"(if obs_101(let-values()(let-values()(call-expand-observe obs_101 'prim-#%datum)))(void)))" +"(let-values(((obs_1085)(expand-context-observer ctx_0)))" +"(if obs_1085" +"(let-values()(let-values()(call-expand-observe obs_1085 'prim-#%datum)))" +"(void)))" "(values))))" -"(let-values(((disarmed-s_10)(syntax-disarm$1 s_575)))" -"(let-values(((ok?_46 #%datum235_0 datum236_0)" -"(let-values(((s_576) disarmed-s_10))" -"(let-values(((orig-s_49) s_576))" -"(let-values(((#%datum235_1 datum236_1)" -"(let-values(((s_577)(if(syntax?$1 s_576)(syntax-e$1 s_576) s_576)))" -"(if(pair? s_577)" -"(let-values(((#%datum237_0)(let-values(((s_578)(car s_577))) s_578))" -"((datum238_0)(let-values(((s_579)(cdr s_577))) s_579)))" -"(values #%datum237_0 datum238_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" -"(values #t #%datum235_1 datum236_1))))))" -"(let-values(((datum_2) datum236_0))" +"(let-values(((disarmed-s_1066)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_1067 #%datum235_1068 datum236_1069)" +"(let-values(((s_1086) disarmed-s_1066))" +"(let-values(((orig-s_1087) s_1086))" +"(let-values(((#%datum235_1088 datum236_1089)" +"(let-values(((s_1090)(if(syntax?$1 s_1086)(syntax-e$1 s_1086) s_1086)))" +"(if(pair? s_1090)" +"(let-values(((#%datum237_1091)" +"(let-values(((s_1093)(car s_1090))) s_1093))" +"((datum238_1092)" +"(let-values(((s_1094)(cdr s_1090))) s_1094)))" +"(values #%datum237_1091 datum238_1092))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1087)))))" +"(values #t #%datum235_1088 datum236_1089))))))" +"(let-values(((datum_1083) datum236_1069))" "(let-values((()" "(begin" -"(if(if(syntax?$1 datum_2)(keyword?(syntax-e$1 datum_2)) #f)" +"(if(if(syntax?$1 datum_1083)(keyword?(syntax-e$1 datum_1083)) #f)" "(let-values()" -" (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))" +" (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_1083))" "(void))" "(values))))" -"(let-values(((phase_141)(expand-context-phase ctx_87)))" -"(if(if(expand-context-to-parsed? ctx_87)(free-id-set-empty?(expand-context-stops ctx_87)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_575)(syntax->datum$1 datum_2))" -"(let-values(((s239_0) s_575)((temp240_0)(list(core-id 'quote phase_141) datum_2)))" -"(rebuild5.1 #t s239_0 temp240_0))))))))))))" +"(let-values(((phase_1084)(expand-context-phase ctx_0)))" +"(if(if(expand-context-to-parsed? ctx_0)(free-id-set-empty?(expand-context-stops ctx_0)) #f)" +"(parsed-quote14.1(keep-properties-only~ s_0)(syntax->datum$1 datum_1083))" +"(let-values(((s239_1095) s_0)((temp240_1096)(list(core-id 'quote phase_1084) datum_1083)))" +"(rebuild5.1 #t s239_1095 temp240_1096))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_580 ctx_88)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(let-values(((obs_102)(expand-context-observer ctx_88)))" -"(if obs_102(let-values()(let-values()(call-expand-observe obs_102 'prim-#%app)))(void)))" +"(let-values(((obs_1117)(expand-context-observer ctx_0)))" +"(if obs_1117(let-values()(let-values()(call-expand-observe obs_1117 'prim-#%app)))(void)))" "(values))))" -"(let-values(((disarmed-s_11)(syntax-disarm$1 s_580)))" -"(let-values(((ok?_47 #%app241_0 e242_0)" -"(let-values(((s_581) disarmed-s_11))" -"(let-values(((orig-s_50) s_581))" -"(let-values(((#%app241_1 e242_1)" -"(let-values(((s_582)(if(syntax?$1 s_581)(syntax-e$1 s_581) s_581)))" -"(if(pair? s_582)" -"(let-values(((#%app243_0)(let-values(((s_583)(car s_582))) s_583))" -"((e244_0)" -"(let-values(((s_584)(cdr s_582)))" -"(let-values(((s_585)" -"(if(syntax?$1 s_584)" -"(syntax-e$1 s_584)" -" s_584)))" -"(let-values(((flat-s_44)(to-syntax-list.1 s_585)))" -"(if(not flat-s_44)" +"(let-values(((disarmed-s_1099)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_1100 #%app241_1101 e242_1102)" +"(let-values(((s_1118) disarmed-s_1099))" +"(let-values(((orig-s_1119) s_1118))" +"(let-values(((#%app241_1120 e242_1121)" +"(let-values(((s_1122)(if(syntax?$1 s_1118)(syntax-e$1 s_1118) s_1118)))" +"(if(pair? s_1122)" +"(let-values(((#%app243_1123)" +"(let-values(((s_1125)(car s_1122))) s_1125))" +"((e244_1124)" +"(let-values(((s_1126)(cdr s_1122)))" +"(let-values(((s_1127)" +"(if(syntax?$1 s_1126)" +"(syntax-e$1 s_1126)" +" s_1126)))" +"(let-values(((flat-s_1128)(to-syntax-list.1 s_1127)))" +"(if(not flat-s_1128)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_50))" -"(let-values() flat-s_44)))))))" -"(values #%app243_0 e244_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))" -"(values #t #%app241_1 e242_1))))))" -"(let-values(((es_3) e242_0))" -"(if(null? es_3)" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1119))" +"(let-values() flat-s_1128)))))))" +"(values #%app243_1123 e244_1124))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1119)))))" +"(values #t #%app241_1120 e242_1121))))))" +"(let-values(((es_1116) e242_1102))" +"(if(null? es_1116)" "(let-values()" -"(let-values(((phase_142)(expand-context-phase ctx_88)))" -"(if(expand-context-to-parsed? ctx_88)" -"(parsed-quote14.1(keep-properties-only~ s_580) null)" -"(let-values(((s245_0) s_580)((temp246_1)(list(core-id 'quote phase_142) null)))" -"(rebuild5.1 #t s245_0 temp246_1)))))" +"(let-values(((phase_1129)(expand-context-phase ctx_0)))" +"(if(expand-context-to-parsed? ctx_0)" +"(parsed-quote14.1(keep-properties-only~ s_0) null)" +"(let-values(((s245_1130) s_0)((temp246_1131)(list(core-id 'quote phase_1129) null)))" +"(rebuild5.1 #t s245_1130 temp246_1131)))))" "(let-values()" -"(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" -"(let-values(((rebuild-s_8)" -"(let-values(((ctx247_0) ctx_88)" -"((s248_0) s_580)" -"((keep-for-parsed?249_0) keep-for-parsed?_1))" -"(keep-as-needed119.1 #f #f keep-for-parsed?249_0 ctx247_0 s248_0))))" -"(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" -"(let-values(((rebuild-prefixless_0)" -"(if(syntax?$1 prefixless_0)" -"(let-values(((ctx250_0) ctx_88)" -"((prefixless251_0) prefixless_0)" -"((keep-for-parsed?252_0) keep-for-parsed?_1))" -"(keep-as-needed119.1 #f #f keep-for-parsed?252_0 ctx250_0 prefixless251_0))" +"(let-values(((keep-for-parsed?_1132)(eq?(system-type 'vm) 'chez-scheme)))" +"(let-values(((rebuild-s_1133)" +"(let-values(((ctx247_1141) ctx_0)" +"((s248_1142) s_0)" +"((keep-for-parsed?249_1143) keep-for-parsed?_1132))" +"(keep-as-needed119.1 #f #f keep-for-parsed?249_1143 ctx247_1141 s248_1142))))" +"(let-values(((prefixless_1134)(cdr(syntax-e$1 disarmed-s_1099))))" +"(let-values(((rebuild-prefixless_1135)" +"(if(syntax?$1 prefixless_1134)" +"(let-values(((ctx250_1145) ctx_0)" +"((prefixless251_1146) prefixless_1134)" +"((keep-for-parsed?252_1147) keep-for-parsed?_1132))" +"(keep-as-needed119.1" +" #f" +" #f" +" keep-for-parsed?252_1147" +" ctx250_1145" +" prefixless251_1146))" " #f)))" -"(let-values(((expr-ctx_1)(as-expression-context ctx_88)))" +"(let-values(((expr-ctx_1136)(as-expression-context ctx_0)))" "(let-values((()" "(begin" -"(let-values(((obs_103)(expand-context-observer expr-ctx_1)))" -"(if obs_103" +"(let-values(((obs_1148)(expand-context-observer expr-ctx_1136)))" +"(if obs_1148" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_103" +" obs_1148" " 'enter-list" -"(datum->syntax$1 #f es_3 s_580))" -"(call-expand-observe obs_103 'next))))" +"(datum->syntax$1 #f es_1116 s_0))" +"(call-expand-observe obs_1148 'next))))" "(void)))" "(values))))" -"(let-values(((rest-es_0)(cdr es_3)))" -"(let-values(((exp-rator_0)" -"(let-values(((temp253_1)(car es_3))((expr-ctx254_0) expr-ctx_1))" -"(expand9.1 #f #f #f temp253_1 expr-ctx254_0))))" -"(let-values(((exp-es_0)" +"(let-values(((rest-es_1137)(cdr es_1116)))" +"(let-values(((exp-rator_1138)" +"(let-values(((temp253_1149)(car es_1116))" +"((expr-ctx254_1150) expr-ctx_1136))" +"(expand9.1 #f #f #f temp253_1149 expr-ctx254_1150))))" +"(let-values(((exp-es_1139)" "(reverse$1" -"(let-values(((lst_404) rest-es_0))" +"(let-values(((lst_1151) rest-es_1137))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_404)))" -"((letrec-values(((for-loop_317)" -"(lambda(fold-var_372 lst_405)" +"(let-values()(check-list lst_1151)))" +"((letrec-values(((for-loop_1152)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_405)" -"(let-values(((e_89)(unsafe-car lst_405))" -"((rest_236)" -"(unsafe-cdr lst_405)))" -"(let-values(((fold-var_373)" -"(let-values(((fold-var_374)" -" fold-var_372))" -"(let-values(((fold-var_375)" +"(if(pair? lst_0)" +"(let-values(((e_1155)(unsafe-car lst_0))" +"((rest_1156)" +"(unsafe-cdr lst_0)))" +"(let-values(((fold-var_1157)" +"(let-values(((fold-var_1158)" +" fold-var_0))" +"(let-values(((fold-var_1159)" "(let-values()" "(cons" "(let-values()" "(begin" -"(let-values(((obs_104)" +"(let-values(((obs_1160)" "(expand-context-observer" -" expr-ctx_1)))" -"(if obs_104" +" expr-ctx_1136)))" +"(if obs_1160" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_104" +" obs_1160" " 'next)))" "(void)))" -"(let-values(((e255_0)" -" e_89)" -"((expr-ctx256_0)" -" expr-ctx_1))" +"(let-values(((e255_1161)" +" e_1155)" +"((expr-ctx256_1162)" +" expr-ctx_1136))" "(expand9.1" " #f" " #f" " #f" -" e255_0" -" expr-ctx256_0))))" -" fold-var_374))))" +" e255_1161" +" expr-ctx256_1162))))" +" fold-var_1158))))" "(values" -" fold-var_375)))))" +" fold-var_1159)))))" "(if(not #f)" -"(for-loop_317 fold-var_373 rest_236)" -" fold-var_373)))" -" fold-var_372)))))" -" for-loop_317)" +"(for-loop_1152" +" fold-var_1157" +" rest_1156)" +" fold-var_1157)))" +" fold-var_0)))))" +" for-loop_1152)" " null" -" lst_404))))))" -"(if(expand-context-to-parsed? ctx_88)" +" lst_1151))))))" +"(if(expand-context-to-parsed? ctx_0)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_385) rebuild-prefixless_0))" -"(if or-part_385 or-part_385 rebuild-s_8))" -" exp-rator_0" -" exp-es_0))" +"(let-values(((or-part_1163) rebuild-prefixless_1135))" +"(if or-part_1163 or-part_1163 rebuild-s_1133))" +" exp-rator_1138" +" exp-es_1139))" "(let-values()" -"(let-values(((es_4)" -"(let-values(((exp-es_1)(cons exp-rator_0 exp-es_0)))" -"(if rebuild-prefixless_0" -"(let-values(((rebuild-prefixless259_0) rebuild-prefixless_0)" -"((exp-es260_0) exp-es_1))" -"(rebuild5.1 #t rebuild-prefixless259_0 exp-es260_0))" -" exp-es_1))))" +"(let-values(((es_1164)" +"(let-values(((exp-es_1165)(cons exp-rator_1138 exp-es_1139)))" +"(if rebuild-prefixless_1135" +"(let-values(((rebuild-prefixless259_1166)" +" rebuild-prefixless_1135)" +"((exp-es260_1167) exp-es_1165))" +"(rebuild5.1 #t rebuild-prefixless259_1166 exp-es260_1167))" +" exp-es_1165))))" "(begin" -"(let-values(((obs_105)(expand-context-observer expr-ctx_1)))" -"(if obs_105" +"(let-values(((obs_1168)(expand-context-observer expr-ctx_1136)))" +"(if obs_1168" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_105" +" obs_1168" " 'exit-list" -"(datum->syntax$1 #f es_4 rebuild-s_8))))" +"(datum->syntax$1 #f es_1164 rebuild-s_1133))))" "(void)))" -"(let-values(((rebuild-s257_0) rebuild-s_8)" -"((temp258_0)(cons #%app241_0 es_4)))" -"(rebuild5.1 #t rebuild-s257_0 temp258_0))))))))))))))))))))))))" +"(let-values(((rebuild-s257_1169) rebuild-s_1133)" +"((temp258_1170)(cons #%app241_1101 es_1164)))" +"(rebuild5.1 #t rebuild-s257_1169 temp258_1170))))))))))))))))))))))))" "(void" "(add-core-form!*" " 'quote" -"(lambda(s_586 ctx_89)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(let-values(((obs_106)(expand-context-observer ctx_89)))" -"(if obs_106(let-values()(let-values()(call-expand-observe obs_106 'prim-quote)))(void)))" +"(let-values(((obs_1189)(expand-context-observer ctx_0)))" +"(if obs_1189(let-values()(let-values()(call-expand-observe obs_1189 'prim-quote)))(void)))" "(values))))" -"(let-values(((ok?_48 quote261_0 datum262_0)" -"(let-values(((s_282)(syntax-disarm$1 s_586)))" -"(let-values(((orig-s_51) s_282))" -"(let-values(((quote261_1 datum262_1)" -"(let-values(((s_284)(if(syntax?$1 s_282)(syntax-e$1 s_282) s_282)))" -"(if(pair? s_284)" -"(let-values(((quote263_0)(let-values(((s_587)(car s_284))) s_587))" -"((datum264_0)" -"(let-values(((s_588)(cdr s_284)))" -"(let-values(((s_589)" -"(if(syntax?$1 s_588)" -"(syntax-e$1 s_588)" -" s_588)))" -"(if(pair? s_589)" -"(let-values(((datum265_0)" -"(let-values(((s_590)(car s_589))) s_590))" +"(let-values(((ok?_1173 quote261_1174 datum262_1175)" +"(let-values(((s_1190)(syntax-disarm$1 s_0)))" +"(let-values(((orig-s_1191) s_1190))" +"(let-values(((quote261_1192 datum262_1193)" +"(let-values(((s_1194)(if(syntax?$1 s_1190)(syntax-e$1 s_1190) s_1190)))" +"(if(pair? s_1194)" +"(let-values(((quote263_1195)(let-values(((s_1197)(car s_1194))) s_1197))" +"((datum264_1196)" +"(let-values(((s_1198)(cdr s_1194)))" +"(let-values(((s_1199)" +"(if(syntax?$1 s_1198)" +"(syntax-e$1 s_1198)" +" s_1198)))" +"(if(pair? s_1199)" +"(let-values(((datum265_1200)" +"(let-values(((s_1201)(car s_1199)))" +" s_1201))" "(()" -"(let-values(((s_591)(cdr s_589)))" -"(let-values(((s_592)" -"(if(syntax?$1 s_591)" -"(syntax-e$1 s_591)" -" s_591)))" -"(if(null? s_592)" +"(let-values(((s_1202)(cdr s_1199)))" +"(let-values(((s_1203)" +"(if(syntax?$1 s_1202)" +"(syntax-e$1 s_1202)" +" s_1202)))" +"(if(null? s_1203)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_51))))))" -"(values datum265_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_51))))))" -"(values quote263_0 datum264_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))" -"(values #t quote261_1 datum262_1))))))" -"(if(expand-context-to-parsed? ctx_89)" -"(parsed-quote14.1(keep-properties-only~ s_586)(syntax->datum$1 datum262_0))" -" s_586))))))" +" orig-s_1191))))))" +"(values datum265_1200))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1191))))))" +"(values quote263_1195 datum264_1196))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1191)))))" +"(values #t quote261_1192 datum262_1193))))))" +"(if(expand-context-to-parsed? ctx_0)" +"(parsed-quote14.1(keep-properties-only~ s_0)(syntax->datum$1 datum262_1175))" +" s_0))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_593 ctx_90)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(let-values(((obs_107)(expand-context-observer ctx_90)))" -"(if obs_107" -"(let-values()(let-values()(call-expand-observe obs_107 'prim-quote-syntax)))" +"(let-values(((obs_1239)(expand-context-observer ctx_0)))" +"(if obs_1239" +"(let-values()(let-values()(call-expand-observe obs_1239 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_593)))" -"(let-values(((ok?_49 quote-syntax266_0 datum267_0)" -"(let-values(((s_291) disarmed-s_12))" -"(if(let-values(((s_594)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" -"(if(pair? s_594)" -"(if(let-values(((s_595)(car s_594))) #t)" -"(let-values(((s_596)(cdr s_594)))" -"(let-values(((s_292)(if(syntax?$1 s_596)(syntax-e$1 s_596) s_596)))" -"(if(pair? s_292)" -"(if(let-values(((s_597)(car s_292))) #t)" -"(let-values(((s_598)(cdr s_292)))" -"(let-values(((s_293)(if(syntax?$1 s_598)(syntax-e$1 s_598) s_598)))" -"(if(pair? s_293)" -"(if(let-values(((s_294)(car s_293)))" -"(let-values(((s_295)" -"(if(syntax?$1 s_294)(syntax-e$1 s_294) s_294)))" -"(eq? '#:local s_295)))" -"(let-values(((s_599)(cdr s_293)))" -"(let-values(((s_600)" -"(if(syntax?$1 s_599)(syntax-e$1 s_599) s_599)))" -"(null? s_600)))" +"(let-values(((disarmed-s_1206)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_1207 quote-syntax266_1208 datum267_1209)" +"(let-values(((s_1240) disarmed-s_1206))" +"(if(let-values(((s_1241)(if(syntax?$1 s_1240)(syntax-e$1 s_1240) s_1240)))" +"(if(pair? s_1241)" +"(if(let-values(((s_1242)(car s_1241))) #t)" +"(let-values(((s_1243)(cdr s_1241)))" +"(let-values(((s_1244)(if(syntax?$1 s_1243)(syntax-e$1 s_1243) s_1243)))" +"(if(pair? s_1244)" +"(if(let-values(((s_1245)(car s_1244))) #t)" +"(let-values(((s_1246)(cdr s_1244)))" +"(let-values(((s_1247)(if(syntax?$1 s_1246)(syntax-e$1 s_1246) s_1246)))" +"(if(pair? s_1247)" +"(if(let-values(((s_1248)(car s_1247)))" +"(let-values(((s_1249)" +"(if(syntax?$1 s_1248)" +"(syntax-e$1 s_1248)" +" s_1248)))" +"(eq? '#:local s_1249)))" +"(let-values(((s_1250)(cdr s_1247)))" +"(let-values(((s_1251)" +"(if(syntax?$1 s_1250)(syntax-e$1 s_1250) s_1250)))" +"(null? s_1251)))" " #f)" " #f)))" " #f)" @@ -66597,203 +66936,204 @@ static const char *startup_source = " #f)" " #f))" "(let-values()" -"(let-values(((quote-syntax266_1 datum267_1)" -"(let-values(((s_601)(if(syntax?$1 s_291)(syntax-e$1 s_291) s_291)))" -"(let-values(((quote-syntax268_0)" -"(let-values(((s_602)(car s_601))) s_602))" -"((datum269_0)" -"(let-values(((s_603)(cdr s_601)))" -"(let-values(((s_604)" -"(if(syntax?$1 s_603)" -"(syntax-e$1 s_603)" -" s_603)))" -"(let-values(((datum270_0)" -"(let-values(((s_605)(car s_604))) s_605))" +"(let-values(((quote-syntax266_1253 datum267_1254)" +"(let-values(((s_1255)(if(syntax?$1 s_1240)(syntax-e$1 s_1240) s_1240)))" +"(let-values(((quote-syntax268_1256)" +"(let-values(((s_1258)(car s_1255))) s_1258))" +"((datum269_1257)" +"(let-values(((s_1259)(cdr s_1255)))" +"(let-values(((s_1260)" +"(if(syntax?$1 s_1259)" +"(syntax-e$1 s_1259)" +" s_1259)))" +"(let-values(((datum270_1261)" +"(let-values(((s_1262)(car s_1260)))" +" s_1262))" "(()" -"(let-values(((s_606)(cdr s_604)))" -"(let-values(((s_607)" -"(if(syntax?$1 s_606)" -"(syntax-e$1 s_606)" -" s_606)))" +"(let-values(((s_1263)(cdr s_1260)))" +"(let-values(((s_1264)" +"(if(syntax?$1 s_1263)" +"(syntax-e$1 s_1263)" +" s_1263)))" "(let-values((()" -"(let-values(((s_608)" +"(let-values(((s_1265)" "(car" -" s_607)))" -"(let-values(((s_609)" +" s_1264)))" +"(let-values(((s_1266)" "(if(syntax?$1" -" s_608)" +" s_1265)" "(syntax-e$1" -" s_608)" -" s_608)))" +" s_1265)" +" s_1265)))" "(values))))" "(()" -"(let-values(((s_610)" +"(let-values(((s_1267)" "(cdr" -" s_607)))" -"(let-values(((s_611)" +" s_1264)))" +"(let-values(((s_1268)" "(if(syntax?$1" -" s_610)" +" s_1267)" "(syntax-e$1" -" s_610)" -" s_610)))" +" s_1267)" +" s_1267)))" "(values)))))" "(values))))))" -"(values datum270_0))))))" -"(values quote-syntax268_0 datum269_0)))))" -"(values #t quote-syntax266_1 datum267_1)))" +"(values datum270_1261))))))" +"(values quote-syntax268_1256 datum269_1257)))))" +"(values #t quote-syntax266_1253 datum267_1254)))" "(values #f #f #f)))))" -"(let-values(((ok?_50 quote-syntax271_0 datum272_0)" -"(let-values(((s_612) disarmed-s_12))" -"(if(if(not ok?_49) #t #f)" -"(let-values(((orig-s_52) s_612))" -"(let-values(((quote-syntax271_1 datum272_1)" -"(let-values(((s_613)(if(syntax?$1 s_612)(syntax-e$1 s_612) s_612)))" -"(if(pair? s_613)" -"(let-values(((quote-syntax273_0)" -"(let-values(((s_297)(car s_613))) s_297))" -"((datum274_0)" -"(let-values(((s_614)(cdr s_613)))" -"(let-values(((s_615)" -"(if(syntax?$1 s_614)" -"(syntax-e$1 s_614)" -" s_614)))" -"(if(pair? s_615)" -"(let-values(((datum275_0)" -"(let-values(((s_298)(car s_615)))" -" s_298))" +"(let-values(((ok?_1223 quote-syntax271_1224 datum272_1225)" +"(let-values(((s_1269) disarmed-s_1206))" +"(if(if(not ok?_1207) #t #f)" +"(let-values(((orig-s_1270) s_1269))" +"(let-values(((quote-syntax271_1271 datum272_1272)" +"(let-values(((s_1273)(if(syntax?$1 s_1269)(syntax-e$1 s_1269) s_1269)))" +"(if(pair? s_1273)" +"(let-values(((quote-syntax273_1274)" +"(let-values(((s_1276)(car s_1273))) s_1276))" +"((datum274_1275)" +"(let-values(((s_1277)(cdr s_1273)))" +"(let-values(((s_1278)" +"(if(syntax?$1 s_1277)" +"(syntax-e$1 s_1277)" +" s_1277)))" +"(if(pair? s_1278)" +"(let-values(((datum275_1279)" +"(let-values(((s_1280)(car s_1278)))" +" s_1280))" "(()" -"(let-values(((s_299)(cdr s_615)))" -"(let-values(((s_300)" -"(if(syntax?$1 s_299)" -"(syntax-e$1 s_299)" -" s_299)))" -"(if(null? s_300)" +"(let-values(((s_1281)(cdr s_1278)))" +"(let-values(((s_1282)" +"(if(syntax?$1" +" s_1281)" +"(syntax-e$1 s_1281)" +" s_1281)))" +"(if(null? s_1282)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_52))))))" -"(values datum275_0))" +" orig-s_1270))))))" +"(values datum275_1279))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_52))))))" -"(values quote-syntax273_0 datum274_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))" -"(values #t quote-syntax271_1 datum272_1)))" +" orig-s_1270))))))" +"(values quote-syntax273_1274 datum274_1275))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1270)))))" +"(values #t quote-syntax271_1271 datum272_1272)))" "(values #f #f #f)))))" -"(if ok?_49" +"(if ok?_1207" "(let-values()" "(let-values((()" -"(begin" -"(reference-records-all-used!(expand-context-reference-records ctx_90))" -"(values))))" -"(let-values(((ok?_51 _276_0 _277_0 kw278_0)" -"(let-values(((s_616) disarmed-s_12))" -"(let-values(((orig-s_53) s_616))" -"(let-values(((_276_1 _277_1 kw278_1)" -"(let-values(((s_617)" -"(if(syntax?$1 s_616)(syntax-e$1 s_616) s_616)))" -"(if(pair? s_617)" -"(let-values(((_279_0)" -"(let-values(((s_618)(car s_617))) s_618))" -"((_280_0 kw281_0)" -"(let-values(((s_619)(cdr s_617)))" -"(let-values(((s_620)" -"(if(syntax?$1 s_619)" -"(syntax-e$1 s_619)" -" s_619)))" -"(if(pair? s_620)" -"(let-values(((_282_0)" -"(let-values(((s_621)" -"(car s_620)))" -" s_621))" -"((kw283_0)" -"(let-values(((s_622)" -"(cdr s_620)))" -"(let-values(((s_623)" +"(begin(reference-records-all-used!(expand-context-reference-records ctx_0))(values))))" +"(let-values(((ok?_1283 _276_1284 _277_1285 kw278_1286)" +"(let-values(((s_1303) disarmed-s_1206))" +"(let-values(((orig-s_1304) s_1303))" +"(let-values(((_276_1305 _277_1306 kw278_1307)" +"(let-values(((s_1308)" +"(if(syntax?$1 s_1303)(syntax-e$1 s_1303) s_1303)))" +"(if(pair? s_1308)" +"(let-values(((_279_1309)" +"(let-values(((s_1312)(car s_1308))) s_1312))" +"((_280_1310 kw281_1311)" +"(let-values(((s_1313)(cdr s_1308)))" +"(let-values(((s_1314)" +"(if(syntax?$1 s_1313)" +"(syntax-e$1 s_1313)" +" s_1313)))" +"(if(pair? s_1314)" +"(let-values(((_282_1315)" +"(let-values(((s_1317)" +"(car s_1314)))" +" s_1317))" +"((kw283_1316)" +"(let-values(((s_1318)" +"(cdr s_1314)))" +"(let-values(((s_1319)" "(if(syntax?$1" -" s_622)" +" s_1318)" "(syntax-e$1" -" s_622)" -" s_622)))" -"(if(pair? s_623)" -"(let-values(((kw284_0)" -"(let-values(((s_624)" +" s_1318)" +" s_1318)))" +"(if(pair? s_1319)" +"(let-values(((kw284_1320)" +"(let-values(((s_1321)" "(car" -" s_623)))" -" s_624))" +" s_1319)))" +" s_1321))" "(()" -"(let-values(((s_625)" +"(let-values(((s_1322)" "(cdr" -" s_623)))" -"(let-values(((s_626)" +" s_1319)))" +"(let-values(((s_1323)" "(if(syntax?$1" -" s_625)" +" s_1322)" "(syntax-e$1" -" s_625)" -" s_625)))" +" s_1322)" +" s_1322)))" "(if(null?" -" s_626)" +" s_1323)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_53))))))" -"(values kw284_0))" +" orig-s_1304))))))" +"(values kw284_1320))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_53))))))" -"(values _282_0 kw283_0))" +" orig-s_1304))))))" +"(values _282_1315 kw283_1316))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_53))))))" -"(values _279_0 _280_0 kw281_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" -"(values #t _276_1 _277_1 kw278_1))))))" -"(if(expand-context-to-parsed? ctx_90)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_593) datum267_0)" -"(let-values(((s285_0) s_593)((temp286_0)(list quote-syntax266_0 datum267_0 kw278_0)))" -"(rebuild5.1 #t s285_0 temp286_0))))))" +" orig-s_1304))))))" +"(values _279_1309 _280_1310 kw281_1311))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1304)))))" +"(values #t _276_1305 _277_1306 kw278_1307))))))" +"(if(expand-context-to-parsed? ctx_0)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_0) datum267_1209)" +"(let-values(((s285_1324) s_0)" +"((temp286_1325)(list quote-syntax266_1208 datum267_1209 kw278_1286)))" +"(rebuild5.1 #t s285_1324 temp286_1325))))))" "(let-values()" -"(let-values(((use-site-scopes_2)(root-expand-context-use-site-scopes ctx_90)))" -"(let-values(((datum-s_0)" +"(let-values(((use-site-scopes_1326)(root-expand-context-use-site-scopes ctx_0)))" +"(let-values(((datum-s_1327)" "(remove-scopes" -"(remove-scopes datum272_0(expand-context-scopes ctx_90))" -"(if use-site-scopes_2(unbox use-site-scopes_2) '()))))" -"(if(if(expand-context-to-parsed? ctx_90)(free-id-set-empty?(expand-context-stops ctx_90)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_593) datum-s_0)" -"(let-values(((s287_0) s_593)((temp288_0)(list quote-syntax271_0 datum-s_0)))" -"(rebuild5.1 #t s287_0 temp288_0))))))))))))))" +"(remove-scopes datum272_1225(expand-context-scopes ctx_0))" +"(if use-site-scopes_1326(unbox use-site-scopes_1326) '()))))" +"(if(if(expand-context-to-parsed? ctx_0)(free-id-set-empty?(expand-context-stops ctx_0)) #f)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_0) datum-s_1327)" +"(let-values(((s287_1328) s_0)((temp288_1329)(list quote-syntax271_1224 datum-s_1327)))" +"(rebuild5.1 #t s287_1328 temp288_1329))))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_627 ctx_91)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(let-values(((obs_108)(expand-context-observer ctx_91)))" -"(if obs_108(let-values()(let-values()(call-expand-observe obs_108 'prim-if)))(void)))" +"(let-values(((obs_1383)(expand-context-observer ctx_0)))" +"(if obs_1383(let-values()(let-values()(call-expand-observe obs_1383 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_627)))" -"(let-values(((ok?_52 _289_0 _290_0 _291_0)" -"(let-values(((s_628) disarmed-s_13))" -"(if(let-values(((s_629)(if(syntax?$1 s_628)(syntax-e$1 s_628) s_628)))" -"(if(pair? s_629)" -"(if(let-values(((s_630)(car s_629))) #t)" -"(let-values(((s_631)(cdr s_629)))" -"(let-values(((s_632)(if(syntax?$1 s_631)(syntax-e$1 s_631) s_631)))" -"(if(pair? s_632)" -"(if(let-values(((s_633)(car s_632))) #t)" -"(let-values(((s_634)(cdr s_632)))" -"(let-values(((s_635)(if(syntax?$1 s_634)(syntax-e$1 s_634) s_634)))" -"(if(pair? s_635)" -"(if(let-values(((s_636)(car s_635))) #t)" -"(let-values(((s_637)(cdr s_635)))" -"(let-values(((s_638)" -"(if(syntax?$1 s_637)(syntax-e$1 s_637) s_637)))" -"(null? s_638)))" +"(let-values(((disarmed-s_1332)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_1333 _289_1334 _290_1335 _291_1336)" +"(let-values(((s_1384) disarmed-s_1332))" +"(if(let-values(((s_1385)(if(syntax?$1 s_1384)(syntax-e$1 s_1384) s_1384)))" +"(if(pair? s_1385)" +"(if(let-values(((s_1386)(car s_1385))) #t)" +"(let-values(((s_1387)(cdr s_1385)))" +"(let-values(((s_1388)(if(syntax?$1 s_1387)(syntax-e$1 s_1387) s_1387)))" +"(if(pair? s_1388)" +"(if(let-values(((s_1389)(car s_1388))) #t)" +"(let-values(((s_1390)(cdr s_1388)))" +"(let-values(((s_1391)(if(syntax?$1 s_1390)(syntax-e$1 s_1390) s_1390)))" +"(if(pair? s_1391)" +"(if(let-values(((s_1392)(car s_1391))) #t)" +"(let-values(((s_1393)(cdr s_1391)))" +"(let-values(((s_1394)" +"(if(syntax?$1 s_1393)(syntax-e$1 s_1393) s_1393)))" +"(null? s_1394)))" " #f)" " #f)))" " #f)" @@ -66801,1343 +67141,1413 @@ static const char *startup_source = " #f)" " #f))" "(let-values()" -"(let-values(((_289_1 _290_1 _291_1)" -"(let-values(((s_639)(if(syntax?$1 s_628)(syntax-e$1 s_628) s_628)))" -"(let-values(((_292_0)(let-values(((s_640)(car s_639))) s_640))" -"((_293_0 _294_0)" -"(let-values(((s_641)(cdr s_639)))" -"(let-values(((s_642)" -"(if(syntax?$1 s_641)" -"(syntax-e$1 s_641)" -" s_641)))" -"(let-values(((_295_0)" -"(let-values(((s_643)(car s_642))) s_643))" -"((_296_0)" -"(let-values(((s_644)(cdr s_642)))" -"(let-values(((s_645)" -"(if(syntax?$1 s_644)" -"(syntax-e$1 s_644)" -" s_644)))" -"(let-values(((_297_0)" -"(let-values(((s_646)" +"(let-values(((_289_1396 _290_1397 _291_1398)" +"(let-values(((s_1399)(if(syntax?$1 s_1384)(syntax-e$1 s_1384) s_1384)))" +"(let-values(((_292_1400)(let-values(((s_1403)(car s_1399))) s_1403))" +"((_293_1401 _294_1402)" +"(let-values(((s_1404)(cdr s_1399)))" +"(let-values(((s_1405)" +"(if(syntax?$1 s_1404)" +"(syntax-e$1 s_1404)" +" s_1404)))" +"(let-values(((_295_1406)" +"(let-values(((s_1408)(car s_1405)))" +" s_1408))" +"((_296_1407)" +"(let-values(((s_1409)(cdr s_1405)))" +"(let-values(((s_1410)" +"(if(syntax?$1 s_1409)" +"(syntax-e$1 s_1409)" +" s_1409)))" +"(let-values(((_297_1411)" +"(let-values(((s_1412)" "(car" -" s_645)))" -" s_646))" +" s_1410)))" +" s_1412))" "(()" -"(let-values(((s_647)" +"(let-values(((s_1413)" "(cdr" -" s_645)))" -"(let-values(((s_648)" +" s_1410)))" +"(let-values(((s_1414)" "(if(syntax?$1" -" s_647)" +" s_1413)" "(syntax-e$1" -" s_647)" -" s_647)))" +" s_1413)" +" s_1413)))" "(values)))))" -"(values _297_0))))))" -"(values _295_0 _296_0))))))" -"(values _292_0 _293_0 _294_0)))))" -"(values #t _289_1 _290_1 _291_1)))" +"(values _297_1411))))))" +"(values _295_1406 _296_1407))))))" +"(values _292_1400 _293_1401 _294_1402)))))" +"(values #t _289_1396 _290_1397 _291_1398)))" "(values #f #f #f #f)))))" "(let-values((()" "(begin" -"(if ok?_52" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_627))" +"(if ok?_1333" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_0))" "(void))" "(values))))" -"(let-values(((ok?_53 if298_0 tst299_0 thn300_0 els301_0)" -"(let-values(((s_649) disarmed-s_13))" -"(let-values(((orig-s_54) s_649))" -"(let-values(((if298_1 tst299_1 thn300_1 els301_1)" -"(let-values(((s_650)(if(syntax?$1 s_649)(syntax-e$1 s_649) s_649)))" -"(if(pair? s_650)" -"(let-values(((if302_0)(let-values(((s_651)(car s_650))) s_651))" -"((tst303_0 thn304_0 els305_0)" -"(let-values(((s_652)(cdr s_650)))" -"(let-values(((s_653)" -"(if(syntax?$1 s_652)" -"(syntax-e$1 s_652)" -" s_652)))" -"(if(pair? s_653)" -"(let-values(((tst306_0)" -"(let-values(((s_654)(car s_653)))" -" s_654))" -"((thn307_0 els308_0)" -"(let-values(((s_655)(cdr s_653)))" -"(let-values(((s_656)" -"(if(syntax?$1 s_655)" -"(syntax-e$1 s_655)" -" s_655)))" -"(if(pair? s_656)" -"(let-values(((thn309_0)" -"(let-values(((s_657)" -"(car" -" s_656)))" -" s_657))" -"((els310_0)" -"(let-values(((s_658)" -"(cdr" -" s_656)))" -"(let-values(((s_659)" +"(let-values(((ok?_1353 if298_1354 tst299_1355 thn300_1356 els301_1357)" +"(let-values(((s_1415) disarmed-s_1332))" +"(let-values(((orig-s_1416) s_1415))" +"(let-values(((if298_1417 tst299_1418 thn300_1419 els301_1420)" +"(let-values(((s_1421)(if(syntax?$1 s_1415)(syntax-e$1 s_1415) s_1415)))" +"(if(pair? s_1421)" +"(let-values(((if302_1422)" +"(let-values(((s_1426)(car s_1421))) s_1426))" +"((tst303_1423 thn304_1424 els305_1425)" +"(let-values(((s_1427)(cdr s_1421)))" +"(let-values(((s_1428)" +"(if(syntax?$1 s_1427)" +"(syntax-e$1 s_1427)" +" s_1427)))" +"(if(pair? s_1428)" +"(let-values(((tst306_1429)" +"(let-values(((s_1432)(car s_1428)))" +" s_1432))" +"((thn307_1430 els308_1431)" +"(let-values(((s_1433)(cdr s_1428)))" +"(let-values(((s_1434)" "(if(syntax?$1" -" s_658)" +" s_1433)" +"(syntax-e$1 s_1433)" +" s_1433)))" +"(if(pair? s_1434)" +"(let-values(((thn309_1435)" +"(let-values(((s_1437)" +"(car" +" s_1434)))" +" s_1437))" +"((els310_1436)" +"(let-values(((s_1438)" +"(cdr" +" s_1434)))" +"(let-values(((s_1439)" +"(if(syntax?$1" +" s_1438)" "(syntax-e$1" -" s_658)" -" s_658)))" +" s_1438)" +" s_1438)))" "(if(pair?" -" s_659)" -"(let-values(((els311_0)" -"(let-values(((s_660)" +" s_1439)" +"(let-values(((els311_1440)" +"(let-values(((s_1441)" "(car" -" s_659)))" -" s_660))" +" s_1439)))" +" s_1441))" "(()" -"(let-values(((s_661)" +"(let-values(((s_1442)" "(cdr" -" s_659)))" -"(let-values(((s_662)" +" s_1439)))" +"(let-values(((s_1443)" "(if(syntax?$1" -" s_661)" +" s_1442)" "(syntax-e$1" -" s_661)" -" s_661)))" +" s_1442)" +" s_1442)))" "(if(null?" -" s_662)" +" s_1443)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_54))))))" +" orig-s_1416))))))" "(values" -" els311_0))" +" els311_1440))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_54))))))" -"(values thn309_0 els310_0))" +" orig-s_1416))))))" +"(values" +" thn309_1435" +" els310_1436))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_54))))))" -"(values tst306_0 thn307_0 els308_0))" +" orig-s_1416))))))" +"(values tst306_1429 thn307_1430 els308_1431))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_54))))))" -"(values if302_0 tst303_0 thn304_0 els305_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" -"(values #t if298_1 tst299_1 thn300_1 els301_1))))))" -"(let-values(((expr-ctx_2)(as-expression-context ctx_91)))" -"(let-values(((tail-ctx_0)" -"(let-values(((expr-ctx312_0) expr-ctx_2)((ctx313_0) ctx_91))" -"(as-tail-context22.1 ctx313_0 expr-ctx312_0))))" -"(let-values(((rebuild-s_9)" -"(let-values(((ctx314_0) ctx_91)((s315_0) s_627))" -"(keep-as-needed119.1 #f #f #f ctx314_0 s315_0))))" -"(let-values(((exp-tst_0)" -"(let-values(((temp316_0) tst299_0)((expr-ctx317_0) expr-ctx_2))" -"(expand9.1 #f #f #f temp316_0 expr-ctx317_0))))" +" orig-s_1416))))))" +"(values if302_1422 tst303_1423 thn304_1424 els305_1425))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1416)))))" +"(values #t if298_1417 tst299_1418 thn300_1419 els301_1420))))))" +"(let-values(((expr-ctx_1377)(as-expression-context ctx_0)))" +"(let-values(((tail-ctx_1378)" +"(let-values(((expr-ctx312_1445) expr-ctx_1377)((ctx313_1446) ctx_0))" +"(as-tail-context22.1 ctx313_1446 expr-ctx312_1445))))" +"(let-values(((rebuild-s_1379)" +"(let-values(((ctx314_1447) ctx_0)((s315_1448) s_0))" +"(keep-as-needed119.1 #f #f #f ctx314_1447 s315_1448))))" +"(let-values(((exp-tst_1380)" +"(let-values(((temp316_1449) tst299_1355)((expr-ctx317_1450) expr-ctx_1377))" +"(expand9.1 #f #f #f temp316_1449 expr-ctx317_1450))))" "(let-values((()" "(begin" -"(let-values(((obs_109)(expand-context-observer ctx_91)))" -"(if obs_109" -"(let-values()(let-values()(call-expand-observe obs_109 'next)))" +"(let-values(((obs_1451)(expand-context-observer ctx_0)))" +"(if obs_1451" +"(let-values()(let-values()(call-expand-observe obs_1451 'next)))" "(void)))" "(values))))" -"(let-values(((exp-thn_0)" -"(let-values(((temp318_0) thn300_0)((tail-ctx319_0) tail-ctx_0))" -"(expand9.1 #f #f #f temp318_0 tail-ctx319_0))))" +"(let-values(((exp-thn_1381)" +"(let-values(((temp318_1452) thn300_1356)((tail-ctx319_1453) tail-ctx_1378))" +"(expand9.1 #f #f #f temp318_1452 tail-ctx319_1453))))" "(let-values((()" "(begin" -"(let-values(((obs_110)(expand-context-observer ctx_91)))" -"(if obs_110" -"(let-values()(let-values()(call-expand-observe obs_110 'next)))" +"(let-values(((obs_1454)(expand-context-observer ctx_0)))" +"(if obs_1454" +"(let-values()(let-values()(call-expand-observe obs_1454 'next)))" "(void)))" "(values))))" -"(let-values(((exp-els_0)" -"(let-values(((temp320_0) els301_0)((tail-ctx321_0) tail-ctx_0))" -"(expand9.1 #f #f #f temp320_0 tail-ctx321_0))))" -"(if(expand-context-to-parsed? ctx_91)" -"(parsed-if8.1 rebuild-s_9 exp-tst_0 exp-thn_0 exp-els_0)" -"(let-values(((rebuild-s322_0) rebuild-s_9)" -"((temp323_0)(list if298_0 exp-tst_0 exp-thn_0 exp-els_0)))" -"(rebuild5.1 #t rebuild-s322_0 temp323_0)))))))))))))))))))" +"(let-values(((exp-els_1382)" +"(let-values(((temp320_1455) els301_1357)((tail-ctx321_1456) tail-ctx_1378))" +"(expand9.1 #f #f #f temp320_1455 tail-ctx321_1456))))" +"(if(expand-context-to-parsed? ctx_0)" +"(parsed-if8.1 rebuild-s_1379 exp-tst_1380 exp-thn_1381 exp-els_1382)" +"(let-values(((rebuild-s322_1457) rebuild-s_1379)" +"((temp323_1458)(list if298_1354 exp-tst_1380 exp-thn_1381 exp-els_1382)))" +"(rebuild5.1 #t rebuild-s322_1457 temp323_1458)))))))))))))))))))" "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_663 ctx_92)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(let-values(((obs_111)(expand-context-observer ctx_92)))" -"(if obs_111" -"(let-values()(let-values()(call-expand-observe obs_111 'prim-with-continuation-mark)))" +"(let-values(((obs_1491)(expand-context-observer ctx_0)))" +"(if obs_1491" +"(let-values()(let-values()(call-expand-observe obs_1491 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_663)))" -"(let-values(((ok?_54 with-continuation-mark324_0 key325_0 val326_0 body327_0)" -"(let-values(((s_664) disarmed-s_14))" -"(let-values(((orig-s_55) s_664))" -"(let-values(((with-continuation-mark324_1 key325_1 val326_1 body327_1)" -"(let-values(((s_665)(if(syntax?$1 s_664)(syntax-e$1 s_664) s_664)))" -"(if(pair? s_665)" -"(let-values(((with-continuation-mark328_0)" -"(let-values(((s_666)(car s_665))) s_666))" -"((key329_0 val330_0 body331_0)" -"(let-values(((s_667)(cdr s_665)))" -"(let-values(((s_668)" -"(if(syntax?$1 s_667)" -"(syntax-e$1 s_667)" -" s_667)))" -"(if(pair? s_668)" -"(let-values(((key332_0)" -"(let-values(((s_669)(car s_668)))" -" s_669))" -"((val333_0 body334_0)" -"(let-values(((s_670)(cdr s_668)))" -"(let-values(((s_671)" -"(if(syntax?$1 s_670)" -"(syntax-e$1 s_670)" -" s_670)))" -"(if(pair? s_671)" -"(let-values(((val335_0)" -"(let-values(((s_672)" +"(let-values(((disarmed-s_1461)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_1462 with-continuation-mark324_1463 key325_1464 val326_1465 body327_1466)" +"(let-values(((s_1492) disarmed-s_1461))" +"(let-values(((orig-s_1493) s_1492))" +"(let-values(((with-continuation-mark324_1494 key325_1495 val326_1496 body327_1497)" +"(let-values(((s_1498)(if(syntax?$1 s_1492)(syntax-e$1 s_1492) s_1492)))" +"(if(pair? s_1498)" +"(let-values(((with-continuation-mark328_1499)" +"(let-values(((s_1503)(car s_1498))) s_1503))" +"((key329_1500 val330_1501 body331_1502)" +"(let-values(((s_1504)(cdr s_1498)))" +"(let-values(((s_1505)" +"(if(syntax?$1 s_1504)" +"(syntax-e$1 s_1504)" +" s_1504)))" +"(if(pair? s_1505)" +"(let-values(((key332_1506)" +"(let-values(((s_1509)(car s_1505)))" +" s_1509))" +"((val333_1507 body334_1508)" +"(let-values(((s_1510)(cdr s_1505)))" +"(let-values(((s_1511)" +"(if(syntax?$1 s_1510)" +"(syntax-e$1 s_1510)" +" s_1510)))" +"(if(pair? s_1511)" +"(let-values(((val335_1512)" +"(let-values(((s_1514)" "(car" -" s_671)))" -" s_672))" -"((body336_0)" -"(let-values(((s_673)" +" s_1511)))" +" s_1514))" +"((body336_1513)" +"(let-values(((s_1515)" "(cdr" -" s_671)))" -"(let-values(((s_674)" +" s_1511)))" +"(let-values(((s_1516)" "(if(syntax?$1" -" s_673)" +" s_1515)" "(syntax-e$1" -" s_673)" -" s_673)))" -"(if(pair? s_674)" -"(let-values(((body337_0)" -"(let-values(((s_675)" +" s_1515)" +" s_1515)))" +"(if(pair?" +" s_1516)" +"(let-values(((body337_1517)" +"(let-values(((s_1518)" "(car" -" s_674)))" -" s_675))" +" s_1516)))" +" s_1518))" "(()" -"(let-values(((s_676)" +"(let-values(((s_1519)" "(cdr" -" s_674)))" -"(let-values(((s_677)" +" s_1516)))" +"(let-values(((s_1520)" "(if(syntax?$1" -" s_676)" +" s_1519)" "(syntax-e$1" -" s_676)" -" s_676)))" +" s_1519)" +" s_1519)))" "(if(null?" -" s_677)" +" s_1520)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_55))))))" +" orig-s_1493))))))" "(values" -" body337_0))" +" body337_1517))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_55))))))" -"(values val335_0 body336_0))" +" orig-s_1493))))))" +"(values" +" val335_1512" +" body336_1513))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_55))))))" -"(values key332_0 val333_0 body334_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_55))))))" -"(values with-continuation-mark328_0 key329_0 val330_0 body331_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_55)))))" -"(values #t with-continuation-mark324_1 key325_1 val326_1 body327_1))))))" -"(let-values(((expr-ctx_3)(as-expression-context ctx_92)))" -"(let-values(((rebuild-s_10)" -"(let-values(((ctx338_0) ctx_92)((s339_0) s_663))" -"(keep-as-needed119.1 #f #f #f ctx338_0 s339_0))))" -"(let-values(((exp-key_0)" -"(let-values(((temp340_0) key325_0)((expr-ctx341_0) expr-ctx_3))" -"(expand9.1 #f #f #f temp340_0 expr-ctx341_0))))" +" orig-s_1493))))))" +"(values key332_1506 val333_1507 body334_1508))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1493))))))" +"(values" +" with-continuation-mark328_1499" +" key329_1500" +" val330_1501" +" body331_1502))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1493)))))" +"(values #t with-continuation-mark324_1494 key325_1495 val326_1496 body327_1497))))))" +"(let-values(((expr-ctx_1486)(as-expression-context ctx_0)))" +"(let-values(((rebuild-s_1487)" +"(let-values(((ctx338_1521) ctx_0)((s339_1522) s_0))" +"(keep-as-needed119.1 #f #f #f ctx338_1521 s339_1522))))" +"(let-values(((exp-key_1488)" +"(let-values(((temp340_1523) key325_1464)((expr-ctx341_1524) expr-ctx_1486))" +"(expand9.1 #f #f #f temp340_1523 expr-ctx341_1524))))" "(let-values((()" "(begin" -"(let-values(((obs_112)(expand-context-observer ctx_92)))" -"(if obs_112" -"(let-values()(let-values()(call-expand-observe obs_112 'next)))" +"(let-values(((obs_1525)(expand-context-observer ctx_0)))" +"(if obs_1525" +"(let-values()(let-values()(call-expand-observe obs_1525 'next)))" "(void)))" "(values))))" -"(let-values(((exp-val_0)" -"(let-values(((temp342_0) val326_0)((expr-ctx343_0) expr-ctx_3))" -"(expand9.1 #f #f #f temp342_0 expr-ctx343_0))))" +"(let-values(((exp-val_1489)" +"(let-values(((temp342_1526) val326_1465)((expr-ctx343_1527) expr-ctx_1486))" +"(expand9.1 #f #f #f temp342_1526 expr-ctx343_1527))))" "(let-values((()" "(begin" -"(let-values(((obs_113)(expand-context-observer ctx_92)))" -"(if obs_113" -"(let-values()(let-values()(call-expand-observe obs_113 'next)))" +"(let-values(((obs_1528)(expand-context-observer ctx_0)))" +"(if obs_1528" +"(let-values()(let-values()(call-expand-observe obs_1528 'next)))" "(void)))" "(values))))" -"(let-values(((exp-body_6)" -"(let-values(((temp344_0) body327_0)" -"((temp345_0)" -"(let-values(((expr-ctx346_0) expr-ctx_3)((ctx347_0) ctx_92))" -"(as-tail-context22.1 ctx347_0 expr-ctx346_0))))" -"(expand9.1 #f #f #f temp344_0 temp345_0))))" -"(if(expand-context-to-parsed? ctx_92)" -"(parsed-with-continuation-mark10.1 rebuild-s_10 exp-key_0 exp-val_0 exp-body_6)" -"(let-values(((rebuild-s348_0) rebuild-s_10)" -"((temp349_0)(list with-continuation-mark324_0 exp-key_0 exp-val_0 exp-body_6)))" -"(rebuild5.1 #t rebuild-s348_0 temp349_0))))))))))))))))" +"(let-values(((exp-body_1490)" +"(let-values(((temp344_1529) body327_1466)" +"((temp345_1530)" +"(let-values(((expr-ctx346_1532) expr-ctx_1486)" +"((ctx347_1533) ctx_0))" +"(as-tail-context22.1 ctx347_1533 expr-ctx346_1532))))" +"(expand9.1 #f #f #f temp344_1529 temp345_1530))))" +"(if(expand-context-to-parsed? ctx_0)" +"(parsed-with-continuation-mark10.1 rebuild-s_1487 exp-key_1488 exp-val_1489 exp-body_1490)" +"(let-values(((rebuild-s348_1534) rebuild-s_1487)" +"((temp349_1535)" +"(list with-continuation-mark324_1463 exp-key_1488 exp-val_1489 exp-body_1490)))" +"(rebuild5.1 #t rebuild-s348_1534 temp349_1535))))))))))))))))" "(define-values" "(make-begin20.1)" "(lambda(last-is-tail?15_0 list-start-index14_0 log-tag18_0 parsed-begin19_0)" "(begin" " 'make-begin20" -"(let-values(((log-tag_1) log-tag18_0))" -"(let-values(((parsed-begin_0) parsed-begin19_0))" -"(let-values(((list-start-index_0) list-start-index14_0))" -"(let-values(((last-is-tail?_0) last-is-tail?15_0))" +"(let-values(((log-tag_1546) log-tag18_0))" +"(let-values(((parsed-begin_1547) parsed-begin19_0))" +"(let-values(((list-start-index_1548) list-start-index14_0))" +"(let-values(((last-is-tail?_1549) last-is-tail?15_0))" "(let-values()" -"(lambda(s_678 ctx_93)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(let-values(((obs_114)(expand-context-observer ctx_93)))" -"(if obs_114" -"(let-values()(let-values()(call-expand-observe obs_114 log-tag_1)))" +"(let-values(((obs_1572)(expand-context-observer ctx_0)))" +"(if obs_1572" +"(let-values()(let-values()(call-expand-observe obs_1572 log-tag_1546)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_678)))" -"(let-values(((ok?_55 begin350_0 e351_0)" -"(let-values(((s_679) disarmed-s_15))" -"(let-values(((orig-s_56) s_679))" -"(let-values(((begin350_1 e351_1)" -"(let-values(((s_680)" -"(if(syntax?$1 s_679)(syntax-e$1 s_679) s_679)))" -"(if(pair? s_680)" -"(let-values(((begin352_0)" -"(let-values(((s_681)(car s_680))) s_681))" -"((e353_0)" -"(let-values(((s_682)(cdr s_680)))" -"(let-values(((s_683)" -"(if(syntax?$1 s_682)" -"(syntax-e$1 s_682)" -" s_682)))" -"(let-values(((flat-s_45)" -"(to-syntax-list.1 s_683)))" -"(if(not flat-s_45)" +"(let-values(((disarmed-s_1552)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_1553 begin350_1554 e351_1555)" +"(let-values(((s_1573) disarmed-s_1552))" +"(let-values(((orig-s_1574) s_1573))" +"(let-values(((begin350_1575 e351_1576)" +"(let-values(((s_1577)" +"(if(syntax?$1 s_1573)(syntax-e$1 s_1573) s_1573)))" +"(if(pair? s_1577)" +"(let-values(((begin352_1578)" +"(let-values(((s_1580)(car s_1577))) s_1580))" +"((e353_1579)" +"(let-values(((s_1581)(cdr s_1577)))" +"(let-values(((s_1582)" +"(if(syntax?$1 s_1581)" +"(syntax-e$1 s_1581)" +" s_1581)))" +"(let-values(((flat-s_1583)" +"(to-syntax-list.1 s_1582)))" +"(if(not flat-s_1583)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_56))" -"(if(null? flat-s_45)" +" orig-s_1574))" +"(if(null? flat-s_1583)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_56))" -"(let-values() flat-s_45))))))))" -"(values begin352_0 e353_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_56)))))" -"(values #t begin350_1 e351_1))))))" -"(let-values(((expr-ctx_4)" -"(if last-is-tail?_0" -"(as-begin-expression-context ctx_93)" -"(as-expression-context ctx_93))))" -"(let-values(((rebuild-s_11)" -"(let-values(((ctx354_0) ctx_93)((s355_0) s_678))" -"(keep-as-needed119.1 #f #f #f ctx354_0 s355_0))))" -"(let-values(((exp-es_2)" -"((letrec-values(((loop_121)" -"(lambda(es_5 index_6)" +" orig-s_1574))" +"(let-values() flat-s_1583))))))))" +"(values begin352_1578 e353_1579))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1574)))))" +"(values #t begin350_1575 e351_1576))))))" +"(let-values(((expr-ctx_1569)" +"(if last-is-tail?_1549" +"(as-begin-expression-context ctx_0)" +"(as-expression-context ctx_0))))" +"(let-values(((rebuild-s_1570)" +"(let-values(((ctx354_1584) ctx_0)((s355_1585) s_0))" +"(keep-as-needed119.1 #f #f #f ctx354_1584 s355_1585))))" +"(let-values(((exp-es_1571)" +"((letrec-values(((loop_1586)" +"(lambda(es_0 index_0)" "(begin" " 'loop" "(begin" -"(if(zero? index_6)" +"(if(zero? index_0)" "(let-values()" -"(let-values(((obs_115)" -"(expand-context-observer ctx_93)))" -"(if obs_115" +"(let-values(((obs_1589)" +"(expand-context-observer ctx_0)))" +"(if obs_1589" "(let-values()" "(begin" -"(if(zero? list-start-index_0)" +"(if(zero? list-start-index_1548)" "(void)" "(let-values()" -"(call-expand-observe obs_115 'next)))" +"(call-expand-observe obs_1589 'next)))" "(call-expand-observe" -" obs_115" +" obs_1589" " 'enter-list" -"(datum->syntax$1 #f es_5 rebuild-s_11))))" +"(datum->syntax$1" +" #f" +" es_0" +" rebuild-s_1570))))" "(void))))" "(void))" -"(if(null? es_5)" +"(if(null? es_0)" "(let-values() null)" "(let-values()" -"(let-values(((rest-es_1)(cdr es_5)))" +"(let-values(((rest-es_1590)(cdr es_0)))" "(begin" -"(let-values(((obs_116)" +"(let-values(((obs_1591)" "(expand-context-observer" -" ctx_93)))" -"(if obs_116" +" ctx_0)))" +"(if obs_1591" "(let-values()" "(let-values()" -"(call-expand-observe obs_116 'next)))" +"(call-expand-observe obs_1591 'next)))" "(void)))" "(cons" -"(let-values(((temp356_0)(car es_5))" -"((temp357_0)" -"(if(if last-is-tail?_0" -"(null? rest-es_1)" +"(let-values(((temp356_1592)(car es_0))" +"((temp357_1593)" +"(if(if last-is-tail?_1549" +"(null? rest-es_1590)" " #f)" -"(let-values(((expr-ctx358_0)" -" expr-ctx_4)" -"((ctx359_0)" -" ctx_93))" +"(let-values(((expr-ctx358_1595)" +" expr-ctx_1569)" +"((ctx359_1596)" +" ctx_0))" "(as-tail-context22.1" -" ctx359_0" -" expr-ctx358_0))" -" expr-ctx_4)))" -"(expand9.1 #f #f #f temp356_0 temp357_0))" -"(loop_121 rest-es_1(sub1 index_6))))))))))))" -" loop_121)" -" e351_0" -" list-start-index_0)))" +" ctx359_1596" +" expr-ctx358_1595))" +" expr-ctx_1569)))" +"(expand9.1" +" #f" +" #f" +" #f" +" temp356_1592" +" temp357_1593))" +"(loop_1586" +" rest-es_1590" +"(sub1 index_0))))))))))))" +" loop_1586)" +" e351_1555" +" list-start-index_1548)))" "(begin" -"(let-values(((obs_117)(expand-context-observer ctx_93)))" -"(if obs_117" +"(let-values(((obs_1597)(expand-context-observer ctx_0)))" +"(if obs_1597" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_117" +" obs_1597" " 'exit-list" -"(datum->syntax$1 #f(list-tail exp-es_2 list-start-index_0) rebuild-s_11))))" +"(datum->syntax$1" +" #f" +"(list-tail exp-es_1571 list-start-index_1548)" +" rebuild-s_1570))))" "(void)))" -"(if(expand-context-to-parsed? ctx_93)" -"(parsed-begin_0 rebuild-s_11 exp-es_2)" -"(let-values(((rebuild-s360_0) rebuild-s_11)((temp361_0)(cons begin350_0 exp-es_2)))" -"(rebuild5.1 #t rebuild-s360_0 temp361_0)))))))))))))))))))" +"(if(expand-context-to-parsed? ctx_0)" +"(parsed-begin_1547 rebuild-s_1570 exp-es_1571)" +"(let-values(((rebuild-s360_1598) rebuild-s_1570)" +"((temp361_1599)(cons begin350_1554 exp-es_1571)))" +"(rebuild5.1 #t rebuild-s360_1598 temp361_1599)))))))))))))))))))" "(void" "(add-core-form!*" " 'begin" -"(let-values(((nonempty-begin_0)" -"(let-values(((temp362_0) 'prim-begin)" -"((parsed-begin363_0) parsed-begin12.1)" -"((temp364_0) 0)" -"((temp365_0) #t))" -"(make-begin20.1 temp365_0 temp364_0 temp362_0 parsed-begin363_0))))" -"(lambda(s_684 ctx_94)" -"(let-values(((context_29)(expand-context-context ctx_94)))" -"(if(let-values(((or-part_386)(eq? context_29 'top-level)))" -"(if or-part_386 or-part_386(eq? context_29 'module)))" +"(let-values(((nonempty-begin_1616)" +"(let-values(((temp362_1618) 'prim-begin)" +"((parsed-begin363_1619) parsed-begin12.1)" +"((temp364_1620) 0)" +"((temp365_1621) #t))" +"(make-begin20.1 temp365_1621 temp364_1620 temp362_1618 parsed-begin363_1619))))" +"(lambda(s_0 ctx_0)" +"(let-values(((context_1624)(expand-context-context ctx_0)))" +"(if(let-values(((or-part_1625)(eq? context_1624 'top-level)))" +"(if or-part_1625 or-part_1625(eq? context_1624 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_684)))" -"(let-values(((ok?_56 begin366_0)" -"(let-values(((s_685) disarmed-s_16))" -"(if(let-values(((s_686)(if(syntax?$1 s_685)(syntax-e$1 s_685) s_685)))" -"(if(pair? s_686)" -"(if(let-values(((s_687)(car s_686))) #t)" -"(let-values(((s_688)(cdr s_686)))" -"(let-values(((s_689)(if(syntax?$1 s_688)(syntax-e$1 s_688) s_688)))" -"(null? s_689)))" +"(let-values(((disarmed-s_1626)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_1627 begin366_1628)" +"(let-values(((s_1639) disarmed-s_1626))" +"(if(let-values(((s_1640)(if(syntax?$1 s_1639)(syntax-e$1 s_1639) s_1639)))" +"(if(pair? s_1640)" +"(if(let-values(((s_1641)(car s_1640))) #t)" +"(let-values(((s_1642)(cdr s_1640)))" +"(let-values(((s_1643)(if(syntax?$1 s_1642)(syntax-e$1 s_1642) s_1642)))" +"(null? s_1643)))" " #f)" " #f))" "(let-values()" -"(let-values(((begin366_1)" -"(let-values(((s_690)(if(syntax?$1 s_685)(syntax-e$1 s_685) s_685)))" -"(let-values(((begin367_0)" -"(let-values(((s_691)(car s_690))) s_691))" +"(let-values(((begin366_1645)" +"(let-values(((s_1646)" +"(if(syntax?$1 s_1639)(syntax-e$1 s_1639) s_1639)))" +"(let-values(((begin367_1647)" +"(let-values(((s_1648)(car s_1646))) s_1648))" "(()" -"(let-values(((s_692)(cdr s_690)))" -"(let-values(((s_693)" -"(if(syntax?$1 s_692)" -"(syntax-e$1 s_692)" -" s_692)))" +"(let-values(((s_1649)(cdr s_1646)))" +"(let-values(((s_1650)" +"(if(syntax?$1 s_1649)" +"(syntax-e$1 s_1649)" +" s_1649)))" "(values)))))" -"(values begin367_0)))))" -"(values #t begin366_1)))" +"(values begin367_1647)))))" +"(values #t begin366_1645)))" "(values #f #f)))))" -"(if ok?_56 s_684(nonempty-begin_0 s_684 ctx_94)))))" -"(let-values()(nonempty-begin_0 s_684 ctx_94))))))))" +"(if ok?_1627 s_0(nonempty-begin_1616 s_0 ctx_0)))))" +"(let-values()(nonempty-begin_1616 s_0 ctx_0))))))))" "(void" "(add-core-form!*" " 'begin0" -"(let-values(((temp368_0) 'prim-begin0)((parsed-begin0369_0) parsed-begin013.1)((temp370_0) 1)((temp371_0) #f))" -"(make-begin20.1 temp371_0 temp370_0 temp368_0 parsed-begin0369_0))))" +"(let-values(((temp368_1652) 'prim-begin0)" +"((parsed-begin0369_1653) parsed-begin013.1)" +"((temp370_1654) 1)" +"((temp371_1655) #f))" +"(make-begin20.1 temp371_1655 temp370_1654 temp368_1652 parsed-begin0369_1653))))" "(define-values" "(register-eventual-variable!?)" -"(lambda(id_122 ctx_95)" +"(lambda(id_0 ctx_0)" "(begin" -"(if(if(expand-context-need-eventually-defined ctx_95)(>=(expand-context-phase ctx_95) 1) #f)" +"(if(if(expand-context-need-eventually-defined ctx_0)(>=(expand-context-phase ctx_0) 1) #f)" "(let-values()" "(begin" "(hash-update!" -"(expand-context-need-eventually-defined ctx_95)" -"(expand-context-phase ctx_95)" -"(lambda(l_87)(cons id_122 l_87))" +"(expand-context-need-eventually-defined ctx_0)" +"(expand-context-phase ctx_0)" +"(lambda(l_0)(cons id_0 l_0))" " null)" " #t))" "(let-values() #f)))))" "(void" "(add-core-form!*" " '#%top" -"(let-values(((core375_0)" +"(let-values(((core375_1659)" "(lambda(s373_0 ctx374_0 implicit-omitted?372_0)" "(begin" " 'core375" -"(let-values(((s_694) s373_0))" -"(let-values(((ctx_96) ctx374_0))" -"(let-values(((implicit-omitted?_0) implicit-omitted?372_0))" +"(let-values(((s_1663) s373_0))" +"(let-values(((ctx_1664) ctx374_0))" +"(let-values(((implicit-omitted?_1665) implicit-omitted?372_0))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_118)(expand-context-observer ctx_96)))" -"(if obs_118" +"(let-values(((obs_1669)(expand-context-observer ctx_1664)))" +"(if obs_1669" "(let-values()" -"(let-values()(call-expand-observe obs_118 'prim-#%top)))" +"(let-values()(call-expand-observe obs_1669 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_694)))" -"(let-values(((id_123)" -"(if implicit-omitted?_0" -"(let-values() s_694)" +"(let-values(((disarmed-s_1666)(syntax-disarm$1 s_1663)))" +"(let-values(((id_1667)" +"(if implicit-omitted?_1665" +"(let-values() s_1663)" "(let-values()" -"(let-values(((ok?_57 #%top377_0 id378_0)" -"(let-values(((s_695) disarmed-s_17))" -"(let-values(((orig-s_57) s_695))" -"(let-values(((#%top377_1 id378_1)" -"(let-values(((s_696)" -"(if(syntax?$1 s_695)" -"(syntax-e$1 s_695)" -" s_695)))" -"(if(pair? s_696)" -"(let-values(((#%top379_0)" -"(let-values(((s_697)" +"(let-values(((ok?_1670 #%top377_1671 id378_1672)" +"(let-values(((s_1686) disarmed-s_1666))" +"(let-values(((orig-s_1687) s_1686))" +"(let-values(((#%top377_1688 id378_1689)" +"(let-values(((s_1690)" +"(if(syntax?$1 s_1686)" +"(syntax-e$1 s_1686)" +" s_1686)))" +"(if(pair? s_1690)" +"(let-values(((#%top379_1691)" +"(let-values(((s_1693)" "(car" -" s_696)))" -" s_697))" -"((id380_0)" -"(let-values(((s_698)" +" s_1690)))" +" s_1693))" +"((id380_1692)" +"(let-values(((s_1694)" "(cdr" -" s_696)))" -"(if(let-values(((or-part_387)" +" s_1690)))" +"(if(let-values(((or-part_1695)" "(if(syntax?$1" -" s_698)" +" s_1694)" "(symbol?" "(syntax-e$1" -" s_698))" +" s_1694))" " #f)))" -"(if or-part_387" -" or-part_387" +"(if or-part_1695" +" or-part_1695" "(symbol?" -" s_698)))" -" s_698" +" s_1694)))" +" s_1694" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_57" -" s_698)))))" -"(values #%top379_0 id380_0))" +" orig-s_1687" +" s_1694)))))" +"(values" +" #%top379_1691" +" id380_1692))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_57)))))" -"(values #t #%top377_1 id378_1))))))" -" id378_0)))))" -"(let-values(((b_93)" -"(let-values(((id381_0) id_123)" -"((temp382_0)(expand-context-phase ctx_96))" -"((temp383_0) 'ambiguous))" +" orig-s_1687)))))" +"(values #t #%top377_1688 id378_1689))))))" +" id378_1672)))))" +"(let-values(((b_1668)" +"(let-values(((id381_1697) id_1667)" +"((temp382_1698)(expand-context-phase ctx_1664))" +"((temp383_1699) 'ambiguous))" "(resolve+shift28.1" -" temp383_0" +" temp383_1699" " #f" " null" " unsafe-undefined" " #f" -" id381_0" -" temp382_0))))" -"(if(eq? b_93 'ambiguous)" -"(let-values()(raise-ambiguous-error id_123 ctx_96))" -"(if(if b_93" -"(if(module-binding? b_93)" -"(eq?(module-binding-module b_93)(root-expand-context-self-mpi ctx_96))" +" id381_1697" +" temp382_1698))))" +"(if(eq? b_1668 'ambiguous)" +"(let-values()(raise-ambiguous-error id_1667 ctx_1664))" +"(if(if b_1668" +"(if(module-binding? b_1668)" +"(eq?" +"(module-binding-module b_1668)" +"(root-expand-context-self-mpi ctx_1664))" " #f)" " #f)" "(let-values()" -"(if(expand-context-to-parsed? ctx_96)" -"(parsed-id2.1 id_123 b_93 #f)" -"(if(top-level-module-path-index?(module-binding-module b_93))" -"(let-values() s_694)" -"(let-values() id_123))))" -"(if(register-eventual-variable!? id_123 ctx_96)" +"(if(expand-context-to-parsed? ctx_1664)" +"(parsed-id2.1 id_1667 b_1668 #f)" +"(if(top-level-module-path-index?(module-binding-module b_1668))" +"(let-values() s_1663)" +"(let-values() id_1667))))" +"(if(register-eventual-variable!? id_1667 ctx_1664)" "(let-values()" -"(if(expand-context-to-parsed? ctx_96)" -"(parsed-id2.1 id_123 b_93 #f)" -" id_123))" +"(if(expand-context-to-parsed? ctx_1664)" +"(parsed-id2.1 id_1667 b_1668 #f)" +" id_1667))" "(let-values()" -"(if(not(expand-context-allow-unbound? ctx_96))" +"(if(not(expand-context-allow-unbound? ctx_1664))" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" id_123" +" id_1667" " #f" " null" -"(syntax-debug-info-string id_123 ctx_96)))" +"(syntax-debug-info-string id_1667 ctx_1664)))" "(let-values()" -"(let-values(((tl-id_1)" +"(let-values(((tl-id_1700)" "(add-scope" -" id_123" -"(root-expand-context-top-level-bind-scope ctx_96))))" -"(let-values(((tl-b_1)" -"(let-values(((tl-id384_0) tl-id_1)" -"((temp385_0)" -"(expand-context-phase ctx_96)))" -"(resolve40.1 #f #f null #f tl-id384_0 temp385_0))))" -"(if tl-b_1" +" id_1667" +"(root-expand-context-top-level-bind-scope ctx_1664))))" +"(let-values(((tl-b_1701)" +"(let-values(((tl-id384_1702) tl-id_1700)" +"((temp385_1703)" +"(expand-context-phase ctx_1664)))" +"(resolve40.1" +" #f" +" #f" +" null" +" #f" +" tl-id384_1702" +" temp385_1703))))" +"(if tl-b_1701" "(let-values()" -"(if(expand-context-to-parsed? ctx_96)" -"(parsed-top-id4.1 tl-id_1 tl-b_1 #f)" -"(if implicit-omitted?_0" -"(let-values() id_123)" +"(if(expand-context-to-parsed? ctx_1664)" +"(parsed-top-id4.1 tl-id_1700 tl-b_1701 #f)" +"(if implicit-omitted?_1665" +"(let-values() id_1667)" "(let-values()" -"(let-values(((ok?_58 #%top386_0 id387_0)" -"(let-values(((s_699) disarmed-s_17))" -"(let-values(((orig-s_58) s_699))" -"(let-values(((#%top386_1 id387_1)" -"(let-values(((s_700)" +"(let-values(((ok?_1704 #%top386_1705 id387_1706)" +"(let-values(((s_1720) disarmed-s_1666))" +"(let-values(((orig-s_1721) s_1720))" +"(let-values(((#%top386_1722" +" id387_1723)" +"(let-values(((s_1724)" "(if(syntax?$1" -" s_699)" +" s_1720)" "(syntax-e$1" -" s_699)" -" s_699)))" -"(if(pair? s_700)" -"(let-values(((#%top388_0)" -"(let-values(((s_701)" +" s_1720)" +" s_1720)))" +"(if(pair? s_1724)" +"(let-values(((#%top388_1725)" +"(let-values(((s_1727)" "(car" -" s_700)))" -" s_701))" -"((id389_0)" -"(let-values(((s_702)" +" s_1724)))" +" s_1727))" +"((id389_1726)" +"(let-values(((s_1728)" "(cdr" -" s_700)))" -"(if(let-values(((or-part_388)" +" s_1724)))" +"(if(let-values(((or-part_1729)" "(if(syntax?$1" -" s_702)" +" s_1728)" "(symbol?" "(syntax-e$1" -" s_702))" +" s_1728))" " #f)))" -"(if or-part_388" -" or-part_388" +"(if or-part_1729" +" or-part_1729" "(symbol?" -" s_702)))" -" s_702" +" s_1728)))" +" s_1728" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_58" -" s_702)))))" +" orig-s_1721" +" s_1728)))))" "(values" -" #%top388_0" -" id389_0))" +" #%top388_1725" +" id389_1726))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_58)))))" -"(values #t #%top386_1 id387_1))))))" -"(let-values(((s390_0) s_694)" -"((temp391_0)(cons #%top386_0 id_123)))" -"(rebuild5.1 #t s390_0 temp391_0)))))))" +" orig-s_1721)))))" +"(values" +" #t" +" #%top386_1722" +" id387_1723))))))" +"(let-values(((s390_1730) s_1663)" +"((temp391_1731)" +"(cons #%top386_1705 id_1667)))" +"(rebuild5.1 #t s390_1730 temp391_1731)))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_96)" -"(parsed-top-id4.1 id_123 b_93 #f)" -" s_694)))))))))))))))))))))))" +"(if(expand-context-to-parsed? ctx_1664)" +"(parsed-top-id4.1 id_1667 b_1668 #f)" +" s_1663)))))))))))))))))))))))" "(case-lambda" -"((s_703 ctx_97)(core375_0 s_703 ctx_97 #f))" -"((s_704 ctx_98 implicit-omitted?372_1)(core375_0 s_704 ctx_98 implicit-omitted?372_1))))))" +"((s_0 ctx_0)(core375_1659 s_0 ctx_0 #f))" +"((s_0 ctx_0 implicit-omitted?372_0)(core375_1659 s_0 ctx_0 implicit-omitted?372_0))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_705 ctx_99)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(let-values(((obs_119)(expand-context-observer ctx_99)))" -"(if obs_119(let-values()(let-values()(call-expand-observe obs_119 'prim-set!)))(void)))" +"(let-values(((obs_1761)(expand-context-observer ctx_0)))" +"(if obs_1761(let-values()(let-values()(call-expand-observe obs_1761 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_705)))" -"(let-values(((ok?_59 set!392_0 id393_0 rhs394_0)" -"(let-values(((s_706) disarmed-s_18))" -"(let-values(((orig-s_59) s_706))" -"(let-values(((set!392_1 id393_1 rhs394_1)" -"(let-values(((s_707)(if(syntax?$1 s_706)(syntax-e$1 s_706) s_706)))" -"(if(pair? s_707)" -"(let-values(((set!395_0)(let-values(((s_708)(car s_707))) s_708))" -"((id396_0 rhs397_0)" -"(let-values(((s_709)(cdr s_707)))" -"(let-values(((s_710)" -"(if(syntax?$1 s_709)" -"(syntax-e$1 s_709)" -" s_709)))" -"(if(pair? s_710)" -"(let-values(((id398_0)" -"(let-values(((s_711)(car s_710)))" -"(if(let-values(((or-part_389)" -"(if(syntax?$1 s_711)" +"(let-values(((disarmed-s_1739)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_1740 set!392_1741 id393_1742 rhs394_1743)" +"(let-values(((s_1762) disarmed-s_1739))" +"(let-values(((orig-s_1763) s_1762))" +"(let-values(((set!392_1764 id393_1765 rhs394_1766)" +"(let-values(((s_1767)(if(syntax?$1 s_1762)(syntax-e$1 s_1762) s_1762)))" +"(if(pair? s_1767)" +"(let-values(((set!395_1768)(let-values(((s_1771)(car s_1767))) s_1771))" +"((id396_1769 rhs397_1770)" +"(let-values(((s_1772)(cdr s_1767)))" +"(let-values(((s_1773)" +"(if(syntax?$1 s_1772)" +"(syntax-e$1 s_1772)" +" s_1772)))" +"(if(pair? s_1773)" +"(let-values(((id398_1774)" +"(let-values(((s_1776)(car s_1773)))" +"(if(let-values(((or-part_1777)" +"(if(syntax?$1" +" s_1776)" "(symbol?" "(syntax-e$1" -" s_711))" +" s_1776))" " #f)))" -"(if or-part_389" -" or-part_389" -"(symbol? s_711)))" -" s_711" +"(if or-part_1777" +" or-part_1777" +"(symbol? s_1776)))" +" s_1776" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_59" -" s_711))))" -"((rhs399_0)" -"(let-values(((s_712)(cdr s_710)))" -"(let-values(((s_713)" -"(if(syntax?$1 s_712)" -"(syntax-e$1 s_712)" -" s_712)))" -"(if(pair? s_713)" -"(let-values(((rhs400_0)" -"(let-values(((s_714)" +" orig-s_1763" +" s_1776))))" +"((rhs399_1775)" +"(let-values(((s_1778)(cdr s_1773)))" +"(let-values(((s_1779)" +"(if(syntax?$1 s_1778)" +"(syntax-e$1 s_1778)" +" s_1778)))" +"(if(pair? s_1779)" +"(let-values(((rhs400_1780)" +"(let-values(((s_1781)" "(car" -" s_713)))" -" s_714))" +" s_1779)))" +" s_1781))" "(()" -"(let-values(((s_715)" +"(let-values(((s_1782)" "(cdr" -" s_713)))" -"(let-values(((s_716)" +" s_1779)))" +"(let-values(((s_1783)" "(if(syntax?$1" -" s_715)" +" s_1782)" "(syntax-e$1" -" s_715)" -" s_715)))" -"(if(null? s_716)" +" s_1782)" +" s_1782)))" +"(if(null?" +" s_1783)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_59))))))" -"(values rhs400_0))" +" orig-s_1763))))))" +"(values rhs400_1780))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_59))))))" -"(values id398_0 rhs399_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_59))))))" -"(values set!395_0 id396_0 rhs397_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))" -"(values #t set!392_1 id393_1 rhs394_1))))))" -"(let-values(((orig-id_1) id393_0))" -"((letrec-values(((rename-loop_0)" -"(lambda(id_124 from-rename?_0)" +" orig-s_1763))))))" +"(values id398_1774 rhs399_1775))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1763))))))" +"(values set!395_1768 id396_1769 rhs397_1770))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1763)))))" +"(values #t set!392_1764 id393_1765 rhs394_1766))))))" +"(let-values(((orig-id_1760) id393_1742))" +"((letrec-values(((rename-loop_1784)" +"(lambda(id_0 from-rename?_0)" "(begin" " 'rename-loop" -"(let-values(((binding_29)" -"(let-values(((id401_0) id_124)" -"((temp402_0)(expand-context-phase ctx_99))" -"((temp403_0) 'ambiguous)" -"((temp404_0) #t))" +"(let-values(((binding_1787)" +"(let-values(((id401_1793) id_0)" +"((temp402_1794)(expand-context-phase ctx_0))" +"((temp403_1795) 'ambiguous)" +"((temp404_1796) #t))" "(resolve+shift28.1" -" temp403_0" +" temp403_1795" " #f" " null" -" temp404_0" +" temp404_1796" " #f" -" id401_0" -" temp402_0))))" +" id401_1793" +" temp402_1794))))" "(let-values((()" "(begin" -"(if(eq? binding_29 'ambiguous)" -"(let-values()(raise-ambiguous-error id_124 ctx_99))" +"(if(eq? binding_1787 'ambiguous)" +"(let-values()(raise-ambiguous-error id_0 ctx_0))" "(void))" "(values))))" -"(let-values(((t_61 primitive?_11 insp_24 protected?_12)" -"(if binding_29" -"(let-values(((binding405_0) binding_29)" -"((ctx406_0) ctx_99)" -"((s407_0) s_705))" -"(lookup62.1 #f #f binding405_0 ctx406_0 s407_0))" +"(let-values(((t_1788 primitive?_1789 insp_1790 protected?_1791)" +"(if binding_1787" +"(let-values(((binding405_1797) binding_1787)" +"((ctx406_1798) ctx_0)" +"((s407_1799) s_0))" +"(lookup62.1 #f #f binding405_1797 ctx406_1798 s407_1799))" "(values #f #f #f #f))))" "(begin" -"(let-values(((obs_120)(expand-context-observer ctx_99)))" -"(if obs_120" +"(let-values(((obs_1800)(expand-context-observer ctx_0)))" +"(if obs_1800" "(let-values()" -"(let-values()(call-expand-observe obs_120 'resolve id_124)))" +"(let-values()(call-expand-observe obs_1800 'resolve id_0)))" "(void)))" -"(if(let-values(((or-part_390)(variable? t_61)))" -"(if or-part_390" -" or-part_390" -"(if(not binding_29)" -"(let-values(((or-part_391)" -"(register-eventual-variable!? id_124 ctx_99)))" -"(if or-part_391" -" or-part_391" -"(expand-context-allow-unbound? ctx_99)))" +"(if(let-values(((or-part_1801)(variable? t_1788)))" +"(if or-part_1801" +" or-part_1801" +"(if(not binding_1787)" +"(let-values(((or-part_1802)" +"(register-eventual-variable!? id_0 ctx_0)))" +"(if or-part_1802" +" or-part_1802" +"(expand-context-allow-unbound? ctx_0)))" " #f)))" "(let-values()" "(let-values((()" "(begin" -"(if(if(module-binding? binding_29)" +"(if(if(module-binding? binding_1787)" "(not" "(eq?" -"(module-binding-module binding_29)" -"(root-expand-context-self-mpi ctx_99)))" +"(module-binding-module binding_1787)" +"(root-expand-context-self-mpi ctx_0)))" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_705" -" id_124))" +" s_0" +" id_0))" "(void))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_121)" -"(expand-context-observer ctx_99)))" -"(if obs_121" +"(let-values(((obs_1805)" +"(expand-context-observer ctx_0)))" +"(if obs_1805" "(let-values()" "(let-values()" -"(call-expand-observe obs_121 'next)))" +"(call-expand-observe obs_1805 'next)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(register-variable-referenced-if-local! binding_29)" +"(register-variable-referenced-if-local! binding_1787)" "(values))))" -"(let-values(((rebuild-s_12)" -"(let-values(((ctx408_0) ctx_99)((s409_0) s_705))" -"(keep-as-needed119.1 #f #f #f ctx408_0 s409_0))))" -"(let-values(((exp-rhs_5)" -"(let-values(((temp410_0) rhs394_0)" -"((temp411_0)" -"(as-expression-context ctx_99)))" -"(expand9.1 #f #f #f temp410_0 temp411_0))))" -"(if(expand-context-to-parsed? ctx_99)" +"(let-values(((rebuild-s_1803)" +"(let-values(((ctx408_1806) ctx_0)((s409_1807) s_0))" +"(keep-as-needed119.1" +" #f" +" #f" +" #f" +" ctx408_1806" +" s409_1807))))" +"(let-values(((exp-rhs_1804)" +"(let-values(((temp410_1808) rhs394_1743)" +"((temp411_1809)" +"(as-expression-context ctx_0)))" +"(expand9.1 #f #f #f temp410_1808 temp411_1809))))" +"(if(expand-context-to-parsed? ctx_0)" "(parsed-set!9.1" -" rebuild-s_12" -"(parsed-id2.1 id_124 binding_29 #f)" -" exp-rhs_5)" -"(let-values(((rebuild-s412_0) rebuild-s_12)" -"((temp413_0)" +" rebuild-s_1803" +"(parsed-id2.1 id_0 binding_1787 #f)" +" exp-rhs_1804)" +"(let-values(((rebuild-s412_1810) rebuild-s_1803)" +"((temp413_1811)" "(list" -" set!392_0" -"(let-values(((id414_0) id_124)" -"((t415_0) t_61)" -"((temp416_0)" +" set!392_1741" +"(let-values(((id414_1813) id_0)" +"((t415_1814) t_1788)" +"((temp416_1815)" "(free-id-set-empty-or-just-module*?" -"(expand-context-stops ctx_99)" -"(expand-context-phase" -" ctx_99))))" +"(expand-context-stops ctx_0)" +"(expand-context-phase ctx_0))))" "(substitute-variable6.1" -" temp416_0" -" id414_0" -" t415_0))" -" exp-rhs_5)))" -"(rebuild5.1 #t rebuild-s412_0 temp413_0)))))))))" -"(if(not binding_29)" +" temp416_1815" +" id414_1813" +" t415_1814))" +" exp-rhs_1804)))" +"(rebuild5.1 #t rebuild-s412_1810 temp413_1811)))))))))" +"(if(not binding_1787)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_705" -" id_124" +" s_0" +" id_0" " null" -"(syntax-debug-info-string id_124 ctx_99)))" -"(if(1/set!-transformer? t_61)" +"(syntax-debug-info-string id_0 ctx_0)))" +"(if(1/set!-transformer? t_1788)" "(let-values()" -"(if(not-in-this-expand-context? t_61 ctx_99)" +"(if(not-in-this-expand-context? t_1788 ctx_0)" "(let-values()" -"(let-values(((temp417_0)" +"(let-values(((temp417_1816)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_705" -" disarmed-s_18" -" set!392_0" -" rhs394_0" -" id_124" +" s_0" +" disarmed-s_1739" +" set!392_1741" +" rhs394_1743" +" id_0" " from-rename?_0" -" ctx_99)" -" t_61" -" ctx_99))" -"((ctx418_0) ctx_99))" -"(expand9.1 #f #f #f temp417_0 ctx418_0)))" +" ctx_0)" +" t_1788" +" ctx_0))" +"((ctx418_1817) ctx_0))" +"(expand9.1 #f #f #f temp417_1816 ctx418_1817)))" "(let-values()" -"(let-values(((exp-s_13 re-ctx_1)" -"(let-values(((t419_0) t_61)" -"((insp420_0) insp_24)" -"((s421_0) s_705)" -"((orig-id422_0) orig-id_1)" -"((ctx423_0) ctx_99)" -"((binding424_0) binding_29)" -"((orig-id425_0) orig-id_1))" +"(let-values(((exp-s_1818 re-ctx_1819)" +"(let-values(((t419_1821) t_1788)" +"((insp420_1822) insp_1790)" +"((s421_1823) s_0)" +"((orig-id422_1824) orig-id_1760)" +"((ctx423_1825) ctx_0)" +"((binding424_1826) binding_1787)" +"((orig-id425_1827) orig-id_1760))" "(apply-transformer52.1" -" orig-id425_0" -" t419_0" -" insp420_0" -" s421_0" -" orig-id422_0" -" ctx423_0" -" binding424_0))))" -"(if(expand-context-just-once? ctx_99)" -"(let-values() exp-s_13)" +" orig-id425_1827" +" t419_1821" +" insp420_1822" +" s421_1823" +" orig-id422_1824" +" ctx423_1825" +" binding424_1826))))" +"(if(expand-context-just-once? ctx_0)" +"(let-values() exp-s_1818)" "(let-values()" -"(let-values(((exp-s426_0) exp-s_13)" -"((re-ctx427_0) re-ctx_1))" -"(expand9.1 #f #f #f exp-s426_0 re-ctx427_0))))))))" -"(if(1/rename-transformer? t_61)" +"(let-values(((exp-s426_1828) exp-s_1818)" +"((re-ctx427_1829) re-ctx_1819))" +"(expand9.1 #f #f #f exp-s426_1828 re-ctx427_1829))))))))" +"(if(1/rename-transformer? t_1788)" "(let-values()" -"(if(not-in-this-expand-context? t_61 ctx_99)" +"(if(not-in-this-expand-context? t_1788 ctx_0)" "(let-values()" -"(let-values(((temp428_0)" +"(let-values(((temp428_1830)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_705" -" disarmed-s_18" -" set!392_0" -" rhs394_0" -" id_124" +" s_0" +" disarmed-s_1739" +" set!392_1741" +" rhs394_1743" +" id_0" " from-rename?_0" -" ctx_99" -" t_61)" -" t_61" -" ctx_99))" -"((ctx429_0) ctx_99))" -"(expand9.1 #f #f #f temp428_0 ctx429_0)))" +" ctx_0" +" t_1788)" +" t_1788" +" ctx_0))" +"((ctx429_1831) ctx_0))" +"(expand9.1 #f #f #f temp428_1830 ctx429_1831)))" "(let-values()" -"(rename-loop_0" +"(rename-loop_1784" "(syntax-track-origin$1" -"(rename-transformer-target-in-context t_61 ctx_99)" -" id_124" -" id_124)" +"(rename-transformer-target-in-context t_1788 ctx_0)" +" id_0" +" id_0)" " #t))))" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_705" -" id_124))))))))))))))" -" rename-loop_0)" -" orig-id_1" +" s_0" +" id_0))))))))))))))" +" rename-loop_1784)" +" orig-id_1760" " #f))))))))" "(define-values" "(substitute-set!-rename)" -"(let-values(((substitute-set!-rename31_0)" -"(lambda(s24_3 disarmed-s25_0 set!-id26_0 id27_0 rhs-s28_0 from-rename?29_0 ctx30_0 t23_0)" +"(let-values(((substitute-set!-rename31_1832)" +"(lambda(s24_0 disarmed-s25_0 set!-id26_0 id27_0 rhs-s28_0 from-rename?29_0 ctx30_0 t23_0)" "(begin" " 'substitute-set!-rename31" -"(let-values(((s_717) s24_3))" -"(let-values(((disarmed-s_19) disarmed-s25_0))" -"(let-values(((set!-id_0) set!-id26_0))" -"(let-values(((id_125) id27_0))" -"(let-values(((rhs-s_0) rhs-s28_0))" -"(let-values(((from-rename?_1) from-rename?29_0))" -"(let-values(((ctx_100) ctx30_0))" -"(let-values(((t_62) t23_0))" +"(let-values(((s_1841) s24_0))" +"(let-values(((disarmed-s_1842) disarmed-s25_0))" +"(let-values(((set!-id_1843) set!-id26_0))" +"(let-values(((id_1844) id27_0))" +"(let-values(((rhs-s_1845) rhs-s28_0))" +"(let-values(((from-rename?_1846) from-rename?29_0))" +"(let-values(((ctx_1847) ctx30_0))" +"(let-values(((t_1848) t23_0))" "(let-values()" -"(if(let-values(((or-part_392) t_62))" -"(if or-part_392 or-part_392 from-rename?_1))" +"(if(let-values(((or-part_1849) t_1848))" +"(if or-part_1849 or-part_1849 from-rename?_1846))" "(let-values()" -"(let-values(((new-id_1)" -"(if t_62" -"(rename-transformer-target-in-context t_62 ctx_100)" -" id_125)))" +"(let-values(((new-id_1850)" +"(if t_1848" +"(rename-transformer-target-in-context t_1848 ctx_1847)" +" id_1844)))" "(syntax-rearm$1" "(datum->syntax$1" -" disarmed-s_19" -"(list set!-id_0 new-id_1 rhs-s_0)" -" disarmed-s_19" -" disarmed-s_19)" -" s_717)))" -"(let-values() s_717)))))))))))))))" +" disarmed-s_1842" +"(list set!-id_1843 new-id_1850 rhs-s_1845)" +" disarmed-s_1842" +" disarmed-s_1842)" +" s_1841)))" +"(let-values() s_1841)))))))))))))))" "(case-lambda" -"((s_718 disarmed-s_20 set!-id_1 id_126 rhs-s_1 from-rename?_2 ctx_101)" -"(begin(substitute-set!-rename31_0 s_718 disarmed-s_20 set!-id_1 id_126 rhs-s_1 from-rename?_2 ctx_101 #f)))" -"((s_719 disarmed-s_21 set!-id_2 id_127 rhs-s_2 from-rename?_3 ctx_102 t23_1)" -"(substitute-set!-rename31_0 s_719 disarmed-s_21 set!-id_2 id_127 rhs-s_2 from-rename?_3 ctx_102 t23_1)))))" +"((s_0 disarmed-s_0 set!-id_0 id_0 rhs-s_0 from-rename?_0 ctx_0)" +"(begin(substitute-set!-rename31_1832 s_0 disarmed-s_0 set!-id_0 id_0 rhs-s_0 from-rename?_0 ctx_0 #f)))" +"((s_0 disarmed-s_0 set!-id_0 id_0 rhs-s_0 from-rename?_0 ctx_0 t23_0)" +"(substitute-set!-rename31_1832 s_0 disarmed-s_0 set!-id_0 id_0 rhs-s_0 from-rename?_0 ctx_0 t23_0)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_720 ctx_103)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(let-values(((obs_122)(expand-context-observer ctx_103)))" -"(if obs_122" -"(let-values()(let-values()(call-expand-observe obs_122 'prim-#%variable-reference)))" +"(let-values(((obs_1917)(expand-context-observer ctx_0)))" +"(if obs_1917" +"(let-values()(let-values()(call-expand-observe obs_1917 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_720)))" -"(let-values(((ok?_60 #%variable-reference430_0 id431_0)" -"(let-values(((s_721) disarmed-s_22))" -"(if(let-values(((s_722)(if(syntax?$1 s_721)(syntax-e$1 s_721) s_721)))" -"(if(pair? s_722)" -"(if(let-values(((s_723)(car s_722))) #t)" -"(let-values(((s_724)(cdr s_722)))" -"(let-values(((s_725)(if(syntax?$1 s_724)(syntax-e$1 s_724) s_724)))" -"(if(pair? s_725)" -"(if(let-values(((s_726)(car s_725)))" -"(let-values(((or-part_393)" -"(if(syntax?$1 s_726)(symbol?(syntax-e$1 s_726)) #f)))" -"(if or-part_393 or-part_393(symbol? s_726))))" -"(let-values(((s_727)(cdr s_725)))" -"(let-values(((s_728)(if(syntax?$1 s_727)(syntax-e$1 s_727) s_727)))" -"(null? s_728)))" +"(let-values(((disarmed-s_1868)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_1869 #%variable-reference430_1870 id431_1871)" +"(let-values(((s_1918) disarmed-s_1868))" +"(if(let-values(((s_1919)(if(syntax?$1 s_1918)(syntax-e$1 s_1918) s_1918)))" +"(if(pair? s_1919)" +"(if(let-values(((s_1920)(car s_1919))) #t)" +"(let-values(((s_1921)(cdr s_1919)))" +"(let-values(((s_1922)(if(syntax?$1 s_1921)(syntax-e$1 s_1921) s_1921)))" +"(if(pair? s_1922)" +"(if(let-values(((s_1923)(car s_1922)))" +"(let-values(((or-part_1924)" +"(if(syntax?$1 s_1923)(symbol?(syntax-e$1 s_1923)) #f)))" +"(if or-part_1924 or-part_1924(symbol? s_1923))))" +"(let-values(((s_1925)(cdr s_1922)))" +"(let-values(((s_1926)(if(syntax?$1 s_1925)(syntax-e$1 s_1925) s_1925)))" +"(null? s_1926)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" -"(let-values(((#%variable-reference430_1 id431_1)" -"(let-values(((s_729)(if(syntax?$1 s_721)(syntax-e$1 s_721) s_721)))" -"(let-values(((#%variable-reference432_0)" -"(let-values(((s_730)(car s_729))) s_730))" -"((id433_0)" -"(let-values(((s_731)(cdr s_729)))" -"(let-values(((s_732)" -"(if(syntax?$1 s_731)" -"(syntax-e$1 s_731)" -" s_731)))" -"(let-values(((id434_0)" -"(let-values(((s_733)(car s_732))) s_733))" +"(let-values(((#%variable-reference430_1928 id431_1929)" +"(let-values(((s_1930)(if(syntax?$1 s_1918)(syntax-e$1 s_1918) s_1918)))" +"(let-values(((#%variable-reference432_1931)" +"(let-values(((s_1933)(car s_1930))) s_1933))" +"((id433_1932)" +"(let-values(((s_1934)(cdr s_1930)))" +"(let-values(((s_1935)" +"(if(syntax?$1 s_1934)" +"(syntax-e$1 s_1934)" +" s_1934)))" +"(let-values(((id434_1936)" +"(let-values(((s_1937)(car s_1935)))" +" s_1937))" "(()" -"(let-values(((s_734)(cdr s_732)))" -"(let-values(((s_735)" -"(if(syntax?$1 s_734)" -"(syntax-e$1 s_734)" -" s_734)))" +"(let-values(((s_1938)(cdr s_1935)))" +"(let-values(((s_1939)" +"(if(syntax?$1 s_1938)" +"(syntax-e$1 s_1938)" +" s_1938)))" "(values)))))" -"(values id434_0))))))" -"(values #%variable-reference432_0 id433_0)))))" -"(values #t #%variable-reference430_1 id431_1)))" +"(values id434_1936))))))" +"(values #%variable-reference432_1931 id433_1932)))))" +"(values #t #%variable-reference430_1928 id431_1929)))" "(values #f #f #f)))))" -"(let-values(((ok?_61 #%variable-reference435_0 #%top436_0 id437_0)" -"(let-values(((s_736) disarmed-s_22))" -"(if(if(not ok?_60)" -"(let-values(((s_737)(if(syntax?$1 s_736)(syntax-e$1 s_736) s_736)))" -"(if(pair? s_737)" -"(if(let-values(((s_738)(car s_737))) #t)" -"(let-values(((s_739)(cdr s_737)))" -"(let-values(((s_740)(if(syntax?$1 s_739)(syntax-e$1 s_739) s_739)))" -"(if(pair? s_740)" -"(if(let-values(((s_741)(car s_740)))" -"(let-values(((s_742)" -"(if(syntax?$1 s_741)(syntax-e$1 s_741) s_741)))" -"(if(pair? s_742)" -"(if(let-values(((s_743)(car s_742))) #t)" -"(let-values(((s_744)(cdr s_742)))" -"(let-values(((or-part_394)" -"(if(syntax?$1 s_744)" -"(symbol?(syntax-e$1 s_744))" +"(let-values(((ok?_1885 #%variable-reference435_1886 #%top436_1887 id437_1888)" +"(let-values(((s_1940) disarmed-s_1868))" +"(if(if(not ok?_1869)" +"(let-values(((s_1941)(if(syntax?$1 s_1940)(syntax-e$1 s_1940) s_1940)))" +"(if(pair? s_1941)" +"(if(let-values(((s_1942)(car s_1941))) #t)" +"(let-values(((s_1943)(cdr s_1941)))" +"(let-values(((s_1944)(if(syntax?$1 s_1943)(syntax-e$1 s_1943) s_1943)))" +"(if(pair? s_1944)" +"(if(let-values(((s_1945)(car s_1944)))" +"(let-values(((s_1946)" +"(if(syntax?$1 s_1945)(syntax-e$1 s_1945) s_1945)))" +"(if(pair? s_1946)" +"(if(let-values(((s_1947)(car s_1946))) #t)" +"(let-values(((s_1948)(cdr s_1946)))" +"(let-values(((or-part_1949)" +"(if(syntax?$1 s_1948)" +"(symbol?(syntax-e$1 s_1948))" " #f)))" -"(if or-part_394 or-part_394(symbol? s_744))))" +"(if or-part_1949 or-part_1949(symbol? s_1948))))" " #f)" " #f)))" -"(let-values(((s_745)(cdr s_740)))" -"(let-values(((s_746)(if(syntax?$1 s_745)(syntax-e$1 s_745) s_745)))" -"(null? s_746)))" +"(let-values(((s_1950)(cdr s_1944)))" +"(let-values(((s_1951)" +"(if(syntax?$1 s_1950)(syntax-e$1 s_1950) s_1950)))" +"(null? s_1951)))" " #f)" " #f)))" " #f)" " #f))" " #f)" "(let-values()" -"(let-values(((#%variable-reference435_1 #%top436_1 id437_1)" -"(let-values(((s_747)(if(syntax?$1 s_736)(syntax-e$1 s_736) s_736)))" -"(let-values(((#%variable-reference438_0)" -"(let-values(((s_748)(car s_747))) s_748))" -"((#%top439_0 id440_0)" -"(let-values(((s_749)(cdr s_747)))" -"(let-values(((s_750)" -"(if(syntax?$1 s_749)" -"(syntax-e$1 s_749)" -" s_749)))" -"(let-values(((#%top441_0 id442_0)" -"(let-values(((s_751)(car s_750)))" -"(let-values(((s_752)" -"(if(syntax?$1 s_751)" -"(syntax-e$1 s_751)" -" s_751)))" -"(let-values(((#%top443_0)" -"(let-values(((s_753)" +"(let-values(((#%variable-reference435_1953 #%top436_1954 id437_1955)" +"(let-values(((s_1956)(if(syntax?$1 s_1940)(syntax-e$1 s_1940) s_1940)))" +"(let-values(((#%variable-reference438_1957)" +"(let-values(((s_1960)(car s_1956))) s_1960))" +"((#%top439_1958 id440_1959)" +"(let-values(((s_1961)(cdr s_1956)))" +"(let-values(((s_1962)" +"(if(syntax?$1 s_1961)" +"(syntax-e$1 s_1961)" +" s_1961)))" +"(let-values(((#%top441_1963 id442_1964)" +"(let-values(((s_1965)(car s_1962)))" +"(let-values(((s_1966)" +"(if(syntax?$1 s_1965)" +"(syntax-e$1 s_1965)" +" s_1965)))" +"(let-values(((#%top443_1967)" +"(let-values(((s_1969)" "(car" -" s_752)))" -" s_753))" -"((id444_0)" -"(let-values(((s_754)" +" s_1966)))" +" s_1969))" +"((id444_1968)" +"(let-values(((s_1970)" "(cdr" -" s_752)))" -" s_754)))" -"(values #%top443_0 id444_0)))))" +" s_1966)))" +" s_1970)))" +"(values" +" #%top443_1967" +" id444_1968)))))" "(()" -"(let-values(((s_755)(cdr s_750)))" -"(let-values(((s_756)" -"(if(syntax?$1 s_755)" -"(syntax-e$1 s_755)" -" s_755)))" +"(let-values(((s_1971)(cdr s_1962)))" +"(let-values(((s_1972)" +"(if(syntax?$1 s_1971)" +"(syntax-e$1 s_1971)" +" s_1971)))" "(values)))))" -"(values #%top441_0 id442_0))))))" -"(values #%variable-reference438_0 #%top439_0 id440_0)))))" -"(values #t #%variable-reference435_1 #%top436_1 id437_1)))" +"(values #%top441_1963 id442_1964))))))" +"(values #%variable-reference438_1957 #%top439_1958 id440_1959)))))" +"(values #t #%variable-reference435_1953 #%top436_1954 id437_1955)))" "(values #f #f #f #f)))))" -"(let-values(((ok?_62 #%variable-reference445_0)" -"(let-values(((s_757) disarmed-s_22))" -"(if(if(not(let-values(((or-part_395) ok?_60))(if or-part_395 or-part_395 ok?_61)))" +"(let-values(((ok?_1905 #%variable-reference445_1906)" +"(let-values(((s_1973) disarmed-s_1868))" +"(if(if(not" +"(let-values(((or-part_1974) ok?_1869))(if or-part_1974 or-part_1974 ok?_1885)))" " #t" " #f)" -"(let-values(((orig-s_60) s_757))" -"(let-values(((#%variable-reference445_1)" -"(let-values(((s_758)(if(syntax?$1 s_757)(syntax-e$1 s_757) s_757)))" -"(if(pair? s_758)" -"(let-values(((#%variable-reference446_0)" -"(let-values(((s_759)(car s_758))) s_759))" +"(let-values(((orig-s_1975) s_1973))" +"(let-values(((#%variable-reference445_1976)" +"(let-values(((s_1977)" +"(if(syntax?$1 s_1973)(syntax-e$1 s_1973) s_1973)))" +"(if(pair? s_1977)" +"(let-values(((#%variable-reference446_1978)" +"(let-values(((s_1979)(car s_1977))) s_1979))" "(()" -"(let-values(((s_760)(cdr s_758)))" -"(let-values(((s_761)" -"(if(syntax?$1 s_760)" -"(syntax-e$1 s_760)" -" s_760)))" -"(if(null? s_761)" +"(let-values(((s_1980)(cdr s_1977)))" +"(let-values(((s_1981)" +"(if(syntax?$1 s_1980)" +"(syntax-e$1 s_1980)" +" s_1980)))" +"(if(null? s_1981)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_60))))))" -"(values #%variable-reference446_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))" -"(values #t #%variable-reference445_1)))" +" orig-s_1975))))))" +"(values #%variable-reference446_1978))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1975)))))" +"(values #t #%variable-reference445_1976)))" "(values #f #f)))))" -"(if(let-values(((or-part_396) ok?_60))(if or-part_396 or-part_396 ok?_61))" +"(if(let-values(((or-part_1982) ok?_1869))(if or-part_1982 or-part_1982 ok?_1885))" "(let-values()" -"(let-values(((var-id_0)(if ok?_60 id431_0 id437_0)))" -"(let-values(((binding_30)" -"(let-values(((var-id447_0) var-id_0)" -"((temp448_0)(expand-context-phase ctx_103))" -"((temp449_0) 'ambiguous))" -"(resolve+shift28.1 temp449_0 #f null unsafe-undefined #f var-id447_0 temp448_0))))" +"(let-values(((var-id_1983)(if ok?_1869 id431_1871 id437_1888)))" +"(let-values(((binding_1984)" +"(let-values(((var-id447_1990) var-id_1983)" +"((temp448_1991)(expand-context-phase ctx_0))" +"((temp449_1992) 'ambiguous))" +"(resolve+shift28.1" +" temp449_1992" +" #f" +" null" +" unsafe-undefined" +" #f" +" var-id447_1990" +" temp448_1991))))" "(let-values((()" "(begin" -"(if(eq? binding_30 'ambiguous)" -"(let-values()(raise-ambiguous-error var-id_0 ctx_103))" +"(if(eq? binding_1984 'ambiguous)" +"(let-values()(raise-ambiguous-error var-id_1983 ctx_0))" "(void))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_397) binding_30))" -"(if or-part_397 or-part_397(expand-context-allow-unbound? ctx_103)))" +"(if(let-values(((or-part_1993) binding_1984))" +"(if or-part_1993 or-part_1993(expand-context-allow-unbound? ctx_0)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_720" -" var-id_0" +" s_0" +" var-id_1983" " null" -"(syntax-debug-info-string var-id_0 ctx_103))))" +"(syntax-debug-info-string var-id_1983 ctx_0))))" "(values))))" -"(let-values(((t_63 primitive?_12 insp-of-t_7 protected?_13)" -"(if binding_30" -"(let-values(((binding450_0) binding_30)" -"((ctx451_0) ctx_103)" -"((var-id452_0) var-id_0)" -"((s453_0) s_720)" -"((temp454_0)(expand-context-in-local-expand? ctx_103)))" -"(lookup62.1 s453_0 temp454_0 binding450_0 ctx451_0 var-id452_0))" +"(let-values(((t_1985 primitive?_1986 insp-of-t_1987 protected?_1988)" +"(if binding_1984" +"(let-values(((binding450_1995) binding_1984)" +"((ctx451_1996) ctx_0)" +"((var-id452_1997) var-id_1983)" +"((s453_1998) s_0)" +"((temp454_1999)(expand-context-in-local-expand? ctx_0)))" +"(lookup62.1" +" s453_1998" +" temp454_1999" +" binding450_1995" +" ctx451_1996" +" var-id452_1997))" "(values #f #f #f #f))))" "(begin" -"(if(if t_63(not(variable? t_63)) #f)" +"(if(if t_1985(not(variable? t_1985)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_720))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_1983 s_0))" "(void))" -"(if(expand-context-to-parsed? ctx_103)" +"(if(expand-context-to-parsed? ctx_0)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_720)" -"(if ok?_61" -"(let-values()(parsed-top-id4.1 var-id_0 binding_30 #f))" -"(if primitive?_12" -"(let-values()(parsed-primitive-id3.1 var-id_0 binding_30 #f))" -"(let-values()(parsed-id2.1 var-id_0 binding_30 #f)))))" -" s_720))))))))" +"(keep-properties-only~ s_0)" +"(if ok?_1885" +"(let-values()(parsed-top-id4.1 var-id_1983 binding_1984 #f))" +"(if primitive?_1986" +"(let-values()(parsed-primitive-id3.1 var-id_1983 binding_1984 #f))" +"(let-values()(parsed-id2.1 var-id_1983 binding_1984 #f)))))" +" s_0))))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_103)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_720) #f)" -" s_720)))))))))))" +"(if(expand-context-to-parsed? ctx_0)" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_0) #f)" +" s_0)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_762 ctx_104)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(let-values(((obs_123)(expand-context-observer ctx_104)))" -"(if obs_123" -"(let-values()(let-values()(call-expand-observe obs_123 'prim-#%expression)))" +"(let-values(((obs_2021)(expand-context-observer ctx_0)))" +"(if obs_2021" +"(let-values()(let-values()(call-expand-observe obs_2021 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_762)))" -"(let-values(((ok?_63 #%expression455_0 e456_0)" -"(let-values(((s_763) disarmed-s_23))" -"(let-values(((orig-s_61) s_763))" -"(let-values(((#%expression455_1 e456_1)" -"(let-values(((s_764)(if(syntax?$1 s_763)(syntax-e$1 s_763) s_763)))" -"(if(pair? s_764)" -"(let-values(((#%expression457_0)" -"(let-values(((s_765)(car s_764))) s_765))" -"((e458_0)" -"(let-values(((s_766)(cdr s_764)))" -"(let-values(((s_767)" -"(if(syntax?$1 s_766)" -"(syntax-e$1 s_766)" -" s_766)))" -"(if(pair? s_767)" -"(let-values(((e459_0)" -"(let-values(((s_768)(car s_767)))" -" s_768))" +"(let-values(((disarmed-s_2002)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_2003 #%expression455_2004 e456_2005)" +"(let-values(((s_2022) disarmed-s_2002))" +"(let-values(((orig-s_2023) s_2022))" +"(let-values(((#%expression455_2024 e456_2025)" +"(let-values(((s_2026)(if(syntax?$1 s_2022)(syntax-e$1 s_2022) s_2022)))" +"(if(pair? s_2026)" +"(let-values(((#%expression457_2027)" +"(let-values(((s_2029)(car s_2026))) s_2029))" +"((e458_2028)" +"(let-values(((s_2030)(cdr s_2026)))" +"(let-values(((s_2031)" +"(if(syntax?$1 s_2030)" +"(syntax-e$1 s_2030)" +" s_2030)))" +"(if(pair? s_2031)" +"(let-values(((e459_2032)" +"(let-values(((s_2033)(car s_2031)))" +" s_2033))" "(()" -"(let-values(((s_769)(cdr s_767)))" -"(let-values(((s_770)" -"(if(syntax?$1 s_769)" -"(syntax-e$1 s_769)" -" s_769)))" -"(if(null? s_770)" +"(let-values(((s_2034)(cdr s_2031)))" +"(let-values(((s_2035)" +"(if(syntax?$1 s_2034)" +"(syntax-e$1 s_2034)" +" s_2034)))" +"(if(null? s_2035)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_61))))))" -"(values e459_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_61))))))" -"(values #%expression457_0 e458_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_61)))))" -"(values #t #%expression455_1 e456_1))))))" -"(let-values(((rebuild-s_13)" -"(let-values(((ctx460_0) ctx_104)((s461_0) s_762)((temp462_0) #t))" -"(keep-as-needed119.1 temp462_0 #f #f ctx460_0 s461_0))))" -"(let-values(((exp-e_0)" -"(let-values(((temp463_0) e456_0)" -"((temp464_0)" -"(let-values(((temp465_0)(as-expression-context ctx_104))" -"((ctx466_0) ctx_104))" -"(as-tail-context22.1 ctx466_0 temp465_0))))" -"(expand9.1 #f #f #f temp463_0 temp464_0))))" -"(if(expand-context-to-parsed? ctx_104)" -" exp-e_0" -"(if(let-values(((or-part_398)" -"(if(expand-context-in-local-expand? ctx_104)" -"(expand-context-keep-#%expression? ctx_104)" +" orig-s_2023))))))" +"(values e459_2032))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_2023))))))" +"(values #%expression457_2027 e458_2028))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_2023)))))" +"(values #t #%expression455_2024 e456_2025))))))" +"(let-values(((rebuild-s_2019)" +"(let-values(((ctx460_2037) ctx_0)((s461_2038) s_0)((temp462_2039) #t))" +"(keep-as-needed119.1 temp462_2039 #f #f ctx460_2037 s461_2038))))" +"(let-values(((exp-e_2020)" +"(let-values(((temp463_2040) e456_2005)" +"((temp464_2041)" +"(let-values(((temp465_2043)(as-expression-context ctx_0))" +"((ctx466_2044) ctx_0))" +"(as-tail-context22.1 ctx466_2044 temp465_2043))))" +"(expand9.1 #f #f #f temp463_2040 temp464_2041))))" +"(if(expand-context-to-parsed? ctx_0)" +" exp-e_2020" +"(if(let-values(((or-part_2045)" +"(if(expand-context-in-local-expand? ctx_0)" +"(expand-context-keep-#%expression? ctx_0)" " #f)))" -"(if or-part_398 or-part_398(eq? 'top-level(expand-context-context ctx_104))))" +"(if or-part_2045 or-part_2045(eq? 'top-level(expand-context-context ctx_0))))" "(let-values()" -"(let-values(((rebuild-s467_0) rebuild-s_13)((temp468_0)(list #%expression455_0 exp-e_0)))" -"(rebuild5.1 #t rebuild-s467_0 temp468_0)))" +"(let-values(((rebuild-s467_2046) rebuild-s_2019)" +"((temp468_2047)(list #%expression455_2004 exp-e_2020)))" +"(rebuild5.1 #t rebuild-s467_2046 temp468_2047)))" "(let-values()" -"(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))" +"(let-values(((result-s_2048)(syntax-track-origin$1 exp-e_2020 rebuild-s_2019)))" "(begin" -"(let-values(((obs_124)(expand-context-observer ctx_104)))" -"(if obs_124" -"(let-values()(let-values()(call-expand-observe obs_124 'tag result-s_13)))" +"(let-values(((obs_2049)(expand-context-observer ctx_0)))" +"(if obs_2049" +"(let-values()(let-values()(call-expand-observe obs_2049 'tag result-s_2048)))" "(void)))" -" result-s_13)))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_771 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_771))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_772 ctx_106) (raise-syntax-error$1 #f \"not in quasiquote\" s_772))))" +" result-s_2048)))))))))))))" +" (void (add-core-form!* 'unquote (lambda (s_0 ctx_0) (raise-syntax-error$1 #f \"not in quasiquote\" s_0))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_0 ctx_0) (raise-syntax-error$1 #f \"not in quasiquote\" s_0))))" "(define-values" "(binding-for-transformer?)" -"(lambda(b_42 id_128 at-phase_12 ns_112)" +"(lambda(b_0 id_0 at-phase_0 ns_0)" "(begin" -"(if(not at-phase_12)" +"(if(not at-phase_0)" "(let-values()" -"(let-values(((m_30)" -"(namespace->module ns_112(1/module-path-index-resolve(module-binding-nominal-module b_42)))))" -"(let-values(((b/p_4)" +"(let-values(((m_5)" +"(namespace->module ns_0(1/module-path-index-resolve(module-binding-nominal-module b_0)))))" +"(let-values(((b/p_6)" "(hash-ref" -"(hash-ref(module-provides m_30)(module-binding-nominal-phase b_42) '#hasheq())" -"(module-binding-nominal-sym b_42)" +"(hash-ref(module-provides m_5)(module-binding-nominal-phase b_0) '#hasheq())" +"(module-binding-nominal-sym b_0)" " #f)))" -"(provided-as-transformer? b/p_4))))" +"(provided-as-transformer? b/p_6))))" "(let-values()" -"(let-values(((val_14 primitive?_13 insp_25 protected?_14)" -"(let-values(((b1_8) b_42)" -"((empty-env2_0) empty-env)" -"((null3_0) null)" -"((ns4_2) ns_112)" -"((at-phase5_0) at-phase_12)" -"((id6_0) id_128))" -"(binding-lookup50.1 #f #f b1_8 empty-env2_0 null3_0 ns4_2 at-phase5_0 id6_0))))" -"(not(variable? val_14))))))))" +"(let-values(((val_7 primitive?_8 insp_9 protected?_10)" +"(let-values(((b1_11) b_0)" +"((empty-env2_12) empty-env)" +"((null3_13) null)" +"((ns4_14) ns_0)" +"((at-phase5_15) at-phase_0)" +"((id6_16) id_0))" +"(binding-lookup50.1 #f #f b1_11 empty-env2_12 null3_13 ns4_14 at-phase5_15 id6_16))))" +"(not(variable? val_7))))))))" "(define-values(layers) '(raw phaseless id))" "(define-values(provide-form-name) 'provide)" "(define-values" "(parse-and-expand-provides!)" -"(lambda(specs_0 orig-s_62 rp_1 self_30 phase_46 ctx_107)" +"(lambda(specs_0 orig-s_0 rp_0 self_0 phase_0 ctx_0)" "(begin" -"(let-values(((ns_125)(expand-context-namespace ctx_107)))" -"((letrec-values(((loop_114)" -"(lambda(specs_1 at-phase_13 protected?_15 layer_6)" +"(let-values(((ns_7)(expand-context-namespace ctx_0)))" +"((letrec-values(((loop_8)" +"(lambda(specs_1 at-phase_0 protected?_0 layer_0)" "(begin" " 'loop" -"(let-values(((track-stxess_0 exp-specss_0)" -"(let-values(((track-stxes_0 exp-specs_0)" -"(let-values(((lst_81) specs_1))" +"(let-values(((track-stxess_13 exp-specss_14)" +"(let-values(((track-stxes_15 exp-specs_16)" +"(let-values(((lst_17) specs_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_81)))" -"((letrec-values(((for-loop_102)" -"(lambda(track-stxes_1" -" exp-specs_1" -" lst_406)" +"(let-values()(check-list lst_17)))" +"((letrec-values(((for-loop_18)" +"(lambda(track-stxes_0" +" exp-specs_0" +" lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_406)" -"(let-values(((spec_0)" -"(unsafe-car" -" lst_406))" -"((rest_237)" -"(unsafe-cdr" -" lst_406)))" -"(let-values(((track-stxes_2" -" exp-specs_2)" -"(let-values(((track-stxes_3)" -" track-stxes_1)" -"((exp-specs_3)" -" exp-specs_1))" -"(let-values(((track-stxes_4" -" exp-specs_4)" +"(if(pair? lst_0)" +"(let-values(((spec_22)" +"(unsafe-car lst_0))" +"((rest_23)" +"(unsafe-cdr lst_0)))" +"(let-values(((track-stxes_24" +" exp-specs_25)" +"(let-values(((track-stxes_26)" +" track-stxes_0)" +"((exp-specs_27)" +" exp-specs_0))" +"(let-values(((track-stxes_28" +" exp-specs_29)" "(let-values()" -"(let-values(((track-stxes1_0" -" exp-specs2_0)" +"(let-values(((track-stxes1_30" +" exp-specs2_31)" "(let-values()" -"(let-values(((disarmed-spec_0)" +"(let-values(((disarmed-spec_32)" "(syntax-disarm$1" -" spec_0)))" -"(let-values(((fm_2)" +" spec_22)))" +"(let-values(((fm_33)" "(if(pair?" "(syntax-e$1" -" disarmed-spec_0))" +" disarmed-spec_32))" "(if(identifier?" "(car" "(syntax-e$1" -" disarmed-spec_0)))" +" disarmed-spec_32)))" "(syntax-e$1" "(car" "(syntax-e$1" -" disarmed-spec_0)))" +" disarmed-spec_32)))" " #f)" " #f)))" -"(let-values(((check-nested_1)" -"(lambda(want-layer_3)" +"(let-values(((check-nested_34)" +"(lambda(want-layer_0)" "(begin" " 'check-nested" "(if(member" -" want-layer_3" +" want-layer_0" "(member" -" layer_6" +" layer_0" " layers))" "(void)" "(let-values()" @@ -68145,14 +68555,14 @@ static const char *startup_source = " provide-form-name" "(format" " \"nested `~a' not allowed\"" -" fm_2)" -" orig-s_62" -" spec_0)))))))" -"(let-values(((tmp_42)" -" fm_2))" -"(let-values(((index_7)" +" fm_33)" +" orig-s_0" +" spec_22)))))))" +"(let-values(((tmp_36)" +" fm_33))" +"(let-values(((index_37)" "(if(symbol?" -" tmp_42)" +" tmp_36)" "(hash-ref" " '#hasheq((all-defined" " ." @@ -68192,1928 +68602,1928 @@ static const char *startup_source = "(struct" " ." " 6))" -" tmp_42" +" tmp_36" "(lambda()" " 0))" " 0)))" "(if(unsafe-fx<" -" index_7" +" index_37" " 6)" "(if(unsafe-fx<" -" index_7" +" index_37" " 2)" "(if(unsafe-fx<" -" index_7" +" index_37" " 1)" "(let-values()" "(if(identifier?" -" spec_0)" +" spec_22)" "(let-values()" "(begin" "(parse-identifier!" -" spec_0" -" orig-s_62" +" spec_22" +" orig-s_0" "(syntax-e$1" -" spec_0)" -" at-phase_13" -" ns_125" -" rp_1" -" protected?_15)" +" spec_22)" +" at-phase_0" +" ns_7" +" rp_0" +" protected?_0)" "(values" " null" "(list" -" spec_0))))" +" spec_22))))" "(let-values()" "(raise-syntax-error$1" " provide-form-name" " \"bad syntax\"" -" orig-s_62" -" spec_0))))" +" orig-s_0" +" spec_22))))" "(let-values()" "(let-values((()" "(begin" -"(check-nested_1" +"(check-nested_34" " 'raw)" "(values))))" -"(let-values(((ok?_64" -" for-meta3_0" -" phase-level4_0" -" spec5_0)" -"(let-values(((s_168)" -" disarmed-spec_0))" -"(let-values(((orig-s_63)" -" s_168))" -"(let-values(((for-meta3_1" -" phase-level4_1" -" spec5_1)" -"(let-values(((s_773)" +"(let-values(((ok?_38" +" for-meta3_39" +" phase-level4_40" +" spec5_41)" +"(let-values(((s_61)" +" disarmed-spec_32))" +"(let-values(((orig-s_62)" +" s_61))" +"(let-values(((for-meta3_63" +" phase-level4_64" +" spec5_65)" +"(let-values(((s_66)" "(if(syntax?$1" -" s_168)" +" s_61)" "(syntax-e$1" -" s_168)" -" s_168)))" +" s_61)" +" s_61)))" "(if(pair?" -" s_773)" -"(let-values(((for-meta6_0)" -"(let-values(((s_489)" +" s_66)" +"(let-values(((for-meta6_67)" +"(let-values(((s_70)" "(car" -" s_773)))" -" s_489))" -"((phase-level7_0" -" spec8_0)" -"(let-values(((s_449)" +" s_66)))" +" s_70))" +"((phase-level7_68" +" spec8_69)" +"(let-values(((s_71)" "(cdr" -" s_773)))" -"(let-values(((s_774)" +" s_66)))" +"(let-values(((s_72)" "(if(syntax?$1" -" s_449)" +" s_71)" "(syntax-e$1" -" s_449)" -" s_449)))" +" s_71)" +" s_71)))" "(if(pair?" -" s_774)" -"(let-values(((phase-level9_0)" -"(let-values(((s_775)" +" s_72)" +"(let-values(((phase-level9_73)" +"(let-values(((s_75)" "(car" -" s_774)))" -" s_775))" -"((spec10_0)" -"(let-values(((s_776)" +" s_72)))" +" s_75))" +"((spec10_74)" +"(let-values(((s_76)" "(cdr" -" s_774)))" -"(let-values(((s_81)" +" s_72)))" +"(let-values(((s_77)" "(if(syntax?$1" -" s_776)" +" s_76)" "(syntax-e$1" -" s_776)" -" s_776)))" -"(let-values(((flat-s_46)" +" s_76)" +" s_76)))" +"(let-values(((flat-s_78)" "(to-syntax-list.1" -" s_81)))" +" s_77)))" "(if(not" -" flat-s_46)" +" flat-s_78)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_63))" +" orig-s_62))" "(let-values()" -" flat-s_46)))))))" +" flat-s_78)))))))" "(values" -" phase-level9_0" -" spec10_0))" +" phase-level9_73" +" spec10_74))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_63))))))" +" orig-s_62))))))" "(values" -" for-meta6_0" -" phase-level7_0" -" spec8_0))" +" for-meta6_67" +" phase-level7_68" +" spec8_69))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_63)))))" +" orig-s_62)))))" "(values" " #t" -" for-meta3_1" -" phase-level4_1" -" spec5_1))))))" -"(let-values(((p_79)" +" for-meta3_63" +" phase-level4_64" +" spec5_65))))))" +"(let-values(((p_58)" "(syntax-e$1" -" phase-level4_0)))" +" phase-level4_40)))" "(let-values((()" "(begin" "(if(phase?" -" p_79)" +" p_58)" "(void)" "(let-values()" "(raise-syntax-error$1" " provide-form-name" " \"bad `for-meta' phase\"" -" orig-s_62" -" spec_0)))" +" orig-s_0" +" spec_22)))" "(values))))" -"(let-values(((track-stxes_5" -" exp-specs_5)" -"(loop_114" -" spec5_0" +"(let-values(((track-stxes_59" +" exp-specs_60)" +"(loop_8" +" spec5_41" "(phase+" -" p_79" -" at-phase_13)" -" protected?_15" +" p_58" +" at-phase_0)" +" protected?_0" " 'phaseless)))" "(values" " null" "(list" "(syntax-track-origin*" -" track-stxes_5" -"(let-values(((spec11_0)" -" spec_0)" -"((temp12_8)" +" track-stxes_59" +"(let-values(((spec11_79)" +" spec_22)" +"((temp12_80)" "(list*" -" for-meta3_0" -" phase-level4_0" -" exp-specs_5)))" +" for-meta3_39" +" phase-level4_40" +" exp-specs_60)))" "(rebuild5.1" " #t" -" spec11_0" -" temp12_8))))))))))))" +" spec11_79" +" temp12_80))))))))))))" "(if(unsafe-fx<" -" index_7" +" index_37" " 3)" "(let-values()" "(let-values((()" "(begin" -"(check-nested_1" +"(check-nested_34" " 'raw)" "(values))))" -"(let-values(((ok?_65" -" for-syntax13_0" -" spec14_0)" -"(let-values(((s_451)" -" disarmed-spec_0))" -"(let-values(((orig-s_64)" -" s_451))" -"(let-values(((for-syntax13_1" -" spec14_1)" -"(let-values(((s_24)" +"(let-values(((ok?_81" +" for-syntax13_82" +" spec14_83)" +"(let-values(((s_99)" +" disarmed-spec_32))" +"(let-values(((orig-s_100)" +" s_99))" +"(let-values(((for-syntax13_101" +" spec14_102)" +"(let-values(((s_103)" "(if(syntax?$1" -" s_451)" +" s_99)" "(syntax-e$1" -" s_451)" -" s_451)))" +" s_99)" +" s_99)))" "(if(pair?" -" s_24)" -"(let-values(((for-syntax15_0)" -"(let-values(((s_306)" +" s_103)" +"(let-values(((for-syntax15_104)" +"(let-values(((s_106)" "(car" -" s_24)))" -" s_306))" -"((spec16_0)" -"(let-values(((s_157)" +" s_103)))" +" s_106))" +"((spec16_105)" +"(let-values(((s_107)" "(cdr" -" s_24)))" -"(let-values(((s_777)" +" s_103)))" +"(let-values(((s_108)" "(if(syntax?$1" -" s_157)" +" s_107)" "(syntax-e$1" -" s_157)" -" s_157)))" -"(let-values(((flat-s_47)" +" s_107)" +" s_107)))" +"(let-values(((flat-s_109)" "(to-syntax-list.1" -" s_777)))" +" s_108)))" "(if(not" -" flat-s_47)" +" flat-s_109)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_64))" +" orig-s_100))" "(let-values()" -" flat-s_47)))))))" +" flat-s_109)))))))" "(values" -" for-syntax15_0" -" spec16_0))" +" for-syntax15_104" +" spec16_105))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_64)))))" +" orig-s_100)))))" "(values" " #t" -" for-syntax13_1" -" spec14_1))))))" -"(let-values(((track-stxes_6" -" exp-specs_6)" -"(loop_114" -" spec14_0" +" for-syntax13_101" +" spec14_102))))))" +"(let-values(((track-stxes_97" +" exp-specs_98)" +"(loop_8" +" spec14_83" "(phase+" " 1" -" at-phase_13)" -" protected?_15" +" at-phase_0)" +" protected?_0" " 'phaseless)))" "(values" " null" "(list" "(syntax-track-origin*" -" track-stxes_6" -"(let-values(((spec17_0)" -" spec_0)" -"((temp18_6)" +" track-stxes_97" +"(let-values(((spec17_110)" +" spec_22)" +"((temp18_111)" "(list*" -" for-syntax13_0" -" exp-specs_6)))" +" for-syntax13_82" +" exp-specs_98)))" "(rebuild5.1" " #t" -" spec17_0" -" temp18_6)))))))))" +" spec17_110" +" temp18_111)))))))))" "(if(unsafe-fx<" -" index_7" +" index_37" " 4)" "(let-values()" "(let-values((()" "(begin" -"(check-nested_1" +"(check-nested_34" " 'raw)" "(values))))" -"(let-values(((ok?_66" -" for-label19_0" -" spec20_0)" -"(let-values(((s_500)" -" disarmed-spec_0))" -"(let-values(((orig-s_65)" -" s_500))" -"(let-values(((for-label19_1" -" spec20_1)" -"(let-values(((s_309)" +"(let-values(((ok?_112" +" for-label19_113" +" spec20_114)" +"(let-values(((s_130)" +" disarmed-spec_32))" +"(let-values(((orig-s_131)" +" s_130))" +"(let-values(((for-label19_132" +" spec20_133)" +"(let-values(((s_134)" "(if(syntax?$1" -" s_500)" +" s_130)" "(syntax-e$1" -" s_500)" -" s_500)))" +" s_130)" +" s_130)))" "(if(pair?" -" s_309)" -"(let-values(((for-label21_0)" -"(let-values(((s_444)" +" s_134)" +"(let-values(((for-label21_135)" +"(let-values(((s_137)" "(car" -" s_309)))" -" s_444))" -"((spec22_0)" -"(let-values(((s_27)" +" s_134)))" +" s_137))" +"((spec22_136)" +"(let-values(((s_138)" "(cdr" -" s_309)))" -"(let-values(((s_28)" +" s_134)))" +"(let-values(((s_139)" "(if(syntax?$1" -" s_27)" +" s_138)" "(syntax-e$1" -" s_27)" -" s_27)))" -"(let-values(((flat-s_48)" +" s_138)" +" s_138)))" +"(let-values(((flat-s_140)" "(to-syntax-list.1" -" s_28)))" +" s_139)))" "(if(not" -" flat-s_48)" +" flat-s_140)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_65))" +" orig-s_131))" "(let-values()" -" flat-s_48)))))))" +" flat-s_140)))))))" "(values" -" for-label21_0" -" spec22_0))" +" for-label21_135" +" spec22_136))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_65)))))" +" orig-s_131)))))" "(values" " #t" -" for-label19_1" -" spec20_1))))))" -"(let-values(((track-stxes_7" -" exp-specs_7)" -"(loop_114" -" spec20_0" +" for-label19_132" +" spec20_133))))))" +"(let-values(((track-stxes_128" +" exp-specs_129)" +"(loop_8" +" spec20_114" " #f" -" protected?_15" +" protected?_0" " 'phaseless)))" "(values" " null" "(list" "(syntax-track-origin*" -" track-stxes_7" -"(let-values(((spec23_0)" -" spec_0)" -"((temp24_9)" +" track-stxes_128" +"(let-values(((spec23_141)" +" spec_22)" +"((temp24_142)" "(list*" -" for-label19_0" -" exp-specs_7)))" +" for-label19_113" +" exp-specs_129)))" "(rebuild5.1" " #t" -" spec23_0" -" temp24_9)))))))))" +" spec23_141" +" temp24_142)))))))))" "(if(unsafe-fx<" -" index_7" +" index_37" " 5)" "(let-values()" "(let-values((()" "(begin" -"(check-nested_1" +"(check-nested_34" " 'phaseless)" "(values))))" "(let-values((()" "(begin" -"(if protected?_15" +"(if protected?_0" "(let-values()" "(raise-syntax-error$1" " provide-form-name" " \"nested `protect' not allowed\"" -" orig-s_62" -" spec_0))" +" orig-s_0" +" spec_22))" "(void))" "(values))))" -"(let-values(((ok?_67" -" protect25_0" -" p-spec26_0)" -"(let-values(((s_49)" -" disarmed-spec_0))" -"(let-values(((orig-s_66)" -" s_49))" -"(let-values(((protect25_1" -" p-spec26_1)" -"(let-values(((s_778)" +"(let-values(((ok?_143" +" protect25_144" +" p-spec26_145)" +"(let-values(((s_161)" +" disarmed-spec_32))" +"(let-values(((orig-s_162)" +" s_161))" +"(let-values(((protect25_163" +" p-spec26_164)" +"(let-values(((s_165)" "(if(syntax?$1" -" s_49)" +" s_161)" "(syntax-e$1" -" s_49)" -" s_49)))" +" s_161)" +" s_161)))" "(if(pair?" -" s_778)" -"(let-values(((protect27_0)" -"(let-values(((s_506)" +" s_165)" +"(let-values(((protect27_166)" +"(let-values(((s_168)" "(car" -" s_778)))" -" s_506))" -"((p-spec28_0)" -"(let-values(((s_507)" +" s_165)))" +" s_168))" +"((p-spec28_167)" +"(let-values(((s_169)" "(cdr" -" s_778)))" -"(let-values(((s_52)" +" s_165)))" +"(let-values(((s_170)" "(if(syntax?$1" -" s_507)" +" s_169)" "(syntax-e$1" -" s_507)" -" s_507)))" -"(let-values(((flat-s_49)" +" s_169)" +" s_169)))" +"(let-values(((flat-s_171)" "(to-syntax-list.1" -" s_52)))" +" s_170)))" "(if(not" -" flat-s_49)" +" flat-s_171)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_66))" +" orig-s_162))" "(let-values()" -" flat-s_49)))))))" +" flat-s_171)))))))" "(values" -" protect27_0" -" p-spec28_0))" +" protect27_166" +" p-spec28_167))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_66)))))" +" orig-s_162)))))" "(values" " #t" -" protect25_1" -" p-spec26_1))))))" -"(let-values(((track-stxes_8" -" exp-specs_8)" -"(loop_114" -" p-spec26_0" -" at-phase_13" +" protect25_163" +" p-spec26_164))))))" +"(let-values(((track-stxes_159" +" exp-specs_160)" +"(loop_8" +" p-spec26_145" +" at-phase_0" " #t" -" layer_6)))" +" layer_0)))" "(values" " null" "(list" "(syntax-track-origin*" -" track-stxes_8" -"(let-values(((spec29_0)" -" spec_0)" -"((temp30_7)" +" track-stxes_159" +"(let-values(((spec29_172)" +" spec_22)" +"((temp30_173)" "(list*" -" protect25_0" -" exp-specs_8)))" +" protect25_144" +" exp-specs_160)))" "(rebuild5.1" " #t" -" spec29_0" -" temp30_7))))))))))" +" spec29_172" +" temp30_173))))))))))" "(let-values()" "(let-values((()" "(begin" -"(check-nested_1" +"(check-nested_34" " 'phaseless)" "(values))))" -"(let-values(((ok?_68" -" rename31_0" -" id:from32_0" -" id:to33_0)" -"(let-values(((s_315)" -" disarmed-spec_0))" -"(let-values(((orig-s_67)" -" s_315))" -"(let-values(((rename31_1" -" id:from32_1" -" id:to33_1)" -"(let-values(((s_779)" +"(let-values(((ok?_174" +" rename31_175" +" id:from32_176" +" id:to33_177)" +"(let-values(((s_194)" +" disarmed-spec_32))" +"(let-values(((orig-s_195)" +" s_194))" +"(let-values(((rename31_196" +" id:from32_197" +" id:to33_198)" +"(let-values(((s_199)" "(if(syntax?$1" -" s_315)" +" s_194)" "(syntax-e$1" -" s_315)" -" s_315)))" +" s_194)" +" s_194)))" "(if(pair?" -" s_779)" -"(let-values(((rename34_0)" -"(let-values(((s_200)" +" s_199)" +"(let-values(((rename34_200)" +"(let-values(((s_203)" "(car" -" s_779)))" -" s_200))" -"((id:from35_0" -" id:to36_0)" -"(let-values(((s_59)" +" s_199)))" +" s_203))" +"((id:from35_201" +" id:to36_202)" +"(let-values(((s_204)" "(cdr" -" s_779)))" -"(let-values(((s_404)" +" s_199)))" +"(let-values(((s_205)" "(if(syntax?$1" -" s_59)" +" s_204)" "(syntax-e$1" -" s_59)" -" s_59)))" +" s_204)" +" s_204)))" "(if(pair?" -" s_404)" -"(let-values(((id:from37_0)" -"(let-values(((s_201)" +" s_205)" +"(let-values(((id:from37_206)" +"(let-values(((s_208)" "(car" -" s_404)))" -"(if(let-values(((or-part_215)" +" s_205)))" +"(if(let-values(((or-part_209)" "(if(syntax?$1" -" s_201)" +" s_208)" "(symbol?" "(syntax-e$1" -" s_201))" +" s_208))" " #f)))" -"(if or-part_215" -" or-part_215" +"(if or-part_209" +" or-part_209" "(symbol?" -" s_201)))" -" s_201" +" s_208)))" +" s_208" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_67" -" s_201))))" -"((id:to38_0)" -"(let-values(((s_60)" +" orig-s_195" +" s_208))))" +"((id:to38_207)" +"(let-values(((s_210)" "(cdr" -" s_404)))" -"(let-values(((s_61)" +" s_205)))" +"(let-values(((s_211)" "(if(syntax?$1" -" s_60)" +" s_210)" "(syntax-e$1" -" s_60)" -" s_60)))" +" s_210)" +" s_210)))" "(if(pair?" -" s_61)" -"(let-values(((id:to39_0)" -"(let-values(((s_203)" +" s_211)" +"(let-values(((id:to39_212)" +"(let-values(((s_213)" "(car" -" s_61)))" -"(if(let-values(((or-part_399)" +" s_211)))" +"(if(let-values(((or-part_214)" "(if(syntax?$1" -" s_203)" +" s_213)" "(symbol?" "(syntax-e$1" -" s_203))" +" s_213))" " #f)))" -"(if or-part_399" -" or-part_399" +"(if or-part_214" +" or-part_214" "(symbol?" -" s_203)))" -" s_203" +" s_213)))" +" s_213" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_67" -" s_203))))" -"(()" -"(let-values(((s_424)" -"(cdr" -" s_61)))" -"(let-values(((s_414)" -"(if(syntax?$1" -" s_424)" -"(syntax-e$1" -" s_424)" -" s_424)))" -"(if(null?" -" s_414)" -"(values)" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_67))))))" -"(values" -" id:to39_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_67))))))" -"(values" -" id:from37_0" -" id:to38_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_67))))))" -"(values" -" rename34_0" -" id:from35_0" -" id:to36_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_67)))))" -"(values" -" #t" -" rename31_1" -" id:from32_1" -" id:to33_1))))))" -"(begin" -"(parse-identifier!" -" id:from32_0" -" orig-s_62" -"(syntax-e$1" -" id:to33_0)" -" at-phase_13" -" ns_125" -" rp_1" -" protected?_15)" -"(values" -" null" -"(list" -" spec_0))))))))))" -"(if(unsafe-fx<" -" index_7" -" 9)" -"(if(unsafe-fx<" -" index_7" -" 7)" -"(let-values()" -"(let-values((()" -"(begin" -"(check-nested_1" -" 'phaseless)" -"(values))))" -"(let-values(((ok?_69" -" struct40_0" -" id:struct41_0" -" id:field42_0)" -"(let-values(((s_522)" -" disarmed-spec_0))" -"(let-values(((orig-s_68)" -" s_522))" -"(let-values(((struct40_1" -" id:struct41_1" -" id:field42_1)" -"(let-values(((s_207)" -"(if(syntax?$1" -" s_522)" -"(syntax-e$1" -" s_522)" -" s_522)))" -"(if(pair?" -" s_207)" -"(let-values(((struct43_0)" -"(let-values(((s_209)" -"(car" -" s_207)))" -" s_209))" -"((id:struct44_0" -" id:field45_0)" -"(let-values(((s_38)" -"(cdr" -" s_207)))" -"(let-values(((s_319)" -"(if(syntax?$1" -" s_38)" -"(syntax-e$1" -" s_38)" -" s_38)))" -"(if(pair?" -" s_319)" -"(let-values(((id:struct46_0)" -"(let-values(((s_780)" -"(car" -" s_319)))" -"(if(let-values(((or-part_400)" -"(if(syntax?$1" -" s_780)" -"(symbol?" -"(syntax-e$1" -" s_780))" -" #f)))" -"(if or-part_400" -" or-part_400" -"(symbol?" -" s_780)))" -" s_780" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_68" -" s_780))))" -"((id:field47_0)" -"(let-values(((s_781)" -"(cdr" -" s_319)))" -"(let-values(((s_433)" -"(if(syntax?$1" -" s_781)" -"(syntax-e$1" -" s_781)" -" s_781)))" -"(if(pair?" -" s_433)" -"(let-values(((id:field48_0)" -"(let-values(((s_523)" -"(car" -" s_433)))" -"(let-values(((s_782)" -"(if(syntax?$1" -" s_523)" -"(syntax-e$1" -" s_523)" -" s_523)))" -"(let-values(((flat-s_50)" -"(to-syntax-list.1" -" s_782)))" -"(if(not" -" flat-s_50)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_68))" -"(let-values()" -"(let-values(((id:field_0)" -"(let-values(((lst_53)" -" flat-s_50))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_53)))" -"((letrec-values(((for-loop_318)" -"(lambda(id:field_1" -" lst_272)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_272)" -"(let-values(((s_783)" -"(unsafe-car" -" lst_272))" -"((rest_238)" -"(unsafe-cdr" -" lst_272)))" -"(let-values(((id:field_2)" -"(let-values(((id:field_3)" -" id:field_1))" -"(let-values(((id:field_4)" -"(let-values()" -"(let-values(((id:field49_0)" -"(let-values()" -"(if(let-values(((or-part_401)" -"(if(syntax?$1" -" s_783)" -"(symbol?" -"(syntax-e$1" -" s_783))" -" #f)))" -"(if or-part_401" -" or-part_401" -"(symbol?" -" s_783)))" -" s_783" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_68" -" s_783)))))" -"(cons" -" id:field49_0" -" id:field_3)))))" -"(values" -" id:field_4)))))" -"(if(not" -" #f)" -"(for-loop_318" -" id:field_2" -" rest_238)" -" id:field_2)))" -" id:field_1)))))" -" for-loop_318)" -" null" -" lst_53)))))" -"(reverse$1" -" id:field_0))))))))" -"(()" -"(let-values(((s_528)" -"(cdr" -" s_433)))" -"(let-values(((s_529)" -"(if(syntax?$1" -" s_528)" -"(syntax-e$1" -" s_528)" -" s_528)))" -"(if(null?" -" s_529)" -"(values)" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_68))))))" -"(values" -" id:field48_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_68))))))" -"(values" -" id:struct46_0" -" id:field47_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_68))))))" -"(values" -" struct43_0" -" id:struct44_0" -" id:field45_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_68)))))" -"(values" -" #t" -" struct40_1" -" id:struct41_1" -" id:field42_1))))))" -"(begin" -"(parse-struct!" -" id:struct41_0" -" orig-s_62" -" id:field42_0" -" at-phase_13" -" ns_125" -" rp_1" -" protected?_15)" -"(values" -" null" -"(list" -" spec_0))))))" -"(if(unsafe-fx<" -" index_7" -" 8)" -"(let-values()" -"(let-values((()" -"(begin" -"(check-nested_1" -" 'phaseless)" -"(values))))" -"(let-values(((ok?_70" -" all-from50_0" -" mod-path51_0)" -"(let-values(((s_321)" -" disarmed-spec_0))" -"(let-values(((orig-s_69)" -" s_321))" -"(let-values(((all-from50_1" -" mod-path51_1)" -"(let-values(((s_323)" -"(if(syntax?$1" -" s_321)" -"(syntax-e$1" -" s_321)" -" s_321)))" -"(if(pair?" -" s_323)" -"(let-values(((all-from52_0)" -"(let-values(((s_784)" -"(car" -" s_323)))" -" s_784))" -"((mod-path53_0)" -"(let-values(((s_427)" -"(cdr" -" s_323)))" -"(let-values(((s_214)" -"(if(syntax?$1" -" s_427)" -"(syntax-e$1" -" s_427)" -" s_427)))" -"(if(pair?" -" s_214)" -"(let-values(((mod-path54_0)" -"(let-values(((s_428)" -"(car" -" s_214)))" -" s_428))" +" orig-s_195" +" s_213))))" "(()" "(let-values(((s_215)" "(cdr" -" s_214)))" -"(let-values(((s_169)" +" s_211)))" +"(let-values(((s_216)" "(if(syntax?$1" " s_215)" "(syntax-e$1" " s_215)" " s_215)))" "(if(null?" -" s_169)" +" s_216)" +"(values)" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_195))))))" +"(values" +" id:to39_212))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_195))))))" +"(values" +" id:from37_206" +" id:to38_207))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_195))))))" +"(values" +" rename34_200" +" id:from35_201" +" id:to36_202))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_195)))))" +"(values" +" #t" +" rename31_196" +" id:from32_197" +" id:to33_198))))))" +"(begin" +"(parse-identifier!" +" id:from32_176" +" orig-s_0" +"(syntax-e$1" +" id:to33_177)" +" at-phase_0" +" ns_7" +" rp_0" +" protected?_0)" +"(values" +" null" +"(list" +" spec_22))))))))))" +"(if(unsafe-fx<" +" index_37" +" 9)" +"(if(unsafe-fx<" +" index_37" +" 7)" +"(let-values()" +"(let-values((()" +"(begin" +"(check-nested_34" +" 'phaseless)" +"(values))))" +"(let-values(((ok?_217" +" struct40_218" +" id:struct41_219" +" id:field42_220)" +"(let-values(((s_237)" +" disarmed-spec_32))" +"(let-values(((orig-s_238)" +" s_237))" +"(let-values(((struct40_239" +" id:struct41_240" +" id:field42_241)" +"(let-values(((s_242)" +"(if(syntax?$1" +" s_237)" +"(syntax-e$1" +" s_237)" +" s_237)))" +"(if(pair?" +" s_242)" +"(let-values(((struct43_243)" +"(let-values(((s_246)" +"(car" +" s_242)))" +" s_246))" +"((id:struct44_244" +" id:field45_245)" +"(let-values(((s_247)" +"(cdr" +" s_242)))" +"(let-values(((s_248)" +"(if(syntax?$1" +" s_247)" +"(syntax-e$1" +" s_247)" +" s_247)))" +"(if(pair?" +" s_248)" +"(let-values(((id:struct46_249)" +"(let-values(((s_251)" +"(car" +" s_248)))" +"(if(let-values(((or-part_252)" +"(if(syntax?$1" +" s_251)" +"(symbol?" +"(syntax-e$1" +" s_251))" +" #f)))" +"(if or-part_252" +" or-part_252" +"(symbol?" +" s_251)))" +" s_251" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_238" +" s_251))))" +"((id:field47_250)" +"(let-values(((s_253)" +"(cdr" +" s_248)))" +"(let-values(((s_254)" +"(if(syntax?$1" +" s_253)" +"(syntax-e$1" +" s_253)" +" s_253)))" +"(if(pair?" +" s_254)" +"(let-values(((id:field48_255)" +"(let-values(((s_256)" +"(car" +" s_254)))" +"(let-values(((s_257)" +"(if(syntax?$1" +" s_256)" +"(syntax-e$1" +" s_256)" +" s_256)))" +"(let-values(((flat-s_258)" +"(to-syntax-list.1" +" s_257)))" +"(if(not" +" flat-s_258)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_238))" +"(let-values()" +"(let-values(((id:field_259)" +"(let-values(((lst_260)" +" flat-s_258))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_260)))" +"((letrec-values(((for-loop_261)" +"(lambda(id:field_0" +" lst_1)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_1)" +"(let-values(((s_264)" +"(unsafe-car" +" lst_1))" +"((rest_265)" +"(unsafe-cdr" +" lst_1)))" +"(let-values(((id:field_266)" +"(let-values(((id:field_267)" +" id:field_0))" +"(let-values(((id:field_268)" +"(let-values()" +"(let-values(((id:field49_269)" +"(let-values()" +"(if(let-values(((or-part_270)" +"(if(syntax?$1" +" s_264)" +"(symbol?" +"(syntax-e$1" +" s_264))" +" #f)))" +"(if or-part_270" +" or-part_270" +"(symbol?" +" s_264)))" +" s_264" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_238" +" s_264)))))" +"(cons" +" id:field49_269" +" id:field_267)))))" +"(values" +" id:field_268)))))" +"(if(not" +" #f)" +"(for-loop_261" +" id:field_266" +" rest_265)" +" id:field_266)))" +" id:field_0)))))" +" for-loop_261)" +" null" +" lst_260)))))" +"(reverse$1" +" id:field_259))))))))" +"(()" +"(let-values(((s_271)" +"(cdr" +" s_254)))" +"(let-values(((s_272)" +"(if(syntax?$1" +" s_271)" +"(syntax-e$1" +" s_271)" +" s_271)))" +"(if(null?" +" s_272)" +"(values)" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_238))))))" +"(values" +" id:field48_255))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_238))))))" +"(values" +" id:struct46_249" +" id:field47_250))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_238))))))" +"(values" +" struct43_243" +" id:struct44_244" +" id:field45_245))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_238)))))" +"(values" +" #t" +" struct40_239" +" id:struct41_240" +" id:field42_241))))))" +"(begin" +"(parse-struct!" +" id:struct41_219" +" orig-s_0" +" id:field42_220" +" at-phase_0" +" ns_7" +" rp_0" +" protected?_0)" +"(values" +" null" +"(list" +" spec_22))))))" +"(if(unsafe-fx<" +" index_37" +" 8)" +"(let-values()" +"(let-values((()" +"(begin" +"(check-nested_34" +" 'phaseless)" +"(values))))" +"(let-values(((ok?_273" +" all-from50_274" +" mod-path51_275)" +"(let-values(((s_289)" +" disarmed-spec_32))" +"(let-values(((orig-s_290)" +" s_289))" +"(let-values(((all-from50_291" +" mod-path51_292)" +"(let-values(((s_293)" +"(if(syntax?$1" +" s_289)" +"(syntax-e$1" +" s_289)" +" s_289)))" +"(if(pair?" +" s_293)" +"(let-values(((all-from52_294)" +"(let-values(((s_296)" +"(car" +" s_293)))" +" s_296))" +"((mod-path53_295)" +"(let-values(((s_297)" +"(cdr" +" s_293)))" +"(let-values(((s_298)" +"(if(syntax?$1" +" s_297)" +"(syntax-e$1" +" s_297)" +" s_297)))" +"(if(pair?" +" s_298)" +"(let-values(((mod-path54_299)" +"(let-values(((s_300)" +"(car" +" s_298)))" +" s_300))" +"(()" +"(let-values(((s_301)" +"(cdr" +" s_298)))" +"(let-values(((s_302)" +"(if(syntax?$1" +" s_301)" +"(syntax-e$1" +" s_301)" +" s_301)))" +"(if(null?" +" s_302)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_69))))))" +" orig-s_290))))))" "(values" -" mod-path54_0))" +" mod-path54_299))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_69))))))" +" orig-s_290))))))" "(values" -" all-from52_0" -" mod-path53_0))" +" all-from52_294" +" mod-path53_295))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_69)))))" +" orig-s_290)))))" "(values" " #t" -" all-from50_1" -" mod-path51_1))))))" +" all-from50_291" +" mod-path51_292))))))" "(begin" "(parse-all-from" -" mod-path51_0" -" orig-s_62" -" self_30" +" mod-path51_275" +" orig-s_0" +" self_0" " null" -" at-phase_13" -" ns_125" -" rp_1" -" protected?_15" -" ctx_107)" +" at-phase_0" +" ns_7" +" rp_0" +" protected?_0" +" ctx_0)" "(values" " null" "(list" -" spec_0))))))" +" spec_22))))))" "(let-values()" "(let-values((()" "(begin" -"(check-nested_1" +"(check-nested_34" " 'phaseless)" "(values))))" -"(let-values(((ok?_71" -" all-from-except55_0" -" mod-path56_0" -" id57_1)" -"(let-values(((s_103)" -" disarmed-spec_0))" -"(let-values(((orig-s_70)" -" s_103))" -"(let-values(((all-from-except55_1" -" mod-path56_1" -" id57_2)" -"(let-values(((s_105)" +"(let-values(((ok?_303" +" all-from-except55_304" +" mod-path56_305" +" id57_306)" +"(let-values(((s_323)" +" disarmed-spec_32))" +"(let-values(((orig-s_324)" +" s_323))" +"(let-values(((all-from-except55_325" +" mod-path56_326" +" id57_327)" +"(let-values(((s_328)" "(if(syntax?$1" -" s_103)" +" s_323)" "(syntax-e$1" -" s_103)" -" s_103)))" +" s_323)" +" s_323)))" "(if(pair?" -" s_105)" -"(let-values(((all-from-except58_0)" -"(let-values(((s_218)" +" s_328)" +"(let-values(((all-from-except58_329)" +"(let-values(((s_332)" "(car" -" s_105)))" -" s_218))" -"((mod-path59_0" -" id60_1)" -"(let-values(((s_785)" +" s_328)))" +" s_332))" +"((mod-path59_330" +" id60_331)" +"(let-values(((s_333)" "(cdr" -" s_105)))" -"(let-values(((s_786)" +" s_328)))" +"(let-values(((s_334)" "(if(syntax?$1" -" s_785)" +" s_333)" "(syntax-e$1" -" s_785)" -" s_785)))" +" s_333)" +" s_333)))" "(if(pair?" -" s_786)" -"(let-values(((mod-path61_0)" -"(let-values(((s_220)" +" s_334)" +"(let-values(((mod-path61_335)" +"(let-values(((s_337)" "(car" -" s_786)))" -" s_220))" -"((id62_0)" -"(let-values(((s_221)" +" s_334)))" +" s_337))" +"((id62_336)" +"(let-values(((s_338)" "(cdr" -" s_786)))" -"(let-values(((s_326)" +" s_334)))" +"(let-values(((s_339)" "(if(syntax?$1" -" s_221)" +" s_338)" "(syntax-e$1" -" s_221)" -" s_221)))" -"(let-values(((flat-s_51)" +" s_338)" +" s_338)))" +"(let-values(((flat-s_340)" "(to-syntax-list.1" -" s_326)))" +" s_339)))" "(if(not" -" flat-s_51)" +" flat-s_340)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_70))" +" orig-s_324))" "(let-values()" -"(let-values(((id_129)" -"(let-values(((lst_407)" -" flat-s_51))" +"(let-values(((id_341)" +"(let-values(((lst_342)" +" flat-s_340))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_407)))" -"((letrec-values(((for-loop_319)" -"(lambda(id_130" -" lst_408)" +" lst_342)))" +"((letrec-values(((for-loop_343)" +"(lambda(id_0" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_408)" -"(let-values(((s_787)" +" lst_1)" +"(let-values(((s_346)" "(unsafe-car" -" lst_408))" -"((rest_239)" +" lst_1))" +"((rest_347)" "(unsafe-cdr" -" lst_408)))" -"(let-values(((id_131)" -"(let-values(((id_132)" -" id_130))" -"(let-values(((id_133)" +" lst_1)))" +"(let-values(((id_348)" +"(let-values(((id_349)" +" id_0))" +"(let-values(((id_350)" "(let-values()" -"(let-values(((id63_0)" +"(let-values(((id63_351)" "(let-values()" -"(if(let-values(((or-part_402)" +"(if(let-values(((or-part_352)" "(if(syntax?$1" -" s_787)" +" s_346)" "(symbol?" "(syntax-e$1" -" s_787))" +" s_346))" " #f)))" -"(if or-part_402" -" or-part_402" +"(if or-part_352" +" or-part_352" "(symbol?" -" s_787)))" -" s_787" +" s_346)))" +" s_346" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_70" -" s_787)))))" +" orig-s_324" +" s_346)))))" "(cons" -" id63_0" -" id_132)))))" +" id63_351" +" id_349)))))" "(values" -" id_133)))))" +" id_350)))))" "(if(not" " #f)" -"(for-loop_319" -" id_131" -" rest_239)" -" id_131)))" -" id_130)))))" -" for-loop_319)" +"(for-loop_343" +" id_348" +" rest_347)" +" id_348)))" +" id_0)))))" +" for-loop_343)" " null" -" lst_407)))))" +" lst_342)))))" "(reverse$1" -" id_129)))))))))" +" id_341)))))))))" "(values" -" mod-path61_0" -" id62_0))" +" mod-path61_335" +" id62_336))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_70))))))" +" orig-s_324))))))" "(values" -" all-from-except58_0" -" mod-path59_0" -" id60_1))" +" all-from-except58_329" +" mod-path59_330" +" id60_331))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_70)))))" +" orig-s_324)))))" "(values" " #t" -" all-from-except55_1" -" mod-path56_1" -" id57_2))))))" +" all-from-except55_325" +" mod-path56_326" +" id57_327))))))" "(begin" "(parse-all-from" -" mod-path56_0" -" orig-s_62" -" self_30" -" id57_1" -" at-phase_13" -" ns_125" -" rp_1" -" protected?_15" -" ctx_107)" +" mod-path56_305" +" orig-s_0" +" self_0" +" id57_306" +" at-phase_0" +" ns_7" +" rp_0" +" protected?_0" +" ctx_0)" "(values" " null" "(list" -" spec_0))))))))" +" spec_22))))))))" "(if(unsafe-fx<" -" index_7" +" index_37" " 11)" "(if(unsafe-fx<" -" index_7" +" index_37" " 10)" "(let-values()" "(let-values((()" "(begin" -"(check-nested_1" +"(check-nested_34" " 'phaseless)" "(values))))" -"(let-values(((ok?_22" -" all-defined64_0)" -"(let-values(((s_114)" -" disarmed-spec_0))" -"(let-values(((orig-s_71)" -" s_114))" -"(let-values(((all-defined64_1)" -"(let-values(((s_788)" +"(let-values(((ok?_353" +" all-defined64_354)" +"(let-values(((s_365)" +" disarmed-spec_32))" +"(let-values(((orig-s_366)" +" s_365))" +"(let-values(((all-defined64_367)" +"(let-values(((s_368)" "(if(syntax?$1" -" s_114)" +" s_365)" "(syntax-e$1" -" s_114)" -" s_114)))" +" s_365)" +" s_365)))" "(if(pair?" -" s_788)" -"(let-values(((all-defined65_0)" -"(let-values(((s_439)" +" s_368)" +"(let-values(((all-defined65_369)" +"(let-values(((s_370)" "(car" -" s_788)))" -" s_439))" +" s_368)))" +" s_370))" "(()" -"(let-values(((s_224)" +"(let-values(((s_371)" "(cdr" -" s_788)))" -"(let-values(((s_789)" +" s_368)))" +"(let-values(((s_372)" "(if(syntax?$1" -" s_224)" +" s_371)" "(syntax-e$1" -" s_224)" -" s_224)))" +" s_371)" +" s_371)))" "(if(null?" -" s_789)" +" s_372)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_71))))))" +" orig-s_366))))))" "(values" -" all-defined65_0))" +" all-defined65_369))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_71)))))" +" orig-s_366)))))" "(values" " #t" -" all-defined64_1))))))" +" all-defined64_367))))))" "(begin" "(parse-all-from-module" -" self_30" -" spec_0" -" orig-s_62" +" self_0" +" spec_22" +" orig-s_0" " null" " #f" -" at-phase_13" -" ns_125" -" rp_1" -" protected?_15)" +" at-phase_0" +" ns_7" +" rp_0" +" protected?_0)" "(values" " null" "(list" -" spec_0))))))" +" spec_22))))))" "(let-values()" "(let-values((()" "(begin" -"(check-nested_1" +"(check-nested_34" " 'phaseless)" "(values))))" -"(let-values(((ok?_72" -" all-defined-except66_0" -" id67_0)" -"(let-values(((s_228)" -" disarmed-spec_0))" -"(let-values(((orig-s_72)" -" s_228))" -"(let-values(((all-defined-except66_1" -" id67_1)" -"(let-values(((s_790)" +"(let-values(((ok?_373" +" all-defined-except66_374" +" id67_375)" +"(let-values(((s_389)" +" disarmed-spec_32))" +"(let-values(((orig-s_390)" +" s_389))" +"(let-values(((all-defined-except66_391" +" id67_392)" +"(let-values(((s_393)" "(if(syntax?$1" -" s_228)" +" s_389)" "(syntax-e$1" -" s_228)" -" s_228)))" +" s_389)" +" s_389)))" "(if(pair?" -" s_790)" -"(let-values(((all-defined-except68_0)" -"(let-values(((s_791)" +" s_393)" +"(let-values(((all-defined-except68_394)" +"(let-values(((s_396)" "(car" -" s_790)))" -" s_791))" -"((id69_0)" -"(let-values(((s_792)" +" s_393)))" +" s_396))" +"((id69_395)" +"(let-values(((s_397)" "(cdr" -" s_790)))" -"(let-values(((s_464)" +" s_393)))" +"(let-values(((s_398)" "(if(syntax?$1" -" s_792)" +" s_397)" "(syntax-e$1" -" s_792)" -" s_792)))" -"(let-values(((flat-s_52)" +" s_397)" +" s_397)))" +"(let-values(((flat-s_399)" "(to-syntax-list.1" -" s_464)))" +" s_398)))" "(if(not" -" flat-s_52)" +" flat-s_399)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_72))" +" orig-s_390))" "(let-values()" -"(let-values(((id_134)" -"(let-values(((lst_39)" -" flat-s_52))" +"(let-values(((id_400)" +"(let-values(((lst_401)" +" flat-s_399))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_39)))" -"((letrec-values(((for-loop_136)" -"(lambda(id_135" -" lst_409)" +" lst_401)))" +"((letrec-values(((for-loop_402)" +"(lambda(id_0" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_409)" -"(let-values(((s_465)" +" lst_1)" +"(let-values(((s_405)" "(unsafe-car" -" lst_409))" -"((rest_240)" +" lst_1))" +"((rest_406)" "(unsafe-cdr" -" lst_409)))" -"(let-values(((id_136)" -"(let-values(((id_137)" -" id_135))" -"(let-values(((id_138)" +" lst_1)))" +"(let-values(((id_407)" +"(let-values(((id_408)" +" id_0))" +"(let-values(((id_409)" "(let-values()" -"(let-values(((id70_0)" +"(let-values(((id70_410)" "(let-values()" -"(if(let-values(((or-part_289)" +"(if(let-values(((or-part_411)" "(if(syntax?$1" -" s_465)" +" s_405)" "(symbol?" "(syntax-e$1" -" s_465))" +" s_405))" " #f)))" -"(if or-part_289" -" or-part_289" +"(if or-part_411" +" or-part_411" "(symbol?" -" s_465)))" -" s_465" +" s_405)))" +" s_405" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_72" -" s_465)))))" +" orig-s_390" +" s_405)))))" "(cons" -" id70_0" -" id_137)))))" +" id70_410" +" id_408)))))" "(values" -" id_138)))))" +" id_409)))))" "(if(not" " #f)" -"(for-loop_136" -" id_136" -" rest_240)" -" id_136)))" -" id_135)))))" -" for-loop_136)" +"(for-loop_402" +" id_407" +" rest_406)" +" id_407)))" +" id_0)))))" +" for-loop_402)" " null" -" lst_39)))))" +" lst_401)))))" "(reverse$1" -" id_134)))))))))" +" id_400)))))))))" "(values" -" all-defined-except68_0" -" id69_0))" +" all-defined-except68_394" +" id69_395))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_72)))))" +" orig-s_390)))))" "(values" " #t" -" all-defined-except66_1" -" id67_1))))))" +" all-defined-except66_391" +" id67_392))))))" "(begin" "(parse-all-from-module" -" self_30" -" spec_0" -" orig-s_62" -" id67_0" +" self_0" +" spec_22" +" orig-s_0" +" id67_375" " #f" -" at-phase_13" -" ns_125" -" rp_1" -" protected?_15)" +" at-phase_0" +" ns_7" +" rp_0" +" protected?_0)" "(values" " null" "(list" -" spec_0)))))))" +" spec_22)))))))" "(if(unsafe-fx<" -" index_7" +" index_37" " 12)" "(let-values()" "(let-values((()" "(begin" -"(check-nested_1" +"(check-nested_34" " 'phaseless)" "(values))))" -"(let-values(((ok?_73" -" prefix-all-defined71_0" -" id:prefix72_0)" -"(let-values(((s_232)" -" disarmed-spec_0))" -"(let-values(((orig-s_73)" -" s_232))" -"(let-values(((prefix-all-defined71_1" -" id:prefix72_1)" -"(let-values(((s_132)" +"(let-values(((ok?_412" +" prefix-all-defined71_413" +" id:prefix72_414)" +"(let-values(((s_428)" +" disarmed-spec_32))" +"(let-values(((orig-s_429)" +" s_428))" +"(let-values(((prefix-all-defined71_430" +" id:prefix72_431)" +"(let-values(((s_432)" "(if(syntax?$1" -" s_232)" +" s_428)" "(syntax-e$1" -" s_232)" -" s_232)))" +" s_428)" +" s_428)))" "(if(pair?" -" s_132)" -"(let-values(((prefix-all-defined73_0)" -"(let-values(((s_330)" +" s_432)" +"(let-values(((prefix-all-defined73_433)" +"(let-values(((s_435)" "(car" -" s_132)))" -" s_330))" -"((id:prefix74_0)" -"(let-values(((s_133)" +" s_432)))" +" s_435))" +"((id:prefix74_434)" +"(let-values(((s_436)" "(cdr" -" s_132)))" -"(let-values(((s_236)" +" s_432)))" +"(let-values(((s_437)" "(if(syntax?$1" -" s_133)" +" s_436)" "(syntax-e$1" -" s_133)" -" s_133)))" +" s_436)" +" s_436)))" "(if(pair?" -" s_236)" -"(let-values(((id:prefix75_0)" -"(let-values(((s_331)" +" s_437)" +"(let-values(((id:prefix75_438)" +"(let-values(((s_439)" "(car" -" s_236)))" -"(if(let-values(((or-part_291)" +" s_437)))" +"(if(let-values(((or-part_440)" "(if(syntax?$1" -" s_331)" +" s_439)" "(symbol?" "(syntax-e$1" -" s_331))" +" s_439))" " #f)))" -"(if or-part_291" -" or-part_291" +"(if or-part_440" +" or-part_440" "(symbol?" -" s_331)))" -" s_331" +" s_439)))" +" s_439" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_73" -" s_331))))" +" orig-s_429" +" s_439))))" "(()" -"(let-values(((s_134)" +"(let-values(((s_441)" "(cdr" -" s_236)))" -"(let-values(((s_333)" +" s_437)))" +"(let-values(((s_442)" "(if(syntax?$1" -" s_134)" +" s_441)" "(syntax-e$1" -" s_134)" -" s_134)))" +" s_441)" +" s_441)))" "(if(null?" -" s_333)" +" s_442)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_73))))))" +" orig-s_429))))))" "(values" -" id:prefix75_0))" +" id:prefix75_438))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_73))))))" +" orig-s_429))))))" "(values" -" prefix-all-defined73_0" -" id:prefix74_0))" +" prefix-all-defined73_433" +" id:prefix74_434))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_73)))))" +" orig-s_429)))))" "(values" " #t" -" prefix-all-defined71_1" -" id:prefix72_1))))))" +" prefix-all-defined71_430" +" id:prefix72_431))))))" "(begin" "(parse-all-from-module" -" self_30" -" spec_0" -" orig-s_62" +" self_0" +" spec_22" +" orig-s_0" " null" "(syntax-e$1" -" id:prefix72_0)" -" at-phase_13" -" ns_125" -" rp_1" -" protected?_15)" +" id:prefix72_414)" +" at-phase_0" +" ns_7" +" rp_0" +" protected?_0)" "(values" " null" "(list" -" spec_0))))))" +" spec_22))))))" "(if(unsafe-fx<" -" index_7" +" index_37" " 13)" "(let-values()" "(let-values((()" "(begin" -"(check-nested_1" +"(check-nested_34" " 'phaseless)" "(values))))" -"(let-values(((ok?_74" -" prefix-all-defined-except76_0" -" id:prefix77_0" -" id78_0)" -"(let-values(((s_793)" -" disarmed-spec_0))" -"(let-values(((orig-s_74)" -" s_793))" -"(let-values(((prefix-all-defined-except76_1" -" id:prefix77_1" -" id78_1)" -"(let-values(((s_794)" +"(let-values(((ok?_443" +" prefix-all-defined-except76_444" +" id:prefix77_445" +" id78_446)" +"(let-values(((s_463)" +" disarmed-spec_32))" +"(let-values(((orig-s_464)" +" s_463))" +"(let-values(((prefix-all-defined-except76_465" +" id:prefix77_466" +" id78_467)" +"(let-values(((s_468)" "(if(syntax?$1" -" s_793)" +" s_463)" "(syntax-e$1" -" s_793)" -" s_793)))" +" s_463)" +" s_463)))" "(if(pair?" -" s_794)" -"(let-values(((prefix-all-defined-except79_0)" -"(let-values(((s_534)" +" s_468)" +"(let-values(((prefix-all-defined-except79_469)" +"(let-values(((s_472)" "(car" -" s_794)))" -" s_534))" -"((id:prefix80_0" -" id81_0)" -"(let-values(((s_795)" +" s_468)))" +" s_472))" +"((id:prefix80_470" +" id81_471)" +"(let-values(((s_473)" "(cdr" -" s_794)))" -"(let-values(((s_243)" +" s_468)))" +"(let-values(((s_474)" "(if(syntax?$1" -" s_795)" +" s_473)" "(syntax-e$1" -" s_795)" -" s_795)))" +" s_473)" +" s_473)))" "(if(pair?" -" s_243)" -"(let-values(((id:prefix82_0)" -"(let-values(((s_535)" +" s_474)" +"(let-values(((id:prefix82_475)" +"(let-values(((s_477)" "(car" -" s_243)))" -"(if(let-values(((or-part_345)" +" s_474)))" +"(if(let-values(((or-part_478)" "(if(syntax?$1" -" s_535)" +" s_477)" "(symbol?" "(syntax-e$1" -" s_535))" +" s_477))" " #f)))" -"(if or-part_345" -" or-part_345" +"(if or-part_478" +" or-part_478" "(symbol?" -" s_535)))" -" s_535" +" s_477)))" +" s_477" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_74" -" s_535))))" -"((id83_2)" -"(let-values(((s_348)" +" orig-s_464" +" s_477))))" +"((id83_476)" +"(let-values(((s_479)" "(cdr" -" s_243)))" -"(let-values(((s_796)" +" s_474)))" +"(let-values(((s_480)" "(if(syntax?$1" -" s_348)" +" s_479)" "(syntax-e$1" -" s_348)" -" s_348)))" -"(let-values(((flat-s_53)" +" s_479)" +" s_479)))" +"(let-values(((flat-s_481)" "(to-syntax-list.1" -" s_796)))" +" s_480)))" "(if(not" -" flat-s_53)" +" flat-s_481)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_74))" +" orig-s_464))" "(let-values()" -"(let-values(((id_88)" -"(let-values(((lst_410)" -" flat-s_53))" +"(let-values(((id_482)" +"(let-values(((lst_483)" +" flat-s_481))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_410)))" -"((letrec-values(((for-loop_320)" -"(lambda(id_37" -" lst_411)" +" lst_483)))" +"((letrec-values(((for-loop_484)" +"(lambda(id_0" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_411)" -"(let-values(((s_797)" +" lst_1)" +"(let-values(((s_487)" "(unsafe-car" -" lst_411))" -"((rest_241)" +" lst_1))" +"((rest_488)" "(unsafe-cdr" -" lst_411)))" -"(let-values(((id_139)" -"(let-values(((id_140)" -" id_37))" -"(let-values(((id_141)" +" lst_1)))" +"(let-values(((id_489)" +"(let-values(((id_490)" +" id_0))" +"(let-values(((id_491)" "(let-values()" -"(let-values(((id84_1)" +"(let-values(((id84_492)" "(let-values()" -"(if(let-values(((or-part_403)" +"(if(let-values(((or-part_493)" "(if(syntax?$1" -" s_797)" +" s_487)" "(symbol?" "(syntax-e$1" -" s_797))" +" s_487))" " #f)))" -"(if or-part_403" -" or-part_403" +"(if or-part_493" +" or-part_493" "(symbol?" -" s_797)))" -" s_797" +" s_487)))" +" s_487" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_74" -" s_797)))))" +" orig-s_464" +" s_487)))))" "(cons" -" id84_1" -" id_140)))))" +" id84_492" +" id_490)))))" "(values" -" id_141)))))" +" id_491)))))" "(if(not" " #f)" -"(for-loop_320" -" id_139" -" rest_241)" -" id_139)))" -" id_37)))))" -" for-loop_320)" +"(for-loop_484" +" id_489" +" rest_488)" +" id_489)))" +" id_0)))))" +" for-loop_484)" " null" -" lst_410)))))" +" lst_483)))))" "(reverse$1" -" id_88)))))))))" +" id_482)))))))))" "(values" -" id:prefix82_0" -" id83_2))" +" id:prefix82_475" +" id83_476))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_74))))))" +" orig-s_464))))))" "(values" -" prefix-all-defined-except79_0" -" id:prefix80_0" -" id81_0))" +" prefix-all-defined-except79_469" +" id:prefix80_470" +" id81_471))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_74)))))" +" orig-s_464)))))" "(values" " #t" -" prefix-all-defined-except76_1" -" id:prefix77_1" -" id78_1))))))" +" prefix-all-defined-except76_465" +" id:prefix77_466" +" id78_467))))))" "(begin" "(parse-all-from-module" -" self_30" -" spec_0" -" orig-s_62" -" id78_0" +" self_0" +" spec_22" +" orig-s_0" +" id78_446" "(syntax-e$1" -" id:prefix77_0)" -" at-phase_13" -" ns_125" -" rp_1" -" protected?_15)" +" id:prefix77_445)" +" at-phase_0" +" ns_7" +" rp_0" +" protected?_0)" "(values" " null" "(list" -" spec_0))))))" +" spec_22))))))" "(let-values()" -"(let-values(((ok?_75" -" expand85_0" -" id86_1" -" datum87_0)" -"(let-values(((s_798)" -" disarmed-spec_0))" -"(let-values(((orig-s_75)" -" s_798))" -"(let-values(((expand85_1" -" id86_2" -" datum87_1)" -"(let-values(((s_799)" +"(let-values(((ok?_494" +" expand85_495" +" id86_496" +" datum87_497)" +"(let-values(((s_549)" +" disarmed-spec_32))" +"(let-values(((orig-s_550)" +" s_549))" +"(let-values(((expand85_551" +" id86_552" +" datum87_553)" +"(let-values(((s_554)" "(if(syntax?$1" -" s_798)" +" s_549)" "(syntax-e$1" -" s_798)" -" s_798)))" +" s_549)" +" s_549)))" "(if(pair?" -" s_799)" -"(let-values(((expand88_0)" -"(let-values(((s_367)" +" s_554)" +"(let-values(((expand88_555)" +"(let-values(((s_558)" "(car" -" s_799)))" -" s_367))" -"((id89_1" -" datum90_0)" -"(let-values(((s_368)" +" s_554)))" +" s_558))" +"((id89_556" +" datum90_557)" +"(let-values(((s_559)" "(cdr" -" s_799)))" -"(let-values(((s_800)" +" s_554)))" +"(let-values(((s_560)" "(if(syntax?$1" -" s_368)" +" s_559)" "(syntax-e$1" -" s_368)" -" s_368)))" +" s_559)" +" s_559)))" "(if(pair?" -" s_800)" -"(let-values(((id91_1" -" datum92_0)" -"(let-values(((s_370)" +" s_560)" +"(let-values(((id91_561" +" datum92_562)" +"(let-values(((s_563)" "(car" -" s_800)))" -"(let-values(((s_371)" +" s_560)))" +"(let-values(((s_564)" "(if(syntax?$1" -" s_370)" +" s_563)" "(syntax-e$1" -" s_370)" -" s_370)))" +" s_563)" +" s_563)))" "(if(pair?" -" s_371)" -"(let-values(((id93_2)" -"(let-values(((s_373)" +" s_564)" +"(let-values(((id93_565)" +"(let-values(((s_567)" "(car" -" s_371)))" -"(if(let-values(((or-part_404)" +" s_564)))" +"(if(let-values(((or-part_568)" "(if(syntax?$1" -" s_373)" +" s_567)" "(symbol?" "(syntax-e$1" -" s_373))" +" s_567))" " #f)))" -"(if or-part_404" -" or-part_404" +"(if or-part_568" +" or-part_568" "(symbol?" -" s_373)))" -" s_373" +" s_567)))" +" s_567" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_75" -" s_373))))" -"((datum94_0)" -"(let-values(((s_546)" +" orig-s_550" +" s_567))))" +"((datum94_566)" +"(let-values(((s_569)" "(cdr" -" s_371)))" -" s_546)))" +" s_564)))" +" s_569)))" "(values" -" id93_2" -" datum94_0))" +" id93_565" +" datum94_566))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_75)))))" +" orig-s_550)))))" "(()" -"(let-values(((s_547)" +"(let-values(((s_570)" "(cdr" -" s_800)))" -"(let-values(((s_801)" +" s_560)))" +"(let-values(((s_571)" "(if(syntax?$1" -" s_547)" +" s_570)" "(syntax-e$1" -" s_547)" -" s_547)))" +" s_570)" +" s_570)))" "(if(null?" -" s_801)" +" s_571)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_75))))))" +" orig-s_550))))))" "(values" -" id91_1" -" datum92_0))" +" id91_561" +" datum92_562))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_75))))))" +" orig-s_550))))))" "(values" -" expand88_0" -" id89_1" -" datum90_0))" +" expand88_555" +" id89_556" +" datum90_557))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_75)))))" +" orig-s_550)))))" "(values" " #t" -" expand85_1" -" id86_2" -" datum87_1))))))" -"(let-values(((ok?_76" -" expand95_0" -" form96_0)" -"(let-values(((s_802)" -" disarmed-spec_0))" -"(let-values(((orig-s_76)" -" s_802))" -"(let-values(((expand95_1" -" form96_1)" -"(let-values(((s_376)" +" expand85_551" +" id86_552" +" datum87_553))))))" +"(let-values(((ok?_514" +" expand95_515" +" form96_516)" +"(let-values(((s_572)" +" disarmed-spec_32))" +"(let-values(((orig-s_573)" +" s_572))" +"(let-values(((expand95_574" +" form96_575)" +"(let-values(((s_576)" "(if(syntax?$1" -" s_802)" +" s_572)" "(syntax-e$1" -" s_802)" -" s_802)))" +" s_572)" +" s_572)))" "(if(pair?" -" s_376)" -"(let-values(((expand97_0)" -"(let-values(((s_259)" +" s_576)" +"(let-values(((expand97_577)" +"(let-values(((s_579)" "(car" -" s_376)))" -" s_259))" -"((form98_0)" -"(let-values(((s_377)" +" s_576)))" +" s_579))" +"((form98_578)" +"(let-values(((s_580)" "(cdr" -" s_376)))" -"(let-values(((s_378)" +" s_576)))" +"(let-values(((s_581)" "(if(syntax?$1" -" s_377)" +" s_580)" "(syntax-e$1" -" s_377)" -" s_377)))" +" s_580)" +" s_580)))" "(if(pair?" -" s_378)" -"(let-values(((form99_0)" -"(let-values(((s_379)" +" s_581)" +"(let-values(((form99_582)" +"(let-values(((s_583)" "(car" -" s_378)))" -" s_379))" +" s_581)))" +" s_583))" "(()" -"(let-values(((s_380)" +"(let-values(((s_584)" "(cdr" -" s_378)))" -"(let-values(((s_260)" +" s_581)))" +"(let-values(((s_585)" "(if(syntax?$1" -" s_380)" +" s_584)" "(syntax-e$1" -" s_380)" -" s_380)))" +" s_584)" +" s_584)))" "(if(null?" -" s_260)" +" s_585)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_76))))))" +" orig-s_573))))))" "(values" -" form99_0))" +" form99_582))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_76))))))" +" orig-s_573))))))" "(values" -" expand97_0" -" form98_0))" +" expand97_577" +" form98_578))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_76)))))" +" orig-s_573)))))" "(values" " #t" -" expand95_1" -" form96_1))))))" -"(let-values(((exp-spec_0)" -"(let-values(((temp104_3)" -" form96_0)" -"((temp105_4)" -"(let-values(((v_258)" -" ctx_107))" -"(let-values(((the-struct_99)" -" v_258))" +" expand95_574" +" form96_575))))))" +"(let-values(((exp-spec_530)" +"(let-values(((temp104_586)" +" form96_516)" +"((temp105_587)" +"(let-values(((v_588)" +" ctx_0))" +"(let-values(((the-struct_589)" +" v_588))" "(if(expand-context/outer?" -" the-struct_99)" -"(let-values(((def-ctx-scopes106_0)" +" the-struct_589)" +"(let-values(((def-ctx-scopes106_590)" " #f)" -"((inner107_0)" -"(let-values(((the-struct_100)" +"((inner107_591)" +"(let-values(((the-struct_592)" "(root-expand-context/outer-inner" -" v_258)))" +" v_588)))" "(if(expand-context/inner?" -" the-struct_100)" -"(let-values(((stops108_0)" +" the-struct_592)" +"(let-values(((stops108_593)" "(free-id-set" -" at-phase_13" +" at-phase_0" "(list" "(core-id" " 'begin" -" at-phase_13)))))" +" at-phase_0)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_100)" +" the-struct_592)" "(root-expand-context/inner-module-scopes" -" the-struct_100)" +" the-struct_592)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_100)" +" the-struct_592)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_100)" +" the-struct_592)" "(root-expand-context/inner-defined-syms" -" the-struct_100)" +" the-struct_592)" "(root-expand-context/inner-counter" -" the-struct_100)" +" the-struct_592)" "(root-expand-context/inner-lift-key" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-to-parsed?" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-phase" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-namespace" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-just-once?" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-module-begin-k" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-allow-unbound?" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-in-local-expand?" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-keep-#%expression?" -" the-struct_100)" -" stops108_0" +" the-struct_592)" +" stops108_593" "(expand-context/inner-declared-submodule-names" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-lifts" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-lift-envs" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-module-lifts" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-require-lifts" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-to-module-lifts" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-requires+provides" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-observer" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-for-serializable?" -" the-struct_100)" +" the-struct_592)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_100)))" +" the-struct_592)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_100)))))" +" the-struct_592)))))" "(expand-context/outer1.1" -" inner107_0" +" inner107_591" "(root-expand-context/outer-post-expansion" -" the-struct_99)" +" the-struct_589)" "(root-expand-context/outer-use-site-scopes" -" the-struct_99)" +" the-struct_589)" "(root-expand-context/outer-frame-id" -" the-struct_99)" +" the-struct_589)" "(expand-context/outer-context" -" the-struct_99)" +" the-struct_589)" "(expand-context/outer-env" -" the-struct_99)" +" the-struct_589)" "(expand-context/outer-scopes" -" the-struct_99)" -" def-ctx-scopes106_0" +" the-struct_589)" +" def-ctx-scopes106_590" "(expand-context/outer-binding-layer" -" the-struct_99)" +" the-struct_589)" "(expand-context/outer-reference-records" -" the-struct_99)" +" the-struct_589)" "(expand-context/outer-only-immediate?" -" the-struct_99)" +" the-struct_589)" "(expand-context/outer-need-eventually-defined" -" the-struct_99)" +" the-struct_589)" "(expand-context/outer-current-introduction-scopes" -" the-struct_99)" +" the-struct_589)" "(expand-context/outer-current-use-scopes" -" the-struct_99)" +" the-struct_589)" "(expand-context/outer-name" -" the-struct_99)))" +" the-struct_589)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_99))))))" +" the-struct_589))))))" "(expand9.1" " #f" " #f" " #f" -" temp104_3" -" temp105_4))))" +" temp104_586" +" temp105_587))))" "(let-values((()" "(begin" "(if(if(pair?" "(syntax-e$1" -" exp-spec_0))" +" exp-spec_530))" "(if(identifier?" "(car" "(syntax-e$1" -" exp-spec_0)))" +" exp-spec_530)))" "(eq?" " 'begin" "(core-form-sym" -" exp-spec_0" -" at-phase_13))" +" exp-spec_530" +" at-phase_0))" " #f)" " #f)" "(void)" @@ -70121,532 +70531,533 @@ static const char *startup_source = "(raise-syntax-error$1" " provide-form-name" " \"expansion was not a `begin' sequence\"" -" orig-s_62" -" spec_0)))" +" orig-s_0" +" spec_22)))" "(values))))" -"(let-values(((ok?_77" -" begin100_0" -" spec101_0)" -"(let-values(((s_803)" -" exp-spec_0))" -"(let-values(((orig-s_77)" -" s_803))" -"(let-values(((begin100_1" -" spec101_1)" -"(let-values(((s_266)" +"(let-values(((ok?_531" +" begin100_532" +" spec101_533)" +"(let-values(((s_594)" +" exp-spec_530))" +"(let-values(((orig-s_595)" +" s_594))" +"(let-values(((begin100_596" +" spec101_597)" +"(let-values(((s_598)" "(if(syntax?$1" -" s_803)" +" s_594)" "(syntax-e$1" -" s_803)" -" s_803)))" +" s_594)" +" s_594)))" "(if(pair?" -" s_266)" -"(let-values(((begin102_0)" -"(let-values(((s_267)" +" s_598)" +"(let-values(((begin102_599)" +"(let-values(((s_601)" "(car" -" s_266)))" -" s_267))" -"((spec103_0)" -"(let-values(((s_804)" +" s_598)))" +" s_601))" +"((spec103_600)" +"(let-values(((s_602)" "(cdr" -" s_266)))" -"(let-values(((s_268)" +" s_598)))" +"(let-values(((s_603)" "(if(syntax?$1" -" s_804)" +" s_602)" "(syntax-e$1" -" s_804)" -" s_804)))" -"(let-values(((flat-s_54)" +" s_602)" +" s_602)))" +"(let-values(((flat-s_604)" "(to-syntax-list.1" -" s_268)))" +" s_603)))" "(if(not" -" flat-s_54)" +" flat-s_604)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_77))" +" orig-s_595))" "(let-values()" -" flat-s_54)))))))" +" flat-s_604)))))))" "(values" -" begin102_0" -" spec103_0))" +" begin102_599" +" spec103_600))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_77)))))" +" orig-s_595)))))" "(values" " #t" -" begin100_1" -" spec101_1))))))" -"(let-values(((track-stxes_9" -" exp-specs_9)" -"(loop_114" -" spec101_0" -" at-phase_13" -" protected?_15" -" layer_6)))" +" begin100_596" +" spec101_597))))))" +"(let-values(((track-stxes_547" +" exp-specs_548)" +"(loop_8" +" spec101_533" +" at-phase_0" +" protected?_0" +" layer_0)))" "(values" "(list*" -" spec_0" -" exp-spec_0" -" track-stxes_9)" -" exp-specs_9)))))))))))))))))))))" +" spec_22" +" exp-spec_530" +" track-stxes_547)" +" exp-specs_548)))))))))))))))))))))" "(values" "(cons" -" track-stxes1_0" -" track-stxes_3)" +" track-stxes1_30" +" track-stxes_26)" "(cons" -" exp-specs2_0" -" exp-specs_3))))))" +" exp-specs2_31" +" exp-specs_27))))))" "(values" -" track-stxes_4" -" exp-specs_4)))))" +" track-stxes_28" +" exp-specs_29)))))" "(if(not #f)" -"(for-loop_102" -" track-stxes_2" -" exp-specs_2" -" rest_237)" +"(for-loop_18" +" track-stxes_24" +" exp-specs_25" +" rest_23)" "(values" -" track-stxes_2" -" exp-specs_2))))" +" track-stxes_24" +" exp-specs_25))))" "(values" -" track-stxes_1" -" exp-specs_1))))))" -" for-loop_102)" +" track-stxes_0" +" exp-specs_0))))))" +" for-loop_18)" " null" " null" -" lst_81)))))" -"(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" -"(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" -" loop_114)" +" lst_17)))))" +"(values(reverse$1 track-stxes_15)(reverse$1 exp-specs_16)))))" +"(values(apply append track-stxess_13)(apply append exp-specss_14)))))))" +" loop_8)" " specs_0" -" phase_46" +" phase_0" " #f" " 'raw)))))" "(define-values" "(parse-identifier!)" -"(lambda(spec_1 orig-s_78 sym_106 at-phase_14 ns_126 rp_2 protected?_16)" +"(lambda(spec_0 orig-s_0 sym_0 at-phase_0 ns_0 rp_0 protected?_0)" "(begin" -"(let-values(((b_94)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_126)))" +"(let-values(((b_612)(resolve+shift/extra-inspector spec_0 at-phase_0 ns_0)))" "(let-values((()" "(begin" -"(if b_94" +"(if b_612" "(void)" "(let-values()" "(raise-syntax-error$1" " provide-form-name" " \"provided identifier is not defined or required\"" -" orig-s_78" -" spec_1)))" +" orig-s_0" +" spec_0)))" "(values))))" -"(let-values(((as-transformer?_7)(binding-for-transformer? b_94 spec_1 at-phase_14 ns_126)))" -"(let-values(((immed-b_0)" -"(let-values(((spec118_0) spec_1)((at-phase119_0) at-phase_14)((temp120_4) #t))" -"(resolve+shift28.1 #f #f null temp120_4 #f spec118_0 at-phase119_0))))" -"(let-values(((rp109_0) rp_2)" -"((sym110_0) sym_106)" -"((at-phase111_0) at-phase_14)" -"((b112_0) b_94)" -"((immed-b113_0) immed-b_0)" -"((spec114_0) spec_1)" -"((orig-s115_0) orig-s_78)" -"((protected?116_0) protected?_16)" -"((as-transformer?117_0) as-transformer?_7))" +"(let-values(((as-transformer?_613)(binding-for-transformer? b_612 spec_0 at-phase_0 ns_0)))" +"(let-values(((immed-b_614)" +"(let-values(((spec118_616) spec_0)((at-phase119_617) at-phase_0)((temp120_618) #t))" +"(resolve+shift28.1 #f #f null temp120_618 #f spec118_616 at-phase119_617))))" +"(let-values(((rp109_620) rp_0)" +"((sym110_621) sym_0)" +"((at-phase111_622) at-phase_0)" +"((b112_623) b_612)" +"((immed-b113_624) immed-b_614)" +"((spec114_625) spec_0)" +"((orig-s115_626) orig-s_0)" +"((protected?116_627) protected?_0)" +"((as-transformer?117_628) as-transformer?_613))" "(add-provide!117.1" -" protected?116_0" -" as-transformer?117_0" -" rp109_0" -" sym110_0" -" at-phase111_0" -" b112_0" -" immed-b113_0" -" spec114_0" -" orig-s115_0)))))))))" +" protected?116_627" +" as-transformer?117_628" +" rp109_620" +" sym110_621" +" at-phase111_622" +" b112_623" +" immed-b113_624" +" spec114_625" +" orig-s115_626)))))))))" "(define-values" "(parse-struct!)" -"(lambda(id:struct_0 orig-s_79 fields_0 at-phase_15 ns_127 rp_3 protected?_17)" +"(lambda(id:struct_0 orig-s_0 fields_0 at-phase_0 ns_0 rp_0 protected?_0)" "(begin" -"(let-values(((mk_0)" +"(let-values(((mk_636)" "(lambda(fmt_0)" "(begin" " 'mk" -"(let-values(((sym_107)(string->symbol(format fmt_0(syntax-e$1 id:struct_0)))))" -"(datum->syntax$1 id:struct_0 sym_107 id:struct_0))))))" -"(let-values(((mk2_0)" -"(lambda(fmt_1 field-id_0)" +"(let-values(((sym_639)(string->symbol(format fmt_0(syntax-e$1 id:struct_0)))))" +"(datum->syntax$1 id:struct_0 sym_639 id:struct_0))))))" +"(let-values(((mk2_637)" +"(lambda(fmt_0 field-id_0)" "(begin" " 'mk2" -"(let-values(((sym_108)" +"(let-values(((sym_642)" "(string->symbol" -"(format fmt_1(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" -"(datum->syntax$1 id:struct_0 sym_108 id:struct_0))))))" +"(format fmt_0(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" +"(datum->syntax$1 id:struct_0 sym_642 id:struct_0))))))" "(begin" -" (let-values (((lst_412) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_643) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_412)))" -"((letrec-values(((for-loop_321)" -"(lambda(lst_413)" +"(let-values()(check-list lst_643)))" +"((letrec-values(((for-loop_644)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_413)" -"(let-values(((fmt_2)(unsafe-car lst_413))((rest_242)(unsafe-cdr lst_413)))" +"(if(pair? lst_0)" +"(let-values(((fmt_646)(unsafe-car lst_0))((rest_647)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_142)(mk_0 fmt_2)))" +"(let-values(((id_648)(mk_636 fmt_646)))" "(parse-identifier!" -" id_142" -" orig-s_79" -"(syntax-e$1 id_142)" -" at-phase_15" -" ns_127" -" rp_3" -" protected?_17)))" +" id_648" +" orig-s_0" +"(syntax-e$1 id_648)" +" at-phase_0" +" ns_0" +" rp_0" +" protected?_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_321 rest_242)(values))))" +"(if(not #f)(for-loop_644 rest_647)(values))))" "(values))))))" -" for-loop_321)" -" lst_412)))" +" for-loop_644)" +" lst_643)))" "(void)" -"(let-values(((lst_414) fields_0))" +"(let-values(((lst_649) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_414)))" -"((letrec-values(((for-loop_322)" -"(lambda(lst_415)" +"(let-values()(check-list lst_649)))" +"((letrec-values(((for-loop_650)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_415)" -"(let-values(((field_0)(unsafe-car lst_415))((rest_243)(unsafe-cdr lst_415)))" +"(if(pair? lst_0)" +"(let-values(((field_652)(unsafe-car lst_0))((rest_653)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((get-id_0)" -" (mk2_0 \"~a-~a\" field_0)))" -"(let-values(((set-id_0)" -"(mk2_0" +"(let-values(((get-id_654)" +"(mk2_637" +" \"~a-~a\"" +" field_652)))" +"(let-values(((set-id_655)" +"(mk2_637" " \"set-~a-~a!\"" -" field_0)))" +" field_652)))" "(begin" "(parse-identifier!" -" get-id_0" -" orig-s_79" -"(syntax-e$1 get-id_0)" -" at-phase_15" -" ns_127" -" rp_3" -" protected?_17)" +" get-id_654" +" orig-s_0" +"(syntax-e$1 get-id_654)" +" at-phase_0" +" ns_0" +" rp_0" +" protected?_0)" "(parse-identifier!" -" set-id_0" -" orig-s_79" -"(syntax-e$1 set-id_0)" -" at-phase_15" -" ns_127" -" rp_3" -" protected?_17)))))" +" set-id_655" +" orig-s_0" +"(syntax-e$1 set-id_655)" +" at-phase_0" +" ns_0" +" rp_0" +" protected?_0)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_322 rest_243)(values))))" +"(if(not #f)(for-loop_650 rest_653)(values))))" "(values))))))" -" for-loop_322)" -" lst_414)))" +" for-loop_650)" +" lst_649)))" "(void)))))))" "(define-values" "(parse-all-from)" -"(lambda(mod-path-stx_0 orig-s_80 self_31 except-ids_0 at-phase_16 ns_128 rp_4 protected?_18 ctx_108)" +"(lambda(mod-path-stx_0 orig-s_0 self_0 except-ids_0 at-phase_0 ns_0 rp_0 protected?_0 ctx_0)" "(begin" -"(let-values(((mod-path_32)(syntax->datum$1 mod-path-stx_0)))" +"(let-values(((mod-path_665)(syntax->datum$1 mod-path-stx_0)))" "(let-values((()" "(begin" -"(if(1/module-path? mod-path_32)" +"(if(1/module-path? mod-path_665)" "(void)" "(let-values()" -" (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_80 mod-path-stx_0)))" +" (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_0 mod-path-stx_0)))" "(values))))" -"(let-values(((mpi_53)(module-path->mpi/context mod-path_32 ctx_108)))" -"(parse-all-from-module mpi_53 #f orig-s_80 except-ids_0 #f at-phase_16 ns_128 rp_4 protected?_18)))))))" +"(let-values(((mpi_666)(module-path->mpi/context mod-path_665 ctx_0)))" +"(parse-all-from-module mpi_666 #f orig-s_0 except-ids_0 #f at-phase_0 ns_0 rp_0 protected?_0)))))))" "(define-values" "(parse-all-from-module)" -"(lambda(mpi_54 matching-stx_0 orig-s_81 except-ids_1 prefix-sym_0 at-phase_17 ns_129 rp_5 protected?_19)" +"(lambda(mpi_0 matching-stx_0 orig-s_0 except-ids_0 prefix-sym_0 at-phase_0 ns_0 rp_0 protected?_0)" "(begin" -"(let-values(((requireds_2)(extract-module-requires rp_5 mpi_54 at-phase_17)))" -"(let-values(((phase-desc_0)" +"(let-values(((requireds_676)(extract-module-requires rp_0 mpi_0 at-phase_0)))" +"(let-values(((phase-desc_677)" "(lambda()" "(begin" " 'phase-desc" -"(if(zero-phase? at-phase_17)" +"(if(zero-phase? at-phase_0)" " (let-values () \"\")" -"(if(label-phase? at-phase_17)" +"(if(label-phase? at-phase_0)" " (let-values () \" for-label\")" -" (let-values () (format \" for phase ~a\" at-phase_17))))))))" +" (let-values () (format \" for phase ~a\" at-phase_0))))))))" "(let-values((()" "(begin" -"(if requireds_2" +"(if requireds_676" "(void)" "(let-values()" "(raise-syntax-error$1" " provide-form-name" -" (format \"cannot provide from a module without a matching require~a\" (phase-desc_0))" -" orig-s_81" +" (format \"cannot provide from a module without a matching require~a\" (phase-desc_677))" +" orig-s_0" " matching-stx_0)))" "(values))))" -"(let-values(((add-prefix_1)" -"(lambda(sym_109)" +"(let-values(((add-prefix_678)" +"(lambda(sym_0)" "(begin" " 'add-prefix" -" (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_109)) sym_109)))))" -"(let-values(((found_0)(make-hasheq)))" +" (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_0)) sym_0)))))" +"(let-values(((found_679)(make-hasheq)))" "(begin" -"(let-values(((lst_416) requireds_2))" +"(let-values(((lst_681) requireds_676))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_416)))" -"((letrec-values(((for-loop_323)" -"(lambda(lst_417)" +"(let-values()(check-list lst_681)))" +"((letrec-values(((for-loop_682)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_417)" -"(let-values(((i_185)(unsafe-car lst_417))" -"((rest_244)(unsafe-cdr lst_417)))" +"(if(pair? lst_0)" +"(let-values(((i_684)(unsafe-car lst_0))((rest_685)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_143)" -"(required-id i_185)))" -"(let-values(((phase_143)" +"(let-values(((id_686)" +"(required-id i_684)))" +"(let-values(((phase_687)" "(required-phase" -" i_185)))" -"(if(let-values(((or-part_405)" +" i_684)))" +"(if(let-values(((or-part_688)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_143" -" at-phase_17)" +" phase_687" +" at-phase_0)" "(free-identifier=?$1" -" id_143" +" id_686" "(datum->syntax$1" " matching-stx_0" "(syntax-e$1" -" id_143))" -" phase_143" -" phase_143)" +" id_686))" +" phase_687" +" phase_687)" " #f))" " #f)))" -"(if or-part_405" -" or-part_405" -"(let-values(((lst_418)" -" except-ids_1))" +"(if or-part_688" +" or-part_688" +"(let-values(((lst_689)" +" except-ids_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_418)))" -"((letrec-values(((for-loop_324)" -"(lambda(result_127" -" lst_419)" +" lst_689)))" +"((letrec-values(((for-loop_690)" +"(lambda(result_0" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_419)" -"(let-values(((except-id_0)" +" lst_1)" +"(let-values(((except-id_693)" "(unsafe-car" -" lst_419))" -"((rest_245)" +" lst_1))" +"((rest_694)" "(unsafe-cdr" -" lst_419)))" -"(let-values(((result_128)" +" lst_1)))" +"(let-values(((result_695)" "(let-values()" -"(let-values(((result_129)" +"(let-values(((result_697)" "(let-values()" "(let-values()" "(if(free-identifier=?$1" -" id_143" -" except-id_0" -" phase_143" -" phase_143)" +" id_686" +" except-id_693" +" phase_687" +" phase_687)" "(hash-set!" -" found_0" -" except-id_0" +" found_679" +" except-id_693" " #t)" " #f)))))" "(values" -" result_129)))))" +" result_697)))))" "(if(if(not" -"((lambda x_99" -" result_128)" -" except-id_0))" +"((lambda x_0" +" result_695)" +" except-id_693))" "(not" " #f)" " #f)" -"(for-loop_324" -" result_128" -" rest_245)" -" result_128)))" -" result_127)))))" -" for-loop_324)" +"(for-loop_690" +" result_695" +" rest_694)" +" result_695)))" +" result_0)))))" +" for-loop_690)" " #f" -" lst_418)))))" +" lst_689)))))" "(void)" "(let-values()" -"(let-values(((b_95)" +"(let-values(((b_699)" "(resolve+shift/extra-inspector" -" id_143" -" phase_143" -" ns_129)))" -"(let-values(((immed-b_1)" -"(let-values(((id130_0)" -" id_143)" -"((phase131_0)" -" phase_143)" -"((temp132_2)" +" id_686" +" phase_687" +" ns_0)))" +"(let-values(((immed-b_700)" +"(let-values(((id130_702)" +" id_686)" +"((phase131_703)" +" phase_687)" +"((temp132_704)" " #t))" "(resolve+shift28.1" " #f" " #f" " null" -" temp132_2" +" temp132_704" " #f" -" id130_0" -" phase131_0))))" -"(let-values(((rp121_0)" -" rp_5)" -"((temp122_2)" -"(add-prefix_1" +" id130_702" +" phase131_703))))" +"(let-values(((rp121_706)" +" rp_0)" +"((temp122_707)" +"(add-prefix_678" "(syntax-e$1" -" id_143)))" -"((phase123_0)" -" phase_143)" -"((b124_0)" -" b_95)" -"((immed-b125_0)" -" immed-b_1)" -"((id126_1)" -" id_143)" -"((orig-s127_0)" -" orig-s_81)" -"((protected?128_0)" -" protected?_19)" -"((temp129_3)" +" id_686)))" +"((phase123_708)" +" phase_687)" +"((b124_709)" +" b_699)" +"((immed-b125_710)" +" immed-b_700)" +"((id126_711)" +" id_686)" +"((orig-s127_712)" +" orig-s_0)" +"((protected?128_713)" +" protected?_0)" +"((temp129_714)" "(required-as-transformer?" -" i_185)))" +" i_684)))" "(add-provide!117.1" -" protected?128_0" -" temp129_3" -" rp121_0" -" temp122_2" -" phase123_0" -" b124_0" -" immed-b125_0" -" id126_1" -" orig-s127_0)))))))))" +" protected?128_713" +" temp129_714" +" rp121_706" +" temp122_707" +" phase123_708" +" b124_709" +" immed-b125_710" +" id126_711" +" orig-s127_712)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_323 rest_244)(values))))" +"(if(not #f)(for-loop_682 rest_685)(values))))" "(values))))))" -" for-loop_323)" -" lst_416)))" +" for-loop_682)" +" lst_681)))" "(void)" -"(if(=(hash-count found_0)(length except-ids_1))" +"(if(=(hash-count found_679)(length except-ids_0))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_420) except-ids_1))" +"(let-values(((lst_715) except-ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_420)))" -"((letrec-values(((for-loop_325)" -"(lambda(lst_421)" +"(let-values()(check-list lst_715)))" +"((letrec-values(((for-loop_716)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_421)" -"(let-values(((except-id_1)(unsafe-car lst_421))" -"((rest_246)(unsafe-cdr lst_421)))" +"(if(pair? lst_0)" +"(let-values(((except-id_718)(unsafe-car lst_0))" +"((rest_719)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_406)" +"(if(let-values(((or-part_720)" "(hash-ref" -" found_0" -" except-id_1" +" found_679" +" except-id_718" " #f)))" -"(if or-part_406" -" or-part_406" -"(let-values(((lst_422)" -" requireds_2))" +"(if or-part_720" +" or-part_720" +"(let-values(((lst_721)" +" requireds_676))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_422)))" -"((letrec-values(((for-loop_326)" -"(lambda(result_130" -" lst_423)" +" lst_721)))" +"((letrec-values(((for-loop_722)" +"(lambda(result_0" +" lst_1)" "(begin" " 'for-loop" "(if(pair?" -" lst_423)" -"(let-values(((i_186)" +" lst_1)" +"(let-values(((i_725)" "(unsafe-car" -" lst_423))" -"((rest_247)" +" lst_1))" +"((rest_726)" "(unsafe-cdr" -" lst_423)))" -"(let-values(((result_131)" +" lst_1)))" +"(let-values(((result_727)" "(let-values()" -"(let-values(((result_132)" +"(let-values(((result_729)" "(let-values()" "(let-values()" -"(let-values(((id_144)" +"(let-values(((id_730)" "(required-id" -" i_186)))" -"(let-values(((phase_144)" +" i_725)))" +"(let-values(((phase_731)" "(required-phase" -" i_186)))" +" i_725)))" "(free-identifier=?$1" -" id_144" -" except-id_1" -" phase_144" -" phase_144)))))))" +" id_730" +" except-id_718" +" phase_731" +" phase_731)))))))" "(values" -" result_132)))))" +" result_729)))))" "(if(if(not" -"((lambda x_100" -" result_131)" -" i_186))" +"((lambda x_0" +" result_727)" +" i_725))" "(not" " #f)" " #f)" -"(for-loop_326" -" result_131" -" rest_247)" -" result_131)))" -" result_130)))))" -" for-loop_326)" +"(for-loop_722" +" result_727" +" rest_726)" +" result_727)))" +" result_0)))))" +" for-loop_722)" " #f" -" lst_422)))))" +" lst_721)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -70655,475 +71066,473 @@ static const char *startup_source = "(if matching-stx_0" " \"excluded identifier was not defined or required in the module~a\"" " \"excluded identifier was not required from the specified module~a\")" -"(phase-desc_0))" -" orig-s_81" -" except-id_1))))" +"(phase-desc_677))" +" orig-s_0" +" except-id_718))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_325 rest_246)(values))))" +"(if(not #f)(for-loop_716 rest_719)(values))))" "(values))))))" -" for-loop_325)" -" lst_420)))" +" for-loop_716)" +" lst_715)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" -"(lambda(bodys_13 self-mpi_6)" +"(lambda(bodys_0 self-mpi_0)" "(begin" -"(letrec-values(((check-body_0)" -"(lambda(bodys_14)" +"(letrec-values(((check-body_3)" +"(lambda(bodys_1)" "(begin" " 'check-body" "(begin" -"(let-values(((lst_424) bodys_14))" +"(let-values(((lst_8) bodys_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_424)))" -"((letrec-values(((for-loop_327)" -"(lambda(lst_85)" +"(let-values()(check-list lst_8)))" +"((letrec-values(((for-loop_9)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((body_19)(unsafe-car lst_85))" -"((rest_40)(unsafe-cdr lst_85)))" +"(if(pair? lst_0)" +"(let-values(((body_11)(unsafe-car lst_0))" +"((rest_12)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((p_37)" +"(let-values(((p_13)" "(if(expanded+parsed?" -" body_19)" +" body_11)" "(expanded+parsed-parsed" -" body_19)" -" body_19)))" +" body_11)" +" body_11)))" "(if(parsed-define-values?" -" p_37)" +" p_13)" "(let-values()" -"(check-expr_0" +"(check-expr_4" "(parsed-define-values-rhs" -" p_37)" +" p_13)" "(length" "(parsed-define-values-syms" -" p_37))" -" p_37))" -"(if(let-values(((or-part_217)" +" p_13))" +" p_13))" +"(if(let-values(((or-part_14)" "(parsed-#%declare?" -" p_37)))" -"(if or-part_217" -" or-part_217" -"(let-values(((or-part_3)" +" p_13)))" +"(if or-part_14" +" or-part_14" +"(let-values(((or-part_15)" "(parsed-module?" -" p_37)))" -"(if or-part_3" -" or-part_3" +" p_13)))" +"(if or-part_15" +" or-part_15" "(syntax?$1" -" p_37)))))" +" p_13)))))" "(let-values()" "(void))" "(let-values()" "(disallow" -" p_37))))))" +" p_13))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_327 rest_40)(values))))" +"(if(not #f)(for-loop_9 rest_12)(values))))" "(values))))))" -" for-loop_327)" -" lst_424)))" +" for-loop_9)" +" lst_8)))" "(void)))))" -"((check-expr_0)" -"(lambda(e_90 num-results_0 enclosing_15)" +"((check-expr_4)" +"(lambda(e_0 num-results_0 enclosing_0)" "(begin" " 'check-expr" -"(if(parsed-lambda? e_90)" +"(if(parsed-lambda? e_0)" "(let-values()" -"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_90)))" -"(if(parsed-case-lambda? e_90)" +"(begin(check-count 1 num-results_0 enclosing_0)(check-no-disallowed-expr_5 e_0)))" +"(if(parsed-case-lambda? e_0)" "(let-values()" -"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_90)))" -"(if(parsed-quote? e_90)" +"(begin(check-count 1 num-results_0 enclosing_0)(check-no-disallowed-expr_5 e_0)))" +"(if(parsed-quote? e_0)" "(let-values()" "(begin" -"(check-datum(parsed-quote-datum e_90) e_90)" -"(check-count 1 num-results_0 enclosing_15)))" -"(if(parsed-app? e_90)" +"(check-datum(parsed-quote-datum e_0) e_0)" +"(check-count 1 num-results_0 enclosing_0)))" +"(if(parsed-app? e_0)" "(let-values()" -"(let-values(((rands_1)(parsed-app-rands e_90)))" +"(let-values(((rands_19)(parsed-app-rands e_0)))" "(begin" -"(let-values(((lst_82) rands_1))" +"(let-values(((lst_20) rands_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_82)))" -"((letrec-values(((for-loop_328)" -"(lambda(lst_86)" +"(let-values()(check-list lst_20)))" +"((letrec-values(((for-loop_21)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((rand_0)(unsafe-car lst_86))" -"((rest_248)(unsafe-cdr lst_86)))" +"(if(pair? lst_0)" +"(let-values(((rand_23)(unsafe-car lst_0))" +"((rest_24)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(check-expr_0" -" rand_0" +"(check-expr_4" +" rand_23" " 1" -" e_90))" +" e_0))" "(values)))))" "(values)))))" -"(if(not #f)" -"(for-loop_328 rest_248)" -"(values))))" +"(if(not #f)(for-loop_21 rest_24)(values))))" "(values))))))" -" for-loop_328)" -" lst_82)))" +" for-loop_21)" +" lst_20)))" "(void)" -"(let-values(((tmp_63)(cross-phase-primitive-name(parsed-app-rator e_90))))" -"(if(if(equal? tmp_63 'cons) #t(equal? tmp_63 'list))" -"(let-values()(check-count 1 num-results_0 enclosing_15))" -"(if(equal? tmp_63 'make-struct-type)" -"(let-values()(check-count 5 num-results_0 enclosing_15))" -"(if(equal? tmp_63 'make-struct-type-property)" -"(let-values()(check-count 3 num-results_0 enclosing_15))" -"(if(equal? tmp_63 'gensym)" +"(let-values(((tmp_25)(cross-phase-primitive-name(parsed-app-rator e_0))))" +"(if(if(equal? tmp_25 'cons) #t(equal? tmp_25 'list))" +"(let-values()(check-count 1 num-results_0 enclosing_0))" +"(if(equal? tmp_25 'make-struct-type)" +"(let-values()(check-count 5 num-results_0 enclosing_0))" +"(if(equal? tmp_25 'make-struct-type-property)" +"(let-values()(check-count 3 num-results_0 enclosing_0))" +"(if(equal? tmp_25 'gensym)" "(let-values()" -"(if(let-values(((or-part_91)(= 0(length rands_1))))" -"(if or-part_91" -" or-part_91" -"(if(= 1(length rands_1))" -"(quoted-string?(car rands_1))" +"(if(let-values(((or-part_26)(= 0(length rands_19))))" +"(if or-part_26" +" or-part_26" +"(if(= 1(length rands_19))" +"(quoted-string?(car rands_19))" " #f)))" "(void)" -"(let-values()(disallow e_90))))" -"(if(equal? tmp_63 'string->uninterned-symbol)" +"(let-values()(disallow e_0))))" +"(if(equal? tmp_25 'string->uninterned-symbol)" "(let-values()" -"(if(if(= 1(length rands_1))(quoted-string?(car rands_1)) #f)" +"(if(if(= 1(length rands_19))" +"(quoted-string?(car rands_19))" +" #f)" "(void)" -"(let-values()(disallow e_90))))" -"(let-values()(disallow e_90)))))))))))" -"(let-values()(check-no-disallowed-expr_0 e_90)))))))))" -"((check-no-disallowed-expr_0)" -"(lambda(e_91)" +"(let-values()(disallow e_0))))" +"(let-values()(disallow e_0)))))))))))" +"(let-values()(check-no-disallowed-expr_5 e_0)))))))))" +"((check-no-disallowed-expr_5)" +"(lambda(e_0)" "(begin" " 'check-no-disallowed-expr" -"(if(parsed-lambda? e_91)" -"(let-values()(check-body-no-disallowed-expr_0(parsed-lambda-body e_91)))" -"(if(parsed-case-lambda? e_91)" +"(if(parsed-lambda? e_0)" +"(let-values()(check-body-no-disallowed-expr_6(parsed-lambda-body e_0)))" +"(if(parsed-case-lambda? e_0)" "(let-values()" "(begin" -"(let-values(((lst_269)(parsed-case-lambda-clauses e_91)))" +"(let-values(((lst_28)(parsed-case-lambda-clauses e_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_269)))" -"((letrec-values(((for-loop_243)" -"(lambda(lst_425)" +"(let-values()(check-list lst_28)))" +"((letrec-values(((for-loop_29)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_425)" -"(let-values(((clause_5)(unsafe-car lst_425))" -"((rest_249)(unsafe-cdr lst_425)))" +"(if(pair? lst_0)" +"(let-values(((clause_31)(unsafe-car lst_0))" +"((rest_32)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(check-body-no-disallowed-expr_0" -"(cadr clause_5)))" +"(check-body-no-disallowed-expr_6" +"(cadr clause_31)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_243 rest_249)(values))))" +"(if(not #f)(for-loop_29 rest_32)(values))))" "(values))))))" -" for-loop_243)" -" lst_269)))" +" for-loop_29)" +" lst_28)))" "(void)))" -"(if(parsed-app? e_91)" +"(if(parsed-app? e_0)" "(let-values()" "(begin" -"(check-no-disallowed-expr_0(parsed-app-rator e_91))" -"(let-values(((lst_220)(parsed-app-rands e_91)))" +"(check-no-disallowed-expr_5(parsed-app-rator e_0))" +"(let-values(((lst_33)(parsed-app-rands e_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_220)))" -"((letrec-values(((for-loop_109)" -"(lambda(lst_163)" +"(let-values()(check-list lst_33)))" +"((letrec-values(((for-loop_34)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_163)" -"(let-values(((e_92)(unsafe-car lst_163))" -"((rest_84)(unsafe-cdr lst_163)))" +"(if(pair? lst_0)" +"(let-values(((e_36)(unsafe-car lst_0))" +"((rest_37)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(check-no-disallowed-expr_0" -" e_92))" +"(check-no-disallowed-expr_5" +" e_36))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_109 rest_84)(values))))" +"(if(not #f)(for-loop_34 rest_37)(values))))" "(values))))))" -" for-loop_109)" -" lst_220)))" +" for-loop_34)" +" lst_33)))" "(void)))" -"(if(parsed-if? e_91)" +"(if(parsed-if? e_0)" "(let-values()" "(begin" -"(check-no-disallowed-expr_0(parsed-if-tst e_91))" -"(check-no-disallowed-expr_0(parsed-if-thn e_91))" -"(check-no-disallowed-expr_0(parsed-if-els e_91))))" -"(if(parsed-set!? e_91)" +"(check-no-disallowed-expr_5(parsed-if-tst e_0))" +"(check-no-disallowed-expr_5(parsed-if-thn e_0))" +"(check-no-disallowed-expr_5(parsed-if-els e_0))))" +"(if(parsed-set!? e_0)" "(let-values()" -"(let-values(((id_4)(parsed-set!-id e_91)))" -"(let-values(((normal-b_1)(parsed-id-binding id_4)))" +"(let-values(((id_38)(parsed-set!-id e_0)))" +"(let-values(((normal-b_39)(parsed-id-binding id_38)))" "(begin" -"(if(let-values(((or-part_83)(not normal-b_1)))" -"(if or-part_83" -" or-part_83" -"(let-values(((or-part_311)(parsed-top-id? id_4)))" -"(if or-part_311" -" or-part_311" -"(if(not(symbol? normal-b_1))" -"(eq?(module-binding-module normal-b_1) self-mpi_6)" +"(if(let-values(((or-part_40)(not normal-b_39)))" +"(if or-part_40" +" or-part_40" +"(let-values(((or-part_41)(parsed-top-id? id_38)))" +"(if or-part_41" +" or-part_41" +"(if(not(symbol? normal-b_39))" +"(eq?(module-binding-module normal-b_39) self-mpi_0)" " #f)))))" -"(let-values()(disallow e_91))" +"(let-values()(disallow e_0))" "(void))" -"(check-no-disallowed-expr_0(parsed-set!-rhs e_91))))))" -"(if(parsed-with-continuation-mark? e_91)" +"(check-no-disallowed-expr_5(parsed-set!-rhs e_0))))))" +"(if(parsed-with-continuation-mark? e_0)" "(let-values()" "(begin" -"(check-no-disallowed-expr_0(parsed-with-continuation-mark-key e_91))" -"(check-no-disallowed-expr_0(parsed-with-continuation-mark-val e_91))" -"(check-no-disallowed-expr_0(parsed-with-continuation-mark-body e_91))))" -"(if(parsed-begin? e_91)" -"(let-values()(check-body-no-disallowed-expr_0(parsed-begin-body e_91)))" -"(if(parsed-begin0? e_91)" -"(let-values()(check-body-no-disallowed-expr_0(parsed-begin0-body e_91)))" -"(if(parsed-let_-values? e_91)" +"(check-no-disallowed-expr_5(parsed-with-continuation-mark-key e_0))" +"(check-no-disallowed-expr_5(parsed-with-continuation-mark-val e_0))" +"(check-no-disallowed-expr_5(parsed-with-continuation-mark-body e_0))))" +"(if(parsed-begin? e_0)" +"(let-values()(check-body-no-disallowed-expr_6(parsed-begin-body e_0)))" +"(if(parsed-begin0? e_0)" +"(let-values()(check-body-no-disallowed-expr_6(parsed-begin0-body e_0)))" +"(if(parsed-let_-values? e_0)" "(let-values()" "(begin" -"(let-values(((lst_23)(parsed-let_-values-clauses e_91)))" +"(let-values(((lst_42)(parsed-let_-values-clauses e_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_23)))" -"((letrec-values(((for-loop_192)" -"(lambda(lst_90)" +"(let-values()(check-list lst_42)))" +"((letrec-values(((for-loop_43)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_90)" -"(let-values(((clause_6)" -"(unsafe-car lst_90))" -"((rest_143)" -"(unsafe-cdr lst_90)))" +"(if(pair? lst_0)" +"(let-values(((clause_45)" +"(unsafe-car lst_0))" +"((rest_46)" +"(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(check-no-disallowed-expr_0" +"(check-no-disallowed-expr_5" "(cadr" -" clause_6)))" +" clause_45)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_192 rest_143)" +"(for-loop_43 rest_46)" "(values))))" "(values))))))" -" for-loop_192)" -" lst_23)))" +" for-loop_43)" +" lst_42)))" "(void)" -"(check-body-no-disallowed-expr_0(parsed-let_-values-body e_91))))" -"(if(let-values(((or-part_358)(parsed-quote-syntax? e_91)))" -"(if or-part_358 or-part_358(parsed-#%variable-reference? e_91)))" -"(let-values()(disallow e_91))" +"(check-body-no-disallowed-expr_6(parsed-let_-values-body e_0))))" +"(if(let-values(((or-part_47)(parsed-quote-syntax? e_0)))" +"(if or-part_47 or-part_47(parsed-#%variable-reference? e_0)))" +"(let-values()(disallow e_0))" "(let-values()(void)))))))))))))))" -"((check-body-no-disallowed-expr_0)" -"(lambda(l_48)" +"((check-body-no-disallowed-expr_6)" +"(lambda(l_0)" "(begin" " 'check-body-no-disallowed-expr" "(begin" -"(let-values(((lst_77) l_48))" +"(let-values(((lst_49) l_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_329)" -"(lambda(lst_58)" +"(let-values()(check-list lst_49)))" +"((letrec-values(((for-loop_50)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_58)" -"(let-values(((e_81)(unsafe-car lst_58))" -"((rest_194)(unsafe-cdr lst_58)))" +"(if(pair? lst_0)" +"(let-values(((e_52)(unsafe-car lst_0))" +"((rest_53)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(check-no-disallowed-expr_0" -" e_81))" +"(check-no-disallowed-expr_5" +" e_52))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_329 rest_194)(values))))" +"(if(not #f)(for-loop_50 rest_53)(values))))" "(values))))))" -" for-loop_329)" -" lst_77)))" +" for-loop_50)" +" lst_49)))" "(void))))))" -"(check-body_0 bodys_13)))))" +"(check-body_3 bodys_0)))))" "(define-values" "(check-count)" -"(lambda(is-num_0 expected-num_0 enclosing_16)" -"(begin(if(= is-num_0 expected-num_0)(void)(let-values()(disallow enclosing_16))))))" +"(lambda(is-num_0 expected-num_0 enclosing_0)" +"(begin(if(= is-num_0 expected-num_0)(void)(let-values()(disallow enclosing_0))))))" "(define-values" "(check-datum)" -"(lambda(d_38 e_10)" +"(lambda(d_0 e_0)" "(begin" -"(if(let-values(((or-part_159)(number? d_38)))" -"(if or-part_159" -" or-part_159" -"(let-values(((or-part_164)(boolean? d_38)))" -"(if or-part_164" -" or-part_164" -"(let-values(((or-part_21)(symbol? d_38)))" -"(if or-part_21" -" or-part_21" -"(let-values(((or-part_165)(string? d_38)))" -"(if or-part_165" -" or-part_165" -"(let-values(((or-part_259)(bytes? d_38)))(if or-part_259 or-part_259(null? d_38)))))))))))" +"(if(let-values(((or-part_59)(number? d_0)))" +"(if or-part_59" +" or-part_59" +"(let-values(((or-part_60)(boolean? d_0)))" +"(if or-part_60" +" or-part_60" +"(let-values(((or-part_61)(symbol? d_0)))" +"(if or-part_61" +" or-part_61" +"(let-values(((or-part_62)(string? d_0)))" +"(if or-part_62" +" or-part_62" +"(let-values(((or-part_63)(bytes? d_0)))(if or-part_63 or-part_63(null? d_0)))))))))))" "(let-values()(void))" -"(let-values()(disallow e_10))))))" -"(define-values" -"(quoted-string?)" -"(lambda(e_93)(begin(if(parsed-quote? e_93)(string?(parsed-quote-datum e_93)) #f))))" +"(let-values()(disallow e_0))))))" +"(define-values(quoted-string?)(lambda(e_0)(begin(if(parsed-quote? e_0)(string?(parsed-quote-datum e_0)) #f))))" "(define-values" "(cross-phase-primitive-name)" -"(lambda(id_145)" +"(lambda(id_0)" "(begin" -"(if(parsed-id? id_145)" +"(if(parsed-id? id_0)" "(let-values()" -"(let-values(((b_87)(parsed-id-binding id_145)))" -"(if(module-binding? b_87)" -"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_87)))" -"(module-binding-sym b_87)" +"(let-values(((b_66)(parsed-id-binding id_0)))" +"(if(module-binding? b_66)" +"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_66)))" +"(module-binding-sym b_66)" " #f)" " #f)))" "(let-values() #f)))))" "(define-values" "(disallow)" -"(lambda(body_20)" +"(lambda(body_0)" "(begin" "(raise-syntax-error$1" " 'module" " \"not allowed in a cross-phase persistent module\"" -"(if(parsed? body_20)(datum->syntax$1 #f body_20(parsed-s body_20)) body_20)))))" +"(if(parsed? body_0)(datum->syntax$1 #f body_0(parsed-s body_0)) body_0)))))" "(void" "(add-core-form!*" " 'module" -"(lambda(s_43 ctx_109)" +"(lambda(s_0 ctx_0)" "(begin" -"(if(eq?(expand-context-context ctx_109) 'top-level)" +"(if(eq?(expand-context-context ctx_0) 'top-level)" "(void)" "(let-values()" "(begin" -"(let-values(((obs_125)(expand-context-observer ctx_109)))" -"(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"allowed only at the top level\" s_43))))" +"(let-values(((obs_53)(expand-context-observer ctx_0)))" +"(if obs_53(let-values()(let-values()(call-expand-observe obs_53 'prim-module)))(void)))" +" (raise-syntax-error$1 #f \"allowed only at the top level\" s_0))))" "(let-values()" -"(let-values(((s219_0) s_43)((ctx220_0) ctx_109)((temp221_4) #f))" -"(expand-module16.1 #f #f #f #f unsafe-undefined #f s219_0 ctx220_0 temp221_4)))))))" +"(let-values(((s219_54) s_0)((ctx220_55) ctx_0)((temp221_56) #f))" +"(expand-module16.1 #f #f #f #f unsafe-undefined #f s219_54 ctx220_55 temp221_56)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_307 ctx_110)" +"(lambda(s_0 ctx_0)" "(begin" -"(let-values(((obs_126)(expand-context-observer ctx_110)))" -"(if obs_126(let-values()(let-values()(call-expand-observe obs_126 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_307)))))" +"(let-values(((obs_59)(expand-context-observer ctx_0)))" +"(if obs_59(let-values()(let-values()(call-expand-observe obs_59 'prim-module)))(void)))" +" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_0)))))" "(void" "(add-core-form!*" " '#%module-begin" -"(lambda(s_91 ctx_111)" +"(lambda(s_0 ctx_0)" "(begin" -"(let-values(((obs_127)(expand-context-observer ctx_111)))" -"(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-module-begin)))(void)))" -"(if(eq?(expand-context-context ctx_111) 'module-begin)" +"(let-values(((obs_62)(expand-context-observer ctx_0)))" +"(if obs_62(let-values()(let-values()(call-expand-observe obs_62 'prim-module-begin)))(void)))" +"(if(eq?(expand-context-context ctx_0) 'module-begin)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_91)))" -"(if(expand-context-module-begin-k ctx_111)" +" (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_0)))" +"(if(expand-context-module-begin-k ctx_0)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_91)))" -"((expand-context-module-begin-k ctx_111)" -" s_91" -"(let-values(((v_259) ctx_111))" -"(let-values(((the-struct_101) v_259))" -"(if(expand-context/outer? the-struct_101)" -"(let-values(((inner222_0)" -"(let-values(((the-struct_102)(root-expand-context/outer-inner v_259)))" -"(if(expand-context/inner? the-struct_102)" -"(let-values(((module-begin-k223_0) #f))" +" (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_0)))" +"((expand-context-module-begin-k ctx_0)" +" s_0" +"(let-values(((v_63) ctx_0))" +"(let-values(((the-struct_64) v_63))" +"(if(expand-context/outer? the-struct_64)" +"(let-values(((inner222_65)" +"(let-values(((the-struct_66)(root-expand-context/outer-inner v_63)))" +"(if(expand-context/inner? the-struct_66)" +"(let-values(((module-begin-k223_67) #f))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_102)" -"(root-expand-context/inner-module-scopes the-struct_102)" -"(root-expand-context/inner-top-level-bind-scope the-struct_102)" -"(root-expand-context/inner-all-scopes-stx the-struct_102)" -"(root-expand-context/inner-defined-syms the-struct_102)" -"(root-expand-context/inner-counter the-struct_102)" -"(root-expand-context/inner-lift-key the-struct_102)" -"(expand-context/inner-to-parsed? the-struct_102)" -"(expand-context/inner-phase the-struct_102)" -"(expand-context/inner-namespace the-struct_102)" -"(expand-context/inner-just-once? the-struct_102)" -" module-begin-k223_0" -"(expand-context/inner-allow-unbound? the-struct_102)" -"(expand-context/inner-in-local-expand? the-struct_102)" -"(expand-context/inner-keep-#%expression? the-struct_102)" -"(expand-context/inner-stops the-struct_102)" -"(expand-context/inner-declared-submodule-names the-struct_102)" -"(expand-context/inner-lifts the-struct_102)" -"(expand-context/inner-lift-envs the-struct_102)" -"(expand-context/inner-module-lifts the-struct_102)" -"(expand-context/inner-require-lifts the-struct_102)" -"(expand-context/inner-to-module-lifts the-struct_102)" -"(expand-context/inner-requires+provides the-struct_102)" -"(expand-context/inner-observer the-struct_102)" -"(expand-context/inner-for-serializable? the-struct_102)" -"(expand-context/inner-should-not-encounter-macros? the-struct_102)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_102)))))" +"(root-expand-context/inner-self-mpi the-struct_66)" +"(root-expand-context/inner-module-scopes the-struct_66)" +"(root-expand-context/inner-top-level-bind-scope the-struct_66)" +"(root-expand-context/inner-all-scopes-stx the-struct_66)" +"(root-expand-context/inner-defined-syms the-struct_66)" +"(root-expand-context/inner-counter the-struct_66)" +"(root-expand-context/inner-lift-key the-struct_66)" +"(expand-context/inner-to-parsed? the-struct_66)" +"(expand-context/inner-phase the-struct_66)" +"(expand-context/inner-namespace the-struct_66)" +"(expand-context/inner-just-once? the-struct_66)" +" module-begin-k223_67" +"(expand-context/inner-allow-unbound? the-struct_66)" +"(expand-context/inner-in-local-expand? the-struct_66)" +"(expand-context/inner-keep-#%expression? the-struct_66)" +"(expand-context/inner-stops the-struct_66)" +"(expand-context/inner-declared-submodule-names the-struct_66)" +"(expand-context/inner-lifts the-struct_66)" +"(expand-context/inner-lift-envs the-struct_66)" +"(expand-context/inner-module-lifts the-struct_66)" +"(expand-context/inner-require-lifts the-struct_66)" +"(expand-context/inner-to-module-lifts the-struct_66)" +"(expand-context/inner-requires+provides the-struct_66)" +"(expand-context/inner-observer the-struct_66)" +"(expand-context/inner-for-serializable? the-struct_66)" +"(expand-context/inner-should-not-encounter-macros? the-struct_66)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_66)))))" "(expand-context/outer1.1" -" inner222_0" -"(root-expand-context/outer-post-expansion the-struct_101)" -"(root-expand-context/outer-use-site-scopes the-struct_101)" -"(root-expand-context/outer-frame-id the-struct_101)" -"(expand-context/outer-context the-struct_101)" -"(expand-context/outer-env the-struct_101)" -"(expand-context/outer-scopes the-struct_101)" -"(expand-context/outer-def-ctx-scopes the-struct_101)" -"(expand-context/outer-binding-layer the-struct_101)" -"(expand-context/outer-reference-records the-struct_101)" -"(expand-context/outer-only-immediate? the-struct_101)" -"(expand-context/outer-need-eventually-defined the-struct_101)" -"(expand-context/outer-current-introduction-scopes the-struct_101)" -"(expand-context/outer-current-use-scopes the-struct_101)" -"(expand-context/outer-name the-struct_101)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_101)))))))))" +" inner222_65" +"(root-expand-context/outer-post-expansion the-struct_64)" +"(root-expand-context/outer-use-site-scopes the-struct_64)" +"(root-expand-context/outer-frame-id the-struct_64)" +"(expand-context/outer-context the-struct_64)" +"(expand-context/outer-env the-struct_64)" +"(expand-context/outer-scopes the-struct_64)" +"(expand-context/outer-def-ctx-scopes the-struct_64)" +"(expand-context/outer-binding-layer the-struct_64)" +"(expand-context/outer-reference-records the-struct_64)" +"(expand-context/outer-only-immediate? the-struct_64)" +"(expand-context/outer-need-eventually-defined the-struct_64)" +"(expand-context/outer-current-introduction-scopes the-struct_64)" +"(expand-context/outer-current-use-scopes the-struct_64)" +"(expand-context/outer-name the-struct_64)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_64)))))))))" "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_805 ctx_112)" +"(lambda(s_0 ctx_0)" "(begin" -"(let-values(((obs_128)(expand-context-observer ctx_112)))" -"(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_805)))))" +"(let-values(((obs_70)(expand-context-observer ctx_0)))" +"(if obs_70(let-values()(let-values()(call-expand-observe obs_70 'prim-declare)))(void)))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_0)))))" "(define-values" "(expand-module16.1)" "(lambda(always-produce-compiled?1_0" @@ -71137,1846 +71546,1856 @@ static const char *startup_source = " enclosing-self15_0)" "(begin" " 'expand-module16" -"(let-values(((s_450) s13_0))" -"(let-values(((init-ctx_0) init-ctx14_0))" -"(let-values(((enclosing-self_1) enclosing-self15_0))" -"(let-values(((always-produce-compiled?_0) always-produce-compiled?1_0))" -"(let-values(((keep-enclosing-scope-at-phase_0) keep-enclosing-scope-at-phase2_0))" -"(let-values(((enclosing-is-cross-phase-persistent?_0) enclosing-is-cross-phase-persistent?3_0))" -"(let-values(((enclosing-r+p_1) enclosing-requires+provides4_0))" -"(let-values(((mpis-for-enclosing-reset_0) mpis-for-enclosing-reset5_0))" -"(let-values(((modules-being-compiled_3)" +"(let-values(((s_80) s13_0))" +"(let-values(((init-ctx_81) init-ctx14_0))" +"(let-values(((enclosing-self_82) enclosing-self15_0))" +"(let-values(((always-produce-compiled?_83) always-produce-compiled?1_0))" +"(let-values(((keep-enclosing-scope-at-phase_84) keep-enclosing-scope-at-phase2_0))" +"(let-values(((enclosing-is-cross-phase-persistent?_85) enclosing-is-cross-phase-persistent?3_0))" +"(let-values(((enclosing-r+p_86) enclosing-requires+provides4_0))" +"(let-values(((mpis-for-enclosing-reset_87) mpis-for-enclosing-reset5_0))" +"(let-values(((modules-being-compiled_88)" "(if(eq? modules-being-compiled6_0 unsafe-undefined)" "(make-hasheq)" " modules-being-compiled6_0)))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_129)(expand-context-observer init-ctx_0)))" -"(if obs_129" -"(let-values()(let-values()(call-expand-observe obs_129 'prim-module)))" +"(let-values(((obs_160)(expand-context-observer init-ctx_81)))" +"(if obs_160" +"(let-values()(let-values()(call-expand-observe obs_160 'prim-module)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_24)(syntax-disarm$1 s_450)))" -"(let-values(((ok?_78 module224_0 id:module-name225_0 initial-require226_0 body227_0)" -"(let-values(((s_49) disarmed-s_24))" -"(let-values(((orig-s_66) s_49))" -"(let-values(((module224_1" -" id:module-name225_1" -" initial-require226_1" -" body227_1)" -"(let-values(((s_453)" -"(if(syntax?$1 s_49)" -"(syntax-e$1 s_49)" -" s_49)))" -"(if(pair? s_453)" -"(let-values(((module228_0)" -"(let-values(((s_508)(car s_453)))" -" s_508))" -"((id:module-name229_0" -" initial-require230_0" -" body231_0)" -"(let-values(((s_53)(cdr s_453)))" -"(let-values(((s_54)" -"(if(syntax?$1 s_53)" -"(syntax-e$1 s_53)" -" s_53)))" -"(if(pair? s_54)" -"(let-values(((id:module-name232_0)" -"(let-values(((s_94)" +"(let-values(((disarmed-s_89)(syntax-disarm$1 s_80)))" +"(let-values(((ok?_90 module224_91 id:module-name225_92 initial-require226_93 body227_94)" +"(let-values(((s_161) disarmed-s_89))" +"(let-values(((orig-s_162) s_161))" +"(let-values(((module224_163" +" id:module-name225_164" +" initial-require226_165" +" body227_166)" +"(let-values(((s_167)" +"(if(syntax?$1 s_161)" +"(syntax-e$1 s_161)" +" s_161)))" +"(if(pair? s_167)" +"(let-values(((module228_168)" +"(let-values(((s_172)(car s_167)))" +" s_172))" +"((id:module-name229_169" +" initial-require230_170" +" body231_171)" +"(let-values(((s_173)(cdr s_167)))" +"(let-values(((s_174)" +"(if(syntax?$1 s_173)" +"(syntax-e$1 s_173)" +" s_173)))" +"(if(pair? s_174)" +"(let-values(((id:module-name232_175)" +"(let-values(((s_178)" "(car" -" s_54)))" -"(if(let-values(((or-part_407)" +" s_174)))" +"(if(let-values(((or-part_179)" "(if(syntax?$1" -" s_94)" +" s_178)" "(symbol?" "(syntax-e$1" -" s_94))" +" s_178))" " #f)))" -"(if or-part_407" -" or-part_407" +"(if or-part_179" +" or-part_179" "(symbol?" -" s_94)))" -" s_94" +" s_178)))" +" s_178" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_66" -" s_94))))" -"((initial-require233_0" -" body234_0)" -"(let-values(((s_314)" +" orig-s_162" +" s_178))))" +"((initial-require233_176" +" body234_177)" +"(let-values(((s_180)" "(cdr" -" s_54)))" -"(let-values(((s_95)" +" s_174)))" +"(let-values(((s_181)" "(if(syntax?$1" -" s_314)" +" s_180)" "(syntax-e$1" -" s_314)" -" s_314)))" -"(if(pair? s_95)" -"(let-values(((initial-require235_0)" -"(let-values(((s_455)" +" s_180)" +" s_180)))" +"(if(pair?" +" s_181)" +"(let-values(((initial-require235_182)" +"(let-values(((s_184)" "(car" -" s_95)))" -" s_455))" -"((body236_0)" -"(let-values(((s_806)" +" s_181)))" +" s_184))" +"((body236_183)" +"(let-values(((s_185)" "(cdr" -" s_95)))" -"(let-values(((s_56)" +" s_181)))" +"(let-values(((s_186)" "(if(syntax?$1" -" s_806)" +" s_185)" "(syntax-e$1" -" s_806)" -" s_806)))" -"(let-values(((flat-s_55)" +" s_185)" +" s_185)))" +"(let-values(((flat-s_187)" "(to-syntax-list.1" -" s_56)))" +" s_186)))" "(if(not" -" flat-s_55)" +" flat-s_187)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_66))" +" orig-s_162))" "(let-values()" -" flat-s_55)))))))" +" flat-s_187)))))))" "(values" -" initial-require235_0" -" body236_0))" +" initial-require235_182" +" body236_183))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_66))))))" +" orig-s_162))))))" "(values" -" id:module-name232_0" -" initial-require233_0" -" body234_0))" +" id:module-name232_175" +" initial-require233_176" +" body234_177))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_66))))))" +" orig-s_162))))))" "(values" -" module228_0" -" id:module-name229_0" -" initial-require230_0" -" body231_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_66)))))" +" module228_168" +" id:module-name229_169" +" initial-require230_170" +" body231_171))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_162)))))" "(values" " #t" -" module224_1" -" id:module-name225_1" -" initial-require226_1" -" body227_1))))))" -"(let-values(((rebuild-s_14)" -"(let-values(((init-ctx249_0) init-ctx_0)" -"((s250_0) s_450)" -"((temp251_1) #t)" -"((temp252_0) #t))" -"(keep-as-needed119.1 #f temp252_0 temp251_1 init-ctx249_0 s250_0))))" -"(let-values(((initial-require_0)(syntax->datum$1 initial-require226_0)))" +" module224_163" +" id:module-name225_164" +" initial-require226_165" +" body227_166))))))" +"(let-values(((rebuild-s_114)" +"(let-values(((init-ctx249_189) init-ctx_81)" +"((s250_190) s_80)" +"((temp251_191) #t)" +"((temp252_192) #t))" +"(keep-as-needed119.1" +" #f" +" temp252_192" +" temp251_191" +" init-ctx249_189" +" s250_190))))" +"(let-values(((initial-require_115)(syntax->datum$1 initial-require226_93)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_408) keep-enclosing-scope-at-phase_0))" -"(if or-part_408" -" or-part_408" -"(1/module-path? initial-require_0)))" +"(if(let-values(((or-part_193) keep-enclosing-scope-at-phase_84))" +"(if or-part_193" +" or-part_193" +"(1/module-path? initial-require_115)))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"not a module path\"" -" s_450" -" initial-require226_0)))" +" s_80" +" initial-require226_93)))" "(values))))" -"(let-values(((phase_7) 0))" -"(let-values(((module-name-sym_0)(syntax-e$1 id:module-name225_0)))" -"(let-values(((outside-scope_1)(new-scope 'module)))" -"(let-values(((inside-scope_0)(new-multi-scope module-name-sym_0)))" -"(let-values(((self_32)" +"(let-values(((phase_116) 0))" +"(let-values(((module-name-sym_117)(syntax-e$1 id:module-name225_92)))" +"(let-values(((outside-scope_118)(new-scope 'module)))" +"(let-values(((inside-scope_119)(new-multi-scope module-name-sym_117)))" +"(let-values(((self_120)" "(make-self-module-path-index" -"(if enclosing-self_1" -" module-name-sym_0" +"(if enclosing-self_82" +" module-name-sym_117" "(string->uninterned-symbol" -"(symbol->string module-name-sym_0)))" -" enclosing-self_1)))" -"(let-values(((enclosing-mod_1)" -"(if enclosing-self_1" -" (1/module-path-index-join '(submod \"..\") self_32)" +"(symbol->string module-name-sym_117)))" +" enclosing-self_82)))" +"(let-values(((enclosing-mod_121)" +"(if enclosing-self_82" +" (1/module-path-index-join '(submod \"..\") self_120)" " #f)))" "(let-values((()" "(begin" -"(if(if enclosing-mod_1 mpis-for-enclosing-reset_0 #f)" +"(if(if enclosing-mod_121" +" mpis-for-enclosing-reset_87" +" #f)" "(let-values()" "(set-box!" -" mpis-for-enclosing-reset_0" +" mpis-for-enclosing-reset_87" "(cons" -" enclosing-mod_1" -"(unbox mpis-for-enclosing-reset_0))))" +" enclosing-mod_121" +"(unbox mpis-for-enclosing-reset_87))))" "(void))" "(values))))" -"(let-values(((apply-module-scopes_0)" +"(let-values(((apply-module-scopes_122)" "(make-apply-module-scopes" -" outside-scope_1" -" inside-scope_0" -" init-ctx_0" -" keep-enclosing-scope-at-phase_0" -" self_32" -" enclosing-self_1" -" enclosing-mod_1)))" -"(let-values(((initial-require-s_0)" -"(apply-module-scopes_0 initial-require226_0)))" -"(let-values(((all-scopes-s_0) initial-require-s_0))" -"(let-values(((root-ctx_6)" -"(let-values(((self253_0) self_32)" -"((temp254_0)" -"(if keep-enclosing-scope-at-phase_0" +" outside-scope_118" +" inside-scope_119" +" init-ctx_81" +" keep-enclosing-scope-at-phase_84" +" self_120" +" enclosing-self_82" +" enclosing-mod_121)))" +"(let-values(((initial-require-s_123)" +"(apply-module-scopes_122 initial-require226_93)))" +"(let-values(((all-scopes-s_124) initial-require-s_123))" +"(let-values(((root-ctx_125)" +"(let-values(((self253_195) self_120)" +"((temp254_196)" +"(if keep-enclosing-scope-at-phase_84" "(root-expand-context-module-scopes" -" init-ctx_0)" +" init-ctx_81)" " null))" -"((outside-scope255_0)" -" outside-scope_1)" -"((inside-scope256_0)" -" inside-scope_0)" -"((all-scopes-s257_0)" -" all-scopes-s_0))" +"((outside-scope255_197)" +" outside-scope_118)" +"((inside-scope256_198)" +" inside-scope_119)" +"((all-scopes-s257_199)" +" all-scopes-s_124))" "(make-root-expand-context13.1" -" all-scopes-s257_0" -" temp254_0" -" outside-scope255_0" -" inside-scope256_0" -" self253_0))))" -"(let-values(((new-module-scopes_0)" +" all-scopes-s257_199" +" temp254_196" +" outside-scope255_197" +" inside-scope256_198" +" self253_195))))" +"(let-values(((new-module-scopes_126)" "(root-expand-context-module-scopes" -" root-ctx_6)))" -"(let-values(((frame-id_16)" -"(root-expand-context-frame-id root-ctx_6)))" -"(let-values(((make-m-ns240_0)" +" root-ctx_125)))" +"(let-values(((frame-id_127)" +"(root-expand-context-frame-id" +" root-ctx_125)))" +"(let-values(((make-m-ns240_129)" "(lambda(for-submodule?237_0 ns239_0)" "(begin" " 'make-m-ns240" -"(let-values(((ns_130) ns239_0))" -"(let-values(((for-submodule?_1)" +"(let-values(((ns_202) ns239_0))" +"(let-values(((for-submodule?_203)" "(if(eq?" " for-submodule?237_0" " unsafe-undefined)" -"(if enclosing-self_1" +"(if enclosing-self_82" " #t" " #f)" " for-submodule?237_0)))" "(let-values()" -"(let-values(((ns258_0) ns_130)" -"((self259_0)" -" self_32)" -"((root-ctx260_0)" -" root-ctx_6)" -"((for-submodule?261_0)" -" for-submodule?_1))" +"(let-values(((ns258_205)" +" ns_202)" +"((self259_206)" +" self_120)" +"((root-ctx260_207)" +" root-ctx_125)" +"((for-submodule?261_208)" +" for-submodule?_203))" "(make-module-namespace50.1" -" for-submodule?261_0" -" self259_0" -" root-ctx260_0" -" ns258_0)))))))))" +" for-submodule?261_208" +" self259_206" +" root-ctx260_207" +" ns258_205)))))))))" "(let-values()" "(let-values()" -"(let-values(((m-ns_19)" -"(let-values(((temp262_0)" +"(let-values(((m-ns_132)" +"(let-values(((temp262_223)" "(expand-context-namespace" -" init-ctx_0)))" -"(make-m-ns240_0" +" init-ctx_81)))" +"(make-m-ns240_129" " unsafe-undefined" -" temp262_0))))" -"(let-values(((ctx_113)" -"(let-values(((v_260)" +" temp262_223))))" +"(let-values(((ctx_133)" +"(let-values(((v_224)" "(copy-root-expand-context" -" init-ctx_0" -" root-ctx_6)))" -"(let-values(((the-struct_103)" -" v_260))" +" init-ctx_81" +" root-ctx_125)))" +"(let-values(((the-struct_225)" +" v_224))" "(if(expand-context/outer?" -" the-struct_103)" -"(let-values(((post-expansion263_0)" -"(lambda(s_64)" +" the-struct_225)" +"(let-values(((post-expansion263_226)" +"(lambda(s_0)" "(begin" " 'post-expansion263" "(add-scope" -" s_64" -" inside-scope_0))))" -"((inner264_0)" -"(let-values(((the-struct_0)" +" s_0" +" inside-scope_119))))" +"((inner264_227)" +"(let-values(((the-struct_229)" "(root-expand-context/outer-inner" -" v_260)))" +" v_224)))" "(if(expand-context/inner?" -" the-struct_0)" -"(let-values(((allow-unbound?265_0)" +" the-struct_229)" +"(let-values(((allow-unbound?265_230)" " #f)" -"((namespace266_0)" -" m-ns_19)" -"((phase267_0)" -" phase_7)" -"((just-once?268_0)" +"((namespace266_231)" +" m-ns_132)" +"((phase267_232)" +" phase_116)" +"((just-once?268_233)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_0)" +" the-struct_229)" "(root-expand-context/inner-module-scopes" -" the-struct_0)" +" the-struct_229)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_0)" +" the-struct_229)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_0)" +" the-struct_229)" "(root-expand-context/inner-defined-syms" -" the-struct_0)" +" the-struct_229)" "(root-expand-context/inner-counter" -" the-struct_0)" +" the-struct_229)" "(root-expand-context/inner-lift-key" -" the-struct_0)" +" the-struct_229)" "(expand-context/inner-to-parsed?" -" the-struct_0)" -" phase267_0" -" namespace266_0" -" just-once?268_0" +" the-struct_229)" +" phase267_232" +" namespace266_231" +" just-once?268_233" "(expand-context/inner-module-begin-k" -" the-struct_0)" -" allow-unbound?265_0" +" the-struct_229)" +" allow-unbound?265_230" "(expand-context/inner-in-local-expand?" -" the-struct_0)" +" the-struct_229)" "(expand-context/inner-keep-#%expression?" -" the-struct_0)" +" the-struct_229)" "(expand-context/inner-stops" -" the-struct_0)" +" the-struct_229)" "(expand-context/inner-declared-submodule-names" -" the-struct_0)" +" the-struct_229)" "(expand-context/inner-lifts" -" the-struct_0)" +" the-struct_229)" "(expand-context/inner-lift-envs" -" the-struct_0)" +" the-struct_229)" "(expand-context/inner-module-lifts" -" the-struct_0)" +" the-struct_229)" "(expand-context/inner-require-lifts" -" the-struct_0)" +" the-struct_229)" "(expand-context/inner-to-module-lifts" -" the-struct_0)" +" the-struct_229)" "(expand-context/inner-requires+provides" -" the-struct_0)" +" the-struct_229)" "(expand-context/inner-observer" -" the-struct_0)" +" the-struct_229)" "(expand-context/inner-for-serializable?" -" the-struct_0)" +" the-struct_229)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_0)))" +" the-struct_229)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_0)))))" +" the-struct_229)))))" "(expand-context/outer1.1" -" inner264_0" -" post-expansion263_0" +" inner264_227" +" post-expansion263_226" "(root-expand-context/outer-use-site-scopes" -" the-struct_103)" +" the-struct_225)" "(root-expand-context/outer-frame-id" -" the-struct_103)" +" the-struct_225)" "(expand-context/outer-context" -" the-struct_103)" +" the-struct_225)" "(expand-context/outer-env" -" the-struct_103)" +" the-struct_225)" "(expand-context/outer-scopes" -" the-struct_103)" +" the-struct_225)" "(expand-context/outer-def-ctx-scopes" -" the-struct_103)" +" the-struct_225)" "(expand-context/outer-binding-layer" -" the-struct_103)" +" the-struct_225)" "(expand-context/outer-reference-records" -" the-struct_103)" +" the-struct_225)" "(expand-context/outer-only-immediate?" -" the-struct_103)" +" the-struct_225)" "(expand-context/outer-need-eventually-defined" -" the-struct_103)" +" the-struct_225)" "(expand-context/outer-current-introduction-scopes" -" the-struct_103)" +" the-struct_225)" "(expand-context/outer-current-use-scopes" -" the-struct_103)" +" the-struct_225)" "(expand-context/outer-name" -" the-struct_103)))" +" the-struct_225)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_103))))))" -"(let-values(((bodys_15)" -"(let-values(((scoped-s_0)" -"(apply-module-scopes_0" -" disarmed-s_24)))" -"(let-values(((ok?_79" -" _269_0" -" _270_0" -" _271_0" -" body272_0)" -"(let-values(((s_524)" -" scoped-s_0))" -"(let-values(((orig-s_82)" -" s_524))" -"(let-values(((_269_1" -" _270_1" -" _271_1" -" body272_1)" -"(let-values(((s_807)" +" the-struct_225))))))" +"(let-values(((bodys_134)" +"(let-values(((scoped-s_234)" +"(apply-module-scopes_122" +" disarmed-s_89)))" +"(let-values(((ok?_235" +" _269_236" +" _270_237" +" _271_238" +" body272_239)" +"(let-values(((s_259)" +" scoped-s_234))" +"(let-values(((orig-s_260)" +" s_259))" +"(let-values(((_269_261" +" _270_262" +" _271_263" +" body272_264)" +"(let-values(((s_265)" "(if(syntax?$1" -" s_524)" +" s_259)" "(syntax-e$1" -" s_524)" -" s_524)))" +" s_259)" +" s_259)))" "(if(pair?" -" s_807)" -"(let-values(((_273_0)" -"(let-values(((s_211)" +" s_265)" +"(let-values(((_273_266)" +"(let-values(((s_270)" "(car" -" s_807)))" -" s_211))" -"((_274_0" -" _275_0" -" body276_0)" -"(let-values(((s_528)" +" s_265)))" +" s_270))" +"((_274_267" +" _275_268" +" body276_269)" +"(let-values(((s_271)" "(cdr" -" s_807)))" -"(let-values(((s_529)" +" s_265)))" +"(let-values(((s_272)" "(if(syntax?$1" -" s_528)" +" s_271)" "(syntax-e$1" -" s_528)" -" s_528)))" +" s_271)" +" s_271)))" "(if(pair?" -" s_529)" -"(let-values(((_277_2)" -"(let-values(((s_460)" +" s_272)" +"(let-values(((_277_273)" +"(let-values(((s_276)" "(car" -" s_529)))" -" s_460))" -"((_278_0" -" body279_0)" -"(let-values(((s_461)" +" s_272)))" +" s_276))" +"((_278_274" +" body279_275)" +"(let-values(((s_277)" "(cdr" -" s_529)))" -"(let-values(((s_808)" +" s_272)))" +"(let-values(((s_278)" "(if(syntax?$1" -" s_461)" +" s_277)" "(syntax-e$1" -" s_461)" -" s_461)))" +" s_277)" +" s_277)))" "(if(pair?" -" s_808)" -"(let-values(((_280_1)" -"(let-values(((s_809)" +" s_278)" +"(let-values(((_280_279)" +"(let-values(((s_281)" "(car" -" s_808)))" -" s_809))" -"((body281_0)" -"(let-values(((s_416)" +" s_278)))" +" s_281))" +"((body281_280)" +"(let-values(((s_282)" "(cdr" -" s_808)))" -"(let-values(((s_39)" +" s_278)))" +"(let-values(((s_283)" "(if(syntax?$1" -" s_416)" +" s_282)" "(syntax-e$1" -" s_416)" -" s_416)))" -"(let-values(((flat-s_56)" +" s_282)" +" s_282)))" +"(let-values(((flat-s_284)" "(to-syntax-list.1" -" s_39)))" +" s_283)))" "(if(not" -" flat-s_56)" +" flat-s_284)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_82))" +" orig-s_260))" "(let-values()" -" flat-s_56)))))))" +" flat-s_284)))))))" "(values" -" _280_1" -" body281_0))" +" _280_279" +" body281_280))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_82))))))" +" orig-s_260))))))" "(values" -" _277_2" -" _278_0" -" body279_0))" +" _277_273" +" _278_274" +" body279_275))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_82))))))" +" orig-s_260))))))" "(values" -" _273_0" -" _274_0" -" _275_0" -" body276_0))" +" _273_266" +" _274_267" +" _275_268" +" body276_269))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_82)))))" +" orig-s_260)))))" "(values" " #t" -" _269_1" -" _270_1" -" _271_1" -" body272_1))))))" -" body272_0))))" -"(let-values(((requires+provides_6)" -"(let-values(((self282_0)" -" self_32))" +" _269_261" +" _270_262" +" _271_263" +" body272_264))))))" +" body272_239))))" +"(let-values(((requires+provides_135)" +"(let-values(((self282_285)" +" self_120))" "(make-requires+provides8.1" " #f" -" self282_0))))" -"(let-values(((defined-syms_11)" +" self282_285))))" +"(let-values(((defined-syms_136)" "(root-expand-context-defined-syms" -" root-ctx_6)))" -"(let-values(((compiled-submodules_1)" +" root-ctx_125)))" +"(let-values(((compiled-submodules_137)" "(make-hasheq)))" -"(let-values(((compiled-module-box_0)" +"(let-values(((compiled-module-box_138)" "(box #f)))" -"(let-values(((mpis-to-reset_0)" +"(let-values(((mpis-to-reset_139)" "(box null)))" -"(let-values(((initial-require!245_0)" +"(let-values(((initial-require!245_146)" "(lambda(bind?243_0)" "(begin" " 'initial-require!245" -"(let-values(((bind?_3)" +"(let-values(((bind?_287)" " bind?243_0))" "(let-values()" "(if(not" -" keep-enclosing-scope-at-phase_0)" +" keep-enclosing-scope-at-phase_84)" "(let-values()" -"(let-values(((initial-require283_0)" -" initial-require_0)" -"((self284_0)" -" self_32)" -"((all-scopes-s285_0)" -" all-scopes-s_0)" -"((m-ns286_0)" -" m-ns_19)" -"((requires+provides287_1)" -" requires+provides_6)" -"((bind?288_0)" -" bind?_3)" -"((temp289_0)" +"(let-values(((initial-require283_289)" +" initial-require_115)" +"((self284_290)" +" self_120)" +"((all-scopes-s285_291)" +" all-scopes-s_124)" +"((m-ns286_292)" +" m-ns_132)" +"((requires+provides287_293)" +" requires+provides_135)" +"((bind?288_294)" +" bind?_287)" +"((temp289_295)" " 'module))" "(perform-initial-require!42.1" -" bind?288_0" -" temp289_0" -" initial-require283_0" -" self284_0" -" all-scopes-s285_0" -" m-ns286_0" -" requires+provides287_1)))" +" bind?288_294" +" temp289_295" +" initial-require283_289" +" self284_290" +" all-scopes-s285_291" +" m-ns286_292" +" requires+provides287_293)))" "(let-values()" "(begin" "(add-required-module!" -" requires+provides_6" -" enclosing-mod_1" -" keep-enclosing-scope-at-phase_0" -" enclosing-is-cross-phase-persistent?_0)" -"(let-values(((requires+provides290_0)" -" requires+provides_6)" -"((enclosing-r+p291_0)" -" enclosing-r+p_1)" -"((enclosing-mod292_0)" -" enclosing-mod_1)" -"((keep-enclosing-scope-at-phase293_0)" -" keep-enclosing-scope-at-phase_0))" +" requires+provides_135" +" enclosing-mod_121" +" keep-enclosing-scope-at-phase_84" +" enclosing-is-cross-phase-persistent?_85)" +"(let-values(((requires+provides290_297)" +" requires+provides_135)" +"((enclosing-r+p291_298)" +" enclosing-r+p_86)" +"((enclosing-mod292_299)" +" enclosing-mod_121)" +"((keep-enclosing-scope-at-phase293_300)" +" keep-enclosing-scope-at-phase_84))" "(add-enclosing-module-defined-and-required!67.1" -" enclosing-r+p291_0" -" requires+provides290_0" -" enclosing-mod292_0" -" keep-enclosing-scope-at-phase293_0))" -"(let-values(((m-ns294_0)" -" m-ns_19)" -"((enclosing-mod295_0)" -" enclosing-mod_1)" -"((keep-enclosing-scope-at-phase296_0)" -" keep-enclosing-scope-at-phase_0))" +" enclosing-r+p291_298" +" requires+provides290_297" +" enclosing-mod292_299" +" keep-enclosing-scope-at-phase293_300))" +"(let-values(((m-ns294_301)" +" m-ns_132)" +"((enclosing-mod295_302)" +" enclosing-mod_121)" +"((keep-enclosing-scope-at-phase296_303)" +" keep-enclosing-scope-at-phase_84))" "(namespace-module-visit!104.1" " unsafe-undefined" -" m-ns294_0" -" enclosing-mod295_0" -" keep-enclosing-scope-at-phase296_0)))))))))))" +" m-ns294_301" +" enclosing-mod295_302" +" keep-enclosing-scope-at-phase296_303)))))))))))" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_130)" +"(let-values(((obs_312)" "(expand-context-observer" -" init-ctx_0)))" -"(if obs_130" +" init-ctx_81)))" +"(if obs_312" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_130" +" obs_312" " 'prepare-env)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((temp248_1)" +"(let-values(((temp248_314)" " #t))" -"(initial-require!245_0" -" temp248_1))" +"(initial-require!245_146" +" temp248_314))" "(values))))" -"(let-values(((again?_0)" +"(let-values(((again?_149)" " #f))" -"(letrec-values(((module-begin-k_1)" +"(letrec-values(((module-begin-k_150)" "(lambda(mb-s_0" " mb-init-ctx_0)" "(begin" " 'module-begin-k" "(let-values((()" "(begin" -"(if again?_0" +"(if again?_149" "(let-values()" "(begin" "(requires+provides-reset!" -" requires+provides_6)" -"(let-values(((temp301_0)" +" requires+provides_135)" +"(let-values(((temp301_350)" " #f))" -"(initial-require!245_0" -" temp301_0))" +"(initial-require!245_146" +" temp301_350))" "(hash-clear!" -" compiled-submodules_1)" +" compiled-submodules_137)" "(set-box!" -" compiled-module-box_0" +" compiled-module-box_138" " #f)))" "(void))" "(values))))" "(let-values((()" "(begin" -"(set! again?_0" +"(set! again?_149" " #t)" "(values))))" -"(let-values(((ctx_114)" -"(let-values(((v_186)" +"(let-values(((ctx_317)" +"(let-values(((v_351)" " mb-init-ctx_0))" -"(let-values(((the-struct_66)" -" v_186))" +"(let-values(((the-struct_352)" +" v_351))" "(if(expand-context/outer?" -" the-struct_66)" -"(let-values(((post-expansion302_0)" -"(lambda(s_810)" +" the-struct_352)" +"(let-values(((post-expansion302_353)" +"(lambda(s_0)" "(begin" " 'post-expansion302" "(add-scope" -" s_810" -" inside-scope_0))))" -"((inner303_0)" -"(let-values(((the-struct_104)" +" s_0" +" inside-scope_119))))" +"((inner303_354)" +"(let-values(((the-struct_356)" "(root-expand-context/outer-inner" -" v_186)))" +" v_351)))" "(if(expand-context/inner?" -" the-struct_104)" -"(let-values(((module-begin-k304_0)" -"(lambda(s_811" -" ctx_60)" +" the-struct_356)" +"(let-values(((module-begin-k304_357)" +"(lambda(s_0" +" ctx_0)" "(begin" " 'module-begin-k304" -"(let-values(((new-requires+provides_0)" -"(let-values(((self313_0)" -" self_32)" -"((requires+provides314_0)" -" requires+provides_6))" +"(let-values(((new-requires+provides_360)" +"(let-values(((self313_362)" +" self_120)" +"((requires+provides314_363)" +" requires+provides_135))" "(make-requires+provides8.1" -" requires+provides314_0" -" self313_0))))" -"(let-values(((requires+provides305_0)" -" requires+provides_6)" -"((compiled-submodules306_0)" -" compiled-submodules_1)" -"((compiled-module-box307_0)" -" compiled-module-box_0)" -"((defined-syms308_0)" -" defined-syms_11)" -"((requires+provides309_0)" -" new-requires+provides_0)" -"((compiled-submodules310_0)" +" requires+provides314_363" +" self313_362))))" +"(let-values(((requires+provides305_364)" +" requires+provides_135)" +"((compiled-submodules306_365)" +" compiled-submodules_137)" +"((compiled-module-box307_366)" +" compiled-module-box_138)" +"((defined-syms308_367)" +" defined-syms_136)" +"((requires+provides309_368)" +" new-requires+provides_360)" +"((compiled-submodules310_369)" "(make-hasheq))" -"((compiled-module-box311_0)" +"((compiled-module-box311_370)" "(box" " #f))" -"((defined-syms312_0)" +"((defined-syms312_371)" "(make-hasheq)))" "(dynamic-wind" "(lambda()" "(begin" -"(set! requires+provides_6" -" requires+provides309_0)" -"(set! compiled-submodules_1" -" compiled-submodules310_0)" -"(set! compiled-module-box_0" -" compiled-module-box311_0)" -"(set! defined-syms_11" -" defined-syms312_0)))" +"(set! requires+provides_135" +" requires+provides309_368)" +"(set! compiled-submodules_137" +" compiled-submodules310_369)" +"(set! compiled-module-box_138" +" compiled-module-box311_370)" +"(set! defined-syms_136" +" defined-syms312_371)))" "(lambda()" -"(module-begin-k_1" -" s_811" -" ctx_60))" +"(module-begin-k_150" +" s_0" +" ctx_0))" "(lambda()" "(begin" -"(set! requires+provides_6" -" requires+provides305_0)" -"(set! compiled-submodules_1" -" compiled-submodules306_0)" -"(set! compiled-module-box_0" -" compiled-module-box307_0)" -"(set! defined-syms_11" -" defined-syms308_0))))))))))" +"(set! requires+provides_135" +" requires+provides305_364)" +"(set! compiled-submodules_137" +" compiled-submodules306_365)" +"(set! compiled-module-box_138" +" compiled-module-box307_366)" +"(set! defined-syms_136" +" defined-syms308_367))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_104)" +" the-struct_356)" "(root-expand-context/inner-module-scopes" -" the-struct_104)" +" the-struct_356)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_104)" +" the-struct_356)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_104)" +" the-struct_356)" "(root-expand-context/inner-defined-syms" -" the-struct_104)" +" the-struct_356)" "(root-expand-context/inner-counter" -" the-struct_104)" +" the-struct_356)" "(root-expand-context/inner-lift-key" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-to-parsed?" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-phase" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-namespace" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-just-once?" -" the-struct_104)" -" module-begin-k304_0" +" the-struct_356)" +" module-begin-k304_357" "(expand-context/inner-allow-unbound?" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-in-local-expand?" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-keep-#%expression?" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-stops" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-declared-submodule-names" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-lifts" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-lift-envs" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-module-lifts" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-require-lifts" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-to-module-lifts" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-requires+provides" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-observer" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-for-serializable?" -" the-struct_104)" +" the-struct_356)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_104)))" +" the-struct_356)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_104)))))" +" the-struct_356)))))" "(expand-context/outer1.1" -" inner303_0" -" post-expansion302_0" +" inner303_354" +" post-expansion302_353" "(root-expand-context/outer-use-site-scopes" -" the-struct_66)" +" the-struct_352)" "(root-expand-context/outer-frame-id" -" the-struct_66)" +" the-struct_352)" "(expand-context/outer-context" -" the-struct_66)" +" the-struct_352)" "(expand-context/outer-env" -" the-struct_66)" +" the-struct_352)" "(expand-context/outer-scopes" -" the-struct_66)" +" the-struct_352)" "(expand-context/outer-def-ctx-scopes" -" the-struct_66)" +" the-struct_352)" "(expand-context/outer-binding-layer" -" the-struct_66)" +" the-struct_352)" "(expand-context/outer-reference-records" -" the-struct_66)" +" the-struct_352)" "(expand-context/outer-only-immediate?" -" the-struct_66)" +" the-struct_352)" "(expand-context/outer-need-eventually-defined" -" the-struct_66)" +" the-struct_352)" "(expand-context/outer-current-introduction-scopes" -" the-struct_66)" +" the-struct_352)" "(expand-context/outer-current-use-scopes" -" the-struct_66)" +" the-struct_352)" "(expand-context/outer-name" -" the-struct_66)))" +" the-struct_352)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_66))))))" -"(let-values(((added-s_2)" +" the-struct_352))))))" +"(let-values(((added-s_318)" "(add-scope" " mb-s_0" -" inside-scope_0)))" +" inside-scope_119)))" "(let-values((()" "(begin" -"(let-values(((obs_131)" +"(let-values(((obs_372)" "(expand-context-observer" -" ctx_114)))" -"(if obs_131" +" ctx_317)))" +"(if obs_372" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_131" +" obs_372" " 'rename-one" -" added-s_2)))" +" added-s_318)))" "(void)))" "(values))))" -"(let-values(((disarmed-mb-s_0)" +"(let-values(((disarmed-mb-s_319)" "(syntax-disarm$1" -" added-s_2)))" -"(let-values(((ok?_80" -" #%module-begin297_0" -" body298_0)" -"(let-values(((s_116)" -" disarmed-mb-s_0))" -"(let-values(((orig-s_0)" -" s_116))" -"(let-values(((#%module-begin297_1" -" body298_1)" -"(let-values(((s_225)" +" added-s_318)))" +"(let-values(((ok?_320" +" #%module-begin297_321" +" body298_322)" +"(let-values(((s_373)" +" disarmed-mb-s_319))" +"(let-values(((orig-s_374)" +" s_373))" +"(let-values(((#%module-begin297_375" +" body298_376)" +"(let-values(((s_377)" "(if(syntax?$1" -" s_116)" +" s_373)" "(syntax-e$1" -" s_116)" -" s_116)))" +" s_373)" +" s_373)))" "(if(pair?" -" s_225)" -"(let-values(((#%module-begin299_0)" -"(let-values(((s_121)" +" s_377)" +"(let-values(((#%module-begin299_378)" +"(let-values(((s_380)" "(car" -" s_225)))" -" s_121))" -"((body300_0)" -"(let-values(((s_226)" +" s_377)))" +" s_380))" +"((body300_379)" +"(let-values(((s_381)" "(cdr" -" s_225)))" -"(let-values(((s_227)" +" s_377)))" +"(let-values(((s_382)" "(if(syntax?$1" -" s_226)" +" s_381)" "(syntax-e$1" -" s_226)" -" s_226)))" -"(let-values(((flat-s_5)" +" s_381)" +" s_381)))" +"(let-values(((flat-s_383)" "(to-syntax-list.1" -" s_227)))" +" s_382)))" "(if(not" -" flat-s_5)" +" flat-s_383)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_0))" +" orig-s_374))" "(let-values()" -" flat-s_5)))))))" +" flat-s_383)))))))" "(values" -" #%module-begin299_0" -" body300_0))" +" #%module-begin299_378" +" body300_379))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_0)))))" +" orig-s_374)))))" "(values" " #t" -" #%module-begin297_1" -" body298_1))))))" -"(let-values(((bodys_16)" -" body298_0))" -"(let-values(((rebuild-mb-s_0)" -"(let-values(((ctx315_0)" -" ctx_114)" -"((mb-s316_0)" +" #%module-begin297_375" +" body298_376))))))" +"(let-values(((bodys_336)" +" body298_322))" +"(let-values(((rebuild-mb-s_337)" +"(let-values(((ctx315_384)" +" ctx_317)" +"((mb-s316_385)" " mb-s_0))" "(keep-as-needed119.1" " #f" " #f" " #f" -" ctx315_0" -" mb-s316_0))))" -"(let-values(((need-eventually-defined_1)" +" ctx315_384" +" mb-s316_385))))" +"(let-values(((need-eventually-defined_338)" "(make-hasheqv)))" -"(let-values(((module-ends_0)" +"(let-values(((module-ends_339)" "(make-shared-module-ends)))" -"(let-values(((declared-keywords_0)" +"(let-values(((declared-keywords_340)" "(make-hasheq)))" -"(let-values(((declared-submodule-names_3)" +"(let-values(((declared-submodule-names_341)" "(make-hasheq)))" -"(let-values(((expression-expanded-bodys_0)" -"((letrec-values(((pass-1-and-2-loop_0)" -"(lambda(bodys_17" -" phase_84" -" keep-stops?_2)" +"(let-values(((expression-expanded-bodys_342)" +"((letrec-values(((pass-1-and-2-loop_386)" +"(lambda(bodys_0" +" phase_0" +" keep-stops?_0)" "(begin" " 'pass-1-and-2-loop" -"(let-values(((def-ctx-scopes_8)" +"(let-values(((def-ctx-scopes_390)" "(box" " null)))" -"(let-values(((partial-body-ctx_0)" -"(let-values(((v_261)" -" ctx_114))" -"(let-values(((the-struct_105)" -" v_261))" +"(let-values(((partial-body-ctx_391)" +"(let-values(((v_394)" +" ctx_317))" +"(let-values(((the-struct_395)" +" v_394))" "(if(expand-context/outer?" -" the-struct_105)" -"(let-values(((context325_0)" +" the-struct_395)" +"(let-values(((context325_396)" " 'module)" -"((def-ctx-scopes326_0)" -" def-ctx-scopes_8)" -"((need-eventually-defined327_0)" -" need-eventually-defined_1)" -"((inner328_0)" -"(let-values(((the-struct_106)" +"((def-ctx-scopes326_397)" +" def-ctx-scopes_390)" +"((need-eventually-defined327_398)" +" need-eventually-defined_338)" +"((inner328_399)" +"(let-values(((the-struct_400)" "(root-expand-context/outer-inner" -" v_261)))" +" v_394)))" "(if(expand-context/inner?" -" the-struct_106)" -"(let-values(((phase329_0)" -" phase_84)" -"((namespace330_0)" +" the-struct_400)" +"(let-values(((phase329_401)" +" phase_0)" +"((namespace330_402)" "(namespace->namespace-at-phase" -" m-ns_19" -" phase_84))" -"((stops331_0)" +" m-ns_132" +" phase_0))" +"((stops331_403)" "(free-id-set" -" phase_84" +" phase_0" "(module-expand-stop-ids" -" phase_84)))" -"((declared-submodule-names332_0)" -" declared-submodule-names_3)" -"((lift-key333_0)" +" phase_0)))" +"((declared-submodule-names332_404)" +" declared-submodule-names_341)" +"((lift-key333_405)" "(generate-lift-key))" -"((lifts334_0)" -"(let-values(((temp338_1)" +"((lifts334_406)" +"(let-values(((temp338_410)" "(make-wrap-as-definition" -" self_32" -" frame-id_16" -" inside-scope_0" -" all-scopes-s_0" -" defined-syms_11" -" requires+provides_6)))" +" self_120" +" frame-id_127" +" inside-scope_119" +" all-scopes-s_124" +" defined-syms_136" +" requires+provides_135)))" "(make-lift-context6.1" " #f" -" temp338_1)))" -"((module-lifts335_0)" +" temp338_410)))" +"((module-lifts335_407)" "(make-module-lift-context" -" phase_84" +" phase_0" " #t))" -"((require-lifts336_0)" +"((require-lifts336_408)" "(make-require-lift-context" -" phase_84" -"(let-values(((m-ns339_0)" -" m-ns_19)" -"((self340_0)" -" self_32)" -"((requires+provides341_0)" -" requires+provides_6)" -"((declared-submodule-names342_0)" -" declared-submodule-names_3))" +" phase_0" +"(let-values(((m-ns339_412)" +" m-ns_132)" +"((self340_413)" +" self_120)" +"((requires+provides341_414)" +" requires+provides_135)" +"((declared-submodule-names342_415)" +" declared-submodule-names_341))" "(make-parse-lifted-require216.1" -" declared-submodule-names342_0" -" m-ns339_0" -" self340_0" -" requires+provides341_0))))" -"((to-module-lifts337_0)" -"(let-values(((phase343_0)" -" phase_84)" -"((module-ends344_0)" -" module-ends_0)" -"((temp345_1)" +" declared-submodule-names342_415" +" m-ns339_412" +" self340_413" +" requires+provides341_414))))" +"((to-module-lifts337_409)" +"(let-values(((phase343_417)" +" phase_0)" +"((module-ends344_418)" +" module-ends_339)" +"((temp345_419)" " #f))" "(make-to-module-lift-context27.1" -" temp345_1" -" module-ends344_0" -" phase343_0))))" +" temp345_419" +" module-ends344_418" +" phase343_417))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_106)" +" the-struct_400)" "(root-expand-context/inner-module-scopes" -" the-struct_106)" +" the-struct_400)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_106)" +" the-struct_400)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_106)" +" the-struct_400)" "(root-expand-context/inner-defined-syms" -" the-struct_106)" +" the-struct_400)" "(root-expand-context/inner-counter" -" the-struct_106)" -" lift-key333_0" +" the-struct_400)" +" lift-key333_405" "(expand-context/inner-to-parsed?" -" the-struct_106)" -" phase329_0" -" namespace330_0" +" the-struct_400)" +" phase329_401" +" namespace330_402" "(expand-context/inner-just-once?" -" the-struct_106)" +" the-struct_400)" "(expand-context/inner-module-begin-k" -" the-struct_106)" +" the-struct_400)" "(expand-context/inner-allow-unbound?" -" the-struct_106)" +" the-struct_400)" "(expand-context/inner-in-local-expand?" -" the-struct_106)" +" the-struct_400)" "(expand-context/inner-keep-#%expression?" -" the-struct_106)" -" stops331_0" -" declared-submodule-names332_0" -" lifts334_0" +" the-struct_400)" +" stops331_403" +" declared-submodule-names332_404" +" lifts334_406" "(expand-context/inner-lift-envs" -" the-struct_106)" -" module-lifts335_0" -" require-lifts336_0" -" to-module-lifts337_0" +" the-struct_400)" +" module-lifts335_407" +" require-lifts336_408" +" to-module-lifts337_409" "(expand-context/inner-requires+provides" -" the-struct_106)" +" the-struct_400)" "(expand-context/inner-observer" -" the-struct_106)" +" the-struct_400)" "(expand-context/inner-for-serializable?" -" the-struct_106)" +" the-struct_400)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_106)))" +" the-struct_400)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_106)))))" +" the-struct_400)))))" "(expand-context/outer1.1" -" inner328_0" +" inner328_399" "(root-expand-context/outer-post-expansion" -" the-struct_105)" +" the-struct_395)" "(root-expand-context/outer-use-site-scopes" -" the-struct_105)" +" the-struct_395)" "(root-expand-context/outer-frame-id" -" the-struct_105)" -" context325_0" +" the-struct_395)" +" context325_396" "(expand-context/outer-env" -" the-struct_105)" +" the-struct_395)" "(expand-context/outer-scopes" -" the-struct_105)" -" def-ctx-scopes326_0" +" the-struct_395)" +" def-ctx-scopes326_397" "(expand-context/outer-binding-layer" -" the-struct_105)" +" the-struct_395)" "(expand-context/outer-reference-records" -" the-struct_105)" +" the-struct_395)" "(expand-context/outer-only-immediate?" -" the-struct_105)" -" need-eventually-defined327_0" +" the-struct_395)" +" need-eventually-defined327_398" "(expand-context/outer-current-introduction-scopes" -" the-struct_105)" +" the-struct_395)" "(expand-context/outer-current-use-scopes" -" the-struct_105)" +" the-struct_395)" "(expand-context/outer-name" -" the-struct_105)))" +" the-struct_395)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_105))))))" -"(let-values(((partially-expanded-bodys_0)" -"(let-values(((bodys346_0)" -" bodys_17)" -"((phase347_0)" -" phase_84)" -"((partial-body-ctx348_0)" -" partial-body-ctx_0)" -"((m-ns349_0)" -" m-ns_19)" -"((self350_0)" -" self_32)" -"((frame-id351_0)" -" frame-id_16)" -"((requires+provides352_0)" -" requires+provides_6)" -"((need-eventually-defined353_0)" -" need-eventually-defined_1)" -"((all-scopes-s354_0)" -" all-scopes-s_0)" -"((defined-syms355_0)" -" defined-syms_11)" -"((declared-keywords356_0)" -" declared-keywords_0)" -"((declared-submodule-names357_0)" -" declared-submodule-names_3)" -"((compiled-submodules358_0)" -" compiled-submodules_1)" -"((modules-being-compiled359_0)" -" modules-being-compiled_3)" -"((mpis-to-reset360_0)" -" mpis-to-reset_0)" -"((pass-1-and-2-loop361_0)" -" pass-1-and-2-loop_0))" +" the-struct_395))))))" +"(let-values(((partially-expanded-bodys_392)" +"(let-values(((bodys346_421)" +" bodys_0)" +"((phase347_422)" +" phase_0)" +"((partial-body-ctx348_423)" +" partial-body-ctx_391)" +"((m-ns349_424)" +" m-ns_132)" +"((self350_425)" +" self_120)" +"((frame-id351_426)" +" frame-id_127)" +"((requires+provides352_427)" +" requires+provides_135)" +"((need-eventually-defined353_428)" +" need-eventually-defined_338)" +"((all-scopes-s354_429)" +" all-scopes-s_124)" +"((defined-syms355_430)" +" defined-syms_136)" +"((declared-keywords356_431)" +" declared-keywords_340)" +"((declared-submodule-names357_432)" +" declared-submodule-names_341)" +"((compiled-submodules358_433)" +" compiled-submodules_137)" +"((modules-being-compiled359_434)" +" modules-being-compiled_88)" +"((mpis-to-reset360_435)" +" mpis-to-reset_139)" +"((pass-1-and-2-loop361_436)" +" pass-1-and-2-loop_386))" "(partially-expand-bodys79.1" -" all-scopes-s354_0" -" compiled-submodules358_0" -" partial-body-ctx348_0" -" declared-keywords356_0" -" declared-submodule-names357_0" -" defined-syms355_0" -" frame-id351_0" -" pass-1-and-2-loop361_0" -" modules-being-compiled359_0" -" mpis-to-reset360_0" -" m-ns349_0" -" need-eventually-defined353_0" -" phase347_0" -" requires+provides352_0" -" self350_0" -" bodys346_0))))" +" all-scopes-s354_429" +" compiled-submodules358_433" +" partial-body-ctx348_423" +" declared-keywords356_431" +" declared-submodule-names357_432" +" defined-syms355_430" +" frame-id351_426" +" pass-1-and-2-loop361_436" +" modules-being-compiled359_434" +" mpis-to-reset360_435" +" m-ns349_424" +" need-eventually-defined353_428" +" phase347_422" +" requires+provides352_427" +" self350_425" +" bodys346_421))))" "(let-values((()" "(begin" -"(let-values(((obs_132)" +"(let-values(((obs_437)" "(expand-context-observer" -" partial-body-ctx_0)))" -"(if obs_132" +" partial-body-ctx_391)))" +"(if obs_437" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_132" +" obs_437" " 'next-group)))" "(void)))" "(values))))" -"(let-values(((body-ctx_6)" -"(let-values(((v_262)" +"(let-values(((body-ctx_393)" +"(let-values(((v_438)" "(accumulate-def-ctx-scopes" -" partial-body-ctx_0" -" def-ctx-scopes_8)))" -"(let-values(((the-struct_107)" -" v_262))" +" partial-body-ctx_391" +" def-ctx-scopes_390)))" +"(let-values(((the-struct_439)" +" v_438))" "(if(expand-context/outer?" -" the-struct_107)" -"(let-values(((def-ctx-scopes362_0)" +" the-struct_439)" +"(let-values(((def-ctx-scopes362_440)" " #f)" -"((post-expansion363_0)" +"((post-expansion363_441)" " #f)" -"((inner364_0)" -"(let-values(((the-struct_108)" +"((inner364_442)" +"(let-values(((the-struct_443)" "(root-expand-context/outer-inner" -" v_262)))" +" v_438)))" "(if(expand-context/inner?" -" the-struct_108)" -"(let-values(((stops365_0)" -"(if keep-stops?_2" +" the-struct_443)" +"(let-values(((stops365_444)" +"(if keep-stops?_0" "(expand-context-stops" -" ctx_114)" +" ctx_317)" " empty-free-id-set))" -"((to-module-lifts366_0)" -"(let-values(((phase367_0)" -" phase_84)" -"((module-ends368_0)" -" module-ends_0)" -"((temp369_0)" +"((to-module-lifts366_445)" +"(let-values(((phase367_447)" +" phase_0)" +"((module-ends368_448)" +" module-ends_339)" +"((temp369_449)" " #t))" "(make-to-module-lift-context27.1" -" temp369_0" -" module-ends368_0" -" phase367_0))))" +" temp369_449" +" module-ends368_448" +" phase367_447))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_108)" +" the-struct_443)" "(root-expand-context/inner-module-scopes" -" the-struct_108)" +" the-struct_443)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_108)" +" the-struct_443)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_108)" +" the-struct_443)" "(root-expand-context/inner-defined-syms" -" the-struct_108)" +" the-struct_443)" "(root-expand-context/inner-counter" -" the-struct_108)" +" the-struct_443)" "(root-expand-context/inner-lift-key" -" the-struct_108)" +" the-struct_443)" "(expand-context/inner-to-parsed?" -" the-struct_108)" +" the-struct_443)" "(expand-context/inner-phase" -" the-struct_108)" +" the-struct_443)" "(expand-context/inner-namespace" -" the-struct_108)" +" the-struct_443)" "(expand-context/inner-just-once?" -" the-struct_108)" +" the-struct_443)" "(expand-context/inner-module-begin-k" -" the-struct_108)" +" the-struct_443)" "(expand-context/inner-allow-unbound?" -" the-struct_108)" +" the-struct_443)" "(expand-context/inner-in-local-expand?" -" the-struct_108)" +" the-struct_443)" "(expand-context/inner-keep-#%expression?" -" the-struct_108)" -" stops365_0" +" the-struct_443)" +" stops365_444" "(expand-context/inner-declared-submodule-names" -" the-struct_108)" +" the-struct_443)" "(expand-context/inner-lifts" -" the-struct_108)" +" the-struct_443)" "(expand-context/inner-lift-envs" -" the-struct_108)" +" the-struct_443)" "(expand-context/inner-module-lifts" -" the-struct_108)" +" the-struct_443)" "(expand-context/inner-require-lifts" -" the-struct_108)" -" to-module-lifts366_0" +" the-struct_443)" +" to-module-lifts366_445" "(expand-context/inner-requires+provides" -" the-struct_108)" +" the-struct_443)" "(expand-context/inner-observer" -" the-struct_108)" +" the-struct_443)" "(expand-context/inner-for-serializable?" -" the-struct_108)" +" the-struct_443)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_108)))" +" the-struct_443)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_108)))))" +" the-struct_443)))))" "(expand-context/outer1.1" -" inner364_0" -" post-expansion363_0" +" inner364_442" +" post-expansion363_441" "(root-expand-context/outer-use-site-scopes" -" the-struct_107)" +" the-struct_439)" "(root-expand-context/outer-frame-id" -" the-struct_107)" +" the-struct_439)" "(expand-context/outer-context" -" the-struct_107)" +" the-struct_439)" "(expand-context/outer-env" -" the-struct_107)" +" the-struct_439)" "(expand-context/outer-scopes" -" the-struct_107)" -" def-ctx-scopes362_0" +" the-struct_439)" +" def-ctx-scopes362_440" "(expand-context/outer-binding-layer" -" the-struct_107)" +" the-struct_439)" "(expand-context/outer-reference-records" -" the-struct_107)" +" the-struct_439)" "(expand-context/outer-only-immediate?" -" the-struct_107)" +" the-struct_439)" "(expand-context/outer-need-eventually-defined" -" the-struct_107)" +" the-struct_439)" "(expand-context/outer-current-introduction-scopes" -" the-struct_107)" +" the-struct_439)" "(expand-context/outer-current-use-scopes" -" the-struct_107)" +" the-struct_439)" "(expand-context/outer-name" -" the-struct_107)))" +" the-struct_439)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_107))))))" -"(let-values(((partially-expanded-bodys317_0)" -" partially-expanded-bodys_0)" -"((phase318_0)" -" phase_84)" -"((body-ctx319_0)" -" body-ctx_6)" -"((self320_0)" -" self_32)" -"((declared-submodule-names321_0)" -" declared-submodule-names_3)" -"((compiled-submodules322_0)" -" compiled-submodules_1)" -"((modules-being-compiled323_0)" -" modules-being-compiled_3)" -"((mpis-to-reset324_0)" -" mpis-to-reset_0))" +" the-struct_439))))))" +"(let-values(((partially-expanded-bodys317_451)" +" partially-expanded-bodys_392)" +"((phase318_452)" +" phase_0)" +"((body-ctx319_453)" +" body-ctx_393)" +"((self320_454)" +" self_120)" +"((declared-submodule-names321_455)" +" declared-submodule-names_341)" +"((compiled-submodules322_456)" +" compiled-submodules_137)" +"((modules-being-compiled323_457)" +" modules-being-compiled_88)" +"((mpis-to-reset324_458)" +" mpis-to-reset_139))" "(finish-expanding-body-expressons97.1" -" compiled-submodules322_0" -" body-ctx319_0" -" declared-submodule-names321_0" -" modules-being-compiled323_0" -" mpis-to-reset324_0" -" phase318_0" -" self320_0" -" partially-expanded-bodys317_0)))))))))))" -" pass-1-and-2-loop_0)" -" bodys_16" -" phase_7" +" compiled-submodules322_456" +" body-ctx319_453" +" declared-submodule-names321_455" +" modules-being-compiled323_457" +" mpis-to-reset324_458" +" phase318_452" +" self320_454" +" partially-expanded-bodys317_451)))))))))))" +" pass-1-and-2-loop_386)" +" bodys_336" +" phase_116" "(stop-at-module*?" -" ctx_114))))" +" ctx_317))))" "(let-values((()" "(begin" "(check-defined-by-now" -" need-eventually-defined_1" -" self_32" -" ctx_114" -" requires+provides_6)" +" need-eventually-defined_338" +" self_120" +" ctx_317" +" requires+provides_135)" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_133)" +"(let-values(((obs_459)" "(expand-context-observer" -" ctx_114)))" -"(if obs_133" +" ctx_317)))" +"(if obs_459" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_133" +" obs_459" " 'next-group)))" "(void)))" "(values))))" -"(let-values(((fully-expanded-bodys-except-post-submodules_0)" -"(let-values(((expression-expanded-bodys370_0)" -" expression-expanded-bodys_0)" -"((requires+provides371_0)" -" requires+provides_6)" -"((declared-submodule-names372_0)" -" declared-submodule-names_3)" -"((m-ns373_0)" -" m-ns_19)" -"((phase374_0)" -" phase_7)" -"((self375_0)" -" self_32)" -"((ctx376_0)" -" ctx_114))" +"(let-values(((fully-expanded-bodys-except-post-submodules_343)" +"(let-values(((expression-expanded-bodys370_461)" +" expression-expanded-bodys_342)" +"((requires+provides371_462)" +" requires+provides_135)" +"((declared-submodule-names372_463)" +" declared-submodule-names_341)" +"((m-ns373_464)" +" m-ns_132)" +"((phase374_465)" +" phase_116)" +"((self375_466)" +" self_120)" +"((ctx376_467)" +" ctx_317))" "(resolve-provides113.1" -" ctx376_0" -" declared-submodule-names372_0" -" m-ns373_0" -" phase374_0" -" requires+provides371_0" -" self375_0" -" expression-expanded-bodys370_0))))" -"(let-values(((is-cross-phase-persistent?_1)" +" ctx376_467" +" declared-submodule-names372_463" +" m-ns373_464" +" phase374_465" +" requires+provides371_462" +" self375_466" +" expression-expanded-bodys370_461))))" +"(let-values(((is-cross-phase-persistent?_344)" "(hash-ref" -" declared-keywords_0" +" declared-keywords_340" " '#:cross-phase-persistent" " #f)))" "(let-values((()" "(begin" -"(if is-cross-phase-persistent?_1" +"(if is-cross-phase-persistent?_344" "(let-values()" "(begin" "(if(requires+provides-can-cross-phase-persistent?" -" requires+provides_6)" +" requires+provides_135)" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot be cross-phase persistent due to required modules\"" -" rebuild-s_14" +" rebuild-s_114" "(hash-ref" -" declared-keywords_0" +" declared-keywords_340" " '#:cross-phase-persistent))))" "(check-cross-phase-persistent-form" -" fully-expanded-bodys-except-post-submodules_0" -" self_32)))" +" fully-expanded-bodys-except-post-submodules_343" +" self_120)))" "(void))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_134)" +"(let-values(((obs_468)" "(expand-context-observer" -" ctx_114)))" -"(if obs_134" +" ctx_317)))" +"(if obs_468" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_134" +" obs_468" " 'next)))" "(void)))" "(values))))" -"(let-values(((submod-m-ns_0)" -"(let-values(((m-ns377_0)" -" m-ns_19)" -"((temp378_0)" +"(let-values(((submod-m-ns_345)" +"(let-values(((m-ns377_470)" +" m-ns_132)" +"((temp378_471)" " #t))" -"(make-m-ns240_0" -" temp378_0" -" m-ns377_0))))" -"(let-values(((submod-ctx_0)" -"(let-values(((v_263)" -" ctx_114))" -"(let-values(((the-struct_76)" -" v_263))" +"(make-m-ns240_129" +" temp378_471" +" m-ns377_470))))" +"(let-values(((submod-ctx_346)" +"(let-values(((v_472)" +" ctx_317))" +"(let-values(((the-struct_473)" +" v_472))" "(if(expand-context/outer?" -" the-struct_76)" -"(let-values(((frame-id379_0)" +" the-struct_473)" +"(let-values(((frame-id379_474)" " #f)" -"((post-expansion380_0)" +"((post-expansion380_475)" " #f)" -"((inner381_0)" -"(let-values(((the-struct_109)" +"((inner381_476)" +"(let-values(((the-struct_477)" "(root-expand-context/outer-inner" -" v_263)))" +" v_472)))" "(if(expand-context/inner?" -" the-struct_109)" -"(let-values(((namespace382_0)" -" submod-m-ns_0))" +" the-struct_477)" +"(let-values(((namespace382_478)" +" submod-m-ns_345))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_109)" +" the-struct_477)" "(root-expand-context/inner-module-scopes" -" the-struct_109)" +" the-struct_477)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_109)" +" the-struct_477)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_109)" +" the-struct_477)" "(root-expand-context/inner-defined-syms" -" the-struct_109)" +" the-struct_477)" "(root-expand-context/inner-counter" -" the-struct_109)" +" the-struct_477)" "(root-expand-context/inner-lift-key" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-to-parsed?" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-phase" -" the-struct_109)" -" namespace382_0" +" the-struct_477)" +" namespace382_478" "(expand-context/inner-just-once?" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-module-begin-k" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-allow-unbound?" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-in-local-expand?" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-keep-#%expression?" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-stops" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-declared-submodule-names" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-lifts" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-lift-envs" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-module-lifts" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-require-lifts" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-to-module-lifts" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-requires+provides" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-observer" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-for-serializable?" -" the-struct_109)" +" the-struct_477)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_109)))" +" the-struct_477)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_109)))))" +" the-struct_477)))))" "(expand-context/outer1.1" -" inner381_0" -" post-expansion380_0" +" inner381_476" +" post-expansion380_475" "(root-expand-context/outer-use-site-scopes" -" the-struct_76)" -" frame-id379_0" +" the-struct_473)" +" frame-id379_474" "(expand-context/outer-context" -" the-struct_76)" +" the-struct_473)" "(expand-context/outer-env" -" the-struct_76)" +" the-struct_473)" "(expand-context/outer-scopes" -" the-struct_76)" +" the-struct_473)" "(expand-context/outer-def-ctx-scopes" -" the-struct_76)" +" the-struct_473)" "(expand-context/outer-binding-layer" -" the-struct_76)" +" the-struct_473)" "(expand-context/outer-reference-records" -" the-struct_76)" +" the-struct_473)" "(expand-context/outer-only-immediate?" -" the-struct_76)" +" the-struct_473)" "(expand-context/outer-need-eventually-defined" -" the-struct_76)" +" the-struct_473)" "(expand-context/outer-current-introduction-scopes" -" the-struct_76)" +" the-struct_473)" "(expand-context/outer-current-use-scopes" -" the-struct_76)" +" the-struct_473)" "(expand-context/outer-name" -" the-struct_76)))" +" the-struct_473)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_76))))))" -"(let-values(((declare-enclosing-module_0)" +" the-struct_473))))))" +"(let-values(((declare-enclosing-module_347)" "(promise1.1" "(lambda()" -"(let-values(((fully-expanded-bodys-except-post-submodules383_0)" -" fully-expanded-bodys-except-post-submodules_0)" -"((temp384_0)" -" id:module-name225_0)" -"((rebuild-s385_0)" -" rebuild-s_14)" -"((requires+provides386_0)" -" requires+provides_6)" -"((submod-m-ns387_0)" -" submod-m-ns_0)" -"((self388_0)" -" self_32)" -"((enclosing-self389_0)" -" enclosing-self_1)" -"((root-ctx390_0)" -" root-ctx_6)" -"((submod-ctx391_0)" -" submod-ctx_0)" -"((modules-being-compiled392_0)" -" modules-being-compiled_3)" -"((compiled-module-box393_0)" -" compiled-module-box_0))" +"(let-values(((fully-expanded-bodys-except-post-submodules383_480)" +" fully-expanded-bodys-except-post-submodules_343)" +"((temp384_481)" +" id:module-name225_92)" +"((rebuild-s385_482)" +" rebuild-s_114)" +"((requires+provides386_483)" +" requires+provides_135)" +"((submod-m-ns387_484)" +" submod-m-ns_345)" +"((self388_485)" +" self_120)" +"((enclosing-self389_486)" +" enclosing-self_82)" +"((root-ctx390_487)" +" root-ctx_125)" +"((submod-ctx391_488)" +" submod-ctx_346)" +"((modules-being-compiled392_489)" +" modules-being-compiled_88)" +"((compiled-module-box393_490)" +" compiled-module-box_138))" "(declare-module-for-expansion137.1" -" submod-ctx391_0" -" enclosing-self389_0" -" compiled-module-box393_0" -" temp384_0" -" modules-being-compiled392_0" -" submod-m-ns387_0" -" rebuild-s385_0" -" requires+provides386_0" -" root-ctx390_0" -" self388_0" -" fully-expanded-bodys-except-post-submodules383_0)))" +" submod-ctx391_488" +" enclosing-self389_486" +" compiled-module-box393_490" +" temp384_481" +" modules-being-compiled392_489" +" submod-m-ns387_484" +" rebuild-s385_482" +" requires+provides386_483" +" root-ctx390_487" +" self388_485" +" fully-expanded-bodys-except-post-submodules383_480)))" " #f)))" -"(let-values(((fully-expanded-bodys_0)" +"(let-values(((fully-expanded-bodys_348)" "(if(stop-at-module*?" -" submod-ctx_0)" +" submod-ctx_346)" "(let-values()" -" fully-expanded-bodys-except-post-submodules_0)" +" fully-expanded-bodys-except-post-submodules_343)" "(let-values()" -"(let-values(((fully-expanded-bodys-except-post-submodules394_0)" -" fully-expanded-bodys-except-post-submodules_0)" -"((declare-enclosing-module395_0)" -" declare-enclosing-module_0)" -"((phase396_0)" -" phase_7)" -"((self397_0)" -" self_32)" -"((requires+provides398_0)" -" requires+provides_6)" -"((is-cross-phase-persistent?399_0)" -" is-cross-phase-persistent?_1)" -"((all-scopes-s400_0)" -" all-scopes-s_0)" -"((mpis-to-reset401_0)" -" mpis-to-reset_0)" -"((declared-submodule-names402_0)" -" declared-submodule-names_3)" -"((compiled-submodules403_0)" -" compiled-submodules_1)" -"((modules-being-compiled404_0)" -" modules-being-compiled_3)" -"((submod-ctx405_0)" -" submod-ctx_0))" +"(let-values(((fully-expanded-bodys-except-post-submodules394_492)" +" fully-expanded-bodys-except-post-submodules_343)" +"((declare-enclosing-module395_493)" +" declare-enclosing-module_347)" +"((phase396_494)" +" phase_116)" +"((self397_495)" +" self_120)" +"((requires+provides398_496)" +" requires+provides_135)" +"((is-cross-phase-persistent?399_497)" +" is-cross-phase-persistent?_344)" +"((all-scopes-s400_498)" +" all-scopes-s_124)" +"((mpis-to-reset401_499)" +" mpis-to-reset_139)" +"((declared-submodule-names402_500)" +" declared-submodule-names_341)" +"((compiled-submodules403_501)" +" compiled-submodules_137)" +"((modules-being-compiled404_502)" +" modules-being-compiled_88)" +"((submod-ctx405_503)" +" submod-ctx_346))" "(expand-post-submodules163.1" -" all-scopes-s400_0" -" compiled-submodules403_0" -" submod-ctx405_0" -" declare-enclosing-module395_0" -" declared-submodule-names402_0" -" is-cross-phase-persistent?399_0" -" modules-being-compiled404_0" -" mpis-to-reset401_0" -" phase396_0" -" requires+provides398_0" -" self397_0" -" fully-expanded-bodys-except-post-submodules394_0))))))" +" all-scopes-s400_498" +" compiled-submodules403_501" +" submod-ctx405_503" +" declare-enclosing-module395_493" +" declared-submodule-names402_500" +" is-cross-phase-persistent?399_497" +" modules-being-compiled404_502" +" mpis-to-reset401_499" +" phase396_494" +" requires+provides398_496" +" self397_495" +" fully-expanded-bodys-except-post-submodules394_492))))))" "(if(expand-context-to-parsed?" -" submod-ctx_0)" +" submod-ctx_346)" "(let-values()" "(parsed-#%module-begin24.1" -" rebuild-mb-s_0" +" rebuild-mb-s_337" "(parsed-only" -" fully-expanded-bodys_0)))" +" fully-expanded-bodys_348)))" "(let-values()" -"(let-values(((mb-result-s_0)" -"(let-values(((rebuild-mb-s406_0)" -" rebuild-mb-s_0)" -"((temp407_0)" +"(let-values(((mb-result-s_504)" +"(let-values(((rebuild-mb-s406_505)" +" rebuild-mb-s_337)" +"((temp407_506)" "(list*" -" #%module-begin297_0" +" #%module-begin297_321" "(syntax-only" -" fully-expanded-bodys_0))))" +" fully-expanded-bodys_348))))" "(rebuild5.1" " #t" -" rebuild-mb-s406_0" -" temp407_0))))" +" rebuild-mb-s406_505" +" temp407_506))))" "(if(not" "(expand-context-in-local-expand?" -" submod-ctx_0))" +" submod-ctx_346))" "(let-values()" "(expanded+parsed1.1" -" mb-result-s_0" +" mb-result-s_504" "(parsed-#%module-begin24.1" -" rebuild-mb-s_0" +" rebuild-mb-s_337" "(parsed-only" -" fully-expanded-bodys_0))))" +" fully-expanded-bodys_348))))" "(let-values()" -" mb-result-s_0)))))))))))))))))))))))))))))))))" -"(let-values(((mb-ctx_0)" -"(let-values(((v_264)" -" ctx_113))" -"(let-values(((the-struct_110)" -" v_264))" +" mb-result-s_504)))))))))))))))))))))))))))))))))" +"(let-values(((mb-ctx_151)" +"(let-values(((v_507)" +" ctx_133))" +"(let-values(((the-struct_508)" +" v_507))" "(if(expand-context/outer?" -" the-struct_110)" -"(let-values(((context408_0)" +" the-struct_508)" +"(let-values(((context408_509)" " 'module-begin)" -"((inner409_0)" -"(let-values(((the-struct_111)" +"((inner409_510)" +"(let-values(((the-struct_511)" "(root-expand-context/outer-inner" -" v_264)))" +" v_507)))" "(if(expand-context/inner?" -" the-struct_111)" -"(let-values(((module-begin-k410_0)" -" module-begin-k_1)" -"((in-local-expand?411_0)" +" the-struct_511)" +"(let-values(((module-begin-k410_512)" +" module-begin-k_150)" +"((in-local-expand?411_513)" " #f)" -"((lifts412_0)" +"((lifts412_514)" " #f)" -"((module-lifts413_0)" +"((module-lifts413_515)" " #f)" -"((to-module-lifts414_0)" +"((to-module-lifts414_516)" " #f)" -"((require-lifts415_0)" +"((require-lifts415_517)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_111)" +" the-struct_511)" "(root-expand-context/inner-module-scopes" -" the-struct_111)" +" the-struct_511)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_111)" +" the-struct_511)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_111)" +" the-struct_511)" "(root-expand-context/inner-defined-syms" -" the-struct_111)" +" the-struct_511)" "(root-expand-context/inner-counter" -" the-struct_111)" +" the-struct_511)" "(root-expand-context/inner-lift-key" -" the-struct_111)" +" the-struct_511)" "(expand-context/inner-to-parsed?" -" the-struct_111)" +" the-struct_511)" "(expand-context/inner-phase" -" the-struct_111)" +" the-struct_511)" "(expand-context/inner-namespace" -" the-struct_111)" +" the-struct_511)" "(expand-context/inner-just-once?" -" the-struct_111)" -" module-begin-k410_0" +" the-struct_511)" +" module-begin-k410_512" "(expand-context/inner-allow-unbound?" -" the-struct_111)" -" in-local-expand?411_0" +" the-struct_511)" +" in-local-expand?411_513" "(expand-context/inner-keep-#%expression?" -" the-struct_111)" +" the-struct_511)" "(expand-context/inner-stops" -" the-struct_111)" +" the-struct_511)" "(expand-context/inner-declared-submodule-names" -" the-struct_111)" -" lifts412_0" +" the-struct_511)" +" lifts412_514" "(expand-context/inner-lift-envs" -" the-struct_111)" -" module-lifts413_0" -" require-lifts415_0" -" to-module-lifts414_0" +" the-struct_511)" +" module-lifts413_515" +" require-lifts415_517" +" to-module-lifts414_516" "(expand-context/inner-requires+provides" -" the-struct_111)" +" the-struct_511)" "(expand-context/inner-observer" -" the-struct_111)" +" the-struct_511)" "(expand-context/inner-for-serializable?" -" the-struct_111)" +" the-struct_511)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_111)))" +" the-struct_511)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_111)))))" +" the-struct_511)))))" "(expand-context/outer1.1" -" inner409_0" +" inner409_510" "(root-expand-context/outer-post-expansion" -" the-struct_110)" +" the-struct_508)" "(root-expand-context/outer-use-site-scopes" -" the-struct_110)" +" the-struct_508)" "(root-expand-context/outer-frame-id" -" the-struct_110)" -" context408_0" +" the-struct_508)" +" context408_509" "(expand-context/outer-env" -" the-struct_110)" +" the-struct_508)" "(expand-context/outer-scopes" -" the-struct_110)" +" the-struct_508)" "(expand-context/outer-def-ctx-scopes" -" the-struct_110)" +" the-struct_508)" "(expand-context/outer-binding-layer" -" the-struct_110)" +" the-struct_508)" "(expand-context/outer-reference-records" -" the-struct_110)" +" the-struct_508)" "(expand-context/outer-only-immediate?" -" the-struct_110)" +" the-struct_508)" "(expand-context/outer-need-eventually-defined" -" the-struct_110)" +" the-struct_508)" "(expand-context/outer-current-introduction-scopes" -" the-struct_110)" +" the-struct_508)" "(expand-context/outer-current-use-scopes" -" the-struct_110)" +" the-struct_508)" "(expand-context/outer-name" -" the-struct_110)))" +" the-struct_508)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_110))))))" -"(let-values(((mb-scopes-s_0)" -"(if keep-enclosing-scope-at-phase_0" -"(apply-module-scopes_0" -" disarmed-s_24)" -" all-scopes-s_0)))" -"(let-values(((mb-def-ctx-scopes_0)" +" the-struct_508))))))" +"(let-values(((mb-scopes-s_152)" +"(if keep-enclosing-scope-at-phase_84" +"(apply-module-scopes_122" +" disarmed-s_89)" +" all-scopes-s_124)))" +"(let-values(((mb-def-ctx-scopes_153)" "(box" " null)))" -"(let-values(((mb_0)" -"(let-values(((bodys416_0)" -" bodys_15)" -"((module-name-sym417_0)" -" module-name-sym_0)" -"((mb-scopes-s418_0)" -" mb-scopes-s_0)" -"((m-ns419_0)" -" m-ns_19)" -"((mb-ctx420_0)" -" mb-ctx_0)" -"((mb-def-ctx-scopes421_0)" -" mb-def-ctx-scopes_0)" -"((phase422_0)" -" phase_7)" -"((s423_0)" -" s_450))" +"(let-values(((mb_154)" +"(let-values(((bodys416_519)" +" bodys_134)" +"((module-name-sym417_520)" +" module-name-sym_117)" +"((mb-scopes-s418_521)" +" mb-scopes-s_152)" +"((m-ns419_522)" +" m-ns_132)" +"((mb-ctx420_523)" +" mb-ctx_151)" +"((mb-def-ctx-scopes421_524)" +" mb-def-ctx-scopes_153)" +"((phase422_525)" +" phase_116)" +"((s423_526)" +" s_80))" "(ensure-module-begin34.1" -" mb-ctx420_0" -" mb-def-ctx-scopes421_0" -" m-ns419_0" -" module-name-sym417_0" -" phase422_0" -" s423_0" -" mb-scopes-s418_0" -" bodys416_0))))" -"(let-values(((expanded-mb_0)" +" mb-ctx420_523" +" mb-def-ctx-scopes421_524" +" m-ns419_522" +" module-name-sym417_520" +" phase422_525" +" s423_526" +" mb-scopes-s418_521" +" bodys416_519))))" +"(let-values(((expanded-mb_155)" "(let-values()" -"(let-values(((mb424_0)" -" mb_0)" -"((temp425_0)" -"(let-values(((v_265)" +"(let-values(((mb424_527)" +" mb_154)" +"((temp425_528)" +"(let-values(((v_529)" "(accumulate-def-ctx-scopes" -" mb-ctx_0" -" mb-def-ctx-scopes_0)))" -"(let-values(((the-struct_112)" -" v_265))" +" mb-ctx_151" +" mb-def-ctx-scopes_153)))" +"(let-values(((the-struct_530)" +" v_529))" "(if(expand-context/outer?" -" the-struct_112)" -"(let-values(((def-ctx-scopes426_0)" +" the-struct_530)" +"(let-values(((def-ctx-scopes426_531)" " #f)" -"((inner427_0)" +"((inner427_532)" "(root-expand-context/outer-inner" -" v_265)))" +" v_529)))" "(expand-context/outer1.1" -" inner427_0" +" inner427_532" "(root-expand-context/outer-post-expansion" -" the-struct_112)" +" the-struct_530)" "(root-expand-context/outer-use-site-scopes" -" the-struct_112)" +" the-struct_530)" "(root-expand-context/outer-frame-id" -" the-struct_112)" +" the-struct_530)" "(expand-context/outer-context" -" the-struct_112)" +" the-struct_530)" "(expand-context/outer-env" -" the-struct_112)" +" the-struct_530)" "(expand-context/outer-scopes" -" the-struct_112)" -" def-ctx-scopes426_0" +" the-struct_530)" +" def-ctx-scopes426_531" "(expand-context/outer-binding-layer" -" the-struct_112)" +" the-struct_530)" "(expand-context/outer-reference-records" -" the-struct_112)" +" the-struct_530)" "(expand-context/outer-only-immediate?" -" the-struct_112)" +" the-struct_530)" "(expand-context/outer-need-eventually-defined" -" the-struct_112)" +" the-struct_530)" "(expand-context/outer-current-introduction-scopes" -" the-struct_112)" +" the-struct_530)" "(expand-context/outer-current-use-scopes" -" the-struct_112)" +" the-struct_530)" "(expand-context/outer-name" -" the-struct_112)))" +" the-struct_530)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_112))))))" +" the-struct_530))))))" "(expand9.1" " #f" " #f" " #f" -" mb424_0" -" temp425_0)))))" -"(let-values(((requires_6" -" provides_13)" +" mb424_527" +" temp425_528)))))" +"(let-values(((requires_156" +" provides_157)" "(extract-requires-and-provides" -" requires+provides_6" -" self_32" -" self_32)))" -"(let-values(((result-form_0)" -"(if(let-values(((or-part_188)" +" requires+provides_135" +" self_120" +" self_120)))" +"(let-values(((result-form_158)" +"(if(let-values(((or-part_533)" "(expand-context-to-parsed?" -" init-ctx_0)))" -"(if or-part_188" -" or-part_188" -" always-produce-compiled?_0))" +" init-ctx_81)))" +"(if or-part_533" +" or-part_533" +" always-produce-compiled?_83))" "(parsed-module25.1" -" rebuild-s_14" +" rebuild-s_114" " #f" -" id:module-name225_0" -" self_32" -" requires_6" -" provides_13" +" id:module-name225_92" +" self_120" +" requires_156" +" provides_157" "(requires+provides-all-bindings-simple?" -" requires+provides_6)" +" requires+provides_135)" "(root-expand-context-encode-for-module" -" root-ctx_6" -" self_32" -" self_32)" +" root-ctx_125" +" self_120" +" self_120)" "(parsed-#%module-begin-body" "(if(expanded+parsed?" -" expanded-mb_0)" +" expanded-mb_155)" "(expanded+parsed-parsed" -" expanded-mb_0)" -" expanded-mb_0))" +" expanded-mb_155)" +" expanded-mb_155))" "(unbox" -" compiled-module-box_0)" -" compiled-submodules_1)" +" compiled-module-box_138)" +" compiled-submodules_137)" " #f)))" -"(let-values(((result-s_14)" +"(let-values(((result-s_159)" "(if(not" "(expand-context-to-parsed?" -" init-ctx_0))" +" init-ctx_81))" "(let-values()" -"(let-values(((generic-self_0)" +"(let-values(((generic-self_534)" "(make-generic-self-module-path-index" -" self_32)))" +" self_120)))" "(begin" "(imitate-generic-module-path-index!" -" self_32)" -"(let-values(((lst_426)" +" self_120)" +"(let-values(((lst_535)" "(unbox" -" mpis-to-reset_0)))" +" mpis-to-reset_139)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_426)))" -"((letrec-values(((for-loop_330)" -"(lambda(lst_427)" +" lst_535)))" +"((letrec-values(((for-loop_536)" +"(lambda(lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_427)" -"(let-values(((mpi_55)" +" lst_0)" +"(let-values(((mpi_538)" "(unsafe-car" -" lst_427))" -"((rest_250)" +" lst_0))" +"((rest_539)" "(unsafe-cdr" -" lst_427)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72984,307 +73403,313 @@ static const char *startup_source = "(begin" "(let-values()" "(imitate-generic-module-path-index!" -" mpi_55))" +" mpi_538))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_330" -" rest_250)" +"(for-loop_536" +" rest_539)" "(values))))" "(values))))))" -" for-loop_330)" -" lst_426)))" +" for-loop_536)" +" lst_535)))" "(void)" -"(let-values(((result-s_15)" -"(let-values(((rebuild-s428_0)" -" rebuild-s_14)" -"((temp429_0)" +"(let-values(((result-s_540)" +"(let-values(((rebuild-s428_541)" +" rebuild-s_114)" +"((temp429_542)" "(list" -" module224_0" -" id:module-name225_0" -" initial-require-s_0" +" module224_91" +" id:module-name225_92" +" initial-require-s_123" "(expanded+parsed-s" -" expanded-mb_0))))" +" expanded-mb_155))))" "(rebuild5.1" " #t" -" rebuild-s428_0" -" temp429_0))))" -"(let-values(((result-s_16)" -"(let-values(((result-s430_0)" -" result-s_15)" -"((self431_0)" -" self_32)" -"((generic-self432_0)" -" generic-self_0))" +" rebuild-s428_541" +" temp429_542))))" +"(let-values(((result-s_543)" +"(let-values(((result-s430_544)" +" result-s_540)" +"((self431_545)" +" self_120)" +"((generic-self432_546)" +" generic-self_534))" "(syntax-module-path-index-shift13.1" " #f" -" result-s430_0" -" self431_0" -" generic-self432_0" +" result-s430_544" +" self431_545" +" generic-self432_546" " #f))))" -"(let-values(((result-s_17)" +"(let-values(((result-s_547)" "(attach-root-expand-context-properties" -" result-s_16" -" root-ctx_6" -" self_32" -" generic-self_0)))" -"(let-values(((result-s_18)" +" result-s_543" +" root-ctx_125" +" self_120" +" generic-self_534)))" +"(let-values(((result-s_548)" "(if(requires+provides-all-bindings-simple?" -" requires+provides_6)" +" requires+provides_135)" "(syntax-property$1" -" result-s_17" +" result-s_547" " 'module-body-context-simple?" " #t)" -" result-s_17)))" +" result-s_547)))" "(begin" -"(let-values(((obs_135)" +"(let-values(((obs_549)" "(expand-context-observer" -" init-ctx_0)))" -"(if obs_135" +" init-ctx_81)))" +"(if obs_549" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_135" +" obs_549" " 'rename-one" -" result-s_18)))" +" result-s_548)))" "(void)))" -" result-s_18))))))))" +" result-s_548))))))))" "(void))))" "(if(expand-context-to-parsed?" -" init-ctx_0)" +" init-ctx_81)" "(let-values()" -" result-form_0)" -"(if always-produce-compiled?_0" +" result-form_158)" +"(if always-produce-compiled?_83" "(let-values()" "(expanded+parsed1.1" -" result-s_14" -" result-form_0))" +" result-s_159" +" result-form_158))" "(let-values()" -" result-s_14)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))" +" result-s_159)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(ensure-module-begin34.1)" -"(lambda(ctx22_0 def-ctx-scopes23_0 m-ns21_0 module-name-sym19_0 phase24_4 s25_0 scopes-s20_0 bodys33_0)" +"(lambda(ctx22_0 def-ctx-scopes23_0 m-ns21_0 module-name-sym19_0 phase24_0 s25_0 scopes-s20_0 bodys33_0)" "(begin" " 'ensure-module-begin34" -"(let-values(((bodys_18) bodys33_0))" -"(let-values(((module-name-sym_1) module-name-sym19_0))" -"(let-values(((scopes-s_0) scopes-s20_0))" +"(let-values(((bodys_614) bodys33_0))" +"(let-values(((module-name-sym_615) module-name-sym19_0))" +"(let-values(((scopes-s_616) scopes-s20_0))" "(let-values()" -"(let-values(((ctx_73) ctx22_0))" -"(let-values(((def-ctx-scopes_9) def-ctx-scopes23_0))" -"(let-values(((phase_145) phase24_4))" -"(let-values(((s_812) s25_0))" +"(let-values(((ctx_618) ctx22_0))" +"(let-values(((def-ctx-scopes_619) def-ctx-scopes23_0))" +"(let-values(((phase_620) phase24_0))" +"(let-values(((s_621) s25_0))" "(let-values()" -"(let-values(((make-mb-ctx_0)" +"(let-values(((make-mb-ctx_622)" "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_266) ctx_73))" -"(let-values(((the-struct_113) v_266))" -"(if(expand-context/outer? the-struct_113)" -"(let-values(((context433_0) 'module-begin)" -"((only-immediate?434_0) #t)" -"((def-ctx-scopes435_0) def-ctx-scopes_9)" -"((inner436_0)(root-expand-context/outer-inner v_266)))" +"(let-values(((v_624) ctx_618))" +"(let-values(((the-struct_625) v_624))" +"(if(expand-context/outer? the-struct_625)" +"(let-values(((context433_626) 'module-begin)" +"((only-immediate?434_627) #t)" +"((def-ctx-scopes435_628) def-ctx-scopes_619)" +"((inner436_629)(root-expand-context/outer-inner v_624)))" "(expand-context/outer1.1" -" inner436_0" -"(root-expand-context/outer-post-expansion the-struct_113)" -"(root-expand-context/outer-use-site-scopes the-struct_113)" -"(root-expand-context/outer-frame-id the-struct_113)" -" context433_0" -"(expand-context/outer-env the-struct_113)" -"(expand-context/outer-scopes the-struct_113)" -" def-ctx-scopes435_0" -"(expand-context/outer-binding-layer the-struct_113)" -"(expand-context/outer-reference-records the-struct_113)" -" only-immediate?434_0" -"(expand-context/outer-need-eventually-defined the-struct_113)" -"(expand-context/outer-current-introduction-scopes the-struct_113)" -"(expand-context/outer-current-use-scopes the-struct_113)" -"(expand-context/outer-name the-struct_113)))" +" inner436_629" +"(root-expand-context/outer-post-expansion the-struct_625)" +"(root-expand-context/outer-use-site-scopes the-struct_625)" +"(root-expand-context/outer-frame-id the-struct_625)" +" context433_626" +"(expand-context/outer-env the-struct_625)" +"(expand-context/outer-scopes the-struct_625)" +" def-ctx-scopes435_628" +"(expand-context/outer-binding-layer the-struct_625)" +"(expand-context/outer-reference-records the-struct_625)" +" only-immediate?434_627" +"(expand-context/outer-need-eventually-defined the-struct_625)" +"(expand-context/outer-current-introduction-scopes the-struct_625)" +"(expand-context/outer-current-use-scopes the-struct_625)" +"(expand-context/outer-name the-struct_625)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_113))))))))" -"(let-values(((mb_1)" -"(if(= 1(length bodys_18))" +" the-struct_625))))))))" +"(let-values(((mb_623)" +"(if(= 1(length bodys_614))" "(let-values()" "(begin" -"(let-values(((obs_136)(expand-context-observer ctx_73)))" -"(if obs_136" +"(let-values(((obs_630)(expand-context-observer ctx_618)))" +"(if obs_630" "(let-values()" "(let-values()" -"(call-expand-observe obs_136 'rename-one(car bodys_18))))" +"(call-expand-observe obs_630 'rename-one(car bodys_614))))" "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_145))" -"(let-values()(car bodys_18))" +"(core-form-sym(syntax-disarm$1(car bodys_614)) phase_620))" +"(let-values()(car bodys_614))" "(let-values()" -"(let-values(((partly-expanded-body_0)" +"(let-values(((partly-expanded-body_631)" "(let-values()" -"(let-values(((temp437_0)" +"(let-values(((temp437_632)" "(add-enclosing-name-property" -"(car bodys_18)" -" module-name-sym_1))" -"((temp438_0)(make-mb-ctx_0)))" -"(expand9.1 #f #f #f temp437_0 temp438_0)))))" +"(car bodys_614)" +" module-name-sym_615))" +"((temp438_633)(make-mb-ctx_622)))" +"(expand9.1 #f #f #f temp437_632 temp438_633)))))" "(if(eq?" " '#%module-begin" "(core-form-sym" -"(syntax-disarm$1 partly-expanded-body_0)" -" phase_145))" -"(let-values() partly-expanded-body_0)" +"(syntax-disarm$1 partly-expanded-body_631)" +" phase_620))" +"(let-values() partly-expanded-body_631)" "(let-values()" -"(let-values(((temp439_0)(list partly-expanded-body_0))" -"((s440_0) s_812)" -"((scopes-s441_0) scopes-s_0)" -"((phase442_0) phase_145)" -"((module-name-sym443_0) module-name-sym_1)" -"((temp444_0)(make-mb-ctx_0))" -"((temp445_0) #f))" +"(let-values(((temp439_635)(list partly-expanded-body_631))" +"((s440_636) s_621)" +"((scopes-s441_637) scopes-s_616)" +"((phase442_638) phase_620)" +"((module-name-sym443_639) module-name-sym_615)" +"((temp444_640)(make-mb-ctx_622))" +"((temp445_641) #f))" "(add-module-begin45.1" -" temp445_0" -" temp439_0" -" s440_0" -" scopes-s441_0" -" phase442_0" -" module-name-sym443_0" -" temp444_0)))))))))" +" temp445_641" +" temp439_635" +" s440_636" +" scopes-s441_637" +" phase442_638" +" module-name-sym443_639" +" temp444_640)))))))))" "(let-values()" -"(let-values(((bodys446_0) bodys_18)" -"((s447_0) s_812)" -"((scopes-s448_0) scopes-s_0)" -"((phase449_0) phase_145)" -"((module-name-sym450_0) module-name-sym_1)" -"((temp451_0)(make-mb-ctx_0)))" +"(let-values(((bodys446_642) bodys_614)" +"((s447_643) s_621)" +"((scopes-s448_644) scopes-s_616)" +"((phase449_645) phase_620)" +"((module-name-sym450_646) module-name-sym_615)" +"((temp451_647)(make-mb-ctx_622)))" "(add-module-begin45.1" " #t" -" bodys446_0" -" s447_0" -" scopes-s448_0" -" phase449_0" -" module-name-sym450_0" -" temp451_0))))))" -"(add-enclosing-name-property mb_1 module-name-sym_1)))))))))))))))" +" bodys446_642" +" s447_643" +" scopes-s448_644" +" phase449_645" +" module-name-sym450_646" +" temp451_647))))))" +"(add-enclosing-name-property mb_623 module-name-sym_615)))))))))))))))" "(define-values" "(add-module-begin45.1)" -"(lambda(log-rename-one?37_0 bodys39_0 s40_1 scopes-s41_0 phase42_1 module-name-sym43_0 mb-ctx44_0)" +"(lambda(log-rename-one?37_0 bodys39_0 s40_0 scopes-s41_0 phase42_0 module-name-sym43_0 mb-ctx44_0)" "(begin" " 'add-module-begin45" -"(let-values(((bodys_19) bodys39_0))" -"(let-values(((s_813) s40_1))" -"(let-values(((scopes-s_1) scopes-s41_0))" -"(let-values(((phase_106) phase42_1))" -"(let-values(((module-name-sym_2) module-name-sym43_0))" -"(let-values(((mb-ctx_1) mb-ctx44_0))" -"(let-values(((log-rename-one?_0) log-rename-one?37_0))" +"(let-values(((bodys_689) bodys39_0))" +"(let-values(((s_690) s40_0))" +"(let-values(((scopes-s_691) scopes-s41_0))" +"(let-values(((phase_692) phase42_0))" +"(let-values(((module-name-sym_693) module-name-sym43_0))" +"(let-values(((mb-ctx_694) mb-ctx44_0))" +"(let-values(((log-rename-one?_695) log-rename-one?37_0))" "(let-values()" -"(let-values(((disarmed-scopes-s_0)(syntax-disarm$1 scopes-s_1)))" -"(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))" +"(let-values(((disarmed-scopes-s_696)(syntax-disarm$1 scopes-s_691)))" +"(let-values(((mb-id_697)(datum->syntax$1 disarmed-scopes-s_696 '#%module-begin)))" "(let-values((()" "(begin" -"(if(let-values(((mb-id452_0) mb-id_0)((phase453_0) phase_106))" -"(resolve40.1 #f #f null #f mb-id452_0 phase453_0))" +"(if(let-values(((mb-id452_700) mb-id_697)((phase453_701) phase_692))" +"(resolve40.1 #f #f null #f mb-id452_700 phase453_701))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_813)))" +" s_690)))" "(values))))" -"(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_813 s_813)))" +"(let-values(((mb_698)" +"(datum->syntax$1" +" disarmed-scopes-s_696" +"(list* mb-id_697 bodys_689)" +" s_690" +" s_690)))" "(let-values((()" "(begin" -"(let-values(((obs_137)(expand-context-observer mb-ctx_1)))" -"(if obs_137" +"(let-values(((obs_702)(expand-context-observer mb-ctx_694)))" +"(if obs_702" "(let-values()" -"(let-values()(call-expand-observe obs_137 'tag mb_2)))" +"(let-values()(call-expand-observe obs_702 'tag mb_698)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(if log-rename-one?_0" +"(if log-rename-one?_695" "(let-values()" -"(let-values(((obs_138)(expand-context-observer mb-ctx_1)))" -"(if obs_138" +"(let-values(((obs_703)(expand-context-observer mb-ctx_694)))" +"(if obs_703" "(let-values()" "(let-values()" -"(call-expand-observe obs_138 'rename-one mb_2)))" +"(call-expand-observe obs_703 'rename-one mb_698)))" "(void))))" "(void))" "(values))))" -"(let-values(((partly-expanded-mb_0)" +"(let-values(((partly-expanded-mb_699)" "(let-values()" -"(let-values(((temp454_1)" -"(add-enclosing-name-property mb_2 module-name-sym_2))" -"((mb-ctx455_0) mb-ctx_1))" -"(expand9.1 #f #f #f temp454_1 mb-ctx455_0)))))" +"(let-values(((temp454_704)" +"(add-enclosing-name-property" +" mb_698" +" module-name-sym_693))" +"((mb-ctx455_705) mb-ctx_694))" +"(expand9.1 #f #f #f temp454_704 mb-ctx455_705)))))" "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_106))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_699) phase_692))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_813" -" partly-expanded-mb_0)))" -" partly-expanded-mb_0)))))))))))))))))))" +" s_690" +" partly-expanded-mb_699)))" +" partly-expanded-mb_699)))))))))))))))))))" "(define-values" "(add-enclosing-name-property)" -"(lambda(stx_21 module-name-sym_3)(begin(syntax-property$1 stx_21 'enclosing-module-name module-name-sym_3))))" +"(lambda(stx_0 module-name-sym_0)(begin(syntax-property$1 stx_0 'enclosing-module-name module-name-sym_0))))" "(define-values" "(make-apply-module-scopes)" -"(lambda(inside-scope_1" -" outside-scope_2" -" init-ctx_1" -" keep-enclosing-scope-at-phase_1" -" self_33" -" enclosing-self_2" -" enclosing-mod_2)" +"(lambda(inside-scope_0" +" outside-scope_0" +" init-ctx_0" +" keep-enclosing-scope-at-phase_0" +" self_0" +" enclosing-self_0" +" enclosing-mod_0)" "(begin" -"(lambda(s_814)" +"(lambda(s_0)" "(let-values()" -"(let-values(((s-without-enclosing_0)" -"(if keep-enclosing-scope-at-phase_1" -" s_814" +"(let-values(((s-without-enclosing_745)" +"(if keep-enclosing-scope-at-phase_0" +" s_0" "(remove-use-site-scopes" -"(remove-scopes s_814(root-expand-context-module-scopes init-ctx_1))" -" init-ctx_1))))" -"(let-values(((s-with-edges_0)" -"(add-scope(add-scope s-without-enclosing_0 outside-scope_2) inside-scope_1)))" -"(let-values(((s-with-suitable-enclosing_0)" -"(if keep-enclosing-scope-at-phase_1" +"(remove-scopes s_0(root-expand-context-module-scopes init-ctx_0))" +" init-ctx_0))))" +"(let-values(((s-with-edges_746)" +"(add-scope(add-scope s-without-enclosing_745 outside-scope_0) inside-scope_0)))" +"(let-values(((s-with-suitable-enclosing_747)" +"(if keep-enclosing-scope-at-phase_0" "(let-values()" -"(let-values(((s-with-edges460_0) s-with-edges_0)" -"((enclosing-self461_0) enclosing-self_2)" -"((enclosing-mod462_0) enclosing-mod_2))" +"(let-values(((s-with-edges460_748) s-with-edges_746)" +"((enclosing-self461_749) enclosing-self_0)" +"((enclosing-mod462_750) enclosing-mod_0))" "(syntax-module-path-index-shift13.1" " #f" -" s-with-edges460_0" -" enclosing-self461_0" -" enclosing-mod462_0" +" s-with-edges460_748" +" enclosing-self461_749" +" enclosing-mod462_750" " #f)))" -"(let-values() s-with-edges_0))))" -"(let-values(((s-with-suitable-enclosing456_0) s-with-suitable-enclosing_0)" -"((temp457_0)(make-generic-self-module-path-index self_33))" -"((self458_0) self_33)" -"((temp459_0)(current-code-inspector)))" +"(let-values() s-with-edges_746))))" +"(let-values(((s-with-suitable-enclosing456_751) s-with-suitable-enclosing_747)" +"((temp457_752)(make-generic-self-module-path-index self_0))" +"((self458_753) self_0)" +"((temp459_754)(current-code-inspector)))" "(syntax-module-path-index-shift13.1" " #f" -" s-with-suitable-enclosing456_0" -" temp457_0" -" self458_0" -" temp459_0))))))))))" +" s-with-suitable-enclosing456_751" +" temp457_752" +" self458_753" +" temp459_754))))))))))" "(define-values" "(partially-expand-bodys79.1)" "(lambda(all-scopes-stx55_0" " compiled-submodules59_0" -" ctx49_1" +" ctx49_0" " declared-keywords57_0" " declared-submodule-names58_0" " defined-syms56_0" @@ -73294,579 +73719,171 @@ static const char *startup_source = " mpis-to-reset61_0" " namespace50_0" " need-eventually-defined54_0" -" phase48_2" +" phase48_0" " requires-and-provides53_0" " self51_0" " bodys78_0)" "(begin" " 'partially-expand-bodys79" -"(let-values(((bodys_20) bodys78_0))" -"(let-values(((phase_146) phase48_2))" -"(let-values(((partial-body-ctx_1) ctx49_1))" -"(let-values(((m-ns_20) namespace50_0))" -"(let-values(((self_34) self51_0))" -"(let-values(((frame-id_17) frame-id52_0))" -"(let-values(((requires+provides_7) requires-and-provides53_0))" -"(let-values(((need-eventually-defined_2) need-eventually-defined54_0))" -"(let-values(((all-scopes-stx_5) all-scopes-stx55_0))" -"(let-values(((defined-syms_12) defined-syms56_0))" -"(let-values(((declared-keywords_1) declared-keywords57_0))" -"(let-values(((declared-submodule-names_4) declared-submodule-names58_0))" -"(let-values(((compiled-submodules_2) compiled-submodules59_0))" -"(let-values(((modules-being-compiled_4) modules-being-compiled60_0))" -"(let-values(((mpis-to-reset_1) mpis-to-reset61_0))" -"(let-values(((pass-1-and-2-loop_1) loop62_0))" +"(let-values(((bodys_775) bodys78_0))" +"(let-values(((phase_776) phase48_0))" +"(let-values(((partial-body-ctx_777) ctx49_0))" +"(let-values(((m-ns_778) namespace50_0))" +"(let-values(((self_779) self51_0))" +"(let-values(((frame-id_780) frame-id52_0))" +"(let-values(((requires+provides_781) requires-and-provides53_0))" +"(let-values(((need-eventually-defined_782) need-eventually-defined54_0))" +"(let-values(((all-scopes-stx_783) all-scopes-stx55_0))" +"(let-values(((defined-syms_784) defined-syms56_0))" +"(let-values(((declared-keywords_785) declared-keywords57_0))" +"(let-values(((declared-submodule-names_786) declared-submodule-names58_0))" +"(let-values(((compiled-submodules_787) compiled-submodules59_0))" +"(let-values(((modules-being-compiled_788) modules-being-compiled60_0))" +"(let-values(((mpis-to-reset_789) mpis-to-reset61_0))" +"(let-values(((pass-1-and-2-loop_790) loop62_0))" "(let-values()" "(begin" -"(namespace-visit-available-modules! m-ns_20 phase_146)" -"((letrec-values(((loop_122)" -"(lambda(tail?_53 bodys_21)" +"(namespace-visit-available-modules! m-ns_778 phase_776)" +"((letrec-values(((loop_791)" +"(lambda(tail?_0 bodys_0)" "(begin" " 'loop" -"(if(null? bodys_21)" +"(if(null? bodys_0)" "(let-values()" -"(if(if tail?_53(not(zero? phase_146)) #f)" +"(if(if tail?_0(not(zero? phase_776)) #f)" "(let-values()" "(begin" -"(let-values(((obs_139)" +"(let-values(((obs_794)" "(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_139" +" partial-body-ctx_777)))" +"(if obs_794" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_139" +" obs_794" " 'module-lift-end-loop" " '())))" "(void)))" " null))" -"(if tail?_53" +"(if tail?_0" "(let-values()" -"(let-values(((bodys_22)" +"(let-values(((bodys_795)" "(append" "(get-and-clear-end-lifts!" "(expand-context-to-module-lifts" -" partial-body-ctx_1))" +" partial-body-ctx_777))" "(get-and-clear-provide-lifts!" "(expand-context-to-module-lifts" -" partial-body-ctx_1)))))" +" partial-body-ctx_777)))))" "(begin" -"(let-values(((obs_140)" +"(let-values(((obs_796)" "(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_140" +" partial-body-ctx_777)))" +"(if obs_796" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_140" +" obs_796" " 'module-lift-end-loop" -" bodys_22)))" +" bodys_795)))" "(void)))" -"(if(null? bodys_22)" +"(if(null? bodys_795)" "(let-values() null)" "(let-values()" -"(loop_122" +"(loop_791" " #t" "(add-post-expansion-scope" -" bodys_22" -" partial-body-ctx_1)))))))" +" bodys_795" +" partial-body-ctx_777)))))))" "(let-values() null))))" "(let-values()" -"(let-values(((rest-bodys_1)(cdr bodys_21)))" +"(let-values(((rest-bodys_797)(cdr bodys_0)))" "(let-values((()" "(begin" -"(let-values(((obs_141)" +"(let-values(((obs_801)" "(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_141" +" partial-body-ctx_777)))" +"(if obs_801" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_141" +" obs_801" " 'next)))" "(void)))" "(values))))" -"(let-values(((exp-body_7)" +"(let-values(((exp-body_798)" "(let-values()" -"(let-values(((temp463_1)" -"(car bodys_21))" -"((partial-body-ctx464_0)" -" partial-body-ctx_1))" +"(let-values(((temp463_802)" +"(car bodys_0))" +"((partial-body-ctx464_803)" +" partial-body-ctx_777))" "(expand9.1" " #f" " #f" " #f" -" temp463_1" -" partial-body-ctx464_0)))))" -"(let-values(((disarmed-exp-body_1)" -"(syntax-disarm$1 exp-body_7)))" -"(let-values(((lifted-defns_0)" +" temp463_802" +" partial-body-ctx464_803)))))" +"(let-values(((disarmed-exp-body_799)" +"(syntax-disarm$1 exp-body_798)))" +"(let-values(((lifted-defns_800)" "(get-and-clear-lifts!" "(expand-context-lifts" -" partial-body-ctx_1))))" +" partial-body-ctx_777))))" "(begin" -"(if(pair? lifted-defns_0)" +"(if(pair? lifted-defns_800)" "(let-values()" "(log-lifted-defns" -" partial-body-ctx_1" -" lifted-defns_0" -" exp-body_7" -" rest-bodys_1))" +" partial-body-ctx_777" +" lifted-defns_800" +" exp-body_798" +" rest-bodys_797))" "(void))" -"(let-values(((obs_142)" +"(let-values(((obs_804)" "(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_142" +" partial-body-ctx_777)))" +"(if obs_804" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_142" +" obs_804" " 'rename-one" -" exp-body_7)))" +" exp-body_798)))" "(void)))" -"(let-values(((finish_2)" +"(let-values(((finish_805)" "(lambda()" "(begin" " 'finish" -"(let-values(((tmp_64)" +"(let-values(((tmp_806)" "(core-form-sym" -" disarmed-exp-body_1" -" phase_146)))" +" disarmed-exp-body_799" +" phase_776)))" "(if(equal?" -" tmp_64" +" tmp_806" " 'begin)" "(let-values()" -"(let-values(((ok?_81" -" begin465_0" -" e466_0)" -"(let-values(((s_815)" -" disarmed-exp-body_1))" -"(let-values(((orig-s_83)" -" s_815))" -"(let-values(((begin465_1" -" e466_1)" -"(let-values(((s_816)" -"(if(syntax?$1" -" s_815)" -"(syntax-e$1" -" s_815)" -" s_815)))" -"(if(pair?" -" s_816)" -"(let-values(((begin467_0)" -"(let-values(((s_817)" -"(car" -" s_816)))" -" s_817))" -"((e468_0)" -"(let-values(((s_818)" -"(cdr" -" s_816)))" -"(let-values(((s_819)" -"(if(syntax?$1" -" s_818)" -"(syntax-e$1" -" s_818)" -" s_818)))" -"(let-values(((flat-s_57)" -"(to-syntax-list.1" -" s_819)))" -"(if(not" -" flat-s_57)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_83))" -"(let-values()" -" flat-s_57)))))))" -"(values" -" begin467_0" -" e468_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_83)))))" -"(values" -" #t" -" begin465_1" -" e466_1))))))" -"(let-values(((track_1)" -"(lambda(e_94)" -"(begin" -" 'track" -"(syntax-track-origin$1" -" e_94" -" exp-body_7)))))" -"(let-values(((spliced-bodys_0)" -"(append" -"(map2" -" track_1" -" e466_0)" -" rest-bodys_1)))" -"(begin" -"(let-values(((obs_143)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_143" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_143" -" 'splice" -" spliced-bodys_0)))" -"(void)))" -"(loop_122" -" tail?_53" -" spliced-bodys_0))))))" -"(if(equal?" -" tmp_64" -" 'begin-for-syntax)" -"(let-values()" -"(let-values((()" -"(begin" -"(let-values(((obs_144)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_144" -"(let-values()" -"(let-values()" -"(begin" -"(call-expand-observe" -" obs_144" -" 'enter-prim" -" exp-body_7)" -"(call-expand-observe" -" obs_144" -" 'prim-begin-for-syntax)" -"(call-expand-observe" -" obs_144" -" 'prepare-env))))" -"(void)))" -"(values))))" -"(let-values(((ct-m-ns_0)" -"(namespace->namespace-at-phase" -" m-ns_20" -"(add1" -" phase_146))))" -"(let-values((()" -"(begin" -"(prepare-next-phase-namespace" -" partial-body-ctx_1)" -"(values))))" -"(let-values((()" -"(begin" -"(let-values(((obs_145)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_145" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_145" -" 'phase-up)))" -"(void)))" -"(values))))" -"(let-values(((ok?_82" -" begin-for-syntax469_0" -" e470_0)" -"(let-values(((s_820)" -" disarmed-exp-body_1))" -"(let-values(((orig-s_84)" -" s_820))" -"(let-values(((begin-for-syntax469_1" -" e470_1)" -"(let-values(((s_821)" -"(if(syntax?$1" -" s_820)" -"(syntax-e$1" -" s_820)" -" s_820)))" -"(if(pair?" -" s_821)" -"(let-values(((begin-for-syntax471_0)" -"(let-values(((s_822)" -"(car" -" s_821)))" -" s_822))" -"((e472_0)" -"(let-values(((s_823)" -"(cdr" -" s_821)))" -"(let-values(((s_824)" -"(if(syntax?$1" -" s_823)" -"(syntax-e$1" -" s_823)" -" s_823)))" -"(let-values(((flat-s_58)" -"(to-syntax-list.1" -" s_824)))" -"(if(not" -" flat-s_58)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_84))" -"(let-values()" -" flat-s_58)))))))" -"(values" -" begin-for-syntax471_0" -" e472_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_84)))))" -"(values" -" #t" -" begin-for-syntax469_1" -" e470_1))))))" -"(let-values(((nested-bodys_1)" -"(pass-1-and-2-loop_1" -" e470_0" -"(add1" -" phase_146)" -" #f)))" -"(begin" -"(let-values(((obs_146)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_146" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_146" -" 'next-group)))" -"(void)))" -"(namespace-run-available-modules!" -" m-ns_20" -"(add1" -" phase_146))" -"(eval-nested-bodys" -" nested-bodys_1" -"(add1" -" phase_146)" -" ct-m-ns_0" -" self_34" -" partial-body-ctx_1)" -"(namespace-visit-available-modules!" -" m-ns_20" -" phase_146)" -"(let-values(((obs_147)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_147" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_147" -" 'exit-prim" -"(let-values(((s-nested-bodys_0)" -"(reverse$1" -"(let-values(((lst_428)" -" nested-bodys_1))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_428)))" -"((letrec-values(((for-loop_154)" -"(lambda(fold-var_376" -" lst_429)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_429)" -"(let-values(((nested-body_0)" -"(unsafe-car" -" lst_429))" -"((rest_251)" -"(unsafe-cdr" -" lst_429)))" -"(let-values(((fold-var_377)" -"(let-values(((fold-var_378)" -" fold-var_376))" -"(let-values(((fold-var_355)" -"(let-values()" -"(cons" -"(let-values()" -"(extract-syntax" -" nested-body_0))" -" fold-var_378))))" -"(values" -" fold-var_355)))))" -"(if(not" -" #f)" -"(for-loop_154" -" fold-var_377" -" rest_251)" -" fold-var_377)))" -" fold-var_376)))))" -" for-loop_154)" -" null" -" lst_428))))))" -"(datum->syntax$1" -" #f" -"(cons" -" begin-for-syntax469_0" -" s-nested-bodys_0)" -" exp-body_7)))))" -"(void)))" -"(cons" -"(semi-parsed-begin-for-syntax3.1" -" exp-body_7" -" nested-bodys_1)" -"(loop_122" -" tail?_53" -" rest-bodys_1))))))))))" -"(if(equal?" -" tmp_64" -" 'define-values)" -"(let-values()" -"(let-values((()" -"(begin" -"(let-values(((obs_148)" -"(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_148" -"(let-values()" -"(let-values()" -"(begin" -"(call-expand-observe" -" obs_148" -" 'enter-prim" -" exp-body_7)" -"(call-expand-observe" -" obs_148" -" 'prim-define-values))))" -"(void)))" -"(values))))" -"(let-values(((ok?_83" -" define-values473_0" -" id474_0" -" rhs475_0)" +"(let-values(((ok?_807" +" begin465_808" +" e466_809)" "(let-values(((s_825)" -" disarmed-exp-body_1))" -"(let-values(((orig-s_85)" +" disarmed-exp-body_799))" +"(let-values(((orig-s_826)" " s_825))" -"(let-values(((define-values473_1" -" id474_1" -" rhs475_1)" -"(let-values(((s_826)" +"(let-values(((begin465_827" +" e466_828)" +"(let-values(((s_829)" "(if(syntax?$1" " s_825)" "(syntax-e$1" " s_825)" " s_825)))" "(if(pair?" -" s_826)" -"(let-values(((define-values476_0)" -"(let-values(((s_827)" -"(car" -" s_826)))" -" s_827))" -"((id477_0" -" rhs478_0)" -"(let-values(((s_828)" -"(cdr" -" s_826)))" -"(let-values(((s_829)" -"(if(syntax?$1" -" s_828)" -"(syntax-e$1" -" s_828)" -" s_828)))" -"(if(pair?" " s_829)" -"(let-values(((id479_0)" -"(let-values(((s_830)" +"(let-values(((begin467_830)" +"(let-values(((s_832)" "(car" " s_829)))" -"(let-values(((s_831)" -"(if(syntax?$1" -" s_830)" -"(syntax-e$1" -" s_830)" -" s_830)))" -"(let-values(((flat-s_59)" -"(to-syntax-list.1" -" s_831)))" -"(if(not" -" flat-s_59)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_85))" -"(let-values()" -"(let-values(((id_146)" -"(let-values(((lst_430)" -" flat-s_59))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_430)))" -"((letrec-values(((for-loop_331)" -"(lambda(id_147" -" lst_431)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_431)" -"(let-values(((s_832)" -"(unsafe-car" -" lst_431))" -"((rest_252)" -"(unsafe-cdr" -" lst_431)))" -"(let-values(((id_148)" -"(let-values(((id_149)" -" id_147))" -"(let-values(((id_150)" -"(let-values()" -"(let-values(((id492_0)" -"(let-values()" -"(if(let-values(((or-part_409)" -"(if(syntax?$1" -" s_832)" -"(symbol?" -"(syntax-e$1" " s_832))" -" #f)))" -"(if or-part_409" -" or-part_409" -"(symbol?" -" s_832)))" -" s_832" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_85" -" s_832)))))" -"(cons" -" id492_0" -" id_149)))))" -"(values" -" id_150)))))" -"(if(not" -" #f)" -"(for-loop_331" -" id_148" -" rest_252)" -" id_148)))" -" id_147)))))" -" for-loop_331)" -" null" -" lst_430)))))" -"(reverse$1" -" id_146))))))))" -"((rhs480_0)" +"((e468_831)" "(let-values(((s_833)" "(cdr" " s_829)))" @@ -73876,141 +73893,549 @@ static const char *startup_source = "(syntax-e$1" " s_833)" " s_833)))" -"(if(pair?" -" s_834)" -"(let-values(((rhs481_0)" -"(let-values(((s_835)" -"(car" +"(let-values(((flat-s_835)" +"(to-syntax-list.1" " s_834)))" -" s_835))" -"(()" -"(let-values(((s_836)" -"(cdr" -" s_834)))" -"(let-values(((s_837)" -"(if(syntax?$1" -" s_836)" -"(syntax-e$1" -" s_836)" -" s_836)))" -"(if(null?" -" s_837)" -"(values)" +"(if(not" +" flat-s_835)" +"(let-values()" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" -" orig-s_85))))))" +" \"bad syntax\"" +" orig-s_826))" +"(let-values()" +" flat-s_835)))))))" "(values" -" rhs481_0))" +" begin467_830" +" e468_831))" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" -" orig-s_85))))))" -"(values" -" id479_0" -" rhs480_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_85))))))" -"(values" -" define-values476_0" -" id477_0" -" rhs478_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_85)))))" +" \"bad syntax\"" +" orig-s_826)))))" "(values" " #t" -" define-values473_1" -" id474_1" -" rhs475_1))))))" -"(let-values(((ids_44)" -"(remove-use-site-scopes" -" id474_0" -" partial-body-ctx_1)))" +" begin465_827" +" e466_828))))))" +"(let-values(((track_823)" +"(lambda(e_0)" +"(begin" +" 'track" +"(syntax-track-origin$1" +" e_0" +" exp-body_798)))))" +"(let-values(((spliced-bodys_824)" +"(append" +"(map2" +" track_823" +" e466_809)" +" rest-bodys_797)))" +"(begin" +"(let-values(((obs_837)" +"(expand-context-observer" +" partial-body-ctx_777)))" +"(if obs_837" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_837" +" 'splice" +" spliced-bodys_824)))" +"(void)))" +"(loop_791" +" tail?_0" +" spliced-bodys_824))))))" +"(if(equal?" +" tmp_806" +" 'begin-for-syntax)" +"(let-values()" "(let-values((()" "(begin" -"(let-values(((ids482_0)" -" ids_44)" -"((phase483_0)" -" phase_146)" -"((exp-body484_0)" -" exp-body_7))" -"(check-no-duplicate-ids7.1" -" unsafe-undefined" -" ids482_0" -" phase483_0" -" exp-body484_0" -" unsafe-undefined))" +"(let-values(((obs_856)" +"(expand-context-observer" +" partial-body-ctx_777)))" +"(if obs_856" +"(let-values()" +"(let-values()" +"(begin" +"(call-expand-observe" +" obs_856" +" 'enter-prim" +" exp-body_798)" +"(call-expand-observe" +" obs_856" +" 'prim-begin-for-syntax)" +"(call-expand-observe" +" obs_856" +" 'prepare-env))))" +"(void)))" +"(values))))" +"(let-values(((ct-m-ns_838)" +"(namespace->namespace-at-phase" +" m-ns_778" +"(add1" +" phase_776))))" +"(let-values((()" +"(begin" +"(prepare-next-phase-namespace" +" partial-body-ctx_777)" "(values))))" "(let-values((()" "(begin" -"(let-values(((ids485_0)" -" ids_44)" -"((phase486_0)" -" phase_146)" -"((requires+provides487_0)" -" requires+provides_7)" -"((exp-body488_0)" -" exp-body_7))" -"(check-ids-unbound171.1" -" exp-body488_0" -" ids485_0" -" phase486_0" -" requires+provides487_0))" +"(let-values(((obs_857)" +"(expand-context-observer" +" partial-body-ctx_777)))" +"(if obs_857" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_857" +" 'phase-up)))" +"(void)))" "(values))))" -"(let-values(((syms_23)" -"(let-values(((ids493_0)" -" ids_44)" -"((defined-syms494_0)" -" defined-syms_12)" -"((self495_0)" -" self_34)" -"((phase496_0)" -" phase_146)" -"((all-scopes-stx497_0)" -" all-scopes-stx_5)" -"((frame-id498_0)" -" frame-id_17)" -"((requires+provides499_0)" -" requires+provides_7)" -"((exp-body500_0)" -" exp-body_7))" -"(select-defined-syms-and-bind!16.1" +"(let-values(((ok?_839" +" begin-for-syntax469_840" +" e470_841)" +"(let-values(((s_858)" +" disarmed-exp-body_799))" +"(let-values(((orig-s_859)" +" s_858))" +"(let-values(((begin-for-syntax469_860" +" e470_861)" +"(let-values(((s_862)" +"(if(syntax?$1" +" s_858)" +"(syntax-e$1" +" s_858)" +" s_858)))" +"(if(pair?" +" s_862)" +"(let-values(((begin-for-syntax471_863)" +"(let-values(((s_865)" +"(car" +" s_862)))" +" s_865))" +"((e472_864)" +"(let-values(((s_866)" +"(cdr" +" s_862)))" +"(let-values(((s_867)" +"(if(syntax?$1" +" s_866)" +"(syntax-e$1" +" s_866)" +" s_866)))" +"(let-values(((flat-s_868)" +"(to-syntax-list.1" +" s_867)))" +"(if(not" +" flat-s_868)" +"(let-values()" +"(raise-syntax-error$1" " #f" -" frame-id498_0" -" exp-body500_0" -" requires+provides499_0" +" \"bad syntax\"" +" orig-s_859))" +"(let-values()" +" flat-s_868)))))))" +"(values" +" begin-for-syntax471_863" +" e472_864))" +"(raise-syntax-error$1" " #f" -" ids493_0" -" defined-syms494_0" -" self495_0" -" phase496_0" -" all-scopes-stx497_0))))" +" \"bad syntax\"" +" orig-s_859)))))" +"(values" +" #t" +" begin-for-syntax469_860" +" e470_861))))))" +"(let-values(((nested-bodys_855)" +"(pass-1-and-2-loop_790" +" e470_841" +"(add1" +" phase_776)" +" #f)))" "(begin" -"(let-values(((lst_432)" -" syms_23))" +"(let-values(((obs_869)" +"(expand-context-observer" +" partial-body-ctx_777)))" +"(if obs_869" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_869" +" 'next-group)))" +"(void)))" +"(namespace-run-available-modules!" +" m-ns_778" +"(add1" +" phase_776))" +"(eval-nested-bodys" +" nested-bodys_855" +"(add1" +" phase_776)" +" ct-m-ns_838" +" self_779" +" partial-body-ctx_777)" +"(namespace-visit-available-modules!" +" m-ns_778" +" phase_776)" +"(let-values(((obs_870)" +"(expand-context-observer" +" partial-body-ctx_777)))" +"(if obs_870" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_870" +" 'exit-prim" +"(let-values(((s-nested-bodys_871)" +"(reverse$1" +"(let-values(((lst_872)" +" nested-bodys_855))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_432)))" -"((letrec-values(((for-loop_332)" -"(lambda(lst_260)" +" lst_872)))" +"((letrec-values(((for-loop_873)" +"(lambda(fold-var_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_260)" -"(let-values(((sym_23)" +" lst_0)" +"(let-values(((nested-body_876)" "(unsafe-car" -" lst_260))" -"((rest_142)" +" lst_0))" +"((rest_877)" "(unsafe-cdr" -" lst_260)))" +" lst_0)))" +"(let-values(((fold-var_878)" +"(let-values(((fold-var_879)" +" fold-var_0))" +"(let-values(((fold-var_880)" +"(let-values()" +"(cons" +"(let-values()" +"(extract-syntax" +" nested-body_876))" +" fold-var_879))))" +"(values" +" fold-var_880)))))" +"(if(not" +" #f)" +"(for-loop_873" +" fold-var_878" +" rest_877)" +" fold-var_878)))" +" fold-var_0)))))" +" for-loop_873)" +" null" +" lst_872))))))" +"(datum->syntax$1" +" #f" +"(cons" +" begin-for-syntax469_840" +" s-nested-bodys_871)" +" exp-body_798)))))" +"(void)))" +"(cons" +"(semi-parsed-begin-for-syntax3.1" +" exp-body_798" +" nested-bodys_855)" +"(loop_791" +" tail?_0" +" rest-bodys_797))))))))))" +"(if(equal?" +" tmp_806" +" 'define-values)" +"(let-values()" +"(let-values((()" +"(begin" +"(let-values(((obs_903)" +"(expand-context-observer" +" partial-body-ctx_777)))" +"(if obs_903" +"(let-values()" +"(let-values()" +"(begin" +"(call-expand-observe" +" obs_903" +" 'enter-prim" +" exp-body_798)" +"(call-expand-observe" +" obs_903" +" 'prim-define-values))))" +"(void)))" +"(values))))" +"(let-values(((ok?_881" +" define-values473_882" +" id474_883" +" rhs475_884)" +"(let-values(((s_904)" +" disarmed-exp-body_799))" +"(let-values(((orig-s_905)" +" s_904))" +"(let-values(((define-values473_906" +" id474_907" +" rhs475_908)" +"(let-values(((s_909)" +"(if(syntax?$1" +" s_904)" +"(syntax-e$1" +" s_904)" +" s_904)))" +"(if(pair?" +" s_909)" +"(let-values(((define-values476_910)" +"(let-values(((s_913)" +"(car" +" s_909)))" +" s_913))" +"((id477_911" +" rhs478_912)" +"(let-values(((s_914)" +"(cdr" +" s_909)))" +"(let-values(((s_915)" +"(if(syntax?$1" +" s_914)" +"(syntax-e$1" +" s_914)" +" s_914)))" +"(if(pair?" +" s_915)" +"(let-values(((id479_916)" +"(let-values(((s_918)" +"(car" +" s_915)))" +"(let-values(((s_919)" +"(if(syntax?$1" +" s_918)" +"(syntax-e$1" +" s_918)" +" s_918)))" +"(let-values(((flat-s_920)" +"(to-syntax-list.1" +" s_919)))" +"(if(not" +" flat-s_920)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_905))" +"(let-values()" +"(let-values(((id_921)" +"(let-values(((lst_922)" +" flat-s_920))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_922)))" +"((letrec-values(((for-loop_923)" +"(lambda(id_0" +" lst_0)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_0)" +"(let-values(((s_926)" +"(unsafe-car" +" lst_0))" +"((rest_927)" +"(unsafe-cdr" +" lst_0)))" +"(let-values(((id_928)" +"(let-values(((id_929)" +" id_0))" +"(let-values(((id_930)" +"(let-values()" +"(let-values(((id492_931)" +"(let-values()" +"(if(let-values(((or-part_932)" +"(if(syntax?$1" +" s_926)" +"(symbol?" +"(syntax-e$1" +" s_926))" +" #f)))" +"(if or-part_932" +" or-part_932" +"(symbol?" +" s_926)))" +" s_926" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_905" +" s_926)))))" +"(cons" +" id492_931" +" id_929)))))" +"(values" +" id_930)))))" +"(if(not" +" #f)" +"(for-loop_923" +" id_928" +" rest_927)" +" id_928)))" +" id_0)))))" +" for-loop_923)" +" null" +" lst_922)))))" +"(reverse$1" +" id_921))))))))" +"((rhs480_917)" +"(let-values(((s_933)" +"(cdr" +" s_915)))" +"(let-values(((s_934)" +"(if(syntax?$1" +" s_933)" +"(syntax-e$1" +" s_933)" +" s_933)))" +"(if(pair?" +" s_934)" +"(let-values(((rhs481_935)" +"(let-values(((s_936)" +"(car" +" s_934)))" +" s_936))" +"(()" +"(let-values(((s_937)" +"(cdr" +" s_934)))" +"(let-values(((s_938)" +"(if(syntax?$1" +" s_937)" +"(syntax-e$1" +" s_937)" +" s_937)))" +"(if(null?" +" s_938)" +"(values)" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_905))))))" +"(values" +" rhs481_935))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_905))))))" +"(values" +" id479_916" +" rhs480_917))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_905))))))" +"(values" +" define-values476_910" +" id477_911" +" rhs478_912))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_905)))))" +"(values" +" #t" +" define-values473_906" +" id474_907" +" rhs475_908))))))" +"(let-values(((ids_901)" +"(remove-use-site-scopes" +" id474_883" +" partial-body-ctx_777)))" +"(let-values((()" +"(begin" +"(let-values(((ids482_939)" +" ids_901)" +"((phase483_940)" +" phase_776)" +"((exp-body484_941)" +" exp-body_798))" +"(check-no-duplicate-ids7.1" +" unsafe-undefined" +" ids482_939" +" phase483_940" +" exp-body484_941" +" unsafe-undefined))" +"(values))))" +"(let-values((()" +"(begin" +"(let-values(((ids485_943)" +" ids_901)" +"((phase486_944)" +" phase_776)" +"((requires+provides487_945)" +" requires+provides_781)" +"((exp-body488_946)" +" exp-body_798))" +"(check-ids-unbound171.1" +" exp-body488_946" +" ids485_943" +" phase486_944" +" requires+provides487_945))" +"(values))))" +"(let-values(((syms_902)" +"(let-values(((ids493_948)" +" ids_901)" +"((defined-syms494_949)" +" defined-syms_784)" +"((self495_950)" +" self_779)" +"((phase496_951)" +" phase_776)" +"((all-scopes-stx497_952)" +" all-scopes-stx_783)" +"((frame-id498_953)" +" frame-id_780)" +"((requires+provides499_954)" +" requires+provides_781)" +"((exp-body500_955)" +" exp-body_798))" +"(select-defined-syms-and-bind!16.1" +" #f" +" frame-id498_953" +" exp-body500_955" +" requires+provides499_954" +" #f" +" ids493_948" +" defined-syms494_949" +" self495_950" +" phase496_951" +" all-scopes-stx497_952))))" +"(begin" +"(let-values(((lst_956)" +" syms_902))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_956)))" +"((letrec-values(((for-loop_957)" +"(lambda(lst_0)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_0)" +"(let-values(((sym_959)" +"(unsafe-car" +" lst_0))" +"((rest_960)" +"(unsafe-cdr" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74018,547 +74443,547 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-unset-transformer!" -" m-ns_20" -" phase_146" -" sym_23))" +" m-ns_778" +" phase_776" +" sym_959))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_332" -" rest_142)" +"(for-loop_957" +" rest_960)" "(values))))" "(values))))))" -" for-loop_332)" -" lst_432)))" +" for-loop_957)" +" lst_956)))" "(void)" -"(let-values(((requires+provides489_0)" -" requires+provides_7)" -"((syms490_0)" -" syms_23)" -"((phase491_0)" -" phase_146))" +"(let-values(((requires+provides489_961)" +" requires+provides_781)" +"((syms490_962)" +" syms_902)" +"((phase491_963)" +" phase_776))" "(add-defined-syms!103.1" " #f" -" requires+provides489_0" -" syms490_0" -" phase491_0))" -"(let-values(((obs_149)" +" requires+provides489_961" +" syms490_962" +" phase491_963))" +"(let-values(((obs_964)" "(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_149" +" partial-body-ctx_777)))" +"(if obs_964" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_149" +" obs_964" " 'exit-prim" "(datum->syntax$1" " #f" "(list" -" define-values473_0" -" ids_44" -" rhs475_0)" -" exp-body_7))))" +" define-values473_882" +" ids_901" +" rhs475_884)" +" exp-body_798))))" "(void)))" "(cons" "(semi-parsed-define-values2.1" -" exp-body_7" -" syms_23" -" ids_44" -" rhs475_0)" -"(loop_122" -" tail?_53" -" rest-bodys_1))))))))))" +" exp-body_798" +" syms_902" +" ids_901" +" rhs475_884)" +"(loop_791" +" tail?_0" +" rest-bodys_797))))))))))" "(if(equal?" -" tmp_64" +" tmp_806" " 'define-syntaxes)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_150)" +"(let-values(((obs_991)" "(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_150" +" partial-body-ctx_777)))" +"(if obs_991" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_150" +" obs_991" " 'enter-prim" -" exp-body_7)" +" exp-body_798)" "(call-expand-observe" -" obs_150" +" obs_991" " 'prim-define-syntaxes)" "(call-expand-observe" -" obs_150" +" obs_991" " 'prepare-env))))" "(void)))" "(values))))" "(let-values((()" "(begin" "(prepare-next-phase-namespace" -" partial-body-ctx_1)" +" partial-body-ctx_777)" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_151)" +"(let-values(((obs_992)" "(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_151" +" partial-body-ctx_777)))" +"(if obs_992" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_151" +" obs_992" " 'phase-up)))" "(void)))" "(values))))" -"(let-values(((ok?_84" -" define-syntaxes501_0" -" id502_0" -" rhs503_0)" -"(let-values(((s_838)" -" disarmed-exp-body_1))" -"(let-values(((orig-s_86)" -" s_838))" -"(let-values(((define-syntaxes501_1" -" id502_1" -" rhs503_1)" -"(let-values(((s_839)" +"(let-values(((ok?_965" +" define-syntaxes501_966" +" id502_967" +" rhs503_968)" +"(let-values(((s_993)" +" disarmed-exp-body_799))" +"(let-values(((orig-s_994)" +" s_993))" +"(let-values(((define-syntaxes501_995" +" id502_996" +" rhs503_997)" +"(let-values(((s_998)" "(if(syntax?$1" -" s_838)" +" s_993)" "(syntax-e$1" -" s_838)" -" s_838)))" +" s_993)" +" s_993)))" "(if(pair?" -" s_839)" -"(let-values(((define-syntaxes504_0)" -"(let-values(((s_840)" +" s_998)" +"(let-values(((define-syntaxes504_999)" +"(let-values(((s_1002)" "(car" -" s_839)))" -" s_840))" -"((id505_0" -" rhs506_0)" -"(let-values(((s_841)" +" s_998)))" +" s_1002))" +"((id505_1000" +" rhs506_1001)" +"(let-values(((s_1003)" "(cdr" -" s_839)))" -"(let-values(((s_842)" +" s_998)))" +"(let-values(((s_1004)" "(if(syntax?$1" -" s_841)" +" s_1003)" "(syntax-e$1" -" s_841)" -" s_841)))" +" s_1003)" +" s_1003)))" "(if(pair?" -" s_842)" -"(let-values(((id507_0)" -"(let-values(((s_843)" +" s_1004)" +"(let-values(((id507_1005)" +"(let-values(((s_1007)" "(car" -" s_842)))" -"(let-values(((s_844)" +" s_1004)))" +"(let-values(((s_1008)" "(if(syntax?$1" -" s_843)" +" s_1007)" "(syntax-e$1" -" s_843)" -" s_843)))" -"(let-values(((flat-s_60)" +" s_1007)" +" s_1007)))" +"(let-values(((flat-s_1009)" "(to-syntax-list.1" -" s_844)))" +" s_1008)))" "(if(not" -" flat-s_60)" +" flat-s_1009)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_86))" +" orig-s_994))" "(let-values()" -"(let-values(((id_151)" -"(let-values(((lst_433)" -" flat-s_60))" +"(let-values(((id_1010)" +"(let-values(((lst_1011)" +" flat-s_1009))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_433)))" -"((letrec-values(((for-loop_333)" -"(lambda(id_152" -" lst_434)" +" lst_1011)))" +"((letrec-values(((for-loop_1012)" +"(lambda(id_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_434)" -"(let-values(((s_845)" +" lst_0)" +"(let-values(((s_1015)" "(unsafe-car" -" lst_434))" -"((rest_253)" +" lst_0))" +"((rest_1016)" "(unsafe-cdr" -" lst_434)))" -"(let-values(((id_153)" -"(let-values(((id_154)" -" id_152))" -"(let-values(((id_155)" +" lst_0)))" +"(let-values(((id_1017)" +"(let-values(((id_1018)" +" id_0))" +"(let-values(((id_1019)" "(let-values()" -"(let-values(((id521_0)" +"(let-values(((id521_1020)" "(let-values()" -"(if(let-values(((or-part_410)" +"(if(let-values(((or-part_1021)" "(if(syntax?$1" -" s_845)" +" s_1015)" "(symbol?" "(syntax-e$1" -" s_845))" +" s_1015))" " #f)))" -"(if or-part_410" -" or-part_410" +"(if or-part_1021" +" or-part_1021" "(symbol?" -" s_845)))" -" s_845" +" s_1015)))" +" s_1015" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_86" -" s_845)))))" +" orig-s_994" +" s_1015)))))" "(cons" -" id521_0" -" id_154)))))" +" id521_1020" +" id_1018)))))" "(values" -" id_155)))))" +" id_1019)))))" "(if(not" " #f)" -"(for-loop_333" -" id_153" -" rest_253)" -" id_153)))" -" id_152)))))" -" for-loop_333)" +"(for-loop_1012" +" id_1017" +" rest_1016)" +" id_1017)))" +" id_0)))))" +" for-loop_1012)" " null" -" lst_433)))))" +" lst_1011)))))" "(reverse$1" -" id_151))))))))" -"((rhs508_0)" -"(let-values(((s_846)" +" id_1010))))))))" +"((rhs508_1006)" +"(let-values(((s_1022)" "(cdr" -" s_842)))" -"(let-values(((s_847)" +" s_1004)))" +"(let-values(((s_1023)" "(if(syntax?$1" -" s_846)" +" s_1022)" "(syntax-e$1" -" s_846)" -" s_846)))" +" s_1022)" +" s_1022)))" "(if(pair?" -" s_847)" -"(let-values(((rhs509_0)" -"(let-values(((s_848)" +" s_1023)" +"(let-values(((rhs509_1024)" +"(let-values(((s_1025)" "(car" -" s_847)))" -" s_848))" +" s_1023)))" +" s_1025))" "(()" -"(let-values(((s_849)" +"(let-values(((s_1026)" "(cdr" -" s_847)))" -"(let-values(((s_850)" +" s_1023)))" +"(let-values(((s_1027)" "(if(syntax?$1" -" s_849)" +" s_1026)" "(syntax-e$1" -" s_849)" -" s_849)))" +" s_1026)" +" s_1026)))" "(if(null?" -" s_850)" +" s_1027)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_86))))))" +" orig-s_994))))))" "(values" -" rhs509_0))" +" rhs509_1024))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_86))))))" +" orig-s_994))))))" "(values" -" id507_0" -" rhs508_0))" +" id507_1005" +" rhs508_1006))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_86))))))" +" orig-s_994))))))" "(values" -" define-syntaxes504_0" -" id505_0" -" rhs506_0))" +" define-syntaxes504_999" +" id505_1000" +" rhs506_1001))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_86)))))" +" orig-s_994)))))" "(values" " #t" -" define-syntaxes501_1" -" id502_1" -" rhs503_1))))))" -"(let-values(((ids_45)" +" define-syntaxes501_995" +" id502_996" +" rhs503_997))))))" +"(let-values(((ids_985)" "(remove-use-site-scopes" -" id502_0" -" partial-body-ctx_1)))" +" id502_967" +" partial-body-ctx_777)))" "(let-values((()" "(begin" -"(let-values(((ids510_0)" -" ids_45)" -"((phase511_0)" -" phase_146)" -"((exp-body512_0)" -" exp-body_7))" +"(let-values(((ids510_1028)" +" ids_985)" +"((phase511_1029)" +" phase_776)" +"((exp-body512_1030)" +" exp-body_798))" "(check-no-duplicate-ids7.1" " unsafe-undefined" -" ids510_0" -" phase511_0" -" exp-body512_0" +" ids510_1028" +" phase511_1029" +" exp-body512_1030" " unsafe-undefined))" "(values))))" "(let-values((()" "(begin" -"(let-values(((ids513_0)" -" ids_45)" -"((phase514_0)" -" phase_146)" -"((requires+provides515_0)" -" requires+provides_7)" -"((exp-body516_0)" -" exp-body_7))" +"(let-values(((ids513_1032)" +" ids_985)" +"((phase514_1033)" +" phase_776)" +"((requires+provides515_1034)" +" requires+provides_781)" +"((exp-body516_1035)" +" exp-body_798))" "(check-ids-unbound171.1" -" exp-body516_0" -" ids513_0" -" phase514_0" -" requires+provides515_0))" +" exp-body516_1035" +" ids513_1032" +" phase514_1033" +" requires+provides515_1034))" "(values))))" -"(let-values(((syms_24)" -"(let-values(((ids522_0)" -" ids_45)" -"((defined-syms523_0)" -" defined-syms_12)" -"((self524_0)" -" self_34)" -"((phase525_0)" -" phase_146)" -"((all-scopes-stx526_0)" -" all-scopes-stx_5)" -"((frame-id527_0)" -" frame-id_17)" -"((requires+provides528_0)" -" requires+provides_7)" -"((exp-body529_0)" -" exp-body_7)" -"((temp530_0)" +"(let-values(((syms_986)" +"(let-values(((ids522_1037)" +" ids_985)" +"((defined-syms523_1038)" +" defined-syms_784)" +"((self524_1039)" +" self_779)" +"((phase525_1040)" +" phase_776)" +"((all-scopes-stx526_1041)" +" all-scopes-stx_783)" +"((frame-id527_1042)" +" frame-id_780)" +"((requires+provides528_1043)" +" requires+provides_781)" +"((exp-body529_1044)" +" exp-body_798)" +"((temp530_1045)" " #t))" "(select-defined-syms-and-bind!16.1" -" temp530_0" -" frame-id527_0" -" exp-body529_0" -" requires+provides528_0" +" temp530_1045" +" frame-id527_1042" +" exp-body529_1044" +" requires+provides528_1043" " #f" -" ids522_0" -" defined-syms523_0" -" self524_0" -" phase525_0" -" all-scopes-stx526_0))))" +" ids522_1037" +" defined-syms523_1038" +" self524_1039" +" phase525_1040" +" all-scopes-stx526_1041))))" "(let-values((()" "(begin" -"(let-values(((requires+provides517_0)" -" requires+provides_7)" -"((syms518_0)" -" syms_24)" -"((phase519_0)" -" phase_146)" -"((temp520_0)" +"(let-values(((requires+provides517_1047)" +" requires+provides_781)" +"((syms518_1048)" +" syms_986)" +"((phase519_1049)" +" phase_776)" +"((temp520_1050)" " #t))" "(add-defined-syms!103.1" -" temp520_0" -" requires+provides517_0" -" syms518_0" -" phase519_0))" +" temp520_1050" +" requires+provides517_1047" +" syms518_1048" +" phase519_1049))" "(values))))" -"(let-values(((exp-rhs_6" -" parsed-rhs_2" -" vals_10)" -"(let-values(((temp531_0)" +"(let-values(((exp-rhs_987" +" parsed-rhs_988" +" vals_989)" +"(let-values(((temp531_1052)" " 'define-syntaxes)" -"((temp532_0)" -" rhs503_0)" -"((ids533_0)" -" ids_45)" -"((temp534_0)" -"(let-values(((v_267)" -" partial-body-ctx_1))" -"(let-values(((the-struct_114)" -" v_267))" +"((temp532_1053)" +" rhs503_968)" +"((ids533_1054)" +" ids_985)" +"((temp534_1055)" +"(let-values(((v_1057)" +" partial-body-ctx_777))" +"(let-values(((the-struct_1058)" +" v_1057))" "(if(expand-context/outer?" -" the-struct_114)" -"(let-values(((need-eventually-defined536_0)" -" need-eventually-defined_2)" -"((inner537_0)" -"(let-values(((the-struct_115)" +" the-struct_1058)" +"(let-values(((need-eventually-defined536_1059)" +" need-eventually-defined_782)" +"((inner537_1060)" +"(let-values(((the-struct_1061)" "(root-expand-context/outer-inner" -" v_267)))" +" v_1057)))" "(if(expand-context/inner?" -" the-struct_115)" -"(let-values(((lifts538_0)" +" the-struct_1061)" +"(let-values(((lifts538_1062)" " #f)" -"((module-lifts539_0)" +"((module-lifts539_1063)" " #f)" -"((to-module-lifts540_0)" +"((to-module-lifts540_1064)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_115)" +" the-struct_1061)" "(root-expand-context/inner-module-scopes" -" the-struct_115)" +" the-struct_1061)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_115)" +" the-struct_1061)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_115)" +" the-struct_1061)" "(root-expand-context/inner-defined-syms" -" the-struct_115)" +" the-struct_1061)" "(root-expand-context/inner-counter" -" the-struct_115)" +" the-struct_1061)" "(root-expand-context/inner-lift-key" -" the-struct_115)" +" the-struct_1061)" "(expand-context/inner-to-parsed?" -" the-struct_115)" +" the-struct_1061)" "(expand-context/inner-phase" -" the-struct_115)" +" the-struct_1061)" "(expand-context/inner-namespace" -" the-struct_115)" +" the-struct_1061)" "(expand-context/inner-just-once?" -" the-struct_115)" +" the-struct_1061)" "(expand-context/inner-module-begin-k" -" the-struct_115)" +" the-struct_1061)" "(expand-context/inner-allow-unbound?" -" the-struct_115)" +" the-struct_1061)" "(expand-context/inner-in-local-expand?" -" the-struct_115)" +" the-struct_1061)" "(expand-context/inner-keep-#%expression?" -" the-struct_115)" +" the-struct_1061)" "(expand-context/inner-stops" -" the-struct_115)" +" the-struct_1061)" "(expand-context/inner-declared-submodule-names" -" the-struct_115)" -" lifts538_0" +" the-struct_1061)" +" lifts538_1062" "(expand-context/inner-lift-envs" -" the-struct_115)" -" module-lifts539_0" +" the-struct_1061)" +" module-lifts539_1063" "(expand-context/inner-require-lifts" -" the-struct_115)" -" to-module-lifts540_0" +" the-struct_1061)" +" to-module-lifts540_1064" "(expand-context/inner-requires+provides" -" the-struct_115)" +" the-struct_1061)" "(expand-context/inner-observer" -" the-struct_115)" +" the-struct_1061)" "(expand-context/inner-for-serializable?" -" the-struct_115)" +" the-struct_1061)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_115)))" +" the-struct_1061)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_115)))))" +" the-struct_1061)))))" "(expand-context/outer1.1" -" inner537_0" +" inner537_1060" "(root-expand-context/outer-post-expansion" -" the-struct_114)" +" the-struct_1058)" "(root-expand-context/outer-use-site-scopes" -" the-struct_114)" +" the-struct_1058)" "(root-expand-context/outer-frame-id" -" the-struct_114)" +" the-struct_1058)" "(expand-context/outer-context" -" the-struct_114)" +" the-struct_1058)" "(expand-context/outer-env" -" the-struct_114)" +" the-struct_1058)" "(expand-context/outer-scopes" -" the-struct_114)" +" the-struct_1058)" "(expand-context/outer-def-ctx-scopes" -" the-struct_114)" +" the-struct_1058)" "(expand-context/outer-binding-layer" -" the-struct_114)" +" the-struct_1058)" "(expand-context/outer-reference-records" -" the-struct_114)" +" the-struct_1058)" "(expand-context/outer-only-immediate?" -" the-struct_114)" -" need-eventually-defined536_0" +" the-struct_1058)" +" need-eventually-defined536_1059" "(expand-context/outer-current-introduction-scopes" -" the-struct_114)" +" the-struct_1058)" "(expand-context/outer-current-use-scopes" -" the-struct_114)" +" the-struct_1058)" "(expand-context/outer-name" -" the-struct_114)))" +" the-struct_1058)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_114)))))" -"((temp535_0)" +" the-struct_1058)))))" +"((temp535_1056)" " #f))" "(expand+eval-for-syntaxes-binding108.1" -" temp535_0" -" temp531_0" -" temp532_0" -" ids533_0" -" temp534_0))))" +" temp535_1056" +" temp531_1052" +" temp532_1053" +" ids533_1054" +" temp534_1055))))" "(let-values((()" "(begin" -"(let-values(((lst_435)" -" syms_24)" -"((lst_436)" -" vals_10)" -"((lst_437)" -" ids_45))" +"(let-values(((lst_1065)" +" syms_986)" +"((lst_1066)" +" vals_989)" +"((lst_1067)" +" ids_985))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_435)))" +" lst_1065)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_436)))" +" lst_1066)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_437)))" -"((letrec-values(((for-loop_334)" -"(lambda(lst_438" -" lst_439" -" lst_440)" +" lst_1067)))" +"((letrec-values(((for-loop_1068)" +"(lambda(lst_0" +" lst_1" +" lst_2)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_438)" +" lst_0)" "(if(pair?" -" lst_439)" +" lst_1)" "(pair?" -" lst_440)" +" lst_2)" " #f)" " #f)" -"(let-values(((sym_110)" +"(let-values(((sym_1072)" "(unsafe-car" -" lst_438))" -"((rest_254)" +" lst_0))" +"((rest_1073)" "(unsafe-cdr" -" lst_438))" -"((val_87)" +" lst_0))" +"((val_1074)" "(unsafe-car" -" lst_439))" -"((rest_255)" +" lst_1))" +"((rest_1075)" "(unsafe-cdr" -" lst_439))" -"((id_156)" +" lst_1))" +"((id_1076)" "(unsafe-car" -" lst_440))" -"((rest_256)" +" lst_2))" +"((rest_1077)" "(unsafe-cdr" -" lst_440)))" +" lst_2)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74567,371 +74992,371 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_87" -" id_156" -" phase_146" -" partial-body-ctx_1)" +" val_1074" +" id_1076" +" phase_776" +" partial-body-ctx_777)" "(namespace-set-transformer!" -" m-ns_20" -" phase_146" -" sym_110" -" val_87)))" +" m-ns_778" +" phase_776" +" sym_1072" +" val_1074)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_334" -" rest_254" -" rest_255" -" rest_256)" +"(for-loop_1068" +" rest_1073" +" rest_1075" +" rest_1077)" "(values))))" "(values))))))" -" for-loop_334)" -" lst_435" -" lst_436" -" lst_437)))" +" for-loop_1068)" +" lst_1065" +" lst_1066" +" lst_1067)))" "(values))))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_152)" +"(let-values(((obs_1078)" "(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_152" +" partial-body-ctx_777)))" +"(if obs_1078" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_152" +" obs_1078" " 'exit-prim" "(datum->syntax$1" " #f" "(list" -" define-syntaxes501_0" -" ids_45" -" exp-rhs_6)))))" +" define-syntaxes501_966" +" ids_985" +" exp-rhs_987)))))" "(void)))" "(values))))" -"(let-values(((parsed-body_0)" +"(let-values(((parsed-body_990)" "(parsed-define-syntaxes20.1" "(keep-properties-only" -" exp-body_7)" -" ids_45" -" syms_24" -" parsed-rhs_2)))" +" exp-body_798)" +" ids_985" +" syms_986" +" parsed-rhs_988)))" "(cons" "(if(expand-context-to-parsed?" -" partial-body-ctx_1)" -" parsed-body_0" +" partial-body-ctx_777)" +" parsed-body_990" "(expanded+parsed1.1" -"(let-values(((exp-body541_0)" -" exp-body_7)" -"((temp542_0)" +"(let-values(((exp-body541_1079)" +" exp-body_798)" +"((temp542_1080)" "(list" -" define-syntaxes501_0" -" ids_45" -" exp-rhs_6)))" +" define-syntaxes501_966" +" ids_985" +" exp-rhs_987)))" "(rebuild5.1" " #t" -" exp-body541_0" -" temp542_0))" -" parsed-body_0))" -"(loop_122" -" tail?_53" -" rest-bodys_1)))))))))))))))))" +" exp-body541_1079" +" temp542_1080))" +" parsed-body_990))" +"(loop_791" +" tail?_0" +" rest-bodys_797)))))))))))))))))" "(if(equal?" -" tmp_64" +" tmp_806" " '#%require)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_153)" +"(let-values(((obs_1098)" "(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_153" +" partial-body-ctx_777)))" +"(if obs_1098" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_153" +" obs_1098" " 'enter-prim" -" exp-body_7)" +" exp-body_798)" "(call-expand-observe" -" obs_153" +" obs_1098" " 'prim-require))))" "(void)))" "(values))))" -"(let-values(((ready-body_0)" +"(let-values(((ready-body_1081)" "(remove-use-site-scopes" -" disarmed-exp-body_1" -" partial-body-ctx_1)))" -"(let-values(((ok?_85" -" #%require543_0" -" req544_0)" -"(let-values(((s_851)" -" ready-body_0))" -"(let-values(((orig-s_87)" -" s_851))" -"(let-values(((#%require543_1" -" req544_1)" -"(let-values(((s_852)" +" disarmed-exp-body_799" +" partial-body-ctx_777)))" +"(let-values(((ok?_1082" +" #%require543_1083" +" req544_1084)" +"(let-values(((s_1099)" +" ready-body_1081))" +"(let-values(((orig-s_1100)" +" s_1099))" +"(let-values(((#%require543_1101" +" req544_1102)" +"(let-values(((s_1103)" "(if(syntax?$1" -" s_851)" +" s_1099)" "(syntax-e$1" -" s_851)" -" s_851)))" +" s_1099)" +" s_1099)))" "(if(pair?" -" s_852)" -"(let-values(((#%require545_0)" -"(let-values(((s_853)" +" s_1103)" +"(let-values(((#%require545_1104)" +"(let-values(((s_1106)" "(car" -" s_852)))" -" s_853))" -"((req546_0)" -"(let-values(((s_854)" +" s_1103)))" +" s_1106))" +"((req546_1105)" +"(let-values(((s_1107)" "(cdr" -" s_852)))" -"(let-values(((s_855)" +" s_1103)))" +"(let-values(((s_1108)" "(if(syntax?$1" -" s_854)" +" s_1107)" "(syntax-e$1" -" s_854)" -" s_854)))" -"(let-values(((flat-s_61)" +" s_1107)" +" s_1107)))" +"(let-values(((flat-s_1109)" "(to-syntax-list.1" -" s_855)))" +" s_1108)))" "(if(not" -" flat-s_61)" +" flat-s_1109)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_87))" +" orig-s_1100))" "(let-values()" -" flat-s_61)))))))" +" flat-s_1109)))))))" "(values" -" #%require545_0" -" req546_0))" +" #%require545_1104" +" req546_1105))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_87)))))" +" orig-s_1100)))))" "(values" " #t" -" #%require543_1" -" req544_1))))))" +" #%require543_1101" +" req544_1102))))))" "(begin" -"(let-values(((temp547_0)" -" req544_0)" -"((exp-body548_0)" -" exp-body_7)" -"((self549_0)" -" self_34)" -"((m-ns550_0)" -" m-ns_20)" -"((phase551_0)" -" phase_146)" -"((phase552_0)" -" phase_146)" -"((requires+provides553_0)" -" requires+provides_7)" -"((declared-submodule-names554_0)" -" declared-submodule-names_4)" -"((temp555_0)" +"(let-values(((temp547_1111)" +" req544_1084)" +"((exp-body548_1112)" +" exp-body_798)" +"((self549_1113)" +" self_779)" +"((m-ns550_1114)" +" m-ns_778)" +"((phase551_1115)" +" phase_776)" +"((phase552_1116)" +" phase_776)" +"((requires+provides553_1117)" +" requires+provides_781)" +"((declared-submodule-names554_1118)" +" declared-submodule-names_786)" +"((temp555_1119)" " 'module))" "(parse-and-perform-requires!30.1" " #f" " #f" -" declared-submodule-names554_0" +" declared-submodule-names554_1118" " #f" -" phase552_0" +" phase552_1116" " #f" -" self549_0" +" self549_1113" " #f" " #t" -" temp555_0" -" temp547_0" -" exp-body548_0" -" m-ns550_0" -" phase551_0" -" requires+provides553_0))" -"(let-values(((obs_154)" +" temp555_1119" +" temp547_1111" +" exp-body548_1112" +" m-ns550_1114" +" phase551_1115" +" requires+provides553_1117))" +"(let-values(((obs_1120)" "(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_154" +" partial-body-ctx_777)))" +"(if obs_1120" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_154" +" obs_1120" " 'exit-prim" -" ready-body_0)))" +" ready-body_1081)))" "(void)))" "(cons" -" exp-body_7" -"(loop_122" -" tail?_53" -" rest-bodys_1)))))))" +" exp-body_798" +"(loop_791" +" tail?_0" +" rest-bodys_797)))))))" "(if(equal?" -" tmp_64" +" tmp_806" " '#%provide)" "(let-values()" "(cons" -" exp-body_7" -"(loop_122" -" tail?_53" -" rest-bodys_1)))" +" exp-body_798" +"(loop_791" +" tail?_0" +" rest-bodys_797)))" "(if(equal?" -" tmp_64" +" tmp_806" " 'module)" "(let-values()" -"(let-values(((ready-body_1)" +"(let-values(((ready-body_1121)" "(remove-use-site-scopes" -" exp-body_7" -" partial-body-ctx_1)))" -"(let-values(((submod_2)" -"(let-values(((ready-body556_0)" -" ready-body_1)" -"((self557_0)" -" self_34)" -"((partial-body-ctx558_0)" -" partial-body-ctx_1)" -"((temp559_0)" +" exp-body_798" +" partial-body-ctx_777)))" +"(let-values(((submod_1122)" +"(let-values(((ready-body556_1124)" +" ready-body_1121)" +"((self557_1125)" +" self_779)" +"((partial-body-ctx558_1126)" +" partial-body-ctx_777)" +"((temp559_1127)" " #f)" -"((declared-submodule-names560_0)" -" declared-submodule-names_4)" -"((mpis-to-reset561_0)" -" mpis-to-reset_1)" -"((compiled-submodules562_0)" -" compiled-submodules_2)" -"((modules-being-compiled563_0)" -" modules-being-compiled_4))" +"((declared-submodule-names560_1128)" +" declared-submodule-names_786)" +"((mpis-to-reset561_1129)" +" mpis-to-reset_789)" +"((compiled-submodules562_1130)" +" compiled-submodules_787)" +"((modules-being-compiled563_1131)" +" modules-being-compiled_788))" "(expand-submodule193.1" -" compiled-submodules562_0" -" declared-submodule-names560_0" +" compiled-submodules562_1130" +" declared-submodule-names560_1128" " #f" " #f" -" temp559_0" +" temp559_1127" " #f" -" modules-being-compiled563_0" -" mpis-to-reset561_0" -" ready-body556_0" -" self557_0" -" partial-body-ctx558_0))))" +" modules-being-compiled563_1131" +" mpis-to-reset561_1129" +" ready-body556_1124" +" self557_1125" +" partial-body-ctx558_1126))))" "(cons" -" submod_2" -"(loop_122" -" tail?_53" -" rest-bodys_1)))))" +" submod_1122" +"(loop_791" +" tail?_0" +" rest-bodys_797)))))" "(if(equal?" -" tmp_64" +" tmp_806" " 'module*)" "(let-values()" "(begin" -"(let-values(((obs_155)" +"(let-values(((obs_1132)" "(expand-context-observer" -" partial-body-ctx_1)))" -"(if obs_155" +" partial-body-ctx_777)))" +"(if obs_1132" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_155" +" obs_1132" " 'enter-prim" -" exp-body_7)" +" exp-body_798)" "(call-expand-observe" -" obs_155" +" obs_1132" " 'prim-submodule*)" "(call-expand-observe" -" obs_155" +" obs_1132" " 'exit-prim" -" exp-body_7))))" +" exp-body_798))))" "(void)))" "(cons" -" exp-body_7" -"(loop_122" -" tail?_53" -" rest-bodys_1))))" +" exp-body_798" +"(loop_791" +" tail?_0" +" rest-bodys_797))))" "(if(equal?" -" tmp_64" +" tmp_806" " '#%declare)" "(let-values()" -"(let-values(((ok?_86" -" #%declare564_0" -" kw565_0)" -"(let-values(((s_856)" -" disarmed-exp-body_1))" -"(let-values(((orig-s_88)" -" s_856))" -"(let-values(((#%declare564_1" -" kw565_1)" -"(let-values(((s_857)" +"(let-values(((ok?_1133" +" #%declare564_1134" +" kw565_1135)" +"(let-values(((s_1150)" +" disarmed-exp-body_799))" +"(let-values(((orig-s_1151)" +" s_1150))" +"(let-values(((#%declare564_1152" +" kw565_1153)" +"(let-values(((s_1154)" "(if(syntax?$1" -" s_856)" +" s_1150)" "(syntax-e$1" -" s_856)" -" s_856)))" +" s_1150)" +" s_1150)))" "(if(pair?" -" s_857)" -"(let-values(((#%declare566_0)" -"(let-values(((s_274)" +" s_1154)" +"(let-values(((#%declare566_1155)" +"(let-values(((s_1157)" "(car" -" s_857)))" -" s_274))" -"((kw567_0)" -"(let-values(((s_858)" +" s_1154)))" +" s_1157))" +"((kw567_1156)" +"(let-values(((s_1158)" "(cdr" -" s_857)))" -"(let-values(((s_859)" +" s_1154)))" +"(let-values(((s_1159)" "(if(syntax?$1" -" s_858)" +" s_1158)" "(syntax-e$1" -" s_858)" -" s_858)))" -"(let-values(((flat-s_62)" +" s_1158)" +" s_1158)))" +"(let-values(((flat-s_1160)" "(to-syntax-list.1" -" s_859)))" +" s_1159)))" "(if(not" -" flat-s_62)" +" flat-s_1160)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_88))" +" orig-s_1151))" "(let-values()" -" flat-s_62)))))))" +" flat-s_1160)))))))" "(values" -" #%declare566_0" -" kw567_0))" +" #%declare566_1155" +" kw567_1156))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_88)))))" +" orig-s_1151)))))" "(values" " #t" -" #%declare564_1" -" kw565_1))))))" +" #%declare564_1152" +" kw565_1153))))))" "(let-values((()" "(begin" -"(let-values(((lst_441)" -" kw565_0))" +"(let-values(((lst_1161)" +" kw565_1135))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_441)))" -"((letrec-values(((for-loop_335)" -"(lambda(lst_442)" +" lst_1161)))" +"((letrec-values(((for-loop_1162)" +"(lambda(lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_442)" -"(let-values(((kw_1)" +" lst_0)" +"(let-values(((kw_1164)" "(unsafe-car" -" lst_442))" -"((rest_257)" +" lst_0))" +"((rest_1165)" "(unsafe-cdr" -" lst_442)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74941,17 +75366,17 @@ static const char *startup_source = "(begin" "(if(keyword?" "(syntax-e$1" -" kw_1))" +" kw_1164))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expected a keyword\"" -" exp-body_7" -" kw_1)))" +" exp-body_798" +" kw_1164)))" "(if(memq" "(syntax-e$1" -" kw_1)" +" kw_1164)" " '(#:cross-phase-persistent" " #:empty-namespace))" "(void)" @@ -74959,172 +75384,176 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"not an allowed declaration keyword\"" -" exp-body_7" -" kw_1)))" +" exp-body_798" +" kw_1164)))" "(if(hash-ref" -" declared-keywords_1" +" declared-keywords_785" "(syntax-e$1" -" kw_1)" +" kw_1164)" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"keyword declared multiple times\"" -" exp-body_7" -" kw_1))" +" exp-body_798" +" kw_1164))" "(void))" "(hash-set!" -" declared-keywords_1" +" declared-keywords_785" "(syntax-e$1" -" kw_1)" -" kw_1)))" +" kw_1164)" +" kw_1164)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_335" -" rest_257)" +"(for-loop_1162" +" rest_1165)" "(values))))" "(values))))))" -" for-loop_335)" -" lst_441)))" +" for-loop_1162)" +" lst_1161)))" "(values))))" "(let-values()" -"(let-values(((parsed-body_1)" +"(let-values(((parsed-body_1149)" "(parsed-#%declare22.1" -" exp-body_7)))" +" exp-body_798)))" "(cons" "(if(expand-context-to-parsed?" -" partial-body-ctx_1)" -" parsed-body_1" +" partial-body-ctx_777)" +" parsed-body_1149" "(expanded+parsed1.1" -" exp-body_7" -" parsed-body_1))" -"(loop_122" -" tail?_53" -" rest-bodys_1)))))))" +" exp-body_798" +" parsed-body_1149))" +"(loop_791" +" tail?_0" +" rest-bodys_797)))))))" "(let-values()" "(cons" -" exp-body_7" -"(loop_122" -" tail?_53" -" rest-bodys_1)))))))))))))))))" -"(let-values(((l_88)" +" exp-body_798" +"(loop_791" +" tail?_0" +" rest-bodys_797)))))))))))))))))" +"(let-values(((l_1166)" "(append" "(get-and-clear-require-lifts!" "(expand-context-require-lifts" -" partial-body-ctx_1))" -" lifted-defns_0" -"(loop_122" +" partial-body-ctx_777))" +" lifted-defns_800" +"(loop_791" " #f" "(add-post-expansion-scope" "(get-and-clear-module-lifts!" "(expand-context-module-lifts" -" partial-body-ctx_1))" -" partial-body-ctx_1)))))" -"(if(null? l_88)" -"(finish_2)" +" partial-body-ctx_777))" +" partial-body-ctx_777)))))" +"(if(null? l_1166)" +"(finish_805)" "(append" -" l_88" -"(finish_2)))))))))))))))))" -" loop_122)" +" l_1166" +"(finish_805)))))))))))))))))" +" loop_791)" " #t" -" bodys_20))))))))))))))))))))))" +" bodys_775))))))))))))))))))))))" "(define-values" "(make-wrap-as-definition)" -"(lambda(self_35 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_13 requires+provides_8)" +"(lambda(self_0 frame-id_0 inside-scope_0 all-scopes-stx_0 defined-syms_0 requires+provides_0)" "(begin" -"(lambda(ids_46 rhs_23 phase_147)" -"(let-values(((scoped-ids_0)" +"(lambda(ids_0 rhs_0 phase_0)" +"(let-values(((scoped-ids_1242)" "(reverse$1" -"(let-values(((lst_443) ids_46))" +"(let-values(((lst_1245) ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_443)))" -"((letrec-values(((for-loop_336)" -"(lambda(fold-var_379 lst_444)" +"(let-values()(check-list lst_1245)))" +"((letrec-values(((for-loop_1246)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_444)" -"(let-values(((id_157)(unsafe-car lst_444))" -"((rest_258)(unsafe-cdr lst_444)))" -"(let-values(((fold-var_380)" -"(let-values(((fold-var_381) fold-var_379))" -"(let-values(((fold-var_382)" +"(if(pair? lst_0)" +"(let-values(((id_1249)(unsafe-car lst_0))" +"((rest_1250)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_1251)" +"(let-values(((fold-var_1252) fold-var_0))" +"(let-values(((fold-var_1253)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_157" -" inside-scope_2))" -" fold-var_381))))" -"(values fold-var_382)))))" -"(if(not #f)(for-loop_336 fold-var_380 rest_258) fold-var_380)))" -" fold-var_379)))))" -" for-loop_336)" +" id_1249" +" inside-scope_0))" +" fold-var_1252))))" +"(values fold-var_1253)))))" +"(if(not #f)" +"(for-loop_1246 fold-var_1251 rest_1250)" +" fold-var_1251)))" +" fold-var_0)))))" +" for-loop_1246)" " null" -" lst_443))))))" -"(let-values(((syms_25)" -"(let-values(((scoped-ids568_0) scoped-ids_0)" -"((defined-syms569_0) defined-syms_13)" -"((self570_0) self_35)" -"((phase571_0) phase_147)" -"((all-scopes-stx572_0) all-scopes-stx_6)" -"((frame-id573_0) frame-id_18)" -"((requires+provides574_0) requires+provides_8))" +" lst_1245))))))" +"(let-values(((syms_1243)" +"(let-values(((scoped-ids568_1255) scoped-ids_1242)" +"((defined-syms569_1256) defined-syms_0)" +"((self570_1257) self_0)" +"((phase571_1258) phase_0)" +"((all-scopes-stx572_1259) all-scopes-stx_0)" +"((frame-id573_1260) frame-id_0)" +"((requires+provides574_1261) requires+provides_0))" "(select-defined-syms-and-bind!16.1" " #f" -" frame-id573_0" +" frame-id573_1260" " #f" -" requires+provides574_0" +" requires+provides574_1261" " #f" -" scoped-ids568_0" -" defined-syms569_0" -" self570_0" -" phase571_0" -" all-scopes-stx572_0))))" -"(let-values(((s_292)" +" scoped-ids568_1255" +" defined-syms569_1256" +" self570_1257" +" phase571_1258" +" all-scopes-stx572_1259))))" +"(let-values(((s_1244)" "(add-scope" "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_147) 'define-values)" -" scoped-ids_0" -" rhs_23))" -" inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_292 syms_25 scoped-ids_0 rhs_23)))))))))" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_0) 'define-values)" +" scoped-ids_1242" +" rhs_0))" +" inside-scope_0)))" +"(values scoped-ids_1242(semi-parsed-define-values2.1 s_1244 syms_1243 scoped-ids_1242 rhs_0)))))))))" "(define-values" "(add-post-expansion-scope)" -"(lambda(bodys_23 ctx_115)" +"(lambda(bodys_0 ctx_0)" "(begin" -"(let-values(((pe_3)(root-expand-context-post-expansion ctx_115)))" -"(if pe_3" +"(let-values(((pe_1264)(root-expand-context-post-expansion ctx_0)))" +"(if pe_1264" "(reverse$1" -"(let-values(((lst_445) bodys_23))" +"(let-values(((lst_1265) bodys_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_445)))" -"((letrec-values(((for-loop_337)" -"(lambda(fold-var_383 lst_446)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_1265)))" +"((letrec-values(((for-loop_1266)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_446)" -"(let-values(((body_21)(unsafe-car lst_446))((rest_259)(unsafe-cdr lst_446)))" -"(let-values(((fold-var_384)" -"(let-values(((fold-var_385) fold-var_383))" -"(let-values(((fold-var_386)" +"(if(pair? lst_0)" +"(let-values(((body_1269)(unsafe-car lst_0))((rest_1270)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_1271)" +"(let-values(((fold-var_1272) fold-var_0))" +"(let-values(((fold-var_1273)" "(let-values()" "(cons" "(let-values()" -"(apply-post-expansion pe_3 body_21))" -" fold-var_385))))" -"(values fold-var_386)))))" -"(if(not #f)(for-loop_337 fold-var_384 rest_259) fold-var_384)))" -" fold-var_383)))))" -" for-loop_337)" +"(apply-post-expansion pe_1264 body_1269))" +" fold-var_1272))))" +"(values fold-var_1273)))))" +"(if(not #f)(for-loop_1266 fold-var_1271 rest_1270) fold-var_1271)))" +" fold-var_0)))))" +" for-loop_1266)" " null" -" lst_445))))" -" bodys_23)))))" +" lst_1265))))" +" bodys_0)))))" "(define-values" "(finish-expanding-body-expressons97.1)" "(lambda(compiled-submodules86_0" @@ -75137,436 +75566,444 @@ static const char *startup_source = " partially-expanded-bodys96_0)" "(begin" " 'finish-expanding-body-expressons97" -"(let-values(((partially-expanded-bodys_1) partially-expanded-bodys96_0))" -"(let-values(((phase_148) phase82_0))" -"(let-values(((body-ctx_7) ctx83_0))" -"(let-values(((self_36) self84_0))" -"(let-values(((declared-submodule-names_5) declared-submodule-names85_0))" -"(let-values(((compiled-submodules_3) compiled-submodules86_0))" -"(let-values(((modules-being-compiled_5) modules-being-compiled87_0))" -"(let-values(((mpis-to-reset_2) mpis-to-reset88_0))" +"(let-values(((partially-expanded-bodys_1286) partially-expanded-bodys96_0))" +"(let-values(((phase_1287) phase82_0))" +"(let-values(((body-ctx_1288) ctx83_0))" +"(let-values(((self_1289) self84_0))" +"(let-values(((declared-submodule-names_1290) declared-submodule-names85_0))" +"(let-values(((compiled-submodules_1291) compiled-submodules86_0))" +"(let-values(((modules-being-compiled_1292) modules-being-compiled87_0))" +"(let-values(((mpis-to-reset_1293) mpis-to-reset88_0))" "(let-values()" -"((letrec-values(((loop_123)" -"(lambda(tail?_54 bodys_24)" +"((letrec-values(((loop_1294)" +"(lambda(tail?_0 bodys_0)" "(begin" " 'loop" -"(if(null? bodys_24)" +"(if(null? bodys_0)" "(let-values()" -"(if(if tail?_54(not(zero? phase_148)) #f)" +"(if(if tail?_0(not(zero? phase_1287)) #f)" "(let-values()" "(begin" -"(let-values(((obs_156)(expand-context-observer body-ctx_7)))" -"(if obs_156" +"(let-values(((obs_1297)" +"(expand-context-observer body-ctx_1288)))" +"(if obs_1297" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_156" +" obs_1297" " 'module-lift-end-loop" " '())))" "(void)))" " null))" -"(if tail?_54" +"(if tail?_0" "(let-values()" -"(let-values(((bodys_25)" +"(let-values(((bodys_1298)" "(append" "(get-and-clear-end-lifts!" -"(expand-context-to-module-lifts body-ctx_7))" +"(expand-context-to-module-lifts body-ctx_1288))" "(get-and-clear-provide-lifts!" -"(expand-context-to-module-lifts body-ctx_7)))))" -"(if(null? bodys_25)" +"(expand-context-to-module-lifts" +" body-ctx_1288)))))" +"(if(null? bodys_1298)" "(let-values()" "(begin" -"(let-values(((obs_157)" -"(expand-context-observer body-ctx_7)))" -"(if obs_157" +"(let-values(((obs_1299)" +"(expand-context-observer body-ctx_1288)))" +"(if obs_1299" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_157" +" obs_1299" " 'module-lift-end-loop" " '())))" "(void)))" " null))" "(let-values()" -"(loop_123" +"(loop_1294" " #t" -"(add-post-expansion-scope bodys_25 body-ctx_7))))))" +"(add-post-expansion-scope bodys_1298 body-ctx_1288))))))" "(let-values() null))))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_158)" -"(expand-context-observer body-ctx_7)))" -"(if obs_158" +"(let-values(((obs_1309)" +"(expand-context-observer" +" body-ctx_1288)))" +"(if obs_1309" "(let-values()" "(let-values()" -"(call-expand-observe obs_158 'next)))" +"(call-expand-observe obs_1309 'next)))" "(void)))" "(values))))" -"(let-values(((body_22)(car bodys_24)))" -"(let-values(((rest-bodys_2)(cdr bodys_24)))" -"(let-values(((exp-body_8)" -"(if(let-values(((or-part_411)" -"(parsed? body_22)))" -"(if or-part_411" -" or-part_411" -"(let-values(((or-part_412)" -"(expanded+parsed? body_22)))" -"(if or-part_412" -" or-part_412" +"(let-values(((body_1300)(car bodys_0)))" +"(let-values(((rest-bodys_1301)(cdr bodys_0)))" +"(let-values(((exp-body_1302)" +"(if(let-values(((or-part_1310)" +"(parsed? body_1300)))" +"(if or-part_1310" +" or-part_1310" +"(let-values(((or-part_1311)" +"(expanded+parsed?" +" body_1300)))" +"(if or-part_1311" +" or-part_1311" "(semi-parsed-begin-for-syntax?" -" body_22)))))" -"(let-values() body_22)" -"(if(semi-parsed-define-values? body_22)" +" body_1300)))))" +"(let-values() body_1300)" +"(if(semi-parsed-define-values? body_1300)" "(let-values()" -"(let-values(((ids_47)" +"(let-values(((ids_1312)" "(semi-parsed-define-values-ids" -" body_22)))" -"(let-values(((rhs-ctx_2)" +" body_1300)))" +"(let-values(((rhs-ctx_1313)" "(as-named-context" "(as-expression-context" -" body-ctx_7)" -" ids_47)))" -"(let-values(((syms_26)" +" body-ctx_1288)" +" ids_1312)))" +"(let-values(((syms_1314)" "(semi-parsed-define-values-syms" -" body_22)))" -"(let-values(((s_860)" +" body_1300)))" +"(let-values(((s_1315)" "(semi-parsed-define-values-s" -" body_22)))" -"(let-values(((ok?_87" -" define-values575_0" -" _576_0" -" _577_0)" -"(let-values(((s_861)" +" body_1300)))" +"(let-values(((ok?_1316" +" define-values575_1317" +" _576_1318" +" _577_1319)" +"(let-values(((s_1339)" "(syntax-disarm$1" -" s_860)))" +" s_1315)))" "(if(if(not" "(expand-context-to-parsed?" -" rhs-ctx_2))" +" rhs-ctx_1313))" " #t" " #f)" -"(let-values(((orig-s_89)" -" s_861))" -"(let-values(((define-values575_1" -" _576_1" -" _577_1)" -"(let-values(((s_862)" +"(let-values(((orig-s_1340)" +" s_1339))" +"(let-values(((define-values575_1341" +" _576_1342" +" _577_1343)" +"(let-values(((s_1344)" "(if(syntax?$1" -" s_861)" +" s_1339)" "(syntax-e$1" -" s_861)" -" s_861)))" +" s_1339)" +" s_1339)))" "(if(pair?" -" s_862)" -"(let-values(((define-values578_0)" -"(let-values(((s_863)" +" s_1344)" +"(let-values(((define-values578_1345)" +"(let-values(((s_1348)" "(car" -" s_862)))" -" s_863))" -"((_579_0" -" _580_0)" -"(let-values(((s_864)" +" s_1344)))" +" s_1348))" +"((_579_1346" +" _580_1347)" +"(let-values(((s_1349)" "(cdr" -" s_862)))" -"(let-values(((s_865)" +" s_1344)))" +"(let-values(((s_1350)" "(if(syntax?$1" -" s_864)" +" s_1349)" "(syntax-e$1" -" s_864)" -" s_864)))" +" s_1349)" +" s_1349)))" "(if(pair?" -" s_865)" -"(let-values(((_581_0)" -"(let-values(((s_866)" +" s_1350)" +"(let-values(((_581_1351)" +"(let-values(((s_1353)" "(car" -" s_865)))" -" s_866))" -"((_582_0)" -"(let-values(((s_867)" +" s_1350)))" +" s_1353))" +"((_582_1352)" +"(let-values(((s_1354)" "(cdr" -" s_865)))" -"(let-values(((s_868)" +" s_1350)))" +"(let-values(((s_1355)" "(if(syntax?$1" -" s_867)" +" s_1354)" "(syntax-e$1" -" s_867)" -" s_867)))" +" s_1354)" +" s_1354)))" "(if(pair?" -" s_868)" -"(let-values(((_583_0)" -"(let-values(((s_869)" +" s_1355)" +"(let-values(((_583_1356)" +"(let-values(((s_1357)" "(car" -" s_868)))" -" s_869))" +" s_1355)))" +" s_1357))" "(()" -"(let-values(((s_870)" +"(let-values(((s_1358)" "(cdr" -" s_868)))" -"(let-values(((s_871)" +" s_1355)))" +"(let-values(((s_1359)" "(if(syntax?$1" -" s_870)" +" s_1358)" "(syntax-e$1" -" s_870)" -" s_870)))" +" s_1358)" +" s_1358)))" "(if(null?" -" s_871)" +" s_1359)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_89))))))" +" orig-s_1340))))))" "(values" -" _583_0))" +" _583_1356))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_89))))))" +" orig-s_1340))))))" "(values" -" _581_0" -" _582_0))" +" _581_1351" +" _582_1352))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_89))))))" +" orig-s_1340))))))" "(values" -" define-values578_0" -" _579_0" -" _580_0))" +" define-values578_1345" +" _579_1346" +" _580_1347))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_89)))))" +" orig-s_1340)))))" "(values" " #t" -" define-values575_1" -" _576_1" -" _577_1)))" +" define-values575_1341" +" _576_1342" +" _577_1343)))" "(values" " #f" " #f" " #f" " #f)))))" -"(let-values(((rebuild-s_15)" -"(let-values(((rhs-ctx584_0)" -" rhs-ctx_2)" -"((s585_0)" -" s_860)" -"((temp586_0)" +"(let-values(((rebuild-s_1336)" +"(let-values(((rhs-ctx584_1361)" +" rhs-ctx_1313)" +"((s585_1362)" +" s_1315)" +"((temp586_1363)" " #t))" "(keep-as-needed119.1" " #f" " #f" -" temp586_0" -" rhs-ctx584_0" -" s585_0))))" +" temp586_1363" +" rhs-ctx584_1361" +" s585_1362))))" "(let-values((()" "(begin" "(log-defn-enter" -" body-ctx_7" -" body_22)" +" body-ctx_1288" +" body_1300)" "(values))))" -"(let-values(((exp-rhs_7)" +"(let-values(((exp-rhs_1337)" "(let-values()" -"(let-values(((temp587_0)" +"(let-values(((temp587_1364)" "(semi-parsed-define-values-rhs" -" body_22))" -"((rhs-ctx588_0)" -" rhs-ctx_2))" +" body_1300))" +"((rhs-ctx588_1365)" +" rhs-ctx_1313))" "(expand9.1" " #f" " #f" " #f" -" temp587_0" -" rhs-ctx588_0)))))" +" temp587_1364" +" rhs-ctx588_1365)))))" "(let-values((()" "(begin" "(log-defn-exit" -" body-ctx_7" -" body_22" -" exp-rhs_7)" +" body-ctx_1288" +" body_1300" +" exp-rhs_1337)" "(values))))" -"(let-values(((comp-form_0)" +"(let-values(((comp-form_1338)" "(parsed-define-values19.1" -" rebuild-s_15" -" ids_47" -" syms_26" +" rebuild-s_1336" +" ids_1312" +" syms_1314" "(if(expand-context-to-parsed?" -" rhs-ctx_2)" -" exp-rhs_7" -"(let-values(((exp-rhs589_0)" -" exp-rhs_7)" -"((temp590_0)" +" rhs-ctx_1313)" +" exp-rhs_1337" +"(let-values(((exp-rhs589_1366)" +" exp-rhs_1337)" +"((temp590_1367)" "(as-to-parsed-context" -" rhs-ctx_2)))" +" rhs-ctx_1313)))" "(expand9.1" " #f" " #f" " #f" -" exp-rhs589_0" -" temp590_0))))))" +" exp-rhs589_1366" +" temp590_1367))))))" "(if(expand-context-to-parsed?" -" rhs-ctx_2)" -" comp-form_0" +" rhs-ctx_1313)" +" comp-form_1338" "(expanded+parsed1.1" -"(let-values(((rebuild-s591_0)" -" rebuild-s_15)" -"((temp592_0)" +"(let-values(((rebuild-s591_1368)" +" rebuild-s_1336)" +"((temp592_1369)" "(list" -" define-values575_0" -" ids_47" -" exp-rhs_7)))" +" define-values575_1317" +" ids_1312" +" exp-rhs_1337)))" "(rebuild5.1" " #t" -" rebuild-s591_0" -" temp592_0))" -" comp-form_0)))))))))))))" +" rebuild-s591_1368" +" temp592_1369))" +" comp-form_1338)))))))))))))" "(let-values()" -"(let-values(((disarmed-body_0)" -"(syntax-disarm$1 body_22)))" -"(let-values(((tmp_65)" +"(let-values(((disarmed-body_1370)" +"(syntax-disarm$1 body_1300)))" +"(let-values(((tmp_1371)" "(core-form-sym" -" disarmed-body_0" -" phase_148)))" -"(if(if(equal? tmp_65 '#%require)" +" disarmed-body_1370" +" phase_1287)))" +"(if(if(equal? tmp_1371 '#%require)" " #t" -"(if(equal? tmp_65 '#%provide)" +"(if(equal? tmp_1371 '#%provide)" " #t" -"(equal? tmp_65 'module*)))" -"(let-values() body_22)" +"(equal? tmp_1371 'module*)))" +"(let-values() body_1300)" "(let-values()" "(let-values()" -"(let-values(((exp-body_9)" -"(let-values(((body593_0)" -" body_22)" -"((temp594_0)" +"(let-values(((exp-body_1372)" +"(let-values(((body593_1373)" +" body_1300)" +"((temp594_1374)" "(as-expression-context" -" body-ctx_7)))" +" body-ctx_1288)))" "(expand9.1" " #f" " #f" " #f" -" body593_0" -" temp594_0))))" +" body593_1373" +" temp594_1374))))" "(if(expand-context-to-parsed?" -" body-ctx_7)" -" exp-body_9" +" body-ctx_1288)" +" exp-body_1372" "(expanded+parsed1.1" -" exp-body_9" -"(let-values(((exp-body595_0)" -" exp-body_9)" -"((temp596_0)" +" exp-body_1372" +"(let-values(((exp-body595_1375)" +" exp-body_1372)" +"((temp596_1376)" "(as-to-parsed-context" -" body-ctx_7)))" +" body-ctx_1288)))" "(expand9.1" " #f" " #f" " #f" -" exp-body595_0" -" temp596_0)))))))))))))))" -"(let-values(((lifted-defns_1)" +" exp-body595_1375" +" temp596_1376)))))))))))))))" +"(let-values(((lifted-defns_1303)" "(get-and-clear-lifts!" -"(expand-context-lifts body-ctx_7))))" -"(let-values(((lifted-requires_0)" +"(expand-context-lifts body-ctx_1288))))" +"(let-values(((lifted-requires_1304)" "(get-and-clear-require-lifts!" -"(expand-context-require-lifts body-ctx_7))))" -"(let-values(((lifted-modules_0)" +"(expand-context-require-lifts" +" body-ctx_1288))))" +"(let-values(((lifted-modules_1305)" "(get-and-clear-module-lifts!" -"(expand-context-module-lifts body-ctx_7))))" -"(let-values(((no-lifts?_0)" -"(if(null? lifted-defns_1)" -"(if(null? lifted-modules_0)" -"(null? lifted-requires_0)" +"(expand-context-module-lifts" +" body-ctx_1288))))" +"(let-values(((no-lifts?_1306)" +"(if(null? lifted-defns_1303)" +"(if(null? lifted-modules_1305)" +"(null? lifted-requires_1304)" " #f)" " #f)))" "(let-values((()" "(begin" -"(if no-lifts?_0" +"(if no-lifts?_1306" "(void)" "(let-values()" -"(let-values(((obs_159)" +"(let-values(((obs_1377)" "(expand-context-observer" -" body-ctx_7)))" -"(if obs_159" +" body-ctx_1288)))" +"(if obs_1377" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_159" +" obs_1377" " 'module-lift-loop" "(append" -" lifted-requires_0" +" lifted-requires_1304" "(lifted-defns-extract-syntax" -" lifted-defns_1)" +" lifted-defns_1303)" "(add-post-expansion-scope" -" lifted-modules_0" -" body-ctx_7)))))" +" lifted-modules_1305" +" body-ctx_1288)))))" "(void)))))" "(values))))" -"(let-values(((exp-lifted-modules_0)" -"(let-values(((lifted-modules597_0)" -" lifted-modules_0)" -"((phase598_0) phase_148)" -"((self599_0) self_36)" -"((body-ctx600_0)" -" body-ctx_7)" -"((mpis-to-reset601_0)" -" mpis-to-reset_2)" -"((declared-submodule-names602_0)" -" declared-submodule-names_5)" -"((compiled-submodules603_0)" -" compiled-submodules_3)" -"((modules-being-compiled604_0)" -" modules-being-compiled_5))" +"(let-values(((exp-lifted-modules_1307)" +"(let-values(((lifted-modules597_1379)" +" lifted-modules_1305)" +"((phase598_1380)" +" phase_1287)" +"((self599_1381)" +" self_1289)" +"((body-ctx600_1382)" +" body-ctx_1288)" +"((mpis-to-reset601_1383)" +" mpis-to-reset_1293)" +"((declared-submodule-names602_1384)" +" declared-submodule-names_1290)" +"((compiled-submodules603_1385)" +" compiled-submodules_1291)" +"((modules-being-compiled604_1386)" +" modules-being-compiled_1292))" "(expand-non-module*-submodules208.1" -" compiled-submodules603_0" -" declared-submodule-names602_0" -" modules-being-compiled604_0" -" mpis-to-reset601_0" -" lifted-modules597_0" -" phase598_0" -" self599_0" -" body-ctx600_0))))" -"(let-values(((exp-lifted-defns_0)" -"(loop_123 #f lifted-defns_1)))" +" compiled-submodules603_1385" +" declared-submodule-names602_1384" +" modules-being-compiled604_1386" +" mpis-to-reset601_1383" +" lifted-modules597_1379" +" phase598_1380" +" self599_1381" +" body-ctx600_1382))))" +"(let-values(((exp-lifted-defns_1308)" +"(loop_1294 #f lifted-defns_1303)))" "(begin" -"(if no-lifts?_0" +"(if no-lifts?_1306" "(void)" "(let-values()" -"(let-values(((obs_160)" +"(let-values(((obs_1387)" "(expand-context-observer" -" body-ctx_7)))" -"(if obs_160" +" body-ctx_1288)))" +"(if obs_1387" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_160" +" obs_1387" " 'next)))" "(void)))))" "(append" -" lifted-requires_0" -" exp-lifted-defns_0" -" exp-lifted-modules_0" +" lifted-requires_1304" +" exp-lifted-defns_1308" +" exp-lifted-modules_1307" "(cons" -" exp-body_8" -"(loop_123" -" tail?_54" -" rest-bodys_2)))))))))))))))))))))" -" loop_123)" +" exp-body_1302" +"(loop_1294" +" tail?_0" +" rest-bodys_1301)))))))))))))))))))))" +" loop_1294)" " #t" -" partially-expanded-bodys_1)))))))))))))" +" partially-expanded-bodys_1286)))))))))))))" "(define-values" "(check-defined-by-now)" -"(lambda(need-eventually-defined_3 self_37 ctx_116 requires+provides_9)" +"(lambda(need-eventually-defined_0 self_0 ctx_0 requires+provides_0)" "(begin" "(begin" -"(let-values(((ht_166) need-eventually-defined_3))" +"(let-values(((ht_1426) need-eventually-defined_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_166)))" -"((letrec-values(((for-loop_338)" -"(lambda(i_187)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_1426)))" +"((letrec-values(((for-loop_1427)" +"(lambda(i_0)" "(begin" " 'for-loop" -"(if i_187" -"(let-values(((phase_149 l_89)(hash-iterate-key+value ht_166 i_187)))" +"(if i_0" +"(let-values(((phase_1429 l_1430)(hash-iterate-key+value ht_1426 i_0)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75574,69 +76011,69 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_447)(reverse$1 l_89)))" +"(let-values(((lst_1431)" +"(reverse$1 l_1430)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_447)))" -"((letrec-values(((for-loop_339)" -"(lambda(lst_448)" +"(let-values()(check-list lst_1431)))" +"((letrec-values(((for-loop_1432)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair?" -" lst_448)" -"(let-values(((id_158)" +"(if(pair? lst_0)" +"(let-values(((id_1434)" "(unsafe-car" -" lst_448))" -"((rest_260)" +" lst_0))" +"((rest_1435)" "(unsafe-cdr" -" lst_448)))" +" lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((b_96)" -"(let-values(((id605_0)" -" id_158)" -"((phase606_0)" -" phase_149))" +"(let-values(((b_1436)" +"(let-values(((id605_1439)" +" id_1434)" +"((phase606_1440)" +" phase_1429))" "(resolve+shift28.1" " #f" " #f" " null" " unsafe-undefined" " #f" -" id605_0" -" phase606_0))))" -"(let-values(((bound-here?_0)" -"(if b_96" +" id605_1439" +" phase606_1440))))" +"(let-values(((bound-here?_1437)" +"(if b_1436" "(if(module-binding?" -" b_96)" +" b_1436)" "(if(eq?" "(module-binding-sym" -" b_96)" +" b_1436)" "(syntax-e$1" -" id_158))" +" id_1434))" "(eq?" "(module-binding-module" -" b_96)" -" self_37)" +" b_1436)" +" self_0)" " #f)" " #f)" " #f)))" -"(let-values(((bound-kind_0)" -"(if bound-here?_0" +"(let-values(((bound-kind_1438)" +"(if bound-here?_1437" "(defined-sym-kind" -" requires+provides_9" +" requires+provides_0" "(module-binding-sym" -" b_96)" -" phase_149)" +" b_1436)" +" phase_1429)" " #f)))" "(if(eq?" -" bound-kind_0" +" bound-kind_1438" " 'variable)" "(void)" "(let-values()" @@ -75644,11 +76081,11 @@ static const char *startup_source = " #f" "(string-append" "(if(not" -" b_96)" +" b_1436)" "(let-values()" " \"reference to an unbound identifier\")" "(if(eq?" -" bound-kind_0" +" bound-kind_1438" " 'transformer)" "(let-values()" " \"identifier treated as a variable, but later defined as syntax\")" @@ -75656,37 +76093,37 @@ static const char *startup_source = " \"identifier treated as a variable, but later bound differently\")))" "(format" " \"\\n at phase: ~a\"" -"(let-values(((tmp_66)" -" phase_149))" +"(let-values(((tmp_1441)" +" phase_1429))" "(if(equal?" -" tmp_66" +" tmp_1441" " 1)" "(let-values()" " \"1; the transformer environment\")" "(let-values()" -" phase_149)))))" -" id_158" +" phase_1429)))))" +" id_1434" " #f" " null" "(syntax-debug-info-string" -" id_158" -" ctx_116))))))))" +" id_1434" +" ctx_0))))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_339" -" rest_260)" +"(for-loop_1432" +" rest_1435)" "(values))))" "(values))))))" -" for-loop_339)" -" lst_447)))" +" for-loop_1432)" +" lst_1431)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_338(hash-iterate-next ht_166 i_187))(values))))" +"(if(not #f)(for-loop_1427(hash-iterate-next ht_1426 i_0))(values))))" "(values))))))" -" for-loop_338)" -"(hash-iterate-first ht_166))))" +" for-loop_1427)" +"(hash-iterate-first ht_1426))))" "(void)))))" "(define-values" "(resolve-provides113.1)" @@ -75699,277 +76136,275 @@ static const char *startup_source = " expression-expanded-bodys112_0)" "(begin" " 'resolve-provides113" -"(let-values(((expression-expanded-bodys_1) expression-expanded-bodys112_0))" -"(let-values(((requires+provides_10) requires-and-provides100_0))" -"(let-values(((declared-submodule-names_6) declared-submodule-names101_0))" -"(let-values(((m-ns_21) namespace102_0))" -"(let-values(((phase_150) phase103_0))" -"(let-values(((self_38) self104_0))" -"(let-values(((ctx_117) ctx105_0))" +"(let-values(((expression-expanded-bodys_1453) expression-expanded-bodys112_0))" +"(let-values(((requires+provides_1454) requires-and-provides100_0))" +"(let-values(((declared-submodule-names_1455) declared-submodule-names101_0))" +"(let-values(((m-ns_1456) namespace102_0))" +"(let-values(((phase_1457) phase103_0))" +"(let-values(((self_1458) self104_0))" +"(let-values(((ctx_1459) ctx105_0))" "(let-values()" "(let-values()" -"((letrec-values(((loop_124)" -"(lambda(bodys_26 phase_151)" +"((letrec-values(((loop_1460)" +"(lambda(bodys_0 phase_0)" "(begin" " 'loop" -"(if(null? bodys_26)" +"(if(null? bodys_0)" "(let-values() null)" -"(if(let-values(((or-part_413)(parsed?(car bodys_26))))" -"(if or-part_413 or-part_413(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_1463)(parsed?(car bodys_0))))" +"(if or-part_1463 or-part_1463(expanded+parsed?(car bodys_0))))" +"(let-values()(cons(car bodys_0)(loop_1460(cdr bodys_0) phase_0)))" +"(if(semi-parsed-begin-for-syntax?(car bodys_0))" "(let-values()" -"(cons(car bodys_26)(loop_124(cdr bodys_26) phase_151)))" -"(if(semi-parsed-begin-for-syntax?(car bodys_26))" -"(let-values()" -"(let-values(((nested-bodys_2)" -"(loop_124" -"(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_151))))" +"(let-values(((nested-bodys_1464)" +"(loop_1460" +"(semi-parsed-begin-for-syntax-body(car bodys_0))" +"(add1 phase_0))))" "(cons" -"(let-values(((the-struct_116)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_116)" -"(let-values(((body607_0) nested-bodys_2))" +"(let-values(((the-struct_1465)(car bodys_0)))" +"(if(semi-parsed-begin-for-syntax? the-struct_1465)" +"(let-values(((body607_1466) nested-bodys_1464))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_116)" -" body607_0))" +"(semi-parsed-begin-for-syntax-s the-struct_1465)" +" body607_1466))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_116)))" -"(loop_124(cdr bodys_26) phase_151))))" +" the-struct_1465)))" +"(loop_1460(cdr bodys_0) phase_0))))" "(let-values()" -"(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" -"(let-values(((tmp_67)" -"(core-form-sym disarmed-body_1 phase_151)))" -"(if(equal? tmp_67 '#%provide)" +"(let-values(((disarmed-body_1467)" +"(syntax-disarm$1(car bodys_0))))" +"(let-values(((tmp_1468)" +"(core-form-sym disarmed-body_1467 phase_0)))" +"(if(equal? tmp_1468 '#%provide)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_161)" +"(let-values(((obs_1487)" "(expand-context-observer" -" ctx_117)))" -"(if obs_161" +" ctx_1459)))" +"(if obs_1487" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_161" +" obs_1487" " 'enter-prim" -"(car bodys_26))" +"(car bodys_0))" "(call-expand-observe" -" obs_161" +" obs_1487" " 'prim-provide))))" "(void)))" "(values))))" -"(let-values(((ok?_88 #%provide608_0 spec609_0)" -"(let-values(((s_872) disarmed-body_1))" -"(let-values(((orig-s_90) s_872))" -"(let-values(((#%provide608_1" -" spec609_1)" -"(let-values(((s_664)" +"(let-values(((ok?_1469 #%provide608_1470 spec609_1471)" +"(let-values(((s_1488)" +" disarmed-body_1467))" +"(let-values(((orig-s_1489) s_1488))" +"(let-values(((#%provide608_1490" +" spec609_1491)" +"(let-values(((s_1492)" "(if(syntax?$1" -" s_872)" +" s_1488)" "(syntax-e$1" -" s_872)" -" s_872)))" -"(if(pair? s_664)" -"(let-values(((#%provide610_0)" -"(let-values(((s_873)" +" s_1488)" +" s_1488)))" +"(if(pair? s_1492)" +"(let-values(((#%provide610_1493)" +"(let-values(((s_1495)" "(car" -" s_664)))" -" s_873))" -"((spec611_0)" -"(let-values(((s_874)" +" s_1492)))" +" s_1495))" +"((spec611_1494)" +"(let-values(((s_1496)" "(cdr" -" s_664)))" -"(let-values(((s_875)" +" s_1492)))" +"(let-values(((s_1497)" "(if(syntax?$1" -" s_874)" +" s_1496)" "(syntax-e$1" -" s_874)" -" s_874)))" -"(let-values(((flat-s_63)" +" s_1496)" +" s_1496)))" +"(let-values(((flat-s_1498)" "(to-syntax-list.1" -" s_875)))" +" s_1497)))" "(if(not" -" flat-s_63)" +" flat-s_1498)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_90))" +" orig-s_1489))" "(let-values()" -" flat-s_63)))))))" +" flat-s_1498)))))))" "(values" -" #%provide610_0" -" spec611_0))" +" #%provide610_1493" +" spec611_1494))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_90)))))" +" orig-s_1489)))))" "(values" " #t" -" #%provide608_1" -" spec609_1))))))" -"(let-values(((track-stxes_10 specs_2)" +" #%provide608_1490" +" spec609_1491))))))" +"(let-values(((track-stxes_1485 specs_1486)" "(parse-and-expand-provides!" -" spec609_0" -"(car bodys_26)" -" requires+provides_10" -" self_38" -" phase_151" -"(let-values(((v_268) ctx_117))" -"(let-values(((the-struct_117)" -" v_268))" +" spec609_1471" +"(car bodys_0)" +" requires+provides_1454" +" self_1458" +" phase_0" +"(let-values(((v_1499) ctx_1459))" +"(let-values(((the-struct_1500)" +" v_1499))" "(if(expand-context/outer?" -" the-struct_117)" -"(let-values(((context612_0)" +" the-struct_1500)" +"(let-values(((context612_1501)" " 'top-level)" -"((inner613_0)" -"(let-values(((the-struct_118)" +"((inner613_1502)" +"(let-values(((the-struct_1503)" "(root-expand-context/outer-inner" -" v_268)))" +" v_1499)))" "(if(expand-context/inner?" -" the-struct_118)" -"(let-values(((phase614_0)" -" phase_151)" -"((namespace615_0)" +" the-struct_1503)" +"(let-values(((phase614_1504)" +" phase_0)" +"((namespace615_1505)" "(namespace->namespace-at-phase" -" m-ns_21" -" phase_151))" -"((requires+provides616_0)" -" requires+provides_10)" -"((declared-submodule-names617_0)" -" declared-submodule-names_6))" +" m-ns_1456" +" phase_0))" +"((requires+provides616_1506)" +" requires+provides_1454)" +"((declared-submodule-names617_1507)" +" declared-submodule-names_1455))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_118)" +" the-struct_1503)" "(root-expand-context/inner-module-scopes" -" the-struct_118)" +" the-struct_1503)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_118)" +" the-struct_1503)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_118)" +" the-struct_1503)" "(root-expand-context/inner-defined-syms" -" the-struct_118)" +" the-struct_1503)" "(root-expand-context/inner-counter" -" the-struct_118)" +" the-struct_1503)" "(root-expand-context/inner-lift-key" -" the-struct_118)" +" the-struct_1503)" "(expand-context/inner-to-parsed?" -" the-struct_118)" -" phase614_0" -" namespace615_0" +" the-struct_1503)" +" phase614_1504" +" namespace615_1505" "(expand-context/inner-just-once?" -" the-struct_118)" +" the-struct_1503)" "(expand-context/inner-module-begin-k" -" the-struct_118)" +" the-struct_1503)" "(expand-context/inner-allow-unbound?" -" the-struct_118)" +" the-struct_1503)" "(expand-context/inner-in-local-expand?" -" the-struct_118)" +" the-struct_1503)" "(expand-context/inner-keep-#%expression?" -" the-struct_118)" +" the-struct_1503)" "(expand-context/inner-stops" -" the-struct_118)" -" declared-submodule-names617_0" +" the-struct_1503)" +" declared-submodule-names617_1507" "(expand-context/inner-lifts" -" the-struct_118)" +" the-struct_1503)" "(expand-context/inner-lift-envs" -" the-struct_118)" +" the-struct_1503)" "(expand-context/inner-module-lifts" -" the-struct_118)" +" the-struct_1503)" "(expand-context/inner-require-lifts" -" the-struct_118)" +" the-struct_1503)" "(expand-context/inner-to-module-lifts" -" the-struct_118)" -" requires+provides616_0" +" the-struct_1503)" +" requires+provides616_1506" "(expand-context/inner-observer" -" the-struct_118)" +" the-struct_1503)" "(expand-context/inner-for-serializable?" -" the-struct_118)" +" the-struct_1503)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_118)))" +" the-struct_1503)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_118)))))" +" the-struct_1503)))))" "(expand-context/outer1.1" -" inner613_0" +" inner613_1502" "(root-expand-context/outer-post-expansion" -" the-struct_117)" +" the-struct_1500)" "(root-expand-context/outer-use-site-scopes" -" the-struct_117)" +" the-struct_1500)" "(root-expand-context/outer-frame-id" -" the-struct_117)" -" context612_0" +" the-struct_1500)" +" context612_1501" "(expand-context/outer-env" -" the-struct_117)" +" the-struct_1500)" "(expand-context/outer-scopes" -" the-struct_117)" +" the-struct_1500)" "(expand-context/outer-def-ctx-scopes" -" the-struct_117)" +" the-struct_1500)" "(expand-context/outer-binding-layer" -" the-struct_117)" +" the-struct_1500)" "(expand-context/outer-reference-records" -" the-struct_117)" +" the-struct_1500)" "(expand-context/outer-only-immediate?" -" the-struct_117)" +" the-struct_1500)" "(expand-context/outer-need-eventually-defined" -" the-struct_117)" +" the-struct_1500)" "(expand-context/outer-current-introduction-scopes" -" the-struct_117)" +" the-struct_1500)" "(expand-context/outer-current-use-scopes" -" the-struct_117)" +" the-struct_1500)" "(expand-context/outer-name" -" the-struct_117)))" +" the-struct_1500)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_117)))))))" -"(if(expand-context-to-parsed? ctx_117)" +" the-struct_1500)))))))" +"(if(expand-context-to-parsed? ctx_1459)" +"(let-values()(loop_1460(cdr bodys_0) phase_0))" "(let-values()" -"(loop_124(cdr bodys_26) phase_151))" -"(let-values()" -"(let-values(((new-s_10)" +"(let-values(((new-s_1508)" "(syntax-track-origin*" -" track-stxes_10" -"(let-values(((temp618_0)" -"(car bodys_26))" -"((temp619_0)" +" track-stxes_1485" +"(let-values(((temp618_1509)" +"(car bodys_0))" +"((temp619_1510)" "(list*" -" #%provide608_0" -" specs_2)))" +" #%provide608_1470" +" specs_1486)))" "(rebuild5.1" " #t" -" temp618_0" -" temp619_0)))))" +" temp618_1509" +" temp619_1510)))))" "(begin" -"(let-values(((obs_162)" +"(let-values(((obs_1511)" "(expand-context-observer" -" ctx_117)))" -"(if obs_162" +" ctx_1459)))" +"(if obs_1511" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_162" +" obs_1511" " 'exit-prim" -" new-s_10)))" +" new-s_1508)))" "(void)))" "(cons" -" new-s_10" -"(loop_124" -"(cdr bodys_26)" -" phase_151))))))))))" +" new-s_1508" +"(loop_1460(cdr bodys_0) phase_0))))))))))" "(let-values()" "(cons" -"(car bodys_26)" -"(loop_124(cdr bodys_26) phase_151))))))))))))))" -" loop_124)" -" expression-expanded-bodys_1" -" phase_150)))))))))))))" +"(car bodys_0)" +"(loop_1460(cdr bodys_0) phase_0))))))))))))))" +" loop_1460)" +" expression-expanded-bodys_1453" +" phase_1457)))))))))))))" "(define-values" "(declare-module-for-expansion137.1)" -"(lambda(ctx123_1" +"(lambda(ctx123_0" " enclosing121_0" " fill125_0" " module-name-id116_0" @@ -75982,98 +76417,103 @@ static const char *startup_source = " fully-expanded-bodys-except-post-submodules136_0)" "(begin" " 'declare-module-for-expansion137" -"(let-values(((fully-expanded-bodys-except-post-submodules_1) fully-expanded-bodys-except-post-submodules136_0))" -"(let-values(((module-name-id_0) module-name-id116_0))" -"(let-values(((rebuild-s_16) rebuild-s117_0))" -"(let-values(((requires+provides_11) requires-and-provides118_0))" -"(let-values(((m-ns_22) namespace119_0))" -"(let-values(((self_39) self120_0))" -"(let-values(((enclosing-self_3) enclosing121_0))" -"(let-values(((root-ctx_7) root-ctx122_0))" -"(let-values(((ctx_118) ctx123_1))" -"(let-values(((modules-being-compiled_6) modules-being-compiled124_0))" -"(let-values(((compiled-module-box_1) fill125_0))" +"(let-values(((fully-expanded-bodys-except-post-submodules_1557)" +" fully-expanded-bodys-except-post-submodules136_0))" +"(let-values(((module-name-id_1558) module-name-id116_0))" +"(let-values(((rebuild-s_1559) rebuild-s117_0))" +"(let-values(((requires+provides_1560) requires-and-provides118_0))" +"(let-values(((m-ns_1561) namespace119_0))" +"(let-values(((self_1562) self120_0))" +"(let-values(((enclosing-self_1563) enclosing121_0))" +"(let-values(((root-ctx_1564) root-ctx122_0))" +"(let-values(((ctx_1565) ctx123_0))" +"(let-values(((modules-being-compiled_1566) modules-being-compiled124_0))" +"(let-values(((compiled-module-box_1567) fill125_0))" "(let-values()" -"(let-values(((requires_7 provides_14)" -"(extract-requires-and-provides requires+provides_11 self_39 self_39)))" -"(let-values(((parsed-mod_0)" +"(let-values(((requires_1568 provides_1569)" +"(extract-requires-and-provides requires+provides_1560 self_1562 self_1562)))" +"(let-values(((parsed-mod_1570)" "(parsed-module25.1" -" rebuild-s_16" +" rebuild-s_1559" " #f" -" module-name-id_0" -" self_39" -" requires_7" -" provides_14" -"(requires+provides-all-bindings-simple? requires+provides_11)" -"(root-expand-context-encode-for-module root-ctx_7 self_39 self_39)" -"(parsed-only fully-expanded-bodys-except-post-submodules_1)" +" module-name-id_1558" +" self_1562" +" requires_1568" +" provides_1569" +"(requires+provides-all-bindings-simple? requires+provides_1560)" +"(root-expand-context-encode-for-module root-ctx_1564 self_1562 self_1562)" +"(parsed-only fully-expanded-bodys-except-post-submodules_1557)" " #f" "(hasheq))))" -"(let-values(((module-name_2)" +"(let-values(((module-name_1571)" "(1/module-path-index-resolve" -"(let-values(((or-part_414) enclosing-self_3))" -"(if or-part_414 or-part_414 self_39)))))" -"(let-values(((compiled-module_0)" -"(let-values(((parsed-mod620_0) parsed-mod_0)" -"((temp621_0)" -"(let-values(((m-ns625_0) m-ns_22)" -"((enclosing-self626_0) enclosing-self_3)" -"((temp627_0)" -"(if enclosing-self_3" +"(let-values(((or-part_1574) enclosing-self_1563))" +"(if or-part_1574 or-part_1574 self_1562)))))" +"(let-values(((compiled-module_1572)" +"(let-values(((parsed-mod620_1576) parsed-mod_1570)" +"((temp621_1577)" +"(let-values(((m-ns625_1582) m-ns_1561)" +"((enclosing-self626_1583)" +" enclosing-self_1563)" +"((temp627_1584)" +"(if enclosing-self_1563" "(1/resolved-module-path-name" -" module-name_2)" +" module-name_1571)" " #f)))" "(make-compile-context14.1" -" temp627_0" +" temp627_1584" " unsafe-undefined" -" enclosing-self626_0" -" m-ns625_0" +" enclosing-self626_1583" +" m-ns625_1582" " unsafe-undefined" " unsafe-undefined)))" -"((temp622_0)(expand-context-for-serializable? ctx_118))" -"((modules-being-compiled623_0) modules-being-compiled_6)" -"((temp624_0) #f))" +"((temp622_1578)" +"(expand-context-for-serializable? ctx_1565))" +"((modules-being-compiled623_1579)" +" modules-being-compiled_1566)" +"((temp624_1580) #f))" "(compile-module13.1" " #f" -" modules-being-compiled623_0" -" temp624_0" -" temp622_0" +" modules-being-compiled623_1579" +" temp624_1580" +" temp622_1578" " #f" -" parsed-mod620_0" -" temp621_0))))" +" parsed-mod620_1576" +" temp621_1577))))" "(let-values((()" "(begin" -"(set-box! compiled-module-box_1 compiled-module_0)" +"(set-box! compiled-module-box_1567 compiled-module_1572)" "(values))))" -"(let-values(((root-module-name_0)" -"(resolved-module-path-root-name module-name_2)))" +"(let-values(((root-module-name_1573)" +"(resolved-module-path-root-name module-name_1571)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -" m-ns_22" +" m-ns_1561" " 1/current-module-declare-name" -"(1/make-resolved-module-path root-module-name_0))" +"(1/make-resolved-module-path root-module-name_1573))" "(let-values()" -"(let-values(((compiled-module628_0) compiled-module_0)((temp629_0) #f))" +"(let-values(((compiled-module628_1586) compiled-module_1572)" +"((temp629_1587) #f))" "(eval-module8.1" " unsafe-undefined" " #f" -" temp629_0" -" compiled-module628_0)))))))))))))))))))))))))" +" temp629_1587" +" compiled-module628_1586)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_876 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_0 root-ctx_0 orig-self_0 new-self_0)" "(begin" -"(let-values(((s_877)" -"(syntax-property$1 s_876 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_685)" +"(let-values(((s_1638)" +"(syntax-property$1 s_0 'module-body-context(root-expand-context-all-scopes-stx root-ctx_0))))" +"(let-values(((s_1639)" "(syntax-property$1" -" s_877" +" s_1638" " 'module-body-inside-context" -"(apply-post-expansion(root-expand-context-post-expansion root-ctx_8) empty-syntax))))" -" s_685)))))" +"(apply-post-expansion(root-expand-context-post-expansion root-ctx_0) empty-syntax))))" +" s_1639)))))" "(define-values" "(expand-post-submodules163.1)" "(lambda(all-scopes-s145_0" @@ -76084,211 +76524,217 @@ static const char *startup_source = " enclosing-is-cross-phase-persistent?144_0" " modules-being-compiled149_0" " mpis-to-reset146_0" -" phase141_1" +" phase141_0" " requires-and-provides143_0" " self142_0" " fully-expanded-bodys-except-post-submodules162_0)" "(begin" " 'expand-post-submodules163" -"(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules162_0))" -"(let-values(((declare-enclosing-module_1) declare-enclosing140_0))" -"(let-values(((phase_152) phase141_1))" -"(let-values(((self_40) self142_0))" -"(let-values(((requires+provides_12) requires-and-provides143_0))" -"(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?144_0))" +"(let-values(((fully-expanded-bodys-except-post-submodules_1656)" +" fully-expanded-bodys-except-post-submodules162_0))" +"(let-values(((declare-enclosing-module_1657) declare-enclosing140_0))" +"(let-values(((phase_1658) phase141_0))" +"(let-values(((self_1659) self142_0))" +"(let-values(((requires+provides_1660) requires-and-provides143_0))" +"(let-values(((enclosing-is-cross-phase-persistent?_1661) enclosing-is-cross-phase-persistent?144_0))" "(let-values()" -"(let-values(((mpis-to-reset_3) mpis-to-reset146_0))" -"(let-values(((declared-submodule-names_7) declared-submodule-names147_0))" -"(let-values(((compiled-submodules_4) compiled-submodules148_0))" -"(let-values(((modules-being-compiled_7) modules-being-compiled149_0))" -"(let-values(((submod-ctx_1) ctx150_0))" +"(let-values(((mpis-to-reset_1663) mpis-to-reset146_0))" +"(let-values(((declared-submodule-names_1664) declared-submodule-names147_0))" +"(let-values(((compiled-submodules_1665) compiled-submodules148_0))" +"(let-values(((modules-being-compiled_1666) modules-being-compiled149_0))" +"(let-values(((submod-ctx_1667) ctx150_0))" "(let-values()" -"((letrec-values(((loop_125)" -"(lambda(bodys_27 phase_153)" +"((letrec-values(((loop_1668)" +"(lambda(bodys_0 phase_0)" "(begin" " 'loop" -"(if(null? bodys_27)" +"(if(null? bodys_0)" "(let-values() null)" "(let-values()" -"(let-values(((body_23)(car bodys_27)))" -"(let-values(((rest-bodys_3)(cdr bodys_27)))" -"(if(semi-parsed-begin-for-syntax? body_23)" +"(let-values(((body_1671)(car bodys_0)))" +"(let-values(((rest-bodys_1672)(cdr bodys_0)))" +"(if(semi-parsed-begin-for-syntax? body_1671)" "(let-values()" -"(let-values(((body-s_0)" +"(let-values(((body-s_1673)" "(semi-parsed-begin-for-syntax-s" -" body_23)))" -"(let-values(((ok?_89 begin-for-syntax630_0 _631_0)" -"(let-values(((s_697)" +" body_1671)))" +"(let-values(((ok?_1674" +" begin-for-syntax630_1675" +" _631_1676)" +"(let-values(((s_1693)" "(syntax-disarm$1" -" body-s_0)))" -"(let-values(((orig-s_91) s_697))" -"(let-values(((begin-for-syntax630_1" -" _631_1)" -"(let-values(((s_878)" +" body-s_1673)))" +"(let-values(((orig-s_1694) s_1693))" +"(let-values(((begin-for-syntax630_1695" +" _631_1696)" +"(let-values(((s_1697)" "(if(syntax?$1" -" s_697)" +" s_1693)" "(syntax-e$1" -" s_697)" -" s_697)))" -"(if(pair? s_878)" -"(let-values(((begin-for-syntax632_0)" -"(let-values(((s_879)" +" s_1693)" +" s_1693)))" +"(if(pair? s_1697)" +"(let-values(((begin-for-syntax632_1698)" +"(let-values(((s_1700)" "(car" -" s_878)))" -" s_879))" -"((_633_0)" -"(let-values(((s_880)" +" s_1697)))" +" s_1700))" +"((_633_1699)" +"(let-values(((s_1701)" "(cdr" -" s_878)))" -"(let-values(((s_881)" +" s_1697)))" +"(let-values(((s_1702)" "(if(syntax?$1" -" s_880)" +" s_1701)" "(syntax-e$1" -" s_880)" -" s_880)))" -"(let-values(((flat-s_64)" +" s_1701)" +" s_1701)))" +"(let-values(((flat-s_1703)" "(to-syntax-list.1" -" s_881)))" +" s_1702)))" "(if(not" -" flat-s_64)" +" flat-s_1703)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_91))" +" orig-s_1694))" "(let-values()" -" flat-s_64)))))))" +" flat-s_1703)))))))" "(values" -" begin-for-syntax632_0" -" _633_0))" +" begin-for-syntax632_1698" +" _633_1699))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_91)))))" +" orig-s_1694)))))" "(values" " #t" -" begin-for-syntax630_1" -" _631_1))))))" -"(let-values(((rebuild-body-s_0)" -"(let-values(((submod-ctx634_0)" -" submod-ctx_1)" -"((body-s635_0)" -" body-s_0))" +" begin-for-syntax630_1695" +" _631_1696))))))" +"(let-values(((rebuild-body-s_1690)" +"(let-values(((submod-ctx634_1704)" +" submod-ctx_1667)" +"((body-s635_1705)" +" body-s_1673))" "(keep-as-needed119.1" " #f" " #f" " #f" -" submod-ctx634_0" -" body-s635_0))))" -"(let-values(((nested-bodys_3)" -"(loop_125" +" submod-ctx634_1704" +" body-s635_1705))))" +"(let-values(((nested-bodys_1691)" +"(loop_1668" "(semi-parsed-begin-for-syntax-body" -" body_23)" -"(add1 phase_153))))" -"(let-values(((parsed-bfs_0)" +" body_1671)" +"(add1 phase_0))))" +"(let-values(((parsed-bfs_1692)" "(parsed-begin-for-syntax21.1" -" rebuild-body-s_0" -"(parsed-only nested-bodys_3))))" +" rebuild-body-s_1690" +"(parsed-only" +" nested-bodys_1691))))" "(cons" "(if(expand-context-to-parsed?" -" submod-ctx_1)" -" parsed-bfs_0" +" submod-ctx_1667)" +" parsed-bfs_1692" "(expanded+parsed1.1" -"(let-values(((rebuild-body-s636_0)" -" rebuild-body-s_0)" -"((temp637_0)" +"(let-values(((rebuild-body-s636_1706)" +" rebuild-body-s_1690)" +"((temp637_1707)" "(list*" -" begin-for-syntax630_0" +" begin-for-syntax630_1675" "(syntax-only" -" nested-bodys_3))))" +" nested-bodys_1691))))" "(rebuild5.1" " #t" -" rebuild-body-s636_0" -" temp637_0))" -" parsed-bfs_0))" -"(loop_125 rest-bodys_3 phase_153))))))))" -"(if(let-values(((or-part_415)(parsed? body_23)))" -"(if or-part_415" -" or-part_415" -"(expanded+parsed? body_23)))" +" rebuild-body-s636_1706" +" temp637_1707))" +" parsed-bfs_1692))" +"(loop_1668 rest-bodys_1672 phase_0))))))))" +"(if(let-values(((or-part_1708)(parsed? body_1671)))" +"(if or-part_1708" +" or-part_1708" +"(expanded+parsed? body_1671)))" "(let-values()" -"(cons body_23(loop_125 rest-bodys_3 phase_153)))" +"(cons" +" body_1671" +"(loop_1668 rest-bodys_1672 phase_0)))" "(let-values()" -"(let-values(((disarmed-body_2)" -"(syntax-disarm$1 body_23)))" -"(let-values(((tmp_68)" +"(let-values(((disarmed-body_1709)" +"(syntax-disarm$1 body_1671)))" +"(let-values(((tmp_1710)" "(core-form-sym" -" disarmed-body_2" -" phase_153)))" -"(if(equal? tmp_68 'module*)" +" disarmed-body_1709" +" phase_0)))" +"(if(equal? tmp_1710 'module*)" "(let-values()" "(let-values((()" "(begin" "(force" -" declare-enclosing-module_1)" +" declare-enclosing-module_1657)" "(values))))" -"(let-values(((ready-body_2)" +"(let-values(((ready-body_1711)" "(remove-use-site-scopes" -" body_23" -" submod-ctx_1)))" -"(let-values(((ok?_90" -" module*638_0" -" name639_0" -" _640_0)" -"(let-values(((s_882)" -" disarmed-body_2))" -"(if(let-values(((s_704)" +" body_1671" +" submod-ctx_1667)))" +"(let-values(((ok?_1712" +" module*638_1713" +" name639_1714" +" _640_1715)" +"(let-values(((s_1733)" +" disarmed-body_1709))" +"(if(let-values(((s_1734)" "(if(syntax?$1" -" s_882)" +" s_1733)" "(syntax-e$1" -" s_882)" -" s_882)))" -"(if(pair? s_704)" -"(if(let-values(((s_883)" +" s_1733)" +" s_1733)))" +"(if(pair? s_1734)" +"(if(let-values(((s_1735)" "(car" -" s_704)))" +" s_1734)))" " #t)" -"(let-values(((s_884)" +"(let-values(((s_1736)" "(cdr" -" s_704)))" -"(let-values(((s_705)" +" s_1734)))" +"(let-values(((s_1737)" "(if(syntax?$1" -" s_884)" +" s_1736)" "(syntax-e$1" -" s_884)" -" s_884)))" +" s_1736)" +" s_1736)))" "(if(pair?" -" s_705)" -"(if(let-values(((s_885)" +" s_1737)" +"(if(let-values(((s_1738)" "(car" -" s_705)))" +" s_1737)))" " #t)" -"(let-values(((s_886)" +"(let-values(((s_1739)" "(cdr" -" s_705)))" -"(let-values(((s_887)" +" s_1737)))" +"(let-values(((s_1740)" "(if(syntax?$1" -" s_886)" +" s_1739)" "(syntax-e$1" -" s_886)" -" s_886)))" +" s_1739)" +" s_1739)))" "(if(pair?" -" s_887)" -"(if(let-values(((s_888)" +" s_1740)" +"(if(let-values(((s_1741)" "(car" -" s_887)))" -"(let-values(((s_889)" +" s_1740)))" +"(let-values(((s_1742)" "(if(syntax?$1" -" s_888)" +" s_1741)" "(syntax-e$1" -" s_888)" -" s_888)))" +" s_1741)" +" s_1741)))" "(eq?" " #f" -" s_889)))" -"(let-values(((s_890)" +" s_1742)))" +"(let-values(((s_1743)" "(cdr" -" s_887)))" +" s_1740)))" " #t)" " #f)" " #f)))" @@ -76297,353 +76743,355 @@ static const char *startup_source = " #f)" " #f))" "(let-values()" -"(let-values(((module*638_1" -" name639_1" -" _640_1)" -"(let-values(((s_891)" +"(let-values(((module*638_1745" +" name639_1746" +" _640_1747)" +"(let-values(((s_1748)" "(if(syntax?$1" -" s_882)" +" s_1733)" "(syntax-e$1" -" s_882)" -" s_882)))" -"(let-values(((module*641_0)" -"(let-values(((s_892)" +" s_1733)" +" s_1733)))" +"(let-values(((module*641_1749)" +"(let-values(((s_1752)" "(car" -" s_891)))" -" s_892))" -"((name642_0" -" _643_0)" -"(let-values(((s_893)" +" s_1748)))" +" s_1752))" +"((name642_1750" +" _643_1751)" +"(let-values(((s_1753)" "(cdr" -" s_891)))" -"(let-values(((s_894)" +" s_1748)))" +"(let-values(((s_1754)" "(if(syntax?$1" -" s_893)" +" s_1753)" "(syntax-e$1" -" s_893)" -" s_893)))" -"(let-values(((name644_0)" -"(let-values(((s_895)" +" s_1753)" +" s_1753)))" +"(let-values(((name644_1755)" +"(let-values(((s_1757)" "(car" -" s_894)))" -" s_895))" -"((_645_0)" -"(let-values(((s_896)" +" s_1754)))" +" s_1757))" +"((_645_1756)" +"(let-values(((s_1758)" "(cdr" -" s_894)))" -"(let-values(((s_897)" +" s_1754)))" +"(let-values(((s_1759)" "(if(syntax?$1" -" s_896)" +" s_1758)" "(syntax-e$1" -" s_896)" -" s_896)))" +" s_1758)" +" s_1758)))" "(let-values((()" -"(let-values(((s_898)" +"(let-values(((s_1761)" "(car" -" s_897)))" -"(let-values(((s_706)" +" s_1759)))" +"(let-values(((s_1762)" "(if(syntax?$1" -" s_898)" +" s_1761)" "(syntax-e$1" -" s_898)" -" s_898)))" +" s_1761)" +" s_1761)))" "(values))))" -"((_646_0)" -"(let-values(((s_899)" +"((_646_1760)" +"(let-values(((s_1763)" "(cdr" -" s_897)))" -" s_899)))" +" s_1759)))" +" s_1763)))" "(values" -" _646_0))))))" +" _646_1760))))))" "(values" -" name644_0" -" _645_0))))))" +" name644_1755" +" _645_1756))))))" "(values" -" module*641_0" -" name642_0" -" _643_0)))))" +" module*641_1749" +" name642_1750" +" _643_1751)))))" "(values" " #t" -" module*638_1" -" name639_1" -" _640_1)))" +" module*638_1745" +" name639_1746" +" _640_1747)))" "(values" " #f" " #f" " #f" " #f)))))" -"(let-values(((submod_3)" -"(if ok?_90" +"(let-values(((submod_1732)" +"(if ok?_1712" "(let-values()" -"(let-values(((neg-phase_0)" +"(let-values(((neg-phase_1764)" "(phase-" " 0" -" phase_153)))" -"(let-values(((shifted-s_0)" +" phase_0)))" +"(let-values(((shifted-s_1765)" "(syntax-shift-phase-level$1" -" ready-body_2" -" neg-phase_0)))" -"(let-values(((submod_4)" -"(let-values(((shifted-s647_0)" -" shifted-s_0)" -"((self648_0)" -" self_40)" -"((submod-ctx649_0)" -" submod-ctx_1)" -"((temp650_0)" +" ready-body_1711" +" neg-phase_1764)))" +"(let-values(((submod_1766)" +"(let-values(((shifted-s647_1768)" +" shifted-s_1765)" +"((self648_1769)" +" self_1659)" +"((submod-ctx649_1770)" +" submod-ctx_1667)" +"((temp650_1771)" " #t)" -"((neg-phase651_0)" -" neg-phase_0)" -"((requires+provides652_0)" -" requires+provides_12)" -"((enclosing-is-cross-phase-persistent?653_0)" -" enclosing-is-cross-phase-persistent?_1)" -"((mpis-to-reset654_0)" -" mpis-to-reset_3)" -"((declared-submodule-names655_0)" -" declared-submodule-names_7)" -"((compiled-submodules656_0)" -" compiled-submodules_4)" -"((modules-being-compiled657_0)" -" modules-being-compiled_7))" +"((neg-phase651_1772)" +" neg-phase_1764)" +"((requires+provides652_1773)" +" requires+provides_1660)" +"((enclosing-is-cross-phase-persistent?653_1774)" +" enclosing-is-cross-phase-persistent?_1661)" +"((mpis-to-reset654_1775)" +" mpis-to-reset_1663)" +"((declared-submodule-names655_1776)" +" declared-submodule-names_1664)" +"((compiled-submodules656_1777)" +" compiled-submodules_1665)" +"((modules-being-compiled657_1778)" +" modules-being-compiled_1666))" "(expand-submodule193.1" -" compiled-submodules656_0" -" declared-submodule-names655_0" -" enclosing-is-cross-phase-persistent?653_0" -" requires+provides652_0" -" temp650_0" -" neg-phase651_0" -" modules-being-compiled657_0" -" mpis-to-reset654_0" -" shifted-s647_0" -" self648_0" -" submod-ctx649_0))))" +" compiled-submodules656_1777" +" declared-submodule-names655_1776" +" enclosing-is-cross-phase-persistent?653_1774" +" requires+provides652_1773" +" temp650_1771" +" neg-phase651_1772" +" modules-being-compiled657_1778" +" mpis-to-reset654_1775" +" shifted-s647_1768" +" self648_1769" +" submod-ctx649_1770))))" "(if(parsed?" -" submod_4)" +" submod_1766)" "(let-values()" -" submod_4)" +" submod_1766)" "(if(expanded+parsed?" -" submod_4)" +" submod_1766)" "(let-values()" -"(let-values(((the-struct_119)" -" submod_4))" +"(let-values(((the-struct_1779)" +" submod_1766))" "(if(expanded+parsed?" -" the-struct_119)" -"(let-values(((s658_0)" +" the-struct_1779)" +"(let-values(((s658_1780)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" -" submod_4)" -" phase_153)))" +" submod_1766)" +" phase_0)))" "(expanded+parsed1.1" -" s658_0" +" s658_1780" "(expanded+parsed-parsed" -" the-struct_119)))" +" the-struct_1779)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_119))))" +" the-struct_1779))))" "(let-values()" "(syntax-shift-phase-level$1" -" submod_4" -" phase_153))))))))" +" submod_1766" +" phase_0))))))))" "(let-values()" -"(let-values(((ready-body659_0)" -" ready-body_2)" -"((self660_0)" -" self_40)" -"((submod-ctx661_0)" -" submod-ctx_1)" -"((temp662_0)" +"(let-values(((ready-body659_1782)" +" ready-body_1711)" +"((self660_1783)" +" self_1659)" +"((submod-ctx661_1784)" +" submod-ctx_1667)" +"((temp662_1785)" " #t)" -"((mpis-to-reset663_0)" -" mpis-to-reset_3)" -"((declared-submodule-names664_0)" -" declared-submodule-names_7)" -"((compiled-submodules665_0)" -" compiled-submodules_4)" -"((modules-being-compiled666_0)" -" modules-being-compiled_7))" +"((mpis-to-reset663_1786)" +" mpis-to-reset_1663)" +"((declared-submodule-names664_1787)" +" declared-submodule-names_1664)" +"((compiled-submodules665_1788)" +" compiled-submodules_1665)" +"((modules-being-compiled666_1789)" +" modules-being-compiled_1666))" "(expand-submodule193.1" -" compiled-submodules665_0" -" declared-submodule-names664_0" +" compiled-submodules665_1788" +" declared-submodule-names664_1787" " #f" " #f" -" temp662_0" +" temp662_1785" " #f" -" modules-being-compiled666_0" -" mpis-to-reset663_0" -" ready-body659_0" -" self660_0" -" submod-ctx661_0))))))" +" modules-being-compiled666_1789" +" mpis-to-reset663_1786" +" ready-body659_1782" +" self660_1783" +" submod-ctx661_1784))))))" "(cons" -" submod_3" -"(loop_125" -" rest-bodys_3" -" phase_153)))))))" +" submod_1732" +"(loop_1668" +" rest-bodys_1672" +" phase_0)))))))" "(let-values()" "(cons" -" body_23" -"(loop_125" -" rest-bodys_3" -" phase_153)))))))))))))))))" -" loop_125)" -" fully-expanded-bodys-except-post-submodules_2" -" phase_152)))))))))))))))))" +" body_1671" +"(loop_1668" +" rest-bodys_1672" +" phase_0)))))))))))))))))" +" loop_1668)" +" fully-expanded-bodys-except-post-submodules_1656" +" phase_1658)))))))))))))))))" "(define-values" "(stop-at-module*?)" -"(lambda(ctx_119)" +"(lambda(ctx_0)" "(begin" "(free-id-set-member?" -"(expand-context-stops ctx_119)" -"(expand-context-phase ctx_119)" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_119))))))" +"(expand-context-stops ctx_0)" +"(expand-context-phase ctx_0)" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_0))))))" "(define-values" "(check-ids-unbound171.1)" -"(lambda(in166_0 ids168_0 phase169_2 requires+provides170_0)" +"(lambda(in166_0 ids168_0 phase169_0 requires+provides170_0)" "(begin" " 'check-ids-unbound171" -"(let-values(((ids_48) ids168_0))" -"(let-values(((phase_154) phase169_2))" -"(let-values(((requires+provides_13) requires+provides170_0))" -"(let-values(((s_900) in166_0))" +"(let-values(((ids_1853) ids168_0))" +"(let-values(((phase_1854) phase169_0))" +"(let-values(((requires+provides_1855) requires+provides170_0))" +"(let-values(((s_1856) in166_0))" "(let-values()" "(begin" -"(let-values(((lst_449) ids_48))" +"(let-values(((lst_1857) ids_1853))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_449)))" -"((letrec-values(((for-loop_340)" -"(lambda(lst_450)" +"(let-values()(check-list lst_1857)))" +"((letrec-values(((for-loop_1858)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_450)" -"(let-values(((id_159)(unsafe-car lst_450))" -"((rest_261)(unsafe-cdr lst_450)))" +"(if(pair? lst_0)" +"(let-values(((id_1860)(unsafe-car lst_0))" +"((rest_1861)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((requires+provides667_0)" -" requires+provides_13)" -"((id668_0) id_159)" -"((phase669_0)" -" phase_154)" -"((s670_0) s_900)" -"((temp671_0) 'module))" +"(let-values(((requires+provides667_1863)" +" requires+provides_1855)" +"((id668_1864) id_1860)" +"((phase669_1865)" +" phase_1854)" +"((s670_1866) s_1856)" +"((temp671_1867)" +" 'module))" "(check-not-defined95.1" " #f" " #f" " #f" -" s670_0" +" s670_1866" " #f" " #f" -" temp671_0" -" requires+provides667_0" -" id668_0" -" phase669_0)))" +" temp671_1867" +" requires+provides667_1863" +" id668_1864" +" phase669_1865)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_340 rest_261)(values))))" +"(if(not #f)(for-loop_1858 rest_1861)(values))))" "(values))))))" -" for-loop_340)" -" lst_449)))" +" for-loop_1858)" +" lst_1857)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_155 m-ns_23 self_41 ctx_120)" +"(lambda(bodys_0 phase_0 m-ns_0 self_0 ctx_0)" "(begin" "(begin" -"(let-values(((lst_451) bodys_28))" +"(let-values(((lst_1887) bodys_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_451)))" -"((letrec-values(((for-loop_341)" -"(lambda(lst_452)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_1887)))" +"((letrec-values(((for-loop_1888)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_452)" -"(let-values(((body_24)(unsafe-car lst_452))((rest_262)(unsafe-cdr lst_452)))" +"(if(pair? lst_0)" +"(let-values(((body_1890)(unsafe-car lst_0))((rest_1891)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((p_80)" -"(if(expanded+parsed? body_24)" +"(let-values(((p_1892)" +"(if(expanded+parsed? body_1890)" "(expanded+parsed-parsed" -" body_24)" -" body_24)))" -"(if(parsed-define-values? p_80)" +" body_1890)" +" body_1890)))" +"(if(parsed-define-values? p_1892)" "(let-values()" -"(let-values(((ids_49)" +"(let-values(((ids_1893)" "(parsed-define-values-ids" -" p_80)))" -"(let-values(((vals_11)" +" p_1892)))" +"(let-values(((vals_1894)" "(eval-for-bindings" " 'define-values" -" ids_49" +" ids_1893" "(parsed-define-values-rhs" -" p_80)" -" phase_155" -" m-ns_23" -" ctx_120)))" +" p_1892)" +" phase_0" +" m-ns_0" +" ctx_0)))" "(begin" -"(let-values(((lst_453) ids_49)" -"((lst_454)" +"(let-values(((lst_1895) ids_1893)" +"((lst_1896)" "(parsed-define-values-syms" -" p_80))" -"((lst_455) vals_11))" +" p_1892))" +"((lst_1897)" +" vals_1894))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_453)))" +"(check-list lst_1895)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_454)))" +"(check-list lst_1896)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_455)))" -"((letrec-values(((for-loop_342)" -"(lambda(lst_456" -" lst_457" -" lst_458)" +"(check-list lst_1897)))" +"((letrec-values(((for-loop_1898)" +"(lambda(lst_1" +" lst_2" +" lst_3)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_456)" +" lst_1)" "(if(pair?" -" lst_457)" +" lst_2)" "(pair?" -" lst_458)" +" lst_3)" " #f)" " #f)" -"(let-values(((id_160)" +"(let-values(((id_1902)" "(unsafe-car" -" lst_456))" -"((rest_263)" +" lst_1))" +"((rest_1903)" "(unsafe-cdr" -" lst_456))" -"((sym_111)" +" lst_1))" +"((sym_1904)" "(unsafe-car" -" lst_457))" -"((rest_264)" +" lst_2))" +"((rest_1905)" "(unsafe-cdr" -" lst_457))" -"((val_88)" +" lst_2))" +"((val_1906)" "(unsafe-car" -" lst_458))" -"((rest_265)" +" lst_3))" +"((rest_1907)" "(unsafe-cdr" -" lst_458)))" +" lst_3)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76651,39 +77099,39 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-variable!" -" m-ns_23" -" phase_155" -" sym_111" -" val_88))" +" m-ns_0" +" phase_0" +" sym_1904" +" val_1906))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_342" -" rest_263" -" rest_264" -" rest_265)" +"(for-loop_1898" +" rest_1903" +" rest_1905" +" rest_1907)" "(values))))" "(values))))))" -" for-loop_342)" -" lst_453" -" lst_454" -" lst_455)))" +" for-loop_1898)" +" lst_1895" +" lst_1896" +" lst_1897)))" "(void)))))" -"(if(let-values(((or-part_416)" +"(if(let-values(((or-part_1908)" "(parsed-define-syntaxes?" -" p_80)))" -"(if or-part_416" -" or-part_416" +" p_1892)))" +"(if or-part_1908" +" or-part_1908" "(semi-parsed-begin-for-syntax?" -" p_80)))" +" p_1892)))" "(let-values()(void))" -"(if(let-values(((or-part_417)" +"(if(let-values(((or-part_1909)" "(parsed-#%declare?" -" p_80)))" -"(if or-part_417" -" or-part_417" -"(syntax?$1 p_80)))" +" p_1892)))" +"(if or-part_1909" +" or-part_1909" +"(syntax?$1 p_1892)))" "(let-values()(void))" "(let-values()" "(with-continuation-mark" @@ -76693,31 +77141,31 @@ static const char *startup_source = " #f" " parameterization-key)" " current-expand-context" -" ctx_120" +" ctx_0" " 1/current-namespace" -" m-ns_23)" +" m-ns_0)" "(let-values()" "(eval-single-top" "(compile-single" -" p_80" -"(let-values(((m-ns672_0)" -" m-ns_23)" -"((phase673_0)" -" phase_155))" +" p_1892" +"(let-values(((m-ns672_1911)" +" m-ns_0)" +"((phase673_1912)" +" phase_0))" "(make-compile-context14.1" " #f" " unsafe-undefined" " #f" -" m-ns672_0" -" phase673_0" +" m-ns672_1911" +" phase673_1912" " unsafe-undefined)))" -" m-ns_23)))))))))" +" m-ns_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_341 rest_262)(values))))" +"(if(not #f)(for-loop_1888 rest_1891)(values))))" "(values))))))" -" for-loop_341)" -" lst_451)))" +" for-loop_1888)" +" lst_1887)))" "(void)))))" "(define-values" "(expand-submodule193.1)" @@ -76729,374 +77177,384 @@ static const char *startup_source = " keep-enclosing-scope-at-phase175_0" " modules-being-compiled181_0" " mpis-to-reset178_0" -" s190_2" +" s190_0" " self191_0" -" ctx192_1)" +" ctx192_0)" "(begin" " 'expand-submodule193" -"(let-values(((s_901) s190_2))" -"(let-values(((self_42) self191_0))" -"(let-values(((ctx_121) ctx192_1))" -"(let-values(((is-star?_0) is-star?174_0))" -"(let-values(((keep-enclosing-scope-at-phase_2) keep-enclosing-scope-at-phase175_0))" -"(let-values(((enclosing-r+p_2) enclosing-requires+provides176_0))" -"(let-values(((enclosing-is-cross-phase-persistent?_2) enclosing-is-cross-phase-persistent?177_0))" -"(let-values(((mpis-to-reset_4) mpis-to-reset178_0))" -"(let-values(((declared-submodule-names_8) declared-submodule-names179_0))" -"(let-values(((compiled-submodules_5) compiled-submodules180_0))" -"(let-values(((modules-being-compiled_8) modules-being-compiled181_0))" +"(let-values(((s_1932) s190_0))" +"(let-values(((self_1933) self191_0))" +"(let-values(((ctx_1934) ctx192_0))" +"(let-values(((is-star?_1935) is-star?174_0))" +"(let-values(((keep-enclosing-scope-at-phase_1936) keep-enclosing-scope-at-phase175_0))" +"(let-values(((enclosing-r+p_1937) enclosing-requires+provides176_0))" +"(let-values(((enclosing-is-cross-phase-persistent?_1938) enclosing-is-cross-phase-persistent?177_0))" +"(let-values(((mpis-to-reset_1939) mpis-to-reset178_0))" +"(let-values(((declared-submodule-names_1940) declared-submodule-names179_0))" +"(let-values(((compiled-submodules_1941) compiled-submodules180_0))" +"(let-values(((modules-being-compiled_1942) modules-being-compiled181_0))" "(let-values()" "(let-values((()" "(begin" -"(if is-star?_0" +"(if is-star?_1935" "(void)" "(let-values()" -"(let-values(((obs_163)(expand-context-observer ctx_121)))" -"(if obs_163" +"(let-values(((obs_1969)(expand-context-observer ctx_1934)))" +"(if obs_1969" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_163 'enter-prim s_901)" +"(call-expand-observe obs_1969 'enter-prim s_1932)" "(call-expand-observe" -" obs_163" -"(if is-star?_0 'prim-submodule* 'prim-submodule)))))" +" obs_1969" +"(if is-star?_1935 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" -"(let-values(((ok?_91 module674_0 name675_0 _676_0)" -"(let-values(((s_754) s_901))" -"(let-values(((orig-s_92) s_754))" -"(let-values(((module674_1 name675_1 _676_1)" -"(let-values(((s_902)" -"(if(syntax?$1 s_754)" -"(syntax-e$1 s_754)" -" s_754)))" -"(if(pair? s_902)" -"(let-values(((module677_0)" -"(let-values(((s_759)(car s_902)))" -" s_759))" -"((name678_0 _679_0)" -"(let-values(((s_760)(cdr s_902)))" -"(let-values(((s_761)" -"(if(syntax?$1 s_760)" -"(syntax-e$1 s_760)" -" s_760)))" -"(if(pair? s_761)" -"(let-values(((name680_0)" -"(let-values(((s_903)" +"(let-values(((ok?_1943 module674_1944 name675_1945 _676_1946)" +"(let-values(((s_1970) s_1932))" +"(let-values(((orig-s_1971) s_1970))" +"(let-values(((module674_1972 name675_1973 _676_1974)" +"(let-values(((s_1975)" +"(if(syntax?$1 s_1970)" +"(syntax-e$1 s_1970)" +" s_1970)))" +"(if(pair? s_1975)" +"(let-values(((module677_1976)" +"(let-values(((s_1979)(car s_1975)))" +" s_1979))" +"((name678_1977 _679_1978)" +"(let-values(((s_1980)(cdr s_1975)))" +"(let-values(((s_1981)" +"(if(syntax?$1 s_1980)" +"(syntax-e$1 s_1980)" +" s_1980)))" +"(if(pair? s_1981)" +"(let-values(((name680_1982)" +"(let-values(((s_1984)" "(car" -" s_761)))" -" s_903))" -"((_681_0)" -"(let-values(((s_904)" +" s_1981)))" +" s_1984))" +"((_681_1983)" +"(let-values(((s_1985)" "(cdr" -" s_761)))" -" s_904)))" -"(values name680_0 _681_0))" +" s_1981)))" +" s_1985)))" +"(values" +" name680_1982" +" _681_1983))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_92))))))" -"(values module677_0 name678_0 _679_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_92)))))" -"(values #t module674_1 name675_1 _676_1))))))" -"(let-values(((name_81)(syntax-e$1 name675_0)))" +" orig-s_1971))))))" +"(values module677_1976 name678_1977 _679_1978))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_1971)))))" +"(values #t module674_1972 name675_1973 _676_1974))))))" +"(let-values(((name_1963)(syntax-e$1 name675_1945)))" "(let-values((()" "(begin" -"(if(hash-ref declared-submodule-names_8 name_81 #f)" +"(if(hash-ref declared-submodule-names_1940 name_1963 #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_901" -" name_81))" +" s_1932" +" name_1963))" "(void))" "(values))))" "(let-values((()" "(begin" "(hash-set!" -" declared-submodule-names_8" -" name_81" -"(syntax-e$1 module674_0))" +" declared-submodule-names_1940" +" name_1963" +"(syntax-e$1 module674_1944))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_164)(expand-context-observer ctx_121)))" -"(if obs_164" +"(let-values(((obs_1986)(expand-context-observer ctx_1934)))" +"(if obs_1986" "(let-values()" "(let-values()" -"(call-expand-observe obs_164 'enter-prim s_901)))" +"(call-expand-observe obs_1986 'enter-prim s_1932)))" "(void)))" "(values))))" -"(let-values(((submod_5)" -"(let-values(((s682_0) s_901)" -"((temp683_0)" -"(let-values(((v_269) ctx_121))" -"(let-values(((the-struct_120) v_269))" -"(if(expand-context/outer? the-struct_120)" -"(let-values(((context691_0) 'module)" -"((post-expansion692_0) #f)" -"((inner693_0)" -"(let-values(((the-struct_121)" +"(let-values(((submod_1964)" +"(let-values(((s682_1988) s_1932)" +"((temp683_1989)" +"(let-values(((v_1997) ctx_1934))" +"(let-values(((the-struct_1998) v_1997))" +"(if(expand-context/outer? the-struct_1998)" +"(let-values(((context691_1999) 'module)" +"((post-expansion692_2000) #f)" +"((inner693_2001)" +"(let-values(((the-struct_2002)" "(root-expand-context/outer-inner" -" v_269)))" +" v_1997)))" "(if(expand-context/inner?" -" the-struct_121)" -"(let-values(((stops694_0)" +" the-struct_2002)" +"(let-values(((stops694_2003)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_121)" +" the-struct_2002)" "(root-expand-context/inner-module-scopes" -" the-struct_121)" +" the-struct_2002)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_121)" +" the-struct_2002)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_121)" +" the-struct_2002)" "(root-expand-context/inner-defined-syms" -" the-struct_121)" +" the-struct_2002)" "(root-expand-context/inner-counter" -" the-struct_121)" +" the-struct_2002)" "(root-expand-context/inner-lift-key" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-to-parsed?" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-phase" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-namespace" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-just-once?" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-module-begin-k" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-allow-unbound?" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-in-local-expand?" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-keep-#%expression?" -" the-struct_121)" -" stops694_0" +" the-struct_2002)" +" stops694_2003" "(expand-context/inner-declared-submodule-names" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-lifts" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-lift-envs" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-module-lifts" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-require-lifts" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-to-module-lifts" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-requires+provides" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-observer" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-for-serializable?" -" the-struct_121)" +" the-struct_2002)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_121)))" +" the-struct_2002)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_121)))))" +" the-struct_2002)))))" "(expand-context/outer1.1" -" inner693_0" -" post-expansion692_0" +" inner693_2001" +" post-expansion692_2000" "(root-expand-context/outer-use-site-scopes" -" the-struct_120)" +" the-struct_1998)" "(root-expand-context/outer-frame-id" -" the-struct_120)" -" context691_0" -"(expand-context/outer-env the-struct_120)" +" the-struct_1998)" +" context691_1999" +"(expand-context/outer-env" +" the-struct_1998)" "(expand-context/outer-scopes" -" the-struct_120)" +" the-struct_1998)" "(expand-context/outer-def-ctx-scopes" -" the-struct_120)" +" the-struct_1998)" "(expand-context/outer-binding-layer" -" the-struct_120)" +" the-struct_1998)" "(expand-context/outer-reference-records" -" the-struct_120)" +" the-struct_1998)" "(expand-context/outer-only-immediate?" -" the-struct_120)" +" the-struct_1998)" "(expand-context/outer-need-eventually-defined" -" the-struct_120)" +" the-struct_1998)" "(expand-context/outer-current-introduction-scopes" -" the-struct_120)" +" the-struct_1998)" "(expand-context/outer-current-use-scopes" -" the-struct_120)" +" the-struct_1998)" "(expand-context/outer-name" -" the-struct_120)))" +" the-struct_1998)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_120)))))" -"((self684_0) self_42)" -"((temp685_0) #t)" -"((keep-enclosing-scope-at-phase686_0)" -" keep-enclosing-scope-at-phase_2)" -"((enclosing-r+p687_0) enclosing-r+p_2)" -"((enclosing-is-cross-phase-persistent?688_0)" -" enclosing-is-cross-phase-persistent?_2)" -"((mpis-to-reset689_0) mpis-to-reset_4)" -"((modules-being-compiled690_0)" -" modules-being-compiled_8))" +" the-struct_1998)))))" +"((self684_1990) self_1933)" +"((temp685_1991) #t)" +"((keep-enclosing-scope-at-phase686_1992)" +" keep-enclosing-scope-at-phase_1936)" +"((enclosing-r+p687_1993) enclosing-r+p_1937)" +"((enclosing-is-cross-phase-persistent?688_1994)" +" enclosing-is-cross-phase-persistent?_1938)" +"((mpis-to-reset689_1995) mpis-to-reset_1939)" +"((modules-being-compiled690_1996)" +" modules-being-compiled_1942))" "(expand-module16.1" -" temp685_0" -" enclosing-is-cross-phase-persistent?688_0" -" enclosing-r+p687_0" -" keep-enclosing-scope-at-phase686_0" -" modules-being-compiled690_0" -" mpis-to-reset689_0" -" s682_0" -" temp683_0" -" self684_0))))" +" temp685_1991" +" enclosing-is-cross-phase-persistent?688_1994" +" enclosing-r+p687_1993" +" keep-enclosing-scope-at-phase686_1992" +" modules-being-compiled690_1996" +" mpis-to-reset689_1995" +" s682_1988" +" temp683_1989" +" self684_1990))))" "(let-values((()" "(begin" -"(let-values(((obs_165)(expand-context-observer ctx_121)))" -"(if obs_165" +"(let-values(((obs_2004)" +"(expand-context-observer ctx_1934)))" +"(if obs_2004" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_165" +" obs_2004" " 'exit-prim" -"(extract-syntax submod_5))))" +"(extract-syntax submod_1964))))" "(void)))" "(values))))" -"(let-values(((ns_131)(expand-context-namespace ctx_121)))" -"(let-values(((module-name_3)(1/module-path-index-resolve self_42)))" -"(let-values(((root-module-name_1)" -"(resolved-module-path-root-name module-name_3)))" -"(let-values(((compiled-submodule_0)" -"(let-values(((temp695_0)" -"(if(expanded+parsed? submod_5)" -"(expanded+parsed-parsed submod_5)" -" submod_5))" -"((temp696_0)" -"(let-values(((ns701_0) ns_131)" -"((self702_0) self_42)" -"((temp703_0)" +"(let-values(((ns_1965)(expand-context-namespace ctx_1934)))" +"(let-values(((module-name_1966)" +"(1/module-path-index-resolve self_1933)))" +"(let-values(((root-module-name_1967)" +"(resolved-module-path-root-name module-name_1966)))" +"(let-values(((compiled-submodule_1968)" +"(let-values(((temp695_2006)" +"(if(expanded+parsed? submod_1964)" +"(expanded+parsed-parsed submod_1964)" +" submod_1964))" +"((temp696_2007)" +"(let-values(((ns701_2013) ns_1965)" +"((self702_2014) self_1933)" +"((temp703_2015)" "(1/resolved-module-path-name" -" module-name_3)))" +" module-name_1966)))" "(make-compile-context14.1" -" temp703_0" +" temp703_2015" " unsafe-undefined" -" self702_0" -" ns701_0" +" self702_2014" +" ns701_2013" " unsafe-undefined" " unsafe-undefined)))" -"((temp697_0) #t)" -"((temp698_0)" +"((temp697_2008) #t)" +"((temp698_2009)" "(expand-context-for-serializable?" -" ctx_121))" -"((modules-being-compiled699_0)" -" modules-being-compiled_8)" -"((temp700_0) #f))" +" ctx_1934))" +"((modules-being-compiled699_2010)" +" modules-being-compiled_1942)" +"((temp700_2011) #f))" "(compile-module13.1" -" temp697_0" -" modules-being-compiled699_0" -" temp700_0" -" temp698_0" +" temp697_2008" +" modules-being-compiled699_2010" +" temp700_2011" +" temp698_2009" " #f" -" temp695_0" -" temp696_0))))" +" temp695_2006" +" temp696_2007))))" "(begin" "(hash-set!" -" compiled-submodules_5" -" name_81" -"(cons is-star?_0 compiled-submodule_0))" +" compiled-submodules_1941" +" name_1963" +"(cons is-star?_1935 compiled-submodule_1968))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -" ns_131" +" ns_1965" " 1/current-module-declare-name" -"(1/make-resolved-module-path root-module-name_1))" +"(1/make-resolved-module-path root-module-name_1967))" "(let-values()" -"(let-values(((compiled-submodule704_0) compiled-submodule_0)" -"((temp705_0) #f))" +"(let-values(((compiled-submodule704_2017)" +" compiled-submodule_1968)" +"((temp705_2018) #f))" "(eval-module8.1" " unsafe-undefined" " #f" -" temp705_0" -" compiled-submodule704_0))))" -"(if is-star?_0" +" temp705_2018" +" compiled-submodule704_2017))))" +"(if is-star?_1935" "(void)" "(let-values()" -"(let-values(((obs_166)(expand-context-observer ctx_121)))" -"(if obs_166" +"(let-values(((obs_2019)" +"(expand-context-observer ctx_1934)))" +"(if obs_2019" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_166" +" obs_2019" " 'exit-prim" -"(extract-syntax submod_5))))" +"(extract-syntax submod_1964))))" "(void)))))" -"(if(not is-star?_0)" -"(let-values() submod_5)" -"(if(expanded+parsed? submod_5)" +"(if(not is-star?_1935)" +"(let-values() submod_1964)" +"(if(expanded+parsed? submod_1964)" "(let-values()" -"(let-values(((the-struct_122) submod_5))" -"(if(expanded+parsed? the-struct_122)" -"(let-values(((parsed706_0)" -"(let-values(((the-struct_123)" +"(let-values(((the-struct_2020) submod_1964))" +"(if(expanded+parsed? the-struct_2020)" +"(let-values(((parsed706_2021)" +"(let-values(((the-struct_2022)" "(expanded+parsed-parsed" -" submod_5)))" -"(if(parsed-module? the-struct_123)" -"(let-values(((star?707_0) #t))" +" submod_1964)))" +"(if(parsed-module? the-struct_2022)" +"(let-values(((star?707_2023) #t))" "(parsed-module25.1" -"(parsed-s the-struct_123)" -" star?707_0" +"(parsed-s the-struct_2022)" +" star?707_2023" "(parsed-module-name-id" -" the-struct_123)" +" the-struct_2022)" "(parsed-module-self" -" the-struct_123)" +" the-struct_2022)" "(parsed-module-requires" -" the-struct_123)" +" the-struct_2022)" "(parsed-module-provides" -" the-struct_123)" +" the-struct_2022)" "(parsed-module-root-ctx-simple?" -" the-struct_123)" +" the-struct_2022)" "(parsed-module-encoded-root-ctx" -" the-struct_123)" +" the-struct_2022)" "(parsed-module-body" -" the-struct_123)" +" the-struct_2022)" "(parsed-module-compiled-module" -" the-struct_123)" +" the-struct_2022)" "(parsed-module-compiled-submodules" -" the-struct_123)))" +" the-struct_2022)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_123)))))" +" the-struct_2022)))))" "(expanded+parsed1.1" -"(expanded+parsed-s the-struct_122)" -" parsed706_0))" +"(expanded+parsed-s the-struct_2020)" +" parsed706_2021))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_122))))" +" the-struct_2020))))" "(let-values()" -"(let-values(((the-struct_124) submod_5))" -"(if(parsed-module? the-struct_124)" -"(let-values(((star?708_0) #t))" +"(let-values(((the-struct_2024) submod_1964))" +"(if(parsed-module? the-struct_2024)" +"(let-values(((star?708_2025) #t))" "(parsed-module25.1" -"(parsed-s the-struct_124)" -" star?708_0" -"(parsed-module-name-id the-struct_124)" -"(parsed-module-self the-struct_124)" -"(parsed-module-requires the-struct_124)" -"(parsed-module-provides the-struct_124)" -"(parsed-module-root-ctx-simple? the-struct_124)" -"(parsed-module-encoded-root-ctx the-struct_124)" -"(parsed-module-body the-struct_124)" -"(parsed-module-compiled-module the-struct_124)" +"(parsed-s the-struct_2024)" +" star?708_2025" +"(parsed-module-name-id the-struct_2024)" +"(parsed-module-self the-struct_2024)" +"(parsed-module-requires the-struct_2024)" +"(parsed-module-provides the-struct_2024)" +"(parsed-module-root-ctx-simple? the-struct_2024)" +"(parsed-module-encoded-root-ctx the-struct_2024)" +"(parsed-module-body the-struct_2024)" +"(parsed-module-compiled-module the-struct_2024)" "(parsed-module-compiled-submodules" -" the-struct_124)))" +" the-struct_2024)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_124))))))))))))))))))))))))))))))))))" +" the-struct_2024))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules208.1)" "(lambda(compiled-submodules198_0" @@ -77109,158 +77567,161 @@ static const char *startup_source = " ctx207_0)" "(begin" " 'expand-non-module*-submodules208" -"(let-values(((bodys_29) bodys204_0))" -"(let-values(((phase_156) phase205_0))" -"(let-values(((self_43) self206_0))" -"(let-values(((ctx_122) ctx207_0))" -"(let-values(((mpis-to-reset_5) mpis-to-reset196_0))" -"(let-values(((declared-submodule-names_9) declared-submodule-names197_0))" -"(let-values(((compiled-submodules_6) compiled-submodules198_0))" -"(let-values(((modules-being-compiled_9) modules-being-compiled199_0))" +"(let-values(((bodys_2081) bodys204_0))" +"(let-values(((phase_2082) phase205_0))" +"(let-values(((self_2083) self206_0))" +"(let-values(((ctx_2084) ctx207_0))" +"(let-values(((mpis-to-reset_2085) mpis-to-reset196_0))" +"(let-values(((declared-submodule-names_2086) declared-submodule-names197_0))" +"(let-values(((compiled-submodules_2087) compiled-submodules198_0))" +"(let-values(((modules-being-compiled_2088) modules-being-compiled199_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_459) bodys_29))" +"(let-values(((lst_2089) bodys_2081))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_459)))" -"((letrec-values(((for-loop_343)" -"(lambda(fold-var_387 lst_460)" +"(let-values()(check-list lst_2089)))" +"((letrec-values(((for-loop_2090)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_460)" -"(let-values(((body_25)(unsafe-car lst_460))" -"((rest_266)(unsafe-cdr lst_460)))" -"(let-values(((fold-var_388)" -"(let-values(((fold-var_389) fold-var_387))" -"(let-values(((fold-var_390)" +"(if(pair? lst_0)" +"(let-values(((body_2093)(unsafe-car lst_0))" +"((rest_2094)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_2095)" +"(let-values(((fold-var_2096) fold-var_0))" +"(let-values(((fold-var_2097)" "(let-values()" "(cons" "(let-values()" -"(let-values(((tmp_69)" +"(let-values(((tmp_2098)" "(core-form-sym" "(syntax-disarm$1" -" body_25)" -" phase_156)))" -"(if(equal? tmp_69 'module)" +" body_2093)" +" phase_2082)))" +"(if(equal?" +" tmp_2098" +" 'module)" "(let-values()" -"(let-values(((body709_0)" -" body_25)" -"((self710_0)" -" self_43)" -"((ctx711_0)" -" ctx_122)" -"((temp712_0)" +"(let-values(((body709_2100)" +" body_2093)" +"((self710_2101)" +" self_2083)" +"((ctx711_2102)" +" ctx_2084)" +"((temp712_2103)" " #f)" -"((mpis-to-reset713_0)" -" mpis-to-reset_5)" -"((declared-submodule-names714_0)" -" declared-submodule-names_9)" -"((compiled-submodules715_0)" -" compiled-submodules_6)" -"((modules-being-compiled716_0)" -" modules-being-compiled_9))" +"((mpis-to-reset713_2104)" +" mpis-to-reset_2085)" +"((declared-submodule-names714_2105)" +" declared-submodule-names_2086)" +"((compiled-submodules715_2106)" +" compiled-submodules_2087)" +"((modules-being-compiled716_2107)" +" modules-being-compiled_2088))" "(expand-submodule193.1" -" compiled-submodules715_0" -" declared-submodule-names714_0" +" compiled-submodules715_2106" +" declared-submodule-names714_2105" " #f" " #f" -" temp712_0" +" temp712_2103" " #f" -" modules-being-compiled716_0" -" mpis-to-reset713_0" -" body709_0" -" self710_0" -" ctx711_0)))" -"(let-values() body_25))))" -" fold-var_389))))" -"(values fold-var_390)))))" +" modules-being-compiled716_2107" +" mpis-to-reset713_2104" +" body709_2100" +" self710_2101" +" ctx711_2102)))" +"(let-values()" +" body_2093))))" +" fold-var_2096))))" +"(values fold-var_2097)))))" "(if(not #f)" -"(for-loop_343 fold-var_388 rest_266)" -" fold-var_388)))" -" fold-var_387)))))" -" for-loop_343)" +"(for-loop_2090 fold-var_2095 rest_2094)" +" fold-var_2095)))" +" fold-var_0)))))" +" for-loop_2090)" " null" -" lst_459))))))))))))))))" +" lst_2089))))))))))))))))" "(define-values" "(make-parse-lifted-require216.1)" "(lambda(declared-submodule-names211_0 m-ns213_0 self214_0 requires+provides215_0)" "(begin" " 'make-parse-lifted-require216" -"(let-values(((m-ns_24) m-ns213_0))" -"(let-values(((self_44) self214_0))" -"(let-values(((requires+provides_14) requires+provides215_0))" -"(let-values(((declared-submodule-names_10) declared-submodule-names211_0))" +"(let-values(((m-ns_2148) m-ns213_0))" +"(let-values(((self_2149) self214_0))" +"(let-values(((requires+provides_2150) requires+provides215_0))" +"(let-values(((declared-submodule-names_2151) declared-submodule-names211_0))" "(let-values()" -"(lambda(s_905 phase_157)" -"(let-values(((ok?_92 #%require717_0 req718_0)" -"(let-values(((s_906)(syntax-disarm$1 s_905)))" -"(let-values(((orig-s_93) s_906))" -"(let-values(((#%require717_1 req718_1)" -"(let-values(((s_907)" -"(if(syntax?$1 s_906)(syntax-e$1 s_906) s_906)))" -"(if(pair? s_907)" -"(let-values(((#%require719_0)" -"(let-values(((s_908)(car s_907))) s_908))" -"((req720_0)" -"(let-values(((s_909)(cdr s_907)))" -"(let-values(((s_910)" -"(if(syntax?$1 s_909)" -"(syntax-e$1 s_909)" -" s_909)))" -"(if(pair? s_910)" -"(let-values(((req721_0)" -"(let-values(((s_911)" -"(car s_910)))" -" s_911))" +"(lambda(s_0 phase_0)" +"(let-values(((ok?_2154 #%require717_2155 req718_2156)" +"(let-values(((s_2170)(syntax-disarm$1 s_0)))" +"(let-values(((orig-s_2171) s_2170))" +"(let-values(((#%require717_2172 req718_2173)" +"(let-values(((s_2174)" +"(if(syntax?$1 s_2170)(syntax-e$1 s_2170) s_2170)))" +"(if(pair? s_2174)" +"(let-values(((#%require719_2175)" +"(let-values(((s_2177)(car s_2174))) s_2177))" +"((req720_2176)" +"(let-values(((s_2178)(cdr s_2174)))" +"(let-values(((s_2179)" +"(if(syntax?$1 s_2178)" +"(syntax-e$1 s_2178)" +" s_2178)))" +"(if(pair? s_2179)" +"(let-values(((req721_2180)" +"(let-values(((s_2181)" +"(car s_2179)))" +" s_2181))" "(()" -"(let-values(((s_912)" -"(cdr s_910)))" -"(let-values(((s_913)" +"(let-values(((s_2182)" +"(cdr s_2179)))" +"(let-values(((s_2183)" "(if(syntax?$1" -" s_912)" +" s_2182)" "(syntax-e$1" -" s_912)" -" s_912)))" -"(if(null? s_913)" +" s_2182)" +" s_2182)))" +"(if(null? s_2183)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_93))))))" -"(values req721_0))" +" orig-s_2171))))))" +"(values req721_2180))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_93))))))" -"(values #%require719_0 req720_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_93)))))" -"(values #t #%require717_1 req718_1))))))" -"(let-values(((temp722_0)(list req718_0))" -"((s723_0) s_905)" -"((self724_0) self_44)" -"((m-ns725_0) m-ns_24)" -"((phase726_0) phase_157)" -"((phase727_0) phase_157)" -"((requires+provides728_0) requires+provides_14)" -"((declared-submodule-names729_0) declared-submodule-names_10)" -"((temp730_0) 'require))" +" orig-s_2171))))))" +"(values #%require719_2175 req720_2176))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_2171)))))" +"(values #t #%require717_2172 req718_2173))))))" +"(let-values(((temp722_2185)(list req718_2156))" +"((s723_2186) s_0)" +"((self724_2187) self_2149)" +"((m-ns725_2188) m-ns_2148)" +"((phase726_2189) phase_0)" +"((phase727_2190) phase_0)" +"((requires+provides728_2191) requires+provides_2150)" +"((declared-submodule-names729_2192) declared-submodule-names_2151)" +"((temp730_2193) 'require))" "(parse-and-perform-requires!30.1" " #f" " #f" -" declared-submodule-names729_0" +" declared-submodule-names729_2192" " #f" -" phase727_0" +" phase727_2190" " #f" -" self724_0" +" self724_2187" " #f" " #t" -" temp730_0" -" temp722_0" -" s723_0" -" m-ns725_0" -" phase726_0" -" requires+provides728_0))))))))))))" +" temp730_2193" +" temp722_2185" +" s723_2186" +" m-ns725_2188" +" phase726_2189" +" requires+provides728_2191))))))))))))" "(define-values" "(defn-extract-syntax)" "(lambda(defn_0)" @@ -77271,1135 +77732,1148 @@ static const char *startup_source = "(semi-parsed-define-values-s defn_0)))))" "(define-values" "(lifted-defns-extract-syntax)" -"(lambda(lifted-defns_2)" +"(lambda(lifted-defns_0)" "(begin" "(reverse$1" -"(let-values(((lst_461) lifted-defns_2))" +"(let-values(((lst_2210) lifted-defns_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_461)))" -"((letrec-values(((for-loop_344)" -"(lambda(fold-var_391 lst_462)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_2210)))" +"((letrec-values(((for-loop_2211)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_462)" -"(let-values(((lifted-defn_0)(unsafe-car lst_462))" -"((rest_267)(unsafe-cdr lst_462)))" -"(let-values(((fold-var_392)" -"(let-values(((fold-var_393) fold-var_391))" -"(let-values(((fold-var_394)" +"(if(pair? lst_0)" +"(let-values(((lifted-defn_2214)(unsafe-car lst_0))" +"((rest_2215)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_2216)" +"(let-values(((fold-var_2217) fold-var_0))" +"(let-values(((fold-var_2218)" "(let-values()" "(cons" "(let-values()" -"(defn-extract-syntax lifted-defn_0))" -" fold-var_393))))" -"(values fold-var_394)))))" -"(if(not #f)(for-loop_344 fold-var_392 rest_267) fold-var_392)))" -" fold-var_391)))))" -" for-loop_344)" +"(defn-extract-syntax lifted-defn_2214))" +" fold-var_2217))))" +"(values fold-var_2218)))))" +"(if(not #f)(for-loop_2211 fold-var_2216 rest_2215) fold-var_2216)))" +" fold-var_0)))))" +" for-loop_2211)" " null" -" lst_461)))))))" +" lst_2210)))))))" "(define-values" "(log-lifted-defns)" -"(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" +"(lambda(partial-body-ctx_0 lifted-defns_0 exp-body_0 rest-bodys_0)" "(begin" -"(let-values(((obs_167)(expand-context-observer partial-body-ctx_2)))" -"(if obs_167" +"(let-values(((obs_2223)(expand-context-observer partial-body-ctx_0)))" +"(if obs_2223" "(let-values()" -"(let-values(((s-lifted-defns_0)(lifted-defns-extract-syntax lifted-defns_3)))" +"(let-values(((s-lifted-defns_2224)(lifted-defns-extract-syntax lifted-defns_0)))" "(let-values((()" "(begin" -"(call-expand-observe obs_167 'rename-list(cons exp-body_10 rest-bodys_4))" +"(call-expand-observe obs_2223 'rename-list(cons exp-body_0 rest-bodys_0))" "(values))))" -"(let-values((()(begin(call-expand-observe obs_167 'module-lift-loop s-lifted-defns_0)(values))))" +"(let-values((()(begin(call-expand-observe obs_2223 'module-lift-loop s-lifted-defns_2224)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_463) s-lifted-defns_0))" +"(let-values(((lst_2241) s-lifted-defns_2224))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_463)))" -"((letrec-values(((for-loop_345)" -"(lambda(lst_464)" +"(let-values()(check-list lst_2241)))" +"((letrec-values(((for-loop_2242)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_464)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_464))" -"((rest_268)(unsafe-cdr lst_464)))" +"(if(pair? lst_0)" +"(let-values(((s-lifted-defn_2244)(unsafe-car lst_0))" +"((rest_2245)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((ok?_93" -" define-values735_0" -" _736_0)" -"(let-values(((s_914)" -" s-lifted-defn_0))" -"(let-values(((orig-s_94)" -" s_914))" -"(let-values(((define-values735_1" -" _736_1)" -"(let-values(((s_915)" +"(let-values(((ok?_2246" +" define-values735_2247" +" _736_2248)" +"(let-values(((s_2262)" +" s-lifted-defn_2244))" +"(let-values(((orig-s_2263)" +" s_2262))" +"(let-values(((define-values735_2264" +" _736_2265)" +"(let-values(((s_2266)" "(if(syntax?$1" -" s_914)" +" s_2262)" "(syntax-e$1" -" s_914)" -" s_914)))" +" s_2262)" +" s_2262)))" "(if(pair?" -" s_915)" -"(let-values(((define-values737_0)" -"(let-values(((s_916)" +" s_2266)" +"(let-values(((define-values737_2267)" +"(let-values(((s_2269)" "(car" -" s_915)))" -" s_916))" -"((_738_0)" -"(let-values(((s_917)" +" s_2266)))" +" s_2269))" +"((_738_2268)" +"(let-values(((s_2270)" "(cdr" -" s_915)))" -"(let-values(((s_918)" +" s_2266)))" +"(let-values(((s_2271)" "(if(syntax?$1" -" s_917)" +" s_2270)" "(syntax-e$1" -" s_917)" -" s_917)))" -"(let-values(((flat-s_65)" +" s_2270)" +" s_2270)))" +"(let-values(((flat-s_2272)" "(to-syntax-list.1" -" s_918)))" +" s_2271)))" "(if(not" -" flat-s_65)" +" flat-s_2272)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_94))" +" orig-s_2263))" "(let-values()" -" flat-s_65)))))))" +" flat-s_2272)))))))" "(values" -" define-values737_0" -" _738_0))" +" define-values737_2267" +" _738_2268))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_94)))))" +" orig-s_2263)))))" "(values" " #t" -" define-values735_1" -" _736_1))))))" +" define-values735_2264" +" _736_2265))))))" "(begin" "(call-expand-observe" -" obs_167" +" obs_2223" " 'next)" "(call-expand-observe" -" obs_167" +" obs_2223" " 'visit" -" s-lifted-defn_0)" +" s-lifted-defn_2244)" "(call-expand-observe" -" obs_167" +" obs_2223" " 'resolve" -" define-values735_0)" +" define-values735_2247)" "(call-expand-observe" -" obs_167" +" obs_2223" " 'enter-prim" -" s-lifted-defn_0)" +" s-lifted-defn_2244)" "(call-expand-observe" -" obs_167" +" obs_2223" " 'prim-stop)" "(call-expand-observe" -" obs_167" +" obs_2223" " 'exit-prim" -" s-lifted-defn_0)" +" s-lifted-defn_2244)" "(call-expand-observe" -" obs_167" +" obs_2223" " 'return" -" s-lifted-defn_0)" +" s-lifted-defn_2244)" "(call-expand-observe" -" obs_167" +" obs_2223" " 'rename-one" -" s-lifted-defn_0)" +" s-lifted-defn_2244)" "(call-expand-observe" -" obs_167" +" obs_2223" " 'enter-prim" -" s-lifted-defn_0)" +" s-lifted-defn_2244)" "(call-expand-observe" -" obs_167" +" obs_2223" " 'prim-define-values)" "(call-expand-observe" -" obs_167" +" obs_2223" " 'exit-prim" -" s-lifted-defn_0))))" +" s-lifted-defn_2244))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_345 rest_268)(values))))" +"(if(not #f)(for-loop_2242 rest_2245)(values))))" "(values))))))" -" for-loop_345)" -" lst_463)))" +" for-loop_2242)" +" lst_2241)))" "(values))))" "(let-values()" -"(let-values(((ok?_94 form-id731_0 _732_0)" -"(let-values(((s_919) exp-body_10))" -"(let-values(((orig-s_95) s_919))" -"(let-values(((form-id731_1 _732_1)" -"(let-values(((s_920)" -"(if(syntax?$1 s_919)(syntax-e$1 s_919) s_919)))" -"(if(pair? s_920)" -"(let-values(((form-id733_0)" -"(let-values(((s_921)(car s_920))) s_921))" -"((_734_0)" -"(let-values(((s_922)(cdr s_920))) s_922)))" -"(values form-id733_0 _734_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" -"(values #t form-id731_1 _732_1))))))" +"(let-values(((ok?_2225 form-id731_2226 _732_2227)" +"(let-values(((s_2273) exp-body_0))" +"(let-values(((orig-s_2274) s_2273))" +"(let-values(((form-id731_2275 _732_2276)" +"(let-values(((s_2277)" +"(if(syntax?$1 s_2273)(syntax-e$1 s_2273) s_2273)))" +"(if(pair? s_2277)" +"(let-values(((form-id733_2278)" +"(let-values(((s_2280)(car s_2277))) s_2280))" +"((_734_2279)" +"(let-values(((s_2281)(cdr s_2277))) s_2281)))" +"(values form-id733_2278 _734_2279))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_2274)))))" +"(values #t form-id731_2275 _732_2276))))))" "(begin" -"(call-expand-observe obs_167 'next)" -"(call-expand-observe obs_167 'visit exp-body_10)" -"(call-expand-observe obs_167 'resolve form-id731_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_2223 'next)" +"(call-expand-observe obs_2223 'visit exp-body_0)" +"(call-expand-observe obs_2223 'resolve form-id731_2226)" +"(call-expand-observe obs_2223 'enter-prim exp-body_0)" +"(call-expand-observe obs_2223 'prim-stop)" +"(call-expand-observe obs_2223 'exit-prim exp-body_0)" +"(call-expand-observe obs_2223 'return exp-body_0)))))))))" "(void))))))" "(define-values" "(log-defn-enter)" -"(lambda(ctx_123 defn_1)" +"(lambda(ctx_0 defn_0)" "(begin" -"(let-values(((obs_168)(expand-context-observer ctx_123)))" -"(if obs_168" +"(let-values(((obs_2284)(expand-context-observer ctx_0)))" +"(if obs_2284" "(let-values()" -"(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" -"(let-values(((ok?_95 define-values739_0 _740_0)" -"(let-values(((s_923) s-defn_0))" -"(let-values(((orig-s_96) s_923))" -"(let-values(((define-values739_1 _740_1)" -"(let-values(((s_924)(if(syntax?$1 s_923)(syntax-e$1 s_923) s_923)))" -"(if(pair? s_924)" -"(let-values(((define-values741_0)" -"(let-values(((s_925)(car s_924))) s_925))" -"((_742_0)" -"(let-values(((s_926)(cdr s_924)))" -"(let-values(((s_927)" -"(if(syntax?$1 s_926)" -"(syntax-e$1 s_926)" -" s_926)))" -"(let-values(((flat-s_66)(to-syntax-list.1 s_927)))" -"(if(not flat-s_66)" +"(let-values(((s-defn_2285)(defn-extract-syntax defn_0)))" +"(let-values(((ok?_2286 define-values739_2287 _740_2288)" +"(let-values(((s_2302) s-defn_2285))" +"(let-values(((orig-s_2303) s_2302))" +"(let-values(((define-values739_2304 _740_2305)" +"(let-values(((s_2306)" +"(if(syntax?$1 s_2302)(syntax-e$1 s_2302) s_2302)))" +"(if(pair? s_2306)" +"(let-values(((define-values741_2307)" +"(let-values(((s_2309)(car s_2306))) s_2309))" +"((_742_2308)" +"(let-values(((s_2310)(cdr s_2306)))" +"(let-values(((s_2311)" +"(if(syntax?$1 s_2310)" +"(syntax-e$1 s_2310)" +" s_2310)))" +"(let-values(((flat-s_2312)" +"(to-syntax-list.1 s_2311)))" +"(if(not flat-s_2312)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_96))" -"(let-values() flat-s_66)))))))" -"(values define-values741_0 _742_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" -"(values #t define-values739_1 _740_1))))))" +" orig-s_2303))" +"(let-values() flat-s_2312)))))))" +"(values define-values741_2307 _742_2308))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_2303)))))" +"(values #t define-values739_2304 _740_2305))))))" "(begin" -"(call-expand-observe obs_168 'visit s-defn_0)" -"(call-expand-observe obs_168 'resolve define-values739_0)" -"(call-expand-observe obs_168 'enter-prim s-defn_0)" -"(call-expand-observe obs_168 'prim-define-values)))))" +"(call-expand-observe obs_2284 'visit s-defn_2285)" +"(call-expand-observe obs_2284 'resolve define-values739_2287)" +"(call-expand-observe obs_2284 'enter-prim s-defn_2285)" +"(call-expand-observe obs_2284 'prim-define-values)))))" "(void))))))" "(define-values" "(log-defn-exit)" -"(lambda(ctx_124 defn_2 exp-rhs_8)" +"(lambda(ctx_0 defn_0 exp-rhs_0)" "(begin" -"(let-values(((obs_169)(expand-context-observer ctx_124)))" -"(if obs_169" +"(let-values(((obs_2316)(expand-context-observer ctx_0)))" +"(if obs_2316" "(let-values()" -"(let-values(((s-defn_1)" +"(let-values(((s-defn_2317)" "(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))))" +"(list 'define-values(semi-parsed-define-values-ids defn_0) exp-rhs_0)" +"(semi-parsed-define-values-s defn_0))))" +"(begin" +"(call-expand-observe obs_2316 'exit-prim s-defn_2317)" +"(call-expand-observe obs_2316 'return s-defn_2317))))" "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_50 s_72 ctx_125)" +"(lambda(ids_0 s_0 ctx_0)" "(begin" -"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_125)))" -"(let-values(((tl-ids_2)" +"(let-values(((top-level-bind-scope_4)(root-expand-context-top-level-bind-scope ctx_0)))" +"(let-values(((tl-ids_5)" "(reverse$1" -"(let-values(((lst_84) ids_50))" +"(let-values(((lst_7) ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_84)))" -"((letrec-values(((for-loop_107)" -"(lambda(fold-var_395 lst_85)" +"(let-values()(check-list lst_7)))" +"((letrec-values(((for-loop_8)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((id_51)(unsafe-car lst_85))" -"((rest_40)(unsafe-cdr lst_85)))" -"(let-values(((fold-var_61)" -"(let-values(((fold-var_62) fold-var_395))" -"(let-values(((fold-var_396)" +"(if(pair? lst_0)" +"(let-values(((id_11)(unsafe-car lst_0))" +"((rest_12)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_13)" +"(let-values(((fold-var_14) fold-var_0))" +"(let-values(((fold-var_15)" "(let-values()" "(cons" "(let-values()" "(remove-use-site-scopes" -" id_51" -" ctx_125))" -" fold-var_62))))" -"(values fold-var_396)))))" -"(if(not #f)(for-loop_107 fold-var_61 rest_40) fold-var_61)))" -" fold-var_395)))))" -" for-loop_107)" +" id_11" +" ctx_0))" +" fold-var_14))))" +"(values fold-var_15)))))" +"(if(not #f)(for-loop_8 fold-var_13 rest_12) fold-var_13)))" +" fold-var_0)))))" +" for-loop_8)" " null" -" lst_84))))))" +" lst_7))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_125))((s3_4) s_72))" -"(check-no-duplicate-ids7.1 unsafe-undefined tl-ids1_0 temp2_9 s3_4 unsafe-undefined))" +"(let-values(((tl-ids1_16) tl-ids_5)((temp2_17)(expand-context-phase ctx_0))((s3_18) s_0))" +"(check-no-duplicate-ids7.1 unsafe-undefined tl-ids1_16 temp2_17 s3_18 unsafe-undefined))" "(values))))" -"(let-values(((tmp-bind-ids_0)" +"(let-values(((tmp-bind-ids_6)" "(reverse$1" -"(let-values(((lst_465) tl-ids_2))" +"(let-values(((lst_19) tl-ids_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_465)))" -"((letrec-values(((for-loop_83)" -"(lambda(fold-var_221 lst_86)" +"(let-values()(check-list lst_19)))" +"((letrec-values(((for-loop_20)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((id_161)(unsafe-car lst_86))" -"((rest_248)(unsafe-cdr lst_86)))" -"(let-values(((fold-var_26)" -"(let-values(((fold-var_397) fold-var_221))" -"(let-values(((fold-var_224)" +"(if(pair? lst_0)" +"(let-values(((id_23)(unsafe-car lst_0))" +"((rest_24)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_25)" +"(let-values(((fold-var_26) fold-var_0))" +"(let-values(((fold-var_27)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_161" -" top-level-bind-scope_6))" -" fold-var_397))))" -"(values fold-var_224)))))" -"(if(not #f)" -"(for-loop_83 fold-var_26 rest_248)" -" fold-var_26)))" -" fold-var_221)))))" -" for-loop_83)" +" id_23" +" top-level-bind-scope_4))" +" fold-var_26))))" +"(values fold-var_27)))))" +"(if(not #f)(for-loop_20 fold-var_25 rest_24) fold-var_25)))" +" fold-var_0)))))" +" for-loop_20)" " null" -" lst_465))))))" -"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_125)))))))))" +" lst_19))))))" +"(values tl-ids_5(select-defined-syms-and-bind!/ctx tmp-bind-ids_6 ctx_0)))))))))" "(void" "(add-core-form!*" " 'define-values" -"(lambda(s_0 ctx_7)" +"(lambda(s_0 ctx_0)" "(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_27)(expand-context-observer ctx_0)))" +"(if obs_27" +"(let-values()(let-values()(call-expand-observe obs_27 'prim-define-values)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_7) 'top-level)" +"(if(eq?(expand-context-context ctx_0) 'top-level)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not allowed in an expression position\" s_0)))" "(values))))" -"(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" -"(let-values(((ok?_26 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_503) s_0))" -"(let-values(((orig-s_97) s_503))" -"(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_76)(if(syntax?$1 s_503)(syntax-e$1 s_503) s_503)))" -"(if(pair? s_76)" -"(let-values(((define-values4_0)" -"(let-values(((s_188)(car s_76))) s_188))" -"((id5_0 rhs6_0)" -"(let-values(((s_167)(cdr s_76)))" -"(let-values(((s_5)" -"(if(syntax?$1 s_167)" -"(syntax-e$1 s_167)" -" s_167)))" -"(if(pair? s_5)" -"(let-values(((id7_0)" -"(let-values(((s_80)(car s_5)))" -"(let-values(((s_6)" -"(if(syntax?$1 s_80)" -"(syntax-e$1 s_80)" -" s_80)))" -"(let-values(((flat-s_67)" +"(let-values(((disarmed-s_3)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_4 define-values1_5 id2_6 rhs3_7)" +"(let-values(((s_28) s_0))" +"(let-values(((orig-s_29) s_28))" +"(let-values(((define-values1_30 id2_31 rhs3_32)" +"(let-values(((s_33)(if(syntax?$1 s_28)(syntax-e$1 s_28) s_28)))" +"(if(pair? s_33)" +"(let-values(((define-values4_34)" +"(let-values(((s_37)(car s_33))) s_37))" +"((id5_35 rhs6_36)" +"(let-values(((s_38)(cdr s_33)))" +"(let-values(((s_39)" +"(if(syntax?$1 s_38)" +"(syntax-e$1 s_38)" +" s_38)))" +"(if(pair? s_39)" +"(let-values(((id7_40)" +"(let-values(((s_42)(car s_39)))" +"(let-values(((s_43)" +"(if(syntax?$1 s_42)" +"(syntax-e$1 s_42)" +" s_42)))" +"(let-values(((flat-s_44)" "(to-syntax-list.1" -" s_6)))" -"(if(not flat-s_67)" +" s_43)))" +"(if(not flat-s_44)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_97))" +" orig-s_29))" "(let-values()" -"(let-values(((id_54)" -"(let-values(((lst_76)" -" flat-s_67))" +"(let-values(((id_45)" +"(let-values(((lst_46)" +" flat-s_44))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_76)))" -"((letrec-values(((for-loop_97)" -"(lambda(id_162" -" lst_77)" +" lst_46)))" +"((letrec-values(((for-loop_47)" +"(lambda(id_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_77)" -"(let-values(((s_89)" +" lst_0)" +"(let-values(((s_50)" "(unsafe-car" -" lst_77))" -"((rest_121)" +" lst_0))" +"((rest_51)" "(unsafe-cdr" -" lst_77)))" -"(let-values(((id_163)" -"(let-values(((id_164)" -" id_162))" -"(let-values(((id_115)" +" lst_0)))" +"(let-values(((id_52)" +"(let-values(((id_53)" +" id_0))" +"(let-values(((id_54)" "(let-values()" -"(let-values(((id10_1)" +"(let-values(((id10_55)" "(let-values()" -"(if(let-values(((or-part_30)" +"(if(let-values(((or-part_56)" "(if(syntax?$1" -" s_89)" +" s_50)" "(symbol?" "(syntax-e$1" -" s_89))" +" s_50))" " #f)))" -"(if or-part_30" -" or-part_30" +"(if or-part_56" +" or-part_56" "(symbol?" -" s_89)))" -" s_89" +" s_50)))" +" s_50" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_97" -" s_89)))))" +" orig-s_29" +" s_50)))))" "(cons" -" id10_1" -" id_164)))))" +" id10_55" +" id_53)))))" "(values" -" id_115)))))" +" id_54)))))" "(if(not" " #f)" -"(for-loop_97" -" id_163" -" rest_121)" -" id_163)))" -" id_162)))))" -" for-loop_97)" +"(for-loop_47" +" id_52" +" rest_51)" +" id_52)))" +" id_0)))))" +" for-loop_47)" " null" -" lst_76)))))" -"(reverse$1 id_54))))))))" -"((rhs8_0)" -"(let-values(((s_307)(cdr s_5)))" -"(let-values(((s_35)" -"(if(syntax?$1 s_307)" -"(syntax-e$1 s_307)" -" s_307)))" -"(if(pair? s_35)" -"(let-values(((rhs9_0)" -"(let-values(((s_91)" +" lst_46)))))" +"(reverse$1 id_45))))))))" +"((rhs8_41)" +"(let-values(((s_57)(cdr s_39)))" +"(let-values(((s_58)" +"(if(syntax?$1 s_57)" +"(syntax-e$1 s_57)" +" s_57)))" +"(if(pair? s_58)" +"(let-values(((rhs9_59)" +"(let-values(((s_60)" "(car" -" s_35)))" -" s_91))" +" s_58)))" +" s_60))" "(()" -"(let-values(((s_168)" +"(let-values(((s_61)" "(cdr" -" s_35)))" -"(let-values(((s_308)" +" s_58)))" +"(let-values(((s_62)" "(if(syntax?$1" -" s_168)" +" s_61)" "(syntax-e$1" -" s_168)" -" s_168)))" +" s_61)" +" s_61)))" "(if(null?" -" s_308)" +" s_62)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_97))))))" -"(values rhs9_0))" +" orig-s_29))))))" +"(values rhs9_59))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_97))))))" -"(values id7_0 rhs8_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_97))))))" -"(values define-values4_0 id5_0 rhs6_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" -"(values #t define-values1_1 id2_2 rhs3_1))))))" -"(let-values(((ids_51 syms_27)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))" -"(let-values(((exp-rhs_9)" -"(let-values(((temp11_7) rhs3_0)" -"((temp12_9)(as-named-context(as-expression-context ctx_7) ids_51)))" -"(expand9.1 #f #f #f temp11_7 temp12_9))))" -"(if(expand-context-to-parsed? ctx_7)" -"(parsed-define-values19.1 s_0 ids_51 syms_27 exp-rhs_9)" -"(let-values(((s13_1) s_0)((temp14_6)(list define-values1_0 ids_51 exp-rhs_9)))" -"(rebuild5.1 #t s13_1 temp14_6))))))))))))" +" orig-s_29))))))" +"(values id7_40 rhs8_41))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_29))))))" +"(values define-values4_34 id5_35 rhs6_36))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_29)))))" +"(values #t define-values1_30 id2_31 rhs3_32))))))" +"(let-values(((ids_24 syms_25)(as-expand-time-top-level-bindings id2_6 s_0 ctx_0)))" +"(let-values(((exp-rhs_26)" +"(let-values(((temp11_63) rhs3_7)" +"((temp12_64)(as-named-context(as-expression-context ctx_0) ids_24)))" +"(expand9.1 #f #f #f temp11_63 temp12_64))))" +"(if(expand-context-to-parsed? ctx_0)" +"(parsed-define-values19.1 s_0 ids_24 syms_25 exp-rhs_26)" +"(let-values(((s13_65) s_0)((temp14_66)(list define-values1_5 ids_24 exp-rhs_26)))" +"(rebuild5.1 #t s13_65 temp14_66))))))))))))" "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_186 ctx_126)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(let-values(((obs_171)(expand-context-observer ctx_126)))" -"(if obs_171" -"(let-values()(let-values()(call-expand-observe obs_171 'prim-define-syntaxes)))" +"(let-values(((obs_93)(expand-context-observer ctx_0)))" +"(if obs_93" +"(let-values()(let-values()(call-expand-observe obs_93 'prim-define-syntaxes)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_172)(expand-context-observer ctx_126)))" -"(if obs_172(let-values()(let-values()(call-expand-observe obs_172 'prepare-env)))(void)))" +"(let-values(((obs_94)(expand-context-observer ctx_0)))" +"(if obs_94(let-values()(let-values()(call-expand-observe obs_94 'prepare-env)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_126) 'top-level)" +"(if(eq?(expand-context-context ctx_0) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_186)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_0)))" "(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_186)))" -"(let-values(((ok?_96 define-syntaxes15_0 id16_1 rhs17_0)" -"(let-values(((s_18) disarmed-s_26))" -"(let-values(((orig-s_98) s_18))" -"(let-values(((define-syntaxes15_1 id16_2 rhs17_1)" -"(let-values(((s_22)(if(syntax?$1 s_18)(syntax-e$1 s_18) s_18)))" -"(if(pair? s_22)" -"(let-values(((define-syntaxes18_0)" -"(let-values(((s_928)(car s_22))) s_928))" -"((id19_1 rhs20_0)" -"(let-values(((s_25)(cdr s_22)))" -"(let-values(((s_306)" -"(if(syntax?$1 s_25)" -"(syntax-e$1 s_25)" -" s_25)))" -"(if(pair? s_306)" -"(let-values(((id21_1)" -"(let-values(((s_495)(car s_306)))" -"(let-values(((s_929)" -"(if(syntax?$1 s_495)" -"(syntax-e$1 s_495)" -" s_495)))" -"(let-values(((flat-s_68)" +"(let-values(((disarmed-s_69)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_70 define-syntaxes15_71 id16_72 rhs17_73)" +"(let-values(((s_95) disarmed-s_69))" +"(let-values(((orig-s_96) s_95))" +"(let-values(((define-syntaxes15_97 id16_98 rhs17_99)" +"(let-values(((s_100)(if(syntax?$1 s_95)(syntax-e$1 s_95) s_95)))" +"(if(pair? s_100)" +"(let-values(((define-syntaxes18_101)" +"(let-values(((s_104)(car s_100))) s_104))" +"((id19_102 rhs20_103)" +"(let-values(((s_105)(cdr s_100)))" +"(let-values(((s_106)" +"(if(syntax?$1 s_105)" +"(syntax-e$1 s_105)" +" s_105)))" +"(if(pair? s_106)" +"(let-values(((id21_107)" +"(let-values(((s_109)(car s_106)))" +"(let-values(((s_110)" +"(if(syntax?$1 s_109)" +"(syntax-e$1 s_109)" +" s_109)))" +"(let-values(((flat-s_111)" "(to-syntax-list.1" -" s_929)))" -"(if(not flat-s_68)" +" s_110)))" +"(if(not flat-s_111)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_98))" +" orig-s_96))" "(let-values()" -"(let-values(((id_165)" -"(let-values(((lst_466)" -" flat-s_68))" +"(let-values(((id_112)" +"(let-values(((lst_113)" +" flat-s_111))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_466)))" -"((letrec-values(((for-loop_2)" -"(lambda(id_166" -" lst_467)" +" lst_113)))" +"((letrec-values(((for-loop_114)" +"(lambda(id_0" +" lst_0)" "(begin" " 'for-loop" "(if(pair?" -" lst_467)" -"(let-values(((s_930)" +" lst_0)" +"(let-values(((s_117)" "(unsafe-car" -" lst_467))" -"((rest_269)" +" lst_0))" +"((rest_118)" "(unsafe-cdr" -" lst_467)))" -"(let-values(((id_167)" -"(let-values(((id_168)" -" id_166))" -"(let-values(((id_169)" +" lst_0)))" +"(let-values(((id_119)" +"(let-values(((id_120)" +" id_0))" +"(let-values(((id_121)" "(let-values()" -"(let-values(((id24_0)" +"(let-values(((id24_122)" "(let-values()" -"(if(let-values(((or-part_218)" +"(if(let-values(((or-part_123)" "(if(syntax?$1" -" s_930)" +" s_117)" "(symbol?" "(syntax-e$1" -" s_930))" +" s_117))" " #f)))" -"(if or-part_218" -" or-part_218" +"(if or-part_123" +" or-part_123" "(symbol?" -" s_930)))" -" s_930" +" s_117)))" +" s_117" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_98" -" s_930)))))" +" orig-s_96" +" s_117)))))" "(cons" -" id24_0" -" id_168)))))" +" id24_122" +" id_120)))))" "(values" -" id_169)))))" +" id_121)))))" "(if(not" " #f)" -"(for-loop_2" -" id_167" -" rest_269)" -" id_167)))" -" id_166)))))" -" for-loop_2)" +"(for-loop_114" +" id_119" +" rest_118)" +" id_119)))" +" id_0)))))" +" for-loop_114)" " null" -" lst_466)))))" -"(reverse$1 id_165))))))))" -"((rhs22_0)" -"(let-values(((s_931)(cdr s_306)))" -"(let-values(((s_175)" -"(if(syntax?$1 s_931)" -"(syntax-e$1 s_931)" -" s_931)))" -"(if(pair? s_175)" -"(let-values(((rhs23_2)" -"(let-values(((s_452)" +" lst_113)))))" +"(reverse$1 id_112))))))))" +"((rhs22_108)" +"(let-values(((s_124)(cdr s_106)))" +"(let-values(((s_125)" +"(if(syntax?$1 s_124)" +"(syntax-e$1 s_124)" +" s_124)))" +"(if(pair? s_125)" +"(let-values(((rhs23_126)" +"(let-values(((s_127)" "(car" -" s_175)))" -" s_452))" +" s_125)))" +" s_127))" "(()" -"(let-values(((s_46)" +"(let-values(((s_128)" "(cdr" -" s_175)))" -"(let-values(((s_487)" +" s_125)))" +"(let-values(((s_129)" "(if(syntax?$1" -" s_46)" +" s_128)" "(syntax-e$1" -" s_46)" -" s_46)))" +" s_128)" +" s_128)))" "(if(null?" -" s_487)" +" s_129)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_98))))))" -"(values rhs23_2))" +" orig-s_96))))))" +"(values rhs23_126))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_98))))))" -"(values id21_1 rhs22_0))" +" orig-s_96))))))" +"(values id21_107 rhs22_108))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_98))))))" -"(values define-syntaxes18_0 id19_1 rhs20_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" -"(values #t define-syntaxes15_1 id16_2 rhs17_1))))))" -"(let-values(((ids_52 syms_28)(as-expand-time-top-level-bindings id16_1 s_186 ctx_126)))" -"(let-values(((exp-rhs_10)" -"(let-values(((temp25_8) rhs17_0)((temp26_6)(as-named-context ctx_126 ids_52)))" -"(expand-transformer92.1 #f #f 'expression #t #f unsafe-undefined temp25_8 temp26_6))))" -"(if(expand-context-to-parsed? ctx_126)" -"(parsed-define-syntaxes20.1 s_186 ids_52 syms_28 exp-rhs_10)" -"(let-values(((s27_2) s_186)((temp28_4)(list define-syntaxes15_0 ids_52 exp-rhs_10)))" -"(rebuild5.1 #t s27_2 temp28_4)))))))))))))" +" orig-s_96))))))" +"(values define-syntaxes18_101 id19_102 rhs20_103))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" +"(values #t define-syntaxes15_97 id16_98 rhs17_99))))))" +"(let-values(((ids_90 syms_91)(as-expand-time-top-level-bindings id16_72 s_0 ctx_0)))" +"(let-values(((exp-rhs_92)" +"(let-values(((temp25_130) rhs17_73)((temp26_131)(as-named-context ctx_0 ids_90)))" +"(expand-transformer92.1" +" #f" +" #f" +" 'expression" +" #t" +" #f" +" unsafe-undefined" +" temp25_130" +" temp26_131))))" +"(if(expand-context-to-parsed? ctx_0)" +"(parsed-define-syntaxes20.1 s_0 ids_90 syms_91 exp-rhs_92)" +"(let-values(((s27_132) s_0)((temp28_133)(list define-syntaxes15_71 ids_90 exp-rhs_92)))" +"(rebuild5.1 #t s27_132 temp28_133)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_309 ctx_127)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_127) 'top-level)" +"(if(eq?(expand-context-context ctx_0) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_309)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_0)))" "(values))))" -"(let-values(((ok?_38 begin-for-syntax29_0 form30_0)" -"(let-values(((s_932) s_309))" -"(let-values(((orig-s_99) s_932))" -"(let-values(((begin-for-syntax29_1 form30_1)" -"(let-values(((s_48)(if(syntax?$1 s_932)(syntax-e$1 s_932) s_932)))" -"(if(pair? s_48)" -"(let-values(((begin-for-syntax31_0)(let-values(((s_51)(car s_48))) s_51))" -"((form32_0)" -"(let-values(((s_496)(cdr s_48)))" -"(let-values(((s_778)" -"(if(syntax?$1 s_496)" -"(syntax-e$1 s_496)" -" s_496)))" -"(let-values(((flat-s_69)(to-syntax-list.1 s_778)))" -"(if(not flat-s_69)" +"(let-values(((ok?_136 begin-for-syntax29_137 form30_138)" +"(let-values(((s_156) s_0))" +"(let-values(((orig-s_157) s_156))" +"(let-values(((begin-for-syntax29_158 form30_159)" +"(let-values(((s_160)(if(syntax?$1 s_156)(syntax-e$1 s_156) s_156)))" +"(if(pair? s_160)" +"(let-values(((begin-for-syntax31_161)" +"(let-values(((s_163)(car s_160))) s_163))" +"((form32_162)" +"(let-values(((s_164)(cdr s_160)))" +"(let-values(((s_165)" +"(if(syntax?$1 s_164)" +"(syntax-e$1 s_164)" +" s_164)))" +"(let-values(((flat-s_166)(to-syntax-list.1 s_165)))" +"(if(not flat-s_166)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_99))" -"(let-values() flat-s_69)))))))" -"(values begin-for-syntax31_0 form32_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_99)))))" -"(values #t begin-for-syntax29_1 form30_1))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_157))" +"(let-values() flat-s_166)))))))" +"(values begin-for-syntax31_161 form32_162))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_157)))))" +"(values #t begin-for-syntax29_158 form30_159))))))" "(let-values((()" "(begin" -"(let-values(((obs_173)(expand-context-observer ctx_127)))" -"(if obs_173" -"(let-values()(let-values()(call-expand-observe obs_173 'prim-begin-for-syntax)))" +"(let-values(((obs_167)(expand-context-observer ctx_0)))" +"(if obs_167" +"(let-values()(let-values()(call-expand-observe obs_167 'prim-begin-for-syntax)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_174)(expand-context-observer ctx_127)))" -"(if obs_174" -"(let-values()(let-values()(call-expand-observe obs_174 'prepare-env)))" +"(let-values(((obs_168)(expand-context-observer ctx_0)))" +"(if obs_168" +"(let-values()(let-values()(call-expand-observe obs_168 'prepare-env)))" "(void)))" "(values))))" -"(let-values(((trans-ctx_1)" -"(let-values(((ctx33_0) ctx_127)((temp34_7) 'top-level)((temp35_7) #t))" -"(context->transformer-context99.1 temp35_7 ctx33_0 temp34_7))))" -"(let-values(((lift-ctx_7)" -"(let-values(((temp36_9)(make-top-level-lift trans-ctx_1)))" -"(make-lift-context6.1 #f temp36_9))))" -"(let-values(((capture-ctx_1)" -"(let-values(((v_87) trans-ctx_1))" -"(let-values(((the-struct_125) v_87))" -"(if(expand-context/outer? the-struct_125)" -"(let-values(((inner37_0)" -"(let-values(((the-struct_126)" -"(root-expand-context/outer-inner v_87)))" -"(if(expand-context/inner? the-struct_126)" -"(let-values(((lift-key38_1)(generate-lift-key))" -"((lifts39_0) lift-ctx_7))" +"(let-values(((trans-ctx_152)" +"(let-values(((ctx33_170) ctx_0)((temp34_171) 'top-level)((temp35_172) #t))" +"(context->transformer-context99.1 temp35_172 ctx33_170 temp34_171))))" +"(let-values(((lift-ctx_153)" +"(let-values(((temp36_173)(make-top-level-lift trans-ctx_152)))" +"(make-lift-context6.1 #f temp36_173))))" +"(let-values(((capture-ctx_154)" +"(let-values(((v_174) trans-ctx_152))" +"(let-values(((the-struct_175) v_174))" +"(if(expand-context/outer? the-struct_175)" +"(let-values(((inner37_176)" +"(let-values(((the-struct_177)" +"(root-expand-context/outer-inner v_174)))" +"(if(expand-context/inner? the-struct_177)" +"(let-values(((lift-key38_178)(generate-lift-key))" +"((lifts39_179) lift-ctx_153))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_126)" -"(root-expand-context/inner-module-scopes the-struct_126)" +"(root-expand-context/inner-self-mpi the-struct_177)" +"(root-expand-context/inner-module-scopes the-struct_177)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_126)" -"(root-expand-context/inner-all-scopes-stx the-struct_126)" -"(root-expand-context/inner-defined-syms the-struct_126)" -"(root-expand-context/inner-counter the-struct_126)" -" lift-key38_1" -"(expand-context/inner-to-parsed? the-struct_126)" -"(expand-context/inner-phase the-struct_126)" -"(expand-context/inner-namespace the-struct_126)" -"(expand-context/inner-just-once? the-struct_126)" -"(expand-context/inner-module-begin-k the-struct_126)" -"(expand-context/inner-allow-unbound? the-struct_126)" -"(expand-context/inner-in-local-expand? the-struct_126)" -"(expand-context/inner-keep-#%expression? the-struct_126)" -"(expand-context/inner-stops the-struct_126)" -"(expand-context/inner-declared-submodule-names the-struct_126)" -" lifts39_0" -"(expand-context/inner-lift-envs the-struct_126)" -"(expand-context/inner-module-lifts the-struct_126)" -"(expand-context/inner-require-lifts the-struct_126)" -"(expand-context/inner-to-module-lifts the-struct_126)" -"(expand-context/inner-requires+provides the-struct_126)" -"(expand-context/inner-observer the-struct_126)" -"(expand-context/inner-for-serializable? the-struct_126)" +" the-struct_177)" +"(root-expand-context/inner-all-scopes-stx the-struct_177)" +"(root-expand-context/inner-defined-syms the-struct_177)" +"(root-expand-context/inner-counter the-struct_177)" +" lift-key38_178" +"(expand-context/inner-to-parsed? the-struct_177)" +"(expand-context/inner-phase the-struct_177)" +"(expand-context/inner-namespace the-struct_177)" +"(expand-context/inner-just-once? the-struct_177)" +"(expand-context/inner-module-begin-k the-struct_177)" +"(expand-context/inner-allow-unbound? the-struct_177)" +"(expand-context/inner-in-local-expand? the-struct_177)" +"(expand-context/inner-keep-#%expression? the-struct_177)" +"(expand-context/inner-stops the-struct_177)" +"(expand-context/inner-declared-submodule-names the-struct_177)" +" lifts39_179" +"(expand-context/inner-lift-envs the-struct_177)" +"(expand-context/inner-module-lifts the-struct_177)" +"(expand-context/inner-require-lifts the-struct_177)" +"(expand-context/inner-to-module-lifts the-struct_177)" +"(expand-context/inner-requires+provides the-struct_177)" +"(expand-context/inner-observer the-struct_177)" +"(expand-context/inner-for-serializable? the-struct_177)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_126)))" +" the-struct_177)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_126)))))" +" the-struct_177)))))" "(expand-context/outer1.1" -" inner37_0" -"(root-expand-context/outer-post-expansion the-struct_125)" -"(root-expand-context/outer-use-site-scopes the-struct_125)" -"(root-expand-context/outer-frame-id the-struct_125)" -"(expand-context/outer-context the-struct_125)" -"(expand-context/outer-env the-struct_125)" -"(expand-context/outer-scopes the-struct_125)" -"(expand-context/outer-def-ctx-scopes the-struct_125)" -"(expand-context/outer-binding-layer the-struct_125)" -"(expand-context/outer-reference-records the-struct_125)" -"(expand-context/outer-only-immediate? the-struct_125)" -"(expand-context/outer-need-eventually-defined the-struct_125)" -"(expand-context/outer-current-introduction-scopes the-struct_125)" -"(expand-context/outer-current-use-scopes the-struct_125)" -"(expand-context/outer-name the-struct_125)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_125))))))" -"(let-values(((all-exp-forms_0)" -"((letrec-values(((loop_65)" +" inner37_176" +"(root-expand-context/outer-post-expansion the-struct_175)" +"(root-expand-context/outer-use-site-scopes the-struct_175)" +"(root-expand-context/outer-frame-id the-struct_175)" +"(expand-context/outer-context the-struct_175)" +"(expand-context/outer-env the-struct_175)" +"(expand-context/outer-scopes the-struct_175)" +"(expand-context/outer-def-ctx-scopes the-struct_175)" +"(expand-context/outer-binding-layer the-struct_175)" +"(expand-context/outer-reference-records the-struct_175)" +"(expand-context/outer-only-immediate? the-struct_175)" +"(expand-context/outer-need-eventually-defined the-struct_175)" +"(expand-context/outer-current-introduction-scopes the-struct_175)" +"(expand-context/outer-current-use-scopes the-struct_175)" +"(expand-context/outer-name the-struct_175)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_175))))))" +"(let-values(((all-exp-forms_155)" +"((letrec-values(((loop_180)" "(lambda(forms_0)" "(begin" " 'loop" "(let-values((()" "(begin" -"(let-values(((obs_175)" -"(expand-context-observer ctx_127)))" -"(if obs_175" +"(let-values(((obs_184)" +"(expand-context-observer ctx_0)))" +"(if obs_184" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_175" +" obs_184" " 'enter-list" -"(datum->syntax$1 #f form30_0 s_309))))" +"(datum->syntax$1 #f form30_138 s_0))))" "(void)))" "(values))))" -"(let-values(((exp-forms_0)" -"((letrec-values(((loop_126)" -"(lambda(forms_1 accum_1)" +"(let-values(((exp-forms_182)" +"((letrec-values(((loop_185)" +"(lambda(forms_1 accum_0)" "(begin" " 'loop" "(if(null? forms_1)" "(let-values()" -"(let-values(((forms_2)" +"(let-values(((forms_188)" "(reverse$1" -" accum_1)))" +" accum_0)))" "(begin" -"(let-values(((obs_176)" +"(let-values(((obs_189)" "(expand-context-observer" -" ctx_127)))" -"(if obs_176" +" ctx_0)))" +"(if obs_189" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_176" +" obs_189" " 'exit-list" "(datum->syntax$1" " #f" -" forms_2" -" s_309))))" +" forms_188" +" s_0))))" "(void)))" -" forms_2)))" +" forms_188)))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_177)" +"(let-values(((obs_191)" "(expand-context-observer" -" ctx_127)))" -"(if obs_177" +" ctx_0)))" +"(if obs_191" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_177" +" obs_191" " 'next)))" "(void)))" "(values))))" -"(let-values(((exp-form_0)" -"(let-values(((temp40_3)" +"(let-values(((exp-form_190)" +"(let-values(((temp40_192)" "(car" " forms_1))" -"((capture-ctx41_0)" -" capture-ctx_1))" +"((capture-ctx41_193)" +" capture-ctx_154))" "(expand9.1" " #f" " #f" " #f" -" temp40_3" -" capture-ctx41_0))))" -"(loop_126" +" temp40_192" +" capture-ctx41_193))))" +"(loop_185" "(cdr forms_1)" "(cons" -" exp-form_0" -" accum_1))))))))))" -" loop_126)" +" exp-form_190" +" accum_0))))))))))" +" loop_185)" " forms_0" " null)))" -"(let-values(((lifts_15)(get-and-clear-lifts! lift-ctx_7)))" -"(if(null? lifts_15)" -"(let-values() exp-forms_0)" +"(let-values(((lifts_183)" +"(get-and-clear-lifts! lift-ctx_153)))" +"(if(null? lifts_183)" +"(let-values() exp-forms_182)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_178)" +"(let-values(((obs_196)" "(expand-context-observer" -" ctx_127)))" -"(if obs_178" +" ctx_0)))" +"(if obs_196" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_178" +" obs_196" " 'module-lift-loop" -" lifts_15)))" +" lifts_183)))" "(void)))" "(values))))" -"(let-values(((beg_0)" -"(let-values(((lifts42_0) lifts_15)" -"((temp43_6) #f)" -"((temp44_6)" +"(let-values(((beg_194)" +"(let-values(((lifts42_197) lifts_183)" +"((temp43_198) #f)" +"((temp44_199)" "(expand-context-phase" -" trans-ctx_1)))" +" trans-ctx_152)))" "(wrap-lifts-as-begin16.1" " unsafe-undefined" " unsafe-undefined" -" lifts42_0" -" temp43_6" -" temp44_6))))" -"(let-values(((exprs_1)" +" lifts42_197" +" temp43_198" +" temp44_199))))" +"(let-values(((exprs_195)" "(reverse$1" "(cdr" "(reverse$1" -"(cdr(syntax-e$1 beg_0)))))))" +"(cdr(syntax-e$1 beg_194)))))))" "(append" -"(loop_65 exprs_1)" -" exp-forms_0)))))))))))))" -" loop_65)" -" form30_0)))" -"(if(expand-context-to-parsed? ctx_127)" -"(parsed-begin-for-syntax21.1 s_309 all-exp-forms_0)" -"(let-values(((s45_0) s_309)((temp46_2)(cons begin-for-syntax29_0 all-exp-forms_0)))" -"(rebuild5.1 #t s45_0 temp46_2))))))))))))))" +"(loop_180 exprs_195)" +" exp-forms_182)))))))))))))" +" loop_180)" +" form30_138)))" +"(if(expand-context-to-parsed? ctx_0)" +"(parsed-begin-for-syntax21.1 s_0 all-exp-forms_155)" +"(let-values(((s45_200) s_0)((temp46_201)(cons begin-for-syntax29_137 all-exp-forms_155)))" +"(rebuild5.1 #t s45_200 temp46_201))))))))))))))" "(void" "(add-core-form!*" " '#%require" -"(lambda(s_933 ctx_128)" +"(lambda(s_0 ctx_0)" "(let-values((()" "(begin" -"(let-values(((obs_179)(expand-context-observer ctx_128)))" -"(if obs_179(let-values()(let-values()(call-expand-observe obs_179 'prim-require)))(void)))" +"(let-values(((obs_222)(expand-context-observer ctx_0)))" +"(if obs_222(let-values()(let-values()(call-expand-observe obs_222 'prim-require)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_128) 'top-level)" +"(if(eq?(expand-context-context ctx_0) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_933)))" +" (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_0)))" "(values))))" -"(let-values(((disarmed-s_27)(syntax-disarm$1 s_933)))" -"(let-values(((ok?_97 #%require47_0 req48_0)" -"(let-values(((s_63) disarmed-s_27))" -"(let-values(((orig-s_100) s_63))" -"(let-values(((#%require47_1 req48_1)" -"(let-values(((s_406)(if(syntax?$1 s_63)(syntax-e$1 s_63) s_63)))" -"(if(pair? s_406)" -"(let-values(((#%require49_0)(let-values(((s_409)(car s_406))) s_409))" -"((req50_0)" -"(let-values(((s_415)(cdr s_406)))" -"(let-values(((s_65)" -"(if(syntax?$1 s_415)" -"(syntax-e$1 s_415)" -" s_415)))" -"(let-values(((flat-s_70)(to-syntax-list.1 s_65)))" -"(if(not flat-s_70)" +"(let-values(((disarmed-s_204)(syntax-disarm$1 s_0)))" +"(let-values(((ok?_205 #%require47_206 req48_207)" +"(let-values(((s_223) disarmed-s_204))" +"(let-values(((orig-s_224) s_223))" +"(let-values(((#%require47_225 req48_226)" +"(let-values(((s_227)(if(syntax?$1 s_223)(syntax-e$1 s_223) s_223)))" +"(if(pair? s_227)" +"(let-values(((#%require49_228)" +"(let-values(((s_230)(car s_227))) s_230))" +"((req50_229)" +"(let-values(((s_231)(cdr s_227)))" +"(let-values(((s_232)" +"(if(syntax?$1 s_231)" +"(syntax-e$1 s_231)" +" s_231)))" +"(let-values(((flat-s_233)(to-syntax-list.1 s_232)))" +"(if(not flat-s_233)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_100))" -"(let-values() flat-s_70)))))))" -"(values #%require49_0 req50_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_100)))))" -"(values #t #%require47_1 req48_1))))))" -"(let-values(((sc_41)(new-scope 'macro)))" +" orig-s_224))" +"(let-values() flat-s_233)))))))" +"(values #%require49_228 req50_229))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_224)))))" +"(values #t #%require47_225 req48_226))))))" +"(let-values(((sc_221)(new-scope 'macro)))" "(begin" -"(let-values(((temp51_4)" +"(let-values(((temp51_235)" "(reverse$1" -"(let-values(((lst_32) req48_0))" +"(let-values(((lst_243) req48_207))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_32)))" -"((letrec-values(((for-loop_25)" -"(lambda(fold-var_398 lst_33)" +"(let-values()(check-list lst_243)))" +"((letrec-values(((for-loop_244)" +"(lambda(fold-var_0 lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_33)" -"(let-values(((req_20)(unsafe-car lst_33))" -"((rest_13)(unsafe-cdr lst_33)))" -"(let-values(((fold-var_399)" -"(let-values(((fold-var_400) fold-var_398))" -"(let-values(((fold-var_296)" +"(if(pair? lst_0)" +"(let-values(((req_247)(unsafe-car lst_0))" +"((rest_248)(unsafe-cdr lst_0)))" +"(let-values(((fold-var_249)" +"(let-values(((fold-var_250) fold-var_0))" +"(let-values(((fold-var_251)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" req_20" -" sc_41))" -" fold-var_400))))" -"(values fold-var_296)))))" +" req_247" +" sc_221))" +" fold-var_250))))" +"(values fold-var_251)))))" "(if(not #f)" -"(for-loop_25 fold-var_399 rest_13)" -" fold-var_399)))" -" fold-var_398)))))" -" for-loop_25)" +"(for-loop_244 fold-var_249 rest_248)" +" fold-var_249)))" +" fold-var_0)))))" +" for-loop_244)" " null" -" lst_32)))))" -"((s52_0) s_933)" -"((temp53_5) #f)" -"((temp54_5)(expand-context-namespace ctx_128))" -"((temp55_5)(expand-context-phase ctx_128))" -"((temp56_4)(let-values(((temp59_10) #f))(make-requires+provides8.1 #f temp59_10)))" -"((temp57_2) 'require)" -"((temp58_5) #t))" +" lst_243)))))" +"((s52_236) s_0)" +"((temp53_237) #f)" +"((temp54_238)(expand-context-namespace ctx_0))" +"((temp55_239)(expand-context-phase ctx_0))" +"((temp56_240)(let-values(((temp59_252) #f))(make-requires+provides8.1 #f temp59_252)))" +"((temp57_241) 'require)" +"((temp58_242) #t))" "(parse-and-perform-requires!30.1" " #f" " #f" " unsafe-undefined" -" temp58_5" +" temp58_242" " unsafe-undefined" " #f" " #f" " #f" -" temp53_5" -" temp57_2" -" temp51_4" -" s52_0" -" temp54_5" -" temp55_5" -" temp56_4))" -"(if(expand-context-to-parsed? ctx_128)(parsed-require23.1 s_933) s_933))))))))))" +" temp53_237" +" temp57_241" +" temp51_235" +" s52_236" +" temp54_238" +" temp55_239" +" temp56_240))" +"(if(expand-context-to-parsed? ctx_0)(parsed-require23.1 s_0) s_0))))))))))" "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_781 ctx_129)" +"(lambda(s_0 ctx_0)" "(begin" -"(let-values(((obs_180)(expand-context-observer ctx_129)))" -"(if obs_180(let-values()(let-values()(call-expand-observe obs_180 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_781)))))" +"(let-values(((obs_255)(expand-context-observer ctx_0)))" +"(if obs_255(let-values()(let-values()(call-expand-observe obs_255 'prim-provide)))(void)))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_0)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" "(declare-core-module! ns)" -"(let-values(((temp1_4) '#%read)((read-primitives2_0) read-primitives)((ns3_0) ns))" -"(declare-hash-based-module!41.1 ns3_0 #f null #f #f temp1_4 read-primitives2_0))" -"(let-values(((temp4_8) '#%main)((main-primitives5_0) main-primitives)((ns6_1) ns))" -"(declare-hash-based-module!41.1 ns6_1 #f null #f #f temp4_8 main-primitives5_0))" -"(let-values(((temp7_5) '#%utils)((utils-primitives8_0) utils-primitives)((ns9_1) ns))" -"(declare-hash-based-module!41.1 ns9_1 #f null #f #f temp7_5 utils-primitives8_0))" -"(let-values(((temp10_7) '#%place-struct)" -"((place-struct-primitives11_0) place-struct-primitives)" -"((ns12_2) ns)" -"((temp13_3) '(dynamic-place)))" -"(declare-hash-based-module!41.1 ns12_2 #f temp13_3 #f #f temp10_7 place-struct-primitives11_0))" -"(let-values(((temp14_7) '#%boot)((boot-primitives15_0) boot-primitives)((ns16_2) ns))" -"(declare-hash-based-module!41.1 ns16_2 #f null #f #f temp14_7 boot-primitives15_0))" -"(let-values(((linklet-primitives_0)" +"(let-values(((temp1_2) '#%read)((read-primitives2_3) read-primitives)((ns3_4) ns))" +"(declare-hash-based-module!41.1 ns3_4 #f null #f #f temp1_2 read-primitives2_3))" +"(let-values(((temp4_6) '#%main)((main-primitives5_7) main-primitives)((ns6_8) ns))" +"(declare-hash-based-module!41.1 ns6_8 #f null #f #f temp4_6 main-primitives5_7))" +"(let-values(((temp7_10) '#%utils)((utils-primitives8_11) utils-primitives)((ns9_12) ns))" +"(declare-hash-based-module!41.1 ns9_12 #f null #f #f temp7_10 utils-primitives8_11))" +"(let-values(((temp10_14) '#%place-struct)" +"((place-struct-primitives11_15) place-struct-primitives)" +"((ns12_16) ns)" +"((temp13_17) '(dynamic-place)))" +"(declare-hash-based-module!41.1 ns12_16 #f temp13_17 #f #f temp10_14 place-struct-primitives11_15))" +"(let-values(((temp14_19) '#%boot)((boot-primitives15_20) boot-primitives)((ns16_21) ns))" +"(declare-hash-based-module!41.1 ns16_21 #f null #f #f temp14_19 boot-primitives15_20))" +"(let-values(((linklet-primitives_22)" "(hash-remove(hash-remove linklet-primitives 'variable-reference?) 'variable-reference-constant?)))" -"(let-values(((temp17_6) '#%linklet)" -"((linklet-primitives18_0) linklet-primitives_0)" -"((ns19_3) ns)" -"((temp20_6) #t)" -"((temp21_3) #t))" -"(declare-hash-based-module!41.1 ns19_3 temp20_6 null #f temp21_3 temp17_6 linklet-primitives18_0)))" -"(let-values(((temp22_6) '#%expobs)((expobs-primitives23_0) expobs-primitives)((ns24_2) ns)((temp25_9) #t))" -"(declare-hash-based-module!41.1 ns24_2 #f null temp25_9 #f temp22_6 expobs-primitives23_0))" -"(let-values(((ns26_1) ns)" -"((eval27_0) 1/eval)" -"((temp28_5)" -"(let-values(((ht_167) main-primitives))" +"(let-values(((temp17_24) '#%linklet)" +"((linklet-primitives18_25) linklet-primitives_22)" +"((ns19_26) ns)" +"((temp20_27) #t)" +"((temp21_28) #t))" +"(declare-hash-based-module!41.1 ns19_26 temp20_27 null #f temp21_28 temp17_24 linklet-primitives18_25)))" +"(let-values(((temp22_30) '#%expobs)((expobs-primitives23_31) expobs-primitives)((ns24_32) ns)((temp25_33) #t))" +"(declare-hash-based-module!41.1 ns24_32 #f null temp25_33 #f temp22_30 expobs-primitives23_31))" +"(let-values(((ns26_35) ns)" +"((eval27_36) 1/eval)" +"((temp28_37)" +"(let-values(((ht_39) main-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_167)))" -"((letrec-values(((for-loop_20)" -"(lambda(table_221 i_3)" +"(let-values()(check-in-hash-keys ht_39)))" +"((letrec-values(((for-loop_40)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_3" -"(let-values(((name_82)(hash-iterate-key ht_167 i_3)))" -"(let-values(((table_210)" -"(let-values(((table_222) table_221))" -"(let-values(((table_182)" +"(if i_0" +"(let-values(((name_43)(hash-iterate-key ht_39 i_0)))" +"(let-values(((table_44)" +"(let-values(((table_45) table_0))" +"(let-values(((table_46)" "(let-values()" -"(let-values(((key_93 val_89)" +"(let-values(((key_47 val_48)" "(let-values()" "(values" -"(let-values() name_82)" +"(let-values() name_43)" " #t))))" -"(hash-set table_222 key_93 val_89)))))" -"(values table_182)))))" +"(hash-set table_45 key_47 val_48)))))" +"(values table_46)))))" "(if(not #f)" -"(for-loop_20 table_210(hash-iterate-next ht_167 i_3))" -" table_210)))" -" table_221)))))" -" for-loop_20)" +"(for-loop_40 table_44(hash-iterate-next ht_39 i_0))" +" table_44)))" +" table_0)))))" +" for-loop_40)" " '#hash()" -"(hash-iterate-first ht_167)))))" -"((temp29_6)" -"(let-values(((ht_127) read-primitives))" +"(hash-iterate-first ht_39)))))" +"((temp29_38)" +"(let-values(((ht_49) read-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_127)))" -"((letrec-values(((for-loop_329)" -"(lambda(table_223 i_182)" +"(let-values()(check-in-hash-keys ht_49)))" +"((letrec-values(((for-loop_50)" +"(lambda(table_0 i_0)" "(begin" " 'for-loop" -"(if i_182" -"(let-values(((name_83)(hash-iterate-key ht_127 i_182)))" -"(let-values(((table_120)" -"(let-values(((table_113) table_223))" -"(let-values(((table_114)" +"(if i_0" +"(let-values(((name_53)(hash-iterate-key ht_49 i_0)))" +"(let-values(((table_54)" +"(let-values(((table_55) table_0))" +"(let-values(((table_56)" "(let-values()" -"(let-values(((key_94 val_90)" +"(let-values(((key_57 val_58)" "(let-values()" "(values" -"(let-values() name_83)" +"(let-values() name_53)" " #t))))" -"(hash-set table_113 key_94 val_90)))))" -"(values table_114)))))" +"(hash-set table_55 key_57 val_58)))))" +"(values table_56)))))" "(if(not #f)" -"(for-loop_329 table_120(hash-iterate-next ht_127 i_182))" -" table_120)))" -" table_223)))))" -" for-loop_329)" +"(for-loop_50 table_54(hash-iterate-next ht_49 i_0))" +" table_54)))" +" table_0)))))" +" for-loop_50)" " '#hash()" -"(hash-iterate-first ht_127))))))" -"(declare-kernel-module!8.1 eval27_0 temp28_5 temp29_6 ns26_1))" +"(hash-iterate-first ht_49))))))" +"(declare-kernel-module!8.1 eval27_36 temp28_37 temp29_38 ns26_35))" "(begin" -"(let-values(((lst_17) runtime-instances))" +"(let-values(((lst_59) runtime-instances))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_17)))" -"((letrec-values(((for-loop_10)" -"(lambda(lst_20)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_59)))" +"((letrec-values(((for-loop_60)" +"(lambda(lst_0)" "(begin" " 'for-loop" -"(if(pair? lst_20)" -"(let-values(((name_84)(unsafe-car lst_20))((rest_6)(unsafe-cdr lst_20)))" +"(if(pair? lst_0)" +"(let-values(((name_62)(unsafe-car lst_0))((rest_63)(unsafe-cdr lst_0)))" "(let-values((()" "(let-values()" -"(if(eq? name_84 '#%kernel)" +"(if(eq? name_62 '#%kernel)" "(values)" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name30_0) name_84)" -"((ns31_0) ns)" -"((temp32_3)" -"(let-values(((or-part_166)" +"(let-values(((name30_65) name_62)" +"((ns31_66) ns)" +"((temp32_67)" +"(let-values(((or-part_68)" "(eq?" -" name_84" +" name_62" " '#%foreign)))" -"(if or-part_166" -" or-part_166" -"(let-values(((or-part_287)" +"(if or-part_68" +" or-part_68" +"(let-values(((or-part_69)" "(eq?" -" name_84" +" name_62" " '#%futures)))" -"(if or-part_287" -" or-part_287" +"(if or-part_69" +" or-part_69" "(eq?" -" name_84" +" name_62" " '#%unsafe)))))))" "(copy-runtime-module!26.1" " unsafe-undefined" " unsafe-undefined" -" ns31_0" +" ns31_66" " #t" -" temp32_3" +" temp32_67" " unsafe-undefined" " unsafe-undefined" -" name30_0)))" +" name30_65)))" "(values)))))" "(values)))))))" -"(if(not #f)(for-loop_10 rest_6)(values))))" +"(if(not #f)(for-loop_60 rest_63)(values))))" "(values))))))" -" for-loop_10)" -" lst_17)))" +" for-loop_60)" +" lst_59)))" "(void))" -"(let-values(((temp33_5) '#%builtin)" -"((temp34_8)(list* '#%place-struct '#%utils '#%boot '#%expobs '#%linklet runtime-instances))" -"((ns35_1) ns)" -"((temp36_5) #f))" -"(declare-reexporting-module!50.1 ns35_1 temp36_5 temp33_5 temp34_8))" +"(let-values(((temp33_71) '#%builtin)" +"((temp34_72)(list* '#%place-struct '#%utils '#%boot '#%expobs '#%linklet runtime-instances))" +"((ns35_73) ns)" +"((temp36_74) #f))" +"(declare-reexporting-module!50.1 ns35_73 temp36_74 temp33_71 temp34_72))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_775)(begin(1/datum->syntax core-stx s_775)))))" +"(define-values(datum->kernel-syntax)(lambda(s_0)(begin(1/datum->syntax core-stx s_0)))))" ;